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

RMC, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-08-16 15:57:12 +02:00
parent 68d609a3ce
commit 30b1cc2b31
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
View File

@@ -223,6 +223,7 @@ Public Class cRMC
Public ERROR_PFAD
Public ZIEL_PFAD
Public FTP_PFAD
Public PDFRECHNUNGEN
Public API_STRING As String
Public API As New DataTable
@@ -235,6 +236,7 @@ Public Class cRMC
ARCHIV_PFAD = cRMC.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
VERARBEITUNG_PFAD = cRMC.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ZIEL_PFAD = cRMC.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
PDFRECHNUNGEN = cRMC.Paramter.GET_PARAM_ByName("PDFRECHNUNGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If Not IO.Directory.Exists(VERARBEITUNG_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
Return Paramter.getFTPConenction(API_STRING, API, programName)

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -159,7 +159,7 @@ Public Class cAllgemein
Select Case prog_Name.ToUpper
Case "AVISO"
Case "AVISO", "VERAG_PROG_ALLGEMEIN"
PROGID = 16
Case "SDL"
PROGID = 7