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 view
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 view
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.