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

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

[..........]
DataStream FRBookings
(
  table inherited::FRtbl_Bookings
  (
    [e_MnPlanName]  MnPlan.Name;
  );
) 
Handleevent table FRtbl_Bookings 
cmOnProcess: {  
    Var i         : Word;
    Var NewRef    : Comp;
    Var bflag     : boolean;

    if( GetMarkerCount(Markers) = 0  )
    {
        bflag := true;
        InsertMarker(Markers, Indent.NRec);
    }
     for (i:= 0; i < GetMarkerCount(Markers); i++)
    {
      if (Not GetMarker(Markers, i, NewRef))
        Continue;
      if  getfirst Indent  where ((NewRef == Indent.Nrec)) = tsOk
      {
       ContinueDataset;
      }
    }
}

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

handleEvent dataset ContDoc
cmPreProcess:
{ if Print_Group>0
  { boPrint_Group_First:=Getfirst_Print_Group
    if not boPrint_Group_First BreakProcess
    else boPrint_SP_First:=Getfirst_Print_SP;
    
    
  }
  else
  { boPrint_Group_First:=getfirst ContDoc=tsok;
    boPrint_SP_First:=getfirst ContDocPersons=tsok;;
  }

}
cmOnProcess:
{ if (boPrint_Group_First)
  {
    boPrint_Group_First := false;
    ContinueDataset;
    
  }
  else  
  { if Print_Group>0
    { if not GetNext_Print_Group
      { BreakProcess;
       //if not boPrint_Group_First BreakProcess
      } 
      else
      { boPrint_SP_First:=Getfirst_Print_SP;
            
        ContinueDataset;
      }
    }
    else
    { if getnext Contdoc<>tsok BreakProcess
      else ContinueDataset;;
    }
  } 
  if getfirst ContDocPersons=tsok {}
  if getfirst Appointments=tsok {}
  }
end;

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

[.......]
DataStream FRBookings
(
  table inherited::FRtbl_Bookings
  (
    [e_MnPlanName]  mnplan.name;
  );
)

Handleevent table FRtbl_Bookings
cmOnProcess: 
{
   ClearBuffer(#FRtbl_Bookings);
   FRtbl_Bookings.e_MnPlanName:=mnplan.name;
   insert current FRtbl_Bookings
}

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

  table inherited::FRtbl_Bookings
  (

    [e_MnPlanName]  mnplan.name;
    [e_katnazna]    katnazna.name;
    [e_DoS_No_d]    sbasedoc_nodoc; 
    [e_allPost]     sAllpost;

  );

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

NewRef:= FRtbl_Bookings._IndNrec

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

if  getfirst Indent  where ((NewRef == Indent.Nrec)) = tsOk
{   sbasedoc_nodoc:=_DO_SnbNmDt(indent.nrec, 0h, 0, 0); 
      } else sbasedoc_nodoc:=''
If getfirst claim1 where((NewRef == claim1.cindent)) =tsOK and getfirst katorg where ((claim1.CVALKAU[1] == katorg.nrec)) = tsOk
      {sAllPost=''
         sAllPost:= _Kontragents
      }else sAllPost:=''

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

DataStream
   (
    родитель table
        (
         моя table
        )

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

Alter interface Bookings;

Overload
 DataStream FRBookings;
end;

  table struct tempdata
  (
   cind  : comp ,
   s1    : string
  )
  with index
  (
    in1=cind
  );

Create View Bookings_v
 as select
   if(isvalidall(tntempdata),tempdata.s1,'') (fieldname=ss1) 
 from
    tempdata
   ,Indent IndFr
 where 
   ((
     FRtbl_Bookings._IndNrec ==  tempdata.cind
   ))
;


DataStream FRBookings
(
  table inherited::FRtbl_Bookings
  (
    [e_MnPlanName] ss1;
  );
)

Handleevent
cmPreProcess : { 
    Var i         : Word;
    Var NewRef    : Comp;

     if( GetMarkerCount(Markers) = 0  )
     {
        InsertMarker(Markers, Indent.NRec);
     }

     mtClear(#tempdata,fmNormal);

     for (i:= 0; i < GetMarkerCount(Markers); i++)
     {
      if (Not GetMarker(Markers, i, NewRef))
        Continue;

      if getfirst IndFr where (( NewRef== IndFr.nrec))=tsok
       if getfirst tempdata where (( NewRef == tempdata.cind))<>tsok
       {       
        insert tempdata set tempdata.cind:=NewRef , tempdata.s1:='Это помеченная заявка №'+string(i+1)+' маркера . '+DateTostr(IndFr.atl_lastdate,'DD.MM.YYYY');
       }
     }
   }
  end;
 end;
end.