FoxPro/Visual FoxPro - BOTON GUARDAR

   
Vista:

BOTON GUARDAR

Publicado por wilmer (14 intervenciones) el 14/02/2014 18:14:48
HOLA CON TODOS, ME PUEDEN AYUDAR CON EL SIGUIENTE PROBLEMA

tengo una tabla llamada pacientes, con un campo llamado idpacientes, el tipo es numerico, con Index Ascending,
el indexes es IDPACIENTE type Primary

EN EL FORMULARIO TENGO UN BOTON GUARDAR, EN EL MISMO TENGO EL SIGUIENTE CODIGO

SELECT pacientes
SET ORDER TO IDPACIENTE && IDPACIENTES
GO bott

**genera una nueva id del paciente cada vez que se ingrese un nuevo paciente
thisform.text1.Value=IDPACIENTE + 1

**abre la tabla
APPEND BLANK
Replace IDPACIENTE WITH thisform.text1.Value
replace cedula WITH thisform.text2.Value
replace Apellidos WITH thisform.text3.Value
replace Nombres WITH thisform.text4.Value
replace Direccion WITH thisform.text5.Value
replace Telefono WITH thisform.text6.Value
replace Estado_civil WITH thisform.text7.Value
replace Fecha_nacimiento WITH thisform.text8.Value
replace Sexo WITH thisform.text9.Value
replace Edad WITH thisform.text10.Value
replace Grupo_sanguineo WITH thisform.text11.Value
replace Celular WITH thisform.text12.Value
replace Ocupacion WITH thisform.text13.Value

MESSAGEBOX("DATOS GUARDADOS", "AVISO")

***limpiar los texbox
thisform.text2.value="" &&cedula
thisform.text3.value="" && nombres
thisform.text4.value="" && apellidos
thisform.text5.value="" && direccion
thisform.text6.value="" && telefono
thisform.text7.value="" && estado civil
thisform.text8.value="" && fecha de nacimiento
thisform.text9.value="" && sexo
thisform.text10.value="" && edad
thisform.text11.value="" && grupo sanguineo
thisform.text12.value="" && celular
thisform.text13.value="" && ocupacion
***************************************************************************************
AHORA EL PROBLEMA ES QUE CUANDO EJECUTO EL CODIGO ME SALE LO SIGIUENTE:

Variable IDPACIENTE is not Found
Uniqueness of index IDPCIENTE is violated


ALGUIEN QUE ME AYUDE REVISANDO MI CODIGO Y EN DONDE ESTOY MAL, DESDE YA MUCHAS GRACIAS
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

BOTON GUARDAR

Publicado por Jorge L. Alvarez jorgealvarez05@gmail.com (1 intervención) el 15/02/2014 02:36:15
Revisa si IDPACIENTE lo estas utilizando en plural o e singular. En el texto que enviastes, en un lugar utilizas singular y en otro plural.
Sin embargo, para que tu codigo sea mas facil de utilizar, te recomiendo que investigues como utilizar los comandos "SCATTER MEMVAR" ,Y "GATHER MEMVAR". Ayuda bastante y reduce el código.
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

BOTON GUARDAR

Publicado por Fidel José (558 intervenciones) el 19/02/2014 16:31:38
Si utilizas Primary Key o Candidate, no uses append blank.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
INSERT INTO PACIENTES ;
(IDPACIENTE,;
CEDULA,;
APELLIDOS,;
NOMBRES,;
DIRECCION,;
TELEFONO,;
ESTADO_CIVIL,;
FECHA_NACIMIENTO,;
SEXO,;
EDAD,;
GRUPO_SANGUINEO,;
CELULAR,;
OCUPACION);
VALUES(THISFORM.TEXT1.VALUE,;
THISFORM.TEXT2.VALUE,;
THISFORM.TEXT3.VALUE,;
THISFORM.TEXT4.VALUE,;
THISFORM.TEXT5.VALUE,;
THISFORM.TEXT6.VALUE,;
THISFORM.TEXT7.VALUE,;
THISFORM.TEXT8.VALUE,;
THISFORM.TEXT9.VALUE,;
THISFORM.TEXT10.VALUE,;
THISFORM.TEXT11.VALUE,;
THISFORM.TEXT12.VALUE,;
THISFORM.TEXT13.VALUE)
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