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 (space(int((40 - len(AllTrim(SUBSTR(AllTrim(TSC008A.EMPNOM),1,40)))) / 2))+AllTrim(SUBSTR(AllTrim(TSC008A.EMPNOM),1,40)) + chr(13) + chr(10))
BematechTX (space(int((40 - len(AllTrim(SUBSTR(AllTrim(TSC008A.EMPEND) + ", " + ALLTRIM(TSC008A.EMPNUM) + " - " + ALLTRIM(TSC008A.EMPBAI),1,40)))) / 2))+AllTrim(SUBSTR(AllTrim(ALLTRIM(TSC008A.EMPEND) + ", " + ALLTRIM(TSC008A.EMPNUM) + " - " + ALLTRIM(TSC008A.EMPBAI)),1,40)) + chr(13) +chr(10))
BematechTX (space(int((40 - len(AllTrim(SUBSTR(AllTrim(TSC008A.EMPCIDAD) + " - " + ALLTRIM(TSC008A.EMPEST),1,40)))) / 2))+AllTrim(SUBSTR(AllTrim(TSC008A.EMPCIDAD) + " - " + ALLTRIM(TSC008A.EMPEST),1,40)) + chr(13) + chr(10))
BematechTX (REPLICATE("-",40) + chr(13) + chr(10))
BematechTX (DTOC(TSCOMP1.DATAA) + SPACE(4) + TSCOMP1.HORAA + SPACE(7) + "ORC: " + SUBSTR(TSCOMP1.CODIGO,5,6) + chr(13) + chr(10))
BematechTX (SPACE(11) + "O R C A M E N T O" + chr(13) + chr(10))
BematechTX ("ITEM CODIGO        DESCRICAO" + chr(13) + chr(10))
BematechTX ("QTD.       UN.  VL UNIT(R$)  VL ITEM(R$)" + chr(13) + chr(10))
BematechTX (REPLICATE("-",40) + chr(13) + chr(10))


cRet = FechaPorta()