Ticket #1843: ExtraccionVariablesI.tol

//////////////////////////////////////////////////////////////////////////////////////
// 
// Generación de excel para simulación con variables simulables de un objeto forecast
// 
//////////////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////////////
NameBlock ds = MMS::Container::GetForecast(1)::GetModel(?)::GetDataSet(?);

Date fechaini = y2009m01d01;
Date fechafin = y2014m12d20;
TimeSet fechado = CtSem445;
//////////////////////////////////////////////////////////////////////////////////////



Serie dummy = SubSer(Serie CalInd(TimeSet W, TimeSet fechado), fechaini, fechafin);
Set fechas = Dates(TimeSet fechado, fechaini, fechafin);


Set conjVars = ds::GetVariables(?);

/*
Set conjVarsSimulables = Select(Set conjVars, Real(NameBlock var) //NameBlock var = conjVars[1236]
{
  WriteLn("Nombre del input:       " + var::GetName(?));
  Text texto_esSimulable = var::GetAttribute_Default("_.simulable", Text "0");
  Real Eval("Real " + Text texto_esSimulable)
});
*/

Set Submodelos = MMS::Container::GetForecast(1)::GetModel(?)::GetSubmodels(?);

Set aux = BinGroup("<<",EvalSet(Submodelos, Set(NameBlock sbm)
{ //NameBlock sbm = Submodelos[1];
  Set BinGroup("<<", Set EvalSet(sbm::GetExpTerms_Active(?), Set (NameBlock nb)
  {
    Set nb::GetInput(?)::GetVariable(?)::GetDependences(?)
  }))
}));

/*
Set conjVarsSimulables = Unique(Select(Set aux, Real(NameBlock var) //NameBlock var = conjVars[1236]
{
  WriteLn("Nombre del input:       " + var::GetName(?));
  Text texto_esSimulable = var::GetAttribute_Default("_.simulable", Text "0");
  Real Eval("Real " + Text texto_esSimulable)
}));
*/

Set auxClassified = Classify(aux, Real(NameBlock a, NameBlock b)
{

Real(Text a::GetName(?) < b::GetName(?))



});

Set conjVarsSimulables = EvalSet(Set auxClassified, NameBlock(Set grupo)
{
NameBlock grupo[1]
});

Set conjVarsSimulables = Unique(aux);

Set tablita = EvalSet(Set conjVarsSimulables, Set(NameBlock varS)
{
  Serie sumada = Serie dummy << Serie varS::GetData.Extended(?)  >> Serie dummy;
  Set devol = 
    [[
      Text nombre = varS::GetName(?);
      Serie sumada
    ]] <<
    EvalSet(Set fechas, Real(Date fecha){Real SerDat(Serie sumada, Date fecha)})
});