Показать сообщение отдельно
Старый 05.11.2013, 11:56   #5  
srg is offline
srg
Участник
 
116 / 10 (1) +
Регистрация: 20.08.2013
Вопрос такого характера..

сделал на реквест форме построение отчета по периодам

вот код

Код:
Col:=3;
CASE PeriodType OF
 PeriodType::Day:
   Formula:='<1D>';
 PeriodType::Week:
   Formula:='<1W>';
 PeriodType::Month:
   Formula:='<1M>';
 PeriodType::Quarter:
   Formula:='<1Q>';
 PeriodType::Year:
   Formula:='<1Y>';
END;

REPEAT
 CASE PeriodType OF
  PeriodType::Day:
    DateText:=FORMAT(CurDate);
  PeriodType::Week:
    DateText:=FORMAT(CurDate,7,'<Week>.<Year4>');
  PeriodType::Month:
    DateText:=FORMAT(CurDate,12,'<Month Text,3> <Year4>');
  PeriodType::Quarter:
    DateText:=FORMAT(CurDate,7,'<Quarter>/<Year4>');
  PeriodType::Year:
    DateText:=FORMAT(DATE2DMY(CurDate,3));
 END;
Но появилась иная задача, и как реализовать вообще хз.
мне нужно вот эти периоды, получать с самой формы и передавать себе в отчет уже.