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

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

interface REESTR_PAR 'Параметры выгрузки зарплатного реестра' doAccept
show at (,,62,7);
var
path,nodog,schet:string;
dateChanged:boolean;
_cschet:comp;
parameters path,nodog,schet

create view as select * from katbank where ((_cschet==katbank.nrec));

Screen main;
 fields
path: protect,pickButton;
nodog:noprotect;
katbank.schet1: protect,pickButton;
 buttons
  cmOk, default;
  cmCancel;
<<'Ввод параметров'

   Путь к файлу: .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Номер договора: .@@@@@@@@@@@@@@@@@@@@@@@@
 Расчетный счет: .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

              <.  ОK  .>         <.Отмена.>

>>
end;
HandleEvent
  cmInit:
    {
     ReadMyDsk(Path,'zp_path',dateChanged);
     ReadMyDsk(nodog,'zp_nodog',dateChanged);
     ReadMyDsk(_cschet,'zp_cschet',dateChanged);
    }
  cmPick :
    {
      case CurField of
        #path     :
        {
         path:=GetDirName('Путь к файлу...')+'\'+'*.xml';
        }
        #katbank.schet1:
        {
         runinterface(L_KATORG::GETBANK,cogettune('MyOrg'),_cschet);
         schet:=katbank.schet1;
        }
      end;
      PutCommand(cmRefreshBDdata)
    }
  cmCancel:
    {
     closeinterface(cmCancel);
    }
  cmOk:
    {
     SaveMyDsk(path,'zp_path');
     SaveMyDsk(nodog,'zp_nodog');
     SaveMyDsk(_cschet,'zp_cschet');
     schet:=katbank.schet1;
     closeinterface(cmDefault);
    }
  cmDelOnProtect:
    {

    }
end;
end.                                        

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

 Runinterface(C_PARTNER::REESTR_PAR, path,nodog,schet);
 message(schet) 

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

interface DialogTest 'Dialog Test';
show at (0,3,45,8);

create view
var
 MCNrec    : comp;
 MCName    : string;
 PackPrice : double;
as select
 KatMC.Name
from
 KatMC
where
 (( MCNrec == KatMC.Nrec ));
Parameters
  PackPrice
, MCNrec
;
screen scrMain;
  noTableNavigation;
fields
  PackPrice ('Стоимость тары'):[18, '\2p[|-]3666`666`666`666`666`666.88'], noprotect;
  MCName     : Protect, PickButton;
buttons
  cmOk     ,default,,'Сформировать отчет', hcOplTrudhlp, sci1Esc;
  cmCancel ,,,'Отмена', hcOplTrudhlp, sci1Esc;
<<

`Стоимость Тары:`.@@@@@@@@@@@@@@@@@@@@
 Выберите МЦ:    .@@@@@@@@@@@@@@@@@@@@

<.Сформировать отчет.>   <.Отмена.>

>>
end; // screen
HandleEvent
cmPick:
{
  case CurField of
  #MCName:
  {
    if (RunInterface('L_MCU::GETMC', MCNrec) = cmDefault)
    {
      set MCNrec := MCNrec;
      set MCName := KatMC.Name;
    }
  }
  end; // case
}
end; //HandleEvent Interface
end.

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

interface DialogTest 'Окно ввода данных';
show at (0,3,45,8);

create view
var
_Vnrec:Comp;
_Vtara:Double;
MCNrec    : comp;
MCName    : string;
PackPrice : double;
as select
KatMC.Name
from
KatMC
where
(( MCNrec == KatMC.Nrec ));
Parameters
  PackPrice
, MCNrec
;
screen scrMain;
  noTableNavigation;
fields
  PackPrice ('Стоимость тары'):[18, '\2p[|-]3666`666`666`666`666`666.88'], noprotect;
  MCName     : Protect, PickButton;
buttons
  cmOk     ,default;
  cmCancel ,,,'Отмена', hcOplTrudhlp, sci1Esc;
<<

`Стоимость Тары:`.@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 Выберите МЦ:    .@@@@@@@@@@@@@@@@@@@@@@@@@@@@

<.  OK  .>   <.Отмена.>

>>
end; // screen
HandleEvent
cmPick:
{
  case CurField of
  #MCName:
  {
    if (RunInterface('L_MCU::GETMC', MCNrec) = cmDefault)
    {
      set MCNrec := MCNrec;
      set MCName := KatMC.Name;
    }
  }
  end; // case
}

cmOk:
{
_Vnrec := MCNrec;
_Vtara := PackPrice;
closeinterface(cmDefault);
}
end; //HandleEvent Interface
end.

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

.begin
RunInterface(TehOtdel2019::DialogTest, _Vtara, Double_mc)
end.