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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:25 +02:00
parent 2c80644224
commit 289037b7f3
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -484,7 +484,7 @@
Try
Select Case GRN
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157"
If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB"))
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153"
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON"))
@@ -621,6 +621,9 @@
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
While IO.File.Exists(XMLFilePath)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
End While
End If
If VERAG_NCTS IsNot Nothing Then
VERAG_NCTS.SaveToFile(XMLFilePath)