PC Toledo

Código: Selecionar todos

	cARQ := 'DUPL.TXT'
	SET PRINTER TO &cARQ
	SET DEVICE TO PRINTER

	nVLNOTFIS 	:= CR->VLNOTFIS_
	cNOTFIS		:= CR->NOTFIS_
	cNUMERO_		:= CR->NUMERO_    
	cCLIENTE		:= CR->CODIGO+"-"CLI->NOME
	cENDERECO 	:= TRIM(CLI->ENDCOB)+"-"+CLI->BAICOB
	cCIDADE		:= CLI->CIDCOB
	cESTADO		:= CLI->UFCOB
	cCEP			:= CLI->CEPCOB
	cPRACA		:= CR->PRACA_
	cCGC			:= IF(LEFT(CLI->CGC,1)!=SPACE(1),CLI->CGC,CLI->CPF)
	cRG			:= IF(!EMPTY(CLI->INSCRICAO),CLI->INSCRICAO,CLI->RG)
	cVALOREXT 	:= VALEXT( CR->VALOR_ )
	nVALOR 		:= CR->VALOR_
	SETPRC(0,0)
	@ PROW()	,00 SAY normal+"+-----------------------------------------------+------------------------------+"
	@ PROW()+1,00 SAY "|       "+NEGRITO+PERS->EMPRESA+NEGRITOD+"          |  C.G.C. "+PERS->CGC+"   |"
	@ PROW()+1,00 SAY "|      "+ITALICO+PERS->RAZAO+ITALICOD+"           |   Insc. Est. "+PERS->INSCRICAO+"    |"
	@ PROW()+1,00 SAY "+-----------------------------------------------+------------------------------+"
	@ PROW()+1,00 SAY "| "+ITALICO+pers->endereco+" "+pers->telefone+" Cep 78.690-000 Nova Xavantina-MT"+ITALICOD+" |"
	@ PROW()+1,00 SAY "+------------------------------------------------------------------------------+"
	@ PROW()+1,00 SAY "|                                   Data de Emissao:                           |" ; @ PROW(),53 SAY DIA( CR->DTEMIS_ )
	@ PROW()+1,00 SAY "+-----------------------------------------------------------+------------------+"
	@ PROW()+1,00 SAY "|         Fatura                 Duplicata                  |"+PEQUENO+"P/ uso Instituicao financeira"+NORMAL ; @ PROW(),79 SAY "|" 
	@ PROW()+1,00 SAY "+------------+----------+------------+----------+-----------|                  |"
	@ PROW()+1,00 SAY "|   Valor R$ |  Numero  |   Valor R$ | No.Ordem | Vencimento|                  |"
	@ PROW()+1,00 SAY "|            |          |            |          |           |                  |"
	@ PROW()	,02 SAY NEGRITO+TRAN( nVLNOTFIS  ,"@E 999,999.99")+NEGRITOD
	@ PROW()	,14 SAY NEGRITO+cNOTFIS+NEGRITOD
	@ PROW()	,26 SAY NEGRITO+TRAN( nVALOR	,"@E 999,999.99")+NEGRITOD
	@ PROW()	,38 SAY NEGRITO+cNUMERO_+NEGRITOD
	@ PROW()	,50 SAY NEGRITO+DTOC(CR->DTVENC_)+NEGRITOD
	@ PROW()+1,00 SAY "+------------+----------+------------+----------+-----------+------------------+"
	@ PROW()+1,00 SAY "|                       | Juros por dia de atraso:                             |"
	@ PROW()+1,00 SAY "|                       | Cliente: "+NEGRITO+LEFT(cCLIENTE,43)+NEGRITOD         ; @ PROW(),79 SAY "|" 
	@ PROW()+1,00 SAY "|                       | Endereco: "+PEQUENO+cENDERECO+NORMAL                  ; @ PROW(),79 SAY "|"                           
	@ PROW()+1,00 SAY "|                       | Municipio: "+cCIDADE+" UF:"+cESTADO+" CEP:"+cCEP 		; @ PROW(),79 SAY "|" 
	@ PROW()+1,00 SAY "|                       | Praca de Pagamento: "+PEQUENO+cPRACA +NORMAL       	; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "|                       | CGC/CPF:"+cCGC+"   IE/RG: "+ALLTRIM(cRG)			 		; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "|                       | Valor por extenso: "+PEQUENO+SUBLI+IF( LEN( cVALOREXT ) > 55,LEFT(cVALOREXT,55),cVALOREXT )+NORMAL+SUBLID ; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "|                       | "+PEQUENO+SUBLI+IF( LEN( cVALOREXT ) > 55,SUBSTR(cVALOREXT,56,LEN(cVALOREXT)-54),"")+SUBLID+NORMAL 
	@ PROW()+1,00 SAY "|                       | "+PEQUENO+"     Reconheco(emos) a exatidao desta DUPLICATA de Venda Mercantil/Prestacao de Servicos"+NORMAL ; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "|                       | "+PEQUENO+"na importancia acima que pagarei(emos) a "+PERS->RAZAO+" ou sua ordem na"+NORMAL ; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "| --------------------- | "+PEQUENO+"praca e vencimento indicados."+NORMAL
	@ PROW()+1,00 SAY "| "+PEQUENO+PERS->RAZAO+NORMAL ; @ PROW(),24 SAY '|' ; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "|                       |                                                      |"
	@ PROW()+1,00 SAY "|                       |   ______________         ___________________________ |"
	@ PROW()+1,00 SAY "+-----------------------+   Data do aceite            Assinatura do Cliente    |"
	@ PROW()+1,00 SAY "|   "+PEQUENO+"    A falta do pagamento no vencimento, serao cobrados juros legais mais despesas bancarias; nao dispensar nem condicional   "+NORMAL ; @ PROW(),79 SAY "|"
	@ PROW()+1,00 SAY "+------------------------------------------------------------------------------+"
	@ PROW()+4,00 SAY ""
	SET PRINTER TO
	SET DEVICE TO SCREEN

   cPRINTER := GETIMPRESSORA()
	PrintFileRaw( cPRINTER, cARQ , "DUPLICATA" )
	FERASE( cARQ )
	
RETURN NIL 

Código: Selecionar todos

********************************************************************************
// RETORNA IMPRESSORA ESCOLHIDA
FUNCTION GETIMPRESSORA()
LOCAL aPRINTERS := GETPRINTERS()

// DESCOBRE A LARGURA DO BROWSE
nLARGURA := LEN( aPRINTERS[1] )
FOR X = 1 TO LEN( aPRINTERS )
	IF LEN( aPRINTERS[X] ) > nLARGURA 
		nLARGURA := LEN( aPRINTERS[X] )
	ENDIF
NEXT

nLINI := (25-LEN(aPRINTERS))/2
nCINI := (80-nLARGURA)/2  
JANELA( nLINI,nCINI,nLINI+LEN(aPRINTERS)+1, nCINI+nLARGURA+1 , ' Impressoras ' ) 
nPRINTER := ACHOICE(nLINI+1,nCINI+1,nLINI+LEN(aPRINTERS),nCINI+nLARGURA, aPRINTERS )

IF nPRINTER = 0
	cPRINTER := GetDefaultPrinter()
ELSE
	cPRINTER := aPRINTERS[nPRINTER] 
ENDIF  
 	  
RETURN( cPRINTER )