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

Maut

Browse Source
This commit is contained in:
d.breimaier
2023-12-19 14:47:42 +01:00
parent 4307a84813
commit 059c3fcd29
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -908,7 +908,7 @@ Public Class frmMDMDatenverarbetiung
End If End If
For Each f In Directory.GetFiles(dir) For Each f In Directory.GetFiles(dir)
If f.EndsWith(".csv") Then File.Copy(f, dirCSV & (New FileInfo(f)).Name) If f.EndsWith(".csv") Then File.Copy(f, dirCSV & (New FileInfo(f)).Name, True)
Next Next
pbPloseAnh_Proz.Value = 100 pbPloseAnh_Proz.Value = 100
@@ -967,7 +967,7 @@ Public Class frmMDMDatenverarbetiung
Dim connectionString = "" Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accd"
Else Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
End If End If
@@ -1075,7 +1075,7 @@ Public Class frmMDMDatenverarbetiung
sqlstr = " select sqlstr = " select
'ASFINAG' 'AT'
,Adressen.AdressenNr ,Adressen.AdressenNr
,licenceplate ,licenceplate
,turnoverdate ,turnoverdate
@@ -1096,7 +1096,7 @@ Public Class frmMDMDatenverarbetiung
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim sqlstrAT As String = "" Dim sqlstrAT As String = ""
sqlstrAT &= "select 'ASFINAG' sqlstrAT &= "select 'AT'
,Adressen.AdressenNr ,Adressen.AdressenNr
,licenceplate ,licenceplate
,turnoverdate ,turnoverdate
@@ -1131,7 +1131,7 @@ Public Class frmMDMDatenverarbetiung
Dim connectionString = "" Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
Else Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
End If End If
@@ -1195,7 +1195,7 @@ Public Class frmMDMDatenverarbetiung
Try Try
Dim connectionString = "" Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
Else Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb" connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
End If End If
@@ -2680,7 +2680,7 @@ Public Class frmMDMDatenverarbetiung
Function MautD_Befuellen(Optional kdNr = "") As Boolean Function MautD_Befuellen(Optional kdNr = "") As Boolean
Select Case LIEFERANT Select Case LIEFERANT
Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
Case "ASFINAG" : deleteMautD("ASFINAG") : Return genASFINAGInsertMautAT(kdNr) Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
End Select End Select
Return False Return False
End Function End Function