Anlage des Repos
This commit is contained in:
@@ -0,0 +1,509 @@
|
||||
' VB Script Document
|
||||
'
|
||||
' Export Script for WinLine documents.
|
||||
' Configuration has to be done in the additional fields in the "WinLine Mandantenstamm"
|
||||
'
|
||||
' Digital Data
|
||||
' Ludwig-Rinn-Straße 16
|
||||
' 35452 Heuchelheim
|
||||
' Tel.: 0641 / 202360
|
||||
' E-Mail: info(at)didalog.de
|
||||
'
|
||||
' Version Number: 1.0.0.0
|
||||
' Version Date: 23.04.2019
|
||||
|
||||
On Error Resume Next
|
||||
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
'############################################ set variables ############################################
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
|
||||
DIM DateTime, SplitChar, ReplaceSpecialChar, DocExtension, DocVersion, DocVersionSeparator, DocType, MandatorShortName, DocAccountNumber, DocAANGExportPath, DocAABExportPath, DocALSExportPath, DocAREExportPath
|
||||
DIM FileSystemObject, Shell, DocAANGConvention, DocAABConvention, DocALSConvention, DocAREConvention, DocAANGNumber, DocAABNumber, DocALSNumber, DocARENumber, DocTargetPath, DocTargetFileName, FullPath
|
||||
SET FileSystemObject = CreateObject("Scripting.FileSystemObject")
|
||||
SET Shell = CreateObject("WScript.Shell")
|
||||
|
||||
'Standard / default variables.
|
||||
DateTime = now
|
||||
SplitChar = "|"
|
||||
ReplaceSpecialChar = " "
|
||||
DocExtension = ".pdf"
|
||||
DocExportCheck = "true"
|
||||
DocExportCheckTry = 0
|
||||
DocExportCheckMaxTrys = 10
|
||||
DocVersion = 1
|
||||
DocVersionSeparator = "~"
|
||||
DocType = Value (25,139) 'WinLine Belegstufe
|
||||
RecordNumber = Value (25,22) 'WinLine Laufnummer
|
||||
PostingType = Value (357,6) 'WinLine Buchungsart (Debitorisch = 1 / Kreditorisch = 2)
|
||||
MandatorShortName = TRIM(CSTR(Value (1,200))) 'WinLine Mandantenkürzel (individual Feld)
|
||||
DocAccountNumber = TRIM(CSTR(Value (0,30))) 'WinLine Kontonummer (Debitor / Kreditor)
|
||||
DocAANGNumber = TRIM(CSTR(Value (0,34))) 'WinLine Angebotsnummer
|
||||
DocAABNumber = TRIM(CSTR(Value (0,35))) 'WinLine Auftragsnummer
|
||||
DocALSNumber = TRIM(CSTR(Value (0,36))) 'WinLine Lieferscheinnummer
|
||||
DocARENumber = TRIM(CSTR(Value (0,37))) 'WinLine Rechnungsnummer
|
||||
DocAANFNumber = TRIM(CSTR(Value (0,34))) 'WinLine Anfragennummer
|
||||
DocABENumber = TRIM(CSTR(Value (0,35))) 'WinLine Bestellnummer
|
||||
DocAANGExportPath = TRIM(CSTR(Split(Value (1,201),SplitChar)(0))) 'WinLine Exportpfad für Angebote (individual Feld)
|
||||
DocAABExportPath = TRIM(CSTR(Split(Value (1,202),SplitChar)(0))) 'WinLine Exportpfad für Aufträge (individual Feld)
|
||||
DocALSExportPath = TRIM(CSTR(Split(Value (1,203),SplitChar)(0))) 'WinLine Exportpfad für Lieferscheine (individual Feld)
|
||||
DocAREExportPath = TRIM(CSTR(Split(Value (1,204),SplitChar)(0))) 'WinLine Exportpfad für Rechnungen (individual Feld)
|
||||
DocAANFExportPath = TRIM(CSTR(Split(Value (1,205),SplitChar)(0))) 'WinLine Exportpfad für Anfragen (individual Feld)
|
||||
DocABEExportPath = TRIM(CSTR(Split(Value (1,206),SplitChar)(0))) 'WinLine Exportpfad für Bestellungen (individual Feld)
|
||||
DocAANGConvention = TRIM(CSTR(Split(Value (1,201),SplitChar)(1))) 'WinLine Benennungsschema für Angebote (individual Feld)
|
||||
DocAABConvention = TRIM(CSTR(Split(Value (1,202),SplitChar)(1))) 'WinLine Benennungsschema für Aufträge (individual Feld)
|
||||
DocALSConvention = TRIM(CSTR(Split(Value (1,203),SplitChar)(1))) 'WinLine Benennungsschema für Lieferscheine (individual Feld)
|
||||
DocAREConvention = TRIM(CSTR(Split(Value (1,204),SplitChar)(1))) 'WinLine Benennungsschema für Rechnungen (individual Feld)
|
||||
DocAANFConvention = TRIM(CSTR(Split(Value (1,205),SplitChar)(1))) 'WinLine Benennungsschema für Anfragen (individual Feld)
|
||||
DocABEConvention = TRIM(CSTR(Split(Value (1,206),SplitChar)(1))) 'WinLine Benennungsschema für Bestellungen (individual Feld)
|
||||
|
||||
'Costumer variables - dont forget to add the replace function in the lower preparing part.
|
||||
'VarName = mesoField 'Description
|
||||
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
'########################################### preparing part ############################################
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
|
||||
'Retrive Document Type (1 = Angebot/Anfrage). Depending on it, the Targetpath and Targetfilename.
|
||||
IF (DocType = 1) THEN
|
||||
|
||||
'If document is for a debtor.
|
||||
IF (PostingType = 1) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocAANGExportPath) Or IsNull(DocAANGExportPath) Or DocAANGExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocAANGExportPath
|
||||
|
||||
'If ExportPath has no content, fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocAANGConvention) Or IsNull(DocAANGConvention) Or DocAANGConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocAANGConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangsangebote. FailSafe ist AANG_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "AANG_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is for a creditor.
|
||||
ELSEIF (PostingType = 2) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocAANFExportPath) Or IsNull(DocAANFExportPath) Or DocAANFExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocAANFExportPath
|
||||
|
||||
'If ExportPath has no content, fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocAANFConvention) Or IsNull(DocAANFConvention) Or DocAANFConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocAANFConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangsanfragen. FailSafe ist AANF_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "AANF_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is not for a debtor or creditor.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Undefinierte Export Einstellung! Abbruch des Exports.")
|
||||
|
||||
END IF
|
||||
|
||||
'Retrive Document Type (2 = Auftrag/Bestellung). Depending on it, the Targetpath and Targetfilename.
|
||||
ELSEIF (DocType = 2) THEN
|
||||
|
||||
'If document is for a debtor.
|
||||
IF (PostingType = 1) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocAABExportPath) Or IsNull(DocAABExportPath) Or DocAABExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocAABExportPath
|
||||
|
||||
'If ExportPath has no content, try to exit. But exit wont work, so fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocAABConvention) Or IsNull(DocAABConvention) Or DocAABConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocAABConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangsauftragsbestätgrechnungen. FailSafe ist AAB_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "AAB_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is for a creditor.
|
||||
ELSEIF (PostingType = 2) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocABEExportPath) Or IsNull(DocABEExportPath) Or DocABEExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocABEExportPath
|
||||
|
||||
'If ExportPath has no content, fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocABEConvention) Or IsNull(DocABEConvention) Or DocABEConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocABEConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangsbestellungen. FailSafe ist ABE_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "ABE_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is not for a debtor or creditor.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Undefinierte Export Einstellung! Abbruch des Exports.")
|
||||
|
||||
END IF
|
||||
|
||||
'Retrive Document Type (3 = Lieferschein). Depending on it, the Targetpath and Targetfilename.
|
||||
ELSEIF (DocType = 3) THEN
|
||||
|
||||
'If document is for a debtor.
|
||||
IF (PostingType = 1) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocALSExportPath) Or IsNull(DocALSExportPath) Or DocALSExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocALSExportPath
|
||||
|
||||
'If ExportPath has no content, try to exit. But exit wont work, so fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocALSConvention) Or IsNull(DocALSConvention) Or DocALSConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocALSConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangslieferscheine. FailSafe ist ALS_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "ALS_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is for a creditor.
|
||||
ELSEIF (PostingType = 2) THEN
|
||||
|
||||
'########################################### Currently not implemented ###########################################
|
||||
|
||||
'If document is not for a debtor or creditor.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Undefinierte Export Einstellung! Abbruch des Exports.")
|
||||
|
||||
END IF
|
||||
|
||||
'Retrive Document Type (4 = Rechnung). Depending on it, the Targetpath and Targetfilename.
|
||||
ELSEIF (DocType = 4) THEN
|
||||
|
||||
'If document is for a debtor.
|
||||
IF (PostingType = 1) THEN
|
||||
|
||||
'If ExportPath has content
|
||||
IF NOT (IsEmpty(DocAREExportPath) Or IsNull(DocAREExportPath) Or DocAREExportPath = "") THEN
|
||||
|
||||
DocTargetPath = DocAREExportPath
|
||||
|
||||
'If ExportPath has no content, try to exit. But exit wont work, so fallback on the general WinLine network path.
|
||||
ELSE
|
||||
|
||||
DocTargetPath = "%NETWORK%"
|
||||
|
||||
END IF
|
||||
|
||||
'If Convention has content.
|
||||
IF NOT (IsEmpty(DocAREConvention) Or IsNull(DocAREConvention) Or DocAREConvention = "") THEN
|
||||
|
||||
DocTargetFileName = DocAREConvention
|
||||
|
||||
'If Convention AND ExportPath had both no content.
|
||||
ELSEIF (DocTargetPath = "%NETWORK%") THEN
|
||||
|
||||
DocTargetFileName = Nothing
|
||||
|
||||
'If ExportPath has content, but Convention hasnt.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Ungültige Export Dateinamens Einstellung für Ausgangsrechnungen. FailSafe ist ARE_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".pdf" & "!")
|
||||
DocTargetFileName = "ARE_" & DocAccountNumber & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime)
|
||||
|
||||
END IF
|
||||
|
||||
'If document is for a creditor.
|
||||
ELSEIF (PostingType = 2) THEN
|
||||
|
||||
'########################################### Currently not implemented ###########################################
|
||||
|
||||
'If document is not for a debtor or creditor.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Undefinierte Export Einstellung! Abbruch des Exports.")
|
||||
|
||||
END IF
|
||||
|
||||
'If DocType was unknown.
|
||||
ELSE
|
||||
|
||||
MSGBOX("Undefinierte Belegstufe! Abbruch des Exports.")
|
||||
|
||||
END IF
|
||||
|
||||
'Replace PlaceHolder in DocTargetPath from Configuration, including invalid Characters.
|
||||
IF (DocTargetPath <> "") THEN
|
||||
|
||||
DocTargetPath = Replace(DocTargetPath,"%Mandantenkürzel%",MandatorShortName)
|
||||
DocTargetPath = Replace(DocTargetPath,"%Jahr%",(Year(date)))
|
||||
DocTargetPath = Replace(DocTargetPath,"%Monat%",(month(date)))
|
||||
DocTargetPath = Replace(DocTargetPath,"%Monatsname%",MonthName((month(date))))
|
||||
DocTargetPath = Replace(DocTargetPath,"%Tag%",(day(date)))
|
||||
DocTargetPath = Replace(DocTargetPath,"%KontoNr%",DocAccountNumber)
|
||||
DocTargetPath = Replace(DocTargetPath,"%Laufnummer%",RecordNumber)
|
||||
DocTargetPath = Replace(Replace(Replace(Replace(Replace(Replace(DocTargetPath,"/",ReplaceSpecialChar),"*",ReplaceSpecialChar),"?",ReplaceSpecialChar),"<",ReplaceSpecialChar),">",ReplaceSpecialChar),"|",ReplaceSpecialChar)
|
||||
|
||||
END IF
|
||||
|
||||
'Replace PlaceHolder in DocTargetFileName from Configuration, including invalid Characters.
|
||||
IF (DocTargetFileName <> "") THEN
|
||||
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Mandantenkürzel%",MandatorShortName)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%AngebotsNr%",DocAANGNumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%AuftragsNr%",DocAABNumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%LieferscheinNr%",DocALSNumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%RechnungsNr%",DocARENumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%AnfragenNr%",DocAANFNumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%BestellNr%",DocABENumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Jahr%",(Year(date)))
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Monat%",(month(date)))
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Monatsname%",MonthName((month(date))))
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Tag%",(day(date)))
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%KontoNr%",DocAccountNumber)
|
||||
DocTargetFileName = Replace(DocTargetFileName,"%Laufnummer%",RecordNumber)
|
||||
DocTargetFileName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(DocTargetFileName,"\",ReplaceSpecialChar),"/",ReplaceSpecialChar),":",ReplaceSpecialChar),"*",ReplaceSpecialChar),"?",ReplaceSpecialChar),"<",ReplaceSpecialChar),">",ReplaceSpecialChar),"|",ReplaceSpecialChar)
|
||||
|
||||
END IF
|
||||
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
'############################################# main part ###############################################
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
|
||||
'Check if all necessary export parameters are set.
|
||||
IF ((DocTargetPath <> "") AND (DocTargetFileName <> "") AND (DocExtension <> "")) THEN
|
||||
|
||||
'Check if destination folder / folder strukture exists. If not, try to create.
|
||||
IF NOT FileSystemObject.FolderExists(DocTargetPath) THEN
|
||||
|
||||
strDir = FileSystemObject.GetAbsolutePathName(DocTargetPath)
|
||||
arrDirs = Split( strDir, "\" )
|
||||
|
||||
If Left( strDir, 2 ) = "\\" THEN
|
||||
strDirBuild = "\\" & arrDirs(2) & "\" & arrDirs(3) & "\"
|
||||
idxFirst = 4
|
||||
Else
|
||||
strDirBuild = arrDirs(0) & "\"
|
||||
idxFirst = 1
|
||||
End If
|
||||
|
||||
For idx = idxFirst to Ubound( arrDirs )
|
||||
strDirBuild = FileSystemObject.BuildPath( strDirBuild, arrDirs(idx) )
|
||||
If Not FileSystemObject.FolderExists( strDirBuild ) THEN
|
||||
FileSystemObject.CreateFolder strDirBuild
|
||||
End if
|
||||
Next
|
||||
|
||||
END IF
|
||||
|
||||
'If DocTargetPath exists, export file - including version tagging.
|
||||
IF (FileSystemObject.FolderExists(DocTargetPath)) THEN
|
||||
|
||||
FullPath = DocTargetPath & "\" & DocTargetFileName & DocExtension
|
||||
|
||||
IF (FileSystemObject.FileExists(FullPath)) THEN
|
||||
|
||||
DO
|
||||
|
||||
DocVersion = DocVersion + 1
|
||||
FullPath = DocTargetPath & "\" & DocTargetFileName & DocVersionSeparator & DocVersion & DocExtension
|
||||
|
||||
LOOP UNTIL (FileSystemObject.FileExists(FullPath) = False)
|
||||
|
||||
END IF
|
||||
|
||||
ExportOutput FullPath, 5, 0
|
||||
|
||||
'Optional check if file was exported successfully.
|
||||
IF (DocExportCheck = "true") THEN
|
||||
|
||||
CheckExportScriptPath = FileSystemObject.FolderExists(Shell.ExpandEnvironmentStrings("%TEMP%") & "\" & "Digital_Data")
|
||||
CheckExportScript = "CheckExport-" & DocTargetFileName & ((year(DateTime)*100 + month(DateTime))*100 + day(DateTime))*10000 + hour(DateTime)*100 + minute(DateTime) & ".vbs"
|
||||
|
||||
IF NOT (CheckExportScriptPath) THEN
|
||||
|
||||
FileSystemObject.CreateFolder(CheckExportScriptPath)
|
||||
|
||||
END IF
|
||||
|
||||
IF (FileSystemObject.FolderExists(CheckExportScriptPath)) THEN
|
||||
|
||||
CheckExportFile = CheckExportScriptPath & "\" & CheckExportScript
|
||||
Set CheckExportObject = FileSystemObject.CreateTextFile(CheckExportFile,True)
|
||||
|
||||
CheckExportObject.Write "DIM FileSystemObject, Fullpath, DocExportCheckTry, DocExportCheckMaxTrys" & vbCrLf
|
||||
CheckExportObject.Write "SET FileSystemObject = CreateObject(\"Scripting.FileSystemObject\")" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "FullPath = Wscript.Arguments(0)" & vbCrLf
|
||||
CheckExportObject.Write "DocExportCheckTry = Wscript.Arguments(1)" & vbCrLf
|
||||
CheckExportObject.Write "DocExportCheckMaxTrys = Wscript.Arguments(2)" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "DO" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "DocExportCheckTry = DocExportCheckTry + 1" & vbCrLf
|
||||
CheckExportObject.Write "WScript.Sleep 3000 'Wait 3 Seconds" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "LOOP UNTIL ((FileSystemObject.FileExists(FullPath) = True) OR ((DocExportCheckTry >= DocExportCheckMaxTrys) = True))" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "IF NOT (FileSystemObject.FileExists(FullPath)) THEN" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write 'MSGBOX("ACHTUNG: Der Export ist fehlgeschlagen! Bitte wenden Sie sich an Ihren Administrator!")' & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "END IF" & vbCrLf
|
||||
CheckExportObject.Write "" & vbCrLf
|
||||
CheckExportObject.Write "FileSystemObject = Nothing" & vbCrLf
|
||||
CheckExportObject.Write "Fullpath = Nothing" & vbCrLf
|
||||
CheckExportObject.Write "DocExportCheckTry = Nothing" & vbCrLf
|
||||
CheckExportObject.Write "DocExportCheckMaxTrys = Nothing" & vbCrLf
|
||||
|
||||
CheckExportObject.Close
|
||||
|
||||
ELSE
|
||||
|
||||
MSGBOX("ACHTUNG: Das CheckExportScript konnte nicht erstellt werden!")
|
||||
|
||||
END IF
|
||||
|
||||
END IF
|
||||
|
||||
ELSE
|
||||
|
||||
MSGBOX("ACHTUNG: Zielpfad für Export konnte nicht erstellt werden! Export wird abgebrochen.")
|
||||
|
||||
END IF
|
||||
|
||||
ELSE
|
||||
|
||||
'Missing Value in DocTargetPath, DocTargetFileName or DocExtension
|
||||
WScript.Quit(1)
|
||||
|
||||
END IF
|
||||
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
'########################################### finishing part ############################################
|
||||
'#-----------------------------------------------------------------------------------------------------#
|
||||
|
||||
FileSystemObject = Nothing
|
||||
Shell = Nothing
|
||||
DateTime = Nothing
|
||||
SplitChar = Nothing
|
||||
ReplaceSpecialChar = Nothing
|
||||
DocExtension = Nothing
|
||||
DocExportCheck = Nothing
|
||||
DocExportCheckTry = Nothing
|
||||
DocExportCheckMaxTrys = Nothing
|
||||
DocType = Nothing
|
||||
DocVersion = Nothing
|
||||
DocVersionSeparator = Nothing
|
||||
MandatorShortName = Nothing
|
||||
DocAccountNumber = Nothing
|
||||
DocAANGExportPath = Nothing
|
||||
DocAABExportPath = Nothing
|
||||
DocALSExportPath = Nothing
|
||||
DocAREExportPath = Nothing
|
||||
DocAANFExportPath = Nothing
|
||||
DocABExportPath = Nothing
|
||||
DocAANGConvention = Nothing
|
||||
DocAABConvention = Nothing
|
||||
DocALSConvention = Nothing
|
||||
DocAREConvention = Nothing
|
||||
DocAANFConvention = Nothing
|
||||
DocABEConvention = Nothing
|
||||
DocAANGNumber = Nothing
|
||||
DocAABNumber = Nothing
|
||||
DocALSNumber = Nothing
|
||||
DocARENumber = Nothing
|
||||
DocAANFNumber = Nothing
|
||||
DocABENumber = Nothing
|
||||
DocTargetPath = Nothing
|
||||
DocTargetFileName = Nothing
|
||||
FullPath = Nothing
|
||||
|
||||
Result = ""
|
||||
Reference in New Issue
Block a user