Inoffizielles deutsches Xbase-Forum

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