Histórico da Página

/*/{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()
    // retorna MSCBCLOSEPRINTER()

    RestArea(aArea)
Return