EXG, DY Atilla

initATLASAufschubkonten/frmStartOptions.vb

@@ -3107,7 +3107,7 @@ Public Class frmStartOptions
                             ", "FMZOLL")
 
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False)
+                Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False,, "USTV_" & Now.ToString("ddMMyyyy"))
                 If PDF <> "" Then
                     Select Case art
                         Case "MAIL"
@@ -5445,7 +5445,7 @@ Public Class frmStartOptions
 
 
                 For Each r In dtRE.Rows
-                    Dim mrnAlt = sql.DLookup("Weitere_Reg_Nr", "[AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]", "[Weitere_Reg_Nr] is not null and [Registriernummer_MRN] = '" & r.Item("Belegdaten") & "'", "AVISO")
+                    Dim mrnAlt = sql.DLookup("Weitere_Reg_Nr", "[tbl_DY_Zollmeldungen_Import]", "[Weitere_Reg_Nr] is not null and [Registriernummer_MRN] = '" & r.Item("Belegdaten") & "'", "AVISO")
                     If mrnAlt IsNot Nothing AndAlso mrnAlt <> "" Then
 
                         If sql.doSQL("update RechnungsausgangPositionen set Weitere_Reg_Nr ='" & mrnAlt & "' where RK_ID= " & r.Item("RK_ID") & " AND  Belegdaten = '" & r.Item("Belegdaten") & "'", "FMZOLL") Then
@@ -5476,7 +5476,7 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
-        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn("24TR34340000000145")
+        VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
 
     End Sub
 
@@ -5550,4 +5550,19 @@ Public Class frmStartOptions
         End If
 
     End Sub
+
+    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
+
+        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (200) ncts_MRN  FROM  [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
+        If dt IsNot Nothing Then
+            Label49.Text = "-"
+            Dim cnt = 1
+            For Each r In dt.Rows
+                Label49.Text = cnt & "/" & dt.Rows.Count
+                Me.Refresh()
+                VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn(r("ncts_MRN"))
+            Next
+            Label49.Text = dt.Rows.Count & "fin"
+        End If
+    End Sub
 End Class