Ayuedenme no se como poner estas palbras pra hacer un reporte creo que estan mal ubicadas
Publicado por fernando (2 intervenciones) 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
alguien que sepa donde va ayudenme porfavor
1
2
3
4
5
(SET PRINTER ONSET PRINTER TO DEFAULT
EJECT
SET DEVICE TO SCREEN
SET PRINTER OFF)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 = mapellidosIF 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 1endif
ELSE
wait window "APELLIDO NO EXISTE " TIME 1endif
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
0