БланкСШаблоном "Информация о внутриведомственной реорганизации";

РПО_РБС_КОД_РЕОРГ  :STRING; --код распорядителя средств в ведении которого находиться получатель, участвующего в реорганизации
РПО_РБС_ИМЯ_РЕОРГ1 :STRING; --полное наименование распорядителя в непосредственном ведении которого находиться получатель по реорганизации (начало)
РПО_РБС_ИМЯ_РЕОРГ2 :STRING; --полное наименование распорядителя в непосредственном ведении которого находиться получатель по реорганизации (продолжение)
РПО_ПБС_КОД_РЕОРГ  :STRING; --код получателя средств по реорганизации
РПО_ПБС_ИМЯ_РЕОРГ1 :STRING; --полное наименование получателя средств по реорганизации (начало)
РПО_ПБС_ИМЯ_РЕОРГ2 :STRING; --полное наименование получателя средств по реорганизации (продолжение)
РПО_ТОФК_КОД_РБС   :STRING; --код ТОФК, в котором обслуживается распорядитель

var tplField:S;
var tplFrame:I;
var Run:L;

Func РБС_ИМЯ_РЕОРГ2_OnEnter(FieldName: String; Iter: Integer): logical;
 if РПО_РБС_ИМЯ_РЕОРГ1="": Template.Field="РПО_РБС_ИМЯ_РЕОРГ1"; ^False; fi;
 ^True;
end;

Func ПБС_ИМЯ_РЕОРГ2_OnEnter(FieldName: String; Iter: Integer): logical;
 if РПО_ПБС_ИМЯ_РЕОРГ1="": Template.Field="РПО_ПБС_ИМЯ_РЕОРГ1"; ^False; fi;
 ^True;
end;


Proc btnЗакрыть_OnClick(Sender: String);
 Close;
end;

Proc AfterOpen(Destroy: Logical);
 if Run:
    Run=False;
    Template.Field=tplField; 
    if tplFrame>0: Template.Frame=tplFrame; fi;
 fi;
end;



Конец