Tabla no ingresa los nuevos registros.
Hola bue día. Mi situación es la siguiente, tengo un formulario para ingresar datos de clientes y su respectiva tabla. El formulario parece funcionar bien, pero cuando consulto la tabla sólo aparece una línea de información y la que voy ingresando se va sobrescribiendo en esa misma línea. Tampoco me esta guardando la secuencia de la autonumeración.
De antemano gracias.
De antemano gracias.
Respuesta de softigal
1
Hola, gracias por atender mi solicitud.
Acá te copio el código que tengo en mi formulario, cabe mencionar que tengo la tabla correspondiente en blanco.
Evento init del "form1":
PUBLIC vcod_banco
SELECT bancos
SET ORDER TO cod_banco
Go Bottom
vcod_banco=cod_banco +1
ThisForm.txtcod_banco.Value=vcod_banco
ThisForm.txtdesc_banco.Value=SPACE (60)
ThisForm.combo1.Value=SPACE (40)
thisform.txtcuenta.value=SPACE(20)
evento click boton "guardar":
nRec=RECNO()
resp=MESSAGEBOX("¿Verificó que la información ingresada es correcta?",4+32+256,"¡ATENCION!")
IF Resp=6
ENDIF
SELECT bancos
LOCATE FOR bancos.cod_banco = ThisForm.txtcod_banco.Value
IF .NOT.FOUND()
APPEND BLANK
REPLACE cod_bancoWITH ThisForm.txtcod_banco.Value
REPLACE desc_bancoWITH ThisForm.txtdesc_banco.Value
REPLACE combo1WITH ThisForm.txttipo.Value
replace cuentaWITH thisform.txtcuenta.Value
ENDIF
ThisForm.txtdesc_banco.SetFocus
evento click del boton "Nuevo":
PUBLIC vcod_banco
SELECT bancos
APPEND BLANK
Go Bottom
vcod_banco=cod_banco +1
ThisForm.txtcod_banco.Value=vcod_banco
Thisform.txtdesc_banco.Enabled = .t.
Thisform.combo1.Enabled = .t.
Thisform.txtcuenta.Enabled = .t.
*******************************************
ThisForm.txtdesc_banco.Value=SPACE (60)
ThisForm.combo1.Value=SPACE (40)
thisform.txtcuenta.value=SPACE(20)
thisform.txtdesc_banco.setfocus
De antemano Gracias.
Acá te copio el código que tengo en mi formulario, cabe mencionar que tengo la tabla correspondiente en blanco.
Evento init del "form1":
PUBLIC vcod_banco
SELECT bancos
SET ORDER TO cod_banco
Go Bottom
vcod_banco=cod_banco +1
ThisForm.txtcod_banco.Value=vcod_banco
ThisForm.txtdesc_banco.Value=SPACE (60)
ThisForm.combo1.Value=SPACE (40)
thisform.txtcuenta.value=SPACE(20)
evento click boton "guardar":
nRec=RECNO()
resp=MESSAGEBOX("¿Verificó que la información ingresada es correcta?",4+32+256,"¡ATENCION!")
IF Resp=6
ENDIF
SELECT bancos
LOCATE FOR bancos.cod_banco = ThisForm.txtcod_banco.Value
IF .NOT.FOUND()
APPEND BLANK
REPLACE cod_bancoWITH ThisForm.txtcod_banco.Value
REPLACE desc_bancoWITH ThisForm.txtdesc_banco.Value
REPLACE combo1WITH ThisForm.txttipo.Value
replace cuentaWITH thisform.txtcuenta.Value
ENDIF
ThisForm.txtdesc_banco.SetFocus
evento click del boton "Nuevo":
PUBLIC vcod_banco
SELECT bancos
APPEND BLANK
Go Bottom
vcod_banco=cod_banco +1
ThisForm.txtcod_banco.Value=vcod_banco
Thisform.txtdesc_banco.Enabled = .t.
Thisform.combo1.Enabled = .t.
Thisform.txtcuenta.Enabled = .t.
*******************************************
ThisForm.txtdesc_banco.Value=SPACE (60)
ThisForm.combo1.Value=SPACE (40)
thisform.txtcuenta.value=SPACE(20)
thisform.txtdesc_banco.setfocus
De antemano Gracias.
Nuevo: append blank
guardar: select tabla
TABLEUPDATE(.T.)
cancelar: select tabla
TABLEREVERT(.T.)
guardar: select tabla
TABLEUPDATE(.T.)
cancelar: select tabla
TABLEREVERT(.T.)
