ACTUALIZAR REGISTROS EN UNA TABLA
Publicado por Piero (51 intervenciones) el 21/11/2007 16:14:16
SEÑORES FORISTAS
TENGO UNA VENTANA DE MANTENIMIENTO A LA QUE LE DOY CLIC A UN BOTON Y QUIERO QUE SE CAMBIE EL ESTADO DE TODOS LOS REGISTROS QUE SE MUESTRAN Y SE GUARDEN LOS CAMBIOS EN LA BASE DE DATOS.
AL HACER EL PROCEDIMIENTO PUEDO VER QUE CAMBIA EL ESTADO PARA TODOS PERO AL FINAL DE MI CODIGO COLOCO UN RETRIEVE Y TODO VUELVE AL MISMO ESTADO INICIAL PARECE QUE NO ME ESTA CAMBIANDO LOS DATOS O NO ME ESTA ACTUALIZANDO EN LA BASE DE DATOS CORRECTAMENTE.
MI CODIGO ES:
string ls_archivo
string ls_codigo,ls_descripcion
long ln_i,ln_rowcount,ln_find,ln_contador,ln_total_registros,ln_inicial
ln_total_registros = dw_lista.rowcount()
//****CAMBIO TODOS LOS REGISTROS DE ESTADO
for ln_inicial = 1 to ln_total_registros
dw_lista.object.tipo_destino[ln_inicial] = '1'
next
IF Dw_Lista.Update() = -1 Then
RollBack using sqlca;
Messagebox('Error','Los registros no se han guardado ~nPuede intentarlo otra vez')
Else
Commit Using Sqlca ;
End IF
dw_lista.Retrieve()
Destroy lds_lista
AGRADECIENDO DE ANTEMANO SUS RESPUESTAS ME DESPIDO
SALUDOS
TENGO UNA VENTANA DE MANTENIMIENTO A LA QUE LE DOY CLIC A UN BOTON Y QUIERO QUE SE CAMBIE EL ESTADO DE TODOS LOS REGISTROS QUE SE MUESTRAN Y SE GUARDEN LOS CAMBIOS EN LA BASE DE DATOS.
AL HACER EL PROCEDIMIENTO PUEDO VER QUE CAMBIA EL ESTADO PARA TODOS PERO AL FINAL DE MI CODIGO COLOCO UN RETRIEVE Y TODO VUELVE AL MISMO ESTADO INICIAL PARECE QUE NO ME ESTA CAMBIANDO LOS DATOS O NO ME ESTA ACTUALIZANDO EN LA BASE DE DATOS CORRECTAMENTE.
MI CODIGO ES:
string ls_archivo
string ls_codigo,ls_descripcion
long ln_i,ln_rowcount,ln_find,ln_contador,ln_total_registros,ln_inicial
ln_total_registros = dw_lista.rowcount()
//****CAMBIO TODOS LOS REGISTROS DE ESTADO
for ln_inicial = 1 to ln_total_registros
dw_lista.object.tipo_destino[ln_inicial] = '1'
next
IF Dw_Lista.Update() = -1 Then
RollBack using sqlca;
Messagebox('Error','Los registros no se han guardado ~nPuede intentarlo otra vez')
Else
Commit Using Sqlca ;
End IF
dw_lista.Retrieve()
Destroy lds_lista
AGRADECIENDO DE ANTEMANO SUS RESPUESTAS ME DESPIDO
SALUDOS
Valora esta pregunta


0