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()
     MSCBCLOSEPRINTER()

    RestArea( aArea )
Return