Hola Bruno ,
a lo mejor tengo algo en mi programacion
pero me esta marcando este error que desconosco( o no me acuerdo de que trata

Error DBFCDX/1210 Se detectó corrupción

- Llamado desde DBSKIP(0)
- Llamado desde MAIN(55)

lo que estoy haciendo es lo siguiente
// Buscamos en sus Partidas
Partidas->( dbseek( Cabesera->cDevol + Cabesera->cserie + str( Cabesera->nnumAlb, 7 ) ) )
while Partidas->( ! Eof() ) .and.;
Partidas->cDevol == Cabesera->cDevol .and.;
Partidas->cserie == Cabesera->cserie .and.;
Partidas->nnumAlb == Cabesera->nnumAlb
Partidas->( dbDelete() )
Partidas->( dbskip() )
enddo
anexo archivo fuente para que se pueda observar

saludos cordiales

_________________
Jose Luis Aguilar S.
Sidem México

José Luis,

Hacen falta las bases de datos, envíamelas a mi email.

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com