Aktuelle Version vom 20. Juni 2024, 21:11 Uhr

Makros und Scripting

Beispiele

Beispiele Sammlung

Benutzerdefinierte Datenbanktabellen

Developer

Beispiele

Sonstiges

DMS Abkürzungen

Interaktive PDF

Interaktive PDF sind PDF Dokumente, die es erlauben bestimmte Werte direkt einzutragen oder zu ändern.

OBS bietet 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 und erspart Ihnen eine manuelle Datenerfassung.

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, []); Ausnahmen: 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;

OBS/Makros und Scripting/Anwendungsbereiche/interaktive PDF: Unterschied zwischen den Versionen

Aktuelle Version vom 20. Juni 2024, 21:11 Uhr

Inhaltsverzeichnis

Interaktive PDF

Besonderheiten PDF/A

Mögliche Steuerelemente

Eingabefled/Textfeld

Numerische Felder

Datumsfelder

Schaltfläche

Checkbox

Verbundene Checkbox (Radiobox)

Auswahlbox (Combobox)

Anmerkungen

Erstellung über Druckdateien

Implementierung im Druck

Verfügbare Werte

Beispiele

Reparaturauftrag

Dokument (Antrag)

Navigationsmenü

OBS/Makros und Scripting/Anwendungsbereiche/interaktive PDF: Unterschied zwischen den Versionen

Aktuelle Version vom 20. Juni 2024, 21:11 Uhr

Interaktive PDF

Besonderheiten PDF/A

Mögliche Steuerelemente

Eingabefled/Textfeld

Numerische Felder

Datumsfelder

Schaltfläche

Checkbox

Verbundene Checkbox (Radiobox)

Auswahlbox (Combobox)

Anmerkungen

Erstellung über Druckdateien

Implementierung im Druck

Verfügbare Werte

Beispiele

Reparaturauftrag

Dokument (Antrag)

Navigationsmenü

Suche