Título: ayuda visual fox pro 6.0 ( no coinciden los tipos de datos ) urgente Publicado por: freddybu014 en 14 Julio 2015, 23:48 pm set talk off
set status off clear do while .t. define window a from 0,0 to 60,300 activate window a @4, 60 say "datos personales"font "arial",30 @10,30 prompt "ingreso" font "arial",30 @14,30 prompt "consulta"font "arial",30 @18,30 prompt "modificacion"font "arial",30 @22,30 prompt "eliminacion"font "arial",30 @26,30 prompt "reporte"font "arial",30 @30,30 prompt "salir"font "arial",30 menu to op do case case op=1 do ingreso case op=2 do consulta case op=3 do modificacion case op=4 do elimacion case op=5 do reporte case op=6 exit endcase enddo deactivate window a procedure ingreso set talk off set status off clear use aplicaciones1 op="s" do while op="s" mapellidos = space(25) mnombres = space (25) mtelefono = space(10) mestadocivi = space(25) mnacionalid = space (25) mpaisproced = space(25) mdireccion = space (25) mprofesion = space (25) mocupacion = space (25) define window b from 0,0 to 100,300 title "datos personales"font"arial",15 activate window b @4,30 say "datos personales"font"arial",20 @6,10 say "apellidos"font"arial",10get mapellidos font"arial",10 @6,50 say "nombres"font"arial",10 get mnombres font"arial",10 @6,90 say "telefono"font "arial",10 get mtelefono font "arial",10 @8,10 say "estadocivi"font"arial",10 get mestadocivi font"arial",10 @8,50 say "nacionalid"font"arial",10 get mnacionalid font"arial",10 @8,90 say "paisproced "font"arial",10 get mpaisproced font"arial",10 @10,10 say "direccion"font"arial",10 get mdireccion font"arial",10 @10,50 say "profesion"font"arial",10 get mprofesion font"arial",10 @10,90 say "ocupacion"font"arial",10 get mocupacion font"arial",10 read append blank replace apellidos with mapellidos replace nombres with mnombres replace telefono with mtelefono !!!! aquie me muestra ese mensaje no coinciden los tipos de datos replace estadocivi with mestadocivi replace nacionalid with mnacionalid replace paisproced with mpaisproced replace direccion with mdireccion replace profesion with mprofesion replace ocupacion with mocupacion @12,40 say "desea continuar s/n"font"arial",15 get op read if op="s" loop else exit endif enddo deactivate window b procedure consulta set talk off set status off clear use aplicaciones1 go top op="s" do while op="s" define window c from 0,0 to 80,300 title "datos personales"font"arial",30 activate window c mapellidos=space(25) @2,20 say"consulta de datos"font"arial",20 @3,10 say "apellidos"font"arial",15 get mapellidos font"arial",15 read locate for apellidos=mapellidos if apellidos=mapellidos @4,10 say "nombres " + nombres font"arial",15 @5,10 say "telefono " + telefono font"arial",15 @6,10 say "estadocivi " + estadocivi font"arial",15 @7,10 say "nacionalid " + nacionalid font"arial",15 @8,10 say "paisproced " + paisproced font"arial",15 @9,10 say "direccion " + direccion font"arial",15 @10,10 say "profesion " + profesion font"arial",15 @11,10 say "ocupacion " + ocupacion font"arial",15 read else wait window "apellido no existe"time 3 endif @12,10 say "desea continuar s/n"font"arial"get op read if op="s" loop exit endif enddo deactivate window c Título: Re: AYUDA VISUAL FOX PRO 6.0 ( NO COINCIDEN LOS TIPOS DE DATOS ) URGENTE Publicado por: Eleкtro en 15 Julio 2015, 00:03 am Está prohibido abusar de las mayúsculas, y los códigos deben ir en sus respectivas etiquetas.
Corrige eso, lee mi firma. Saludos Título: Re: ayuda visual fox pro 6.0 ( no coinciden los tipos de datos ) urgente Publicado por: freddybu014 en 15 Julio 2015, 00:18 am no entendi
Título: Re: ayuda visual fox pro 6.0 ( no coinciden los tipos de datos ) urgente Publicado por: engel lex en 15 Julio 2015, 06:03 am Ya había corregido tu tema quitándole las mayúsculas del texto y colocando el código en etiquetas GeSHi, por qué le quitas las etiqueta :huh:
|