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

Bugfix AMBAR

Browse Source
This commit is contained in:
d.breimaier
2024-05-16 13:37:57 +02:00
parent 02b083adb7
commit a83d9e835b
4 changed files with 79 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
View File

@@ -14,11 +14,19 @@ Public Class cRMC
Property rmc_reNr As Object = Nothing
Property rmc_betragNetto As Object = Nothing
Property rmc_betragBrutto As Object = Nothing
Property rmc_betragMWST As Object = Nothing
Property rmc_waehrung As Object = Nothing
Property rmc_euroBrutto As Object = Nothing
Property rmc_file As Object = Nothing
Property rmc_fileNr As Object = Nothing
Property rmc_importDatum As DateTime = Now
Property rmc_version As Object = Nothing
Property rmc_pdfFileName As Object = Nothing
Property rmc_daId As Object = Nothing
Property rmc_archiviertDatum As Boolean = False
Property rmc_archiv As Object = Nothing
Property rmc_fibuNr As Boolean = False
Property rmc_sammelReNr As Object = Nothing
Public hasEntry = False
@@ -47,8 +55,16 @@ Public Class cRMC
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_waehrung", rmc_waehrung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_euroBrutto", rmc_euroBrutto))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_file", rmc_file))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fileNr", rmc_fileNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_importDatum", rmc_importDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_version", rmc_version))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_pdfFileName", rmc_pdfFileName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_daId", rmc_daId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_archiv", rmc_archiv))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_archiviertDatum", rmc_archiviertDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fibuNr", rmc_fibuNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_sammelReNr", rmc_sammelReNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragMWST", rmc_betragMWST))
Return list
@@ -149,7 +165,7 @@ Public Class cRMC
Dim Dateiname = ""
Public Function initImportPfade() As Boolean
Public Function initImportPfade(programName As String) As Boolean
ERROR_PFAD = cRMC.Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -160,7 +176,7 @@ Public Class cRMC
If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
Return Paramter.getFTPConenction(API_STRING, API, "RMC")
Return Paramter.getFTPConenction(API_STRING, API, programName)
End Function