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

Mailversand, Abrechnung, Kundenblatt, MDMEinarbeitung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-08 09:28:13 +02:00
parent 8d1829625e
commit 3a02ac894a
14 changed files with 242 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -48,7 +48,7 @@ Public Class frmMDMDatenverarbetiung
Case "PLOSE"
Dim plose As cPLOSE_Inv_Data
pruef = plose.checkImport()
pruef = pruefData_PLOSE()
If pruef Then pruef = pruefData_PLOSE()
Case "ASFINAG" : pruef = pruefData_ASFINAG()
Case "UTA" : pruef = pruefData_UTA()
Case "IDS" : pruef = pruefData_IDS()
@@ -1446,8 +1446,8 @@ Public Class frmMDMDatenverarbetiung
Dim top = ""
Dim sqlWhere = ""
Select Case art
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543"
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543"
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
Case Else
MsgBox("falscher Typ!") : Return False
@@ -4793,6 +4793,11 @@ RabattBerechnen:
If Lieferant = "" Then Return False
If dt.Rows.Count = 1 Then
If dt.Columns.Contains("KdNrVERAG") AndAlso IsDBNull(dt(0).Item("KdNrVERAG")) Then Return False
If dt.Columns.Contains("AdressenNr") AndAlso IsDBNull(dt(0).Item("AdressenNr")) Then Return False
End If
Select Case Lieferant
Case "PLOSE" : OffertenNr = 80
Case "ASFINAG" : OffertenNr = 11