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

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

#declare MacInsert
    insert visual into TmpEmployee (
      NRecStaff,
      NRecPsn,
      NRecApp,
      Rate,
      Note,
      TabNmb,
      StrTabN,
      FIO,
      LS_TabNmb,
      LS_StrTabN,
      dateBeg,
      dateEnd,
      apptype,
      lprizn )
    select tmpNrec,Appointments.Person,Appointments.Nrec,Appointments.Rate,'',Persons.TabNmb,Persons.StrTabN,
      Persons.FIO,LSChet.TABN,LSChet.StrTabn,Appointments.AppointDate,
      if ( Appointments.DismissDate <> date(0,0,0), Appointments.DismissDate, Appointments.DateEnd ),
      if ( Appointments.Lprizn = 0, 'осн', if (Appointments.Lprizn = 3, 'совм', '') ),
      Appointments.Lprizn
    From
      Appointments,Persons,LSChet
    where((tmpNrec == Appointments.StaffStr and 2 >> Appointments.wAddWord1 (noindex) and ( 0 = Appointments.Lprizn or 3 = Appointments.Lprizn) and
           Appointments.Person /== Persons.NRec and Appointments.cAddNrec2 == LSChet.nrec ))

#end

  tmpNrec:= StaffStruct.NRec;
  if not bFilterOn or base = 0 or base = 3
  {
    #MacInsert;
  }
  else
  {
    case Base of
      1:
        #MacInsert and
        Appointments.AppointDate <= date2 and
        (if(Appointments.DismissDate > date(0,0,0), Appointments.DismissDate, Appointments.DateEnd) >= date1 or
         if(Appointments.DismissDate > date(0,0,0), Appointments.DismissDate, Appointments.DateEnd) = date(0,0,0)
        );
      2:
        #MacInsert and
        (
         Appointments.AppointDate <= date2 and
         (Appointments.DismissDate > date(0,0,0) or Appointments.DateEnd > date(0,0,0)) and
         if(Appointments.DismissDate > date(0,0,0), Appointments.DismissDate, Appointments.DateEnd) >= date1 and
         if(Appointments.DismissDate > date(0,0,0), Appointments.DismissDate, Appointments.DateEnd) < date2
        );
    end;
  }