БланкСШаблоном "Основание", Редактор РПО_ОСНОВАНИЕ2;

var Owner_:S;
var Код_:S;

Func Выполнить(Sender:S):S;
var Rec: Record;
 Owner_=Sender;
 Код_="";
 Rec=OpenCardFile("РПО_ОСНОВАНИЕ2","Owner='"+Sender+"'");
 if Rec=nil: ^""; fi;
 ^GetCardFieldS("РПО_ОСНОВАНИЕ2",Rec,"Осн");
end;

Func Выполнить2(Sender:S; Code:S):S;
var Rec: Record;
 Owner_=Sender;
 Код_=Code;
 Rec=OpenCardFile("РПО_ОСНОВАНИЕ2","Owner='"+Sender+"'"+if(Code="",""," and КОД='"+Code+"'"));
 if Rec=nil: ^""; fi;
 ^GetCardFieldS("РПО_ОСНОВАНИЕ2",Rec,"Осн");
end;

Func ЕстьЗаписи(Sender:S; Code:S):I;
var OWA:I;
 OWA=OpenWorkArea("РПО_ОСНОВАНИЕ2","","Owner='"+Sender+"'"+if(Code="",""," and КОД='"+Code+"'"));
 Try
  ^Records(OWA);
 Finally
  CloseWorkArea(OWA);
 end;
end;

Proc OnRead;
 if CurrentState=crdusInserted: 
    Owner=Owner_;
    Код=Код_;
 fi;
end;


Конец
