FiveTech Software tech support forums

Code: Select all

REQUEST FWHARU ////////////////////////////////////////////////////////////////////////////

static Principal,PantReci
memvar _arc

field num_rec,imp_rec,ben_rec,con_re1,con_re2,sit_rec,fec_rec

function Main(cOtros)

Imprimir(nOpc)

return NIL


function Imprimir(nOpc)
local nIni,nFin,bPant,n,nR,nC,nReg:=RecNo(),nOrdAnt:=OrdSetFocus(),nAncho,oPrn,oFont,nSup

if nOpc==1
 if sit_rec=='C'
  return aviso('El recibo fue cancelado')
 endif
 nIni:=Val(num_rec)
 nFin:=Val(num_rec)
else
 nIni:=Val(num_rec)
 DBGoBottom()
 nFin:=Val(num_rec)
 bPant:=AbreVent(0,0,4,52,'Impresión de recibos')
 @ 1, 2 say 'Recibo inicial' get nIni picture '99999999'
 @ 1,28 say 'Recibo final' get nFin picture '99999999';
        valid {||nFin>=nIni}
 if !aDialogo(NIL,.t.)
  DBGoTo(nReg)
  return NIL
 endif
endif
OrdSetFocus(1)

TPrinter():lUseHaruPdf:=.t.       //////////////////////////////////////////////////////////////////////////////

inicia impresion en oPrn previo // este es el PRINTER 
if oPrn==NIL
 DBGoTo(nReg)
 return NIL
endif
selecciona hoja 1 en oPrn
inicia pagina
nAncho:=132
DEFINE FONT oFont NAME "ARIAL" SIZE 0,-26 BOLD
nSup:=0
for n:=nIni to nFin
 if !DBSeek(Ceros(n,8))
  loop
 endif
 @ LINEA nSup+1,08,nSup+21,138 caja en oPrn
 if File('C:\AUTOSYS\DATOS\ARREND\001\RECIBOS.BMP')
  nR:=1+(nSup*CML)
  nC:=2
  oPrn:Cmtr2Pix(@nR,@nC)
  oPrn:SayImage(nR,nC,'C:\AUTOSYS\DATOS\ARREND\001\RECIBOS.BMP',PosX(2,oPrn),PosY(2,oPrn))
 endif
 @ nSup+ 2, 0 dato 'KARLA AIDE HERRERA PULIDO' titulo 3,80 en oPrn
 @ nSup+ 3, 0 dato 'RECIBO DE ARRENDAMIENTO' titulo 1,80 en oPrn
 @ nSup+ 3,65 dato 'RECIBO NO. '+AllTrim(Str(Val(num_rec),8)) letra normal negrilla en oPrn
 if sit_rec=='C'
  @ nSup+ 4,63 dato 'CANCELADO' en oPrn
 endif

 @ nSup+ 7,60 dato 'BUENO POR $'+tran(imp_rec,'@Z 9999,999.99') letra normal negrilla en oPrn

 @ LINEA nSup+10,19,nSup+10,132 en oPrn
 if imp_rec>0
  @ nSup+ 9,10 dato 'RECIBI DE        '+ben_rec letra condensada en oPrn
 else
  @ nSup+ 9,10 dato 'RECIBI DE' letra condensada en oPrn
 endif

 @ LINEA nSup+12,26,nSup+12,132 en oPrn
 if imp_rec>0
  @ nSup+11,10 dato 'LA CANTIDAD DE $        ('+Upper(DescNum(imp_rec))+')' en oPrn
 else
  @ nSup+11,10 dato 'LA CANTIDAD DE $' en oPrn
 endif

 @ LINEA nSup+14,27,nSup+14,132 en oPrn
 if imp_rec>0
  @ nSup+13,10 dato 'POR CONCEPTO DE        '+con_re1 en oPrn
 else
  @ nSup+13,10 dato 'POR CONCEPTO DE' en oPrn
 endif

 @ LINEA nSup+16,25,nSup+16,132 en oPrn
 if imp_rec>0
  @ nSup+15,10 dato 'LUGAR Y FECHA        MORELIA, MICHOACAN, A '+FormaFecha(fec_rec,.t.) en oPrn
*  @ nSup+15,10 dato 'LUGAR Y FECHA        '+_CIUDAD+', '+_ESTADO+', A '+FormaFecha(fec_rec,.t.) en oPrn
 else
  @ nSup+15,10 dato 'LUGAR Y FECHA' en oPrn
 endif

 @ nSup+18,0 dato 'R E C I B I' titulo 0,80 en oPrn
 @ LINEA nSup+20,31,nSup+20,51 NORMAL en oPrn

 @ nSup+22, 10 dato '-' en oPrn
 @ nSup+22,130 dato '-' en oPrn

 nSup+=22

 if nSup>=66
  termina pagina
  inicia pagina
  nSup:=0
 endif

next
termina pagina
termina impresion
OrdSetFocus(nOrdAnt)
DBGoTo(nReg)
DespVent(PantReci)
return NIL
 

Code: Select all

#include "fivewin.ch"
#include "report.ch"

REQUEST FWHARU

function Main()

   local oPrn, oFont, oPen
   local cPdfFile

   TPrinter():lUseHaruPDF  := .t.
   cPdfFile := "test.pdf"

   PRINT oPrn PREVIEW FILE cPdfFile
   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-20 OF oPrn
   DEFINE PEN oPen WIDTH 1 OF oPrn

   PAGE

   oPrn:RoundBox( 3, 2.5, 9, 12.5, 1, 1, oPen, CLR_YELLOW, nil, "CM" )
   oPrn:Say( 4, 2.5,   "Left at 4 cm",     oFont, 10, nil, nil, 0, "CM" )
   oPrn:Say( 5, 2.5,   "Right at 5 cm",    oFont, 10, nil, nil, 1, "CM" )
   oPrn:Say( 6, 2.5,   "Centered at 6 cm", oFont, 10, nil, nil, 2, "CM" )
   oPrn:Say( 3, 0.984, "Left at 3 inches", oFont, 10, nil, nil, 0, "INCHES" )

   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont
   RELEASE PEN  oPen
return nil