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

fix,

Browse Source
This commit is contained in:
d.breimaier
2026-01-08 17:15:49 +01:00
parent 9b53783b0d
commit 4da7d188d1
12 changed files with 138 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1280,7 +1280,7 @@ Public Class frmMDMDatenverarbetiung
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim verarbOK = IIf(test, False, True)
Dim RECHNUNG As cRechnungsausgang = Nothing
Dim RECHNUNG As New cRechnungsausgang(4823, 25015595)
If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA",,,, datPloseAnhang.Value) Then verarbOK = False
@@ -3884,10 +3884,10 @@ Public Class frmMDMDatenverarbetiung
If dictPloseKunden.TryGetValue(ploseKunde, rowKd) Then
r.Cells("VERAGKdNr").Value = rowKd("PLOSEKundenNr")
VERAGKdNr = CInt(rowKd("AdressenNr"))
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
'r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
'r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
End If
'Produkt lookup
@@ -3895,20 +3895,20 @@ Public Class frmMDMDatenverarbetiung
If dictProdukt.TryGetValue(produktCode, rowProdukt) Then
VERAGLeistungsNr = CInt(rowProdukt("plp_LeistungsNr"))
r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
'Offerte 80 lookup
Dim offered80 As Object = Nothing
If dictOfferte.TryGetValue(VERAGKdNr.ToString(), offered80) Then
r.Cells("KundeOffertenNr").Value = offered80
r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
'r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
'r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
End If
'Leistung lookup
@@ -3917,10 +3917,10 @@ Public Class frmMDMDatenverarbetiung
setLeist.Contains(VERAGLeistungsNr.ToString()) Then
r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
'r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
'r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
'UI update alle 100 Zeilen statt 5