Vorauskasse und Abrechung

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb

@@ -801,7 +801,7 @@ Public Class usrcntlVorauskasse
             Exit Sub
         End If
 
-        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")
+        dt = SQL.loadDgvBySql("SELECT [LeistungsNr],[LeistungsBez], [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
             If Not warnungunterduecken Then MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!")
@@ -836,6 +836,16 @@ Public Class usrcntlVorauskasse
             If row("LeistungsNr") = 340 Then txtVerzollungskosten._value = row("Preis")
             If row("LeistungsNr") = 324 Then txtATLAS._value = row("Preis")
             If row("LeistungsNr") = 440 Then txtPapierePorti._value = row("Preis")
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+
+                If row("LeistungsNr") = 440 AndAlso row("LeistungsBez").ToString.ToLower.Contains("sonstige kosten") Then
+                    txtSonstigeKosten._value = row("Preis")
+                    txtSonstigeKostenText.Text = row("LeistungsBez")
+                End If
+
+            End If
+
         Next
 
         initBerechnung()