-- Шаблон создан мастером бланков
-- 19.07.2001 11:24:11
--
БланкСШаблоном "Последний лист кассовой книги";
Д:S;
Г:S;
ДКод:D;
Учрежд:S;
ОКПО:S;
НЛист:I;
ФИОБух:S;
ФИОРук:S;
ДДок:D;
НЛистПро:S=Lo(Сло_(НЛист,"ДокН"));
SelfCrd:S="РПО_ОТЧКАС";

Proc btnЗакрыть_onClick (Obj:S);
 Close;
end;

Proc Шаблон_Open (L: L);
 НЛист=Раб.Обл.СледСУчетомГода(SelfCrd,"НОМЕРЛИСТА","Дата")-1;
 if Раб.Настр_Печать.ExistCfg("Rpo_0504514_000.cfg")=False: Раб.Настр_Печать.CreateCfg("","Rpo_0504514_000.cfg"); fi;
end;

Proc btnПечать_onClick (Obj:S);
 Раб.Настр_Печать.Prn("","","RPO_0504514_000.cfg","",1);
end;

Func Учрежд_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var Rec: Record;
 Template.HideEditor(False);
 Rec=OpenCardFile("Контрагент","Наше",nil,crdRecordOnly);
 if rec=nil: ^Cur; fi;
 Учрежд=GetCardFieldS("Контрагент",Rec,"КорИмя");
 ОКПО=GetCardFieldS("Контрагент",Rec,"ОКПО");
 ФИОРук=GetCardFieldS("Контрагент",Rec,"ФИОРук");
 ФИОБух=GetCardFieldS("Контрагент",Rec,"ФИОБух");
 ^Учрежд;
end;

Func ДКод_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var tmp:d;
 Template.HideEditor(False);
 tmp=Calendar;
 if tmp=1.1.100: ^Cur; fi;
 ДКод=tmp;
 ^Cur;
end;

Func ДДок_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var tmp:d;
 Template.HideEditor(False);
 tmp=Calendar;
 if tmp=1.1.100: ^Cur; fi;
 ДДок=tmp;
 ^Cur;
end;


Func НЛист_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
 Template.HideEditor(False);
 НЛист=Раб.Обл.СледСУчетомГода(SelfCrd,"НОМЕРЛИСТА","Дата")-1;
 ^Cur;
end;


Конец
