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 Unidade de Despacho 

03. PARÂMETROS

NomeTipoDescrição
ParamIXB[1]Numérico

Quantidade de cópias

ParamIXB[2]CaracterCódigo de barras 

04. RETORNO

Não possui,

05. EXEMPLO DE UTILIZAÇÃO

IMG01DE
/*/{Protheus.doc} User Function  IMG01DE
    Efetuar a impressão da etiqueta de unidade de despacho
    @type  Function
    @author TOTVS
    /*/
User Function IMG01DE()
    Local aArea   := GetArea()
    Local nCopias := PARAMIXB[1]
    Local cCodBar := PARAMIXB[2]      
    Local cImpressora := "ZPLVIRTUAL2"
    Local cModelo := "ZEBRA"
    Local nImp
 
    // customização do cliente para impressão da etiqueta
    For nImp := 1 To nCopias
       MSCBPRINTER( cModelo, "GENERIC", , 10, .F., , , , , , .T., "c:\temp\", cImpressora )
       MSCBCHKSTATUS( .F. )
       MSCBBEGIN( 1, 6 )
       MSCBSAY( 10, 10, "ETIQUETA DESPACHO... " + StrZero( nImp, 3 ) + "/" + StrZero( nCopias, 3 ), "N", "A", "040,030" )
       MSCBSAYBAR( 25, 10, cCodBar, "MB07", "C", 8.36, .F., .T., .F., , 2, 1 )
       MSCBEND()
       MSCBCLOSEPRINTER()
    Next

    RestArea( aArea )
Return