*Передаётся тип отчёта(зарезервировано)
PARAMETERS tip_otch
*Нужно для работы с репортами
PUBLIC datt, datt_ok 
PUBLIC lc_TypeInterval, lc_NumQuarter
SET DATE GERMAN 
*выключаем вывод на форму отладочной информации
SET CONSOLE OFF 
*Не обрабатывать помеченные удалёнными
SET DELETED ON

*Окошко,которое просит подождать
WAIT WINDOW "Идёт отбор данных... Ждите..." NOWAIT NOCLEAR AT SROWS()/2, SCOLS()/2 

*Заполняем курсоры подразделений, исполнителей и кураторов + поле признака пометки чекбоксом
SELECT kstruct,nastruct,vsp FROM struct_podr UNION ALL SELECT kstruct,nastruct,vsp FROM lvprivat ;
INTO CURSOR podr_al
SELECT podr_al.kstruct as kodp, podr_al.nastruct as naimp ,.f. as przk;
FROM podr_al ;
INTO CURSOR podrazd_al READWRITE 
**********************************  
SELECT ispleader.tabel as tabn,ispleader.fio as fio,;
.f. as przk,ispleader.kstruct as kodp,ispleader.phone as phone;
FROM ispleader ;
UNION ALL ;
SELECT lvPrivat.tabel as tabn,lvPrivat.fio as fio,;
.f. as przk,lvPrivat.kstruct as kodp,lvPrivat.phone as phone;
FROM lvPrivat ;
INTO CURSOR ispoln_al READWRITE  
*********************************
SELECT ispleader.tabel as tabn,ispleader.fio as fio,;
.f. as przk,ispleader.kstruct as kodp,ispleader.phone as phone ;
FROM ispleader ;
UNION ALL ;
SELECT lvPrivat.tabel as tabn,lvPrivat.fio as fio,;
.f. as przk,lvPrivat.kstruct as kodp,lvPrivat.phone as phone ;
FROM lvPrivat ;
INTO CURSOR kurat_al READWRITE  
*Для лога при поиске неоптимального(долгого) кода
*SET COVERAGE TO 'cover_eng.log'

WITH ThisForm.pageframe1.paGE1.container1

*получаем дату которая в окне выбора 
S=DateBegin
N=DateEnd

lc_TypeInterval=nTypeInterval
lc_NumQuarter=nNumQuarter

*Перевод в формат только даты
*datt=TTOD(s)
datt=DateBegin
datt_ok=DateEnd

*кусок для русского месяца
DO CASE 
 CASE lc_NumQuarter=1
     kvartal='Первый квартал'
 CASE lc_NumQuarter=2
     kvartal='Второй квартал'
 CASE lc_NumQuarter=3
    kvartal='Третий квартал'
 CASE lc_NumQuarter=4
    kvartal='Четвертый квартал'
ENDCASE
*кусок для русского месяца
DO CASE 
 CASE MONTH(s)=1
     mesyac='январь'
 CASE MONTH(s)=2
    mesyac='февраль'
 CASE MONTH(s)=3
    mesyac='март'
 CASE MONTH(s)=4
    mesyac='апрель'
 CASE MONTH(s)=5
    mesyac='май'
 CASE MONTH(s)=6
    mesyac='июнь'
 CASE MONTH(s)=7
    mesyac='июль'
 CASE MONTH(s)=8
    mesyac='август'
 CASE MONTH(s)=9
    mesyac='сентябрь'
 CASE MONTH(s)=10
    mesyac='октябрь'
 CASE MONTH(s)=11
    mesyac='ноябрь'
 CASE MONTH(s)=12
    mesyac='декабрь'
ENDCASE 
DO CASE 
 CASE MONTH(n)=1
     mesyacn='январь'
 CASE MONTH(n)=2
    mesyacn='февраль'
 CASE MONTH(n)=3
    mesyacn='март'
 CASE MONTH(n)=4
    mesyacn='апрель'
 CASE MONTH(n)=5
    mesyacn='май'
 CASE MONTH(n)=6
    mesyacn='июнь'
 CASE MONTH(n)=7
    mesyacn='июль'
 CASE MONTH(n)=8
    mesyacn='август'
 CASE MONTH(n)=9
    mesyacn='сентябрь'
 CASE MONTH(n)=10
    mesyacn='октябрь'
 CASE MONTH(n)=11
    mesyacn='ноябрь'
 CASE MONTH(n)=12
    mesyacn='декабрь'
ENDCASE 

*Устанавливаем соответствующие надписи на лейбелах
DO CASE
CASE lc_TypeInterval=1
    ThisForm.pageframe1.page1.Label1.Caption='Текущие значения показателей работы подразделений на: '+mesyac+' '+STR(YEAR(n),4,0)
    ThisForm.pageframe1.page2.Label1.Caption='Текущие значения показателей работы подразделений на: '+mesyac+' '+STR(YEAR(n),4,0)
    ThisForm.pageframe1.page3.Label1.Caption='Перечень карточек по подразделению на: '+mesyac+' '+STR(YEAR(n),4,0)
CASE lc_TypeInterval=2
    ThisForm.pageframe1.page1.Label1.Caption='Текущие значения показателей работы подразделений на: '+kvartal+' '+STR(YEAR(n),4,0)
    ThisForm.pageframe1.page2.Label1.Caption='Текущие значения показателей работы подразделений на: '+kvartal+' '+STR(YEAR(n),4,0)
    ThisForm.pageframe1.page3.Label1.Caption='Перечень карточек по подразделению на: '+kvartal+' '+STR(YEAR(n),4,0)
ENDCASE 
*Нахождение послднего дня месяца(коректно в высокосный год и переходу между годами)
*datt_ok=GOMONTH(datt,1)-1    && +1 МЕСЯЦ -1 ДЕНЬ

*Иначе нельзя!!!(нельзя делать селект в курсор, который является источником)
.grdVuborIsp.recordSource=[]

*Заполняем курсоры подразделений, исполнителей и кураторов + поле признака пометки чекбоксом
SELECT struct_podr.kstruct as kodp, struct_podr.nastruct as naimp ,.f. as przk ;
FROM struct_podr ;
UNION ALL ;
SELECT lvPrivat.kstruct as kodp, lvPrivat.nastruct as naimp ,.f. as przk ;
FROM lvPrivat ;
INTO CURSOR podrazd_al READWRITE 
********************************    курсор исполнителей
SELECT ispleader.tabel as tabn, ispleader.fio as fio,;
       .f. as przk, ispleader.kstruct as kodp, ispleader.phone as phone ;
FROM ispleader ;
UNION ALL ;
SELECT lvPrivat.tabel as tabn, lvPrivat.fio as fio,;
.f. as przk, lvPrivat.kstruct as kodp, lvPrivat.phone as phone;
FROM lvPrivat ;
INTO CURSOR ispoln_al READWRITE 
*******************************        курсор кураторов 
SELECT ispleader.tabel as tabn, ispleader.fio as fio,;
.f. as przk, ispleader.kstruct as kodp, ispleader.phone as phone ;
FROM ispleader ;
UNION ALL ;
SELECT lvPrivat.tabel as tabn, lvPrivat.fio as fio,;
.f. as przk, lvPrivat.kstruct as kodp, lvPrivat.phone as phone ;
FROM lvPrivat ;
INTO CURSOR  kurat_al READWRITE  
*******************************

* ВЫБОРКА *
WAIT WINDOW "Выборка всех данных... Ждите..." NOWAIT NOCLEAR AT SROWS()/2, SCOLS()/2 
SELECT podrazd_al.naimp as naimp, ispoln_al.fio as fio_isp,;
        (ALLTRIM(kard.regnumb)+'('+ALLTRIM(pointtask.pointnumb)+')') as regn, kurat_al.fio as fio_kur,;
        IIF(EMPTY(pointtask.datenew), pointtask.dateout, pointtask.datenew) as d_n,;
        000000 as dnei, 000000 as dn_per, kard.pz as pz,;
        IIF(EMPTY(pointtask.datefact) OR pointtask.datefact>datt_ok, datt_ok, pointtask.datefact) as d_k,;
        pointtask.dateout as d_out,pointtask.datenew as d_new,pointtask.datefact as d_fact,pointtask.datecansel as d_cansel,;
        kard.regnumb,pointtask.datemarke,IIF(pointtask.datenew=CTOD(''),pointtask.dateout,;
        IIF(EMPTY(pointtask.datefact),IIF(pointtask.datenew>=pointtask.datemarke,pointtask.datenew,pointtask.datemarke),;
        IIF(pointmove.datenew>=pointmove.datemarke,pointmove.datenew,pointmove.datemarke))) as d_mkn,;
        IIF(EMPTY(pointtask.datefact) OR pointtask.datefact>datt_ok, datt_ok, pointtask.datemarke) as d_mkk,kard.doctitle,pointtask.pointsod,kard.docname,pointtask.pointnumb;
    FROM  kard JOIN pointtask ON kard.regnumb=pointtask.regnumb;
                left JOIN ispoln_al ON ispoln_al.tabn=kard.tabispolnit; 
                left JOIN kurat_al ON kurat_al.tabn=kard.tabkurator;
                left JOIN podrazd_al ON podrazd_al.kodp=ispoln_al.kodp;
                left JOIN pointmove ON pointmove.regnumb=pointtask.regnumb;
                             AND pointmove.pointnumb=pointtask.pointnumb AND pointmove.datenew=pointtask.datenew; 
    WHERE (EMPTY(pointtask.datecansel) or pointtask.datecansel>datt_ok) ;
UNION ;
SELECT  podrazd_al.naimp as naimp,ispoln_al.fio as fio_isp,;
                (ALLTRIM(kardout.regnumb)+'('+ALLTRIM(pointout.pointnumb)+')') as regn,kurat_al.fio as fio_kur,;
                IIF(EMPTY(pointout.datenew),pointout.dateout,pointout.datenew) as d_n, 000000 as dnei,000000 as dn_per,;
                kardout.pz as pz,;
                IIF(EMPTY(pointout.datefact) OR pointout.datefact>datt_ok,datt_ok,pointout.datefact) as d_k,;
                pointout.dateout as d_out,pointout.datenew as d_new,pointout.datefact as d_fact,pointout.datecansel as d_cansel,;
                kardout.regnumb,pointout.datemarke,IIF(pointout.datenew=CTOD(''),pointout.dateout,;
                IIF(EMPTY(pointout.datefact),IIF(pointout.datenew>=pointout.datemarke,pointout.datenew,pointout.datemarke),;
                IIF(pointmoveout.datenew>=pointmoveout.datemarke,pointmoveout.datenew,pointmoveout.datemarke))) as d_mkn,;
                IIF(EMPTY(pointout.datefact) OR pointout.datefact>datt_ok,datt_ok,pointout.datemarke) as d_mkk,kardout.doctitle,pointout.pointsod,kardout.docname,pointout.pointnumb;
    FROM kardout JOIN pointout ON kardout.regnumb=pointout.regnumb;
                    left JOIN ispoln_al ON ispoln_al.tabn=kardout.tabispolnit;
                    left JOIN kurat_al ON kurat_al.tabn=kardout.tabkurator;
                    left JOIN podrazd_al ON podrazd_al.kodp=ispoln_al.kodp;
                    left JOIN pointmoveout ON pointmoveout.regnumb=pointout.regnumb;
                             AND pointmoveout.pointnumb=pointout.pointnumb AND pointmoveout.datenew=pointout.datenew; 
    WHERE EMPTY(pointout.datecansel) or !BETWEEN(pointout.datecansel,datt,datt_ok) ;
    INTO CURSOR tt_al ORDER BY regn

*Селект для отбора данных необходимых в данной форме :)
SELECT tt_al.*;
 FROM tt_al;
    WHERE ((BETWEEN(d_n,datt,datt_ok) AND (EMPTY(d_fact) OR BETWEEN(d_fact,datt,datt_ok))) ;
     OR (BETWEEN(d_fact,datt,datt_ok));
     OR (EMPTY(d_fact) AND d_n<datt ) ;
     OR (BETWEEN(d_mkk,datt,datt_ok) AND d_fact<datt AND !EMPTY(d_fact))) AND (EMPTY(d_cansel) OR d_cansel>=datt);
INTO CURSOR t_al READWRITE;
ORDER BY tt_al.fio_isp
*OR (BETWEEN(d_mkk,datt,datt_ok) AND d_fact<datt)
GO TOP IN podrazd_al
GO TOP IN ispoln_al
GO TOP IN kurat_al

thisform.pageframe1.page3.grid1.RecordSource=[empty]
*Копия для работы алг подсчёта, назовём "расчётной таблицей"
SELECT t_al.*;
 FROM t_al;
INTO CURSOR t1_al READWRITE ;
ORDER BY t_al.fio_kur

SELECT t1_al

WAIT WINDOW "Идёт подсчёт дней... Ждите..." NOWAIT NOCLEAR AT SROWS()/2, SCOLS()/2 

*************************************
*Алгоритм подсчёта дней
*************************************
SCAN
    *Селект собирающий все переносы по текущей карте(пункту),отсортированый по datenew
    SELECT pointmove.datenew,;
             IIF(pointmove.datemarke>datt_ok,datt_ok,pointmove.datemarke) as datemarke;
        FROM pointmove ;
        WHERE ALLTRIM(pointmove.regnumb)+'('+ALLTRIM(pointmove.pointnumb)+')'=t1_al.regn;
                 AND (pointmove.datenew<=datt_ok OR (pointmove.datenew>datt_ok AND pointmove.datemarke<=datt_ok) ;
                 OR (pointmove.datenew<=datt_ok AND pointmove.datemarke>datt_ok));
    UNION;
    SELECT pointmoveout.datenew,;
            IIF(pointmoveout.datemarke>datt_ok,datt_ok,pointmoveout.datemarke) as datemarke;
        FROM pointmoveout ;
        WHERE ALLTRIM(pointmoveout.regnumb)+'('+ALLTRIM(pointmoveout.pointnumb)+')'=t1_al.regn;
                AND (pointmoveout.datenew<=datt_ok OR (pointmoveout.datenew>datt_ok AND pointmoveout.datemarke<=datt_ok) ;
                OR (pointmoveout.datenew<=datt_ok AND pointmoveout.datemarke>datt_ok));
    INTO CURSOR perenosu readwrite;
    ORDER BY 1

    SELECT perenosu
    GO TOP  

    *Используется для отладки(останов на опр намере карточки)
    *!*    IF LEFT(t1_al.regn,8)='24116016'
    *!*    ENDIF 
    SELECT perenosu
    *Подсчёт общего числа переносов
    kol_per=RECCOUNT()
    *Опоздания по переносам
    op_per=0
    *Опоздания по закрытию,либо ещё не закрыта,а должна
    op_vup=0
    SELECT perenosu
    GO TOP
    *Если переносы вообще есть,то
    IF kol_per>0
    *Запоминаем дату када должен был быть первый перенос
    old=t1_al.d_out 
    FOR i=1 TO kol_per
    *Если есть опоздания,то
    IF old<perenosu.datemarke
    *Считаем кол-во дней
    nn=perenosu.datemarke-(old)
    *Выключен подсчёт рабочих дней по просьбам трудящихся :)
     nn=nn-3
        *если опоздали из-за дороги,то
        IF nn<0
        *Закроем глаза
        nn=0
        ENDIF 
        *проссумировали оп по переносам
        op_per=op_per+nn
    ENDIF 
    *Запоминаем:када к нам в след раз должны придти :)(мы всё помним)
    old=perenosu.datenew 
    *Перемещаемся на след по времени перенос,
    skip
    *Выход из цикла если больше нет переносов для обработки
    ENDFOR 
    ENDIF 
    *Сюда попадём, если переносов вообще не было, или када подсчитаем опоздания по всем переносам
    *Были или нет переносы--без разницы, считаем колво дней опозданий с даты начала подсчёта(d_out или d_new<соотв посл переносу>)
        *!*IF t1_al.d_n<t1_al.d_mkk
        nn=t1_al.d_mkk-(t1_al.d_n)
        *!*calculate cnt() FOR BETWEEN(calendar.dday,t1_al.d_n+1,t1_al.d_mkk) TO nn in calendar
        nn=nn-3
        IF nn<0
        nn=0
        ENDIF 
        op_vup=op_vup+nn

       *Вернулись в главную таблицу
       SELECT t1_al
    *Заносим подсчитанные дни опоздания
    replace t1_al.dnei WITH op_per+op_vup,t1_al.dn_per WITH op_per
ENDSCAN
*Селект, который готовит данные для итоговой таблицы, осталось только подсчитать задания и коэффиц
SELECT distinct t1_al.naimp,t1_al.fio_isp,000 as zad_vsego,000 as zad_vup,0000000000 as kolvo_dnei,;
000000 as kolvo_op, 00.00 as koeffic,00.00 as koeffic2;
FROM t1_al;
INTO CURSOR isp_tmp readwrite;
ORDER BY t1_al.fio_isp

*!*kolvo=RECCOUNT()
*browse
GO TOP 
*Займёмся этим
SCAN 
*Фильтр по исполнителю в расчётной таблице 
SET FILTER TO t1_al.fio_isp=isp_tmp.fio_isp IN t1_al
*подсчитали всего заданий
calculate CNT() to n1 IN t1_al
replace isp_tmp.zad_vsego WITH n1 
n2=0
*Подсчитали кол-во вып заданий
calculate CNT() FOR !empty(t1_al.d_fact) AND (t1_al.d_fact<=datt_ok) to n2 IN t1_al
replace isp_tmp.zad_vup WITH n2
PRIVATE n3 n(10)
PRIVATE n4 n(10)
*Сумма всего дней для данного исполнителя
calculate sum(t1_al.dnei) to n3 IN t1_al
replace isp_tmp.kolvo_dnei WITH n3
*Сумма дней опозданий по переносам у данного исполнителя
calculate sum(t1_al.dn_per) to n4 IN t1_al 
replace isp_tmp.kolvo_op WITH n4
*Проверка, чтобы не было деления на ноль при подсч коэффиц
IF zad_vsego>0
IF isp_tmp.zad_vup=0
 IF kolvo_dnei=0 
  koeff=1
  ELSE 
  koeff=0
 ENDIF
ELSE   
koeff=(zad_vsego-0.05*kolvo_dnei)/zad_vsego
ENDIF 
ELSE
koeff=1
ENDIF 
IF koeff<0
koeff=0
ENDIF 
replace isp_tmp.koeffic WITH koeff
IF isp_tmp.koeffic=1
  koeff2=0
ELSE  
  koeff2=(1-koeff)*25
ENDIF  
replace isp_tmp.koeffic2 WITH koeff2
SET FILTER TO IN t1_al
ENDSCAN  
*Окончание заполнения итоговой таблицы
thisform.pageframe1.page2.grid1.recordsource=[empty]

GO TOP 
*.grdVuborPodr.recordSource=[]
*Формируем курсор подразделений
SELECT distinct struct_podr.kstruct as kodp, isp_tmp.naimp,.f. as przk ; 
FROM struct_podr JOIN isp_tmp ON struct_podr.nastruct=isp_tmp.naimp ;
UNION ALL ;
SELECT distinct lvPrivat.kstruct as kodp, isp_tmp.naimp,.f. as przk ; 
FROM lvPrivat JOIN isp_tmp ON lvPrivat.nastruct=isp_tmp.naimp ;
INTO CURSOR podrazd_al READWRITE ;
ORDER BY isp_tmp.naimp 
kolvo_podr=_tally 
GO top
IF kolvo_podr=0
    thisform.pageframe1.page1.container1.Visible= .F.
    MESSAGEBOX('Нету карточек на заданный период')
ELSE 
    *.grdVuborPodr.recordSource=[podrazd_al]
    *.grdVuborPodr.enabled=.t.
    thisform.pageframe1.page1.container1.Enabled= .T.
    thisform.pageframe1.page1.container1.Visible= .T.
ENDIF 
    ThisForm.Pageframe1.Page1.Container1.Command5.Visible = .F. 
    ThisForm.Pageframe1.Page1.Container1.Command6.Visible = .F. 
    ThisForm.Pageframe1.Page1.Container1.Command10.Visible = .F. 
    ThisForm.Pageframe1.Page1.Container1.Command1.Visible = .F.
    ThisForm.Pageframe1.Page1.Container1.Label6.Visible = .F.
    ThisForm.Pageframe1.Page1.Container1.grdVuborIsp.Visible = .F.
ENDWITH 
*Убираем окошко,которое просит подождать
WAIT CLEAR