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

Update Sammelrechnung , etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-10 13:59:14 +02:00
parent 822749d201
commit 93d5306dd0
6 changed files with 264 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4868,14 +4868,14 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
Select Case Lieferant
Case "PLOSE"
If SQL.doSQL("UPDATE tblPLOSE_Details SET plose_Fakturiert=1 WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' ", "FMZOLL") Then
If SQL.doSQL("UPDATE tblPLOSE_Details SET plose_Fakturiert=1 WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' ", "FMZOLL",,,, 60) Then
setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
PictureBox1.Visible = True
End If
Case "UTA"
If SQL.doSQL("UPDATE [tblUTAImportNew] set charged=1 where chargedDatetime is not null and isnull(charged,0) = 0 And tblUTAImportNew.Rechnungsdatum = '" & DateTimePicker2.Text & "'", "FMZOLL") Then
If SQL.doSQL("UPDATE [tblUTAImportNew] set charged=1 where chargedDatetime is not null and isnull(charged,0) = 0 And tblUTAImportNew.Rechnungsdatum = '" & DateTimePicker2.Text & "'", "FMZOLL",,,, 60) Then
setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
setBillingDateCompleted("UTA_VERAG", datPloseAnhang.Value)

2
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1592,7 +1592,7 @@ Public Class usrCntlMDMAuswertungen
END +
ISNULL(CAST(weitereWölflKundenNr AS nvarchar(50)), '') AS RMC_KundenNr,
isnull(kde_VZ,0) as VZ_Kunde,
isnull(kde_AnmerkungVZ,'') as VZ_Intervall
isnull(kde_AnmerkungVZ,'') as VZ_Intervall, case when isnull(KD.[Bankspesen %],0) > 0 then 1 else 0 end as BS, kde_merge_pdf as RE_Anhang_zusammenfassen
FROM Adressen AD
INNER JOIN Kunden KD ON KD.KundenNr = AD.AdressenNr