*This function returns .T. if the batch has not been copied back to the 
* Lan's hard drive
*Data Not Saved(DatNotSa)
FUNCTION DatNotSa
PRIVATE lcPattern, lnYesNo, lcTempPath
lcTempPath = gcDrvLoc + gcAQCVIK
lcPattern = '*.DAT'
lnYesNo =ADIR(laTempList,lcTempPath + ALLTRIM(lcPattern))
IF lnYesNo > 0
*wait " The batch " + laTempList[1,1] + " Has not been saved" window
RETURN .T.
ELSE
RETURN .F.
ENDIF