API, etc.

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -4865,10 +4865,17 @@ 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
+
+                    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
+
+                    setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
+                    setBillingDateCompleted("UTA_VERAG", datPloseAnhang.Value)
+
                     PictureBox1.Visible = True
                 End If
             Case "MSE"
@@ -4877,6 +4884,9 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
                         inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                         inner join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
                         where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.chargedDatetime is not null and isnull(trans.charged,0) = 0 ", "FMZOLL") Then
+
+                    setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
+
                     PictureBox1.Visible = True
                 End If
 
@@ -4887,6 +4897,9 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
                     PictureBox1.Visible = True
                 End If
 
+                setBillingDateCompleted(Lieferant, datPloseAnhang.Value)
+                setBillingDateCompleted("IDS_Details", datPloseAnhang.Value)
+
             Case "IDS_AT"
                 If SQL.doSQL("UPDATE [VERAG].[dbo].[tblIDSTransactionsNew] Set charged = 1 
                         FROM [VERAG].[dbo].[tblIDSTransactionsNew] 
@@ -4897,8 +4910,16 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
                 MsgBox("Funktion setFakturiert für den Lieferant " & Lieferant & " nicht definiert!")
         End Select
 
+
+
+
     End Sub
 
+    Sub setBillingDateCompleted(Lieferant_ As String, date_ As Date)
+        SQL.doSQL("UPDATE tblMDMEinarbeitung SET cast(billingdate as Date)='" & date_.ToShortDateString & "' WHERE supplier = " & Lieferant_ & "  AND billingdate is null ", "FMZOLL")
+    End Sub
+
+
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
 
         If test Then
@@ -5000,6 +5021,9 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
         If f.DialogResult = DialogResult.OK Then
             datum = f.Datum
             SQL.doSQL("DELETE FROM tblAsfinagMaut", "FMZOLL")
+
+            setBillingDateCompleted("ASFINAG", f.Datum)
+
             If SQL.doSQL("Update Abrechnungsdatum SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "'", "ASFINAG") Then
                 If SQL.doSQL("UPDATE dbo.TTRBody SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "' WHERE (PKHistory = 0) AND (PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (FileCreationDate <= '" & (f.Datum).AddDays(1).ToShortDateString & "') AND abrechnungsdatum IS NULL AND belegerstellungsdatum IS NULL", "ASFINAG") Then