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

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

interface bdrFaktRules 'Настройка фактического исполнения БДР'; show at (,,,30);

create view mainView
var
  iGetKau	 : GetKau;
  cplsch   : comp;
  sch, ss  : string;
  lastkau, lastbud, laststat, lastelem : comp;
  bud_form : string;
  comp_var, comp_var_filt : comp;
  kodkau   : word;
  title_form : string;
as select * from BUDRULES, SPKAU STATZATR, SPKAU ELZATR, SPKAU BUHCODE, SPKAU KODBUD
where ((
    bud_form           == BUDRULES.BUDFORM
and BUDRULES.STZATR    == STATZATR.NREC
and BUDRULES.ELEMZATR  == ELZATR.NREC
and BUDRULES.CKAU      == BUHCODE.NREC
and BUDRULES.KODBUDJET == KODBUD.NREC
))
condition byStBud = BUDRULES.KODBUDJET = comp_var_filt;

browse brSp table BUDRULES;
fields
  BUDRULES.SCHET 'Счет'                          : [10], pickButton;
  BUDRULES.SUBSCH 'Субсчет'                      : [10], pickButton;
  STATZATR.CODE 'Статья затрат'                  : [15], pickButton;
  ELZATR.CODE 'Элемент затрат'                   : [15], pickButton;
  BUHCODE.CODE 'Код БУ'                          : [15], pickButton;
  KODBUD.CODE 'Код бюджета'                      : [15], pickButton;
  BUDRULES.FILTSTAT 'Фильтр по статьям затрат'   : [15], noprotect;
  BUDRULES.FILTELEM 'Фильтр по элементам затрат' : [15], noprotect;
  BUDRULES.FILTKAU   'Фильтр по КАУ'             : [15], noprotect;
end; // browse

HandleEvent
  cmHotKeys:
  {
    case GetCurrentFormat of
      brSp:
      {
        PutHotCommand(RunMenu('MenuFaktBDR'));
      } 
    end;
  }
  cmInit:
  {
    bud_form := '6.3.1';
    cplsch := coGetTune('FIN.USER.CPLANSSCH');
    kodkau := '10078'
  }
  cmValue1:
  {
    iGetKau.GetCodeKau(cgiPick, kodkau, comp_var_filt);
    if comp_var_filt = 0 break;
    lastbud := comp_var_filt;
    if not ConditionActive(tcbyStBud)
			PushCondition(tcbyStBud);
		reReadRecord;
  }
  cmValue2:
  {
    if ConditionActive(tcbyStBud)
    	PopCondition(tcbyStBud);
    reReadRecord;
  }
end;  

end.

MenuFaktBDR menu
{
  -'Установить фильтр по статье бюджета',cmValue1,'Установить фильтр по статье бюджета';
  -'Снять фильтр',cmValue2,'Снять фильтр';
}

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

procedure PushConditionForLeave (iNum : integer; iLeaf : integer);

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

cmValue1:
  {
    iGetKau.GetCodeKau(cgiPick, kodkau, comp_var_filt);
    if comp_var_filt = 0 break;
    lastbud := comp_var_filt;
    if not ConditionActiveInLeave(tcbyStBud, tnBUDRULES)
    	PushConditionForLeave(tcbyStBud, tnBUDRULES);
    reReadRecord;
  }
  cmValue2:
  {
    if ConditionActiveInLeave(tcbyStBud, tnBUDRULES)
       PopConditionForLeave(tcbyStBud, tnBUDRULES);
    reReadRecord;
  }

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

Interface a_repMnPlan 'Отчёт ...' escclose,blue,AlwaysReturn;
  Show at (1,1,100,40);
Create View
Var
  dbeg, dend  : date;
As select * from mnplan
                ,spmnplan
                ,spmnpl
                ,valspmnp
                ,katusl
                ,dogovor
                ,katorg
                ,spkau
bounds byBn as
              spmnplan.cmnplan /== mnplan.nrec
          and spmnpl.cspmnplan  == spmnplan.nrec
          and valspmnp.cspmnpl  == spmnpl.nrec
          and spmnplan.cizd     == katusl.nrec
          and mnplan.canval4    == dogovor.nrec
          and mnplan.canval5    == katorg.nrec
          and spmnplan.canval1 /== spkau.nrec
condition byCn = dbeg <= mnplan.STATEMDATE and dend >= mnplan.STATEMDATE and mnplan.CWAYACCOU = 281474976710894
condition byUs = substr(katusl.kod, 1, 3) != '120'
condition byTp = spmnplan.typeizd = 2
;

Screen scMain_
  show at (, , , 5);
  fields
    dbeg: noProtect;
    dend: noProtect;
  Buttons
   cmSetBound,,,;
   cmPrintDoc,,,;
<<
     Период с: .@@@@@@@@@@ по .@@@@@@@@@@
  <. Установить период .>

  <. Печать отчёта в Excel .>
>>
end;
Panel Panel_;
  Table mnplan
  browse bmnpl
  show at (,6 , , )
  fields
     mnplan.statemdate 'Дата'   : [8], protect;
     mnplan.name  'Наименование'    : [12], protect;
     mnplan.cwayaccou 'Nrec шаблона'    : [10], protect;
     katusl.name 'Услуга ' : [20], protect;
  end;
end;

HandleEvent
cmSetBound:
{
  pushBounds(tbbyBn);                               //
  if not ConditionActiveInLeave(tcbyCn, tnMnplan)
       PushConditionForLeave(tcbyCn, tnMnplan);     //....это условие приводит к потере позиции
  reReadRecord;
  Message('Наложено ConditionForLeave(tcbyCn, tnMnplan), getFirst mnplan = '+modifier getFirst mnplan);
  if (modifier getFirst mnplan) = tsOk
    {
     Message('Период установлен, mnplan.statemdate = '+string(mnplan.statemdate)+'; mnplan.name = '+mnplan.name+'; mnplan.CWAYACCOU = '+mnplan.CWAYACCOU);
     RescanPanel(#mnplan);
    }
  else Message('Нет позиции mnplan..');
}
cmPrintDoc:
{
 var i, iLine : word;
 var xlREs : boolean;
 if (not xlOpenExcel(True))
  Message('Не открылся Excel.')
 else
  if (not xlIsExcelValid)
   Message('Не инициализирован Excel.')
  else
   if (not xlSetActiveWorkBookByName('c:\exampl.xlt') )
    if (not xlOpenWorkBook('c:\exampl.xlt'))
     Message('Не открылась книга Excel '+'c:\exampl.xlt')
    else
     if (not xlGetActiveWorkBookName('c:\exampl.xlt'))
        Message('Не активна книга Excel '+'c:\exampl.xlt')
     else
       {
!===========Все проверили и все Ok -> начинаем выгрузку========
          xlSetCellStringValue('Заказ'       ,1, 1, 1, 1);
          xlSetCellStringValue('Контрагент'  ,1, 2, 1, 2);
....