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 ("SubTotal: " + cSubTotal + chr(13) + chr(10))

cRet = FechaPorta()
