En un módulo de mi sistema el tengo que crear una tabela (dbf) a partir del otra tabela usando el comando TOTAL ON.
Code: Select all | Expand
SELE 32 // ARQ. TEMPORÁRIO - CAPTAÇÃO DE ACABADOS
IF RECCOUNT()=0
RETURN .F.
ENDIF
INDEX ON CODRED TO INDD
SET INDEX TO INDD
TOTAL ON CODRED FIELDS PESOKG, QTDSAI TO S:\SUMARY.DBF
En el primer llamado del total sobre el que trabaja 100 %, llamó el lunes del módulo que obtengo el error 7040 - File creation error. Verify the specified path and file name is correct and that no other users have the file open.
Solamente un usuario por el tiempo usa este archivo.
Code: Select all | Expand
REQUEST ADS , ADSKeyno, ADSKeycount
RddRegister( "ADS", 1 )
RddSetDefault( "ADS" )
AdsLocking( .T. )
AdsRightsCheck( .F. )
AdsSetFileType( 2 ) /// 1 NTX / 2 CDX / 3 ADT
IF NETNAME() = 'NOTEDAF'
AdsSetServerType(1) /// 1 Local / 2 Server / 7 AIS Internet
ELSE
AdsSetServerType(2) /// 1 Local / 2 Server / 7 AIS Internet
ENDIF
AdsSetDateFormat("DD/MM/YYYY")
AdsSetEpoch("01/01/2000")
Gracias.