Damaged PDF generated (Chapter II)...

Hello !

I'm still suffering a lot with form field replacement & QuickPDF (see my other postings).

I have a PDF template, which is a PDF with empty form fields and I "stuff" content into those fields grabbing this content from a database.

So far, simple.

What happens is that SOMETIMES, a damaged PDF is generated.

I replaced QuickPDF inside my application by PDFTK, as Chicks suggested some time ago.

When using PDFTK, under the SAME CIRCUMSTANCES, I get a perfectly fine PDF.

As a matter of fact my application generates 2 PDFs : one via QuickPDF and now another one, via PDFTK, simultaneosly. That is, it generates two output files, one from each tool.

I have supplied a kit :

http://www.DES.online.unimep.br/au/pub/kitpdftk.zip

There inside :

• AG284D.PDF is the template itself.
• LOG.TXT is a log file where I transcript the field names and values that I'm supposed to replace, from bottom up.
  
• QPDF.PDF is the PDF generated via QuicPDF.
• PDFTK.FDF is the FDF file that I build on my own.
• PDFTK.BAT is the batch file I use to run PDFTK.
  
• PDFTK.PDF is the PDF generated by PDFTK.
  

The circumstances (EXEcutable, DATA, machine) and everything else are the SAME but QuickPDF generates a wrong PDF and PDFTK generates a OK one.

My conclusion is that there's a bug on QuickPDF field replacement or flattening.

Someone can help me ?

I see no other alternative but to replace QuickPDF by PDFTK, what I TOTALLY dislike....

My logic to replace fields on QUICKPDF is like this :

LNT:=LOQPDF:FORMFIELDCOUNT()
FOR LNI:=LNT TO 1 STEP -1
  LCFNAME:=LOQPDF:GETFORMFIELDTITLE(LNI)
  IF  EMPTY(LCFNAME)
      // SHOUT 'EMPTY FORM FIELD NAME' AND GET OUT
  END IF
  // SEARCHES FOR THIS FORM FIELD (LCFNAME) VALUE AND IF NOT FOUND, GET OUT
  IF  (LNF:=ASCAN(LAPAGES[LNIPAGE,2],{|E,I| LCFNAME == E[1]})) == 0
      // SHOUT 'FORM FIELD VALUE NOT FOUND'
      // GET OUT
  END IF
  LCFVALUE:=LAPAGES[LNIPAGE,2,LNF,2]
  IF  LCFVALUE == NIL
      // SHOULD I HAVE A NULL FIELD VALUE, EMPTIES IT
      LCFVALUE := ""
  END IF
  IF  NOT (LXRESULT:=LOQPDF:SETFORMFIELDVALUE(LNI,LCFVALUE)) == 1
      // COULD NOT SET FORM FIELD VALUE
      // GET OUT
  END IF
  IF  NOT (LXRESULT:=LOQPDF:FLATTENFORMFIELD(LNI)) == 1
      // COULD NOT FLATTEN FORM FIELD
      // GET OUT
  END IF
  // BUILDS FDF FILE...
  LCFDF+="<<"                                                                         + CRLF + ;
         "/T (■" + CHR(255) + CHARMIX(REPLICATE(CHR(0),LEN(LCFNAME)),LCFNAME) + ")" + CRLF + ;
         "/V (■" + CHR(255) + CHARMIX(REPLICATE(CHR(0),LEN(LCFVALUE)),LCFVALUE) + ")" + CRLF + ;
         ">>"                                                                         + CRLF
  M->PCOLOG+=STRTRIM(PROCLINE()) + " CAMPO # " + STRTRIM(LNI) + " : " + LCFNAME + " / " + LCFVALUE + CRLF
  // BUILDS THE LOG FILE
NEXT