Kunden, Zollauswertung, MDM, eRechnung (aktuell noch deaktiviert!)
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.IO
|
||||
Imports Challenge
|
||||
Imports com.sun.org.glassfish.external.probe.provider.annotations
|
||||
Imports MDM_Worker
|
||||
Imports TAlex.WPF.Helpers
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -71,6 +72,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Sub init()
|
||||
txtAnzahl.Text = ""
|
||||
txtPruefsummeNetto.Text = ""
|
||||
Button1.Enabled = True
|
||||
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : initDgv_PLOSE()
|
||||
@@ -81,6 +83,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
Case "IDS" : initDgv_IDS()
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
Button1.Enabled = False
|
||||
Case "MSE" : initDgv_MSE()
|
||||
btnDatenLaden.Text = "Daten laden"
|
||||
End Select
|
||||
@@ -91,16 +94,14 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim errorTmp = False
|
||||
|
||||
If test Then
|
||||
|
||||
If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
|
||||
|
||||
End If
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE"
|
||||
Dim ploseParam As New cPLOSE
|
||||
ploseParam.initImportPfade()
|
||||
If genRGAtt_PLOSE(ploseParam) Then
|
||||
If MautD_Befuellen() Then
|
||||
If Not test AndAlso MautD_Befuellen() Then
|
||||
setFakturiert(LIEFERANT)
|
||||
End If
|
||||
End If
|
||||
@@ -128,9 +129,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
If datum = Nothing Then
|
||||
datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG")
|
||||
End If
|
||||
|
||||
Dim inputKdNr = "" 'InputBox("Wenn einzelner Kunde abgerechnet werde soll, bitte KdNr eingeben" & vbNewLine & "Wenn keine KdNr angegeben wird, dann werden alle Kunden abgerechnet:", "Asfinag abrechen")
|
||||
|
||||
If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr, asfinagParam) Then
|
||||
MautD_Befuellen(inputKdNr)
|
||||
End If
|
||||
@@ -242,34 +241,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG")
|
||||
End If
|
||||
|
||||
'umschreiben, damit er die Daten nicht aus TTRBody sondern tblMautAsfinag holt....
|
||||
|
||||
' sqlstr &= " SELECT dbo.TTRBody.CardNumber,Adressen.AdressenNr AS KundenNr,Adressen.[Name 1], dbo.CLFArchiv.vehicleLicensePlate,dbo.TTRBody.DeliveryDate, 'ASFINAG ' + ISNULL(dbo.tblWarenarten.WarenartDE, dbo.tblWarenarten.ProductCode) as ProductCode,dbo.TTRBody.amountInclVAT - dbo.TTRBody.VATAmount as Netamount,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT
|
||||
' FROM dbo.CLFArchiv RIGHT OUTER JOIN
|
||||
' dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField LEFT OUTER JOIN
|
||||
' dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
|
||||
'INNER JOIN [VERAG].[dbo].Kreditkarten ON dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
|
||||
'INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr
|
||||
' WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (TTRBody.abrechnungsdatum = '" & datum.ToShortDateString & "')
|
||||
' ORDER BY dbo.TTRBody.CardNumber"
|
||||
|
||||
|
||||
' sqlstr &= "select [cardnumber] as CardNumber
|
||||
',Adressen.AdressenNr AS KundenNr
|
||||
',Adressen.[Name 1]
|
||||
' ,[licenceplate] as vehicleLicensePlate
|
||||
' ,[turnoverdate] as DeliveryDate
|
||||
' ,[contractPartner] as ProductCode
|
||||
' ,[netAmount]
|
||||
' ,[VATamount]
|
||||
' ,[additionalData]
|
||||
' ,[totalAmount] as amountInclVAT
|
||||
'FROM [VERAG].[dbo].[tblAsfinagMaut]
|
||||
'INNER JOIN [VERAG].[dbo].Kreditkarten ON cardnumber = Kreditkarten.KartenNr
|
||||
'INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr"
|
||||
|
||||
|
||||
|
||||
sqlstr &= "select [cardnumber] as CardNumber
|
||||
,Adressen.AdressenNr AS KundenNr
|
||||
,Adressen.[Name 1]
|
||||
@@ -940,7 +911,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0
|
||||
left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode
|
||||
left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode
|
||||
where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.UStVAn_ID is null and trans.charged <> 1 ", "FMZOLL")
|
||||
where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.charged <> 1 AND trans.[UStVAn_ID] is null ", "FMZOLL")
|
||||
|
||||
.LOAD()
|
||||
|
||||
@@ -1158,6 +1129,12 @@ Public Class frmMDMDatenverarbetiung
|
||||
Return False
|
||||
End If
|
||||
Dim cnt = 0
|
||||
|
||||
If ploseParam.ANLAGEN IsNot Nothing AndAlso Not Directory.Exists(ploseParam.ANLAGEN) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Anlagen nicht verfügbar" & IIf(ploseParam.ANLAGEN IsNot Nothing, vbNewLine & ploseParam.ANLAGEN, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
|
||||
Dim dir = ploseParam.ANLAGEN & Now.ToShortDateString
|
||||
|
||||
@@ -1166,7 +1143,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
For Each R_PLOSE In dt_Main.Rows
|
||||
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = True
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), SPEDBUCH, "PLOSE", R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), SPEDBUCH, "PLOSE", R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
|
||||
@@ -1232,10 +1209,20 @@ Public Class frmMDMDatenverarbetiung
|
||||
MsgBox("Keine Daten!")
|
||||
Return False
|
||||
End If
|
||||
If utaParam.ANLAGEN IsNot Nothing AndAlso Not Directory.Exists(utaParam.ANLAGEN) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Anlagen nicht verfügbar" & IIf(utaParam.ANLAGEN IsNot Nothing, vbNewLine & utaParam.ANLAGEN, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
If utaParam.ARCHIV IsNot Nothing AndAlso Not Directory.Exists(utaParam.ARCHIV) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Archiv nicht verfügbar" & IIf(utaParam.ARCHIV IsNot Nothing, vbNewLine & utaParam.ARCHIV, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim cnt = 0
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
|
||||
|
||||
Dim dir = IIf(test, utaParam.ARCHIV & "TEST\", utaParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
|
||||
Dim dir = IIf(test, utaParam.ARCHIV & "TEST\", utaParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "")
|
||||
|
||||
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
Directory.CreateDirectory(dir)
|
||||
@@ -1304,6 +1291,8 @@ Public Class frmMDMDatenverarbetiung
|
||||
cnt += 1
|
||||
Next
|
||||
|
||||
If test Then Return True
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
|
||||
Dim dirAnhang = IIf(test, utaParam.ANLAGEN & "TEST\", utaParam.ANLAGEN)
|
||||
@@ -1318,10 +1307,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
|
||||
Next
|
||||
|
||||
'IN FMZOLL / DB MautD einfügen --> Mautbericht
|
||||
'genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
|
||||
|
||||
|
||||
pbPloseAnh_Proz.Value = 100
|
||||
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
|
||||
lblPloseAnh_Proz.Text = "100.00 %"
|
||||
@@ -1334,7 +1319,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Function genRGAtt_MSE(mseParam As cMSEAPI) As Boolean
|
||||
Dim top = ""
|
||||
'top = " TOP 20 "
|
||||
Dim sqlWhere = IIf(test, " and (cust.[customer_id] = 12229 or cust.[customer_id] = 13236 or cust.[customer_id] = 11836 or cust.[customer_id] = 14385)", "") 'zum testem
|
||||
Dim sqlWhere = ""
|
||||
|
||||
Dim SQLStr = " SELECT distinct cust.customer_id as [Customer ID], Adressen.AdressenNr AS [Customer Nr], Adressen.MSEExportCSV, Adressen.Rechnungsdruck
|
||||
FROM [VERAG].[dbo].[tblMSESettlements] as bills
|
||||
@@ -1352,10 +1337,21 @@ Public Class frmMDMDatenverarbetiung
|
||||
MsgBox("Keine Daten!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
If mseParam.ARCHIV Is Nothing OrElse Not Directory.Exists(mseParam.ARCHIV) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Archiv nicht verfügbar" & IIf(mseParam.ARCHIV IsNot Nothing, vbNewLine & mseParam.ARCHIV, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
If mseParam.ANLAGEN Is Nothing OrElse Not Directory.Exists(mseParam.ANLAGEN) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Anlagen nicht verfügbar" & IIf(mseParam.ANLAGEN IsNot Nothing, vbNewLine & mseParam.ANLAGEN, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim cnt = 0
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
|
||||
|
||||
Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", mseParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
|
||||
Dim dir = IIf(test, mseParam.ARCHIV & "TEST\", mseParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "")
|
||||
|
||||
If Directory.Exists(dir) Then
|
||||
dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
@@ -1363,8 +1359,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
Directory.CreateDirectory(dir)
|
||||
|
||||
|
||||
|
||||
|
||||
Dim displayView = New DataView(dt_Main, "MSEExportCSV = 1", "Customer ID", DataViewRowState.CurrentRows)
|
||||
Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "Customer ID", "Customer Nr")
|
||||
|
||||
@@ -1442,7 +1436,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
|
||||
Dim dirAnhang = mseParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
|
||||
Dim dirAnhang = IIf(test, mseParam.ANLAGEN & "TEST\", mseParam.ANLAGEN) & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
|
||||
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
|
||||
For Each f In Directory.GetFiles(dirAnhang)
|
||||
File.Delete(f)
|
||||
@@ -1493,7 +1487,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
LEFT JOIN
|
||||
tblIDSInvoicesNew
|
||||
on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber
|
||||
WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null" & sqlWhere & "
|
||||
WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null " & sqlWhere & "
|
||||
order by tblIDSTransactionsNew.KdNrVERAG"
|
||||
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
|
||||
@@ -1503,56 +1497,27 @@ Public Class frmMDMDatenverarbetiung
|
||||
MsgBox("Keine Daten!")
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
If idsParam.ANLAGEN Is Nothing OrElse Not Directory.Exists(idsParam.ANLAGEN) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Anlagen nicht verfügbar" & IIf(idsParam.ANLAGEN IsNot Nothing, vbNewLine & idsParam.ANLAGEN, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
If idsParam.ARCHIV Is Nothing OrElse Not Directory.Exists(idsParam.ARCHIV) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Archiv nicht verfügbar" & IIf(idsParam.ARCHIV IsNot Nothing, vbNewLine & idsParam.ARCHIV, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim cnt = 0
|
||||
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
|
||||
|
||||
Dim dir = IIf(test, idsParam.ARCHIV & "TEST\", idsParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
|
||||
|
||||
If Directory.Exists(dir) Then
|
||||
'dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
If Not Directory.Exists(dir) Then
|
||||
Directory.CreateDirectory(dir)
|
||||
End If
|
||||
Directory.CreateDirectory(dir)
|
||||
|
||||
'Dim displayView = New DataView(dt_Main, "", "KdNrVERAG", DataViewRowState.CurrentRows)
|
||||
'Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "KdNrVERAG")
|
||||
|
||||
|
||||
'For Each csv As DataRow In distinctDT_CSV.Rows
|
||||
|
||||
' Dim dt_CSV_selected = SQL.loadDgvBySql_Param("
|
||||
' SELECT controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date],
|
||||
' cust.customer_id as [Customer ID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID],
|
||||
' trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number],
|
||||
' '' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time],
|
||||
' '' as [Eurovignet K-Number], '' as [LKW-Kostenstelle], trans.original_net_amount as [Original Nett Amount], trans.original_vat_amount as [Original VAT Amount], trans.original_gross_amount as [Original Amount], trans.original_currency as [Original Currency],
|
||||
' trans.transaction_gross_amount as [Transaction Amount ( EUR )], trans.msts_fee_amount as [Admin Fee Amount ( EUR )], '' as [Fees and Costs Amount ( EUR )], trans.msts_vat_amount as [VAT Amount ( EUR )],trans.total_gross_amount as [Total Amount ( EUR )], '' as [Total Dutch VAT ( EUR )], '' as [Total Foreign VAT ( EUR )], trans.[USteuer_EUR] as [USteuer_EUR]
|
||||
' FROM [VERAG].[dbo].[tblMSESettlements] as bills
|
||||
' left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
|
||||
' left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
|
||||
' left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country
|
||||
' where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.charged <> 1 and (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) and cust.[customer_id] = " & csv.Item("Customer ID"), "FMZOLL")
|
||||
|
||||
' dt_CSV_selected.ParentRelations.Clear()
|
||||
' dt_CSV_selected.ChildRelations.Clear()
|
||||
' dt_CSV_selected.Constraints.Clear()
|
||||
|
||||
|
||||
' Dim fn As String = dir & "\" & csv.Item("Customer Nr") & "_Maut_MSE.csv"
|
||||
' Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
|
||||
' Dim clmns As String = ""
|
||||
' For i = 0 To dt_CSV_selected.Columns.Count - 1
|
||||
' clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";"
|
||||
' Next
|
||||
' outFile.WriteLine(clmns)
|
||||
' For i = 0 To dt_CSV_selected.Rows.Count - 1
|
||||
' clmns = ""
|
||||
' For j = 0 To dt_CSV_selected.Columns.Count - 1
|
||||
' clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ", ") & ";"
|
||||
' Next
|
||||
' outFile.WriteLine(clmns)
|
||||
' Next
|
||||
' outFile.Close()
|
||||
'Next
|
||||
|
||||
|
||||
For Each IDS In dt_Main.Rows
|
||||
@@ -1569,14 +1534,13 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
If IDS("InvoiceID") > 0 Then
|
||||
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
|
||||
File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name))
|
||||
File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name), False)
|
||||
End If
|
||||
|
||||
|
||||
If verarbOK Then
|
||||
'Update Fakturiert
|
||||
SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set chargedDatetime = GETDATE()
|
||||
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & IDS("KdNrVERAG") & sqlWhere, "FMZOLL")
|
||||
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & IDS("KdNrVERAG") & sqlWhere, "FMZOLL")
|
||||
End If
|
||||
|
||||
If True Then 'cnt Mod 10 = 0 Then
|
||||
@@ -1649,6 +1613,13 @@ Public Class frmMDMDatenverarbetiung
|
||||
WHERE Adressen.ASFINAGExportCSV = 1 " & sqlWhere & "
|
||||
ORDER BY Adressen.AdressenNr, Maut.cardnumber, Maut.licenceplate, Maut.turnoverdate", "FMZOLL")
|
||||
|
||||
|
||||
If asfinagParam.ANLAGEN Is Nothing OrElse Not Directory.Exists(asfinagParam.ANLAGEN) Then
|
||||
MsgBox("Pfad für " & LIEFERANT & "-Anlagen nicht verfügbar" & IIf(asfinagParam.ANLAGEN IsNot Nothing, vbNewLine & asfinagParam.ANLAGEN, ""))
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
Dim displayViewKunden = New DataView(dt_Main, "", "KundenNr", DataViewRowState.CurrentRows)
|
||||
@@ -1663,7 +1634,8 @@ Public Class frmMDMDatenverarbetiung
|
||||
End If
|
||||
|
||||
If vbYes = MsgBox(Info & vbNewLine & "Möchten Sie die Rechnungen + Anhänge erstellen?", vbYesNoCancel) Then
|
||||
Dim dir = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "") '"C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte"
|
||||
|
||||
Dim dir = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "")
|
||||
|
||||
If Not Directory.Exists(dir) Then
|
||||
Directory.CreateDirectory(dir)
|
||||
@@ -1721,7 +1693,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
For Each R_ASFINAG In distinctDT_distKunden.Rows
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = True
|
||||
Dim verarbOK = IIf(test, False, True)
|
||||
If Not gen_SPEDBUCH_ByKdNr(R_ASFINAG("KundenNr"), SPEDBUCH, "ASFINAG") Then verarbOK = False
|
||||
If Not gen_RECHNUNG_BySPEDBUCH(R_ASFINAG("KundenNr"), SPEDBUCH, "ASFINAG") Then verarbOK = False
|
||||
|
||||
@@ -1755,15 +1727,9 @@ Public Class frmMDMDatenverarbetiung
|
||||
cnt += 1
|
||||
Next
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren:
|
||||
'Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\"
|
||||
'If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
|
||||
' For Each f In Directory.GetFiles(dirAnhang)
|
||||
' File.Delete(f)
|
||||
' Next
|
||||
'End If
|
||||
'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
|
||||
If test Then Return True
|
||||
|
||||
|
||||
Dim dirCSV = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "")
|
||||
|
||||
If Not Directory.Exists(dirCSV) Then
|
||||
@@ -1853,19 +1819,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
|
||||
' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
|
||||
Using Command As New OleDbCommand(SQLQuery, con)
|
||||
'Command.Parameters.AddWithValue("@P1", r(0).ToString)
|
||||
'Command.Parameters.AddWithValue("@P2", CInt(r(1)))
|
||||
'Command.Parameters.AddWithValue("@P3", r(2).ToString)
|
||||
'Command.Parameters.AddWithValue("@P4", CDate(r(3)))
|
||||
'Command.Parameters.AddWithValue("@P5", r(4).ToString)
|
||||
'Command.Parameters.AddWithValue("@P6", r(5).ToString)
|
||||
'Command.Parameters.AddWithValue("@P7", r(6).ToString)
|
||||
'Command.Parameters.AddWithValue("@P8", r(7).ToString)
|
||||
'Command.Parameters.AddWithValue("@P9", r(8).ToString)
|
||||
'Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
|
||||
'Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
|
||||
'Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
|
||||
' .Parameters.AddWithValue("@P13", r(12))
|
||||
|
||||
Command.Parameters.AddWithValue("@P1", r(0))
|
||||
Command.Parameters.AddWithValue("@P2", r(1))
|
||||
@@ -1884,25 +1837,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
Command.Dispose()
|
||||
End Using
|
||||
|
||||
'cmd = New OleDbCommand(SQLQuery, con)
|
||||
'With cmd
|
||||
' .Parameters.AddWithValue("@P1", r(0))
|
||||
' .Parameters.AddWithValue("@P2", r(1))
|
||||
' .Parameters.AddWithValue("@P3", r(2))
|
||||
' .Parameters.AddWithValue("@P4", r(3))
|
||||
' .Parameters.AddWithValue("@P5", r(4))
|
||||
' .Parameters.AddWithValue("@P6", r(5))
|
||||
' .Parameters.AddWithValue("@P7", r(6))
|
||||
' .Parameters.AddWithValue("@P8", r(7))
|
||||
' .Parameters.AddWithValue("@P9", r(8))
|
||||
' .Parameters.AddWithValue("@P10", r(9))
|
||||
' .Parameters.AddWithValue("@P11", r(10))
|
||||
' .Parameters.AddWithValue("@P12", r(11))
|
||||
' ' .Parameters.AddWithValue("@P13", r(12))
|
||||
' cmd.Dispose()
|
||||
' .ExecuteNonQuery()
|
||||
'End With
|
||||
|
||||
Catch ex2 As System.Exception
|
||||
MsgBox("err: " & ex2.Message & ex2.StackTrace)
|
||||
|
||||
@@ -3611,7 +3545,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
INNER Join
|
||||
Adressen
|
||||
On tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
|
||||
WHERE cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
|
||||
WHERE cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
|
||||
GROUP BY
|
||||
tblIDSTransactionsNew.KdNrVERAG,
|
||||
Leistungen.LeistungsNr,
|
||||
@@ -4183,7 +4117,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
pruefData_IDS = True
|
||||
Try
|
||||
|
||||
Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null AND [Rechenwert] is null ", "FMZOLL"))
|
||||
Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null ", "FMZOLL"))
|
||||
|
||||
If RechnenWertNichtEingetragen > 0 Then
|
||||
pruefData_IDS = False
|
||||
@@ -4203,7 +4137,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Dim OBONumberOderVRNumberfehlern As Integer = 0
|
||||
|
||||
OBONumberOderVRNumberfehlern = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null AND [VRNumber] is null AND [OBONumber] is null", "FMZOLL"))
|
||||
OBONumberOderVRNumberfehlern = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [VRNumber] is null AND [OBONumber] is null", "FMZOLL"))
|
||||
|
||||
If OBONumberOderVRNumberfehlern > 0 Then
|
||||
Dim hint As String = ""
|
||||
|
||||
Reference in New Issue
Block a user