
AYUDA VFP 6.0 NO COINCIDEN LOS TIPOS DE DATOS
Publicado por FREDDY (10 intervenciones) el 14/07/2015 00:24:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
set talk off
set status off
clear
do while .t.
define window a from 0,0 to 60,100 title "grupo"
ACTIVATE WINDOW A
@5,20 say "DATOS PERSONALES" font "ARIAL",30
@15,40 prompt "INGRESO"
@20,40 PROMPT "CONSULTA"
@25,40 PROMPT " SALIR"
MENU TO OP
DO CASE
CASE OP=1
DO INGRESO
exit
CASE OP=2
DO CONSULTA
CASE OP=3
EXIT
ENDCASE
ENDDO
DEACTIVATE WINDOW A
PROCEDURE INGRESO
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
SET TALK OFF
SET STATUS OFF
CLEAR
OP="s"
USE="MEN"
GO TOP
DO WHILE OP="s"
mtelefono = space (10)
MAPELLIDOS = SPACE (25)
MNOMBRES= SPACE (25)
MECIVIL=SPACE (25)
MpaisproceD = SPACE (20)
MNACIONALID=SPACE (25)
MPROFESION=SPACE (25)
MDIRECCION=SPACE (25)
MOCUPACION=SPACE (25)
DEFINE WINDOW B FROM 0,0 TO 60,100 TITLE "GRUPO" 4
@5,23 SAY "DATOS PERSONALES" FONT "ARIAL",30
@15,10 SAY "APELLIDOS" GET MAPELLIDOS
@15,50 SAY "NOMBRES" GET MNOMBRES
@20,10 SAY "TELEFONO" GET mtelefono
@20,50 SAY "ESTADO CIVIL" GET MECIVIL
@25,10 SAY "PAIS PROCEDENCIA" GET Mpaisproced
@25,50 SAY "NACIONALIDAD" GET MNACIONALID
@30,10 SAY "PROFESION" GET MPROFESION
@30,50 SAY "DIRECCION" GET MDIRECCION
@35,10 SAY "OCUPACION" GET MOCUPACION
READ
APPEND BLANK
replaceTELEFONO with mTELEFONO aqui es donde muestra el mensaje "no coinciden los tipos de datos"
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
@42,10 SAY "DESEA CONTINUAR S/N" 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"
GO TOP
OP="s"
DO WHILE OP="s"
DEFINE WINDOW C FROM 0,0 TO 60,100 TITLE "GRUPO"
MAPELLIDOS =SPACE (25)
@10,20 SAY "CONSULTA DE DATOS" FONT "ARIAL",25
@20,20 SAY "INGRESE APELLIDO" GET APELLIDOS
READ
LOCATE FOR APELLIDOS = MAPELLIDOS
IF APELLIDOS = MAPELLIDOS
@25,10 SAY "APELLIDOS" + APELLIDOS
@25,50 SAY "NOMBRES" + NOMBRES
@30,10 SAY "TELEFONO" + telefono
@30,50 SAY "ECIVIL" + ECIVIL
@35,10 SAY "PAIS PROCEDE" + paisproced
@35,50 SAY "NACIONALIDAd" + NACIONALID
@40,10 SAY "PROFESION" + PROFESION
@40,50 SAY "DIRECCION" + DIRECCION
@45,10 SAY "OCUPACION" + OCUPACION
ELSE
WAIT WINDOW "APELLIDO NO EXISTE" TIME 3
ENDIF
@45,50 SAY "DESEA CONTINUAR S/N" get op
read
IF OP="s"
LOOP
ELSE
EXIT
ENDIF
ENDDO
DEACTIVATE WINDOW C
me an dicho que difina la variable telefono como string pero no se como se la define y tampoco se si es el mtelefono que q definirla
o estoy mal
ayuda
GRACIAS
Valora esta pregunta


0