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

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

view
var
   cpodr     : comp;
   m_podr  : longint;
as select persons.fio, persons.tabnmb,
          catalogs.name
where
((
  persons.department == catalogs.nrec 
))
and (persons.ISEMPLOYEE='К' or 
     persons.ISEMPLOYEE='С'and persons.jobnature=cpost) 
and persons.disdate=date(00,00,00)
condition Dep = catalogs.nrec = cpodr
order o1 by persons.ISEMPLOYEE, persons.tabnmb;
...
cmPick: {
var n_pick: longint;
var i_pick: longint;
var c_pick: comp;
   if CurField()=#npodr then {
      if conditionActive(tcDep) then  popCondition(tcDep);
      if RunInterface('PickCatalog2',-11,cpodr,100) = cmCancel then {
         cpodr:=cmain;
         rescanPanel(tnPersons); 
         set npodr:='';
      }
      else {
         m_podr:=InitMarker('CatalogsMarker', 8, 200, 10); 

if GetMarkerCount(m_podr)>0 then {

n_pick:=GetMarkerCount(m_podr);
for (i_pick:=0; i_pick<n_pick; i_pick:=i_pick+1) {
   getmarker(m_podr, i_pick, c_pick);
   if getfirst catalogs where ((c_pick == catalogs.nrec)) = tsOK
      logstrtofile('dot.log', string(c_pick,17,0)+' '+catalogs.name);
}
if (getfirst catalogs where searchmarker(m_podr,catalogs.nrec,i_pick) ) = tsOK then 
   do  message(catalogs.name) 
   while (getnext catalogs where searchmarker(m_podr,catalogs.nrec,i_pick) ) = tsOK;
}
else 
...