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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:47:27 +01:00
parent 8431ce57eb
commit 569991b011
22 changed files with 14399 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
MDM_Worker/cPLOSE.vb
View File

@@ -5,6 +5,11 @@ Imports System.Data.SqlClient
Public Class cPLOSE
Property plose_Id As Integer
Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
Property plose_RechnungsNr As Object = Nothing ' VARCHAR(3) NULL,
Property plose_Dateiname As Object = Nothing ' VARCHAR(3) NULL,
Property plose_Einlesedatum As Date = Now ' VARCHAR(3) NULL,
Property plose_Datensatztyp As Object = Nothing ' VARCHAR(3) NULL,
Property plose_KodexMautTankstelle As Object = Nothing ' VARCHAR(7) NULL,
Property plose_BeschreibungMautTankstelle As Object = Nothing ' VARCHAR(12) NULL,
@@ -55,6 +60,7 @@ Imports System.Data.SqlClient
LOAD()
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_id", plose_Id, , True, True))
@@ -62,6 +68,10 @@ Imports System.Data.SqlClient
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsDatum", plose_RechnungsDatum)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsNr", plose_RechnungsNr)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Dateiname", plose_Dateiname)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Einlesedatum", plose_Einlesedatum)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Datensatztyp", plose_Datensatztyp)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_KodexMautTankstelle", plose_KodexMautTankstelle)) ' VARCHAR(7) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_BeschreibungMautTankstelle", plose_BeschreibungMautTankstelle)) ' VARCHAR(12) NULL,
@@ -150,6 +160,16 @@ Imports System.Data.SqlClient
End Try
End Sub
Shared Sub UPDATE_RGDatum(plose_RechnungsDatum As Date, plose_RechnungsNr As Integer, plose_POLSEKundennummer As Integer)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_RechnungsDatum='" & plose_RechnungsDatum.ToShortDateString & "' WHERE plose_RechnungsNr='" & plose_RechnungsNr & "' AND plose_POLSEKundennummer='" & plose_POLSEKundennummer & "' ", "FMZOLL")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try