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

FaktEmail, MDM Fakturierung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-01-24 13:47:53 +01:00
parent 051f557c40
commit ade700f0b1
16 changed files with 2967 additions and 1985 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2111,10 +2111,10 @@ Public Class FormularManagerNEU
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, "")
Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf((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((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((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