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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1396,7 +1396,7 @@ Public Class FormularManagerNEU
Shared Function SonstPDF(usrCntl As usrcntlSonstigesPDF) As String
If IO.File.Exists(usrCntl.PFAD) Then
If System.IO.File.Exists(usrCntl.PFAD) Then
Return usrCntl.PFAD
End If
Return ""
@@ -2910,12 +2910,12 @@ Public Class FormularManagerNEU
Shared Function getPosNrByLNr(dt As DataTable, dt2 As DataTable, LNr As String) As String
For i = 0 To dt.Rows.Count - 1
If dt.Rows(i)("LNr") = LNr Then
If dt.Rows(i)("LNr") IsNot DBNull.Value AndAlso dt.Rows(i)("LNr") = LNr Then
Return If(dt.Rows(i)("Pos"), "")
End If
Next
For i = 0 To dt2.Rows.Count - 1
If dt2.Rows(i)("ZLNr") = LNr Then
If dt2.Rows(i)("ZLNr") IsNot DBNull.Value AndAlso dt2.Rows(i)("ZLNr") = LNr Then
Return "0"
End If
Next
@@ -3992,7 +3992,7 @@ Public Class FormularManagerNEU
usrCntl.lblCRsaved.ForeColor = Color.Green
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId)
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag)
cVorauskasse.SAVE() 'VermerkId speichern
Return True
Else