Visual FoxPro.NET - No puedo agregar el primer Registro a la tabla

   
Vista:

No puedo agregar el primer Registro a la tabla

Publicado por Valeriano (3 intervenciones) el 18/12/2007 20:48:52
Hola amigos espero me ayuden de ante mano gracias por ayuda.
Tengo un formulario ya casi terminado solo por este error no termino, cuando la tabla laresul.dbf tiene datos todo esta a la perfeccion, pero cuado borro todos los registros y cuando kierro ingresar nuevos datos no ingresa y es mas no me funcionan las condiciones que tiene la opcion de GRABAR, Pero ojo cuando tiene Registros en LARESUL.dbf funciona bien, sOLO CUAndo esta vacio hay no se puede agregar el primer registro, utilicito el THISFORM.txtcod.Value=reccount()+1 para tener un contador automatico, espero que me entienda.

FORMULARIO
boton "nuevo"

selec a
THISFORM.txtcod.Value=reccount()+1
THISFORM.cmdguardar.ENABLED=.T.

THISFORM.lstinforme.ENABLED=.F.

THISFORM.txtsoli.ENABLED=.T.
THISFORM.txtsoli.VALUE=""
THISFORM.cmbprog.ENABLED=.T.
THISFORM.cmbprog.VALUE="Vigilancia de Agua para Consumo Humano"
.....

THISFORM.cmdnuevo.ENABLED=.F.
THISFORM.txtsoli.SETFOCUS

Boto "Grabar"
GO TOP
IF RECCOUNT()>0
IF EMPTY(THISFORM.txtsoli.VALUE)
=MESSAGEBOX("Especifique SOLICITANTE ",0+48+0,"AVISO")
THISFORM.txtsoli.SETFOCUS
ELSE
IF EMPTY(THISFORM.txtlocali.VALUE)
=MESSAGEBOX("Especifique LOCALIDAD ",0+48+0,"AVISO")
THISFORM.txtlocali.SETFOCUS
ELSE
IF EMPTY(THISFORM.cmbprovi.VALUE)
=MESSAGEBOX("Especifique PROVINCIA ",0+48+0,"AVISO")
THISFORM.cmbprovi.SETFOCUS
ELSE
IF EMPTY(THISFORM.cmbdistri.VALUE)
=MESSAGEBOX("Especifique DISTRITO ",0+48+0,"AVISO")
THISFORM.cmbdistri.SETFOCUS
ELSE
IF EMPTY(THISFORM.cmbanalis.VALUE)
=MESSAGEBOX("Especifique ANALISTA",0+48+0,"AVISO")
THISFORM.cmbanalis.SETFOCUS
ELSE
SELEC a
APPEND blank
REPLACE infcod WITH THISFORM.txtcod.VALUE
REPLACE lsolic WITH THISFORM.txtsoli.VALUE
REPLACE lprogra WITH THISFORM.cmbprog.VALUE
REPLACE ldepa WITH THISFORM.txtdepar.VALUE
REPLACE llocal WITH THISFORM.txtlocali.VALUE
REPLACE lprovi WITH THISFORM.cmbprovi.VALUE
..............
cot=MESSAGEBOX("Desea IMPRIMIR Ud.?",1,"Mensage al Usario")
IF cot=1
selec a
SET FILTER TO a.infcod=THISFORM.txtcod.VALUE

SET DEFA TO LaRESUL
wait windows "Espere un momento... " nowait
REPORT FORM anaturai.frx TO PRINT PROMPT

ENDIF

RELEASE THISFORM
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

Esto esta en el formulario, no me graba nada ni tampoco funciona las condiciones cuando la table no tiene ningun registro, pero cuando ingreso manualmente o habilito para agregar registro recien me funciona, pero yo no kiero asi, quiero que me tome el contador de numero desde el 1, desde el 2.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:No puedo agregar el primer Registro a la tabla

Publicado por NicKo (3 intervenciones) el 10/04/2008 19:13:14
Kolega sabe que yo recien recien estoy empezando a entrar al mundo foxpro pero a simple vista yo diria que tu problema esta en la linea"IF RECCOUNT()>0" del boton "Grabar" ya que por lo poco que se del tema le tarias diciendo que si la cantidad de registros que hay en la tabla es mayor a 0, osea si la tabla no esta vacia, ahi recien ke te empiece a guardar los datos y a funcionar las sentencias de ese boton....

es mi humilde sugerencia....

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No puedo agregar el primer Registro a la tabla

Publicado por valeriano (3 intervenciones) el 12/06/2012 03:13:19
gracias por el dato ese era problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar