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

System.IO, Zugferd, Dakosy-Import Firma gesetzt durch Division1

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 09:53:19 +02:00
parent 6f163b8815
commit 091e526a04
19 changed files with 391 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -443,7 +443,7 @@
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
If System.IO.File.Exists(destFile) Then
insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
found = True
Else
@@ -462,7 +462,7 @@
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
If genXMLFile_V2_0_1(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
If System.IO.File.Exists(destFile) Then
insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
found = True
Else
@@ -482,7 +482,7 @@
If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
If genXMLFile_V2_0_2(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
If System.IO.File.Exists(destFile) Then
insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN)
found = True
Else
@@ -767,9 +767,9 @@
Try
If XMLFilePath = "" Then
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)
If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
While IO.File.Exists(XMLFilePath)
While System.IO.File.Exists(XMLFilePath)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
End While
End If
@@ -787,7 +787,7 @@
Try
If XMLFilePath = "" Then
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)
If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
End If
If VERAG_NCTS IsNot Nothing Then
@@ -804,7 +804,7 @@
Try
If XMLFilePath = "" Then
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)
If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
End If
If VERAG_NCTS IsNot Nothing Then
@@ -819,12 +819,12 @@
End Function
Shared Function removeTypeFromXML(XMLFilePath) As String
Try
Dim fileContents = IO.File.ReadAllText(XMLFilePath)
Dim fileContents = System.IO.File.ReadAllText(XMLFilePath)
fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
IO.File.WriteAllText(XMLFilePath, fileContents)
System.IO.File.WriteAllText(XMLFilePath, fileContents)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -938,7 +938,7 @@
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
Dim Path = DS.GET_TOP1_PATH()
If Path <> "" And IO.File.Exists(Path) Then
If Path <> "" And System.IO.File.Exists(Path) Then
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachment
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachmentDocumentType.NCTS
ATT.FileType = "PDF"
@@ -1096,7 +1096,7 @@
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
Dim Path = DS.GET_TOP1_PATH()
If Path <> "" And IO.File.Exists(Path) Then
If Path <> "" And System.IO.File.Exists(Path) Then
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachment
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachmentDocumentType.NCTS
ATT.FileType = "PDF"
@@ -1370,7 +1370,7 @@
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
Dim Path = DS.GET_TOP1_PATH()
If Path <> "" And IO.File.Exists(Path) Then
If Path <> "" And System.IO.File.Exists(Path) Then
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachment
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachmentDocumentType.NCTS
ATT.FileType = "PDF"
@@ -2704,7 +2704,7 @@ Class cGASTON_SCHUL_Interface
If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then
If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
If System.IO.File.Exists(destFile) Then
cVERAG_out_ncts.insertFTPLOG(destFile, "VERAG", GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, GS_OUT.movementReferenceNumber)
found = True
Else
@@ -2723,7 +2723,7 @@ Class cGASTON_SCHUL_Interface
Try
If XMLFilePath = "" Then
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\GASTON_SCHUL\OUT\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
If Not System.IO.Directory.Exists(dir) Then System.IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "GASTON_SCHUL_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
End If
If GS_OUT IsNot Nothing Then
@@ -2738,12 +2738,12 @@ Class cGASTON_SCHUL_Interface
End Function
Shared Function removeTypeFromXML(XMLFilePath) As String
Try
Dim fileContents = IO.File.ReadAllText(XMLFilePath)
Dim fileContents = System.IO.File.ReadAllText(XMLFilePath)
fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
IO.File.WriteAllText(XMLFilePath, fileContents)
System.IO.File.WriteAllText(XMLFilePath, fileContents)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try