-- Шаблон создан мастером бланков
-- 04.12.2003 13:57:21
--
БланкСШаблоном "Письмо. Реестр неподтвержденных извещений.";

Упр:Handle;

var Prn:L;

var ОтКого:S;
var ДолжнБух:S;
var ФИОБух:S;
var Кому:S;
var Адрес:S;
var Дата:D;
var YYYY=Year(Дата);
var Срок:D;
var МаскаБК:S;

var пп[]:i=$;
var НомИзв[]:S;
var ДатаИзв[]:D;
var СумИзв[]:N;
var ИтогоСумИзв:N=SumOfArray(СумИзв,Упр);
var St1:S="	"+ОтКого+" , уведомляет Вас о том, что по состоянию на "+DateToString(Дата)+" Вами не подтверждены извещения по Ф.0504805 (см. приложение)";
var St2:S="	 Во избежание расхождений при составлении сводного реестра за "+Str(YYYY)+" г. между отгруженным имуществом и фактически оприходованным, просим Вас в срок  до "+DateToString(Срок)+" подтвердить извещения направленные в Ваш адрес.";

Timer1: Object;
picШтамп: Object;

var Штамп:S;
var ШтампПечать: L;
var Штамп_X:I;
var Штамп_Y:I;
var Штамп_W:I;
var Штамп_H:I;
var ШтампАвтоРазмер:L;

Proc Оформление;
 if ШтампПечать: picШтамп.LoadPicture(Штамп); fi;
 picШтамп.Visible=ШтампПечать;
 picШтамп.CanPrint=ШтампПечать;
 picШтамп.Left=Штамп_X;
 picШтамп.Top=Штамп_Y;
 picШтамп.Width=Штамп_W;
 picШтамп.Height=Штамп_H;
 picШтамп.AutoSize=ШтампАвтоРазмер;
end;

Proc Clear;
 ClearVariable(Раб.вспом.изв_исх_неподтв_письмо.Упр);
 ClearVariable(Раб.вспом.изв_исх_неподтв_письмо.НомИзв);
 ClearVariable(Раб.вспом.изв_исх_неподтв_письмо.ДатаИзв);
 ClearVariable(Раб.вспом.изв_исх_неподтв_письмо.СумИзв);
end;

Proc btnПечать_onClick (Obj:S);
 Раб.Настр_Печать.Prn("","","Rpo_Изв_Исх_Неподтв_Письмо_000.cfg","",1);
end;


Proc OnTimer(Sender: String);
 Timer1.Active=False;
 Раб.Настр_Печать.Prn("","","Rpo_Изв_Исх_Неподтв_Письмо_000.cfg","",1);
 Close;
end;


Proc Template_onOpen (Create:L);
 Раб.Настр_Печать.Cfg("","Rpo_Изв_Исх_Неподтв_Письмо_000.cfg");
end;

Proc AfterOpen(Destroy: Logical);
 Оформление;
 if Prn=True:
    Prn=False;
    Timer1.Active=True;
 fi;
end;


Конец
