ELIMINAR !!!!
Publicado por Carolina Medis (16 intervenciones) el 15/06/2006 00:53:14
Tengo una ventana con 2 Browse, se trata de un encabezado y el detalle de una factura.
Lo que quiero hacer es:
Si por algun motivo el usuario creo un registro de encabezado y no genero registros en el detalle me elimine al salir de la ventana el registro del encabezado sin detalle. es muy importante que lo haga independientemente de donde este pocesionado el registro en el encabezado.
Intente con :
OPEN(ARCH,42H)
OPEN(DETALLE,42H)
LOOP UNTIL EOF(DETALLE)
NEXT(DETALLE)
ARC:LLAVE=DET:LLAVE
GET(ARCH,ARC:KEY)
IF ERROR() THEN DELETE(DETALLE).
DET:LLAVE=PRI:LLAVE
GET(DETALLE,DET:KEY)
IF ERRORCODE()=33
DELETE(PRINCIPAL)
Pero sin resultados.
Bueno, espero que me puedan ayudar. Saludos y hasta pronto !!!!
Lo que quiero hacer es:
Si por algun motivo el usuario creo un registro de encabezado y no genero registros en el detalle me elimine al salir de la ventana el registro del encabezado sin detalle. es muy importante que lo haga independientemente de donde este pocesionado el registro en el encabezado.
Intente con :
OPEN(ARCH,42H)
OPEN(DETALLE,42H)
LOOP UNTIL EOF(DETALLE)
NEXT(DETALLE)
ARC:LLAVE=DET:LLAVE
GET(ARCH,ARC:KEY)
IF ERROR() THEN DELETE(DETALLE).
DET:LLAVE=PRI:LLAVE
GET(DETALLE,DET:KEY)
IF ERRORCODE()=33
DELETE(PRINCIPAL)
Pero sin resultados.
Bueno, espero que me puedan ayudar. Saludos y hasta pronto !!!!
Valora esta pregunta
0