edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FaktMail, MDM-Vollmachten, MDM-Auswertung

Browse Source
This commit is contained in:
d.breimaier
2025-01-14 18:21:58 +01:00
parent 8616ce1735
commit 481ab094de
17 changed files with 989 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -2098,18 +2098,27 @@ Public Class FormularManagerNEU
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_BIC1.Replace("BIC:", ""), FIRMA_DE.Firma_BIC1.Replace("BIC:", ""))
Case "place_date" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""), "")
Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_anschrift")), dtKundenBank.Rows(0).Item("bnk_anschrift"), "")
Case "iban" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_iban")), dtKundenBank.Rows(0).Item("bnk_iban"), "")
Case "bic" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_bic")), dtKundenBank.Rows(0).Item("bnk_bic"), "")
Case "name1" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1, usrCntl.txtFirma.Text, "")
End Select
Next
If dtKundenBank.Rows.Count > 0 Then
For Each item In odoc.FormFields
Dim fieldName = item.Name.ToLower().Trim()
Select Case fieldName
Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_anschrift") AndAlso dtKundenBank.Rows(0).Item("bnk_anschrift") IsNot Nothing), dtKundenBank.Rows(0).Item("bnk_anschrift"), "")
Case "iban" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_iban") AndAlso dtKundenBank.Rows(0).Item("bnk_iban") IsNot Nothing), dtKundenBank.Rows(0).Item("bnk_iban"), "")
Case "bic" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_bic") AndAlso dtKundenBank.Rows(0).Item("bnk_bic") IsNot Nothing), dtKundenBank.Rows(0).Item("bnk_bic"), "")
Case "name1" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1, usrCntl.txtFirma.Text, "")
End Select
Next
End If
For Each s As Microsoft.Office.Interop.Word.Section In odoc.Sections
For Each header As Microsoft.Office.Interop.Word.HeaderFooter In s.Headers
For Each img_word As Microsoft.Office.Interop.Word.Shape In header.Shapes