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

Fakt Parkzeit

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-02 14:49:00 +01:00
parent 6d6c5e9415
commit 62a5b9cbd6
2 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1605,7 +1605,7 @@ Public Class usrCntlFaktAbrechnung
End If
End If
initDGVAnhaenge
initDGVAnhaenge()
cboRechnungAn.Focus()
initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
@@ -1863,7 +1863,7 @@ Public Class usrCntlFaktAbrechnung
Dim zahlbar = ""
Select Case cboRgGS.SelectedIndex
Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.Textzz = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
End Select