PROCEDURE TTPROCCS
* ttprocCS  - Client-�nderungen auf den Server �bertragen
PRIVATE aBest := {}, aAuftr := { "      ", 0 }
nAreaC  := 1
nAreaCB := 2
nAreaS  := 3
nAreaSB := 4

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

SELECT 11
USE C:\HDBE\mwstdat
cSystem := system
USE

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

SELECT &nAreaC
nRecC := 1
nZei  := 2      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .T. .AND. .NOT. Eof()
   nRecC := TTCzuS( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "best" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

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

SELECT &nAreaC
nRecC := 1
nZei  := 2      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .T. .AND. .NOT. Eof()
   nRecC := TTCzuS( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vbest" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

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

SELECT &nAreaC
nRecC := 1
nZei  := 2      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .T. .AND. .NOT. Eof()
   nRecC := TTCzuSv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vers" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

SELECT &nAreaC
USE C:\HDBE\tauftr EXCLUSIVE
SELECT &nAreaCB
USE C:\HDBE\auftr EXCLUSIVE
SET INDEX TO C:\HDBE\XAUFAUF
SELECT &nAreaS
USE tauftr EXCLUSIVE             // im Default-Verzeichnis
SELECT &nAreaSB
USE auftr EXCLUSIVE              // im Default-Verzeichnis
cInd := cDatver + "XAUFAUF"    // im Default-Verzeichnis
SET INDEX TO &cInd
SELECT 6
USE art EXCLUSIVE
cInd := cDatver + "XART_LEI"
SET INDEX TO &cInd

SELECT &nAreaC
nRecC := 1
DO WHILE .T. .AND. .NOT. Eof()
   nRecC := TTCzuSa ( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, 6 )
   nRecC := nRecC+3
   GO nRecC
ENDDO

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

SELECT &nAreaC
nRecC := 1
nZei  := 2      // Startzeile Dialog "Neue Auftr.-Nr.:"
DO WHILE .T. .AND. .NOT. Eof()
   nRecC := TTCzuSvv( nAreaC, nAreaCB, nAreaS, nAreaSB, nRecC, "vv" )
   nRecC := nRecC+3
   GO nRecC
ENDDO

 
CLEAR ALL
RETURN