cModImpBema  = PARAMETRO.MODBEMA
cPortImpBema = ALLTRIM(PARAMETRO.PORTABEMA)
                 
cRet = ConfiguraModeloImpressora(cModImpBema)
         
IF cRet <> 1
   MESSAGEBOX("Erro ao Configurar Modelo Impressora " + CHR(13) + "Parametro Invlido ",48,"Aviso")
   RETURN .F.
ENDIF         
         *WAIT WINDOW "Conf. Modelo:" + ALLTRIM(STR(cRet))
         
cRet = IniciaPorta(cPortImpBema)
         
IF cRet = 0
   MESSAGEBOX("Erro Ao Abrir Porta de Comunicao ",48,"Aviso")
   RETURN .F.
ENDIF


BematechTX (STR(cSeqImp,4) + " " + SUBSTR(TSCOMP2.CODBAR,4,13) + " " + SUBSTR(TSCOMP2.DESCRICAO,1,21) + chr(13) + chr(10))
BematechTX (TRANSFORM(TSCOMP2.QTD,"999999.999") + " " + TSCOMP2.UN + " " + TRANSFORM(TSCOMP2.UNITARIO,"9,999,999.99") + " " + TRANSFORM(TSCOMP2.TOTAL,"9,999,999.99") + chr(13) + chr(10))

cRet = FechaPorta()