Visual FoxPro.NET - Ayuedenme no se como poner estas palbras pra hacer un reporte creo que estan mal ubicadas

   
Vista:

Ayuedenme no se como poner estas palbras pra hacer un reporte creo que estan mal ubicadas

Publicado por fernando (1 intervención) el 26/07/2015 01:44:27
estas palabras son las que tienen que ir bien en la codificacion yo las puse hay pero no sale
1
2
3
4
5
(SET PRINTER ON
SET PRINTER TO DEFAULT
EJECT
SET DEVICE TO SCREEN
SET PRINTER OFF)
alguien que sepa donde va ayudenme porfavor



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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
procedure reporte
set talk off
set status off
clear
use apli1
go top
op="s"
do while op="s"
define window e from 0,0 to  80,300 title "grupo"  FILL FILE e:\todo\delfin.jpg
activate window e
mapellidos =space (25)
@5,55 say "REPORTE" font "arial",25
@12,55 say "INGRESE APELLIDOS" 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 "ESTADOCIVI"  + ESTADOCIVI
@30,25 say "paisproced"  + 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 IMPRIMIR  S/N " font "arial",15 get op
READ
if op="s"
SET PRINTER ON
SET PRINTER TO DEFAULT
EJECT
SET DEVICE TO SCREEN
SET PRINTER OFF
wait window "DATOS NO SERAN IMPRESOS" 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 e
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