Галактика в вопросах и ответах

Код: Выделить всё

Interface testtable 'test' doaccept, cyan;
   show at (,,80,40)
   table struct TableOrgs(
      nrec    : Comp   ,
      crec    : Comp   ,
      name    : String
   )with index (byNrec = nrec);

   Create View TreeView
      var
        cOwner  : Comp;
        ccc : Comp;
     kvartal : word;
      select
         *
      from TableOrgs;

create view sm
     select  *  from saldmoun  where ((
        date(10,9,05)<<=saldmoun.datesal and        
        date(10,11,06)>>=saldmoun.datesal));
//------------------------------ Begin InitTables  ------------------------------
procedure InitTables;
{
   StartNewVisual(vtRotateVisual, vfTimer, 'Формирование дерева...',1);
   sm._Loop{
      ClearBuffer(#TableOrgs );
     ccc := sm.saldmoun.kauos[1];
  if(modifier getfirst       TableOrgs        where
      ((ccc==TableOrgs.nrec))<>tsOK){
      TableOrgs.nrec    :=  ccc;
      TableOrgs.name  :=  string(ccc);
      Insert Current TableOrgs;
   }
     }
   StopVisual('',0);
     message(getfirst       TableOrgs);
     RereadRecord(#TableOrgs);
     rescanPanel(#TableOrgs);
}
//------------------------------ End InitTables ------------------------------
browse bbb
     show at(,,,);
     table TableOrgs;
     fields
       TableOrgs.name;
end;
   handleEvent
      cmInit:{
         InitTables;
      }
   end;
End. 

Код: Выделить всё

interface testtable 'test' doaccept, cyan;
   show at (,,80,40)
   table struct TableOrgs
   (
      nrec    : comp,
      crec    : comp,
      name    : string
   )
   with index
   (
     byNrec = nrec
   );

   create view TreeView
      var
        cOwner  : Comp;
        ccc     : Comp;
        kvartal : word;
      select * from TableOrgs;

   create view sm select * from saldmoun;

//------------------------------ Begin InitTables  ------------------------------
procedure InitTables;
{
   StartNewVisual(vtRotateVisual, vfTimer, 'Формирование дерева...',1);
   sm._Loop
   {
      ClearBuffer(#TableOrgs );
      ccc := sm.saldmoun.kauos[1];
      if GetFirst TableOrgs where ((ccc == TableOrgs.nrec)) <> tsOK
      {
        TableOrgs.nrec    :=  ccc;
        TableOrgs.name  :=  string(ccc);
        Insert Current TableOrgs;
      }  
   }
   StopVisual('',0);
   RereadRecord(#TableOrgs);
   rescanPanel(#TableOrgs);
}
//------------------------------ End InitTables ------------------------------

  browse bbb;
    table TableOrgs;
    fields
      TableOrgs.name;
  end;
   
  HandleEvent
    cmInit:
    {
      InitTables;
    }
  end;
end.