Código: Selecionar todos
*------------------------------------------------------------------------*
* CHEQUE PARA: BANCO DO B R A S I L
* PROGRAMA_____: PRINTCHE()
* FUNۂO_______: PREENCHIMENTO DE CHEQUE.
*-----------------------------------------------------------------------------*
function Printche( m_val, m_nom, m_cid, m_ven)
*-----------------------------------------------------------------------------*
**************************************
local Text := extenso(m_val) + space(2) **ERRO AQUI
***********************************
local Tpos := rat(" ", substr(Text, 1, 72) )
local Aextenso := { substr( Text, 1, Tpos+1)+ repl("*",90 - Tpos),substr(Text,Tpos+1)+ repl("*",97 - (len(Text) - Tpos ))}
local Tx
PRT( .T. )
setprc( 0, 0 )
devpos( 0, 0 )
?? PRINTER_INIT
if ( m_val = 10000000000 )
devout( chr(15) )
@ 2,107 say m_val picture "@e ******,***,***,***,***.**"
devout( "##" )
else
devout( chr(18) )
@ 2,62 say m_val picture "@e **,***,***,***.**"
devout ( "#"+ chr(15))
endif
@ 5,43 say Aextenso[1]
@ 7,35 say Aextenso[2] + chr(18)
if (m_nom != nil)
@ 9,20 say m_nom
endif
@ 11,45 say substr( m_cid, 1, 11)
@ 11,57 say strzero(day(m_ven),2)+space(4)+ mesext2(m_ven)
@ 11,77 say right(str(year(m_ven),4),2)
DevPos(LINES_PER_PAGE, 0)
setprc(0, 0)
?? PRINTER_END
PRT(.F.)
RETURN(NIL)
