Ayuda !! Buscar y eliminar.
Publicado por Carolina (16 intervenciones) el 15/05/2006 17:01:30
Tengo un Formulario Con 2 Browse uno para el encabezado del Remito y el otro para el detalle. lo que quiero hacer es:
Al cerrar el formulario que me recorra el Browse de encabezado en busca de registros sin
detalle, es decir encabezado sin detalle. y al encontrarlo me borre el registro de encabezado, Todo esto para que no me deje encabezados sin detalle.
Probe en CloseWindows
Clear(PRE:Campo)
Set(PrmaryKey, PrimaryKey)
Loop
Next(TABLA)
If Errorcode() then Break.
If PRE:Campo = ValorBusqueda Then ! ValorBusqueda = Nº de Remito.
Delete(Tabla)
Break ! Si lo necesitas
End
End
No me borra nada.
Tambien Probe con:
Campo = ValorBusqueda ! ValorBusqueda = Nº de Remito.
Get(Tabla, Llave)
If ErrorCode() Then
Message('No se Encontro')
Else
Delete(Tabla)
End
y tapoco funciona.
Bueno Espero que me puedan ayudar !!! Gracias Hasta Pronto !!!
Caro.
Al cerrar el formulario que me recorra el Browse de encabezado en busca de registros sin
detalle, es decir encabezado sin detalle. y al encontrarlo me borre el registro de encabezado, Todo esto para que no me deje encabezados sin detalle.
Probe en CloseWindows
Clear(PRE:Campo)
Set(PrmaryKey, PrimaryKey)
Loop
Next(TABLA)
If Errorcode() then Break.
If PRE:Campo = ValorBusqueda Then ! ValorBusqueda = Nº de Remito.
Delete(Tabla)
Break ! Si lo necesitas
End
End
No me borra nada.
Tambien Probe con:
Campo = ValorBusqueda ! ValorBusqueda = Nº de Remito.
Get(Tabla, Llave)
If ErrorCode() Then
Message('No se Encontro')
Else
Delete(Tabla)
End
y tapoco funciona.
Bueno Espero que me puedan ayudar !!! Gracias Hasta Pronto !!!
Caro.
Valora esta pregunta
0