// am 20.01.2025 16:46 berflssige geREMte Codezeilen entfernt
//
PROCEDURE TTPRO5CS( cServer, cClient )
* ttpro5CS  - Client-Žnderungen auf den Server bertragen
PRIVATE aBest := {}
cClient := IIf( !Empty(cClient), cClient, "C:\HDBE\" )
cServer := IIf( !Empty(cServer), cServer, cDatver )
nAreaC  := 1
nAreaCB := 2
nAreaS  := 3
nAreaSB := 4

//IF UPPER( cDatver ) == "C:\HDBE\"
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

@ 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
nRecC := 1
nZei  := 5      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .NOT. Eof()
   IF nZei >= 22
      @ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
   ENDIF
   @ 6,65 SAY "BEST - "+Str(nRecC,4,0)
   nRecC := TTCzuS( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "best" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

@ 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
nRecC := 1
nZei  := 5    // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .NOT. Eof()
   IF nZei >= 22
      @ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
   ENDIF
   @ 6,65 SAY "VORVER-"+Str(nRecC,4,0)
   nRecC := TTCzuS( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vbest" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

@ 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
nRecC := 1
nZei  := 5      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .NOT. Eof()
   IF nZei >= 22
      @ 6,0 CLEAR             // Bild frei fr neue Auftr.-Nummern
   ENDIF
   @ 6,65 SAY "ADRESS-"+Str(nRecC,4,0)
   nRecC := TTCzuSv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vers" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

@ 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 6
cTDatei := cServer + "art"
USE &cTDatei EXCLUSIVE
cInd := cServer + "XART_LEI"
SET INDEX TO &cInd

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

@ 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
nRecC := 1
DO WHILE .NOT. Eof()
   @ 6,65 SAY "VERSAN-"+Str(nRecC,4,0)
   nRecC := TTCzuSvv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vv" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

CLOSE DATA

RETURN