Hallo Leute,
also mich hatte das Thema einfach nicht losgelassen und ich habe jetzt einmal in VBNet mein Programm um die Erstellung einer Einzugsermächtigung für das Finanzamt erweitert. Jetzt kann ich mit Daten aus meiner Datenbank per Mausklick eine Einzugsermächtigung für das Finanzamt erstellen.
Erstellt habe ich das ganze mit Itext und das hat insgesamt ca. 5 Stunden gedauert. Dabei hat die Onlinerecherche die meiste Zeit gekostet. Da ich die Schnittstellen global definiert habe, kann ich jetzt auf einfachste Art und Weise "sämtliche" PDF-Formulare interaktiv befüllen. Das könnte man noch über ein Datenbank mit allen PDF-Formularen machen. Das ist ein Fleißarbeit, aber relativ simpel machbar.
Nur zur Veranschaulichung wie "banal" das ist:
Public Enum PDF_FieldType
enFIELD_TYPE_ALLTYPES = -1
enFIELD_TYPE_NONE = 0
enFIELD_TYPE_PUSHBUTTON = 1
enFIELD_TYPE_CHECKBOX = 2
enFIELD_TYPE_RADIOBUTTON = 3
enFIELD_TYPE_TEXT = 4
enFIELD_TYPE_LIST = 5
enFIELD_TYPE_COMBO = 6
enFIELD_TYPE_SIGNATURE = 7
End Enum
' --------------------------------------------------------------------------------------------------------
' Code element name: ListFieldNames
' Code element kind: Function
' Parameters:
' FieldType (PDF_FieldType): Type von Formularfeldrn (Text, Checkbox etc.)
' Purpose: Auslesen aller Felder aus einem PDF-Formular
' --------------------------------------------------------------------------------------------------------
Public Function ListFieldNames(Optional FieldType As PDF_FieldType = PDF_FieldType.enFIELD_TYPE_ALLTYPES) As List(Of PdfField)
10: Dim TempFilename As String = Path.GetTempFileName()
20: Dim pdfReader As PdfReader = New PdfReader(PdfSource)
30: Dim stamper As PdfStamper = New PdfStamper(pdfReader, New FileStream(TempFilename, FileMode.Create), CChar(vbNullChar), True)
40: Dim fields As AcroFields = stamper.AcroFields
50: Dim pdfFormFields As AcroFields = pdfReader.AcroFields
60: Dim _FormFields As PdfField = Nothing
70: Dim _ListFields As New List(Of PdfField)
80: For Each kvp As KeyValuePair(Of String, AcroFields.Item) In fields.Fields
90: _FormFields.FieldName = kvp.Key.ToString
100: _FormFields.FieldValue = stamper.AcroFields.GetField(_FormFields.FieldName)
110: _FormFields.FieldType = stamper.AcroFields.GetFieldType(_FormFields.FieldName)
120: If FieldType >= 0 Then
130: If FieldType = AcroFields.FIELD_TYPE_TEXT Then
140: _ListFields.Add(_FormFields)
150: End If
160: Else
170: _ListFields.Add(_FormFields)
180: End If
190: Next
200: stamper.Close()
210: pdfReader.Close()
220: ListFieldNames = _ListFields
End Function
' --------------------------------------------------------------------------------------------------------
' Code element name: SetListFieldValue
' Code element kind: Sub
' Parameters:
' myList (List(Of EMA.PdfField)): List of mit allen Feldern (Type, Name, Value)
' sFieldName (String) : Name des Formularfeldes
' sFieldValue (String) : Wert des Formularfeldes
' Purpose: List of mit Feldnamen um Werte ergänzen
' --------------------------------------------------------------------------------------------------------
Public Sub SetListFieldValue(myList As List(Of PdfField), sFieldName As String, sFieldValue As String)
Dim _ListFields As PdfField = Nothing
For i As Integer = 0 To myList.Count
If myList(i).FieldName = sFieldName Then
_ListFields.FieldType = myList(i).FieldType
_ListFields.FieldValue = sFieldValue
_ListFields.FieldName = sFieldName
myList.RemoveAt(i)
myList.Add(_ListFields)
Exit For
End If
Next
End Sub
' --------------------------------------------------------------------------------------------------------
' Code element name: FillForm
' Code element kind: Function
' Parameters:
' ListFields (List(Of EMA.PdfField)): List of () mit Formularfeld-Namen und -Werten
' Purpose: neues PDF erstellen und befüllen
' --------------------------------------------------------------------------------------------------------
Public Function FillForm(ListFields As List(Of PdfField)) As Boolean
10: Dim pdfReader As New PdfReader(PdfSource)
20: Dim pdfStamper As New PdfStamper(pdfReader, New FileStream(PdfTarget, FileMode.Create))
30: Dim pdfFormFields As AcroFields = pdfStamper.AcroFields
40: Try
50: For i As Integer = 0 To ListFields.Count
60: If ListFields(i).FieldValue.Length > 0 Then
70: pdfFormFields.SetField(ListFields(i).FieldName, ListFields(i).FieldValue)
80: End If
90: Next
100: pdfStamper.FormFlattening = False
' close the pdf
110: pdfStamper.Close()
120: Return True
130: Catch ex As Exception
140: MsgBox("Fehlernr.: " & Err.Number & " (" & Err.Description & ") in Prozedur $P[CODE_ELEMENT_NAME] von Modul $P[PARENT_CODE_ELEMENT_FULL_NAME]", , "Fehler in Zeile: " & Erl())
150: Return False
160: Finally
' close the pdf
170: pdfStamper.Close()
180: End Try
End Function
Und befüllt wird das ganze wie folgt:
Private Sub ChkEinzug_CheckedChanged(sender As Object, e As EventArgs) Handles ChkEinzug.CheckedChanged
If blnNoRefresh = True Then Exit Sub
If ChkEinzug.CheckState = CheckState.Checked Then
If MsgBox("Möchten Sie das Formular Einzugsermächtigung erstellen?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Einzugsermächtigung FA") = MsgBoxResult.Yes Then
TabUnterverzeichnis.SelectedIndex = 1 'Immer letztes Jahr auswählen
Dim listFields As List(Of PdfField) = Nothing
Dim BuBa As DataRow = GetFABundesland(TxtIDBundesland.Text)
Dim myPdf As New PDFTools
myPdf.PdfSource = "D:\Users\Büro\Documents\Jahresabschluss\[...]\Finanzamt\Einzugsermächtigung.pdf"
myPdf.PdfTarget = IO.Path.Combine(GetMdPfad(DataGridView1, TabUnterverzeichnis, False), "Einzugsermächtigung.pdf")
listFields = myPdf.ListFieldNames(PDF_FieldType.enFIELD_TYPE_TEXT)
myPdf.SetListFieldValue(listFields, "Name", txtVornameEM.Text & " " & txtNameEM.Text.ToString)
myPdf.SetListFieldValue(listFields, "Straße", txtStrasse.Text)
myPdf.SetListFieldValue(listFields, "PLZ", txtPLZ.Text)
myPdf.SetListFieldValue(listFields, "Ort", txtOrt.Text)
myPdf.SetListFieldValue(listFields, "IBAN", txtIBAN.Text.Replace(" ", ""))
myPdf.SetListFieldValue(listFields, "Name_Bank", txtBankname.Text)
myPdf.SetListFieldValue(listFields, "BIC", txtBIC.Text)
myPdf.SetListFieldValue(listFields, "Ort_2", txtOrt.Text)
myPdf.SetListFieldValue(listFields, "Datum", String.Concat(Now.Day.ToString("00"), Now.Month.ToString("00"), Now.Year.ToString("0000")))
myPdf.SetListFieldValue(listFields, "StNr", txtStNr.Text)
myPdf.SetListFieldValue(listFields, "FA_Name", txtFAName.Text)
myPdf.SetListFieldValue(listFields, "FA_Strasse", txtFAStr.Text)
myPdf.SetListFieldValue(listFields, "FA_Ort", String.Concat(txtFAPLZ.Text, " ", txtFAOrt.Text))
myPdf.SetListFieldValue(listFields, "Bundesland", BuBa.Item(1).ToString)
myPdf.SetListFieldValue(listFields, "GläubigerID", BuBa.Item(3).ToString)
myPdf.FillForm(listFields)
End If
End If
20: Dim foundRows() As Data.DataRow
Dim sSearch As String = "SEQ =" & "'" & _GetMdNr() & "'"
40: foundRows = myDataSet.Tables("MANDANT").Select(sSearch)
50: With foundRows(0)
60: .BeginEdit()
.Item("EinzugFA") = ChkEinzug.CheckState
80: .EndEdit()
90: End With
100: Dim strSQL As String = ""
120: strSQL = "Update Mandant Set EinzugFA = ? WHERE (MANDANT.SEQ=" & foundRows(0).Item("SEQ").ToString & ");"
myOleDbConnection.Open()
130: Dim cmd = New OleDbCommand(strSQL, myOleDbConnection)
'Eigene Tabelle
140: With cmd.Parameters
.Add("@EinzugFA", OleDbType.Boolean).Value = foundRows(0).Item("EinzugFA")
160: End With
70: cmd.ExecuteNonQuery()
myOleDbConnection.Close()
End Sub
Man könnte jetzt noch die "ListFieldNames" noch um eine Funktion erweitern, dass sämtliche Formularfelder in einer Datenbank gespeichert werden, damit man die Formulare nicht jedesmal auslesen muss:
<Database>
[tblFormField]
[ID]=Index
[FormName]=Name der Pdf-Datei (oder als Fremdkey)
[FieldName]=Name des Formularfeldes
[FieldType]=Type des Formularfeldes (String, Checkbox etc.)
ID | FormName | FieldName | FieldTyp
1 | my.Pdf | MdName | 4 (Text)
Fazit:
Es ist echt traurig und eine echte schande das DATEV das nicht selber hinbekommt.
Das ganze ist wie gesagt auch lösbar mit einer sog. fdf-Datei (enhält die Formularnamen und Werte). Diese fdf-Datei könnte man auch selbst z. B. über Excel beschreiben und als Basis mit Pdftk verwenden.
<Auszug: Einzugsermächtigung.fdf>
'Einfach Export Formulardaten
%FDF-1.4
%âãÏÓ
1 0 obj
<<
/FDF <<
/F (Einzugsermächtigung.pdf)
/ID [(² ³þuÅN’Lí]æ†) (53”¥KxBµÍyÞHKt)]
/UF (Einzugsermächtigung.pdf)
/Type /Catalog
/Fields [<<
/T (Name)
/V (@MdName@)
>> <<
/T (Straße)
/V (@MdStrasse@)
>> <<
/T (PLZ)
/V (@MdPlz@)
</Einzugsermächtigung.pdf>
Die fdf-Datei kann in jedem Editor geöffnet und beareitet werden. Die Dummywerte @MdName@ kann man jetzt einfach z. B. mit VB(A) durch Replace ersetzten und wieder alles als fdf-Datei speichern. Alles einfach zu machen mit Pdftk
'create fdf
pdftk form.pdf generate_fdf output data.fdf
'fill form
pdftk form.pdf fill_form data.fdf output form_with_data.pdf
'[ flatten ]
'Use this option to merge an input PDF’s interactive form fields
'(and their 'data) with the PDF’s pages. Only one input PDF can
'be given. Sometimes used with the fill_form operation.
Falls einer mehr Interesse hat, kann sich ja melden.
Ich wollte einfach nur aufzeigen, wie einfach alles sein kann.
Gruß Achilleus
