Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:ACD - Automação Coleta de Dados
Função:

ACDI010 - Impressão de Etiquetas

02. DESCRIÇÃO

O ponto de entrada é chamado dentro da função de impressão de etiquetas de caixas.

03. PARÂMETROS

NomeTipoDescrição
ParamIXB[1]Numérico

Quantidade da etiqueta

ParamIXB[2]NILNão utilizado
ParamIXB[3]NuméricoID da etiqueta
ParamIXB[4]NuméricoQuantidade de produtos
ParamIXB[5]CaracterArmazém
ParamIXB[6]CaracterEndereço

04. RETORNO

Não possui.

05. EXEMPLO DE UTILIZAÇÃO

IMG01CX
/*/{Protheus.doc} User Function  IMG01CX
    Efetuar a impressão da etiqueta de caixa
    @type  Function
    @author TOTVS
    /*/
User Function IMG01CX()
    Local aArea := GetArea()
    Local nQE   := PARAMIXB[1]
    Local nId   := PARAMIXB[3]
    Local nQtde := PARAMIXB[4]
    Local cArm  := PARAMIXB[5]
    Local cEnd  := PARAMIXB[6]
    Local cImpressora := "ZPLVIRTUAL2"
    Local cModelo := "ZEBRA"

     // customização do cliente para impressão da etiqueta 
     MSCBPRINTER( cModelo, "GENERIC", , 10, .F., , , , , , .T., "c:\temp\", cImpressora )
     MSCBCHKSTATUS( .F. )
     MSCBBEGIN( 1, 6 )
     MSCBSAY( 10, 10, "ETIQUETA CAIXA", "N", "A", "040,030" )
     MSCBSAY( 20, 10, "QTD ETIQ: " + cValToChar( nQE ), "N", "A", "020,015" )
     MSCBSAY( 30, 10, "ID ETIQUETA:" + cValToChar( nID ), "N", "A", "020,015" )
     MSCBSAY( 40, 10, "QUANTIDADE:" + cValToChar( nQtde ), "N", "A", "020,015" )
     MSCBSAY( 50, 10, "ARMAZEM:" + cArm, "N", "A", "020,015" )
     MSCBSAY( 60, 10, "ENDEREÇO:" + cEnd, "N", "A", "020,015" )
     MSCBEND()
     MSCBCLOSEPRINTER()

    RestArea( aArea )
Return