         *Modelos:
*!*	         0: MP-20 TH, MP-2000 CI ou MP-2000 TH 
*!*	         1: MP-20 MI, MP-20 CI ou MP-20 S
*!*	         2: Blocos trmicos (com comunicacao serial DTR/DSR)
*!*	         3: Bloco 112 mm
*!*	         4: ThermalKiosk
*!*	         5: MP-4000 TH
*!*	         7: MP-4200 TH
*!*	         8: MP-2500 TH
 
         IF ! USED("PARAMETRO")
            USE PARAMETRO SHARED IN 33
         ENDIF 
         
         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 (CHR(27) +CHR(97)+ CHR(1) + ALLTRIM(TSC008A.EMPNOM) + CHR(10) +CHR(13))

BematechTX (CHR(27) +CHR(97)+ CHR(1) + AllTrim(TSC008A.EMPNOM) + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + AllTrim(TSC008A.EMPEND) + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + AllTrim(TSC008A.EMPCIDAD) + chr(13) + chr(10))
BematechTX (chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + DTOC(TSCOMP1.DATAA) + SPACE(4) + TSCOMP1.HORAA + SPACE(7) + "ORC: " + SUBSTR(TSCOMP1.CODIGO,5,6) + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + "O R C A M E N T O" + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + "ITEM CODIGO        DESCRICAO" + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + "QTD.       UN.  VL UNIT(R$)  VL ITEM(R$)" + chr(13) + chr(10))
BematechTX (CHR(27) +CHR(97)+ CHR(1) + REPLICATE("-",40) + chr(13) + chr(10))


cRet = FechaPorta()