Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

[PFADE]
root=E:
RRROOT=\\SERVER1\F$
JACDAT=\\SERVER1\Dat
JACOFC=E:\OFC
GENERIC=E:\Generic
JACPROG=E:\JackProg
REBUILD=E:\REBUILD
ODBC=E:\ODBC
EXP=E:\Schnittstelle\Exporte
SAVE=E:\Save_nach_rebuild
TMP=C:\TEMP
CTWS04LOG=\\ctws04\c$\log
JACKODBC=\\ODBCSERVER
CRSW=\\CRSSERVER\Schnittstelle\Work\SAP
CRSM=\\CRSSERVER\Schnittstelle\Work\MIS
CRSB=\\CRSSERVER\Schnittstelle\Work\BSP
CRS=\\CRSSERVER\E$
CRSPFADW=\Schnittstelle\Work
CRSPFADA=\Schnittstelle\Archiv\Jack2007
SAPA=\Schnittstelle\Archiv\Jack2007\SAP
MISA=\Schnittstelle\Archiv\Jack2007\MIS
BSPA=\Schnittstelle\Archiv\Jack2007\BSP
WBJ=\\BUCHHALTUNGSSERVER\Jack_Journal
BACKUP=\\SICHERUNGSSERVER\taegliche_Sicherung_JackDAT
LOGBAK=\\DATENSERVER\Netzwerk\Faircom_Info
SCHLAF=600000

[SAP]
von=
bis=
pfad=E:\Schnittstelle\work\SAP
SAPP=E:\Schnittstelle\WORK\SAP
[MIS]
pfad=E:\Schnittstelle\work\MIS
MISP=E:\Schnittstelle\WORK\MIS

[SQL]
SQLSRV=SQLSRV1
SQLSRV1=SQLSRV2
SQLSRV2=SQLSRV3
catalog=basisdaten

[MAIL]
FROM=VB_@Mail.at
FROMCRS=VB_CRS@Mail.at
TO=Verteiler.verarbeitung@Mail.at
TOBKP=BKP.Warn@Mail.at
TON=Verteiler.J_Gut@Mail.at
SRV=IP-Adresse

[SRV]
SERVER=SERVER1
FAIRCOM="FRC1"
SRV=FAIRCOMS@SERVER1
BEWOSRV=ctree=FAIRCOMS@IP-ADRESSE

[MANDANT]
MAN=01
M01=01

[PW]
pw=Passwort

[Buchungsjahr]
Jahr=2006

[FEIERTAGS_JAHR]
FETA=2008

[RENR]
Beginn=1
Ende=180000

[TIME]
CT=06:00:00
CTI=06:20:00

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=Key Server.ico
#AutoIt3Wrapper_outfile=Nachtverarbeitung_Export.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXX
#AutoIt3Wrapper_Res_Description=Startscript der Jack Nachtverarbeitung
#AutoIt3Wrapper_Res_Fileversion=2008.1.16.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 - 2008 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
#include-once
#include "Global_XX_CONST.au3" ;-------> Alle Variablen .....
#include "XX_SQL.au3" ;-------> alle MS-SQL Abfragen .......
#include
#include
#include
#include
;~ MsgBox(0, "", "Feitertagsdir: " & $LC_FTA)
$s_Zeitmessung = TimerInit()
FileDelete($LC_LOGPATH & "\jack.log")
Dim $A_DATEARRAY
If Not _FileReadToArray($LC_FTA, $A_DATEARRAY) Then
MsgBox(4096, "Error", " Error reading log to Array error:" & @error)
Exit
EndIf
$s_pos = _ArraySearch($A_DATEARRAY, $s_date, 0, 0, 0, True)
Select
Case $s_pos = -1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "START BATCH VERARBEITUNG")
Send("{ESC}")
Case Else
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Heute ist ein Feiertag oder Wochenende: " & $s_datenow)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
FileCopy($LC_LOGPATH & "\Jack.log", $LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\BackupServer\jack\jack_log\*.*", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\LOGSPEICHERSERVER\Jack Log\*.*", 1)
FileDelete($LC_LOGPATH & "\jack.log")
Exit
EndSelect
;-CopyJackEnd.bat------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "CopyJackEnd")
FileCopy($s_jackdat & "\Kopie von Jack.end", $s_jackdat & "\Jack.end")
Select
Case $s_cluster = "SERVER1"
_CLUSTERSTOP()
Case $s_cluster = "SERVER2"
_CLUSTERSTOP()
Case Else
_NONCLUSTERSTOP()
EndSelect
;-Alte Files sichern und löschen---------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", " alte Files löschen ")
$s_PID = Run(@ScriptDir & "\FileDelete.exe", @ScriptDir & "")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", " alte Files löschen Ende")
;-Files auf dem CRS löschen (Mandantbezogen) -------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "alte Files löschen remote")
$s_PID = Run(@ScriptDir & "\FileDelete_Remote.exe", @ScriptDir & "")
ProcessWaitClose($s_PID)
FileDelete($s_ctws04log & "\EXP_MIS_" & $s_mandant & ".log")
FileDelete($s_ctws04log & "\EXP_SAP_" & $s_mandant & ".log")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "alte Files löschen remote Ende")
;---------------------------------------------------------------------------------------;
;-DeleteJackEnd.bat----------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "CopyJackEnd")
FileDelete($s_jackdat & "Jack.end")
$s_PID = ProcessExists("Jackv30.exe")
If $s_PID Then ProcessClose($s_PID)
Sleep(3000)
$s_PID = Run(@ScriptDir & "\Rebuild_F14.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SNR Beginn")
$s_PID = Run(@ScriptDir & "\Save_NACH_Rebuild.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SNR ENDE")
Sleep(500)
;---------------------------------------------------------------------------------------;
RunWait(@ComSpec & " /c " & @ScriptDir & "\Säuberung v JackDat.bat")
;-MIS-Übernahme OHNE FAIRCOMS - Datenbank-----------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "MIS Export")
$s_PID = Run(@ScriptDir & "\Export_MIS.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "MIS Export Ende")
Sleep(500)
;-Aufruf SAP-Export---------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SAP Mandant")
$s_PID = Run(@ScriptDir & "\Export_SAP.exe")
ProcessWaitClose($s_PID)
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SAP Mandant Ende")
;---------------------------------------------------------------------------------------;
;Jack SNRRAR 2 Backup---------------------------------------------------------------------;
Run(@ScriptDir & "\Backup_copy.exe", @ScriptDir)
;---------------------------------------------------------------------------------------;
$s_PID = Run(@ScriptDir & "\Rebuild_F14.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;-Files kopieren -----------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\progwarn.tmp", "Mail versand OK")
_FileWriteLog($LC_LOGPATH & "\Mail.tmp", "Mail versand OK")
;---------------------------------------------------------------------------------------;
;-tägliches Saldenerneuern und Komplettrebuild -----------------------------------------;
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Salden erneuern")
$s_PID = Run(@ScriptDir & "\Saldenerneuerung.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Salden erneuern Ende")
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "rebuild Start")
$s_PID = Run(@ScriptDir & "\Rebuild_ohne_BSP.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;~ If @MDAY = 20 Then RunWait($s_rebuild & "\REBUILD.EXE /BSPABR", $s_jackdat)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Rebuild ende")
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom before UP")
Select
Case $s_cluster = "SERVER2"
$s_PID = Run(@ScriptDir & "\Cluster_Faircom_Starten.exe", @ScriptDir)
ProcessWaitClose($s_PID)
Case $s_cluster = "SERVER1"
$s_PID = Run(@ScriptDir & "\Cluster_Faircom_Starten.exe", @ScriptDir)
ProcessWaitClose($s_PID)
Case Else
RunWait(@ComSpec & " /c " & $s_jackdat & '\ctntinst.exe -start', $s_jackdat)
EndSelect
If Not ProcessExists("Faircom_Online_Status.exe") Then
Run(@ScriptDir & "\Faircom_Online_Status.exe", @ScriptDir)
EndIf
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now UP")
;---------------------------------------------------------------------------------------;
;-Export Mitarbeiter-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", " Export Mitarbeiter")
$s_PID = Run(@ScriptDir & "\Export_Mitarbeiter.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", " Export Mitarbeiter ENDE")
Sleep(500)
;-Export Kunden-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Kundenaenderung")
$s_PID = Run(@ScriptDir & "\Export_Kunden.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Kundenaenderung ENDE")
Sleep(500)
;-Export Journal-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Journal ")
$s_PID = Run(@ScriptDir & "\Export_Journal.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Journal ENDE")
Sleep(500)
;-Export Preise-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Vorgangsgesamtpreisliste")
$s_PID = Run(@ScriptDir & "\Export_VOGESPR.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Vorgangsgesamtpreisliste ENDE")
Sleep(500)
;-Export Veranstalter -------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Veranstalter")
$s_PID = Run(@ScriptDir & "\Export_Veranstalter.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Veranstalter Ende")
Sleep(500)
While 1
Sleep(1000)
$ready = SQLLOGREADY_("VERAN", $s_mandant)
If $ready = 1 Then
ExitLoop
EndIf
WEnd
;-Import Fremdwärungen -----------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Währungsimport")
$s_PID = Run(@ScriptDir & "\Import_FremdWaehrung.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Währungimport Ende ")
Sleep(500)
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Transformer starten ")
$s_ready = SQLLOGREADY_("TRANSOFF", $s_mandant)
If $s_ready = 1 Then Run($s_tansformer & "\Crstrans.exe", $s_tansformer)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Mail Versand")
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
$s_Zeitdifferenz = TimerDiff($s_Zeitmessung)
$s_Zeitdifferenzstd = Round($s_Zeitdifferenz / 1000 / 60 / 60, 2)
$s_Zeitdifferenzmin = Round($s_Zeitdifferenz / 1000 / 60, 2)
$file = FileOpen($LC_LOGPATH & "\Verarbeitungszeit.tmp", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, "Die Nachtverarbeitung hat in Stunden " & $s_Zeitdifferenzstd & " gedauert" & @CRLF)
FileWrite($file, "Die Nachtverarbeitung hat in Minuten " & $s_Zeitdifferenzmin & " gedauert" & @CRLF)
FileClose($file)
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
If FileExists($LC_LOGPATH & "\Mail.tmp") Then

Run(@ScriptDir & '\DIR Set.exe', @ScriptDir)
FileDelete($LC_LOGPATH & "\Mail.tmp")
Else
Run(@ScriptDir & '\PROBWARN.exe', @ScriptDir)
EndIf
Run(@ScriptDir & '\Speicher_Warnung.exe', @ScriptDir)
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "ENDE BATCH VERARBEITUNG")
FileCopy($LC_LOGPATH & "\Jack.log", $LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\BackupSERVER\jack_log\*.*", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\LOGSERVER\Jack Log\*.*", 1)
FileDelete($LC_LOGPATH & "\jack.log")
Exit
Func _CLUSTERSTOP()
$res_cluster = Run(@ComSpec & " /c " & 'CLUSTER /CLUSTER:' & $s_cluster & ' RES ctreeServer /STAT', @WindowsDir, @SW_HIDE, $STDOUT_CHILD)
While 1
$line = StdoutRead($res_cluster)
If @error Then ExitLoop
If StringInStr($line, $LC_ON) Then $found = 1
WEnd
If $found Then
SplashTextOn("Bitte warten...", @CRLF & " Jack User werden hinauskomplimentiert ..." & @CRLF & @CRLF & " Dies kann einige Minuten in Anspruch nehmen !", 350, 100, -1, -1, 4, "Arial", 12)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
$list = ProcessList("Jackv30.exe")
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][1])
Next
Sleep($s_sleep)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
$s_PIDf = Run(@ScriptDir & "\Cluster_Faircom_Stoppen.exe", @ScriptDir)
ProcessWaitClose($s_PIDf)
$s_time = 0
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now down")
FileDelete($s_jackdat & "\Jack.end")
SplashOff()
Else
$s_time = 1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom is down")
FileDelete($s_jackdat & "\Jack.end")
EndIf

If ProcessExists($s_Jackproz) Then ;~ ;FairCom runterfahren falls sie online ist
$list = ProcessList($s_Jackproz)
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][0])
Next
EndIf
Return $s_time
EndFunc ;==>_CLUSTERSTOP
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
Func _NONCLUSTERSTOP()
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
If $s_cluster = "SERVER4" Then Run(@ScriptDir & "\Transformer_Stop.exe")
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
Global $text
Global $command = "RUNNING"
Global $stream
Global $textline
$stream = Run(@ComSpec & ' /c ' & $s_jackdat & '\ctntinst.exe -status', '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline
If @error Then ExitLoop

WEnd
If StringInStr($text, $command) Then
SplashTextOn("Bitte warten...", @CRLF & " Jack User werden hinauskomplimentiert ..." & @CRLF & @CRLF & " Dies kann einige Minuten in Anspruch nehmen !", 350, 100, -1, -1, 4, "Arial", 12)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
Sleep($s_sleep)
Run(@ComSpec & " /c " & $s_jackdat & '\ctntinst -stop', @WindowsDir, @SW_HIDE)
$s_time = 0
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now down")
FileDelete($s_jackdat & "\Jack.end")
SplashOff()
Else
$s_time = 1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom is down")
FileDelete($s_jackdat & "\Jack.end")
EndIf

If ProcessExists($s_Jackproz) Then ;
$list = ProcessList($s_Jackproz)
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][0])
Next
EndIf
Return $s_time
EndFunc ;==>_NONCLUSTERSTOP

[/autoit]

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=folder_man.ico
#AutoIt3Wrapper_outfile=Export_MIS.exe
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXXXXXXXXX
#AutoIt3Wrapper_Res_Description=Export MIS
#AutoIt3Wrapper_Res_Fileversion=2007.12.10.3
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
#include-once
#include "Global_XX_CONST.au3"
#include "XX_SQL.au3"
#include
#include
If FileExists($s_crsMISpath & "\*.M" & $s_mandant) Then
FileDelete($s_crsMISpath & "\*.M" & $s_mandant)
EndIf
If FileExists($s_MISExportpath & "\*.M" & $s_mandant) Then
FileDelete($s_MISExportpath & "\*.M" & $s_mandant)
EndIf
$s_BeladungslaufID = SQLEXPSTART_($s_mandant, "MISEXP")
If $s_cluster = "KBHSRV" Then
IniWrite($s_tansformer & "\VOEX.INI", "Sonstiges", "PFAD", $s_MISExportpath)
Else
IniWrite($s_jackprog & "\INIs\VOEX.INI", "Sonstiges", "PFAD", $s_MISExportpath)
EndIf
_FileWriteLog($LC_LOGPATH & "\MIS_Export.log", "MIS Export ")
SplashTextOn("", "MIS Daten werden exportiert. bitte warten ..........", "500", "22", "-1", "-1", $DLG_NOTITLE + $DLG_TEXTVCENTER, "Arial Black", "11", "400")
$s_PID = Run($s_Jackofc & "\Jackv30.exe /MIS", $s_jackdat)
ProcessWaitClose($s_PID)
SplashOff()
_FileWriteLog($LC_LOGPATH & "\MIS_Export.log", "MIS Export Ende")
;-Kopieren auf die CRS---------------------------------------------------------------------------;
$search = FileFindFirstFile($s_MISExportpath & "\*.M" & $s_mandant)
$file = FileFindNextFile($search)
RunWait(@ScriptDir & '\ROBOCOPY.EXE "' & $s_MISExportpath & '" "' & $s_crsMISpath & '" ' & $file & ' /LOG+:' & $LC_LOGPATH & '\FileCopy.log', @ScriptDir)
RunWait(@ScriptDir & '\ROBOCOPY.EXE "' & $s_MISExportpath & '" "' & $s_crspath & $s_MISApath & '\' & $s_jahr & '" ' & $file & ' /LOG+:' & $LC_LOGPATH & '\FileCopy.log', @ScriptDir)
SQLEXPEND_($s_BeladungslaufID, $file)
FileClose($search)
_FileWriteLog($s_ctws04log & "\EXP_MIS_" & $s_mandant & ".log", "EXPORT OK")
Exit

[/autoit]

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXXXXXXXXXXXXXXx
#AutoIt3Wrapper_Res_Description=Globale config
#AutoIt3Wrapper_Res_Fileversion=2007.12.18.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
;~ #include "Global_XX_CONST.au3"
#include-once
#include
Local Const $LC_CONFIGFILE = @ScriptDir & "\conf\Export.ini"
Local Const $LC_EMPTYVAL = "Keine Pfad konfiguriert"
Local Const $LC_PATH = "PFADE"
Local $s_rootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "root", $LC_EMPTYVAL)
Local $s_clusterrootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "RRROOT", $LC_EMPTYVAL)
Local $s_jackdat = IniRead($LC_CONFIGFILE, $LC_PATH, "JACDAT", $LC_EMPTYVAL)
Local $s_rebuild = IniRead($LC_CONFIGFILE, $LC_PATH, "REBUILD", $LC_EMPTYVAL)
Local $s_generic = IniRead($LC_CONFIGFILE, $LC_PATH, "GENERIC", $LC_EMPTYVAL)
Local $s_jackprog = IniRead($LC_CONFIGFILE, $LC_PATH, "JACPROG", $LC_EMPTYVAL)
Local $s_Jackofc = IniRead($LC_CONFIGFILE, $LC_PATH, "JACOFC", $LC_EMPTYVAL)
Local $s_tansformer = IniRead($LC_CONFIGFILE, $LC_PATH, "TRANS", $LC_EMPTYVAL)
Local $s_cootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "coot", $LC_EMPTYVAL)
Local $s_savepath = IniRead($LC_CONFIGFILE, $LC_PATH, "SAVE", $LC_EMPTYVAL)
Local $s_logbak = IniRead($LC_CONFIGFILE, $LC_PATH, "LOGBAK", $LC_EMPTYVAL)
Local $s_Temp = IniRead($LC_CONFIGFILE, $LC_PATH, "TMP", $LC_EMPTYVAL)
Local Const $LC_FTA = @ScriptDir & "\conf\Feiertage.txt"
Local Const $LC_EMPTYVALSRV = "Faircom"
Local Const $LC_EMPTYVALTIME = @MDAY & "." & @MON & "." & @YEAR
Local Const $LC_SRV = "SRV"
Local Const $LC_MAIL = "MAIL"
Local Const $LC_MAN = "MANDANT"
Local Const $LC_TIME = "TIME"
Local Const $LC_SQLEXP = "SQL"
Local Const $LC_EXP = "EXPORTE"
Local Const $LC_MISEXP = "MIS"
Local Const $LC_BJ = "Buchungsjahr"
Local Const $LC_PW = "PW"
Local Const $LC_SAPEXP = "SAP"
Local Const $LC_FETAJ = "FEIERTAGS_JAHR"
Local Const $LC_LOGPATH = $s_rootpath & "\log"
Local Const $LC_TIMEFILE = @ScriptDir & "\conf\time.stamp"
Local Const $LC_TIMEFILENAME = "time.stamp"
Local Const $LC_ON = "Online"
Local Const $LC_DATE = _NowCalcDate()
Global $found = 0
Local $s_Jackproz = "Jackv30.exe"
Local $s_cluster = IniRead($LC_CONFIGFILE, $LC_SRV, "SERVER", $LC_EMPTYVALSRV)
Local $s_faircom = IniRead($LC_CONFIGFILE, $LC_SRV, "FAIRCOM", $LC_EMPTYVALSRV)
Local $s_SRVfair = IniRead($LC_CONFIGFILE, $LC_SRV, "SRV", $LC_EMPTYVALSRV)
Local $s_fairsrv = IniRead($LC_CONFIGFILE, $LC_SRV, "FAIRCOM", $LC_EMPTYVALSRV)
Local $s_crspath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRS", $LC_EMPTYVAL)
Local $s_sleep = IniRead($LC_CONFIGFILE, $LC_PATH, "SCHLAF", $LC_EMPTYVAL)
Local $s_mandant = IniRead($LC_CONFIGFILE, $LC_MAN, "MAN", $LC_EMPTYVAL)
Local $s_timestart = IniRead($LC_TIMEFILE, $LC_TIME, "beginn", $LC_EMPTYVALTIME)
Local $s_timeend = IniRead($LC_TIMEFILE, $LC_TIME, "ende", $LC_EMPTYVALTIME)
Local $s_BuchungsJahr = IniRead($LC_CONFIGFILE, $LC_BJ, "Jahr", $LC_EMPTYVAL)
Local $s_ctws04log = IniRead($LC_TIMEFILE, $LC_PATH, "CTWS04", $LC_EMPTYVAL)
Local $s_ODBC = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBC", $LC_EMPTYVAL)
Local $s_ODBCx6 = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBCx6", $LC_EMPTYVAL)
Local $s_ODBCx7 = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBCx7", $LC_EMPTYVAL)
Local $s_backup = IniRead($LC_CONFIGFILE, $LC_PATH, "BACKUP", $LC_EMPTYVAL)
Local $s_JODBC = IniRead($LC_CONFIGFILE, $LC_PATH, "JACKODBC", $LC_EMPTYVAL)
Local $s_crsSAPpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSW", $LC_EMPTYVAL)
Local $s_crsMISpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSM", $LC_EMPTYVAL)
Local $s_crsBSPpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSB", $LC_EMPTYVAL)
Local $s_SAPApath = IniRead($LC_CONFIGFILE, $LC_PATH, "SAPA", $LC_EMPTYVAL)
Local $s_MISApath = IniRead($LC_CONFIGFILE, $LC_PATH, "MISA", $LC_EMPTYVAL)
Local $s_BSPApath = IniRead($LC_CONFIGFILE, $LC_PATH, "BSPA", $LC_EMPTYVAL)
Local $s_jahr = IniRead($LC_CONFIGFILE, $LC_FETAJ, "FETA", $LC_EMPTYVAL)
Local $s_exportpfad = IniRead($LC_CONFIGFILE, $LC_PATH, "EXP", $LC_EMPTYVAL)
Local $s_passwort = IniRead($LC_CONFIGFILE, $LC_PW, "pw", $LC_EMPTYVAL)
Local $s_SAPExportpath = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "SAPP", $LC_EMPTYVAL)
Local $s_MISExportpath = IniRead($LC_CONFIGFILE, $LC_MISEXP, "MISP", $LC_EMPTYVAL)
Local $s_SAPDatumVon = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "von", $LC_EMPTYVAL)
Local $s_SAPDatumBis = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "bis", $LC_EMPTYVAL)
Local $s_datenow = _NowCalcDate()
Local $s_date = _DateAdd("D", 1, $s_datenow)
Local $s_Odate = _DateAdd("D", -1, $s_timeend)
Local $s_pos
Local $s_PID
Local $s_PIDf
Local $socket
Local $G_found
Local $s_Pfad, $s_Ist_Groesse, $s_min_groesse, $s_min_groesse_BKP
Local $file, $timer, $size, $diff, $sizeS, $GBS, $GBSa, $GBF, $GB, $VERZ, $varD, $varDS, $sizeD, $GBD
Local $time = 1
Local $s_time
Local $list, $ready, $s_rarfile
Local $time, $t, $Time1, $Date
Local $res_cluster, $line
Local $search, $file
Local $fooB, $lineB
Local $foo, $LC_DATE2, $EDate, $BDate
Local $line, $s_currentfile, $a_filetimem, $s_currentfilem, $h_file, $a_filetime, $s_handle, $s_search, $s_file, $s_ready
Local $s_BeladungslaufIDS, $s_BeladungslaufIDU, $s_BeladungslaufIDB, $s_BELID
Local $f_A, $f_J, $f_B, $f_S, $f_U, $f_K, $f_V, $f_W, $f_M
Local $s_timer, $s_size, $s_sizeS, $s_sizeD, $s_diff, $s_varD
Local $s_rardat = "Jack_" & $s_mandant & "_" & $s_timeend ;& ".rar"
Local $s_rarfiledat
Local $s_logfilename = "Verzeichnisinformationen_Jack_" & $s_mandant & "_vom_" & @MDAY & "." & @MON & "." & StringTrimLeft(@YEAR, 2) & ".txt"
Local $s_mailsender = IniRead($LC_CONFIGFILE, $LC_MAIL, "FROM", "Jack@Mail.at")
Local $s_mailrecipient = IniRead($LC_CONFIGFILE, $LC_MAIL, "TO", "Jack@Mail.at")
Local $s_mailrecipient_BKP = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOBKP", "Jack@Mail.at")
Local $s_mailrecipientNO = IniRead($LC_CONFIGFILE, $LC_MAIL, "TON", "Jack@mail.at")
Local $s_smsrecipientNO = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOSMS", "012345@SMSGATEWAY.lan")
Local $s_smsrecipient = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOMSMS", "06123456@SMSGATEWAY.lan")
Local $s_mailserver = IniRead($LC_CONFIGFILE, $LC_MAIL, "SRV", "172.30.111.111")
Local $s_controll_time = IniRead($LC_CONFIGFILE, $LC_TIME, "CT", $LC_EMPTYVALTIME)
Local $s_controll_time_Import = IniRead($LC_CONFIGFILE, $LC_TIME, "CTI", $LC_EMPTYVALTIME)
Local $s_min_groesse = 10;GB
Local $s_min_groesse_BKP = 3;GB
Local $s_Zeitmessung, $s_Zeitdifferenz,$s_zeitfile,$s_Zeitdifferenzstd,$s_Zeitdifferenzmin

[/autoit] [autoit][/autoit] [autoit]

Local $s_VB_StartZeitpunkt_MIS
Local $s_VB_EndeZeitpunkt_MIS
Local $s_VB_JackVersionsNummer_MIS
Local $s_VB_Aktiv_MIS
Local $s_VB_Fehlerr_MIS
Local $s_VB_ImportDatei_MIS
Local $s_VB_StartZeitpunkt_SAP
Local $s_VB_EndeZeitpunkt_SAP
Local $s_VB_JackVersionsNummer_SAP
Local $s_VB_Aktiv_SAP
Local $s_VB_Fehlerr_SAP
Local $s_VB_ImportDatei_SAP
Local $s_VB_StartZeitpunkt_KND
Local $s_VB_EndeZeitpunkt_KND
Local $s_VB_JackVersionsNummer_KND
Local $s_VB_Aktiv_KND
Local $s_VB_Fehlerr_KND
Local $s_VB_ImportDatei_KND
Local $s_VB_StartZeitpunkt_MIT
Local $s_VB_EndeZeitpunkt_MIT
Local $s_VB_JackVersionsNummer_MIT
Local $s_VB_Aktiv_MIT
Local $s_VB_Fehlerr_MIT
Local $s_VB_ImportDatei_MIT
Local $s_VB_StartZeitpunkt_REP
Local $s_VB_EndeZeitpunkt_REP
Local $s_VB_JackVersionsNummer_REP
Local $s_VB_Aktiv_REP
Local $s_VB_Fehlerr_REP
Local $s_VB_ImportDatei_REP

[/autoit] [autoit][/autoit] [autoit]

Local Const $LC_OKFILE = @ScriptDir & "\OK_MAILSM.txt"
Local Const $LC_OKFILEB = @ScriptDir & "\OK_MAIL.txt"
Local Const $LC_OKFILEI = @ScriptDir & "\OK_MAILI.txt"
Local Const $LC_FAILFILE = @ScriptDir & "\Fail_MAILM.txt"
Local Const $LC_FAILFILEB = @ScriptDir & "\Fail_MAIL.txt"
Local Const $LC_FAILFILEI = @ScriptDir & "\Fail_MAILI.txt"
Local Const $LC_OKSMSFILE = @ScriptDir & "\OK_SMSSM.TXT"
Local Const $LC_OKSMSFILEB = @ScriptDir & "\OK_SMS.TXT"
Local Const $LC_FAILSMSFILE = @ScriptDir & "\Fail_SMSM.TXT"
Local Const $LC_FAILSMSFILEB = @ScriptDir & "\Fail_SMS.TXT"
;Jack01 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant01 = IniRead($LC_CONFIGFILE, $LC_MAN, "M01", $LC_EMPTYVAL)
Local $s_rardat01 = "Jack_" & $s_mandant01 & "_" & $s_timeend ;& ".rar"
Local Const $LC_JACK01 = "JACK01"
Local $s_generic01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "GENERIC01", $LC_EMPTYVAL)
Local $s_rootpath01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "ROOT01", $LC_EMPTYVAL)
Local $s_mandant01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "MAN01", $LC_EMPTYVAL)
Local $s_snr01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "SNR01", $LC_EMPTYVAL)
Local $s_log01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "LOG01", $LC_EMPTYVAL)
Local $s_temp01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "TMP", $LC_EMPTYVAL)
Local $s_configfile01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "INI01", $LC_EMPTYVAL)
Local $s_rarpath = IniRead($LC_CONFIGFILE, $LC_JACK01, "RARPA", $LC_EMPTYVAL)
Local Const $LC_LOGPATH01 = $s_log01
;Jack01 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack09 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant09 = IniRead($LC_CONFIGFILE, $LC_MAN, "M09", $LC_EMPTYVAL)
Local $s_rardat09 = "Jack_" & $s_mandant09 & "_" & $s_timeend ;& ".rar"
;Jack09 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack50 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant50 = IniRead($LC_CONFIGFILE, $LC_MAN, "M50", $LC_EMPTYVAL)
Local $s_rardat50 = "Jack_" & $s_mandant50 & "_" & $s_timeend ;& ".rar"
;Jack50 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack51 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant51 = IniRead($LC_CONFIGFILE, $LC_MAN, "M51", $LC_EMPTYVAL)
Local $s_rardat51 = "Jack_" & $s_mandant51 & "_" & $s_timeend ;& ".rar"
;Jack51 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;~ #include "\Global_XX_CONST.au3"

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=SQL Verbindung zum SQLSRV für Logverzeichnis
#AutoIt3Wrapper_Res_Fileversion=2007.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sfc /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include-once
;;;;;;; #include "XX_SQL.au3"
Local Const $LC_EMPTYVALSRV3 = "SQLSRV1"
Local Const $LC_EMPTYVALSRV1 = "SQLSRV2"
Local Const $LC_EMPTYVALSRV2 = "SQLSRV3"
Local Const $LC_EMPTYVALCAT = "Basisdaten"
Local Const $LC_SQL = "SQL"
Local $s_SQLSRV = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV", $LC_EMPTYVALSRV3)
Local $s_SQLSRV1 = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV1", $LC_EMPTYVALSRV1)
Local $s_SQLSRV2 = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV2", $LC_EMPTYVALSRV2)
Local $s_SQLCAT = IniRead($LC_CONFIGFILE, $LC_SQL, "catalog", $LC_EMPTYVALCAT)
Local $sqlCon
Local $adoRs
Local $rardat
Global $SQL_Projekt
Local $EXPdat
Local $SPFAD
Local $MAN
Local $s_VB_StartZeitpunkt
Local $s_VB_EndeZeitpunkt
Local $s_VB_JackVersionsNummer
Local $s_VB_JackVersionsNummer1
Local $s_VB_ImportDatei
Local $s_VB_Aktiv
Local $s_VB_Fehler
Local $s_VB_Aktive
Local $s_VB_Fehlerr
Local $s_Jahr
Local $s_Mon
Local $s_Tag
Local $s_H
Local $s_min
Local $s_sec
Local $s_BeladungslaufID
Local $BELArVerzGroesse
Local $BELArFileAnz

[/autoit] [autoit][/autoit] [autoit]

Local $objConnection,$objCommand,$objRecordSet,$AD_OU_INFO
;----#include "XX_SQL.au3"
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func EXPDAT_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_EXP_Jack_FileName @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $s_rarfile = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_rarfile = .Fields("ImportDatei" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_rarfile)
EndFunc ;==>EXPDAT_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Aktiv($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source="&$s_SQLSRV1&";Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_Aktiv = .Fields("Aktiv" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
If $s_VB_Aktiv = False Or $s_VB_Aktiv = 0 Then
$s_VB_Aktive = 0
Else
$s_VB_Aktive = 1
EndIf
Return ($s_VB_Aktive)
EndFunc ;==>Import_ready_Aktiv
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Ende($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_EndeZeitpunkt = .Fields("EndeZeitpunkt" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_Jahr = StringMid($s_VB_EndeZeitpunkt, 1, 4)
$s_Mon = StringMid($s_VB_EndeZeitpunkt, 5, 2)
$s_Tag = StringMid($s_VB_EndeZeitpunkt, 7, 2)
$s_H = StringMid($s_VB_EndeZeitpunkt, 9, 2)
$s_min = StringMid($s_VB_EndeZeitpunkt, 11, 2)
$s_sec = StringMid($s_VB_EndeZeitpunkt, 13, 2)
$s_VB_EndeZeitpunkt = $s_Jahr & "-" & $s_Mon & "-" & $s_Tag & "_" & $s_H & ":" & $s_min & ":" & $s_sec
Return ($s_VB_EndeZeitpunkt)
EndFunc ;==>Import_ready_Ende
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Fehler($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_Fehler = .Fields("Fehler" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
If $s_VB_Fehler = False Or $s_VB_Fehler = 0 Then
$s_VB_Fehlerr = 0
Else
$s_VB_Fehlerr = 1
EndIf
Return ($s_VB_Fehlerr)
EndFunc ;==>Import_ready_Fehler
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_ImportDatei($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_ImportDatei = .Fields("ImportDatei" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_VB_ImportDatei = StringTrimLeft($s_VB_ImportDatei, 34)
Return ($s_VB_ImportDatei)
EndFunc ;==>Import_ready_ImportDatei
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_JackVersion($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_JackVersionsNummer1 = .Fields("JackVersionsNummer" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_VB_JackVersionsNummer = StringLeft($s_VB_JackVersionsNummer1, 7) & " vom " & StringRight($s_VB_JackVersionsNummer1, 18)
Return ($s_VB_JackVersionsNummer)
EndFunc ;==>Import_ready_JackVersion
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Start($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_StartZeitpunkt = .Fields("StartZeitpunkt" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_Jahr = StringMid($s_VB_StartZeitpunkt, 1, 4)
$s_Mon = StringMid($s_VB_StartZeitpunkt, 5, 2)
$s_Tag = StringMid($s_VB_StartZeitpunkt, 7, 2)
$s_H = StringMid($s_VB_StartZeitpunkt, 9, 2)
$s_min = StringMid($s_VB_StartZeitpunkt, 11, 2)
$s_sec = StringMid($s_VB_StartZeitpunkt, 13, 2)
$s_VB_StartZeitpunkt = $s_Jahr & "-" & $s_Mon & "-" & $s_Tag & "_" & $s_H & ":" & $s_min & ":" & $s_sec
Return ($s_VB_StartZeitpunkt)
EndFunc ;==>Import_ready_Start
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_BEL_($s_BeladungslaufID, $BELArVerzGroesse, $BELArFileAnz, $BELArdir, $BELArdat)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_BEL " & $s_BeladungslaufID & "," & $BELArVerzGroesse & "," & $BELArFileAnz & "," & $BELArdir & ",'" & $BELArdat & "'")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_BEL_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_END_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_END " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_END_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_JD_($s_BeladungslaufID, $JackDatVerzGroesse, $JackDatFileAnz)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_JD " & $s_BeladungslaufID & "," & $JackDatVerzGroesse & "," & $JackDatFileAnz & "")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_JD_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_LW_($s_BeladungslaufID, $LWGroesse)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_LW " & $s_BeladungslaufID & "," & $LWGroesse)
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_LW_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_START_($SQL_Mandant, $SQL_Projekt)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_Jack_LW_Daten_Start " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>Jack_LW_Daten_START_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_SNR_($s_BeladungslaufID, $SNRVerzGroesse, $SNRFileAnz)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_SNR " & $s_BeladungslaufID & ",'" & $SNRVerzGroesse & "','" & $SNRFileAnz & "'")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_SNR_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func MISREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.osp_JACK_Import_Today " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
Local $ready = 0
If $adoRs.RecordCount Then $ready = 1
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>MISREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func MISREADYTEST_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.osp_JACK_Import_Today @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>MISREADYTEST_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGEND_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_EndJackBeladungslauf @BeladungslaufID = " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>OSQLLOGEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGREADY_($SQL_Projekt, $SQL_Mandant, $rardat)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>OSQLLOGREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGSTART_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_StartJackBeladungslauf " & $SQL_Mandant & ",'" & $SQL_Projekt & "', '" & $rardat & "'", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>OSQLLOGSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
;===============================================================================
;
; Function Name:OU_read_from_PC
; Description::Liest die Organisations Unit (OU) aus dem Active Directory (AD) eines im AD vorhandenen Computers aus
; Parameter(s): $AD_COMPUTER (Der Computername)
; Requirement(s):-
; Return Value(s): Beim Erfolg: gibt den OU des DomänenComputers aus .
;
; Author(s):TOMTOM25m (Garnreiter (c)2008)
;
;===============================================================================
;

[/autoit] [autoit][/autoit] [autoit]

Func OU_read_from_PC($AD_COMPUTER)

[/autoit] [autoit][/autoit] [autoit]

Const $ADS_SCOPE_SUBTREE = 2

[/autoit] [autoit][/autoit] [autoit]

$objConnection = ObjCreate("ADODB.Connection")
$objCommand = ObjCreate("ADODB.Command")

[/autoit] [autoit][/autoit] [autoit]

$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

[/autoit] [autoit][/autoit] [autoit]

$objCommand.Properties("Page Size") = 1000
$objCommand.Properties("Searchscope") = $ADS_SCOPE_SUBTREE

[/autoit] [autoit][/autoit] [autoit]

$objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://dc=FIRMA,dc=lan' WHERE objectCategory='computer' AND name='" & $AD_COMPUTER & "'"

[/autoit] [autoit][/autoit] [autoit]

$objRecordSet = $objCommand.Execute

[/autoit] [autoit][/autoit] [autoit]

$objRecordSet.MoveFirst

[/autoit] [autoit][/autoit] [autoit]

Do
$AD_OU_INFO = $objRecordSet.Fields("ADsPath" ).Value
$objRecordSet.MoveNext
Until $objRecordSet.EOF

[/autoit] [autoit][/autoit] [autoit]

$objCommand = 0
$objRecordSet = 0
$AD_OU_INFO = StringSplit($AD_OU_INFO, ",")
$AD_OU_INFO = StringTrimLeft($AD_OU_INFO [3], 3)
Return $AD_OU_INFO
EndFunc ;==>OU_read_from_PC
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPEND_($s_BeladungslaufID, $EXPdat)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_End_Jack_EXP_Beladungslauf @BeladungslaufID =" & $s_BeladungslaufID & ",@ImportDatei ='" & $EXPdat & "'")
$sqlCon.Close
EndFunc ;==>SQLEXPEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_Is_Jack_EXP_BeladungslaufReady @BeladungslaufID = " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = " & $SQL_Projekt & ", @ImportDatei =" & $rardat & "", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>SQLEXPREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPSTART_($SQL_Mandant, $SQL_Projekt)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_START_JACK_EXP_Beladungslauf " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>SQLEXPSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGEND_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_EndJackBeladungslauf @BeladungslaufID = " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>SQLLOGEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_IsJackBeladungslaufReady " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = " & $SQL_Projekt & ", @ImportDatei =" & $rardat & "", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>SQLLOGREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGSTART_($SQL_Projekt, $SQL_Mandant, $rardat = "")
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_StartJackBeladungslauf " & $SQL_Mandant & ",'" & $SQL_Projekt & "', '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>SQLLOGSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func RARDAT_($SQL_Projekt, $SQL_Mandant); $File = RARDAT_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_EndJackFileName @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $s_rarfile = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_rarfile = .Fields("ImportDatei" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_rarfile)
EndFunc ;==>RARDAT_

[/autoit]