FoxPro/Visual FoxPro - Alta de Datos en FoxPro

 
Vista:

Alta de Datos en FoxPro

Publicado por JORGE OSCAR (1 intervención) el 14/02/2008 14:01:21
Hola como estan? necesito que alguien me ayude con lo sgte: estoy armando un programita de garga de datos en foxpro 8, la verdad es que soy muuy principiante en esto. pasa lo sgte:
1_Arme el menu de la sgte manera:
Vehiculos
-----------Altas(submenu)
-----------bajas(submenu)
ahora el tema es que necesito que al hacer click en altas me muestre una pantalla donde se ingresen los datos.
Yo arme como quisiera que se vea la pantalla pero me da errores cuando le hago un run. a continuacion les muestro lo que ingrese:

use datos index legind
aleg=0
adomin=space(20)
anomb=space(20)
aapell=space(20)
adni=0
adirec=space(20)
alocal=space(20)
anmotor=space(20)
anchasis=space(20)
anpoliza=space(20)
avpoliza=space(20)
amodel=space(20)
amarca=space(20)
atipo=space(20)
ancedverde=space(20)
avcedverde=space(20)
ariedes=space(20)
aseg=space(20)
apatente=space(20)
arto=space(20)
aruta=space(20)
anmatafueg=space(20)
avmatafueg=space(20)
afechpatent=space(20)
amanten=space(20)
afotovehic=space(20)
r="s"
resp="n"
do while r="s"
clear
@2,25 say "alta de vehiculos"
@3,10 say "ingrese legajo" get aleg pict "####" valid.......
read
seek
if found()
@5,10 say "el legajo ya existe"
wait window
else
@4,10 say "ingrese dominio:" get adomin pict
@6,10 say "ingrese nombre:" get anomb pict
@8,10 say "ingrese apellido:" get aapell pict
@10,10 say "ingrese dni:" get adni pict
@12,10 say "ingrese direccion:" get adirec pict
@14,10 say "ingrese localidad:" get alocal pict
@16,10 say "ingrese nº de motor:" get anmotor pict
@18,10 say "ingrese nº de chasis:" get anchasis pict
@20,10 say "ingrese nº de poliza:" get anpoliza pict
@22,10 say "ingrese vencimiento de poliza:" get avpoliza pict
@24,10 say "ingrese modelo:" get amodel pict
@26,10 say "ingrese marca:" get amarca pict
@28,10 say "ingrese tipo:" get atipo pict
@30,10 say "ingrese nº de cedula verde:" get ancedverde pict
@32,10 say "ingrese vencimiento de cedula verde:" get avcedverde pict
@34,10 say "ingrese riedes:" get ariedes pict
@36,10 say "ingrese seguro:" get aseg pict
@38,10 say "ingrese patente:" get apatente pict
@40,10 say "ingrese r.t.o.:" get arto pict
@42,10 say "ingrese r.u.t.a.:" get aruta pict
@44,10 say "ingrese nº de matafuego:" get anmatafueg pict
@46,10 say "ingrese vencimiento de matafuego:" get avmatafueg pict
@48,10 say "ingrese fecha de patentamiento:" get afechpatent pict
@50,10 say "ingrese mantenimiento:" get amanten pict
@52,10 say "ingrese foto del vehiculo:" get afotovehic pict
read
@60,27 say "desea guardar los datos (s/n)?" get resp pict "@!" valid.....
read
if resp="s"
append blank
replace legajo with aleg
replace dominio with adomin
replace nombre with anomb
replace apellido with aapell
replace dni with adni
replace direccion with adirec
replace localidad with alocal
replace nº de motor with anmotor
replace nº de chasis with anchasis
replace nº de poliza with anpoliza
replace vencimiento de poliza with avpoliza
replace modelo with amodel
replace marca with amarca
replace tipo with atipo
replace nº de cedula verde with ancedverde
replace vencimiento de cedula verde with avcedverde
replace riedes with ariedes
replace seguro with aseg
replace patente with patente
replace r.t.o. with arto
replace r.u.t.a. with aruta
replace nº de matafuego with anmatafueg
replace vencimiento de matafuego with avmatafueg
replace fecha de patentamiento witth afechpatent
replace mantenimiento with amanten
replace feto del vehiculo with afotovehic
endif
endif
@20,27 say "desea continuar (s/n) ?" get r pict "@!" valid.........
read
enddo
close data
clear
return

Otro problema es que no se como vincularlo con el submenu: Altas.

La verdad es que no tengo casi nada de idea de esto y necesito una gran mano.
Estos son los pasos que hago:
Entro a Foxpro y abro un proyecto, se abre una ventanita y en la parte de CODE elijo programs y selecciono nuevo.
No se si estara bien lo que hago para lo que quiero, como dije antes no tengo ni idea.-

Desde ya muchas gracias por la ayuda.

Saludos!
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:Alta de Datos en FoxPro

Publicado por enrique (1041 intervenciones) el 14/02/2008 14:42:20
Si no me equivoco sera Visual FoxPro 8, si es así utiliza los formularios para crear la carga de datos y acude al MSDN (ayuda que viene con el VFP8) que es bastante claro para empezar.

suerte
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
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Alta de Datos en FoxPro

Publicado por kong (682 intervenciones) el 14/02/2008 16:13:13
correcto....creo que deberias aprender a programar en un formulario.
-creas un proyecto
-creas un form
-ubicas los textboxs
y un boton para confirmar grabacion de datos
-es bastante sencillo
Es mas, has preguntas en el foro, y en menos de 2 dias eres experto.
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:Alta de Datos en FoxPro

Publicado por jose camilo (805 intervenciones) el 14/02/2008 17:58:17
en este mismo foro en la opcion codigo fuente encontraras buenos ejemplos
descargalo y hechale un vistazo
ahora bien si persiste en programa en codigo dejamelo saber para mandarte algo sencillo con su menu y todo
el cual busque datos,grabe,elimine, hasta un reporte con su preview a puro codigo solo dejanos saber

**** insisto programar con formulario es mejor *******
no al estilo DOS como esta utilizando ahora

cualquier cosa mandame un mail y te hecho una mano
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