RE:controlar take completed en form
HOLA....
YO HAGO ESTAS TRANSACCIONES EN LOS PROCESOS, O EN ALGUN BOTON EN EL CUAL TENGO QUE ACTUALIZAR ALGUN ARCHIVO, O BORRARLO O GRABARLO....
ESPERO TE SIRVA.
Saludos.
!! - - - - EN OPEN FILES - - - - !!
Relate:TABLA1.UseLogout=0 ! False
Relate:TABLA2.UseLogout=0 ! False
TABLA1{PROP:LOGOUT}=1
TABLA2{PROP:LOGOUT}=1
LOGOUT(5)
IF ERRORCODE() THEN
BEEP(BEEP:SystemExclamation)
YIELD()
MESSAGE('Error con el logout'&|
'|Error: ('&ERRORCODE()&' ) '&CLIP(ERROR()), |
0{PROP:TEXT}, ICON:Exclamation)
LOC:trans = 0
LOC:deta = 'Error'
stop('error')
ELSE
LOC:trans = 1
LOC:deta = ''
END!IF
!! - - - - EN EL KILL PROCEDURE VIRTUAL - - - - !!
BEEP(BEEP:SystemQuestion)
YIELD()
IF LOC:trans = 0 OR ThisWindow.Response = 2
ROLLBACK
MESSAGE(LOC:ERROR,'ROLLBACK')
ELSE
COMMIT
END!IF
Relate:TABLA1.UseLogout=1 ! True
Relate:TABLA2.UseLogout=1 ! True
!! - - - - ROUTINE- - - - !!
ErrHandler ROUTINE
IF NOT ERRORCODE() THEN EXIT.
LOC:Error = 'Error en el Proceso - ' & ERROR()&ERRORCODE()
LOC:trans = 0
LOC:deta = 'Error'
EXIT
!! - - - - CUANDO GRABO, ACTUALIZO O ELIMINO EN VEZ DE PREGUSTAR POR ERRORCODE LLAMOA A LA ROUTINE - - - -!!
DO ErrHandler
IF LOC:trans = 0
RETURN Level:Fatal
END!IF