FiveTech Support Forums

Hola buenas tardes para todos, un cliente requiere para su negocio, que se le envíen a sus clientes, unas cartas de garantía y la factura de venta en pdf, la factura la generamos desde nuestra aplicación, pero las cartas de garantía son documentos que se generan ya sea en word o excel, necesitamos poder compilar esos archivos pdfs para ser enviados en uno solo pdf a los clientes finales.

Espero haberme hecho entender, gracias de antemano.

El trabajo de los Pdf lo realizo con PDFTK muy practico y facil de realizar tambien lo uso para llenar pdf formularios desde mis sistema

Procedure PPlanos( cCodigo ,Modo)
local cFile,cFileFdf,cMsg,oWait
local cRuta := cGetDir("*.pdf",cFilePath( GetModuleFileName( GetInstance() ) ) + "planos",.t.) // ruta donde estan los pdf
local otxt,xlin,mPdf:={}
local PdfFinal:= op:temp+BeneficiarioDni( cCodigo )+".pdf" // nombre final del archivo combinado
local cfecha


If Len( cCodigo ) = 0
Return
Endif

If IsDir( cRuta )
cRuta += "\"
Else
MsgStop("Esta opcion no esta habilitada para esta PC","STOP" )
Return
EndIf

If !File("pdftk.exe")
MsgStop("No Existe el conversor de formularios!!","STOP" )
Return
Endif

mDir :=DIRECTORY ( op:temp+"*.*")
AEval( mDir ,{|a| fErase( op:temp+a[1] )})


cFecha := MsgDate( date(), "Fecha de Impresion" )

WaitOn("Espere un momento por favor...",@oWait )

// en esta parte se crea el archivo que contiene los datos editables del pdf
otxt:=FCreate( "datos.fdf" )
xlin := "%FDF-1.2"
FWRITE(otxt,xlin+CRLF )
xlin := "1 0 obj<</FDF<< /Fields["
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (beneficiario) /V ("+BeneficiarioName( cCodigo, .T. )+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (conyuge) /V ("+ConyugeName( cCodigo, .T. )+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (direccion) /V ("+Direccion( cCodigo,.T.)+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (predio_dir) /V ("+SoloDir( cCodigo,.T.)+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (Mz) /V ("+Alltrim(GetMz( cCodigo))+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (Lote) /V ("+Alltrim(GetLote( cCodigo))+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (Distrito) /V ("+GetDistrito( cCodigo)+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (Provincia) /V ("+GetProvincia( cCodigo)+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (Departamento) /V ("+GetDepartamento( cCodigo)+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "<< /T (fecha) /V ("+Dtoc( cFecha )+")>>"
FWRITE(otxt,xlin+CRLF )
xlin := "] >> >>"
FWRITE(otxt,xlin+CRLF )
xlin := "endobj"
FWRITE(otxt,xlin+CRLF )
xlin := "trailer"
FWRITE(otxt,xlin+CRLF )
xlin := "<</Root 1 0 R>>"
FWRITE(otxt,xlin+CRLF )
xlin := "%%EOF"
FWRITE(otxt,xlin+CRLF )
FCLOSE( otxt )

// llenar datos del Benficiario
mFiles := Directory( cRuta+"*.pdf" )

For a:=1 TO Len( mFiles )
SysRefresh()
Aadd( mPdf,op:temp+mFiles[a][1] )
WaitRun( "pdftk.exe "+cRuta+mFiles[a][1]+" fill_form datos.fdf output "+op:temp+mFiles[a][1],0 )
*?cRuta+mFiles[a][1]
Next

// unir los archivos en uno solo
b:=""
For a:=1 TO Len( mPdf )
b += mPdf[a]+" "
Next

WaitRun( "pdftk.exe "+b+"output "+PdfFinal,0 )

WaitOff( @oWait )

If File(pdfFinal)
TRY
DEFINE WINDOW cDlg TITLE "Vista de Archivo - PDF"

@ 0,0 ACTIVEX oActiveX OF cDlg PROGID "AcroPDF.PDF.1"
cDlg:oClient = oActiveX
oActiveX:src = PdfFinal
oActiveX:GotoFirstPage()

ACTIVATE WINDOW cDlg MAXIMIZED
CATCH oErr
MsgStop("Existe Problemas para Visualizar el Archivo","Error" )
END
EndIf

Return

Pdftk es lo mejor, dale una oportunidad.

Lo uso hasta en app web, la verdad me ayuda mucho.

carlos vargas wrote: Pdftk es lo mejor, dale una oportunidad.
Lo uso hasta en app web, la verdad me ayuda mucho.

No recuerdo de donde lo baje, lo uso desde 2015, pero buscare y te enviaré el pack en un link.