close Warning: Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #1766: OK como Resultado de un Set con estructura.txt

File OK como Resultado de un Set con estructura.txt, 4.9 KB (added by lmperez@…, 11 years ago)
Line 
1Struct Str(
2  Real id_provincia,
3  Text co_provincia,
4  Text no_provincia,
5  Text ds_provincia,
6  Real id_comunidad_autonoma
7);
8
9Set sProvincias = [[
10  PutStructure("Str";[[ 0,"Des","Desconocida","Desconocida",0 ]]),
11  PutStructure("Str";[[ 1,"Ala","Álava","Álava",14 ]]),
12  PutStructure("Str";[[ 2,"Alb","Albacete","Albacete",7 ]]),
13  PutStructure("Str";[[ 3,"Ali","Alicante","Alicante",17 ]]),
14  PutStructure("Str";[[ 4,"Alm","Almería","Almería",1 ]]),
15  PutStructure("Str";[[ 5,"Avi","Ávila","Ávila",8 ]]),
16  PutStructure("Str";[[ 6,"Bad","Badajoz","Badajoz",10 ]]),
17  PutStructure("Str";[[ 7,"Bal","Baleares","Illes Balears",4 ]]),
18  PutStructure("Str";[[ 8,"Bar","Barcelona","Barcelona",9 ]]),
19  PutStructure("Str";[[ 9,"Bur","Burgos","Burgos",8 ]]),
20  PutStructure("Str";[[ 10,"Cac","Cáceres","Cáceres",10 ]]),
21  PutStructure("Str";[[ 11,"Cad","Cádiz","Cádiz",1 ]]),
22  PutStructure("Str";[[ 12,"Cas","Castellón","Castellón",17 ]]),
23  PutStructure("Str";[[ 13,"Ciu","Ciudad Real","Ciudad Real",7 ]]),
24  PutStructure("Str";[[ 14,"Cor","Córdoba","Córdoba",1 ]]),
25  PutStructure("Str";[[ 15,"Cra","Coruña, La","Coruña, A",11 ]]),
26  PutStructure("Str";[[ 16,"Cue","Cuenca","Cuenca",7 ]]),
27  PutStructure("Str";[[ 17,"Gir","Gerona","Girona",9 ]]),
28  PutStructure("Str";[[ 18,"Gra","Granada","Granada",1 ]]),
29  PutStructure("Str";[[ 19,"Gua","Guadalajara","Guadalajara",7 ]]),
30  PutStructure("Str";[[ 20,"Gui","Guipúzcoa","Guipúzcoa",14 ]]),
31  PutStructure("Str";[[ 21,"Hue","Huelva","Huelva",1 ]]),
32  PutStructure("Str";[[ 22,"Hsc","Huesca","Huesca",2 ]]),
33  PutStructure("Str";[[ 23,"Jae","Jaén","Jaén",1 ]]),
34  PutStructure("Str";[[ 24,"Leo","León","León",8 ]]),
35  PutStructure("Str";[[ 25,"Lle","Lérida","Lleida",9 ]]),
36  PutStructure("Str";[[ 26,"Rio","Rioja, La","Rioja, La",16 ]]),
37  PutStructure("Str";[[ 27,"Lug","Lugo","Lugo",11 ]]),
38  PutStructure("Str";[[ 28,"Mad","Madrid","Madrid",12 ]]),
39  PutStructure("Str";[[ 29,"Mal","Málaga","Málaga",1 ]]),
40  PutStructure("Str";[[ 30,"Mur","Murcia","Murcia",15 ]]),
41  PutStructure("Str";[[ 31,"Nav","Navarra","Navarra",13 ]]),
42  PutStructure("Str";[[ 32,"Our","Orense","Ourense",11 ]]),
43  PutStructure("Str";[[ 33,"Ast","Asturias","Asturias",3 ]]),
44  PutStructure("Str";[[ 34,"Pal","Palencia","Palencia",8 ]]),
45  PutStructure("Str";[[ 35,"Plm","Palmas, Las","Palmas, Las",5 ]]),
46  PutStructure("Str";[[ 36,"Pon","Pontevedra","Pontevedra",11 ]]),
47  PutStructure("Str";[[ 37,"Sal","Salamanca","Salamanca",8 ]]),
48  PutStructure("Str";[[ 38,"Ten","Sta Cruz de Tenerife","Santa Cruz de Tenerife",5 ]]),
49  PutStructure("Str";[[ 39,"Can","Cantabria","Cantabria",6 ]]),
50  PutStructure("Str";[[ 40,"Seg","Segovia","Segovia",8 ]]),
51  PutStructure("Str";[[ 41,"Sev","Sevilla","Sevilla",1 ]]),
52  PutStructure("Str";[[ 42,"Sor","Soria","Soria",8 ]]),
53  PutStructure("Str";[[ 43,"Tar","Tarragona","Tarragona",9 ]]),
54  PutStructure("Str";[[ 44,"Ter","Teruel","Teruel",2 ]]),
55  PutStructure("Str";[[ 45,"Tol","Toledo","Toledo",7 ]]),
56  PutStructure("Str";[[ 46,"Val","Valencia","Valencia",17 ]]),
57  PutStructure("Str";[[ 47,"Vll","Valladolid","Valladolid",8 ]]),
58  PutStructure("Str";[[ 48,"Viz","Vizcaya","Vizcaya",14 ]]),
59  PutStructure("Str";[[ 49,"Zam","Zamora","Zamora",8 ]]),
60  PutStructure("Str";[[ 50,"Zar","Zaragoza","Zaragoza",2 ]]),
61  PutStructure("Str";[[ 51,"Ceu","Ceuta","Ceuta",18 ]]),
62  PutStructure("Str";[[ 52,"Mel","Melilla","Melilla",19 ]]),
63  PutStructure("Str";[[ 99,"TNa","Total Nacional","Total Nacional",99 ]])
64]];
65
66Real If(ObjectExist("Real","id_comunidad_autonoma"),
67{
68  WriteLn("[sProvincias 1] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
69  False
70},
71{
72  WriteLn("[sProvincias 1] id_comunidad_autonoma NO EXISTE. OK");
73  False
74});
75
76Real Ois.Store(sProvincias,"c:/sProvincias.oza");
77
78Real If(ObjectExist("Real","id_comunidad_autonoma"),
79{
80  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
81  False
82},
83{
84  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
85  False
86});
87
88
89//////////////////////////////////////////////////////////////////
90// Cerramos TOL, abrimos uno nuevo y compilamos esto. En este caso funciona correntamente
91//////////////////////////////////////////////////////////////////
92
93Struct Str(
94  Real id_provincia,
95  Text co_provincia,
96  Text no_provincia,
97  Text ds_provincia,
98  Real id_comunidad_autonoma
99);
100
101Real If(ObjectExist("Real","id_comunidad_autonoma"),
102{
103  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
104  False
105},
106{
107  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
108  False
109});
110
111Set sProvincias = Ois.Load("c:/sProvincias.oza")[1];
112
113Real If(ObjectExist("Real","id_comunidad_autonoma"),
114{
115  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
116  False
117},
118{
119  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
120  False
121});