БЛАНКСШАБЛОНОМ	"Задание месячного и квартального периодов";

F    :D=[B.F];Г:I=ГОД(F-1);Delta:I;
S    :D=[ДАТ(1,МЕС(B.F-1)-Delta,Г)];
FTMP :D;
STMP :D;
L    :L=[False];
Пер  :S=IF(L,"Месяц","Квартал");
Delta=IF(L,2,0);
Период:S=IF(F-S>=28 AND F-S<32	   : Месяц(МЕС(S))+" "+STR(Г)+" г." |
МЕС(F)-МЕС(S)=3 	AND МЕС(S)=1   : "1-ый квартал "+STR(Г)+" г."	|
МЕС(F)-МЕС(S)=3 	AND МЕС(S)=4   : "2-ой квартал "+STR(Г)+" г."	|
МЕС(F)-МЕС(S)=3 	AND МЕС(S)=7   : "3-ий квартал "+STR(Г)+" г."	|
МЕС(F)=1		AND МЕС(S)=10  : "4-ый квартал "+STR(Г)+" г."	,
"");
RdBtn1:O;
RdBtn2:O;

Proc OnOpenBln (Об:Logical);
   FTMP = F;
   STMP = S;
End;

proc Кнопка (об :S);
-- Вызывается при нажатии любой кнопки
  if об = "OK": 	Закрыть;
  | об = "Отмена":
    F = FTMP;
    S = STMP;
    Закрыть;
  fi;
end;

Proc OpenB (Об:S);
Var DTMP :Date;
  If Об = "Button1" :
	 DTMP=КАЛЕНДАРЬ(S);
	 If DTMP > 1.1.100 :
	S=DTMP;
	 Fi;
  |  Об = "Button2" :
	 DTMP=КАЛЕНДАРЬ(F);
	 If DTMP > 1.1.100 :
	F=DTMP;
	 Fi;
  Fi;
End;

КОНЕЦ

