Pfade stehen in der INI und werden so gesetzt ...
Code: Alles auswählen
INI ...
[Allgemein]
IsCitrixAktiv=1
; 1 -> Citrix ist aktiv, sonst 0
IsAutoLogon=1
; 1 -> Logon nutzt Windowsuser
[CitrixPfade]
; die jeweiligen kompletten Pfade OHNE Anführungszeichen etc.
HilfsTabellenVerzeichnis = \\SERVER\FREIGABE\ANWENDUNG\
DatenVerzeichnisWorkDat = \\SERVER\FREIGABE\ANWENDUNG\WORKDAT\
DatenVerzeichnisTestDat = \\SERVER\FREIGABE\ANWENDUNG\TESTDAT\
[LANPfade]
; die jeweiligen kompletten Pfade OHNE Anführungszeichen etc.
HilfsTabellenVerzeichnis = daten
DatenVerzeichnisWorkDat = daten
DatenVerzeichnisTestDat = daten
...
PRG ... Aufruf aus MAIN()
oDlg := SetAppWindow()
oDlg:IsCitrixAktiv := ( "1" = GetProgIni("Allgemein","IsCitrixAktiv","0") ) // SIEHE IN INI !!!
...
if oDlg:IsCitrixAktiv // Citrix steuert auch die Verwendung der Citrix-Datenpfade
oDlg:RunInReadOnlyMode := .t.
...
*------------------------------------------------------------- LAN_TestDatenVerzeichnis() ---------------
function LAN_TestDatenVerzeichnis()
local lFehler := .f., cHilfsVerz, cDatenTest, cDatenWork
do case
case SetAppWindow():IsCitrixAktiv // #########################
cHilfsVerz := GetProgIni("CitrixPfade","HilfsTabellenVerzeichnis","")
cDatenTest := GetProgIni("CitrixPfade","DatenVerzeichnisTestDat","")
cDatenWork := GetProgIni("CitrixPfade","DatenVerzeichnisWorkDat","")
...
HilfsTabellenVerzeichnis(cHilfsVerz)
if TestModus()
DatenVerzeichnis(cDatenTest)
else
DatenVerzeichnis(cDatenWork)
endif
...
Aufruf der PDF aus der EXE für Hilfeanzeige ... funktioniert wunderbar seit Jahren, auch nach Umstellung auf neue Server
... im Menü ...
soMenu:addItem({ "Hinweistexte anzeigen", {|| ZeigHinweise() } })
...
*------------------------------------------------------------- ZeigHinweise() -------------------------
FUNCTION ZeigHinweise()
LOCAL aHinweise, aPDFDateien, aTemp
aTemp := directory(Hilfstabellenverzeichnis()+"*.PDF")
IF ! empty(aTemp)
aPDFDateien := {} // tatsächlicher Dateiname
aEval(aTemp,{|aFileInfo| aadd(aPDFDateien,convToOEMCP(aFileInfo[1])) })
ELSE
InfoBox("Es wurden keine Hinweise hinterlegt.")
ENDIF
IF ! empty(aPDFDateien)
aHinweise := Auswahlliste(aPDFDateien,"Hinweistexte")
ENDIF
IF ! empty(aHinweise)
IF " " $ aHinweise[1]
infobox("Der Dateiname '"+aHinweise[1]+"' enthält Leerzeichen."+CRLF+;
"Dies ist nicht erlaubt. Bitte R3-Brandel anrufen (1288) !")
ELSE
RunShell( '/C START '+Hilfstabellenverzeichnis()+convToANSICP(aHinweise[1]),,.T.,.T. )
ENDIF
ENDIF
RETURN NIL