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

AMbar, Vorauskasse, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-05-03 14:09:47 +02:00
parent eba128614d
commit aceb2bc29d
14 changed files with 351 additions and 357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -782,11 +782,16 @@ Public Class usrcntlVorauskasse
'Dim SQL As New SQL
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr='1' and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
Dim dt As DataTable
If SENDUNG Is Nothing Then
MsgBox("keine Sendung hinterlegt, Offert kann nicht geladen werden!")
Exit Sub
End If
Dim dt As DataTable = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
dt = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
If dt.Rows.Count = 0 Then
MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart" & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!")
MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!")
Exit Sub
End If