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

Formuare, Fremdrechnungen, cFakt.

Browse Source
This commit is contained in:
d.breimaier
2025-01-22 16:19:12 +01:00
parent 5c83a1649a
commit 2e55215581
5 changed files with 234 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1869,6 +1869,8 @@ Public Class FormularManagerNEU
Case "name4" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name5" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "steuernrbez_hr" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.cbxLandKz._value = "BIH", "PDV BROJ ", "PIB ") 'nur bei HR-Vollmacht!
Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
Case "address1" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
Case "address2" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '