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: Error como Resultado de una Query.txt

File Error como Resultado de una Query.txt, 2.5 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 sDual = DBTable("SELECT id_provincia, co_provincia, no_provincia, ds_provincia, id_comunidad_autonoma FROM com_d_provincia","Str");
10
11Real If(ObjectExist("Real","id_comunidad_autonoma"),
12{
13  WriteLn("[sDual 1] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
14  False
15},
16{
17  WriteLn("[sDual 1] id_comunidad_autonoma NO EXISTE. OK");
18  False
19});
20
21Real Ois.Store(sDual,"c:/sDual.oza");
22
23Real If(ObjectExist("Real","id_comunidad_autonoma"),
24{
25  WriteLn("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
26  False
27},
28{
29  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
30  False
31});
32
33
34
35//////////////////////////////////////////////////////////////////
36// Cerramos TOL, abrimos uno nuevo y compilamos esto:
37//////////////////////////////////////////////////////////////////
38
39Struct Str(
40  Real id_provincia,
41  Text co_provincia,
42  Text no_provincia,
43  Text ds_provincia,
44  Real id_comunidad_autonoma
45);
46
47Real If(ObjectExist("Real","id_comunidad_autonoma"),
48{
49  WriteLn("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
50  False
51},
52{
53  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
54  False
55});
56
57Set sDual = Ois.Load("c:/sDual.oza")[1];
58
59Real If(ObjectExist("Real","id_comunidad_autonoma"),
60{
61  WriteLn("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
62  False
63},
64{
65  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
66  False
67});
68
69//////////////////////////////////////////////////////////////////
70// Cerramos TOL, abrimos uno nuevo y compilamos esto. Ahora funciona correctamente
71//////////////////////////////////////////////////////////////////
72
73Struct Str(
74  Real id_provincia,
75  Text co_provincia,
76  Text no_provincia,
77  Text ds_provincia,
78  Real id_comunidad_autonoma
79);
80
81Real If(ObjectExist("Real","id_comunidad_autonoma"),
82{
83  WriteLn("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
84  False
85},
86{
87  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
88  False
89});
90
91Set sDual = Ois.Load("c:/sDual.oza")[1];
92
93Real If(ObjectExist("Real","id_comunidad_autonoma"),
94{
95  WriteLn("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
96  False
97},
98{
99  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
100  False
101});