Título: ayuda visual fox pro 6.0 no se como programar para imprimir Publicado por: freddybu014 en 24 Julio 2015, 23:46 pm ;-) tengo que hacer un reporte de los datos ya ingresados y que se encuentran en un tabla pero tengo que imprimirlo
ayuda set talk off set status off clear do while .t. define window a from 0,0 to 80,250 title "grupo" activate window a @5,55 say "DATOS PERSONALES" font "arial",30 @15,75 prompt "INGRESO" @20,75 prompt "CONSULTA" @25,75 prompt "modificacion" @30,75 prompt "eliminacion" @35,75 prompt "reporte" @40,75 prompt "SALIR" menu to op do case case op=1 do ingreso case op=2 do consulta case op=3 do modificacion case op=4 do eliminacion case op=5 do reporte case op=6 exit endcase enddo deactivate window a procedure ingreso set talk off set status off clear use="men" op="s" do while op="s" mtelefono = 0 mapellidos = space (25) mnombres= space (25) mecivil=space (25) mpaisproced = space (20) mnacionalid=space (25) mprofesion=space (25) mdireccion=space (25) mocupacion=space (25) mcomentario=space (90) define window b from 0,0 to 80,250 title "grupo" activate window b @5,55 say "DATOS PERSONALES" font "arial",30 @15,25 say "APELLIDOS" font "arial", 15 get mapellidos font " arial", 15 @15,100 say "NOMBRES" font " arial" ,15get mnombres font "arial", 15 @20,25 say "TELEFONO" font " arial" , 15get mtelefono font "arial" ,15 @20,100 say "ESTADO CIVIL " font" arial" ,15 get mecivil font "arial" ,15 @25,25 say "PAIS PROCEDENCIA"font "arial" ,15 get mpaisproced font"arial",15 @25,100 say "NACIONALIDAD" font "arial", 15 get mnacionalid font " arial",15 @30,25 say "PROFESION" font"arial", 15 get mprofesion font" arial", 15 @30,100 say "DIRECCION" font"arial", 15 get mdireccion font "arial",15 @35,25say "OCUPACION"font "arial",15 get mocupacion font" arial",15 @40,25 say "COMENTARIO"font " arial" ,15 get mcomentario font " arial", 15 read append blank replace telefono with mtelefono replace apellidos with mapellidos replace nombres with mnombres replace ecivil with mecivil replace paisproced with mpaisproced replace nacionalid with mnacionalid replace profesion with mprofesion replace direccion with mdireccion replace ocupacion with mocupacion REPLACE COMENTARIO WITH MCOMENTARIO @45,25 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 ="men" op="s" do while op="s" define window c from 0,0 to 80,250 title "grupo" activate window c mapellidos =space (25) @5,55 say "CONSULTA DE DATOS" font "arial",25 @12,55 say "INGRESE APELLIDO" font "arial", 15 get MAPELLIDOS font "arial" , 15 read locate for apellidos = mapellidos if apellidos = MAPELLIDOS @20,25 say "APELLIDOS " + apellidos font " arial",15 @20,100 say "NOMBRES " + nombres font" arial" , 15 @25,25 say "TELEFONO " + str (telefono) font " arial" ,15 @25,100 say "EST.CIVIL " + ecivil font " arial" ,15 @30,25 say "pais procede " + paisproced font "arial" ,15 @30,100 say "NACIONALIDAD " + nacionalid font "arial" ,15 @35,25 say "PROFESION " + profesion font " arial",15 @35,100 say "DIRECCION " + direccion font " arial" ,15 @40,25 say "OCUPACION " + ocupacion font " arial",15 @45,25 say "COMENTARIO " + COMENTARIO font "arial" ,15 else wait window "APELLIDO NO EXISTE " TIME 3 endif @40,100 say "DESEAS CONTINUAR S/N" font " arial" ,15 get op read if op="s" loop else exit endif enddo deactivate window c procedure modificacion set talk off set status off clear use ="men" go top op="s" do while op="s" define window d from 0,0 to 80,250 title "grupo" activate window d mapellidos =space (25 ) @5,55 say "MODIFICACION DE DATOS" font "arial",25 @12,55 say "INGRESE APELLIDO" font "arial",15 get MAPELLIDOS font"arial",15 read locate for apellidos = mapellidos if apellidos = MAPELLIDOS @20,25 say "APELLIDOS" get apellidos font "arial",15 @20,100 say "NOMBRES" get nombres font "arial",15 @25,25 say "TELEFONO" get telefono font"arial",15 @25,100 say "EST.CIVIL" font "arial" ,15 get ecivil font"arial",15 @30,25 say "pais procede" font " arial",15 get paisproced font"arial",15 @30,100 say "NACIONALIDAD"font " arial",15 get nacionalid font"arial",15 @35,25 say "PROFESION" font" arial" ,15 get profesion font"arial",15 @35,100 say "DIRECCION" font" arial",15 get direccion font"arial",15 @40,25 say "OCUPACION " font"arial",15 get ocupacion font"arial",15 @45,25 say "COMENTARIO" font"arial",15 get comentario font"arial",15 else wait window "APELLIDO NO EXISTE " TIME 3 endif @45,100 say "DESEAS CONTINUAR S/N" font "arial",15 get op read if op="s" loop else exit endif enddo deactivate window d procedure eliminacion set talk off set status off clear use ="men" go top op="s" do while op="s" define window e from 0,0 to 80,250 title "grupo" activate window e mapellidos =space (25) @5,55 say "eliminacion DE DATOS" font "arial",25 @12,55 say "INGRESE APELLIDO" font "arial",15 get MAPELLIDOS font"arial",15 read locate for apellidos = mapellidos IF apellidos = MAPELLIDOS @20,25 say "APELLIDOS" + apellidos @20,100 say "NOMBRES" + nombres @25,25 say "TELEFONO" + str (telefono) @25,100 say "EST.CIVIL" + ecivil @30,25 say "pais procede" + paisproced @30,100 say "NACIONALIDAD" + nacionalid @35,25 say "PROFESION" + profesion @35,100 say "DIRECCION" + direccion @40,25 say "OCUPACION " + ocupacion @45,25 say "COMENTARIO" + comentario @45,100 say "desea eliminar s\n" font "arial",15 get op READ if op="s" DELETE FOR APELLIDOS = mapellidos PACK else wait window "LOS DATOS NO SERAN ELIMINADOS " time 1 endif ELSE wait window "APELLIDO NO EXISTE " TIME 1 endif clear @45,100 say "desea continuar" get op read if op="s" loop else exit endif clear @50,100 say " desea continuar s\n" get op read if op= "s" loop else exit endif enddo deactivate window c desde aqui continuo con reporte ayuda como lo hago urgente procedure reporte set talk off set status off clear use ="men" op="s" do while op="s" define window f from 0,0 to 80,250 title "grupo" activate window f mapellidos =space (25) @5,55 say "reporte" font "arial",25 @12,55 say "INGRESE APELLIDO" font "arial", 15 get MAPELLIDOS font "arial" , 15 read locate for apellidos = mapellidos if apellidos = MAPELLIDOS @20,25 say "APELLIDOS " + apellidos font " arial",15 @20,100 say "NOMBRES " + nombres font" arial" , 15 @25,25 say "TELEFONO " + str (telefono) font " arial" ,15 @25,100 say "EST.CIVIL " + ecivil font " arial" ,15 @30,25 say "pais procede " + paisproced font "arial" ,15 @30,100 say "NACIONALIDAD " + nacionalid font "arial" ,15 @35,25 say "PROFESION " + profesion font " arial",15 @35,100 say "DIRECCION " + direccion font " arial" ,15 @40,25 say "OCUPACION " + ocupacion font " arial",15 @45,25 say "COMENTARIO " + COMENTARIO font "arial" ,15 @45,100 say "desea imprimir s\n" font "arial",15 get op READ if op="s" SET PRINTER ON [PROMPT] set printer to default set device to screen set printer off else wait window "no se imprimira " time 1 endif ELSE wait window "APELLIDO NO EXISTE " TIME 1 endif clear @45,100 say "desea continuar s/n " get op read if op="s" loop else exit endif clear @50,100 say " desea continuar s\n" get op read if op= "s" loop else exit endif enddo deactivate window f GRACIAS A TODOS AQUELLOS Q ME AYUDEN |