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

Set sDual = DBTable("SELECT id_provincia, co_provincia, no_provincia, ds_provincia, id_comunidad_autonoma FROM com_d_provincia","Str");

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

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

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



//////////////////////////////////////////////////////////////////
// Cerramos TOL, abrimos uno nuevo y compilamos esto:
//////////////////////////////////////////////////////////////////

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("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
  False
});

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

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

//////////////////////////////////////////////////////////////////
// Cerramos TOL, abrimos uno nuevo y compilamos esto. Ahora funciona correctamente
//////////////////////////////////////////////////////////////////

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("[sDual 2] id_comunidad_autonoma SI EXISTE y vale:"<<id_comunidad_autonoma+". NO OK");
  False
},
{
  WriteLn("[sDual 2] id_comunidad_autonoma NO EXISTE. OK");
  False
});

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

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