PROCEDURE TTdos5SC
* ttdoscSC  - Server-Žnderungen auf den Client bertragen

nAreaC  := 1
nAreaCB := 2
nAreaS  := 3
nAreaSB := 4
cDatver := "T:\HDBE\"

IF UPPER( cDatver ) == "C:\HDBE\"
        wait " FEHLER ! Client-Verzeichnis == Server-Verzeichnis "
        RETURN
ENDIF

SELECT 11
USE C:\HDBE\mwstdat
cSystem := system
USE
cSystem := IIf( Val( cSystem ) == 1, "19", cSystem )
//cSystem := "19"         // nur fr Essen !

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 tbestc            // im Default-Verzeichnis
SELECT &nAreaSB
cBest := cDatver + "best"
USE &cBest EXCLUSIVE ALIAS bestc             // im Default-Verzeichnis
cInd := cDatver + "XAUFTRNR"    // im Default-Verzeichnis
SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   nRecS := TTSzuC( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS )
   nRecS := nRecS+3
   GO nRecS
   @ 6,1 say str(nRecS,6,0)
ENDDO

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

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 tvbestc            // im Default-Verzeichnis
SELECT &nAreaSB
cBest := cDatver + "vbest"
USE &cBest EXCLUSIVE Alias vbestc             // im Default-Verzeichnis
cInd := cDatver + "XVAUFTRN"    // im Default-Verzeichnis
SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   nRecS := TTSzuC( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS )
   nRecS := nRecS+3
   GO nRecS
   @ 6,1 say str(nRecS,6,0)
ENDDO

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

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 tversc            // im Default-Verzeichnis
SELECT &nAreaSB
cVers := cDatver + "vers"
USE &cVers EXCLUSIVE ALIAS versc             // im Default-Verzeichnis
cInd := cDatver + "XVERSKZ"    // im Default-Verzeichnis
SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   nRecS := TTSzuCv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS )
   nRecS := nRecS+3
   GO nRecS
   @ 6,1 say str(nRecS,6,0)
ENDDO

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

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 tauftrc            // im Default-Verzeichnis
SELECT &nAreaSB
cAuftr := cDatver + "auftr"
USE &cAuftr EXCLUSIVE ALIAS auftrc             // im Default-Verzeichnis
cInd := cDatver + "XAUFAUF"    // im Default-Verzeichnis
SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   nRecS := TTSzuCa( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS )
   nRecS := nRecS+3
   GO nRecS
   @ 6,1 say str(nRecS,6,0)
ENDDO

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

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 tvvc            // im Default-Verzeichnis
SELECT &nAreaSB
cVv := cDatver + "vv"
USE &cVv EXCLUSIVE ALIAS vvc             // im Default-Verzeichnis
cInd := cDatver + "XVVAUF"    // im Default-Verzeichnis
SET INDEX TO &cInd

SELECT &nAreaS
nRecS := 1
DO WHILE .NOT. Eof()
   nRecS := TTSzuCvv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecS )
   nRecS := nRecS+3
   GO nRecS
   @ 6,1 say str(nRecS,6,0)
ENDDO

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



CLOSE DATA
RETURN