Histórico da Página

/*/{Protheus.doc} User Function  IMG01DE
    Efetuar a impressão da etiqueta de unidade 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