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 (REPLICATE("-",40) + CHR(13) + chr(13) + chr(10))
BematechTX ("Total                       " + cSubTotal + CHR(13) + chr(13) + chr(10)   )
BematechTX (SUBSTR(TSCOMP4.DESCRICAO,1,27) + " " + TRANSFORM(TSCOMP4.VALOR,"9,999,999.99") + CHR(13) + chr(13) + chr(10))

cRet = FechaPorta()
