*---
****Procedure FilesTo
****This procedure copies all of the files and databases necessary 
*	for the QC process to the local hard drive.
*	This includes all the database files ects
*	The procedure then copies the data into the empty files 
*	from the orginal BATCH file(EX 2001.DAT).
************************************************************
****                 DataBase   SECTION                 ****
****DataBases Used
*	None
****DataBases Created
*	None
************************************************************
****                 Files      SECTION                 ****
****Files Used
*	None
****Files Created
************************************************************
****                 VARIABLES  SECTION                 ****
****Parameters GLOBAL
*	Path variables are used.
*	No changes are made.
*	They are defined in main menu setup.
****Parameters pased to procedure
* 	lcFormType-- The form number ie "601","520","620" ect
*	lcDatafile-- The batch file name ie 20011.DAT
****Parameters Used
*	lnTNHRLan -- Total Number of Header Recs on Lan Hd
*	lnTNDRLan -- Total Number of Data   Recs on Lan Hd

*	lnTNHRLoc -- Total Number of Header Recs on Loc Hd
*	lnTNDRLoc -- Total Number of Data   Recs on Loc Hd

*	lcPToLan  -- Path to dir on Lan Hd
*	lcPToLoc  -- Path to dir on loc Hd
*	lcPTempLoc-- Store Path to and name of data file(Type Text)
*	lcPLanD	  -- Path to data on lan
****Parameters returned
*	None
*--
PROCEDURE FilesTo
PARAMETERS lcFormType, lcDatafile
PRIVATE lcFormType, lcDatafile

WAIT "STARTING FILE COPY TO YOUR PC IN DIR C:AQCVIK "WINDOW NOWAIT
PRIVATE lcPToLan, lcPToLoc
PRIVATE lcPTempLoc
PRIVATE lnTNHRLan, lnTNDRLan, lnTNHRLoc, lnTNDRLoc 
PRIVATE lcPLanD, llAllReady

llAllReady = .F.
lnTNHRLan  = 0
lnTNDRLan  = 0
lnTNHRLoc  = 0
lnTNDRLoc  = 0
lcDatafile = ALLTRIM(lcDatafile)
lcPToLan = gcDrvLan + gcAvik + gcMod1 + gcd
lcPToLoc 	 = gcDrvLoc + gcAQCVik
lcPTempLoc = lcPToLoc + lcDatafile
lcPLanD = gcDrvLan + gcAvik + gcDATA + lcDatafile


COPY FILE lcPToLan + "YNFLAGS" + ".DBF" TO lcPToLoc + "YNFLAGS" + ".DBF"
SELECT 0
USE lcPToLoc + "YNFLAGS" + ".DBF"

COPY FILE lcPToLan + "HR"  + lcFormType + ".DBF" TO lcPToLoc + "HR" + lcFormType + ".DBF"
SELECT 0
USE lcPToLoc + "HR" + lcFormType + ".DBF"

DO COUNTREC WITH lcPTempLoc, lnTNHRLan, lnTNDRLan, llAllReady

DO COUNTREC WITH lcPLanD, lnTNHRLoc, lnTNDRLoc, llAllReady

IF ((lnTNHRLan = lnTNHRLoc) .AND. (lnTNDRLan = lnTNDRLoc))
WAIT "The Data File has been copied correctly" WINDOW NOWAIT
ELSE
WAIT "The Data File DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "The Data File DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "ERROR FOUND BY FILES TO PROGRAM" WINDOW 

ENDIF

IF llAllReady
WAIT "This File has been down loaded AT LEAST ONCE FOR QC." WINDOW NOWAIT
ELSE
WAIT "This File has NEVER been down loaded FOR QC." WINDOW 
ENDIF





APPEND FROM (lcPTempLoc) FOR rectype = "H" TYPE SDF
GO TOP
REPLACE VRECPOS WITH STR((RECNO()*1000)) ALL
GO BOTTOM
REPLACE YNFLAGS.NOHEADRECS WITH RECNO()
IF lnTNHRLoc = RECNO()
WAIT "The correct no of headers copied to data base" WINDOW NOWAIT
ELSE
WAIT "The HEADER DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "The HEADER DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "ERROR FOUND BY FILES TO PROGRAM" WINDOW 

ENDIF
GO TOP
USE


COPY FILE lcPToLan + "RR"  + lcFormType + ".DBF" TO lcPToLoc + "RR" + lcFormType + ".DBF"
SELECT 0
USE lcPToLoc + "RR" + lcFormType + ".DBF" ALIAS TEMPRR
APPEND FROM (lcPTempLoc) FOR rectype = "T" TYPE SDF
GO TOP

*CHANGE 4/13/93
REPLACE VRECPOS WITH STR((RECNO()*1000)) ALL
GO BOTTOM
REPLACE YNFLAGS.NODATARECS WITH RECNO()

IF lnTNDRLoc = RECNO()
WAIT "The correct no of DATA RECS copied to data base" WINDOW NOWAIT
ELSE
WAIT "The DATA DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "The DATA DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "ERROR FOUND BY FILES TO PROGRAM" WINDOW 

ENDIF



GO TOP

COPY FILE lcPToLan + "FR"  + lcFormType + ".DBF" TO lcPToLoc + "FR" + lcFormType + ".DBF"
SELECT 0
USE lcPToLoc + "FR" + lcFormType + ".DBF" ALIAS TEMPFR
APPEND FROM (lcPTempLoc) FOR rectype = "U" TYPE SDF
IF (RECCOUNT()) = 0
	SELECT TEMPRR
	GO TOP
		SCAN
		SCATTER FIELDS FORM, SHIPCC, VRECPOS MEMVAR
		SELECT TEMPFR
		APPEND BLANK
		GATHER MEMVAR FIELDS FORM, SHIPCC, VRECPOS
		SELECT TEMPRR
		ENDSCAN
	SELECT TEMPFR
	REPLACE RECTYPE WITH "U" ALL
ENDIF
SELECT TEMPFR

GO BOTTOM

IF lnTNDRLoc = RECNO()
WAIT "The correct no of FLAG RECS copied to data base" WINDOW NOWAIT
ELSE
WAIT "The FLAG DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "The FLAG DB DID NOT COPY CORRECTLY CALL SYS ADMIN" WINDOW 
WAIT "ERROR FOUND BY FILES TO PROGRAM" WINDOW 

ENDIF


USE
SELECT TEMPRR
USE







COPY FILE lcPToLan + "LISTR"  + lcFormType + ".DBF" TO lcPToLoc + "LISTR" + lcFormType + ".DBF"
COPY FILE lcPToLan + "LISTR"  + lcFormType + ".DBF" TO lcPToLoc + "LISR1" + lcFormType + ".DBF"


COPY FILE lcPToLan + "ELEMCHKD" + ".DBF" TO lcPToLoc + "ELEMCHKD" + ".DBF"
COPY FILE lcPToLan + "ELEMCHKH" + ".DBF" TO lcPToLoc + "ELEMCHKH" + ".DBF"


COPY FILE lcPToLan + "ELEMCHKD" + ".FPT" TO lcPToLoc + "ELEMCHKD" + ".FPT"
COPY FILE lcPToLan + "ELEMCHKH" + ".FPT" TO lcPToLoc + "ELEMCHKH" + ".FPT"




COPY FILE lcPToLan + "ELEMCHKD" + ".DBF" TO lcPToLoc + "ELEMCHD1" + ".DBF"
COPY FILE lcPToLan + "ELEMCHKH" + ".DBF" TO lcPToLoc + "ELEMCHH1" + ".DBF"


COPY FILE lcPToLan + "ELEMCHKD" + ".FPT" TO lcPToLoc + "ELEMCHD1" + ".FPT"
COPY FILE lcPToLan + "ELEMCHKH" + ".FPT" TO lcPToLoc + "ELEMCHH1" + ".FPT"


SELECT YNFLAGS
USE


WAIT "FILES COPIED TO YOUR PC IN DIR C:AQCVIK "WINDOW NOWAIT




RETURN