PROCEDURE TTPRO5SC( cServer, cClient )
* ttpro5SC  - Server-Žnderungen auf den Client bertragen

cClient := IIf( !Empty(cClient), cClient, "C:\HDBE\" )
cServer := IIf( !Empty(cServer), cServer, cDatver )

nAreaC  := 1
nAreaCB := 2
nAreaS  := 3
nAreaSB := 4

IF UPPER( cLon ) == "L" .AND. !File( "C:\hdbe\ob", "D" )     // d.h. Client ist ein LapTop
        wait " FEHLER ! Starten Sie das Programm neu im Netzwerk-Modus "
        RETURN
ENDIF

SELECT 11
USE C:\HDBE\mwstdat
cSystem := system
USE
//cSystem := "19"         // nur fr Essen <==> Oberhausen ! :
//cSystem := IIf( Val( cSystem ) == 1, "19", cSystem )
//cDatver := IIf( cSystem == "19", "T:\HDBE\", cDatver )
//IF File( "C:\HDBE\DUISBURG" ) .AND. File( "C:\HDBE\ESSEN" )
//  wait "Ort-Identifizierung ist nicht eindeutig ( Essen / Duisburg ) -> Abbruch !"
//  RETURN
//ENDIF
//IF File( "C:\HDBE\DUISBURG" )
//   cSystem := IIf( Val( cSystem ) == 1, "18", cSystem )
//ENDIF
//IF File( "C:\HDBE\ESSEN" )
//   cSystem := IIf( Val( cSystem ) == 1, "19", cSystem )
//ENDIF
//cDatver := IIf( cSystem == "19" .OR. cSystem == "18", "T:\HDBE\", cDatver )

@ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
@ 6,0 SAY ""


SELECT &nAreaC
cTDatei := cClient + "tbest"
USE &cTDatei EXCLUSIVE ALIAS tbestC
   SELECT &nAreaCB
   cDatei := cClient + "best"
   USE &cDatei EXCLUSIVE ALIAS bestC
   cInd := cClient + "XAUFTRNR" 
   SET INDEX TO &cInd
SELECT &nAreaS
cTDatei := cServer + "tbest"
USE &cTDatei EXCLUSIVE Alias tbests   // im Default-Verzeichnis
   SELECT &nAreaSB
   cDatei := cServer + "best"
   USE &cDatei EXCLUSIVE ALIAS bests     // im Default-Verzeichnis
   cInd := cServer + "XAUFTRNR"    // im Default-Verzeichnis
   SET INDEX TO &cInd

//SELECT &nAreaC
//USE C:\HDBE\tbest EXCLUSIVE
//SELECT &nAreaCB
//USE C:\HDBE\best EXCLUSIVE
//SET INDEX TO C:\HDBE\xauftrnr
//SELECT &nAreaS
//cTbest := cDatver + "tbest"
//USE &cTbest EXCLUSIVE ALIAS tbests            // im Default-Verzeichnis
//SELECT &nAreaSB
//cBest := cDatver + "best"
//USE &cBest EXCLUSIVE ALIAS bests             // im Default-Verzeichnis
//cInd := cDatver + "XAUFTRNR"    // im Default-Verzeichnis
//SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "BEST - "+Str(nRecS,4,0)
   nRecS := TTSzuC( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS, "best" )
   nRecS := nRecS+3
   GO nRecS
ENDDO

//      Packen aller gel”schten tbestC-S„tze:
SELECT &nAreaC
PACK
//      šberprfen, ob die Datei v”llig leer:
GO BOTTOM
IF RecNo() > 1
   ? " FEHLER : Die TT-best-Datei im Client ist nicht leer ! "
ENDIF

@ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
@ 6,0 SAY ""

SELECT &nAreaC
cTDatei := cClient + "tvbest"
USE &cTDatei EXCLUSIVE ALIAS tvbestC
   SELECT &nAreaCB
   cDatei := cClient + "vbest"
   USE &cDatei EXCLUSIVE ALIAS vbestC
   cInd := cClient + "XVAUFTRN" 
   SET INDEX TO &cInd
SELECT &nAreaS
cTDatei := cServer + "tvbest"
USE &cTDatei EXCLUSIVE Alias tvbests   // im Default-Verzeichnis
   SELECT &nAreaSB
   cDatei := cServer + "vbest"
   USE &cDatei EXCLUSIVE ALIAS vbests     // im Default-Verzeichnis
   cInd := cServer + "XVAUFTRN"    // im Default-Verzeichnis
   SET INDEX TO &cInd

//SELECT &nAreaC
//USE C:\HDBE\tvbest EXCLUSIVE
//SELECT &nAreaCB
//USE C:\HDBE\vbest EXCLUSIVE
//SET INDEX TO C:\HDBE\xvauftrn
//SELECT &nAreaS
//cTbest := cDatver + "tvbest"
//USE &cTbest EXCLUSIVE ALIAS tvbests            // im Default-Verzeichnis
//SELECT &nAreaSB
//cBest := cDatver + "vbest"
//USE &cBest EXCLUSIVE Alias vbests             // im Default-Verzeichnis
//cInd := cDatver + "XVAUFTRN"    // im Default-Verzeichnis
//SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "VORVER-"+Str(nRecS,4,0)
   nRecS := TTSzuC( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS, "vbest" )
   nRecS := nRecS+3
   GO nRecS
ENDDO

//      Packen aller gel”schten tvbestC-S„tze:
SELECT &nAreaC
PACK
//      šberprfen, ob die Datei v”llig leer:
GO BOTTOM
IF RecNo() > 1
   ? " FEHLER : Die TT-vbest-Datei im Client ist nicht leer ! "
ENDIF

@ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
@ 6,0 SAY ""

SELECT &nAreaC
cTDatei := cClient + "tvers"
USE &cTDatei EXCLUSIVE ALIAS tversC
   SELECT &nAreaCB
   cDatei := cClient + "vers"
   USE &cDatei EXCLUSIVE ALIAS versC
   cInd := cClient + "XVERSKZ" 
   SET INDEX TO &cInd
SELECT &nAreaS
cTDatei := cServer + "tvers"
USE &cTDatei EXCLUSIVE Alias tverss   // im Default-Verzeichnis
   SELECT &nAreaSB
   cDatei := cServer + "vers"
   USE &cDatei EXCLUSIVE ALIAS verss     // im Default-Verzeichnis
   cInd := cServer + "XVERSKZ"    // im Default-Verzeichnis
   SET INDEX TO &cInd

//SELECT &nAreaC
//USE C:\HDBE\tvers EXCLUSIVE
//SELECT &nAreaCB
//USE C:\HDBE\vers EXCLUSIVE
//SET INDEX TO C:\HDBE\XVERSKZ
//SELECT &nAreaS
//cTvers := cDatver + "tvers"
//USE &cTvers EXCLUSIVE ALIAS tverss            // im Default-Verzeichnis
//SELECT &nAreaSB
//cVers := cDatver + "vers"
//USE &cVers EXCLUSIVE ALIAS verss             // im Default-Verzeichnis
//cInd := cDatver + "XVERSKZ"    // im Default-Verzeichnis
//SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "ADRESS-"+Str(nRecS,4,0)
   nRecS := TTSzuCv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS, "vers" )
   nRecS := nRecS+3
   GO nRecS
ENDDO

//      Packen aller gel”schten tversC-S„tze:
SELECT &nAreaC
PACK
//      šberprfen, ob die Datei v”llig leer:
GO BOTTOM
IF RecNo() > 1
   ? " FEHLER : Die TT-vers-Datei im Client ist nicht leer ! "
ENDIF

@ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
@ 6,0 SAY ""

SELECT &nAreaC
cTDatei := cClient + "tauftr"
USE &cTDatei EXCLUSIVE ALIAS tauftrC
   SELECT &nAreaCB
   cDatei := cClient + "auftr"
   USE &cDatei EXCLUSIVE ALIAS auftrC
   cInd := cClient + "XAUFAUF" 
   SET INDEX TO &cInd
SELECT &nAreaS
cTDatei := cServer + "tauftr"
USE &cTDatei EXCLUSIVE Alias tauftrs   // im Default-Verzeichnis
   SELECT &nAreaSB
   cDatei := cServer + "auftr"
   USE &cDatei EXCLUSIVE ALIAS auftrs     // im Default-Verzeichnis
   cInd := cServer + "XAUFAUF"    // im Default-Verzeichnis
   SET INDEX TO &cInd

//SELECT &nAreaC
//USE C:\HDBE\tauftr EXCLUSIVE
//SELECT &nAreaCB
//USE C:\HDBE\auftr EXCLUSIVE
//SET INDEX TO C:\HDBE\XAUFAUF
//SELECT &nAreaS
//cTAuftr := cDatver + "tauftr"
//USE &cTAuftr EXCLUSIVE ALIAS tauftrs            // im Default-Verzeichnis
//SELECT &nAreaSB
//cAuftr := cDatver + "auftr"
//USE &cAuftr EXCLUSIVE ALIAS auftrs             // im Default-Verzeichnis
//cInd := cDatver + "XAUFAUF"    // im Default-Verzeichnis
//SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "RECHNG-"+Str(nRecS,4,0)
   nRecS := TTSzuCa( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS, "auftr" )
   nRecS := nRecS+3
   GO nRecS
ENDDO

//      Packen aller gel”schten tversC-S„tze:
SELECT &nAreaC
PACK
//      šberprfen, ob die Datei v”llig leer:
GO BOTTOM
IF RecNo() > 1
   ? " FEHLER : Die TT-auftr-Datei im Client ist nicht leer ! "
ENDIF

@ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
@ 6,0 SAY ""

SELECT &nAreaC
cTDatei := cClient + "tvv"
USE &cTDatei EXCLUSIVE ALIAS tvvC
   SELECT &nAreaCB
   cDatei := cClient + "vv"
   USE &cDatei EXCLUSIVE ALIAS vvC
   cInd := cClient + "XVVAUF" 
   SET INDEX TO &cInd
SELECT &nAreaS
cTDatei := cServer + "tvv"
USE &cTDatei EXCLUSIVE Alias tvvs   // im Default-Verzeichnis
   SELECT &nAreaSB
   cDatei := cServer + "vv"
   USE &cDatei EXCLUSIVE ALIAS vvs     // im Default-Verzeichnis
   cInd := cServer + "XVVAUF"    // im Default-Verzeichnis
   SET INDEX TO &cInd

//SELECT &nAreaC
//USE C:\HDBE\tvv EXCLUSIVE
//SELECT &nAreaCB
//USE C:\HDBE\vv EXCLUSIVE
//SET INDEX TO C:\HDBE\XVVAUF
//SELECT &nAreaS
//cTvv := cDatver + "tvv"
//USE &cTvv EXCLUSIVE ALIAS tvvs            // im Default-Verzeichnis
//SELECT &nAreaSB
//cVv := cDatver + "vv"
//USE &cVv EXCLUSIVE ALIAS vvs             // im Default-Verzeichnis
//cInd := cDatver + "XVVAUF"    // im Default-Verzeichnis
//SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "VERSAN-"+Str(nRecS,4,0)
   nRecS := TTSzuCvv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS, "vv" )
   nRecS := nRecS+3
   GO nRecS
ENDDO

//      Packen aller gel”schten tversC-S„tze:
SELECT &nAreaC
PACK
//      šberprfen, ob die Datei v”llig leer:
GO BOTTOM
IF RecNo() > 1
   ? " FEHLER : Die TT-vv-Datei im Client ist nicht leer ! "
ENDIF

CLOSE DATA
RETURN