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!
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


0