Struct Str(
  Real id_provincia,
  Text co_provincia,
  Text no_provincia,
  Text ds_provincia,
  Real id_comunidad_autonoma
);

Set sProvincias = [[
  PutStructure("Str";[[ 0,"Des","Desconocida","Desconocida",0 ]]),
  PutStructure("Str";[[ 1,"Ala","Álava","Álava",14 ]]),
  PutStructure("Str";[[ 2,"Alb","Albacete","Albacete",7 ]]),
  PutStructure("Str";[[ 3,"Ali","Alicante","Alicante",17 ]]),
  PutStructure("Str";[[ 4,"Alm","Almería","Almería",1 ]]),
  PutStructure("Str";[[ 5,"Avi","Ávila","Ávila",8 ]]),
  PutStructure("Str";[[ 6,"Bad","Badajoz","Badajoz",10 ]]),
  PutStructure("Str";[[ 7,"Bal","Baleares","Illes Balears",4 ]]),
  PutStructure("Str";[[ 8,"Bar","Barcelona","Barcelona",9 ]]),
  PutStructure("Str";[[ 9,"Bur","Burgos","Burgos",8 ]]),
  PutStructure("Str";[[ 10,"Cac","Cáceres","Cáceres",10 ]]),
  PutStructure("Str";[[ 11,"Cad","Cádiz","Cádiz",1 ]]),
  PutStructure("Str";[[ 12,"Cas","Castellón","Castellón",17 ]]),
  PutStructure("Str";[[ 13,"Ciu","Ciudad Real","Ciudad Real",7 ]]),
  PutStructure("Str";[[ 14,"Cor","Córdoba","Córdoba",1 ]]),
  PutStructure("Str";[[ 15,"Cra","Coruña, La","Coruña, A",11 ]]),
  PutStructure("Str";[[ 16,"Cue","Cuenca","Cuenca",7 ]]),
  PutStructure("Str";[[ 17,"Gir","Gerona","Girona",9 ]]),
  PutStructure("Str";[[ 18,"Gra","Granada","Granada",1 ]]),
  PutStructure("Str";[[ 19,"Gua","Guadalajara","Guadalajara",7 ]]),
  PutStructure("Str";[[ 20,"Gui","Guipúzcoa","Guipúzcoa",14 ]]),
  PutStructure("Str";[[ 21,"Hue","Huelva","Huelva",1 ]]),
  PutStructure("Str";[[ 22,"Hsc","Huesca","Huesca",2 ]]),
  PutStructure("Str";[[ 23,"Jae","Jaén","Jaén",1 ]]),
  PutStructure("Str";[[ 24,"Leo","León","León",8 ]]),
  PutStructure("Str";[[ 25,"Lle","Lérida","Lleida",9 ]]),
  PutStructure("Str";[[ 26,"Rio","Rioja, La","Rioja, La",16 ]]),
  PutStructure("Str";[[ 27,"Lug","Lugo","Lugo",11 ]]),
  PutStructure("Str";[[ 28,"Mad","Madrid","Madrid",12 ]]),
  PutStructure("Str";[[ 29,"Mal","Málaga","Málaga",1 ]]),
  PutStructure("Str";[[ 30,"Mur","Murcia","Murcia",15 ]]),
  PutStructure("Str";[[ 31,"Nav","Navarra","Navarra",13 ]]),
  PutStructure("Str";[[ 32,"Our","Orense","Ourense",11 ]]),
  PutStructure("Str";[[ 33,"Ast","Asturias","Asturias",3 ]]),
  PutStructure("Str";[[ 34,"Pal","Palencia","Palencia",8 ]]),
  PutStructure("Str";[[ 35,"Plm","Palmas, Las","Palmas, Las",5 ]]),
  PutStructure("Str";[[ 36,"Pon","Pontevedra","Pontevedra",11 ]]),
  PutStructure("Str";[[ 37,"Sal","Salamanca","Salamanca",8 ]]),
  PutStructure("Str";[[ 38,"Ten","Sta Cruz de Tenerife","Santa Cruz de Tenerife",5 ]]),
  PutStructure("Str";[[ 39,"Can","Cantabria","Cantabria",6 ]]),
  PutStructure("Str";[[ 40,"Seg","Segovia","Segovia",8 ]]),
  PutStructure("Str";[[ 41,"Sev","Sevilla","Sevilla",1 ]]),
  PutStructure("Str";[[ 42,"Sor","Soria","Soria",8 ]]),
  PutStructure("Str";[[ 43,"Tar","Tarragona","Tarragona",9 ]]),
  PutStructure("Str";[[ 44,"Ter","Teruel","Teruel",2 ]]),
  PutStructure("Str";[[ 45,"Tol","Toledo","Toledo",7 ]]),
  PutStructure("Str";[[ 46,"Val","Valencia","Valencia",17 ]]),
  PutStructure("Str";[[ 47,"Vll","Valladolid","Valladolid",8 ]]),
  PutStructure("Str";[[ 48,"Viz","Vizcaya","Vizcaya",14 ]]),
  PutStructure("Str";[[ 49,"Zam","Zamora","Zamora",8 ]]),
  PutStructure("Str";[[ 50,"Zar","Zaragoza","Zaragoza",2 ]]),
  PutStructure("Str";[[ 51,"Ceu","Ceuta","Ceuta",18 ]]),
  PutStructure("Str";[[ 52,"Mel","Melilla","Melilla",19 ]]),
  PutStructure("Str";[[ 99,"TNa","Total Nacional","Total Nacional",99 ]])
]];

Real If(ObjectExist("Real","id_comunidad_autonoma"),
{
  WriteLn("[sProvincias 1] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sProvincias 1] id_comunidad_autonoma NO EXISTE. OK");
  False
});

Real Ois.Store(sProvincias,"c:/sProvincias.oza");

Real If(ObjectExist("Real","id_comunidad_autonoma"),
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
  False
});


//////////////////////////////////////////////////////////////////
// Cerramos TOL, abrimos uno nuevo y compilamos esto. En este caso funciona correntamente
//////////////////////////////////////////////////////////////////

Struct Str(
  Real id_provincia,
  Text co_provincia,
  Text no_provincia,
  Text ds_provincia,
  Real id_comunidad_autonoma
);

Real If(ObjectExist("Real","id_comunidad_autonoma"),
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
  False
});

Set sProvincias = Ois.Load("c:/sProvincias.oza")[1];

Real If(ObjectExist("Real","id_comunidad_autonoma"),
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sProvincias 2] id_comunidad_autonoma NO EXISTE. OK");
  False
});