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

Grundlegender Programmaufbau

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-22 09:13:57 +01:00
parent 627f48826e
commit 809ce03a15
9 changed files with 1017 additions and 280 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -959,7 +959,7 @@ Public Class usrCntlFaktAbrechnung
End If
cboSammelrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Sammelrechnung, ""))
cboWaehrungUmrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Währungscode, ""))
cboVorauskasse.changeItem(CInt(kdFirmaAbsender.KdData_KUNDE.Vorkasse))
cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAbsender.KdData_KUNDE.Vorkasse))
End If
Case "2"
kdFirmaRechnungAn.KdNr = kdFirmaEmpfaenger.KdNr
@@ -976,7 +976,7 @@ Public Class usrCntlFaktAbrechnung
End If
cboSammelrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Sammelrechnung, ""))
cboWaehrungUmrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Währungscode, ""))
cboVorauskasse.changeItem(CInt(kdFirmaEmpfaenger.KdData_KUNDE.Vorkasse))
cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaEmpfaenger.KdData_KUNDE.Vorkasse))
End If
Case "3"
kdFirmaRechnungAn.KdNr = kdFirmaAuftraggeber.KdNr
@@ -993,7 +993,7 @@ Public Class usrCntlFaktAbrechnung
End If
cboSammelrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Sammelrechnung, ""))
cboWaehrungUmrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Währungscode, ""))
cboVorauskasse.changeItem(CInt(kdFirmaAuftraggeber.KdData_KUNDE.Vorkasse))
cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAuftraggeber.KdData_KUNDE.Vorkasse))
End If
Case "4"
kdFirmaRechnungAn.KdNr = kdFirmaAvisierer.KdNr
@@ -1007,7 +1007,7 @@ Public Class usrCntlFaktAbrechnung
End If
cboSammelrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Sammelrechnung, ""))
cboWaehrungUmrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Währungscode, ""))
cboVorauskasse.changeItem(CInt(kdFirmaAvisierer.KdData_KUNDE.Vorkasse))
cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAvisierer.KdData_KUNDE.Vorkasse))
End If
Case Else
End Select