diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 4db33545..4706c6f4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -3089,7 +3089,7 @@ Public Class frmMDMDatenverarbetiung where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.charged = 0 and cust.[partner_customer_number] = " & KdNr & " group by cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr , Offertenpositionen.LeistungsBez ) as temp group by customer_id, LeistungsNr" - Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 1200) For Each r In dt.Rows diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb index d6fa7dd3..b84fdc15 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb @@ -3,6 +3,7 @@ Imports System.Collections.Generic Imports System.Data.SqlClient Imports System.IO Imports System.Reflection +Imports Therefore.API Imports VERAG_PROG_ALLGEMEIN Public Class cUTA @@ -1051,7 +1052,12 @@ Public Class cUTA .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] End Select - .SAVE() + 'nur KundenNr 100964 und 825040 speichern: + If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then + .SAVE() + End If + + 'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 20dd7603..5c2a8eb7 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -2273,9 +2273,9 @@ Public Class DATENVERVER_OPTIONS list.Add(New KeyValuePair(Of String, String)("JVBERi0", "pdf")) list.Add(New KeyValuePair(Of String, String)("R0lGODdh", "gif")) list.Add(New KeyValuePair(Of String, String)("iVBORw0KGgo", "png")) - list.Add(New KeyValuePair(Of String, String)("TU0AK", "tiff")) - list.Add(New KeyValuePair(Of String, String)("UEs", "gif")) - list.Add(New KeyValuePair(Of String, String)("PK", "zip")) + 'list.Add(New KeyValuePair(Of String, String)("TU0AK", "tiff")) + 'list.Add(New KeyValuePair(Of String, String)("UEs", "gif")) + 'list.Add(New KeyValuePair(Of String, String)("PK", "zip")) For Each type In list If base64.Contains(type.Key) Then diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index 6b2ab604..782703c9 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -515,8 +515,10 @@ Public Class cMSEAPI Return "FEHLER Array Transaktions ist leer" End If - If transactions.Size = 1 Then + If transactions.Size = 1 Then '?? warum nochmal + transactionID.Columns("batch_seq_nr").ReadOnly = False row.Item("batch_seq_nr") = transactions.ObjectAt(0).StringOf("batch_seq_nr") + transactionID.Columns("batch_seq_nr").ReadOnly = True End If