OBS/Makros und Scripting/Anwendungsbereiche/interaktive PDF
Zur Navigation springen
Zur Suche springen
Interaktive PDF
Interaktive PDF sind PDF Dokumente, die es erlauben bestimmte Werte direkt einzutragen oder zu ändern.
OBS bieten ebenfalls die Möglichkeiten diese PDF nach der Ausfüllung wieder einzulesen und die eingetragenen Daten zu verarbeiten.
Mithilfe von interaktiven/ausfüllbaren PDF ist es möglich Dokumente außerhalb von OBS zu bearbeiten um zum Beispiel bei einem Kundenbesuch diese über ein Tablet oder Laptop direkt auszufüllen.
Die ausgefüllten Daten können dann direkt in OBS importiert werden
Besonderheiten PDF/A
PDF/A ist ein spezielles PDF Format zum langfristigen archivieren von Dokumenten. Dabei ist unter anderem die Unveränderbarkeit des Dokumentes sehr wichtig.
Diese Eigenschaft von PDF/A steht im direkten Kontrast zu interaktiven PDF und hat zur Folge, dass PDF/A interaktive Elemente nur zum teil oder gar nicht unterstützt.
Mögliche Steuerelemente
Eingabefled/Textfeld
Einfache Eingabefelder die normalen Text beinhalten.
Numerische Felder
Eingabefelder, die nur die Eingabe von Zahlen zulassen
Datumsfelder
Felder zum eintragen eines Datums
Schaltfläche
Drückbare Schaltflächen
Neben den einfachen zurücksetzen des Dokumentes (Reset), bieten diese Schaltflächen auch die Einreichung des Dokumentes an eine externe Website (Submit)
oder das ausführen eines Javascripts für komplexe Aufgaben.
Checkbox
Felder zum ankreuzen
Verbundene Checkbox (Radiobox)
Mehrere Felder zum ankreuzen eines Feldes
Auswahlbox (Combobox)
Eine Liste vordefinierter auswählbarer Einträge
Anmerkungen
Kommentar- und Hinweisfelder
Erstellung über Druckdateien
Die interaktiven Steuerelemente werden direkt über die Druckdatei von OBS hinzugefügt
Dafür können je nach Komplexität kosten zum anpassen der jeweiligen Drucke anfallen.
Beim Export von Durcken als PDF werden diese interaktiv. Sollte ein solcher Druck "normal" ausgedruckt werden, werden die Steuerelemte nach Möglichkeit zu druckbaren Elementen konvertiert.
Implementierung im Druck
Bei der Implementierung stehen folgende Funktionen zur Verfügung:
//Eingabefeld
qRep_PDFFormFieldEdit(EZ, 'EditField1', oValues);
//Nummerisches Feld
qRep_PDFFormFieldNumEdit(EZ, 'EditField2', oValues);
//Datumsfeld
qRep_PDFFormFieldDateEdit(EZ, 'EditField3', oValues);
//Schaltfläche
qRep_PDFFormFieldButton(EZ, 'Schaltfläche', oValues);
//Checkbox
qRep_PDFFormFieldCheckBox(EZ, 'CheckBox', oValues);
//Radiobutton
qRep_PDFFormFieldRadioButton(EZ, 'RadioButton1', oValues);
//Combobox
qRep_PDFFormFieldCombobox(EZ, 'Combobox', oValues);
//Kommentar
qRep_PDFFormFieldTextAnnot(EZ, 'TextAnot1', oValues);
Die spezifischen Eigenschaften der einzelnen Elemente werden über das oValues Objekt definiert und übergeben.
Dieses Objekt ist vom Typ "TFormFieldValue" und muss vor dem Hinzufügen der einzelnen Werte erstellt und am Ende wieder freigegeben werden.
Das Objekt bietet eine Reset Funktion, die alle Werte des Objekt auf Standard zurück setzt. Dadurch ist es möglich das Objekt mehrfach zu nutzen.
oValues := TFormFieldValue.Create(Rect(10, 10, 50, 20));
oValues.cValue := 'dies ist ein Textfeld';
oValues.lIsMultiline := False;
oValues.oFont.Size := 10;
qRep_PDFFormFieldEdit(EZ, 'EditField1', oValues);
oValues.Reset(Rect(10, 30, 26, 46));
oValues.lChecked := True;
qRep_PDFFormFieldCheckBox(EZ, 'CheckBox', oValues);
MyFreeAndNil(oValues);
Für das Create und Reset wird jeweils ein Rect übergeben, welches die Position im Dokument definiert
Rect(left, top, right, bottom)
oValues.Reset(Rect(qRep_SAnfang(EZ,'pk1'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'pk2'), qRep_Ypos(EZ,y+1)));
Verfügbare Werte
| Wert | Für Typ | Werte | Standard Wert | Beschreibung |
|---|---|---|---|---|
| aRect: TRect | alle | Rect für die Positionierung im Dokument | ||
| cPreferences: String | alle | 'afpreadonly'
'afprequired' |
[] | Definition des Feldes (nur Lesen oder ausfüllen erforderlich) |
| oBackgroundColor: TColor | alle | $FFD7CC | Farbe des Hintergrunds | |
| oBorderColor: TColor | alle | clBlack | Farbe dess Rahmens | |
| oFont: TFont | alle | oFont.Name := 'Arial';
oFont.Size := 10;
oFont.Color := clBlack;
|
Definition der Schriftart
(Schriftstile wie "Fett" oder Kursiv" werden wie folgt definiert):qSetRepStyle(EZ, [fsBold]);
oValues.Reset(Rect(10, 10, 30, 20));
qRep_PDFFormFieldEdit(EZ, 'Textfeld', oValues);
qSetRepStyle(EZ, []);
Die schriftart von Checkboxen und Radioboxen ist nicht änderbar | |
| lPrintable: Boolean | alle | True, False | True | True: Das Feld wird bei normalen Drucken angezeigt |
| cValue: String | Textfeld
Numerisches Feld Datumsfeld |
Der initialwert eines Feldes | ||
| cHAlignment: String | Textfeld
Numerisches Feld Datumsfeld |
'tacenter'
'taright' 'taleft' |
'taleft' | die Textausrichtung eines Feldes
mitte, rechts-, linksbündig |
| lIsMultiline: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Einzeilig oder mehrzeilige Felder |
| lIsPassword: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Anzeige von Punkten statt der Eingabe |
| lIsFileSelect: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Auswahl einer Datei zum speichern des Pfades |
| lIsDoNotSpellCheck: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Rechtschreibung für das Feld ignorieren |
| lIsDoNotScroll: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Keine Scrollbar anzeigen |
| lIsBorder: Boolean | Textfeld
Numerisches Feld Datumsfeld |
True, False | False | Rahmen anzeigen |
| nMaxLength: Integer | Textfeld
Numerisches Feld Datumsfeld |
-1 | Maximale länge der Eingabe | |
| nXTextOffsetPtn: Double | Textfeld
Numerisches Feld Datumsfeld Schaltflächen |
0 | Korrektur des anzuzeigenden Textes auf der X-Achse in Punkte
Für bestimmte Fonts kann es nötig sein diese anzupassen, da der Text nicht korrekt Positioniert wird | |
| nYTextOffsetPtn: Double | Textfeld
Numerisches Feld Datumsfeld Schaltflächen |
0 | Korrektur des anzuzeigenden Textes auf der Y-Achse in Punkte
Für bestimmte Fonts kann es nötig sein diese anzupassen, da der Text nicht korrekt Positioniert wird | |
| nBorderWidth: Integer | Schaltflächen | 1 | Rahmenbreite | |
| lVisible: Boolean | Schaltflächen | True, False | True | Sichbarkeit der Schaltfläche |
| cNormalCaption: String | Schaltflächen | Text bei normaler Anzeige der Schaltfläche | ||
| cRolloverCaption: String | Schaltflächen | cNormalCaption | Text beim berühren der Schaltfläche mit der Maus | |
| cDownCaption: String | Schaltflächen | cNormalCaption | Text beim betätigen der Schaltfläche | |
| cAction: String | Schaltflächen | 'pbaNone'
'pbasubmit' 'pbareset' 'pbajavascript' |
'pbaNone' | Typ der Schaltfläche |
| cJavaScript: String | Schaltflächen | Hinterlegtes Javascript bei Typ 'pbajavascript'cJavaScript := 'app.alert("Hello World")';
cJavaScript :=
' var tf1 = this.getField("tfName"); ' +
' var btn1 = this.getField("pbValidate"); ' +
' var btn2 = this.getField("pbSubmit"); ' +
' if (tf1.valueAsString.length > 3) { ' +
' tf1.value = tf1.valueAsString.toUpperCase(); ' +
' btn2.buttonSetCaption("Submit"); ' +
' btn1.display = display.hidden; ' +
' btn1.setFocus(); ' +
' } else { ' +
' app.alert("Please enter a valid name."); ' +
' tf1.setFocus(); ' +
' }';
| ||
| cSubmitURL: String | Schaltflächen | URL bei Typ 'pbasubmit'cSubmitURL :=
'http://www.bergau.de/200804/forms_test.asp';
| ||
| cFormSubmitFormat: String | Schaltflächen | 'fsfhtml'
'fsffdf' 'fsfxml' |
'fsfhtml' | Format der Einreichung |
| lAtleastOneSelectedItem: Boolean | Radiobox | True, False | False | Mindestens ein Feld muss ausgefüllt sein |
| AddRadioItem
(qr_printer: TQR_Printer; Rect:TRect) |
Radiobox | Methode zum hinzufügen von Werten | ||
| lChecked: Boolean | CheckBox
Radiobox |
True, False | False | Checkbox ist bei der Erstellung angehakt |
| cSymbol: String | CheckBox
Radiobox |
'pfcsCross'
'pfcscheck' 'pfcscircle' 'pfcsdiamond' 'pfcssquare' 'pfcsstar' |
'pfcsCross' | Symbol für die Checkbox |
| lIsEditable: Boolean | ComboBox | True, False | False | Einträge können hinzugefügt werden |
| lIsSortList: Boolean | ComboBox | True, False | False | Einträge werden Sortiert.
nSelectedItemIndex wird dann aber unter Umständen nicht mehr korrekt funktionieren |
| cBoxItems: String | ComboBox | Einträge der Combobox | ||
| nSelectedItemIndex: Integer | ComboBox
Radiobox |
-1 | vorausgewählter Eintrag | |
| cTitel: String | Anmerkungen | Titel der Anmerkung | ||
| cSubject: String | Anmerkungen | Betreff der Anmerkung | ||
| cContents: String | Anmerkungen | Inhalt der Anmerkung | ||
| lOpen: Boolean | Anmerkungen | True, False | False | Anmerkung wird beim öffnen des PDF angezeigt |
| cTyp: String | Anmerkungen | 'tncomment'
'tninsert' 'tnparagraph' tnnewparagraph' 'tnhelp' 'tnnote' 'tnkey' |
'tncomment' | Typ der Anmerkung |
Beispiele
Reparaturauftrag
procedure Kopf();
var cBuffer : String;
cLK : String;
cOrt : String;
cPLZ : String;
cVorname : String;
cName : String;
oValues : TFormFieldValue;
procedure _printText(nVon, nBis: Integer; cName: String);
begin
oValues.Reset(Rect(nVon, qRep_Ypos(EZ, y), nBis - 10, qRep_Ypos(EZ, y+1)));
qRep_PDFFormFieldEdit(EZ, cName, oValues);
y := y + 1;
qx_PrintLine(EZ, nVon, qRep_Ypos(EZ, y), nBis - 10, qRep_Ypos(EZ, y), 5);
y := y - 1;
end;
begin
with EZ do begin
oValues := TFormFieldValue.Create();
cBuffer := '';
qSetRepFontSize(EZ,iFontgroesse+4);
qSetRepStyle(EZ,[fsBold]);
qSetRepStyle(EZ,[]);
qSetRepFontSize(EZ,iFontgroesse);
y := 1;
qSetRepStyle(EZ,[fsBold]);
qRep_Stext(EZ,'pk1','Reparaturauftragsnr.: '+A_Query.A2C('a_nr'),qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4','Maschine / Fabrikat / Modell',qRep_Ypos(EZ,y));
qSetRepStyle(EZ,[]);
y := y + 1;
cVorname := A_Query.A2C('a_vorname');
cName := A_Query.A2C('a_name');
if (not(empty(cVorname))) then begin
cBuffer := cVorname + ' ';
end;
if (not(empty(cName))) then begin
cBuffer := cBuffer + cName;
end;
cBuffer := cBuffer + ' ('+A_Query.A2C('a_knr')+')';
qSetRepStyle(EZ,[fsBold]);
qRep_Stext(EZ,'pk1',cBuffer,qRep_Ypos(EZ,y));
qSetRepStyle(EZ,[]);
cBuffer := '';
qRep_Stext(EZ,'pk4',A_Query.A2C('a_geraet')+' '+A_Query.A2C('a_modell'),qRep_Ypos(EZ,y));
y := y + 1;
if (not(empty(A_Query.A2C('a_zusatz1')))) then begin
cBuffer := cBuffer + A_Query.A2C('a_zusatz1');
end;
qRep_Stext(EZ,'pk1',cBuffer,qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4','Seriennummer : '+A_Query.A2C('a_sernr'),qRep_Ypos(EZ,y));
y := y + 1;
qRep_Stext(EZ,'pk4','Auftragsdatum : '+A_Query.A2C('a_datum'),qRep_Ypos(EZ,y));
if (not(empty(A_Query.A2C('a_zusatz2')))) then begin
cBuffer := cBuffer + A_Query.A2C('a_zusatz2');
qRep_Stext(EZ,'pk1',cBuffer,qRep_Ypos(EZ,y));
end;
y := y + 1;
qRep_Stext(EZ,'pk1',A_Query.A2C('a_strasse'),qRep_Ypos(EZ,y));
y := y + 1;
cBuffer := '';
cLK := A_Query.A2C('a_LK');
cPLZ := A_Query.A2C('a_PLZ');
cOrt := A_Query.A2C('a_Ort');
if (not(empty(cLK))) then begin
cBuffer := cLK + ' ';
end;
if (not(empty(cPLZ))) then begin
cBuffer := cBuffer + cPLZ + ' ';
end;
if (not(empty(cOrt))) then begin
cBuffer := cBuffer + cOrt;
end;
qRep_Stext(EZ,'pk1',cBuffer,qRep_Ypos(EZ,y));
cBuffer := '';
qRep_Stext(EZ,'pk4','Fehlerangabe : '+A_Query.A2C('a_stoer1'),qRep_Ypos(EZ,y));
y := y + 1;
qRep_Stext(EZ,'pk1','Abteilung : '+A_Query.A2C('a_standort'),qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4',' ' +A_Query.A2C('a_stoer2'),qRep_Ypos(EZ,y));
y := y + 1;
qRep_Stext(EZ,'pk1','Telefon : '+A_Query.A2C('a_tel1'),qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4',' '+A_Query.A2C('a_stoer3'),qRep_Ypos(EZ,y));
y := y + 1;
qRep_Stext(EZ,'pk1','Termin : ' +A_Query.A2C('a_terminstr'),qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4','Ersatzgerät : '+A_Query.A2C('a_leih'),qRep_Ypos(EZ,y));
y := y + 1;
qRep_Stext(EZ,'pk1','Ansprechpartner : '+A_Query.A2C('a_anspr'),qRep_Ypos(EZ,y));
y := y + 1;
oValues.Reset();
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk4')+50, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk4') + 12 + 50, qRep_Ypos(EZ,y+1)-2));
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk4')+83, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk4') + 12 + 83, qRep_Ypos(EZ,y+1)-2));
oValues.lAtleastOneSelectedItem := False;
if (A_Query.A2C('a_mgar') <> '1') then begin
oValues.nSelectedItemIndex := -1;
end else begin
oValues.nSelectedItemIndex := 0;
end;
qRep_PDFFormFieldRadioButton(EZ, 'Garantie', oValues);
qRep_Stext(EZ,'pk4','Garantie Ja Nein',qRep_Ypos(EZ,y));
oValues.Reset();
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk1')+110, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk1') + 12 + 110, qRep_Ypos(EZ,y+1)-2));
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk1')+143, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk1') + 12 + 143, qRep_Ypos(EZ,y+1)-2));
oValues.lAtleastOneSelectedItem := False;
if (A_Query.A2C('a_mkv') <> '1') then begin
oValues.nSelectedItemIndex := -1;
end else begin
oValues.nSelectedItemIndex := 0;
end;
qRep_PDFFormFieldRadioButton(EZ, 'Kostenvoranschlag', oValues);
y := y - 0.1;
_printText(qRep_SAnfang(EZ, 'pk1') + 190, qRep_SAnfang(EZ, 'pk1') + 280, 'KostenvoranschlagBetr');
y := y + 0.1;
qRep_Stext(EZ,'pk1','Kostenvoranschlag Ja Nein €',qRep_Ypos(EZ,y));
oValues.Reset();
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk5')+90, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk5') + 12 + 90, qRep_Ypos(EZ,y+1)-2));
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk5')+123, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk5') + 12 + 123, qRep_Ypos(EZ,y+1)-2));
oValues.lAtleastOneSelectedItem := False;
if (A_Query.A2C('a_mwart') <> '1') then begin
oValues.nSelectedItemIndex := -1;
end else begin
oValues.nSelectedItemIndex := 0;
end;
qRep_PDFFormFieldRadioButton(EZ, 'ServiceVertrag', oValues);
qRep_Stext(EZ,'pk5','Service-Vertrag Ja Nein',qRep_Ypos(EZ,y));
y := y + 1;
oValues.Reset(Rect(qRep_SAnfang(EZ,'pk4'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'pk4') + 12, qRep_Ypos(EZ,y+1) -2));
qRep_PDFFormFieldCheckBox(EZ, cName, oValues);
qRep_Stext(EZ,'pk4',' Kulanz',qRep_Ypos(EZ,y));
qSetRepStyle(EZ,[fsBold]);
qRep_Stext(EZ,'pk5','Service-Nr. : '+A_Query.A2C('a_gnr'),qRep_Ypos(EZ,y));
qSetRepStyle(EZ,[]);
y := y + 1;
oValues.Reset();
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk4'), qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk4') + 12, qRep_Ypos(EZ,y+1)-2));
oValues.AddRadioItem(EZ, Rect(qRep_SAnfang(EZ,'pk4') + 58, qRep_Ypos(EZ,y)+1, qRep_SAnfang(EZ,'pk4') + 12 + 58, qRep_Ypos(EZ,y+1)-2));
oValues.lAtleastOneSelectedItem := False;
qRep_PDFFormFieldRadioButton(EZ, 'ET', oValues);
qRep_Stext(EZ,'pk4',' nur ET ohne ET',qRep_Ypos(EZ,y));
y := y +1;
qRep_Stext(EZ,'pk1','Modell:',qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk2','Seriennummer:',qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk4','Zählerstand bk:',qRep_Ypos(EZ,y));
qRep_Stext(EZ,'pk5','Zählerstand color:',qRep_Ypos(EZ,y));
y := y + 2;
_printText(qRep_SAnfang(EZ, 'pk1'), qRep_SAnfang(EZ, 'pk2'), 'Modell');
_printText(qRep_SAnfang(EZ, 'pk2'), qRep_SAnfang(EZ, 'pk4'), 'Seriennummer');
_printText(qRep_SAnfang(EZ, 'pk4'), qRep_SAnfang(EZ, 'pk5'), 'ZaehlerBK');
_printText(qRep_SAnfang(EZ, 'pk5'), iRechterRand, 'ZaehlerColor');
y := y + 2;
// Rep-Text
qRep_Stext(EZ,'pk1','Rep.Text',qRep_Ypos(EZ,y));
y := y + 1;
//MultiLine
oValues.Reset(Rect(qRep_SAnfang(EZ, 'pk1'), qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y+6)));
oValues.cValue := '';
oValues.lIsMultiline := True;
qRep_PDFFormFieldEdit(EZ, 'RepText', oValues);
y := y + 6;
MyFreeAndNil(oValues);
end;
end;
Dokument (Antrag)
procedure Positionen();
var yStart : Double;
yStart2 : Double;
oValues : TFormFieldValue;
nCheckOffset: Integer;
nCheckboxGap: Integer;
cTmp : String;
procedure _printCheckbox(cName: String);
begin
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2') + nCheckboxGap + nCheckOffset, qRep_Ypos(EZ,y) + nCheckOffset, qRep_SAnfang(EZ,'s2') + 12 + nCheckboxGap + nCheckOffset, qRep_Ypos(EZ,y+1) -2 + nCheckOffset));
oValues.oFont.Size := 10;
qRep_PDFFormFieldCheckBox(EZ, cName, oValues);
end;
begin
yStart := y;
qSetRepFontSize(EZ,iFontgroesse);
y := y + 0.5;
// Name
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '1', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' Name (as shown on your income tax return). Name is requered on this line; do not leave this blank.', qRep_Ypos(EZ, y));
y := y + 0.6;
qSetRepStyle(EZ, [fsBold]);
oValues := TFormFieldValue.Create(Rect(qRep_SAnfang(EZ,'s2'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3') - 5, qRep_Ypos(EZ,y+1)));
oValues.cValue := 'John Doe';
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Name', oValues);
qSetRepStyle(EZ, []);
y := y - 1;
//Sec Number
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's3', 'Social security number', qRep_Ypos(EZ, y));
qSetRepStyle(EZ, []);
y := y + 0.6;
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+12, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec1', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3') + 12, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+24, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec2', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+24, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+36, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec3', oValues);
qSetRepStyle(EZ, [fsBold]);
qRep_Text(EZ, qRep_SAnfang(EZ,'s3') + 38, qRep_Ypos(EZ,y + 0.3), '-');
qSetRepStyle(EZ, []);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+42, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+54, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec4', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+54, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+66, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec5', oValues);
qSetRepStyle(EZ, [fsBold]);
qRep_Text(EZ, qRep_SAnfang(EZ,'s3') + 68, qRep_Ypos(EZ,y + 0.3), '-');
qSetRepStyle(EZ, []);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+72, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+84, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec6', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+84, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+96, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec7', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+96, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+108, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec8', oValues);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3')+108, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')+120, qRep_Ypos(EZ,y+1)));
oValues.lIsBorder := True;
oValues.nMaxLength := 1;
qRep_PDFFormFieldNumEdit(EZ, 'Sec9', oValues);
y := y + 1.4;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s2') - 2, qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y), 5);
// Business Name
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '2', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' Business name/disregarded entity name, if different from above', qRep_Ypos(EZ, y));
y := y + 0.6;
qSetRepStyle(EZ, [fsBold]);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2'), qRep_Ypos(EZ,y), iRechterRand, qRep_Ypos(EZ,y+1)));
oValues.cValue := 'Ernst Bergau GmbH';
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Business', oValues);
qSetRepStyle(EZ, []);
y := y + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s2') - 2, qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y), 5);
yStart2 := y;
// checkboxes Text
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '3', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' Check appropriate box for federal tax classification; check only one of the seven boxes:', qRep_Ypos(EZ, y));
y := y + 0.8;
// checkboxes
nCheckOffset := 3;
nCheckboxGap := 0;
_printCheckbox('CheckBox1');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20, qRep_Ypos(EZ,y + 0.3), 'Individual/sole proprietor or');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20, qRep_Ypos(EZ,y + 0.9), 'single-member LLC');
//----
nCheckboxGap := 150;
_printCheckbox('CheckBox2');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'C Corporation');
//----
nCheckboxGap := 250;
_printCheckbox('CheckBox3');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'S Corporation');
//----
nCheckboxGap := 350;
_printCheckbox('CheckBox4');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'Partnership');
//----
nCheckboxGap := 450;
_printCheckbox('CheckBox5');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'Trust/estate');
y := y + 2;
//----
nCheckboxGap := 0;
_printCheckbox('CheckBox6');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'Limeted liability company. Enter the Tax classification (C=C corporation, S=S corporation. P=partnership)');
y := y + 0.1;
cTmp := qSetRepFont(EZ, 'Webdings');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 460 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), '4');
QSetRepFont(EZ, cTmp);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2') + 470, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s4') - 10, qRep_Ypos(EZ,y+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Limited1', oValues);
y := y + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s2') + 470, qRep_Ypos(EZ, y), qRep_SAnfang(EZ,'s4') - 10, qRep_Ypos(EZ, y), 5);
//----
y := y + 0.5;
qSetRepStyle(EZ, [fsBold]);
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20, qRep_Ypos(EZ,y), 'Note.');
qSetRepStyle(EZ, []);
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20, qRep_Ypos(EZ,y), ' For a single-member LLC that is disregarded, do not check LLC; check the appropriate boy in the line above for');
y := y + 0.6;
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20, qRep_Ypos(EZ,y), 'the tax classification of the single-member owner.');
y := y + 0.9;
//----
_printCheckbox('Other');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 20 + nCheckboxGap, qRep_Ypos(EZ,y + 0.3), 'Other (see instructions)');
y := y + 0.1;
cTmp := qSetRepFont(EZ, 'Webdings');
qRep_Text(EZ, qRep_SAnfang(EZ,'s2') + 120 + nCheckboxGap, qRep_Ypos(EZ,y + 0.2), '4');
QSetRepFont(EZ, cTmp);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2') + 130, qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s4') - 10, qRep_Ypos(EZ,y+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Other1', oValues);
y := y + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ, 's2') - 2, qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y), 5);
qx_PrintLine(EZ, qRep_SAnfang(EZ, 's4')-3, qRep_Ypos(EZ, yStart2), qRep_SAnfang(EZ, 's4')-3, qRep_Ypos(EZ, y), 5);
// Exceptions
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's4', '4', qRep_Ypos(EZ, yStart2));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's4', ' Exeptions (codes apply only to', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 + 0.6;
qRep_Stext(EZ, 's4', 'certain entities, not individuals; see', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 + 0.6;
qRep_Stext(EZ, 's4', 'instructions on page 3):', qRep_Ypos(EZ, yStart2));
//Payee code
yStart2 := yStart2 + 0.8;
qRep_Stext(EZ, 's4', 'Exempt payee code (if any)', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 - 0.2;
oValues.Reset(Rect(qRep_SAnfang(EZ,'s4')+120, qRep_Ypos(EZ,yStart2), iRechterRand, qRep_Ypos(EZ,yStart2+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Payee', oValues);
yStart2 := yStart2 + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s4') +120, qRep_Ypos(EZ, yStart2), iRechterRand, qRep_Ypos(EZ, yStart2), 5);
yStart2 := yStart2 + 0.3;
qRep_Stext(EZ, 's4', 'Exemption from FATCA reporting', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 + 0.9;
qRep_Stext(EZ, 's4', 'code (if any)', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 - 0.2;
oValues.Reset(Rect(qRep_SAnfang(EZ,'s4')+70, qRep_Ypos(EZ,yStart2), iRechterRand, qRep_Ypos(EZ,yStart2+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'FATCA', oValues);
yStart2 := yStart2 + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s4') +70, qRep_Ypos(EZ, yStart2), iRechterRand, qRep_Ypos(EZ, yStart2), 5);
yStart2 := yStart2 + 0.5;
qSetRepFontSize(EZ,4);
qRep_Stext(EZ, 's4', '(Applied to accounts managed outside the U.S.)', qRep_Ypos(EZ, yStart2));
qSetRepFontSize(EZ,iFontgroesse);
yStart2 := y;
// Address
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '5', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' Address (number, street, and apt. or suit no)', qRep_Ypos(EZ, y));
y := y + 0.6;
qSetRepStyle(EZ, [fsBold]);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3') - 1, qRep_Ypos(EZ,y+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Address', oValues);
qSetRepStyle(EZ, []);
y := y + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s2') - 2, qRep_Ypos(EZ, y), qRep_SAnfang(EZ,'s3'), qRep_Ypos(EZ, y), 5);
// City
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '6', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' City, state, and ZIP code', qRep_Ypos(EZ, y));
y := y + 0.6;
qSetRepStyle(EZ, [fsBold]);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2'), qRep_Ypos(EZ,y), qRep_SAnfang(EZ,'s3')-1, qRep_Ypos(EZ,y+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'City', oValues);
qSetRepStyle(EZ, []);
y := y + 1;
qx_PrintLine(EZ, qRep_SAnfang(EZ,'s2') - 2, qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y), 5);
//Requester
qRep_Stext(EZ, 's3', 'Requester''s name and address (optional)', qRep_Ypos(EZ, yStart2));
yStart2 := yStart2 + 0.6;
oValues.Reset(Rect(qRep_SAnfang(EZ,'s3') +1 , qRep_Ypos(EZ,yStart2), iRechterRand, qRep_Ypos(EZ,y)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
oValues.lIsMultiline := True;
qRep_PDFFormFieldEdit(EZ, 'Requester', oValues);
qx_PrintLine(EZ, qRep_SAnfang(EZ, 's3'), qRep_Ypos(EZ, yStart2-0.6), qRep_SAnfang(EZ, 's3'), qRep_Ypos(EZ, y), 5);
// Accountnumber
qSetRepStyle(EZ, [fsBold]);
qRep_Stext(EZ, 's2', '7', qRep_Ypos(EZ, y));
qSetRepStyle(EZ,[]);
qRep_Stext(EZ, 's2', ' List account number(s) here (optional)', qRep_Ypos(EZ, y));
y := y + 0.6;
qSetRepStyle(EZ, [fsBold]);
oValues.Reset(Rect(qRep_SAnfang(EZ,'s2'), qRep_Ypos(EZ,y), iRechterRand, qRep_Ypos(EZ,y+1)));
oValues.oFont.Size := iFontgroesse + 2;
oValues.lIsBorder := False;
qRep_PDFFormFieldEdit(EZ, 'Accountnumber', oValues);
qSetRepStyle(EZ, []);
y := y + 1;
qx_PrintLine(EZ, iLinkerRand, qRep_Ypos(EZ, y), iRechterRand, qRep_Ypos(EZ, y), 5);
qx_PrintLine(EZ, qRep_SAnfang(EZ, 's2')-2, qRep_Ypos(EZ, yStart), qRep_SAnfang(EZ, 's2')-2, qRep_Ypos(EZ, y), 5);
y := y + 1;
MyFreeAndNil(oValues);
end;