БланкСШаблоном [20.04.2006] "ф.0503230 Разделительный (ликвидационный) баланс главного распорядителя (распорядителя), получателя средств бюджета";

-- Зона авто-идентификации отчета
Ф_ОКУД: STRING = '0503230';
Ф_ИНСТР_КОД: STRING = '191н';
Ф_РЕД_КОД: STRING = '138н';
Ф_ДЕЙСТВ_С: DATE = 01.01.2014;
Ф_ДЕЙСТВ_ПО: DATE = 01.01.2014;
-- конец зоны авто-идентификации отчета

var ДН:D=РАБ.ПАРАМ_ОТЧ.ДН;
var ДК:D=РАБ.ПАРАМ_ОТЧ.ДК;

Учреждение:S;
ОКПО:S;

ВидБаланса:S;
НаимБюдж:S;
ОКТМО:S;
ГлаваБК:S;

ФИОРук:S;
ФИОБух:S;

var Стр_Ит[]:S;
var МасМ[]: S;
var УслВал:S=РАБ.ПАРАМ_ОТЧ.УслВал;
var Вал :S=РАБ.ПАРАМ_ОТЧ.Вал;
var Вал_:S=Вал;
var Показатель:S=РАБ.ПАРАМ_ОТЧ.Показатель;

ЕдИзм:I=РАБ.ПАРАМ_ОТЧ.ЕдИзм;
var ЕдИзм_:S=if(ЕдИзм=1,Показатель,if(ЕдИзм=1000,"Тыс. "+Показатель,Str(ЕдИзм)+" "+Показатель));
var ОКЕИ:S=РАБ.ПАРАМ_ОТЧ.ОКЕИ;

var Точн:I=РАБ.ПАРАМ_ОТЧ.Точн;

var ОбщУслАн:S=РАБ.ПАРАМ_ОТЧ.ОбщУслАн;
var ОбщУслКД:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКД;
var ОбщУслКР:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКР;
var ОбщУслКИФД:S=РАБ.ПАРАМ_ОТЧ.ОбщУслКИФД;
var ОбщУслБС:S=РАБ.ПАРАМ_ОТЧ.ОбщУслБС;
var ОбщУслВБС:S=РАБ.ПАРАМ_ОТЧ.ОбщУслВБС;
var ОбщУслСВР:S=РАБ.ПАРАМ_ОТЧ.ОбщУслСВР;

var ОбщУслСч:S;

RГ3С011; RГ5С011; var RГ6С011=RГ3С011+RГ5С011; RГ7С011; RГ9С011; var RГ10С011=RГ7С011+RГ9С011;
RГ3С013; RГ5С013; var RГ6С013=RГ3С013+RГ5С013; RГ7С013; RГ9С013; var RГ10С013=RГ7С013+RГ9С013;
RГ3С014; RГ5С014; var RГ6С014=RГ3С014+RГ5С014; RГ7С014; RГ9С014; var RГ10С014=RГ7С014+RГ9С014;
RГ3С021; RГ5С021; var RГ6С021=RГ3С021+RГ5С021; RГ7С021; RГ9С021; var RГ10С021=RГ7С021+RГ9С021;
RГ3С023; RГ5С023; var RГ6С023=RГ3С023+RГ5С023; RГ7С023; RГ9С023; var RГ10С023=RГ7С023+RГ9С023;
RГ3С024; RГ5С024; var RГ6С024=RГ3С024+RГ5С024; RГ7С024; RГ9С024; var RГ10С024=RГ7С024+RГ9С024;
RГ3С042; RГ5С042; var RГ6С042=RГ3С042+RГ5С042; RГ7С042; RГ9С042; var RГ10С042=RГ7С042+RГ9С042;
RГ3С043; RГ5С043; var RГ6С043=RГ3С043+RГ5С043; RГ7С043; RГ9С043; var RГ10С043=RГ7С043+RГ9С043;
RГ3С052; RГ5С052; var RГ6С052=RГ3С052+RГ5С052; RГ7С052; RГ9С052; var RГ10С052=RГ7С052+RГ9С052;
RГ3С053; RГ5С053; var RГ6С053=RГ3С053+RГ5С053; RГ7С053; RГ9С053; var RГ10С053=RГ7С053+RГ9С053;
RГ3С070; RГ5С070; var RГ6С070=RГ3С070+RГ5С070; RГ7С070; RГ9С070; var RГ10С070=RГ7С070+RГ9С070;
RГ3С080; RГ5С080; var RГ6С080=RГ3С080+RГ5С080; RГ7С080; RГ9С080; var RГ10С080=RГ7С080+RГ9С080;
RГ3С091; RГ5С091; var RГ6С091=RГ3С091+RГ5С091; RГ7С091; RГ9С091; var RГ10С091=RГ7С091+RГ9С091;
RГ3С093; RГ5С093; var RГ6С093=RГ3С093+RГ5С093; RГ7С093; RГ9С093; var RГ10С093=RГ7С093+RГ9С093;
RГ3С094; RГ5С094; var RГ6С094=RГ3С094+RГ5С094; RГ7С094; RГ9С094; var RГ10С094=RГ7С094+RГ9С094;
RГ3С101; RГ5С101; var RГ6С101=RГ3С101+RГ5С101; RГ7С101; RГ9С101; var RГ10С101=RГ7С101+RГ9С101;
RГ3С103; RГ5С103; var RГ6С103=RГ3С103+RГ5С103; RГ7С103; RГ9С103; var RГ10С103=RГ7С103+RГ9С103;
RГ3С104; RГ5С104; var RГ6С104=RГ3С104+RГ5С104; RГ7С104; RГ9С104; var RГ10С104=RГ7С104+RГ9С104;
RГ3С110; RГ5С110; var RГ6С110=RГ3С110+RГ5С110; RГ7С110; RГ9С110; var RГ10С110=RГ7С110+RГ9С110;
RГ3С120; RГ5С120; var RГ6С120=RГ3С120+RГ5С120; RГ7С120; RГ9С120; var RГ10С120=RГ7С120+RГ9С120;
RГ3С140; RГ5С140; var RГ6С140=RГ3С140+RГ5С140; RГ7С140; RГ9С140; var RГ10С140=RГ7С140+RГ9С140;
RГ3С171; RГ5С171; var RГ6С171=RГ3С171+RГ5С171; RГ7С171; RГ9С171; var RГ10С171=RГ7С171+RГ9С171;
RГ3С172; RГ5С172; var RГ6С172=RГ3С172+RГ5С172; RГ7С172; RГ9С172; var RГ10С172=RГ7С172+RГ9С172;
RГ3С173; RГ5С173; var RГ6С173=RГ3С173+RГ5С173; RГ7С173; RГ9С173; var RГ10С173=RГ7С173+RГ9С173;
RГ3С174; RГ5С174; var RГ6С174=RГ3С174+RГ5С174; RГ7С174; RГ9С174; var RГ10С174=RГ7С174+RГ9С174;
RГ3С175; RГ5С175; var RГ6С175=RГ3С175+RГ5С175; RГ7С175; RГ9С175; var RГ10С175=RГ7С175+RГ9С175;
RГ3С176; RГ5С176; var RГ6С176=RГ3С176+RГ5С176; RГ7С176; RГ9С176; var RГ10С176=RГ7С176+RГ9С176;
RГ3С177; RГ5С177; var RГ6С177=RГ3С177+RГ5С177; RГ7С177; RГ9С177; var RГ10С177=RГ7С177+RГ9С177;
RГ3С178; RГ5С178; var RГ6С178=RГ3С178+RГ5С178; RГ7С178; RГ9С178; var RГ10С178=RГ7С178+RГ9С178;
RГ3С179; RГ5С179; var RГ6С179=RГ3С179+RГ5С179; RГ7С179; RГ9С179; var RГ10С179=RГ7С179+RГ9С179;
RГ3С211; RГ5С211; var RГ6С211=RГ3С211+RГ5С211; RГ7С211; RГ9С211; var RГ10С211=RГ7С211+RГ9С211;
RГ3С212; RГ5С212; var RГ6С212=RГ3С212+RГ5С212; RГ7С212; RГ9С212; var RГ10С212=RГ7С212+RГ9С212;
RГ3С213; RГ5С213; var RГ6С213=RГ3С213+RГ5С213; RГ7С213; RГ9С213; var RГ10С213=RГ7С213+RГ9С213;
RГ3С230; RГ5С230; var RГ6С230=RГ3С230+RГ5С230; RГ7С230; RГ9С230; var RГ10С230=RГ7С230+RГ9С230;
RГ3С260; RГ5С260; var RГ6С260=RГ3С260+RГ5С260; RГ7С260; RГ9С260; var RГ10С260=RГ7С260+RГ9С260;
RГ3С291; RГ5С291; var RГ6С291=RГ3С291+RГ5С291; RГ7С291; RГ9С291; var RГ10С291=RГ7С291+RГ9С291;
RГ3С292; RГ5С292; var RГ6С292=RГ3С292+RГ5С292; RГ7С292; RГ9С292; var RГ10С292=RГ7С292+RГ9С292;
RГ3С293; RГ5С293; var RГ6С293=RГ3С293+RГ5С293; RГ7С293; RГ9С293; var RГ10С293=RГ7С293+RГ9С293;
RГ3С310; RГ5С310; var RГ6С310=RГ3С310+RГ5С310; RГ7С310; RГ9С310; var RГ10С310=RГ7С310+RГ9С310;
RГ3С320; RГ5С320; var RГ6С320=RГ3С320+RГ5С320; RГ7С320; RГ9С320; var RГ10С320=RГ7С320+RГ9С320;
RГ3С331; RГ5С331; var RГ6С331=RГ3С331+RГ5С331; RГ7С331; RГ9С331; var RГ10С331=RГ7С331+RГ9С331;
RГ3С332; RГ5С332; var RГ6С332=RГ3С332+RГ5С332; RГ7С332; RГ9С332; var RГ10С332=RГ7С332+RГ9С332;
RГ3С333; RГ5С333; var RГ6С333=RГ3С333+RГ5С333; RГ7С333; RГ9С333; var RГ10С333=RГ7С333+RГ9С333;
RГ3С334; RГ5С334; var RГ6С334=RГ3С334+RГ5С334; RГ7С334; RГ9С334; var RГ10С334=RГ7С334+RГ9С334;
RГ3С335; RГ5С335; var RГ6С335=RГ3С335+RГ5С335; RГ7С335; RГ9С335; var RГ10С335=RГ7С335+RГ9С335;
RГ3С371; RГ5С371; var RГ6С371=RГ3С371+RГ5С371; RГ7С371; RГ9С371; var RГ10С371=RГ7С371+RГ9С371;
RГ3С372; RГ5С372; var RГ6С372=RГ3С372+RГ5С372; RГ7С372; RГ9С372; var RГ10С372=RГ7С372+RГ9С372;
RГ3С373; RГ5С373; var RГ6С373=RГ3С373+RГ5С373; RГ7С373; RГ9С373; var RГ10С373=RГ7С373+RГ9С373;
RГ3С471; RГ5С471; var RГ6С471=RГ3С471+RГ5С471; RГ7С471; RГ9С471; var RГ10С471=RГ7С471+RГ9С471;
RГ3С472; RГ5С472; var RГ6С472=RГ3С472+RГ5С472; RГ7С472; RГ9С472; var RГ10С472=RГ7С472+RГ9С472;
RГ3С473; RГ5С473; var RГ6С473=RГ3С473+RГ5С473; RГ7С473; RГ9С473; var RГ10С473=RГ7С473+RГ9С473;
RГ3С474; RГ5С474; var RГ6С474=RГ3С474+RГ5С474; RГ7С474; RГ9С474; var RГ10С474=RГ7С474+RГ9С474;
RГ3С490; RГ5С490; var RГ6С490=RГ3С490+RГ5С490; RГ7С490; RГ9С490; var RГ10С490=RГ7С490+RГ9С490;
RГ3С511; RГ5С511; var RГ6С511=RГ3С511+RГ5С511; RГ7С511; RГ9С511; var RГ10С511=RГ7С511+RГ9С511;
RГ3С512; RГ5С512; var RГ6С512=RГ3С512+RГ5С512; RГ7С512; RГ9С512; var RГ10С512=RГ7С512+RГ9С512;
RГ3С513; RГ5С513; var RГ6С513=RГ3С513+RГ5С513; RГ7С513; RГ9С513; var RГ10С513=RГ7С513+RГ9С513;
RГ3С514; RГ5С514; var RГ6С514=RГ3С514+RГ5С514; RГ7С514; RГ9С514; var RГ10С514=RГ7С514+RГ9С514;
RГ3С515; RГ5С515; var RГ6С515=RГ3С515+RГ5С515; RГ7С515; RГ9С515; var RГ10С515=RГ7С515+RГ9С515;
RГ3С516; RГ5С516; var RГ6С516=RГ3С516+RГ5С516; RГ7С516; RГ9С516; var RГ10С516=RГ7С516+RГ9С516;

RГ3С517; RГ5С517; var RГ6С517=RГ3С517+RГ5С517; RГ7С517; RГ9С517; var RГ10С517=RГ7С517+RГ9С517;
RГ3С518; RГ5С518; var RГ6С518=RГ3С518+RГ5С518; RГ7С518; RГ9С518; var RГ10С518=RГ7С518+RГ9С518;
RГ3С519; RГ5С519; var RГ6С519=RГ3С519+RГ5С519; RГ7С519; RГ9С519; var RГ10С519=RГ7С519+RГ9С519;
RГ3С520; RГ5С520; var RГ6С520=RГ3С520+RГ5С520; RГ7С520; RГ9С520; var RГ10С520=RГ7С520+RГ9С520;
RГ3С521; RГ5С521; var RГ6С521=RГ3С521+RГ5С521; RГ7С521; RГ9С521; var RГ10С521=RГ7С521+RГ9С521;
RГ3С522; RГ5С522; var RГ6С522=RГ3С522+RГ5С522; RГ7С522; RГ9С522; var RГ10С522=RГ7С522+RГ9С522;
RГ3С523; RГ5С523; var RГ6С523=RГ3С523+RГ5С523; RГ7С523; RГ9С523; var RГ10С523=RГ7С523+RГ9С523;
RГ3С524; RГ5С524; var RГ6С524=RГ3С524+RГ5С524; RГ7С524; RГ9С524; var RГ10С524=RГ7С524+RГ9С524;
RГ3С525; RГ5С525; var RГ6С525=RГ3С525+RГ5С525; RГ7С525; RГ9С525; var RГ10С525=RГ7С525+RГ9С525;
RГ3С526; RГ5С526; var RГ6С526=RГ3С526+RГ5С526; RГ7С526; RГ9С526; var RГ10С526=RГ7С526+RГ9С526;

RГ3С531; RГ5С531; var RГ6С531=RГ3С531+RГ5С531; RГ7С531; RГ9С531; var RГ10С531=RГ7С531+RГ9С531;
RГ3С532; RГ5С532; var RГ6С532=RГ3С532+RГ5С532; RГ7С532; RГ9С532; var RГ10С532=RГ7С532+RГ9С532;
RГ3С533; RГ5С533; var RГ6С533=RГ3С533+RГ5С533; RГ7С533; RГ9С533; var RГ10С533=RГ7С533+RГ9С533;
RГ3С534; RГ5С534; var RГ6С534=RГ3С534+RГ5С534; RГ7С534; RГ9С534; var RГ10С534=RГ7С534+RГ9С534;
RГ3С535; RГ5С535; var RГ6С535=RГ3С535+RГ5С535; RГ7С535; RГ9С535; var RГ10С535=RГ7С535+RГ9С535;
RГ3С536; RГ5С536; var RГ6С536=RГ3С536+RГ5С536; RГ7С536; RГ9С536; var RГ10С536=RГ7С536+RГ9С536;
RГ3С621; RГ5С621; var RГ6С621=RГ3С621+RГ5С621; RГ7С621; RГ9С621; var RГ10С621=RГ7С621+RГ9С621;
RГ3С622; RГ5С622; var RГ6С622=RГ3С622+RГ5С622; RГ7С622; RГ9С622; var RГ10С622=RГ7С622+RГ9С622;
RГ3С623; RГ5С623; var RГ6С623=RГ3С623+RГ5С623; RГ7С623; RГ9С623; var RГ10С623=RГ7С623+RГ9С623;
RГ3С624; RГ5С624; var RГ6С624=RГ3С624+RГ5С624; RГ7С624; RГ9С624; var RГ10С624=RГ7С624+RГ9С624;
RГ3С625; RГ5С625; var RГ6С625=RГ3С625+RГ5С625; RГ7С625; RГ9С625; var RГ10С625=RГ7С625+RГ9С625;
RГ3С800; RГ5С800; var RГ6С800=RГ3С800+RГ5С800; RГ7С800; RГ9С800; var RГ10С800=RГ7С800+RГ9С800;
 var selfКБП:String;
var RГ3С010=RГ3С011+RГ3С013+RГ3С014;var RГ5С010=RГ5С011+RГ5С013+RГ5С014; var RГ6С010=RГ3С010+RГ5С010;
var RГ7С010=RГ7С011+RГ7С013+RГ7С014;var RГ9С010=RГ9С011+RГ9С013+RГ9С014; var RГ10С010=RГ7С010+RГ9С010;

var RГ3С020=RГ3С021+RГ3С023+RГ3С024;var RГ5С020=RГ5С021+RГ5С023+RГ5С024; var RГ6С020=RГ3С020+RГ5С020;
var RГ7С020=RГ7С021+RГ7С023+RГ7С024;var RГ9С020=RГ9С021+RГ9С023+RГ9С024; var RГ10С020=RГ7С020+RГ9С020;

var RГ3С030=RГ3С010-RГ3С020; var RГ5С030=RГ5С010-RГ5С020; var RГ6С030=RГ3С030+RГ5С030;
var RГ7С030=RГ7С010-RГ7С020; var RГ9С030=RГ9С010-RГ9С020; var RГ10С030=RГ7С030+RГ9С030;

var RГ3С031=RГ3С011-RГ3С021; var RГ5С031=RГ5С011-RГ5С021; var RГ6С031=RГ3С031+RГ5С031;
var RГ7С031=RГ7С011-RГ7С021; var RГ9С031=RГ9С011-RГ9С021; var RГ10С031=RГ7С031+RГ9С031;

var RГ3С033=RГ3С013-RГ3С023; var RГ5С033=RГ5С013-RГ5С023; var RГ6С033=RГ3С033+RГ5С033;
var RГ7С033=RГ7С013-RГ7С023; var RГ9С033=RГ9С013-RГ9С023; var RГ10С033=RГ7С033+RГ9С033;

var RГ3С034=RГ3С014-RГ3С024; var RГ5С034=RГ5С014-RГ5С024; var RГ6С034=RГ3С034+RГ5С034;
var RГ7С034=RГ7С014-RГ7С024; var RГ9С034=RГ9С014-RГ9С024; var RГ10С034=RГ7С034+RГ9С034;

var RГ3С040=RГ3С042+RГ3С043; var RГ5С040=RГ5С042+RГ5С043; var RГ6С040=RГ3С040+RГ5С040;
var RГ7С040=RГ7С042+RГ7С043; var RГ9С040=RГ9С042+RГ9С043; var RГ10С040=RГ7С040+RГ9С040;

var RГ3С050=RГ3С052+RГ3С053; var RГ5С050=RГ5С052+RГ5С053; var RГ6С050=RГ3С050+RГ5С050;
var RГ7С050=RГ7С052+RГ7С053; var RГ9С050=RГ9С052+RГ9С053; var RГ10С050=RГ7С050+RГ9С050;

var RГ3С060=RГ3С040-RГ3С050; var RГ5С060=RГ5С040-RГ5С050; var RГ6С060=RГ3С060+RГ5С060;
var RГ7С060=RГ7С040-RГ7С050; var RГ9С060=RГ9С040-RГ9С050; var RГ10С060=RГ7С060+RГ9С060;

var RГ3С062=RГ3С042-RГ3С052; var RГ5С062=RГ5С042-RГ5С052; var RГ6С062=RГ3С062+RГ5С062;
var RГ7С062=RГ7С042-RГ7С052; var RГ9С062=RГ9С042-RГ9С052; var RГ10С062=RГ7С062+RГ9С062;

var RГ3С063=RГ3С043-RГ3С053; var RГ5С063=RГ5С043-RГ5С053; var RГ6С063=RГ3С063+RГ5С063;
var RГ7С063=RГ7С043-RГ7С053; var RГ9С063=RГ9С043-RГ9С053; var RГ10С063=RГ7С063+RГ9С063;

var RГ3С090=RГ3С091+RГ3С093+RГ3С094; var RГ5С090=RГ5С091+RГ5С093+RГ5С094; var RГ6С090=RГ3С090+RГ5С090;
var RГ7С090=RГ7С091+RГ7С093+RГ7С094; var RГ9С090=RГ9С091+RГ9С093+RГ9С094; var RГ10С090=RГ7С090+RГ9С090;

var RГ3С100=RГ3С101+RГ3С103+RГ3С104; var RГ5С100=RГ5С101+RГ5С103+RГ5С104; var RГ6С100 =RГ3С100+RГ5С100;
var RГ7С100=RГ7С101+RГ7С103+RГ7С104; var RГ9С100=RГ9С101+RГ9С103+RГ9С104; var RГ10С100=RГ7С100+RГ9С100;

var RГ3С130=RГ3С110-RГ3С120; var RГ5С130=RГ5С110-RГ5С120; var RГ6С130=RГ3С130+RГ5С130;
var RГ7С130=RГ7С110-RГ7С120; var RГ9С130=RГ9С110-RГ9С120; var RГ10С130=RГ7С130+RГ9С130;

var RГ3С150=RГ3С030+RГ3С060+RГ3С070+RГ3С080+RГ3С090+RГ3С100+RГ3С130+RГ3С140; var RГ5С150=RГ5С030+RГ5С060+RГ5С070+RГ5С080+RГ5С090+RГ5С100+RГ5С130+RГ5С140; var RГ6С150=RГ3С150+RГ5С150;
var RГ7С150=RГ7С030+RГ7С060+RГ7С070+RГ7С080+RГ7С090+RГ7С100+RГ7С130+RГ7С140; var RГ9С150=RГ9С030+RГ9С060+RГ9С070+RГ9С080+RГ9С090+RГ9С100+RГ9С130+RГ9С140; var RГ10С150=RГ7С150+RГ9С150;

var RГ3С170=RГ3С171+RГ3С172+RГ3С173+RГ3С174+RГ3С175+RГ3С176+RГ3С177+RГ3С178+RГ3С179; var RГ5С170=RГ5С171+RГ5С172+RГ5С173+RГ5С174+RГ5С175+RГ5С176+RГ5С177+RГ5С178+RГ5С179; var RГ6С170=RГ3С170+RГ5С170;
var RГ7С170=RГ7С171+RГ7С172+RГ7С173+RГ7С174+RГ7С175+RГ7С176+RГ7С177+RГ7С178+RГ7С179; var RГ9С170=RГ9С171+RГ9С172+RГ9С173+RГ9С174+RГ9С175+RГ9С176+RГ9С177+RГ9С178+RГ9С179; var RГ10С170=RГ7С170+RГ9С170;

var RГ3С210=RГ3С211+RГ3С212+RГ3С213;  var RГ5С210=RГ5С211+RГ5С212+RГ5С213; var RГ6С210=RГ3С210+RГ5С210;
var RГ7С210=RГ7С211+RГ7С212+RГ7С213;  var RГ9С210=RГ9С211+RГ9С212+RГ9С213; var RГ10С210=RГ7С210+RГ9С210;

var RГ3С290=RГ3С291+RГ3С292+RГ3С293;var RГ5С290=RГ5С291+RГ5С292+RГ5С293; var RГ6С290=RГ3С290+RГ5С290;
var RГ7С290=RГ7С291+RГ7С292+RГ7С293;var RГ9С290=RГ9С291+RГ9С292+RГ9С293; var RГ10С290=RГ7С290+RГ9С290;

var RГ3С330=RГ3С331+RГ3С332+RГ3С333+RГ3С334+RГ3С335; var RГ5С330=RГ5С331+RГ5С332+RГ5С333+RГ5С334+RГ5С335; var RГ6С330=RГ3С330+RГ5С330;
var RГ7С330=RГ7С331+RГ7С332+RГ7С333+RГ7С334+RГ7С335; var RГ9С330=RГ9С331+RГ9С332+RГ9С333+RГ9С334+RГ9С335; var RГ10С330=RГ7С330+RГ9С330;

var RГ3С370=RГ3С371+RГ3С372+RГ3С373; var RГ5С370=RГ5С371+RГ5С372+RГ5С373; var RГ6С370=RГ3С370+RГ5С370;
var RГ7С370=RГ7С371+RГ7С372+RГ7С373; var RГ9С370=RГ9С371+RГ9С372+RГ9С373; var RГ10С370=RГ7С370+RГ9С370;

var RГ3С400=RГ3С170+RГ3С210+RГ3С230+RГ3С260+RГ3С290+RГ3С310+RГ3С320+RГ3С330+RГ3С370; var RГ5С400=RГ5С170+RГ5С210+RГ5С230+RГ5С260+RГ5С290+RГ5С310+RГ5С320+RГ5С330+RГ5С370; var RГ6С400=RГ3С400+RГ5С400;
var RГ7С400=RГ7С170+RГ7С210+RГ7С230+RГ7С260+RГ7С290+RГ7С310+RГ7С320+RГ7С330+RГ7С370; var RГ9С400=RГ9С170+RГ9С210+RГ9С230+RГ9С260+RГ9С290+RГ9С310+RГ9С320+RГ9С330+RГ9С370; var RГ10С400=RГ7С400+RГ9С400;

var RГ3С410=RГ3С150+RГ3С400; var RГ5С410=RГ5С150+RГ5С400; var RГ6С410=RГ3С410+RГ5С410;
var RГ7С410=RГ7С150+RГ7С400; var RГ9С410=RГ9С150+RГ9С400; var RГ10С410=RГ7С410+RГ9С410;

var RГ3С470=RГ3С471+RГ3С472+RГ3С473+RГ3С474; var RГ5С470=RГ5С471+RГ5С472+RГ5С473+RГ5С474; var RГ6С470=RГ3С470+RГ5С470;
var RГ7С470=RГ7С471+RГ7С472+RГ7С473+RГ7С474; var RГ9С470=RГ9С471+RГ9С472+RГ9С473+RГ9С474; var RГ10С470=RГ7С470+RГ9С470;

var RГ3С510=RГ3С511+RГ3С512+RГ3С513+RГ3С514+RГ3С515+RГ3С516; var RГ5С510=RГ5С511+RГ5С512+RГ5С513+RГ5С514+RГ5С515+RГ5С516; var RГ6С510 =RГ3С510+RГ5С510;
var RГ7С510=RГ7С511+RГ7С512+RГ7С513+RГ7С514+RГ7С515+RГ7С516; var RГ9С510=RГ9С511+RГ9С512+RГ9С513+RГ9С514+RГ9С515+RГ9С516; var RГ10С510=RГ7С510+RГ9С510;

var RГ3С530=RГ3С531+RГ3С532+RГ3С533+RГ3С534+RГ3С535+RГ3С536; var RГ5С530=RГ5С531+RГ5С532+RГ5С533+RГ5С534+RГ5С535+RГ5С536; var RГ6С530=RГ3С530+RГ5С530;
var RГ7С530=RГ7С531+RГ7С532+RГ7С533+RГ7С534+RГ7С535+RГ7С536; var RГ9С530=RГ9С531+RГ9С532+RГ9С533+RГ9С534+RГ9С535+RГ9С536; var RГ10С530=RГ7С530+RГ9С530;

var RГ3С600=RГ3С470+RГ3С490+RГ3С510+RГ3С530; var RГ5С600=RГ5С470+RГ5С490+RГ5С510+RГ5С530; var RГ6С600=RГ3С600+RГ5С600;
var RГ7С600=RГ7С470+RГ7С490+RГ7С510+RГ7С530; var RГ9С600=RГ9С470+RГ9С490+RГ9С510+RГ9С530; var RГ10С600=RГ7С600+RГ9С600;

var RГ3С620=RГ3С621-RГ3С622+RГ3С623+RГ3С624-RГ3С625; var RГ5С620=RГ5С621-RГ5С622+RГ5С623+RГ5С624-RГ5С625; var RГ6С620 =RГ3С620+RГ5С620;
var RГ7С620=RГ7С621-RГ7С622+RГ7С623+RГ7С624-RГ7С625; var RГ9С620=RГ9С621-RГ9С622+RГ9С623+RГ9С624-RГ9С625; var RГ10С620=RГ7С620+RГ9С620;

var RГ3С690=RГ3С800; var RГ5С690=RГ5С800; var RГ6С690 =RГ3С690+RГ5С690;
var RГ7С690=RГ7С800; var RГ9С690=RГ9С800; var RГ10С690=RГ7С690+RГ9С690;

var RГ3С610=RГ3С620+RГ3С690; var RГ5С610=RГ5С620+RГ5С690; var RГ6С610 =RГ3С610+RГ5С610;
var RГ7С610=RГ7С620+RГ7С690; var RГ9С610=RГ9С620+RГ9С690; var RГ10С610=RГ7С610+RГ9С610;

var RГ3С900=RГ3С600+RГ3С610; var RГ5С900=RГ5С600+RГ5С610; var RГ6С900 =RГ3С900+RГ5С900;
var RГ7С900=RГ7С600+RГ7С610; var RГ9С900=RГ9С600+RГ9С610; var RГ10С900=RГ7С900+RГ9С900;

-- Справка о наличии имущества и обязательств на забалансовых счетах
RГ4С1010; RГ5С1010; var RГ6С1010=RГ4С1010+RГ5С1010; RГ7С1010; RГ8С1010; var RГ9С1010=RГ7С1010+RГ8С1010;
RГ4С1020; RГ5С1020; var RГ6С1020=RГ4С1020+RГ5С1020; RГ7С1020; RГ8С1020; var RГ9С1020=RГ7С1020+RГ8С1020;
RГ4С1030; RГ5С1030; var RГ6С1030=RГ4С1030+RГ5С1030; RГ7С1030; RГ8С1030; var RГ9С1030=RГ7С1030+RГ8С1030;
RГ4С1040; RГ5С1040; var RГ6С1040=RГ4С1040+RГ5С1040; RГ7С1040; RГ8С1040; var RГ9С1040=RГ7С1040+RГ8С1040;
RГ4С1050; RГ5С1050; var RГ6С1050=RГ4С1050+RГ5С1050; RГ7С1050; RГ8С1050; var RГ9С1050=RГ7С1050+RГ8С1050;
RГ4С1060; RГ5С1060; var RГ6С1060=RГ4С1060+RГ5С1060; RГ7С1060; RГ8С1060; var RГ9С1060=RГ7С1060+RГ8С1060;
RГ4С1070; RГ5С1070; var RГ6С1070=RГ4С1070+RГ5С1070; RГ7С1070; RГ8С1070; var RГ9С1070=RГ7С1070+RГ8С1070;
RГ4С1080; RГ5С1080; var RГ6С1080=RГ4С1080+RГ5С1080; RГ7С1080; RГ8С1080; var RГ9С1080=RГ7С1080+RГ8С1080;
RГ4С1090; RГ5С1090; var RГ6С1090=RГ4С1090+RГ5С1090; RГ7С1090; RГ8С1090; var RГ9С1090=RГ7С1090+RГ8С1090;
RГ4С1100; RГ5С1100; var RГ6С1100=RГ4С1100+RГ5С1100; RГ7С1100; RГ8С1100; var RГ9С1100=RГ7С1100+RГ8С1100;
RГ4С1110; RГ5С1110; var RГ6С1110=RГ4С1110+RГ5С1110; RГ7С1110; RГ8С1110; var RГ9С1110=RГ7С1110+RГ8С1110;
RГ4С1120; RГ5С1120; var RГ6С1120=RГ4С1120+RГ5С1120; RГ7С1120; RГ8С1120; var RГ9С1120=RГ7С1120+RГ8С1120;
RГ4С1130; RГ5С1130; var RГ6С1130=RГ4С1130+RГ5С1130; RГ7С1130; RГ8С1130; var RГ9С1130=RГ7С1130+RГ8С1130;
RГ4С1140; RГ5С1140; var RГ6С1140=RГ4С1140+RГ5С1140; RГ7С1140; RГ8С1140; var RГ9С1140=RГ7С1140+RГ8С1140;
RГ4С1150; RГ5С1150; var RГ6С1150=RГ4С1150+RГ5С1150; RГ7С1150; RГ8С1150; var RГ9С1150=RГ7С1150+RГ8С1150;
RГ4С1160; RГ5С1160; var RГ6С1160=RГ4С1160+RГ5С1160; RГ7С1160; RГ8С1160; var RГ9С1160=RГ7С1160+RГ8С1160;
RГ4С1170; RГ5С1170; var RГ6С1170=RГ4С1170+RГ5С1170; RГ7С1170; RГ8С1170; var RГ9С1170=RГ7С1170+RГ8С1170;
RГ4С1180; RГ5С1180; var RГ6С1180=RГ4С1180+RГ5С1180; RГ7С1180; RГ8С1180; var RГ9С1180=RГ7С1180+RГ8С1180;
RГ4С1190; RГ5С1190; var RГ6С1190=RГ4С1190+RГ5С1190; RГ7С1190; RГ8С1190; var RГ9С1190=RГ7С1190+RГ8С1190;
RГ4С1200; RГ5С1200; var RГ6С1200=RГ4С1200+RГ5С1200; RГ7С1200; RГ8С1200; var RГ9С1200=RГ7С1200+RГ8С1200;
RГ4С1210; RГ5С1210; var RГ6С1210=RГ4С1210+RГ5С1210; RГ7С1210; RГ8С1210; var RГ9С1210=RГ7С1210+RГ8С1210;
RГ4С1220; RГ5С1220; var RГ6С1220=RГ4С1220+RГ5С1220; RГ7С1220; RГ8С1220; var RГ9С1220=RГ7С1220+RГ8С1220;
RГ4С1230; RГ5С1230; var RГ6С1230=RГ4С1230+RГ5С1230; RГ7С1230; RГ8С1230; var RГ9С1230=RГ7С1230+RГ8С1230;
RГ4С1240; RГ5С1240; var RГ6С1240=RГ4С1240+RГ5С1240; RГ7С1240; RГ8С1240; var RГ9С1240=RГ7С1240+RГ8С1240;
RГ4С1250; RГ5С1250; var RГ6С1250=RГ4С1250+RГ5С1250; RГ7С1250; RГ8С1250; var RГ9С1250=RГ7С1250+RГ8С1250;
RГ4С1260; RГ5С1260; var RГ6С1260=RГ4С1260+RГ5С1260; RГ7С1260; RГ8С1260; var RГ9С1260=RГ7С1260+RГ8С1260;

RГ4С1171; RГ5С1171; RГ6С1171;
RГ4С1172; RГ5С1172; RГ6С1172;
RГ4С1173; RГ5С1173; RГ6С1173;
RГ4С1181; RГ5С1181; RГ6С1181;
RГ4С1182; RГ5С1182; RГ6С1182;


М1:I; SГ2С1011М1[]:S; SГ3С1011М1[]:S; RГ4С1011М1[]; RГ5С1011М1[]; var RГ6С1011М1[]=RГ4С1011М1[$]+RГ5С1011М1[$]; RГ7С1011М1[]; RГ8С1011М1[]; var RГ9С1011М1[]=RГ7С1011М1[$]+RГ8С1011М1[$];
М2:I; SГ2С1021М2[]:S; SГ3С1021М2[]:S; RГ4С1021М2[]; RГ5С1021М2[]; var RГ6С1021М2[]=RГ4С1021М2[$]+RГ5С1021М2[$]; RГ7С1021М2[]; RГ8С1021М2[]; var RГ9С1021М2[]=RГ7С1021М2[$]+RГ8С1021М2[$];
М3:I; SГ2С1031М3[]:S; SГ3С1031М3[]:S; RГ4С1031М3[]; RГ5С1031М3[]; var RГ6С1031М3[]=RГ4С1031М3[$]+RГ5С1031М3[$]; RГ7С1031М3[]; RГ8С1031М3[]; var RГ9С1031М3[]=RГ7С1031М3[$]+RГ8С1031М3[$];
М4:I; SГ2С1041М4[]:S; SГ3С1041М4[]:S; RГ4С1041М4[]; RГ5С1041М4[]; var RГ6С1041М4[]=RГ4С1041М4[$]+RГ5С1041М4[$]; RГ7С1041М4[]; RГ8С1041М4[]; var RГ9С1041М4[]=RГ7С1041М4[$]+RГ8С1041М4[$];
М5:I; SГ2С1051М5[]:S; SГ3С1051М5[]:S; RГ4С1051М5[]; RГ5С1051М5[]; var RГ6С1051М5[]=RГ4С1051М5[$]+RГ5С1051М5[$]; RГ7С1051М5[]; RГ8С1051М5[]; var RГ9С1051М5[]=RГ7С1051М5[$]+RГ8С1051М5[$];
М7:I; SГ2С1071М7[]:S; SГ3С1071М7[]:S; RГ4С1071М7[]; RГ5С1071М7[]; var RГ6С1071М7[]=RГ4С1071М7[$]+RГ5С1071М7[$]; RГ7С1071М7[]; RГ8С1071М7[]; var RГ9С1071М7[]=RГ7С1071М7[$]+RГ8С1071М7[$];
М10:I; SГ2С1101М10[]:S; SГ3С1101М10[]:S; RГ4С1101М10[]; RГ5С1101М10[]; var RГ6С1101М10[]=RГ4С1101М10[$]+RГ5С1101М10[$]; RГ7С1101М10[]; RГ8С1101М10[]; var RГ9С1101М10[]=RГ7С1101М10[$]+RГ8С1101М10[$];
М11:I; SГ2С1111М11[]:S; SГ3С1111М11[]:S; RГ4С1111М11[]; RГ5С1111М11[]; var RГ6С1111М11[]=RГ4С1111М11[$]+RГ5С1111М11[$]; RГ7С1111М11[]; RГ8С1111М11[]; var RГ9С1111М11[]=RГ7С1111М11[$]+RГ8С1111М11[$];
М12:I; SГ2С1121М12[]:S; SГ3С1121М12[]:S; RГ4С1121М12[]; RГ5С1121М12[]; var RГ6С1121М12[]=RГ4С1121М12[$]+RГ5С1121М12[$]; RГ7С1121М12[]; RГ8С1121М12[]; var RГ9С1121М12[]=RГ7С1121М12[$]+RГ8С1121М12[$];
М19:I; SГ2С1191М19[]:S; SГ3С1191М19[]:S; RГ4С1191М19[]; RГ5С1191М19[]; var RГ6С1191М19[]=RГ4С1191М19[$]+RГ5С1191М19[$]; RГ7С1191М19[]; RГ8С1191М19[]; var RГ9С1191М19[]=RГ7С1191М19[$]+RГ8С1191М19[$];
М20:I; SГ2С1201М20[]:S; SГ3С1201М20[]:S; RГ4С1201М20[]; RГ5С1201М20[]; var RГ6С1201М20[]=RГ4С1201М20[$]+RГ5С1201М20[$]; RГ7С1201М20[]; RГ8С1201М20[]; var RГ9С1201М20[]=RГ7С1201М20[$]+RГ8С1201М20[$];
М21:I; SГ2С1211М21[]:S; SГ3С1211М21[]:S; RГ4С1211М21[]; RГ5С1211М21[]; var RГ6С1211М21[]=RГ4С1211М21[$]+RГ5С1211М21[$]; RГ7С1211М21[]; RГ8С1211М21[]; var RГ9С1211М21[]=RГ7С1211М21[$]+RГ8С1211М21[$];
М22:I; SГ2С1221М22[]:S; SГ3С1221М22[]:S; RГ4С1221М22[]; RГ5С1221М22[]; var RГ6С1221М22[]=RГ4С1221М22[$]+RГ5С1221М22[$]; RГ7С1221М22[]; RГ8С1221М22[]; var RГ9С1221М22[]=RГ7С1221М22[$]+RГ8С1221М22[$];
М23:I; SГ2С1231М23[]:S; SГ3С1231М23[]:S; RГ4С1231М23[]; RГ5С1231М23[]; var RГ6С1231М23[]=RГ4С1231М23[$]+RГ5С1231М23[$]; RГ7С1231М23[]; RГ8С1231М23[]; var RГ9С1231М23[]=RГ7С1231М23[$]+RГ8С1231М23[$];
М24:I; SГ2С1241М24[]:S; SГ3С1241М24[]:S; RГ4С1241М24[]; RГ5С1241М24[]; var RГ6С1241М24[]=RГ4С1241М24[$]+RГ5С1241М24[$]; RГ7С1241М24[]; RГ8С1241М24[]; var RГ9С1241М24[]=RГ7С1241М24[$]+RГ8С1241М24[$];
М25:I; SГ2С1251М25[]:S; SГ3С1251М25[]:S; RГ4С1251М25[]; RГ5С1251М25[]; var RГ6С1251М25[]=RГ4С1251М25[$]+RГ5С1251М25[$]; RГ7С1251М25[]; RГ8С1251М25[]; var RГ9С1251М25[]=RГ7С1251М25[$]+RГ8С1251М25[$];
М26:I; SГ2С1261М26[]:S; SГ3С1261М26[]:S; RГ4С1261М26[]; RГ5С1261М26[]; var RГ6С1261М26[]=RГ4С1261М26[$]+RГ5С1261М26[$]; RГ7С1261М26[]; RГ8С1261М26[]; var RГ9С1261М26[]=RГ7С1261М26[$]+RГ8С1261М26[$];

RГ7С1171; RГ8С1171; var RГ9С1171=RГ7С1171+RГ8С1171;
RГ7С1172; RГ8С1172; var RГ9С1172=RГ7С1172;
RГ7С1173; RГ8С1173; var RГ9С1173=RГ7С1173+RГ8С1173;
RГ7С1181; RГ8С1181; var RГ9С1181=RГ7С1181+RГ8С1181;
RГ7С1182; RГ8С1182; var RГ9С1182=RГ7С1182+RГ8С1182;

var RГ7С1170=RГ7С1171+RГ7С1172+RГ7С1173; var RГ8С1170=RГ8С1171+RГ8С1173; --var RГ9С1170=RГ7С1170+RГ8С1170;
var RГ7С1180=RГ7С1181+RГ7С1182; var RГ8С1180=RГ8С1181+RГ8С1182; --var RГ9С1180=RГ7С1180+RГ8С1180;

var Спр_УслСчБ1010:S; var Спр_УслАнБ1010:S; var Спр_УслСчД1010:S; var Спр_УслАнД1010:S;
var Спр_УслСчБ1020:S; var Спр_УслАнБ1020:S; var Спр_УслСчД1020:S; var Спр_УслАнД1020:S;
var Спр_УслСчБ1030:S; var Спр_УслАнБ1030:S; var Спр_УслСчД1030:S; var Спр_УслАнД1030:S;
var Спр_УслСчБ1040:S; var Спр_УслАнБ1040:S; var Спр_УслСчД1040:S; var Спр_УслАнД1040:S;
var Спр_УслСчБ1050:S; var Спр_УслАнБ1050:S; var Спр_УслСчД1050:S; var Спр_УслАнД1050:S;
var Спр_УслСчБ1060:S; var Спр_УслАнБ1060:S; var Спр_УслСчД1060:S; var Спр_УслАнД1060:S;
var Спр_УслСчБ1070:S; var Спр_УслАнБ1070:S; var Спр_УслСчД1070:S; var Спр_УслАнД1070:S;
var Спр_УслСчБ1080:S; var Спр_УслАнБ1080:S; var Спр_УслСчД1080:S; var Спр_УслАнД1080:S;
var Спр_УслСчБ1090:S; var Спр_УслАнБ1090:S; var Спр_УслСчД1090:S; var Спр_УслАнД1090:S;
var Спр_УслСчБ1100:S; var Спр_УслАнБ1100:S; var Спр_УслСчД1100:S; var Спр_УслАнД1100:S;
var Спр_УслСчБ1110:S; var Спр_УслАнБ1110:S; var Спр_УслСчД1110:S; var Спр_УслАнД1110:S;
var Спр_УслСчБ1120:S; var Спр_УслАнБ1120:S; var Спр_УслСчД1120:S; var Спр_УслАнД1120:S;
var Спр_УслСчБ1130:S; var Спр_УслАнБ1130:S; var Спр_УслСчД1130:S; var Спр_УслАнД1130:S;
var Спр_УслСчБ1140:S; var Спр_УслАнБ1140:S; var Спр_УслСчД1140:S; var Спр_УслАнД1140:S;
var Спр_УслСчБ1150:S; var Спр_УслАнБ1150:S; var Спр_УслСчД1150:S; var Спр_УслАнД1150:S;
var Спр_УслСчБ1160:S; var Спр_УслАнБ1160:S; var Спр_УслСчД1160:S; var Спр_УслАнД1160:S;
var Спр_УслСчБ1170:S; var Спр_УслАнБ1170:S; var Спр_УслСчД1170:S; var Спр_УслАнД1170:S;
var Спр_УслСчБ1180:S; var Спр_УслАнБ1180:S; var Спр_УслСчД1180:S; var Спр_УслАнД1180:S;
var Спр_УслСчБ1190:S; var Спр_УслАнБ1190:S; var Спр_УслСчД1190:S; var Спр_УслАнД1190:S;
var Спр_УслСчБ1200:S; var Спр_УслАнБ1200:S; var Спр_УслСчД1200:S; var Спр_УслАнД1200:S;
var Спр_УслСчБ1210:S; var Спр_УслАнБ1210:S; var Спр_УслСчД1210:S; var Спр_УслАнД1210:S;
var Спр_УслСчБ1220:S; var Спр_УслАнБ1220:S; var Спр_УслСчД1220:S; var Спр_УслАнД1220:S;
var Спр_УслСчБ1230:S; var Спр_УслАнБ1230:S; var Спр_УслСчД1230:S; var Спр_УслАнД1230:S;
var Спр_УслСчБ1240:S; var Спр_УслАнБ1240:S; var Спр_УслСчД1240:S; var Спр_УслАнД1240:S;
var Спр_УслСчБ1250:S; var Спр_УслАнБ1250:S; var Спр_УслСчД1250:S; var Спр_УслАнД1250:S;
var Спр_УслСчБ1260:S; var Спр_УслАнБ1260:S; var Спр_УслСчД1260:S; var Спр_УслАнД1260:S;

var Спр_УслСчБ1011[]:S; var Спр_УслАнБ1011[]:S; var Спр_УслСчД1011[]:S; var Спр_УслАнД1011[]:S;
var Спр_УслСчБ1021[]:S; var Спр_УслАнБ1021[]:S; var Спр_УслСчД1021[]:S; var Спр_УслАнД1021[]:S;
var Спр_УслСчБ1031[]:S; var Спр_УслАнБ1031[]:S; var Спр_УслСчД1031[]:S; var Спр_УслАнД1031[]:S;
var Спр_УслСчБ1041[]:S; var Спр_УслАнБ1041[]:S; var Спр_УслСчД1041[]:S; var Спр_УслАнД1041[]:S;
var Спр_УслСчБ1051[]:S; var Спр_УслАнБ1051[]:S; var Спр_УслСчД1051[]:S; var Спр_УслАнД1051[]:S;
var Спр_УслСчБ1071[]:S; var Спр_УслАнБ1071[]:S; var Спр_УслСчД1071[]:S; var Спр_УслАнД1071[]:S;
var Спр_УслСчБ1101[]:S; var Спр_УслАнБ1101[]:S; var Спр_УслСчД1101[]:S; var Спр_УслАнД1101[]:S;
var Спр_УслСчБ1111[]:S; var Спр_УслАнБ1111[]:S; var Спр_УслСчД1111[]:S; var Спр_УслАнД1111[]:S;
var Спр_УслСчБ1121[]:S; var Спр_УслАнБ1121[]:S; var Спр_УслСчД1121[]:S; var Спр_УслАнД1121[]:S;

var Спр_УслСчБ1171:S; var Спр_УслАнБ1171:S; var Спр_УслСчД1171:S; var Спр_УслАнД1171:S;
var Спр_УслСчБ1172:S; var Спр_УслАнБ1172:S;
var Спр_УслСчБ1173:S; var Спр_УслАнБ1173:S; var Спр_УслСчД1173:S; var Спр_УслАнД1173:S;
var Спр_УслСчБ1181:S; var Спр_УслАнБ1181:S; var Спр_УслСчД1181:S; var Спр_УслАнД1181:S;
var Спр_УслСчБ1182:S; var Спр_УслАнБ1182:S; var Спр_УслСчД1182:S; var Спр_УслАнД1182:S;

var Спр_УслСчБ1191[]:S; var Спр_УслАнБ1191[]:S; var Спр_УслСчД1191[]:S; var Спр_УслАнД1191[]:S;
var Спр_УслСчБ1201[]:S; var Спр_УслАнБ1201[]:S; var Спр_УслСчД1201[]:S; var Спр_УслАнД1201[]:S;
var Спр_УслСчБ1211[]:S; var Спр_УслАнБ1211[]:S; var Спр_УслСчД1211[]:S; var Спр_УслАнД1211[]:S;
var Спр_УслСчБ1221[]:S; var Спр_УслАнБ1221[]:S; var Спр_УслСчД1221[]:S; var Спр_УслАнД1221[]:S;
var Спр_УслСчБ1231[]:S; var Спр_УслАнБ1231[]:S; var Спр_УслСчД1231[]:S; var Спр_УслАнД1231[]:S;
var Спр_УслСчБ1241[]:S; var Спр_УслАнБ1241[]:S; var Спр_УслСчД1241[]:S; var Спр_УслАнД1241[]:S;
var Спр_УслСчБ1251[]:S; var Спр_УслАнБ1251[]:S; var Спр_УслСчД1251[]:S; var Спр_УслАнД1251[]:S;
var Спр_УслСчБ1261[]:S; var Спр_УслАнБ1261[]:S; var Спр_УслСчД1261[]:S; var Спр_УслАнД1261[]:S;

var Стр_Ном[]:S;
var Стр_УслСч[]:S;
var Стр_Знак[]:I;
var ВыгружаемыеСтроки[]:S; 
var СтрСправки[]:S;
ОтчGUID:S;

var С:S="";

sБал: Section;

var УпрДисБН:L=not Round(RГ3С410,Точн)=Round(RГ3С900,Точн);
var ТекстДисБН:S="Дисбаланс по бюджетной деятельности ("+Str(RГ3С410-RГ3С900,Точн)+") на начало периода";
var УпрДисБК:L=not Round(RГ7С410,Точн)=Round(RГ7С900,Точн);
var ТекстДисБК:S="Дисбаланс по бюджетной деятельности ("+Str(RГ7С410-RГ7С900,Точн)+") на конец периода";
--
var УпрДисДН:L=False;
--var ТекстДисДН:S="Дисбаланс по приносящей доход деятельности ("+Str(RГ4С410-RГ4С900,Точн)+") на начало периода";
var УпрДисДК:L=False;
---var ТекстДисДК:S="Дисбаланс по приносящей доход деятельности ("+Str(RГ8С410-RГ8С900,Точн)+") на конец периода";

var УпрДисВН:L=not Round(RГ5С410,Точн)=Round(RГ5С900,Точн);
var ТекстДисВН:S="Дисбаланс по средствам во временном распоряжении ("+Str(RГ5С410-RГ5С900,Точн)+") на начало периода";
var УпрДисВК:L=not Round(RГ9С410,Точн)=Round(RГ9С900,Точн);
var ТекстДисВК:S="Дисбаланс по средствам во временном распоряжении ("+Str(RГ9С410-RГ9С900,Точн)+") на конец периода";


sНастр: Section;
var РасчетСпр:S="Расчитать справку";
var ОчистСпр:S="Очистить справку";
var ОткрНастрСпр:S="Открыть настройку справки";
var ЗагрузНастрСпр:S="Загрузить настройку справки";
var ПоУмолчНастрСпр:S="Настройка по умолчанию";
var ЗакрНастрСпр:S="Закрыть настройку справки";

sСпр1 : Section;
sСпр2 : Section;
sСпр3 : Section;
sСпр4 : Section;
sСпр5 : Section;
sСпр6 : Section;
sСпр7 : Section;
sСпр8 : Section;
sСпр9 : Section;
sСпр10: Section;
sСпр11: Section;
sСпр12: Section;
sСпр13: Section;
sСпр14: Section;
sСпр15: Section;
sСпр16: Section;
sСпр17: Section;
sСпр18: Section;
sСпр19: Section;
sСпр20: Section;
sСпр21: Section;
sСпр22: Section;
sСпр23: Section;
sСпр24: Section;
sСпр25: Section;
sСпр26: Section;
sСпр27: Section;
sСпр28: Section;
sСпр29: Section;
sСпр30: Section;
sСпр31: Section;
sСпр32: Section;
sСпр33: Section;
sСпр34: Section;
sСпр35: Section;
sСпр36: Section;
sСпр37: Section;

var НужнаНастрСпр:L;

var НастрGUID:S;
var НастрRec:Record;
var НастрВерсия:I=120104;
var ТекущаяВерсия:I;
var НуноСохрНастр:L;

var SelfBln:S="ОТЧЕТЫ.БАЛАНС.191Н.0503230";
var SelfCfg:S="ТББ.ОТЧЕТЫ.БАЛАНС.191Н.0503230.000.cfg";

var Buf[]:S;
--
--Процедуры и функции -------------
Proc НастрУмолч;
 --010
 Спр_УслСчБ1010="ЗАБ.01!"; Спр_УслАнБ1010=""; Спр_УслСчД1010=""; Спр_УслАнД1010="";
 ClearVariable(М1);
 InsertFrame(М1,М1+1); SГ2С1011М1[М1]="движимое";                          SГ3С1011М1[М1]="011"; Спр_УслСчБ1011[М1]=""; Спр_УслАнБ1011[М1]=""; Спр_УслСчД1011[М1]=""; Спр_УслАнД1011[М1]="";
 InsertFrame(М1,М1+1); SГ2С1011М1[М1]="из них:"+Chr(13)+"непроизведенное"; SГ3С1011М1[М1]="012"; Спр_УслСчБ1011[М1]=""; Спр_УслАнБ1011[М1]=""; Спр_УслСчД1011[М1]=""; Спр_УслАнД1011[М1]="";
 InsertFrame(М1,М1+1); SГ2С1011М1[М1]="недвижимое";                        SГ3С1011М1[М1]="015"; Спр_УслСчБ1011[М1]=""; Спр_УслАнБ1011[М1]=""; Спр_УслСчД1011[М1]=""; Спр_УслАнД1011[М1]="";
 InsertFrame(М1,М1+1);
 InsertFrame(М1,М1+1);
 --020
 Спр_УслСчБ1020="ЗАБ.02!"; Спр_УслАнБ1020=""; Спр_УслСчД1020=""; Спр_УслАнД1020="";
 ClearVariable(М2);
 InsertFrame(М2,М2+1);
 --030
 Спр_УслСчБ1030="ЗАБ.03!"; Спр_УслАнБ1030=""; Спр_УслСчД1030=""; Спр_УслАнД1030="";
 ClearVariable(М3);
 InsertFrame(М3,М3+1);
 InsertFrame(М3,М3+1);
 --040
 Спр_УслСчБ1040="ЗАБ.04!"; Спр_УслАнБ1040=""; Спр_УслСчД1040=""; Спр_УслАнД1040="";
 ClearVariable(М4);
 InsertFrame(М4,М4+1);
 InsertFrame(М4,М4+1);
 --050
 Спр_УслСчБ1050="ЗАБ.05!"; Спр_УслАнБ1050=""; Спр_УслСчД1050=""; Спр_УслАнД1050="";
 ClearVariable(М5);
 InsertFrame(М5,М5+1); SГ2С1051М5[М5]="основные средства";     SГ3С1051М5[М5]="051"; Спр_УслСчБ1051[М5]=""; Спр_УслАнБ1051[М5]=""; Спр_УслСчД1051[М5]=""; Спр_УслАнД1051[М5]="";
 InsertFrame(М5,М5+1); SГ2С1051М5[М5]="материальные запасы";   SГ3С1051М5[М5]="052"; Спр_УслСчБ1051[М5]=""; Спр_УслАнБ1051[М5]=""; Спр_УслСчД1051[М5]=""; Спр_УслАнД1051[М5]="";
 InsertFrame(М5,М5+1);
 InsertFrame(М5,М5+1);
 --060
 Спр_УслСчБ1060="ЗАБ.06!"; Спр_УслАнБ1060=""; Спр_УслСчД1060=""; Спр_УслАнД1060="";
 --070
 Спр_УслСчБ1070="ЗАБ.07!"; Спр_УслАнБ1070=""; Спр_УслСчД1070=""; Спр_УслАнД1070="";
 ClearVariable(М7);
 InsertFrame(М7,М7+1); SГ2С1071М7[М7]="в условной оценке";         SГ3С1071М7[М7]="071"; Спр_УслСчБ1071[М7]=""; Спр_УслАнБ1071[М7]=""; Спр_УслСчД1071[М7]=""; Спр_УслАнД1071[М7]="";
 InsertFrame(М7,М7+1); SГ2С1071М7[М7]="по стоимости приобретения"; SГ3С1071М7[М7]="072"; Спр_УслСчБ1071[М7]=""; Спр_УслАнБ1071[М7]=""; Спр_УслСчД1071[М7]=""; Спр_УслАнД1071[М7]="";
 InsertFrame(М7,М7+1);
 InsertFrame(М7,М7+1);
 --080
 Спр_УслСчБ1080="ЗАБ.08!"; Спр_УслАнБ1080=""; Спр_УслСчД1080=""; Спр_УслАнД1080="";
 --090
 Спр_УслСчБ1090="ЗАБ.09!"; Спр_УслАнБ1090=""; Спр_УслСчД1090=""; Спр_УслАнД1090="";
 --100
 Спр_УслСчБ1100="ЗАБ.10!"; Спр_УслАнБ1100=""; Спр_УслСчД1100=""; Спр_УслАнД1100="";
 ClearVariable(М10);
 InsertFrame(М10,М10+1); SГ2С1101М10[М10]="задаток";             SГ3С1101М10[М10]="101"; Спр_УслСчБ1101[М10]=""; Спр_УслАнБ1101[М10]=""; Спр_УслСчД1101[М10]=""; Спр_УслАнД1101[М10]="";
 InsertFrame(М10,М10+1); SГ2С1101М10[М10]="залог";               SГ3С1101М10[М10]="102"; Спр_УслСчБ1101[М10]=""; Спр_УслАнБ1101[М10]=""; Спр_УслСчД1101[М10]=""; Спр_УслАнД1101[М10]="";
 InsertFrame(М10,М10+1); SГ2С1101М10[М10]="банковская гарантия"; SГ3С1101М10[М10]="103"; Спр_УслСчБ1101[М10]=""; Спр_УслАнБ1101[М10]=""; Спр_УслСчД1101[М10]=""; Спр_УслАнД1101[М10]="";
 InsertFrame(М10,М10+1); SГ2С1101М10[М10]="поручительство";      SГ3С1101М10[М10]="104"; Спр_УслСчБ1101[М10]=""; Спр_УслАнБ1101[М10]=""; Спр_УслСчД1101[М10]=""; Спр_УслАнД1101[М10]="";
 InsertFrame(М10,М10+1); SГ2С1101М10[М10]="иное обеспечение";    SГ3С1101М10[М10]="105"; Спр_УслСчБ1101[М10]=""; Спр_УслАнБ1101[М10]=""; Спр_УслСчД1101[М10]=""; Спр_УслАнД1101[М10]="";
 --110
 Спр_УслСчБ1110="ЗАБ.11!"; Спр_УслАнБ1110=""; Спр_УслСчД1110=""; Спр_УслАнД1110="";
 ClearVariable(М11);
 InsertFrame(М11,М11+1); SГ2С1111М11[М11]="государственные гарантии"; SГ3С1111М11[М11]="111"; Спр_УслСчБ1111[М11]=""; Спр_УслАнБ1111[М11]=""; Спр_УслСчД1111[М11]=""; Спр_УслАнД1111[М11]="";
 InsertFrame(М11,М11+1); SГ2С1111М11[М11]="муниципальные гарантии";   SГ3С1111М11[М11]="112"; Спр_УслСчБ1111[М11]=""; Спр_УслАнБ1111[М11]=""; Спр_УслСчД1111[М11]=""; Спр_УслАнД1111[М11]="";
 --120
 Спр_УслСчБ1120="ЗАБ.12!"; Спр_УслАнБ1120=""; Спр_УслСчД1120=""; Спр_УслАнД1120="";
 ClearVariable(М12);
 InsertFrame(М12,М12+1);
 InsertFrame(М12,М12+1);
 --130
 Спр_УслСчБ1130="ЗАБ.13!"; Спр_УслАнБ1130=""; Спр_УслСчД1130=""; Спр_УслАнД1130="";
 --140
 Спр_УслСчБ1140="ЗАБ.14!"; Спр_УслАнБ1140=""; Спр_УслСчД1140=""; Спр_УслАнД1140="";
 --150
 Спр_УслСчБ1150="ЗАБ.15!"; Спр_УслАнБ1150=""; Спр_УслСчД1150=""; Спр_УслАнД1150="";
 --160
 Спр_УслСчБ1160="ЗАБ.16!"; Спр_УслАнБ1160=""; Спр_УслСчД1160=""; Спр_УслАнД1160="";
 --170
 Спр_УслСчБ1171="ЗАБ.17!"; Спр_УслАнБ1171="(ВД.1|ВД.БД!)&КД.*";
 Спр_УслСчД1171="ЗАБ.17!"; Спр_УслАнД1171="(ВД.2|ВД.ПД!|ВД.ЦС!)&КД.*";
 Спр_УслСчБ1172="ЗАБ.17!"; Спр_УслАнБ1172="ФКР.*";
 Спр_УслСчБ1173="ЗАБ.17!"; Спр_УслАнБ1173="(ВД.1|ВД.БД!)&КИФД.*";
 Спр_УслСчД1173="ЗАБ.17!"; Спр_УслАнД1173="(ВД.2|ВД.ПД!|ВД.ЦС!)&КИФД.*";
 --180
 Спр_УслСчБ1181="ЗАБ.18!"; Спр_УслАнБ1181="(ВД.1|ВД.БД!)&ФКР.*";
 Спр_УслСчД1181="ЗАБ.18!"; Спр_УслАнД1181="(ВД.2|ВД.ПД!|ВД.ЦС!)&ФКР.*";
 Спр_УслСчБ1182="ЗАБ.18!"; Спр_УслАнБ1182="(ВД.1|ВД.БД!)&КИФД.*";
 Спр_УслСчД1182="ЗАБ.18!"; Спр_УслАнД1182="(ВД.2|ВД.ПД!|ВД.ЦС!)&КИФД.*";
 --190
 Спр_УслСчБ1190="ЗАБ.19!"; Спр_УслАнБ1190=""; Спр_УслСчД1190=""; Спр_УслАнД1190="";
 ClearVariable(М19);
 InsertFrame(М19,М19+1);
 InsertFrame(М19,М19+1);
 --200
 Спр_УслСчБ1200="ЗАБ.20!"; Спр_УслАнБ1200=""; Спр_УслСчД1200=""; Спр_УслАнД1200="";
 ClearVariable(М20);
 InsertFrame(М20,М20+1);
 InsertFrame(М20,М20+1);
 --210
 Спр_УслСчБ1210="ЗАБ.21!"; Спр_УслАнБ1210="(ВД.1|ВД.БД!)"; Спр_УслСчД1210="ЗАБ.21!"; Спр_УслАнД1210="(ВД.2|ВД.ПД!|ВД.ЦС!)";
 ClearVariable(М21);
 InsertFrame(М21,М21+1);  SГ2С1211М21[М21]="в условной оценке";         SГ3С1211М21[М21]="211"; Спр_УслСчБ1211[М21]=""; Спр_УслАнБ1211[М21]=""; Спр_УслСчД1211[М21]=""; Спр_УслАнД1211[М21]="";
 InsertFrame(М21,М21+1);  SГ2С1211М21[М21]="по стоимости приобретения"; SГ3С1211М21[М21]="212"; Спр_УслСчБ1211[М21]=""; Спр_УслАнБ1211[М21]=""; Спр_УслСчД1211[М21]=""; Спр_УслАнД1211[М21]="";
 --220
 Спр_УслСчБ1220="ЗАБ.22!"; Спр_УслАнБ1220=""; Спр_УслСчД1220=""; Спр_УслАнД1220="";
 ClearVariable(М22);
 InsertFrame(М22,М22+1);  SГ2С1221М22[М22]="основные средства";
 InsertFrame(М22,М22+1);  SГ2С1221М22[М22]="материальные запасы";
 --230
 Спр_УслСчБ1230="ЗАБ.23!"; Спр_УслАнБ1230=""; Спр_УслСчД1230=""; Спр_УслАнД1230="";
 ClearVariable(М23);
 InsertFrame(М23,М23+1);
 InsertFrame(М23,М23+1);
 --240
 Спр_УслСчБ1240="ЗАБ.24!"; Спр_УслАнБ1240=""; Спр_УслСчД1240=""; Спр_УслАнД1240="";
 ClearVariable(М24);
 InsertFrame(М24,М24+1); SГ2С1241М24[М24]="основные средства";                      SГ3С1241М24[М24]="241"; Спр_УслСчБ1241[М24]=""; Спр_УслАнБ1241[М24]=""; Спр_УслСчД1241[М24]=""; Спр_УслАнД1241[М24]="";
 InsertFrame(М24,М24+1); SГ2С1241М24[М24]="из них:"+Chr(13)+"недвижимое имущество"; SГ3С1241М24[М24]="242"; Спр_УслСчБ1241[М24]=""; Спр_УслАнБ1241[М24]=""; Спр_УслСчД1241[М24]=""; Спр_УслАнД1241[М24]="";
 InsertFrame(М24,М24+1); SГ2С1241М24[М24]="нематериальные активы";                  SГ3С1241М24[М24]="244"; Спр_УслСчБ1241[М24]=""; Спр_УслАнБ1241[М24]=""; Спр_УслСчД1241[М24]=""; Спр_УслАнД1241[М24]="";
 InsertFrame(М24,М24+1); SГ2С1241М24[М24]="материальные запасы";                    SГ3С1241М24[М24]="246"; Спр_УслСчБ1241[М24]=""; Спр_УслАнБ1241[М24]=""; Спр_УслСчД1241[М24]=""; Спр_УслАнД1241[М24]="";
 --250
 Спр_УслСчБ1250="ЗАБ.25!"; Спр_УслАнБ1250=""; Спр_УслСчД1250=""; Спр_УслАнД1250="";
 ClearVariable(М25);
 InsertFrame(М25,М25+1); SГ2С1251М25[М25]="основные средства";                      SГ3С1251М25[М25]="251"; Спр_УслСчБ1251[М25]=""; Спр_УслАнБ1251[М25]=""; Спр_УслСчД1251[М25]=""; Спр_УслАнД1251[М25]="";
 InsertFrame(М25,М25+1); SГ2С1251М25[М25]="из них:"+Chr(13)+"недвижимое имущество"; SГ3С1251М25[М25]="252"; Спр_УслСчБ1251[М25]=""; Спр_УслАнБ1251[М25]=""; Спр_УслСчД1251[М25]=""; Спр_УслАнД1251[М25]="";
 InsertFrame(М25,М25+1); SГ2С1251М25[М25]="нематериальные активы";                  SГ3С1251М25[М25]="254"; Спр_УслСчБ1251[М25]=""; Спр_УслАнБ1251[М25]=""; Спр_УслСчД1251[М25]=""; Спр_УслАнД1251[М25]="";
 InsertFrame(М25,М25+1); SГ2С1251М25[М25]="материальные запасы";                    SГ3С1251М25[М25]="256"; Спр_УслСчБ1251[М25]=""; Спр_УслАнБ1251[М25]=""; Спр_УслСчД1251[М25]=""; Спр_УслАнД1251[М25]="";
 --260
 Спр_УслСчБ1260="ЗАБ.26!"; Спр_УслАнБ1260=""; Спр_УслСчД1260=""; Спр_УслАнД1260="";
 ClearVariable(М26);
 InsertFrame(М26,М26+1); SГ2С1261М26[М26]="основные средства";                      SГ3С1261М26[М26]="261"; Спр_УслСчБ1261[М26]=""; Спр_УслАнБ1261[М26]=""; Спр_УслСчД1261[М26]=""; Спр_УслАнД1261[М26]="";
 InsertFrame(М26,М26+1); SГ2С1261М26[М26]="из них:"+Chr(13)+"недвижимое имущество"; SГ3С1261М26[М26]="262"; Спр_УслСчБ1261[М26]=""; Спр_УслАнБ1261[М26]=""; Спр_УслСчД1261[М26]=""; Спр_УслАнД1261[М26]="";
 InsertFrame(М26,М26+1); SГ2С1261М26[М26]="нематериальные активы";                  SГ3С1261М26[М26]="264"; Спр_УслСчБ1261[М26]=""; Спр_УслАнБ1261[М26]=""; Спр_УслСчД1261[М26]=""; Спр_УслАнД1261[М26]="";
 InsertFrame(М26,М26+1); SГ2С1261М26[М26]="материальные запасы";                    SГ3С1261М26[М26]="266"; Спр_УслСчБ1261[М26]=""; Спр_УслАнБ1261[М26]=""; Спр_УслСчД1261[М26]=""; Спр_УслАнД1261[М26]="";
 --
 ТекущаяВерсия=НастрВерсия;
end;

Proc Настр(aСохр:L);
var n,nn,z:i;
var Val:S;
 if НастрGUID="" or aСохр: НастрGUID=GetGUID; fi;
 if Раб.Настр.Начать(SelfBln,0,НастрВерсия,if(aСохр,"",RecordToString(НастрRec)),НастрGUID):
    Раб.Настр.Добавить("ТекущаяВерсия","I");
    for z=1..26 do
     val="1"+Format("%.3D",z*10);
     Раб.Настр.Добавить("Спр_УслСчБ"+val,"S");
     Раб.Настр.Добавить("Спр_УслАнБ"+val,"S");
     Раб.Настр.Добавить("Спр_УслСчД"+val,"S");
     Раб.Настр.Добавить("Спр_УслАнД"+val,"S");
     Раб.Настр.Добавить("М"+Str(z),"I");
     if not (z=6 or z=8 or z=9 or z=13 or z=14 or z=15 or z=16 or z=17 or z=18):
        nn=GetVariableI("М"+Str(z));
        val="1"+Format("%.3D",z*10+1);
        for n=1..nn do
         Раб.Настр.Добавить("SГ2С"+val+"М"+Str(z)+"["+Str(n)+"]","S");
         Раб.Настр.Добавить("SГ3С"+val+"М"+Str(z)+"["+Str(n)+"]","S");
         Раб.Настр.Добавить("Спр_УслСчБ"+val+"["+Str(n)+"]","S");
         Раб.Настр.Добавить("Спр_УслАнБ"+val+"["+Str(n)+"]","S");
         Раб.Настр.Добавить("Спр_УслСчД"+val+"["+Str(n)+"]","S");
         Раб.Настр.Добавить("Спр_УслАнД"+val+"["+Str(n)+"]","S");
        od;
     fi;
    od;
    for z=1171..1173 do
     val=Str(z);
     Раб.Настр.Добавить("Спр_УслСчБ"+val,"S");
     Раб.Настр.Добавить("Спр_УслАнБ"+val,"S");
     if not z=1172:
        Раб.Настр.Добавить("Спр_УслСчД"+val,"S");
        Раб.Настр.Добавить("Спр_УслАнД"+val,"S");
     fi;
    od;
    for z=1181..1182 do
     val=Str(z);
     Раб.Настр.Добавить("Спр_УслСчБ"+val,"S");
     Раб.Настр.Добавить("Спр_УслАнБ"+val,"S");
     Раб.Настр.Добавить("Спр_УслСчД"+val,"S");
     Раб.Настр.Добавить("Спр_УслАнД"+val,"S");
    od;
    if aСохр:
       ТекущаяВерсия=НастрВерсия;
       Раб.Настр.Сохранить;
       НуноСохрНастр=False;
      else
       НастрGUID=Раб.Настр.Загрузить("","");
       if НастрGUID="":
          НастрУмолч;
       fi;
    fi;
 fi;
end;
Proc КонтрольВерсии;
 Настр(False);
 if not ТекущаяВерсия=НастрВерсия:
    НастрУмолч;
    Настр(True);
    Message("Настройка отчета актуализирована");
 fi;
end;

Proc ПрисвоитьТочность;
var cf:S;
var s,c,r,rr:i;
var Obj: Object;
 cf=",##0."+if(Точн<1,"",RepStr("0",Точн))+";;-";
 --Баланс
 if FindObject("sБал",Obj):
    rr=AsInteger(Obj.RowsCount);
    for c=5..18 do
     for r=1..rr do
      if Match(AsString(Obj.Cell(r,c,CellContents,"")),"R*"): Obj.Cell(r,c,CellFormat,cf); fi;
     od;
    od;
 fi;
 --Справка
 for s=1..36 do
  if FindObject("sСпр"+Str(s),Obj):
     rr=AsInteger(Obj.RowsCount);
     for c=5..10 do
      for r=1..rr do
       if Match(AsString(Obj.Cell(r,c,CellContents,"")),"R*"): Obj.Cell(r,c,CellFormat,cf); fi;
      od;
     od;
  fi;
 od;
end;


Proc НастрСправ (Flag:L);
var s,c:i;
var Obj: Object;
 sНастр.Column(1 ,ColVisible,not Flag);
 sНастр.Column(2 ,ColVisible,not Flag);
 sНастр.Column(3 ,ColVisible,not Flag);
 sНастр.Column(4 ,ColVisible,not Flag);
 sНастр.Column(5 ,ColVisible,not Flag);
 sНастр.Column(6 ,ColVisible,not Flag);
 sНастр.Column(7 ,ColVisible,Flag);
 sНастр.Column(8 ,ColVisible,Flag);
 sНастр.Column(9 ,ColVisible,Flag);
 sНастр.Column(10,ColVisible,Flag);
 sНастр.Column(11,ColVisible,Flag);
 sНастр.Column(12,ColVisible,Flag);
 for s=1..37 do
  if FindObject("sСпр"+Str(s),Obj):
     if Flag: --влияет очердность отрисовки, так меньше мелькает
        for c= 5..10 do if c=6 or c=7 or c=9 or c=10: Obj.Column(c,ColVisible,false); else Obj.Column(c,ColVisible,not Flag); fi; od;
        for c=11..12 do Obj.Column(c,ColVisible,Flag);  od;
        for c=13..14 do Obj.Column(c,ColVisible,false);  od;
       else
        for c=13..14 do Obj.Column(c,ColVisible,false);  od;
        for c=11..12 do Obj.Column(c,ColVisible,Flag);  od;
        for c= 5..10 do if c=6 or c=7 or c=9 or c=10: Obj.Column(c,ColVisible,false); else Obj.Column(c,ColVisible,not Flag); fi; od;
     fi;
  fi;
 od;
end;

Proc ОчиститьБал;
var n,nn:i;
 nn=LengthOfArray(Стр_Ном);
 for n=1..nn do
  PutVariableN("RГ3С"+Стр_Ном[n],0);
--  PutVariableN("RГ4С"+Стр_Ном[n],0);
  PutVariableN("RГ5С"+Стр_Ном[n],0);
  PutVariableN("RГ7С"+Стр_Ном[n],0);
--  PutVariableN("RГ8С"+Стр_Ном[n],0);
  PutVariableN("RГ9С"+Стр_Ном[n],0);
 od;
end;

Proc ОчиститьСправ;
 ClearVariable(RГ4С1010); ClearVariable(RГ5С1010); ClearVariable(RГ7С1010); ClearVariable(RГ8С1010);
 ClearVariable(RГ4С1020); ClearVariable(RГ5С1020); ClearVariable(RГ7С1020); ClearVariable(RГ8С1020);
 ClearVariable(RГ4С1030); ClearVariable(RГ5С1030); ClearVariable(RГ7С1030); ClearVariable(RГ8С1030);
 ClearVariable(RГ4С1040); ClearVariable(RГ5С1040); ClearVariable(RГ7С1040); ClearVariable(RГ8С1040);
 ClearVariable(RГ4С1050); ClearVariable(RГ5С1050); ClearVariable(RГ7С1050); ClearVariable(RГ8С1050);
 ClearVariable(RГ4С1060); ClearVariable(RГ5С1060); ClearVariable(RГ7С1060); ClearVariable(RГ8С1060);
 ClearVariable(RГ4С1070); ClearVariable(RГ5С1070); ClearVariable(RГ7С1070); ClearVariable(RГ8С1070);
 ClearVariable(RГ4С1080); ClearVariable(RГ5С1080); ClearVariable(RГ7С1080); ClearVariable(RГ8С1080);
 ClearVariable(RГ4С1090); ClearVariable(RГ5С1090); ClearVariable(RГ7С1090); ClearVariable(RГ8С1090);
 ClearVariable(RГ4С1100); ClearVariable(RГ5С1100); ClearVariable(RГ7С1100); ClearVariable(RГ8С1100);
 ClearVariable(RГ4С1110); ClearVariable(RГ5С1110); ClearVariable(RГ7С1110); ClearVariable(RГ8С1110);
 ClearVariable(RГ4С1120); ClearVariable(RГ5С1120); ClearVariable(RГ7С1120); ClearVariable(RГ8С1120);
 ClearVariable(RГ4С1130); ClearVariable(RГ5С1130); ClearVariable(RГ7С1130); ClearVariable(RГ8С1130);
 ClearVariable(RГ4С1140); ClearVariable(RГ5С1140); ClearVariable(RГ7С1140); ClearVariable(RГ8С1140);
 ClearVariable(RГ4С1150); ClearVariable(RГ5С1150); ClearVariable(RГ7С1150); ClearVariable(RГ8С1150);
 ClearVariable(RГ4С1160); ClearVariable(RГ5С1160); ClearVariable(RГ7С1160); ClearVariable(RГ8С1160);
 ClearVariable(RГ4С1170); ClearVariable(RГ5С1170); ClearVariable(RГ7С1170); ClearVariable(RГ8С1170);
 ClearVariable(RГ4С1180); ClearVariable(RГ5С1180); ClearVariable(RГ7С1180); ClearVariable(RГ8С1180);

                                                   ClearVariable(RГ7С1171); ClearVariable(RГ8С1171);
                                                   ClearVariable(RГ7С1172);
                                                   ClearVariable(RГ7С1173); ClearVariable(RГ8С1173);
                                                   ClearVariable(RГ7С1181); ClearVariable(RГ8С1181);
                                                   ClearVariable(RГ7С1182); ClearVariable(RГ8С1182);

 ClearVariable(RГ4С1190); ClearVariable(RГ5С1190); ClearVariable(RГ7С1190); ClearVariable(RГ8С1190);
 ClearVariable(RГ4С1200); ClearVariable(RГ5С1200); ClearVariable(RГ7С1200); ClearVariable(RГ8С1200);
 ClearVariable(RГ4С1210); ClearVariable(RГ5С1210); ClearVariable(RГ7С1210); ClearVariable(RГ8С1210);
 ClearVariable(RГ4С1220); ClearVariable(RГ5С1220); ClearVariable(RГ7С1220); ClearVariable(RГ8С1220);
 ClearVariable(RГ4С1230); ClearVariable(RГ5С1230); ClearVariable(RГ7С1230); ClearVariable(RГ8С1230);
 ClearVariable(RГ4С1240); ClearVariable(RГ5С1240); ClearVariable(RГ7С1240); ClearVariable(RГ8С1240);
 ClearVariable(RГ4С1250); ClearVariable(RГ5С1250); ClearVariable(RГ7С1250); ClearVariable(RГ8С1250);
 ClearVariable(RГ4С1260); ClearVariable(RГ5С1260); ClearVariable(RГ7С1260); ClearVariable(RГ8С1260);

 ClearVariable(RГ4С1011М1);  ClearVariable(RГ5С1011М1);  ClearVariable(RГ7С1011М1);  ClearVariable(RГ8С1011М1);
 ClearVariable(RГ4С1021М2);  ClearVariable(RГ5С1021М2);  ClearVariable(RГ7С1021М2);  ClearVariable(RГ8С1021М2);
 ClearVariable(RГ4С1031М3);  ClearVariable(RГ5С1031М3);  ClearVariable(RГ7С1031М3);  ClearVariable(RГ8С1031М3);
 ClearVariable(RГ4С1041М4);  ClearVariable(RГ5С1041М4);  ClearVariable(RГ7С1041М4);  ClearVariable(RГ8С1041М4);
 ClearVariable(RГ4С1051М5);  ClearVariable(RГ5С1051М5);  ClearVariable(RГ7С1051М5);  ClearVariable(RГ8С1051М5);
 ClearVariable(RГ4С1071М7);  ClearVariable(RГ5С1071М7);  ClearVariable(RГ7С1071М7);  ClearVariable(RГ8С1071М7);
 ClearVariable(RГ4С1101М10); ClearVariable(RГ5С1101М10); ClearVariable(RГ7С1101М10); ClearVariable(RГ8С1101М10);
 ClearVariable(RГ4С1111М11); ClearVariable(RГ5С1111М11); ClearVariable(RГ7С1111М11); ClearVariable(RГ8С1111М11);
 ClearVariable(RГ4С1121М12); ClearVariable(RГ5С1121М12); ClearVariable(RГ7С1121М12); ClearVariable(RГ8С1121М12);

 ClearVariable(RГ4С1191М19); ClearVariable(RГ5С1191М19); ClearVariable(RГ7С1191М19); ClearVariable(RГ8С1191М19);
 ClearVariable(RГ4С1201М20); ClearVariable(RГ5С1201М20); ClearVariable(RГ7С1201М20); ClearVariable(RГ8С1201М20);
 ClearVariable(RГ4С1211М21); ClearVariable(RГ5С1211М21); ClearVariable(RГ7С1211М21); ClearVariable(RГ8С1211М21);
 ClearVariable(RГ4С1221М22); ClearVariable(RГ5С1221М22); ClearVariable(RГ7С1221М22); ClearVariable(RГ8С1221М22);
 ClearVariable(RГ4С1231М23); ClearVariable(RГ5С1231М23); ClearVariable(RГ7С1231М23); ClearVariable(RГ8С1231М23);
 ClearVariable(RГ4С1241М24); ClearVariable(RГ5С1241М24); ClearVariable(RГ7С1241М24); ClearVariable(RГ8С1241М24);
 ClearVariable(RГ4С1251М25); ClearVariable(RГ5С1251М25); ClearVariable(RГ7С1251М25); ClearVariable(RГ8С1251М25);
 ClearVariable(RГ4С1261М26); ClearVariable(RГ5С1261М26); ClearVariable(RГ7С1261М26); ClearVariable(RГ8С1261М26);
end;

var idxs :i;
Func IncIdxs:i;
  idxs=idxs+1;
  ^idxs;
end;


Proc ЗадатьВыгружаемыеСтроки(ВсеСтроки  :Logical);
var Iter :Integer;
 ClearVariable(ВыгружаемыеСтроки);
 ClearVariable(СтрСправки);
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "010";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "011";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "013";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "014";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "020";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "021";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "023";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "024";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "030";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "031";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "033";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "034";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "040";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "042";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "043";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "050";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "052";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "053";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "060";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "062";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "063";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "070";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "080";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "090";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "091";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "093";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "094";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "100";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "101";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "110";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "120";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "130";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "140";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "150";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "170";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "171";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "172";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "173";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "174";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "175";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "176";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "177";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "178";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "179";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "210";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "211";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "212";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "213";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "230";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "260";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "290";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "291";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "292";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "293";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "310";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "320";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "330";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "331";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "332";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "333";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "370"; 
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "371";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "372";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "373";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "400";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "410";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "470";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "471";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "472";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "473";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "474";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "490";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "510";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "511";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "512";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "513";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "514";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "515";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "516";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "530";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "531";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "532";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "533";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "534";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "535";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "536";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "600";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "620";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "621";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "622";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "623";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "624";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "625";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "690";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "800";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "900";
 if ВсеСтроки:    -- Добавление серых строк
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "103";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "104";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "334";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "335";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "517";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "518";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "519";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "520";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "521";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "522";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "523";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "524";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "525";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "526";
 Iter=Iter+1;ВыгружаемыеСтроки[Iter] = "610";
 SortArray(ВыгружаемыеСтроки,True);
 fi;
 -- Задать строки справки
 Iter=1;     СтрСправки[Iter] = "010";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "1";
 Iter=Iter+1;СтрСправки[Iter] = "011";
 Iter=Iter+1;СтрСправки[Iter] = "020";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "2";
 Iter=Iter+1;СтрСправки[Iter] = "021";
 Iter=Iter+1;СтрСправки[Iter] = "030";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "3";
 Iter=Iter+1;СтрСправки[Iter] = "031";
 Iter=Iter+1;СтрСправки[Iter] = "040";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "4";
 Iter=Iter+1;СтрСправки[Iter] = "041";
 Iter=Iter+1;СтрСправки[Iter] = "050";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "5";
 Iter=Iter+1;СтрСправки[Iter] = "051";
 Iter=Iter+1;СтрСправки[Iter] = "060";
 Iter=Iter+1;СтрСправки[Iter] = "070";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "7";
 Iter=Iter+1;СтрСправки[Iter] = "071";
 Iter=Iter+1;СтрСправки[Iter] = "080";
 Iter=Iter+1;СтрСправки[Iter] = "090";
 Iter=Iter+1;СтрСправки[Iter] = "100";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "10";
 Iter=Iter+1;СтрСправки[Iter] = "101";
 Iter=Iter+1;СтрСправки[Iter] = "110";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "11";
 Iter=Iter+1;СтрСправки[Iter] = "111";
 Iter=Iter+1;СтрСправки[Iter] = "120";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "12";
 Iter=Iter+1;СтрСправки[Iter] = "121";
 Iter=Iter+1;СтрСправки[Iter] = "130";
 Iter=Iter+1;СтрСправки[Iter] = "140";
 Iter=Iter+1;СтрСправки[Iter] = "150";
 Iter=Iter+1;СтрСправки[Iter] = "160";
 Iter=Iter+1;СтрСправки[Iter] = "170";
 Iter=Iter+1;СтрСправки[Iter] = "171";
 Iter=Iter+1;СтрСправки[Iter] = "172";
 Iter=Iter+1;СтрСправки[Iter] = "173";
 Iter=Iter+1;СтрСправки[Iter] = "180";
 Iter=Iter+1;СтрСправки[Iter] = "181";
 Iter=Iter+1;СтрСправки[Iter] = "182";
 Iter=Iter+1;СтрСправки[Iter] = "190";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "19";
 Iter=Iter+1;СтрСправки[Iter] = "191";
 Iter=Iter+1;СтрСправки[Iter] = "200";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "20";
 Iter=Iter+1;СтрСправки[Iter] = "201";
 Iter=Iter+1;СтрСправки[Iter] = "210";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "21";
 Iter=Iter+1;СтрСправки[Iter] = "211";
 Iter=Iter+1;СтрСправки[Iter] = "220";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "22";
 Iter=Iter+1;СтрСправки[Iter] = "221";
 Iter=Iter+1;СтрСправки[Iter] = "230";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "23";
 Iter=Iter+1;СтрСправки[Iter] = "231";
 Iter=Iter+1;СтрСправки[Iter] = "240";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "24";
 Iter=Iter+1;СтрСправки[Iter] = "241";
 Iter=Iter+1;СтрСправки[Iter] = "250";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "25";
 Iter=Iter+1;СтрСправки[Iter] = "251";
 Iter=Iter+1;СтрСправки[Iter] = "260";
 Iter=Iter+1;СтрСправки[Iter] = "M";
 Iter=Iter+1;СтрСправки[Iter] = "26";
 Iter=Iter+1;СтрСправки[Iter] = "261";


end;




15.05.2013Proc ЗадатьСтр_Усл;
 ClearVariable(Стр_Ном);
 ClearVariable(Стр_УслСч);
 ClearVariable(Стр_Знак);
 idxs=0;
 Стр_Ном[IncIdxs]="011"; Стр_УслСч[idxs]="(*.101.1?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="013"; Стр_УслСч[idxs]="(*.101.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="014"; Стр_УслСч[idxs]="(*.101.4?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="021"; Стр_УслСч[idxs]="(*.104.1?.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="023"; Стр_УслСч[idxs]="(*.104.3?.*)&~(*.104.39.*)";                               Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="024"; Стр_УслСч[idxs]="(*.104.4?.*)&~(*.104.49.*)";                               Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="042"; Стр_УслСч[idxs]="(*.102.30.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="043"; Стр_УслСч[idxs]="(*.102.40.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="052"; Стр_УслСч[idxs]="(*.104.39.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="053"; Стр_УслСч[idxs]="(*.104.49.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="070"; Стр_УслСч[idxs]="(*.103.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="080"; Стр_УслСч[idxs]="(*.105.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="091"; Стр_УслСч[idxs]="(*.106.1?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="093"; Стр_УслСч[idxs]="(*.106.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="094"; Стр_УслСч[idxs]="(*.106.4?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="101"; Стр_УслСч[idxs]="(*.107.1?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="103"; Стр_УслСч[idxs]="(*.107.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="104"; Стр_УслСч[idxs]="(*.107.4?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="110"; Стр_УслСч[idxs]="(*.108.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="120"; Стр_УслСч[idxs]="(*.104.5?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="140"; Стр_УслСч[idxs]="(*.109.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="171"; Стр_УслСч[idxs]="(*.201.11.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="172"; Стр_УслСч[idxs]="(*.201.13.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="173"; Стр_УслСч[idxs]="(*.201.21.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="174"; Стр_УслСч[idxs]="(*.201.23.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="175"; Стр_УслСч[idxs]="(*.201.26.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="176"; Стр_УслСч[idxs]="(*.201.27.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="177"; Стр_УслСч[idxs]="(*.201.34.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="178"; Стр_УслСч[idxs]="(*.201.35.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="179"; Стр_УслСч[idxs]="(*.201.22.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="211"; Стр_УслСч[idxs]="(*.204.2?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="212"; Стр_УслСч[idxs]="(*.204.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="213"; Стр_УслСч[idxs]="(*.204.5?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="230"; Стр_УслСч[idxs]="(*.205.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="260"; Стр_УслСч[idxs]="(*.206.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="291"; Стр_УслСч[idxs]="(*.207.1?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="292"; Стр_УслСч[idxs]="(*.207.2?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="293"; Стр_УслСч[idxs]="(*.207.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="310"; Стр_УслСч[idxs]="(*.208.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="320"; Стр_УслСч[idxs]="(*.209.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="331"; Стр_УслСч[idxs]="(*.210.01.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="332"; Стр_УслСч[idxs]="(*.210.02.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="333"; Стр_УслСч[idxs]="(*.210.03.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="334"; Стр_УслСч[idxs]="(*.210.04.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="335"; Стр_УслСч[idxs]="(*.210.05.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="371"; Стр_УслСч[idxs]="(*.215.2?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="372"; Стр_УслСч[idxs]="(*.215.3?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="373"; Стр_УслСч[idxs]="(*.215.5?.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="471"; Стр_УслСч[idxs]="(*.301.1?.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="472"; Стр_УслСч[idxs]="(*.301.2?.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="473"; Стр_УслСч[idxs]="(*.301.3?.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="474"; Стр_УслСч[idxs]="(*.301.4?.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="490"; Стр_УслСч[idxs]="(*.302.??.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="511"; Стр_УслСч[idxs]="(*.303.01.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="512"; Стр_УслСч[idxs]="(*.303.02.*|*.303.06.*)";                                  Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="513"; Стр_УслСч[idxs]="(*.303.03.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="514"; Стр_УслСч[idxs]="(*.303.04.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="515"; Стр_УслСч[idxs]="(*.303.05.*|*.303.12.*|*.303.13.*)";                       Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="516"; Стр_УслСч[idxs]="(*.303.07.*|*.303.08.*|*.303.09.*|*.303.10.*|*.303.11.*)"; Стр_Знак[idxs]=-1;

 Стр_Ном[IncIdxs]="517"; Стр_УслСч[idxs]="(*.303.02.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="518"; Стр_УслСч[idxs]="(*.303.06.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="519"; Стр_УслСч[idxs]="(*.303.05.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="520"; Стр_УслСч[idxs]="(*.303.12.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="521"; Стр_УслСч[idxs]="(*.303.13.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="522"; Стр_УслСч[idxs]="(*.303.07.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="523"; Стр_УслСч[idxs]="(*.303.08.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="524"; Стр_УслСч[idxs]="(*.303.09.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="525"; Стр_УслСч[idxs]="(*.303.10.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="526"; Стр_УслСч[idxs]="(*.303.11.*)";                                             Стр_Знак[idxs]=-1;

 Стр_Ном[IncIdxs]="531"; Стр_УслСч[idxs]="(*.304.01.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="532"; Стр_УслСч[idxs]="(*.304.02.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="533"; Стр_УслСч[idxs]="(*.304.03.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="534"; Стр_УслСч[idxs]="(*.304.04.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="535"; Стр_УслСч[idxs]="(*.304.05.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="536"; Стр_УслСч[idxs]="(*.304.06.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="621"; Стр_УслСч[idxs]="(*.401.10.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="622"; Стр_УслСч[idxs]="(*.401.20.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="623"; Стр_УслСч[idxs]="(*.401.30.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="624"; Стр_УслСч[idxs]="(*.401.40.*)";                                             Стр_Знак[idxs]=-1;
 Стр_Ном[IncIdxs]="625"; Стр_УслСч[idxs]="(*.401.50.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="690"; Стр_УслСч[idxs]="(*.402.??.*)";                                             Стр_Знак[idxs]= 1;
 Стр_Ном[IncIdxs]="800"; Стр_УслСч[idxs]="(*.402.30.*)";                                             Стр_Знак[idxs]= 1;
end;

Proc ПроверкаДисбаланс;
var Msg:String;
var Msg_:LongString;
 Msg="Дисбаланс !";
 if not Round(RГ3С410,Точн)=Round(RГ3С900,Точн): Msg=Раб.Бюджет2005.Объединить(Msg,"По бюджетной деятельности ("+Str(RГ3С410-RГ3С900,Точн)+") на начало периода",Chr(13)); fi;
 if not Round(RГ7С410,Точн)=Round(RГ7С900,Точн): Msg=Раб.Бюджет2005.Объединить(Msg,"По бюджетной деятельности ("+Str(RГ7С410-RГ7С900,Точн)+") на конец периода",Chr(13)); fi;
 if not Round(RГ5С410,Точн)=Round(RГ5С900,Точн): Msg=Раб.Бюджет2005.Объединить(Msg,"По средствам во временном распоряжении ("+Str(RГ5С410-RГ5С900,Точн)+") на начало периода",Chr(13)); fi;
 if not Round(RГ9С410,Точн)=Round(RГ9С900,Точн): Msg=Раб.Бюджет2005.Объединить(Msg,"По средствам во временном распоряжении ("+Str(RГ9С410-RГ9С900,Точн)+") на конец периода",Chr(13)); fi;
 if not Msg="Дисбаланс !":
    Msg_=Msg;
    Message(Msg_,mtWarning);
 fi;
end;

Func MySaldo(Idx:I; vГр:I; vД:D): N;
var res:N;
var УслСч,УслАн:S;
 if Стр_Ном[idx]="172" or Стр_Ном[idx]="531":
    if vГр=3 or vГр=4 or vГр=7 or vГр=8: ^0; fi;
 fi;
 if vГр=3 or vГр=7: УслСч=Стр_УслСч[idx]+"&"+ОбщУслБС;
   |vГр=4 or vГр=8: УслСч=Стр_УслСч[idx]+"&"+ОбщУслВБС;
   |vГр=5 or vГр=9: УслСч=Стр_УслСч[idx]+"&"+ОбщУслСВР;
   |True: Trace("Ошибка! Недопустимый номер графы "+Str(vГр)+" строка="+Стр_Ном[idx]); ^0;
 fi;
 УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслСч,"&");
 УслСч=Раб.Бюджет2005.Объединить(УслСч,УслВал,"'");
 УслАн=ОбщУслАн;
 res=Round(Saldo(УслСч+"{"+УслАн+"}",vД,Показатель)/ЕдИзм,Точн)*Стр_Знак[idx];
 ^res;
end;

Proc РасчетБал;
var ОбщУслКД_,ОбщУслКР_,ОбщУслКИФД_:S;
var n,nn:i;
 ClearTrace(True);
 Refresh(False);
 ОчиститьБал;
 if (not LengthOfArray(Стр_Ном)>0) or Стр_Ном[1]="": ЗадатьСтр_Усл; fi;
 nn=LengthOfArray(Стр_Ном);
 ShowProgress(nn,"Расчет баланса...");
 Try
  Раб.Бюджет2005.РежимМаски="?";
  if not ОбщУслКД="": ОбщУслКД_=Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКД,"КД","КБК",False)+"."+Раб.Бюджет2005.МаскаСч6+"."+Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКД,"КД","КОСГУ",False); else ОбщУслКД_=""; fi;
  if not ОбщУслКР="": ОбщУслКР_=Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКР,"ФКР","КБК",False)+"."+Раб.Бюджет2005.МаскаСч6+"."+Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКР,"ФКР","КОСГУ",False); else ОбщУслКР_=""; fi;
  if not ОбщУслКИФД="": ОбщУслКИФД_=Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКИФД,"КИФД","КБК",False)+"."+Раб.Бюджет2005.МаскаСч6+"."+Раб.Бюджет2005.ВзятьКодКБК(ОбщУслКИФД,"КИФД","КОСГУ",False); else ОбщУслКИФД_=""; fi;
  ОбщУслСч=Раб.Бюджет2005.Объединить(ОбщУслКД_,ОбщУслКР_,"|");
  ОбщУслСч=Раб.Бюджет2005.Объединить(ОбщУслСч,ОбщУслКИФД_,"|");
  if not ОбщУслСч="": ОбщУслСч="("+ОбщУслСч+")"; fi;
  for n=1..nn do
   ProgressPos(n);
   PutVariableN("RГ3С"+Стр_Ном[n],MySaldo(n,3,ДН));
--   PutVariableN("RГ4С"+Стр_Ном[n],MySaldo(n,4,ДН));
   PutVariableN("RГ5С"+Стр_Ном[n],MySaldo(n,5,ДН));
   PutVariableN("RГ7С"+Стр_Ном[n],MySaldo(n,3,ДК));
--   PutVariableN("RГ8С"+Стр_Ном[n],MySaldo(n,4,ДК));
   PutVariableN("RГ9С"+Стр_Ном[n],MySaldo(n,5,ДК));
  od;
 Finally
  CloseProgress;
 end;
 ОтчGUID=РАБ.ПАРАМ_ОТЧ.ОтчGUID;
 Message("Расчет баланса завершен");
 ПроверкаДисбаланс;
end;

Proc Перерасчет(Flag:L);
var Msg:S;
 if ДН>ДК: Message("Дата начада периода превышает дату окончания периода",mtError); Template.Field="ДК"; Exit; fi;
 if ДК=1.1.100: Message("Выберите отчетный период",mtError); Template.Field="ДК"; Exit; fi;
 if ОбщУслБС="": Message("Выберите условие отбора бюджетных средств",mtError); Template.Field="ОбщУслБС"; Exit; fi;
 if ОбщУслВБС="": Message("Выберите условие отбора ",mtError); Template.Field="ОбщУслВБС"; Exit; fi;
 if ОбщУслСВР="": Message("Выберите условие отбора средств во временном распоряжении",mtError); Template.Field="ОбщУслСВР"; Exit; fi;
 if Flag: Msg="Параметры отчета изменились."+Chr(13); else Msg=""; fi;
 if EnqOkCancel(Msg+"Выполнить расчет ?"+chr(13)+"Набранные вручную данные будут утеряны",mtWarning)=CmOk: РасчетБал; fi;
end;

Func MySaldo2(УслСч:S; УслАн:S; vД:D): N;
var res:N;
 if УслСч="": ^0; fi;
 УслСч=Раб.Бюджет2005.Объединить(УслСч,УслВал,"'");
 УслАн=Раб.Бюджет2005.Объединить(УслАн,ОбщУслАн,"&");
 res=Round(Saldo(УслСч+"{"+УслАн+"}",vД,Показатель)/ЕдИзм,Точн);
 НужнаНастрСпр=False;
 ^res;
end;

Proc РасчетСправ;
var n:i;
 НужнаНастрСпр=True;
 ОчиститьСправ;
 --010
 RГ4С1010=MySaldo2(Спр_УслСчБ1010,Спр_УслАнБ1010,ДН); RГ5С1010=MySaldo2(Спр_УслСчД1010,Спр_УслАнД1010,ДН);
 RГ7С1010=MySaldo2(Спр_УслСчБ1010,Спр_УслАнБ1010,ДК); RГ8С1010=MySaldo2(Спр_УслСчД1010,Спр_УслАнД1010,ДК);
 for n=1..М1 do
  RГ4С1011М1[n]=MySaldo2(Спр_УслСчБ1011[n],Спр_УслАнБ1011[n],ДН); RГ5С1011М1[n]=MySaldo2(Спр_УслСчД1011[n],Спр_УслАнД1011[n],ДН);
  RГ7С1011М1[n]=MySaldo2(Спр_УслСчБ1011[n],Спр_УслАнБ1011[n],ДК); RГ8С1011М1[n]=MySaldo2(Спр_УслСчД1011[n],Спр_УслАнД1011[n],ДК);
 od;
 --020
 RГ4С1020=MySaldo2(Спр_УслСчБ1020,Спр_УслАнБ1020,ДН); RГ5С1020=MySaldo2(Спр_УслСчД1020,Спр_УслАнД1020,ДН);
 RГ7С1020=MySaldo2(Спр_УслСчБ1020,Спр_УслАнБ1020,ДК); RГ8С1020=MySaldo2(Спр_УслСчД1020,Спр_УслАнД1020,ДК);
 for n=1..М2 do
  RГ4С1021М2[n]=MySaldo2(Спр_УслСчБ1021[n],Спр_УслАнБ1021[n],ДН); RГ5С1021М2[n]=MySaldo2(Спр_УслСчД1021[n],Спр_УслАнД1021[n],ДН);
  RГ7С1021М2[n]=MySaldo2(Спр_УслСчБ1021[n],Спр_УслАнБ1021[n],ДК); RГ8С1021М2[n]=MySaldo2(Спр_УслСчД1021[n],Спр_УслАнД1021[n],ДК);
 od;
 --030
 RГ4С1030=MySaldo2(Спр_УслСчБ1030,Спр_УслАнБ1030,ДН); RГ5С1030=MySaldo2(Спр_УслСчД1030,Спр_УслАнД1030,ДН);
 RГ7С1030=MySaldo2(Спр_УслСчБ1030,Спр_УслАнБ1030,ДК); RГ8С1030=MySaldo2(Спр_УслСчД1030,Спр_УслАнД1030,ДК);
 for n=1..М3 do
  RГ4С1031М3[n]=MySaldo2(Спр_УслСчБ1031[n],Спр_УслАнБ1031[n],ДН); RГ5С1031М3[n]=MySaldo2(Спр_УслСчД1031[n],Спр_УслАнД1031[n],ДН);
  RГ7С1031М3[n]=MySaldo2(Спр_УслСчБ1031[n],Спр_УслАнБ1031[n],ДК); RГ8С1031М3[n]=MySaldo2(Спр_УслСчД1031[n],Спр_УслАнД1031[n],ДК);
 od;
 --040
 RГ4С1040=MySaldo2(Спр_УслСчБ1040,Спр_УслАнБ1040,ДН); RГ5С1040=MySaldo2(Спр_УслСчД1040,Спр_УслАнД1040,ДН);
 RГ7С1040=MySaldo2(Спр_УслСчБ1040,Спр_УслАнБ1040,ДК); RГ8С1040=MySaldo2(Спр_УслСчД1040,Спр_УслАнД1040,ДК);
 for n=1..М4 do
  RГ4С1041М4[n]=MySaldo2(Спр_УслСчБ1041[n],Спр_УслАнБ1041[n],ДН); RГ5С1041М4[n]=MySaldo2(Спр_УслСчД1041[n],Спр_УслАнД1041[n],ДН);
  RГ7С1041М4[n]=MySaldo2(Спр_УслСчБ1041[n],Спр_УслАнБ1041[n],ДК); RГ8С1041М4[n]=MySaldo2(Спр_УслСчД1041[n],Спр_УслАнД1041[n],ДК);
 od;
 --050
 RГ4С1050=MySaldo2(Спр_УслСчБ1050,Спр_УслАнБ1050,ДН); RГ5С1050=MySaldo2(Спр_УслСчД1050,Спр_УслАнД1050,ДН);
 RГ7С1050=MySaldo2(Спр_УслСчБ1050,Спр_УслАнБ1050,ДК); RГ8С1050=MySaldo2(Спр_УслСчД1050,Спр_УслАнД1050,ДК);
 for n=1..М5 do
  RГ4С1051М5[n]=MySaldo2(Спр_УслСчБ1051[n],Спр_УслАнБ1051[n],ДН); RГ5С1051М5[n]=MySaldo2(Спр_УслСчД1051[n],Спр_УслАнД1051[n],ДН);
  RГ7С1051М5[n]=MySaldo2(Спр_УслСчБ1051[n],Спр_УслАнБ1051[n],ДК); RГ8С1051М5[n]=MySaldo2(Спр_УслСчД1051[n],Спр_УслАнД1051[n],ДК);
 od;
 --060
 RГ4С1060=MySaldo2(Спр_УслСчБ1060,Спр_УслАнБ1060,ДН); RГ5С1060=MySaldo2(Спр_УслСчД1060,Спр_УслАнД1060,ДН);
 RГ7С1060=MySaldo2(Спр_УслСчБ1060,Спр_УслАнБ1060,ДК); RГ8С1060=MySaldo2(Спр_УслСчД1060,Спр_УслАнД1060,ДК);
 --070
 RГ4С1070=MySaldo2(Спр_УслСчБ1070,Спр_УслАнБ1070,ДН); RГ5С1070=MySaldo2(Спр_УслСчД1070,Спр_УслАнД1070,ДН);
 RГ7С1070=MySaldo2(Спр_УслСчБ1070,Спр_УслАнБ1070,ДК); RГ8С1070=MySaldo2(Спр_УслСчД1070,Спр_УслАнД1070,ДК);
 for n=1..М7 do
  RГ4С1071М7[n]=MySaldo2(Спр_УслСчБ1071[n],Спр_УслАнБ1071[n],ДН); RГ5С1071М7[n]=MySaldo2(Спр_УслСчД1071[n],Спр_УслАнД1071[n],ДН);
  RГ7С1071М7[n]=MySaldo2(Спр_УслСчБ1071[n],Спр_УслАнБ1071[n],ДК); RГ8С1071М7[n]=MySaldo2(Спр_УслСчД1071[n],Спр_УслАнД1071[n],ДК);
 od;
 --100
 RГ4С1100=MySaldo2(Спр_УслСчБ1100,Спр_УслАнБ1100,ДН); RГ5С1100=MySaldo2(Спр_УслСчД1100,Спр_УслАнД1100,ДН);
 RГ7С1100=MySaldo2(Спр_УслСчБ1100,Спр_УслАнБ1100,ДК); RГ8С1100=MySaldo2(Спр_УслСчД1100,Спр_УслАнД1100,ДК);
 for n=1..М10 do
  RГ4С1101М10[n]=MySaldo2(Спр_УслСчБ1101[n],Спр_УслАнБ1101[n],ДН); RГ5С1101М10[n]=MySaldo2(Спр_УслСчД1101[n],Спр_УслАнД1101[n],ДН);
  RГ7С1101М10[n]=MySaldo2(Спр_УслСчБ1101[n],Спр_УслАнБ1101[n],ДК); RГ8С1101М10[n]=MySaldo2(Спр_УслСчД1101[n],Спр_УслАнД1101[n],ДК);
 od;
 --110
 RГ4С1110=MySaldo2(Спр_УслСчБ1110,Спр_УслАнБ1110,ДН); RГ5С1110=MySaldo2(Спр_УслСчД1110,Спр_УслАнД1110,ДН);
 RГ7С1110=MySaldo2(Спр_УслСчБ1110,Спр_УслАнБ1110,ДК); RГ8С1110=MySaldo2(Спр_УслСчД1110,Спр_УслАнД1110,ДК);
 for n=1..М11 do
  RГ4С1111М11[n]=MySaldo2(Спр_УслСчБ1111[n],Спр_УслАнБ1111[n],ДН); RГ5С1111М11[n]=MySaldo2(Спр_УслСчД1111[n],Спр_УслАнД1111[n],ДН);
  RГ7С1111М11[n]=MySaldo2(Спр_УслСчБ1111[n],Спр_УслАнБ1111[n],ДК); RГ8С1111М11[n]=MySaldo2(Спр_УслСчД1111[n],Спр_УслАнД1111[n],ДК);
 od;
 --120
 RГ4С1120=MySaldo2(Спр_УслСчБ1120,Спр_УслАнБ1120,ДН); RГ5С1120=MySaldo2(Спр_УслСчД1120,Спр_УслАнД1120,ДН);
 RГ7С1120=MySaldo2(Спр_УслСчБ1120,Спр_УслАнБ1120,ДК); RГ8С1120=MySaldo2(Спр_УслСчД1120,Спр_УслАнД1120,ДК);
 for n=1..М12 do
  RГ4С1121М12[n]=MySaldo2(Спр_УслСчБ1121[n],Спр_УслАнБ1121[n],ДН); RГ5С1121М12[n]=MySaldo2(Спр_УслСчД1121[n],Спр_УслАнД1121[n],ДН);
  RГ7С1121М12[n]=MySaldo2(Спр_УслСчБ1121[n],Спр_УслАнБ1121[n],ДК); RГ8С1121М12[n]=MySaldo2(Спр_УслСчД1121[n],Спр_УслАнД1121[n],ДК);
 od;
 --170
 RГ7С1171=MySaldo2(Спр_УслСчБ1171,Спр_УслАнБ1171,ДК); RГ8С1171=MySaldo2(Спр_УслСчД1171,Спр_УслАнД1171,ДК);
 RГ7С1172=MySaldo2(Спр_УслСчБ1172,Спр_УслАнБ1172,ДК);
 RГ7С1173=MySaldo2(Спр_УслСчБ1173,Спр_УслАнБ1173,ДК); RГ8С1173=MySaldo2(Спр_УслСчД1173,Спр_УслАнД1173,ДК);
 --180
 RГ7С1181=MySaldo2(Спр_УслСчБ1181,Спр_УслАнБ1181,ДК); RГ8С1181=MySaldo2(Спр_УслСчД1181,Спр_УслАнД1181,ДК);
 RГ7С1182=MySaldo2(Спр_УслСчБ1182,Спр_УслАнБ1182,ДК); RГ8С1182=MySaldo2(Спр_УслСчД1182,Спр_УслАнД1182,ДК);
 --190
 RГ4С1190=MySaldo2(Спр_УслСчБ1190,Спр_УслАнБ1190,ДН); RГ5С1190=MySaldo2(Спр_УслСчД1190,Спр_УслАнД1190,ДН);
 RГ7С1190=MySaldo2(Спр_УслСчБ1190,Спр_УслАнБ1190,ДК); RГ8С1190=MySaldo2(Спр_УслСчД1190,Спр_УслАнД1190,ДК);
 for n=1..М19 do
  RГ4С1191М19[n]=MySaldo2(Спр_УслСчБ1191[n],Спр_УслАнБ1191[n],ДН); RГ5С1191М19[n]=MySaldo2(Спр_УслСчД1191[n],Спр_УслАнД1191[n],ДН);
  RГ7С1191М19[n]=MySaldo2(Спр_УслСчБ1191[n],Спр_УслАнБ1191[n],ДК); RГ8С1191М19[n]=MySaldo2(Спр_УслСчД1191[n],Спр_УслАнД1191[n],ДК);
 od;
 --200
 RГ4С1200=MySaldo2(Спр_УслСчБ1200,Спр_УслАнБ1200,ДН); RГ5С1200=MySaldo2(Спр_УслСчД1200,Спр_УслАнД1200,ДН);
 RГ7С1200=MySaldo2(Спр_УслСчБ1200,Спр_УслАнБ1200,ДК); RГ8С1200=MySaldo2(Спр_УслСчД1200,Спр_УслАнД1200,ДК);
 for n=1..М20 do
  RГ4С1201М20[n]=MySaldo2(Спр_УслСчБ1201[n],Спр_УслАнБ1201[n],ДН); RГ5С1201М20[n]=MySaldo2(Спр_УслСчД1201[n],Спр_УслАнД1201[n],ДН);
  RГ7С1201М20[n]=MySaldo2(Спр_УслСчБ1201[n],Спр_УслАнБ1201[n],ДК); RГ8С1201М20[n]=MySaldo2(Спр_УслСчД1201[n],Спр_УслАнД1201[n],ДК);
 od;
 --210
 RГ4С1210=MySaldo2(Спр_УслСчБ1210,Спр_УслАнБ1210,ДН); RГ5С1210=MySaldo2(Спр_УслСчД1210,Спр_УслАнД1210,ДН);
 RГ7С1210=MySaldo2(Спр_УслСчБ1210,Спр_УслАнБ1210,ДК); RГ8С1210=MySaldo2(Спр_УслСчД1210,Спр_УслАнД1210,ДК);
 for n=1..М21 do
  RГ4С1211М21[n]=MySaldo2(Спр_УслСчБ1211[n],Спр_УслАнБ1211[n],ДН); RГ5С1211М21[n]=MySaldo2(Спр_УслСчД1211[n],Спр_УслАнД1211[n],ДН);
  RГ7С1211М21[n]=MySaldo2(Спр_УслСчБ1211[n],Спр_УслАнБ1211[n],ДК); RГ8С1211М21[n]=MySaldo2(Спр_УслСчД1211[n],Спр_УслАнД1211[n],ДК);
 od;
 --220
 RГ4С1220=MySaldo2(Спр_УслСчБ1220,Спр_УслАнБ1220,ДН); RГ5С1220=MySaldo2(Спр_УслСчД1220,Спр_УслАнД1220,ДН);
 RГ7С1220=MySaldo2(Спр_УслСчБ1220,Спр_УслАнБ1220,ДК); RГ8С1220=MySaldo2(Спр_УслСчД1220,Спр_УслАнД1220,ДК);
 for n=1..М22 do
  RГ4С1221М22[n]=MySaldo2(Спр_УслСчБ1221[n],Спр_УслАнБ1221[n],ДН); RГ5С1221М22[n]=MySaldo2(Спр_УслСчД1221[n],Спр_УслАнД1221[n],ДН);
  RГ7С1221М22[n]=MySaldo2(Спр_УслСчБ1221[n],Спр_УслАнБ1221[n],ДК); RГ8С1221М22[n]=MySaldo2(Спр_УслСчД1221[n],Спр_УслАнД1221[n],ДК);
 od;
 --230
 RГ4С1230=MySaldo2(Спр_УслСчБ1230,Спр_УслАнБ1230,ДН); RГ5С1230=MySaldo2(Спр_УслСчД1230,Спр_УслАнД1230,ДН);
 RГ7С1230=MySaldo2(Спр_УслСчБ1230,Спр_УслАнБ1230,ДК); RГ8С1230=MySaldo2(Спр_УслСчД1230,Спр_УслАнД1230,ДК);
 for n=1..М23 do
  RГ4С1231М23[n]=MySaldo2(Спр_УслСчБ1231[n],Спр_УслАнБ1231[n],ДН); RГ5С1231М23[n]=MySaldo2(Спр_УслСчД1231[n],Спр_УслАнД1231[n],ДН);
  RГ7С1231М23[n]=MySaldo2(Спр_УслСчБ1231[n],Спр_УслАнБ1231[n],ДК); RГ8С1231М23[n]=MySaldo2(Спр_УслСчД1231[n],Спр_УслАнД1231[n],ДК);
 od;
 --240
 RГ4С1240=MySaldo2(Спр_УслСчБ1240,Спр_УслАнБ1240,ДН); RГ5С1240=MySaldo2(Спр_УслСчД1240,Спр_УслАнД1240,ДН);
 RГ7С1240=MySaldo2(Спр_УслСчБ1240,Спр_УслАнБ1240,ДК); RГ8С1240=MySaldo2(Спр_УслСчД1240,Спр_УслАнД1240,ДК);
 for n=1..М24 do
  RГ4С1241М24[n]=MySaldo2(Спр_УслСчБ1241[n],Спр_УслАнБ1241[n],ДН); RГ5С1241М24[n]=MySaldo2(Спр_УслСчД1241[n],Спр_УслАнД1241[n],ДН);
  RГ7С1241М24[n]=MySaldo2(Спр_УслСчБ1241[n],Спр_УслАнБ1241[n],ДК); RГ8С1241М24[n]=MySaldo2(Спр_УслСчД1241[n],Спр_УслАнД1241[n],ДК);
 od;
 --250
 RГ4С1250=MySaldo2(Спр_УслСчБ1250,Спр_УслАнБ1250,ДН); RГ5С1250=MySaldo2(Спр_УслСчД1250,Спр_УслАнД1250,ДН);
 RГ7С1250=MySaldo2(Спр_УслСчБ1250,Спр_УслАнБ1250,ДК); RГ8С1250=MySaldo2(Спр_УслСчД1250,Спр_УслАнД1250,ДК);
 for n=1..М25 do
  RГ4С1251М25[n]=MySaldo2(Спр_УслСчБ1251[n],Спр_УслАнБ1251[n],ДН); RГ5С1251М25[n]=MySaldo2(Спр_УслСчД1251[n],Спр_УслАнД1251[n],ДН);
  RГ7С1251М25[n]=MySaldo2(Спр_УслСчБ1251[n],Спр_УслАнБ1251[n],ДК); RГ8С1251М25[n]=MySaldo2(Спр_УслСчД1251[n],Спр_УслАнД1251[n],ДК);
 od;
 --260
 RГ4С1260=MySaldo2(Спр_УслСчБ1260,Спр_УслАнБ1260,ДН); RГ5С1260=MySaldo2(Спр_УслСчД1260,Спр_УслАнД1260,ДН);
 RГ7С1260=MySaldo2(Спр_УслСчБ1260,Спр_УслАнБ1260,ДК); RГ8С1260=MySaldo2(Спр_УслСчД1260,Спр_УслАнД1260,ДК);
 for n=1..М26 do
  RГ4С1261М26[n]=MySaldo2(Спр_УслСчБ1261[n],Спр_УслАнБ1261[n],ДН); RГ5С1261М26[n]=MySaldo2(Спр_УслСчД1261[n],Спр_УслАнД1261[n],ДН);
  RГ7С1261М26[n]=MySaldo2(Спр_УслСчБ1261[n],Спр_УслАнБ1261[n],ДК); RГ8С1261М26[n]=MySaldo2(Спр_УслСчД1261[n],Спр_УслАнД1261[n],ДК);
 od;
 if not НужнаНастрСпр: Message("Расчет справки завершен"); fi;
end;
Proc ЗаполнитьРекв(Rec: Record);
 if Rec=nil: Rec=Раб.Бюджет2005.НашРекв; fi;
 if not Rec=nil:
    Учреждение=GetCardFieldS('Контрагент',Rec,"ПолнИмя");
    ОКПО=GetCardFieldS('Контрагент',Rec,"ОКПО");
    selfКБП=GetCardFieldS('Контрагент',Rec,"РПО_КБП");    
    ОКТМО=GetCardFieldS('Контрагент',Rec,"ОКТМО");
    ФИОРук=GetCardFieldS('Контрагент',Rec,"ФИОРук");
    ФИОБух=GetCardFieldS('Контрагент',Rec,"ФИОБух");
 fi;
end;
--Процедуры и функции -------------                           
--
--
--Обработчики событий полей шаблона-----
Func ПарамОтч_onEnter(FieldName: String; Iter: Integer): logical;
var Flag:L;
 Flag=РАБ.ПАРАМ_ОТЧ.Взять(FieldName+"_",0);
 ОКПО=ОКПО; --Вызываем обновление перменных бланка!!!!
 if Flag or not ОтчGUID=РАБ.ПАРАМ_ОТЧ.ОтчGUID: ПрисвоитьТочность; Перерасчет(True); fi;
 Return False;
end;

Func Учреждение_OnEnter(FieldName: String; Iter: Integer): logical;
var Rec:Record;
 Rec=OpenCardFile('Контрагент','Наше');
 if rec=nil: ^False; fi;
 ЗаполнитьРекв(Rec);
 ^False;
end;

Func ВидБаланса_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var n:i;
 Template.HideEditor(False);
 ClearVariable(Buf);
 Buf[1]="разделительный";
 Buf[2]="ликвидационный";
 n=Alternate("Вид баланса",Buf,-1,1,12);
 if not n=0:
    ВидБаланса=Buf[n];
 fi;
 Return Cur;
end;

Func РасшифрСтр_onLookUp(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var КодСтр,УслСч:S;
var idx:I;
 Template.HideEditor(False);
 КодСтр=AsString(sБал.Cell(Row,Col-1,CellText,''));
 idx=SearchInArray(Стр_Ном,КодСтр,True);
 if idx=-1: Message("Детализация для строки "+КодСтр+" не найдена",mtError); ^Cur; fi;
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.ВерсияБал="191Н_0503230";
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.СтрокаБал=КодСтр;
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.СтрМинус=(Стр_Знак[SearchInArray(Стр_Ном,КодСтр)] = -1);
 УслСч=Стр_УслСч[idx]+"&"+ОбщУслБС;
 УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслСч,"&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчБС=УслСч;
 УслСч=Стр_УслСч[idx]+"&"+ОбщУслВБС;
 УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслСч,"&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчВБС=УслСч;
 УслСч=Стр_УслСч[idx]+"&"+ОбщУслСВР;
 УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслСч,"&");
 РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.УслСчСВР=УслСч;
 OpenBlank('РАБ.ВСПОМ.Ф0503130_ДЕТАЛ',true);
 Return Cur;
end;

Func Расшифр_onLookUp(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var Field,УслСч,УслАн,Rpt,КодСтр:S;
var Гр,Idx:I;
var ДН_,ДК_:D;
 Template.HideEditor(False);
 if not LengthOfArray(Стр_Ном)>0: ЗадатьСтр_Усл; fi;
 Field=AsString(Template.Field);
 КодСтр=SubStr(Field,5,3);
 Гр=Int(SubStr(Field,3,1));
 idx=SearchInArray(Стр_Ном,КодСтр,True);
 if idx=-1: Message("Детализация для строки "+КодСтр+" не найдена",mtError); ^Cur; fi;
 УслСч=Раб.Бюджет2005.Объединить(Стр_УслСч[idx],ОбщУслСч,"&");
 УслАн=ОбщУслАн;
 if Гр=3 or Гр=7: УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслБС,"&");
   |Гр=4 or Гр=8: УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслВБС,"&");
   |Гр=5 or Гр=9: УслСч=Раб.Бюджет2005.Объединить(УслСч,ОбщУслСВР,"&");
 fi;
 if Гр=3 or Гр=4 or Гр=5: ДН_=1.1.100; ДК_=ДН;
   |Гр=7 or Гр=8 or Гр=9: ДН_=ДН; ДК_=ДК;
 fi;
 Rpt='"'+PlanVar("Общие")+'\Отчеты\Ф0503130.lst"."Расшифр';
 if УслВал="EUR": Rpt=Rpt+' ('+УслВал+')"';
   |УслВал="USD": Rpt=Rpt+' ('+УслВал+')"';
   |УслВал="РУБ": Rpt=Rpt+' ('+УслВал+')"';
   |True:         Rpt=Rpt+'"';
 fi;
 Report(Rpt,ДН_,ДК_,УслСч,УслАн);
 Return Cur;
end;

Func ПоУмолчНастрСпр_OnEnter(FieldName: String; Iter: Integer): logical;
 if not НужнаНастрСпр:
    if EnqOkCancel("Восстановить настройку справки по умолчанию ?",mtWarning)=cmCancel: ^False; fi;
 fi;
 НастрУмолч;
 if not НужнаНастрСпр:
    Message("Настройка по умолчанию восстановлена");
 fi;
 Return False;
end;
Func РасшифрСпр_onLookUp(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var Field,УслСч,УслАн,Rpt,Гр,КодСтр,ВД,tmp:S;
var Iter:I;
var ДН_,ДК_:D;
 Template.HideEditor(False);
 if НужнаНастрСпр: ПоУмолчНастрСпр_OnEnter("НужнаНастрСпр",0); fi;
 Field=AsString(Template.Field);
 Iter=AsInteger(Template.Frame);
 КодСтр=SubStr(Field,5,4);
 Гр=SubStr(Field,3,1);
 if Гр="4" or Гр="7": ВД="Б";
   |Гр="5" or Гр="8": ВД="Д";
   |True:  Message("Детализация для строки="+SubStr(КодСтр,2,255)+", графа "+Гр+" не найдена",mtError); ^Cur;
 fi;
 tmp=ВД+КодСтр+"["+Str(Iter)+"]";
 УслСч=GetVariableS("Спр_УслСч"+tmp);
 if УслСч="": Message("Нет данных для расшифровки"); ^Cur; fi;
 УслАн=GetVariableS("Спр_УслАн"+tmp);
 УслАн=Раб.Бюджет2005.Объединить(УслАн,ОбщУслАн,"&");
 if Гр="4" or Гр="5": ДН_=1.1.100; ДК_=ДН;
   |Гр="7" or Гр="8": ДН_=ДН; ДК_=ДК;
 fi;
 Rpt='"'+PlanVar("Общие")+'\Отчеты\Ф0503130.lst"."Расшифр';
 if УслВал="EUR": Rpt=Rpt+' ('+УслВал+')"';
   |УслВал="USD": Rpt=Rpt+' ('+УслВал+')"';
   |УслВал="РУБ": Rpt=Rpt+' ('+УслВал+')"';
   |True:         Rpt=Rpt+'"';
 fi;
 Report(Rpt,ДН_,ДК_,УслСч,УслАн);
 Return Cur;
end;

Func РасчетСпр_OnEnter(FieldName: String; Iter: Integer): logical;
 if ДН>ДК: Message("Дата начада периода превышает дату окончания периода",mtError); Template.Field="ДК"; ^False; fi;
 if ДК=1.1.100: Message("Выберите отчетный период",mtError); Template.Field="ДК"; ^False; fi;
 РасчетСправ;
 if НужнаНастрСпр:
    ПоУмолчНастрСпр_OnEnter("НужнаНастрСпр",0);
    РасчетСправ;
 fi;
 Return False;
end;

Func ОчистСпр_OnEnter(FieldName: String; Iter: Integer): logical;
 if EnqOkCancel("Справка будетет очищена. Вы уверены ?",mtWarning)=cmOk: ОчиститьСправ; fi;
 Return False;
end;

Func ОткрНастрСпр_OnEnter(FieldName: String; Iter: Integer): logical;
 НастрСправ(True);
 Настр(False);
 Return False;
end;

Func ЗагрузНастрСпр_OnEnter(FieldName: String; Iter: Integer): logical;
var Rec:Record;
 if EnqOkCancel("Текущая настройка будет утеряна, продолжить ?",mtWarning)=cmCancel: ^False; fi;
 Rec=Раб.Настр.Выбрать(SelfBln,0,-1,"");
 if not rec=nil:
    НастрRec=rec;
    Настр(False);
    Message("Настройка загружена");
 fi;
 Return False;
end;
Func ЗакрНастрСпр_OnEnter(FieldName: String; Iter: Integer): logical;
 Настр(True);
 НастрСправ(False);
 Return False;
end;

Func Спр_УслСч_OnVerify(FieldName: String; Iter: Integer; Value:String): logical;
var Res: N;
 Try
  Res=Saldo(Value,1.1.100);
 Except
  Raise;
  ^False;
 end;
 Return True;
end;

Func Спр_УслСч_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var FieldName:S;
var Iter:I;
 Iter=AsInteger(Template.Frame);
 FieldName=AsString(Template.Field)+"["+Str(Iter)+"]";
 Cur=AccountElection("");
 if Cur="": Template.HideEditor(False); ^Cur; fi;
 Cur=Раб.Бюджет2005.Объединить_Диалог(GetVariableS(FieldName),Cur,"|=ИЛИ;&~=И ИСКЛЮЧИТЬ;_=ЗАМЕНИТЬ","_");
 if Раб.Бюджет2005.HideEditor: Template.HideEditor(False); PutVariableS(FieldName,Cur); fi;
 Return  Cur;
end;

Func Спр_УслАн_OnVerify(FieldName: String; Iter: Integer; Value:String): logical;
var Res: N;
 Try
  Res=Turn("{"+Value+"}",1.1.100,1.1.100);
 Except
  Raise;
  ^False;
 end;
 Return True;
end;

Func Спр_УслАн_OnLookup(Sect: String; Row: Integer; Col: Integer; Cur: String): String;
var FieldName,tmp:S;
var Iter:I;
 Iter=AsInteger(Template.Frame);
 FieldName=AsString(Template.Field)+"["+Str(Iter)+"]";
 tmp=SubStr(FieldName,1,7)+"Сч"+SubStr(FieldName,10,255);
 tmp=GetVariableS(tmp);
 if not tmp="": tmp=Раб.Бюджет2005.СписокСправ(tmp,0,""); fi;
 if not tmp="": tmp="("+tmp+")|~*.*"; fi;
 Cur=AnaElection(tmp);
 if Cur="": Template.HideEditor(False); ^Cur; fi;
 Cur=Раб.Бюджет2005.Объединить_Диалог(GetVariableS(FieldName),Cur,"&=И;|=ИЛИ;&~=И ИСКЛЮЧИТЬ;_=ЗАМЕНИТЬ","_");
 if Раб.Бюджет2005.HideEditor: Template.HideEditor(False); PutVariableS(FieldName,Cur); fi;
 Return Cur;
end;

Proc SГ2С1xx1Мx_OnExit(FieldName: String; Iter: Integer);
 НуноСохрНастр=True;
end;

Proc sСпрx_AfterDelete(SectName: String);
 НуноСохрНастр=True;
end;
--Обработчики событий полей шаблона-----
--
--Обработчики событий объектов шаблона-----
Proc btnРасчет_OnClick(Sender: String);
 Перерасчет(False);
end;

Proc btnПечать_OnClick(Sender: String);
  Раб.Настр_Печать.Prn("","","ТББ.ОТЧЕТЫ.БАЛАНС.191Н.0503230.000.cfg","",1);
end;

Proc btnОчистить_OnClick(Sender: String);
  if EnqOkCancel("Баланс будет очищен. Вы уверены ?",mtWarning)=cmOk: ОчиститьБал; fi;
end;

Proc btnДетализация_OnClick(Sender: String);
  РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.ВерсияБал="191Н_0503130";
  РАБ.ВСПОМ.Ф0503130_ДЕТАЛ.СтрокаБал="";
  OpenBlank("РАБ.ВСПОМ.Ф0503130_ДЕТАЛ",true);
end;

Proc btnЗакрыть_OnClick(Sender: String);
  Close;
end;
--Обработчики событий объектов шаблона-----
--
--
--Обработчики событий шаблона -----
Proc OnOpen(Create: Logical);
 КонтрольВерсии;
 if Учреждение="": ЗаполнитьРекв(nil); fi;
 Раб.Настр_Печать.Cfg("",SelfCfg);
 ЗадатьСтр_Усл;
end;

Proc AfterOpen(Destroy: Logical);
 ПрисвоитьТочность;
 НастрСправ(False);
end;

Proc OnClose(Destroy: Logical);
 if НуноСохрНастр:
    Настр(True);
 fi;
end;
--Обработчики событий шаблона -----

Func ЕстьДанныеДляВыгрузки :Logical;
 if (Abs(RГ6С410)+Abs(RГ10С410))>0.00: ^True; fi;
 if (Abs(RГ6С900)+Abs(RГ10С900))>0.00: ^True; fi;
 ^False;
end;
Proc ЗакрытьФайлПоОшибке(numberFile:Integer; FlagCreate:Logical; RESnameFile:String);
 if FlagCreate:
   TextFileClose(numberFile);
   Message("Ошибка записи в файл '"+RESnameFile+"'!", mtError);
 else
   Message("Ошибка создания файла '"+RESnameFile+"'!", mtError);
 fi;
end;


--
Func УдалитьЗапрещенныйСимволВпозиции(valStr:String; delPos:Integer) :String;
var tmpFrst, tmpLast, RES :String;
var len :Integer;
 RES=""; tmpFrst=""; tmpLast="";
 len=Length(valStr);
 if delPos<1: delPos=1; fi;
 if delPos>len or valStr="": ^valStr; fi;
 if delPos>1:   tmpFrst=SubStr(valStr,        1, delPos-1  ); else tmpFrst=""; fi;
 if delPos<len: tmpLast=SubStr(valStr, delPos+1, len-delPos); else tmpLast=""; fi;
 RES=tmpFrst+tmpLast;
 ^RES;
end;

Func ПроверитьНаЗапрещенныеСимволы(Value:String) :String;
var num, ii :Integer;
 ClearVariable(Buf);
 Buf[01]=Chr(010); -- перевод строки
 Buf[02]=Chr(013); -- возврат каретки
 Buf[03]=Chr(034); -- стандартная кавычка
 Buf[04]=Chr(035); -- #
 Buf[05]=Chr(039); -- апостроф
 Buf[06]=Chr(096); -- акцент (ударение)
 Buf[07]=Chr(124); -- вертикальная черта
 Buf[08]=Chr(145); -- одинарная кавычка открывающая
 Buf[09]=Chr(146); -- одинарная кавычка закрывающая
 Buf[10]=Chr(147); -- двойная кавычка узкая открывающая
 Buf[11]=Chr(148); -- двойная кавычка узкая закрывающая
 Buf[12]=Chr(166); -- вертикальная черта прерывистая
 Buf[13]=Chr(171); -- двойная кавычка широкая открывающая
 Buf[14]=Chr(187); -- двойная кавычка широкая закрывающая
 Value=Trim(Value);
 for ii=1 to LengthOfArray(Buf) do
   num=Pos(Buf[ii], Value);
   while num>0 do 
     Value=УдалитьЗапрещенныйСимволВпозиции(Value, num);
     num=Pos(Buf[ii], Value);
   od;
 od;
 ^Value;
end;



Func СформироватьИмяФайла(CФ:String; VФ:String; RD:Date; Архив:Logical; CВ:String) :String;
var ok1, ok2, mm :Integer;
var RES, PФ :String;
 RES="";
 ok1=Length(Trim(CФ)); --код формы
 ok2=Length(Trim(VФ)); --версия формы
 if (ok1=3 or ok1=4) and ok2=2:
   mm=Mon(RD);
   if mm=1                  : PФ="Y";
   |  mm=4 or mm=7 or mm=10 : PФ="Q";
   else                       PФ="M";
   fi;
   if Архив: 
     if Length(CВ)=3: RES=CВ+"_"+"01"+Format("%.2d", mm)+Format("%.2d", Year(RD)-2000)+"_"+CФ+"_"+PФ+"_"+VФ+".ZIP"; fi;
   else
     RES=CФ+PФ+VФ+".TXT";
   fi;
 fi;
 ^RES;
end;   

Func ПроверитьВыгружаемуюСтрокуР1(ВС : string) :Integer;
var res: integer;
ВС = SubStr(ВС,Pos('|',ВС),Length(ВС));
if ВС = "|0|0|0|0|0|0|0|0|":
res = 0;
else
res = 1;
fi;
^res;
end;

Func ПроверитьВыгружаемуюСтрокуР2(ВС : string) :Integer;
var res: integer;
ВС = SubStr(ВС,7,Length(ВС));
if ВС = "|0|0|0|0|0|0|":
res = 0;
else
res = 1;
fi;
^res;
end;


Func ЗаписатьРаздел1(FS: integer; ВыгружатьВсе :Logical) :String;
var num: integer;
var RES :String;
var SUM :Numeric;
var N: Numeric;
var Name :String;
var li: integer;
var i: Integer;
ЗадатьВыгружаемыеСтроки(ВыгружатьВсе);
num = LengthOfArray(ВыгружаемыеСтроки);
if num>0:
for li=1 to num do
RES="";
RES=ВыгружаемыеСтроки[li] +"|";
        for i=3 to 10 do
                Name="RГ"+Str(i)+"С"+ВыгружаемыеСтроки[li];
                N = GetVariableN(Name);
                SUM=N;
         RES=RES+if(round(SUM,Точн)<>0, Str(SUM,Точн), "0")+"|";
        od;
if ПроверитьВыгружаемуюСтрокуР1(RES) = 1: TextFileWriteLn(FS, RES); fi;
od;
fi;
^RES;
end;


Func ДобавитьСтрокуСпр(FS :integer; ZS: string; kod :string) :String;
var num: integer;
var RES :String;
var SUM :Numeric;
var N: Numeric;
var Name :String;
var i : integer;
if (ZS = "17") or (ZS = "18") :
RES = RES+ZS+"|"+kod+"|0|0|0|";
        for i=7 to 9 do
                Name="RГ"+Str(i)+"С1"+kod;
                if Name = "RГ8С1172":
                   RES=RES+"0|";
                else
                   N = GetVariableN(Name);
                   SUM=N;
                   RES=RES+if(round(SUM,Точн)<>0, Str(SUM,Точн), "0")+"|";
                fi;
        od;
if ПроверитьВыгружаемуюСтрокуР2(RES) = 1: TextFileWriteLn(FS, RES); fi;
else
RES = RES+ZS+"|"+kod+"|";
        for i=4 to 9 do
                Name="RГ"+Str(i)+"С1"+kod;
                N = GetVariableN(Name);
                SUM=N;
        RES=RES+if(round(SUM,Точн)<>0, Str(SUM,Точн), "0")+"|";
        od;
if ПроверитьВыгружаемуюСтрокуР2(RES) = 1: TextFileWriteLn(FS, RES); fi;
fi;
^RES;
end;



Func ДобавитьСтрокуСпр1(FS :integer; ZS: string; kod: string; leight :integer; mas :string):String;
var num: integer;
var RES :String;
var SUM :Numeric;
var N: Numeric;
var Name :String;
var i : integer;
var li :integer;
var kod1 : string;
for li = 1 to leight do
RES="";
kod1 = "SГ3С1" + kod+mas+"["+str(li)+"]";
kod1 = GetVariableS(kod1);
if kod1<>"":
RES = RES+ZS+"|"+kod1+"|";
        for i=4 to 9 do
                Name="RГ"+Str(i)+"С1"+kod+mas+"["+str(li)+"]";
                N = GetVariableN(Name);
                SUM=N;
        RES=RES+if(round(SUM,Точн)<>0, Str(SUM,Точн), "0")+"|";
        od;
if ПроверитьВыгружаемуюСтрокуР2(RES) = 1: TextFileWriteLn(FS, RES); fi;
fi;
od;
^RES;
end;


Proc Экспорт_TXT_ФК(Архивировать:Logical; ВыгружатьВсе :Logical);
var Путь, ПутьАрх, nameFile, nameFileArc, Value, КБК :String;
var FS, num, ii, mm :Integer;
var FlagCreate :Logical;

 if Year(ДК)<2000: Message("Дата отчета должна быть позже 2000 года.", mtWarning); Template.Field="ДК"; Exit; fi;
 if Day(ДК)<>1: Message("Для выгрузки в файл требуется отчет расчитанный на '1' число.", mtWarning); Template.Field="ДК"; Exit; fi;
 if not ЕстьДанныеДляВыгрузки: Message("Нет данных для выгрузки.^MПредварительно сделайте расчет формы.", mtWarning); Template.Object="btnРасчет"; Exit; fi;
 if not Length(ПроверитьНаЗапрещенныеСимволы(ГлаваБК))=3: Message("Не заполнено 'Глава по БК' учреждения", mtWarning); Template.Field="Учреждение"; Exit; fi;
 --if Trim(ОКТМО)="": Message("Не заполнено 'ОКТМО' учреждения", mtWarning); Template.Field="Учреждение"; Exit; fi;
 --
 if ChooseFolder(Путь, "Выберите папку для сохранения файла выгрузки...")=cmOk:
   nameFile=РАБ.БЮДЖЕТ2005.Контроль2Слэш(Путь)+СформироватьИмяФайла("230r", "01", ДК, False, "");
   mm=Mon(ДК);
   Try
     Try if ExistFile(nameFile): DeleteFile(nameFile); fi; Except end;
     FlagCreate=False;
     FS=TextFileCreate(nameFile);
     FlagCreate=True;
     --Заголовочная часть
     TextFileWriteLn(FS, "#%");
     TextFileWriteLn(FS, "КОДФ=230r");
     TextFileWriteLn(FS, "ПРД="+if(mm=1: "5" | mm=4 or mm=7 or mm=10: "4", "3"));
     TextFileWriteLn(FS, "РДТ="+DateToString(ДК));
     TextFileWriteLn(FS, "ВИД=3");   -- всегда "3"
     TextFileWriteLn(FS, "ИСТ="+Trim(ГлаваБК));
     TextFileWriteLn(FS, "#");
     -- Содержательная часть 1 раздела
     TextFileWriteLn(FS, "#@");
     TextFileWriteLn(FS, "ТБ=01");
     TextFileWriteLn(FS, "#$");
     value=ЗаписатьРаздел1(FS,ВыгружатьВсе);
     TextFileWriteLn(FS, "#");
     TextFileWriteLn(FS, "#@");
     TextFileWriteLn(FS, "ТБ=02");
     TextFileWriteLn(FS, "#$");
    ---2 часть (справка)
      value = ДобавитьСтрокуСпр(FS,"01","010");
      ii = М1;
      ДобавитьСтрокуСпр1 (FS,"01","011",ii,"М1");

      value = ДобавитьСтрокуСпр(FS,"02","020");
      ii = М2;
      ДобавитьСтрокуСпр1 (FS,"02","021",ii,"М2");

      value = ДобавитьСтрокуСпр(FS,"03","030");
      ii = М3;
      ДобавитьСтрокуСпр1 (FS,"03","031",ii,"М3");

      value = ДобавитьСтрокуСпр(FS,"04","040");
      ii = М4;
      ДобавитьСтрокуСпр1 (FS,"04","041",ii,"М4");

      value = ДобавитьСтрокуСпр(FS,"05","050");
      ii = М5;
      ДобавитьСтрокуСпр1 (FS,"05","051",ii,"М5");

      value = ДобавитьСтрокуСпр(FS,"06","060");

      value = ДобавитьСтрокуСпр(FS,"07","070");
      ii = М7;
      ДобавитьСтрокуСпр1 (FS,"07","071",ii,"М7");

      value = ДобавитьСтрокуСпр(FS,"08","080");

      value = ДобавитьСтрокуСпр(FS,"09","090");

      value = ДобавитьСтрокуСпр(FS,"10","100");
      ii = М10;
      ДобавитьСтрокуСпр1 (FS,"10","101",ii,"М10");

      value = ДобавитьСтрокуСпр(FS,"11","110");
      ii = М11;
      ДобавитьСтрокуСпр1 (FS,"11","111",ii,"М11");

      value = ДобавитьСтрокуСпр(FS,"12","120");
      ii = М12;
      ДобавитьСтрокуСпр1 (FS,"12","121",ii,"М12");

      value = ДобавитьСтрокуСпр(FS,"13","130");
      value = ДобавитьСтрокуСпр(FS,"14","140");
      value = ДобавитьСтрокуСпр(FS,"15","150");
      value = ДобавитьСтрокуСпр(FS,"16","160");
      value = ДобавитьСтрокуСпр(FS,"17","171");
      value = ДобавитьСтрокуСпр(FS,"17","172");
      value = ДобавитьСтрокуСпр(FS,"17","173");
      value = ДобавитьСтрокуСпр(FS,"18","180");
      value = ДобавитьСтрокуСпр(FS,"18","181");
      value = ДобавитьСтрокуСпр(FS,"18","182");

      value = ДобавитьСтрокуСпр(FS,"19","190");
      ii = М19;
      ДобавитьСтрокуСпр1 (FS,"19","191",ii,"М19");

      value = ДобавитьСтрокуСпр(FS,"20","200");
      ii = М20;
      ДобавитьСтрокуСпр1 (FS,"20","201",ii,"М20");

      value = ДобавитьСтрокуСпр(FS,"21","210");
      ii = М21;
      ДобавитьСтрокуСпр1 (FS,"21","211",ii,"М21");

      value = ДобавитьСтрокуСпр(FS,"22","220");
      ii = М22;
      ДобавитьСтрокуСпр1 (FS,"22","221",ii,"М22");

      value = ДобавитьСтрокуСпр(FS,"23","230");
      ii = М23;
      ДобавитьСтрокуСпр1 (FS,"23","231",ii,"М23");

      value = ДобавитьСтрокуСпр(FS,"24","240");
      ii = М24;
      ДобавитьСтрокуСпр1 (FS,"24","241",ii,"М24");

      value = ДобавитьСтрокуСпр(FS,"25","250");
      ii = М25;
      ДобавитьСтрокуСпр1 (FS,"25","251",ii,"М25");

      value = ДобавитьСтрокуСпр(FS,"26","260");
      ii = М26;
      ДобавитьСтрокуСпр1 (FS,"26","261",ii,"М26");

     TextFileWriteLn(FS, "#");
    -- Заключительная часть
     TextFileWriteLn(FS, "#&");
     TextFileWriteLn(FS, "Руководитель="+ПроверитьНаЗапрещенныеСимволы(ФИОРук));
     TextFileWriteLn(FS, "Гл. бухгалтер="+ПроверитьНаЗапрещенныеСимволы(ФИОБух));

     TextFileWriteLn(FS, "#");
     TextFileWriteLn(FS, "#~");
     TextFileWriteLn(FS, "ППО=Турбо Бухгалтер 6.9 - "+ПроверитьНаЗапрещенныеСимволы(ВЕРСИЯ.Сборка_)+" "+ПроверитьНаЗапрещенныеСимволы(ВЕРСИЯ.ДатаСборки_));
     TextFileWriteLn(FS, "#");
     TextFileWriteLn(FS, "##");
      TextFileClose(FS);
     if ExistFile(nameFile): 
       if Архивировать:
         ClearTrace(True);
         ПутьАрх=РАБ.БЮДЖЕТ2005.Контроль2Слэш(PlanVar("STD_RPO"))+"\Bin\7z.exe";
         if ExistFile(ПутьАрх):
           nameFileArc=Путь+СформироватьИмяФайла("230r", "01", ДК, True, ГлаваБК);
           Try if ExistFile(nameFileArc): DeleteFile(nameFileArc); fi; Except end;
           ExecuteProgram(ПутьАрх+" a -y -tzip "+nameFileArc+" "+nameFile, True);
         else
           Trace("Не найден файл-архиватор. Архивация выгрузки невозможна.");
         fi;
       fi;
       if EnqOkCancel("Открыть созданный файл выгрузки?", mtInformation)=cmOK: OpenEditor(nameFile); fi;
     fi;
   Except
      ЗакрытьФайлПоОшибке(FS, FlagCreate, nameFile);
   Raise;
   end;
 fi; --ChooseFolder
end;


proc формироватьXML;

var i,j:I;
var idx:I;
var Name :String;
var num: Integer;
var NameStr: String;
var im: String;

ЗадатьСтр_Усл;
  Раб.XML.ДОБАТТР("КодФормы","0503230");
  Раб.XML.ДОБАТТР("Код","ВО.1026");--идентификатор в сводной отчетности
  РАБ.XML.ОткрытьТэгBuf("ВидОтчета",false);
  РАБ.XML.ОткрытьТэг("Отчет",'Отчетность=О.0001#Учреждение=К.0001');
    Раб.XML.ФормированиеТэга("КОД","0001",False,False,1);
  Раб.XML.ФормированиеТэга("ИМЯ","Разделительный(ликвидационный) баланс главного распорядителя, получателя буджетных средств)",False,False,1);
  Раб.XML.ФормированиеТэга("КОММЕНТАРИЙ","",False,False,1);
  Раб.XML.ФормированиеТэга("ВЕРСИЯФОРМЫ","0",False,False,1);
  Раб.XML.ФормированиеТэга("ДАТА",DateToString(ДК),False,False,1);
  Раб.XML.ФормированиеТэга("НАЧАЛОПЕРИОДА",DateToString(ДН),False,False,1);
  Раб.XML.ФормированиеТэга("КОНЕЦПЕРИОДА",DateToString(ДК),False,False,1);
  Раб.XML.ФормированиеТэга("НАИМБЮДЖ","",False,False,1);
  Раб.XML.ФормированиеТэга("ВИДДЕЯТЕЛЬНОСТИ","",False,False,1);
  Раб.XML.ФормированиеТэга("ЕДИЗМ",Str(ЕдИзм),False,False,1);
  Раб.XML.ФормированиеТэга("ТОЧН",Str(Точн),False,False,1);
  Раб.XML.ФормированиеТэга("ОКЕИ",ОКЕИ,False,False,1);
  Раб.XML.ФормированиеТэга("ОКТМО",ОКТМО,False,False,1);
  Раб.XML.ФормированиеТэга("ПОКАЗАТЕЛЬ",Показатель,False,False,1);
  Раб.XML.ФормированиеТэга("ИМЯРУК",ФИОРук,False,False,1);
  Раб.XML.ФормированиеТэга("ИМЯБУХ",ФИОБух,False,False,1);



  Раб.XML.ФормированиеТэга("НЕВЫГРУЖАТЬ","false",False,False,1);
  Раб.XML.ФормированиеТэга("СВОД","false",False,False,1);
  Раб.XML.ФормированиеТэга("СВОДСВОДА","false",False,False,1);
  Раб.XML.ФормированиеТэга("GUID_CREATE",GetGUID,False,False,1);
  Раб.XML.ФормированиеТэга("GUID_CURRENT","",False,False,1);
  РАБ.XML.ОткрытьТэг("ПозицииОтчета",'');
  for i= 1 .. LengthOfArray(Стр_Ном) do
     Раб.XML.ДОБАТТР("Стр",Стр_Ном[i]);
     --значения
     Раб.XML.ДОБАТТР("Тип","R");
     for j=3..10 do
       Раб.XML.ДОБАТТР("Графа",Str(j));
       Раб.XML.ДОБАТТР("Вычислимое",if(j=6 or j=10 ,"true","false"));
       Раб.XML.ФормированиеТэга("Позиция",Str(GetVariableN("RГ"+Format("%1d",j)+"С"+Стр_Ном[i]),2),True,False,1);
     od;
  od;

 ClearVariable(Стр_Ит);
 Стр_Ит[1]  = "010";
 Стр_Ит[2]  = "020";
 Стр_Ит[3]  = "030";
 Стр_Ит[4]  = "050";
 Стр_Ит[5]  = "060";
 Стр_Ит[6]  = "070";
 Стр_Ит[7]  = "080";
 Стр_Ит[8]  = "090";
 Стр_Ит[9]  = "100";
 Стр_Ит[10] = "110";
 Стр_Ит[11] = "120";
 Стр_Ит[12] = "130";
 Стр_Ит[13] = "140";
 Стр_Ит[14] = "150";
 Стр_Ит[15] = "160";
 Стр_Ит[16] = "170";
 Стр_Ит[17] = "171";
 Стр_Ит[18] = "172";
 Стр_Ит[19] = "173";
 Стр_Ит[20] = "180";
 Стр_Ит[21] = "181";
 Стр_Ит[22] = "182";
 Стр_Ит[23] = "190";
 Стр_Ит[24] = "200";
 Стр_Ит[25] = "210";
 Стр_Ит[26] = "220";
 Стр_Ит[27] = "230";
 Стр_Ит[28] = "240";
 Стр_Ит[29] = "250";
 Стр_Ит[30] = "260";

num = LengthOfArray(Стр_Ит);

for i=1..num do
    for j = 4 to 9 do
        Раб.XML.ДОБАТТР("Вычислимое","false");
        Раб.XML.ДОБАТТР("Тип","R");
        Раб.XML.ДОБАТТР("Стр","1"+Стр_Ит[i]);
        Name="RГ"+Str(j)+"С1"+Стр_Ит[i];
        Раб.XML.ДОБАТТР("Графа",str(j));  Раб.XML.СоздатьТэг("Позиция",str(GetVariableN(Name)),false);
      od;
od;


 ClearVariable(Стр_Ит);
 Стр_Ит[1]  = "011";  МасМ[1]  = "1";
 Стр_Ит[2]  = "021";  МасМ[2]  = "2";
 Стр_Ит[3]  = "031";  МасМ[3]  = "3";
 Стр_Ит[4]  = "041";  МасМ[4]  = "4";
 Стр_Ит[5]  = "051";  МасМ[5]  = "5";
 Стр_Ит[6]  = "071";  МасМ[6]  = "7";
 Стр_Ит[7]  = "101";  МасМ[7]  = "10";
 Стр_Ит[8]  = "111";  МасМ[8]  = "11";
 Стр_Ит[9]  = "121";  МасМ[9]  = "12";
 Стр_Ит[10] = "191";  МасМ[10] = "19";
 Стр_Ит[11] = "201";  МасМ[11] = "20";
 Стр_Ит[12] = "211";  МасМ[12] = "21";
 Стр_Ит[13] = "221";  МасМ[13] = "22";
 Стр_Ит[14] = "231";  МасМ[14] = "23";
 Стр_Ит[15] = "241";  МасМ[15] = "24";
 Стр_Ит[16] = "251";  МасМ[16] = "25";              
 Стр_Ит[17] = "261";  МасМ[17] = "26";

 for i=1.. 17 do
      num = GetVariableI("М"+МасМ[i]);
      for idx=1..num do
       if GetVariableS("SГ3С1"+Стр_Ит[i]+"М"+МасМ[i]+"["+str(idx)+"]")<>"":
          for j = 4 to 9 do
                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1"+GetVariableS("SГ3С1"+Стр_Ит[i]+"М"+МасМ[i]+"["+str(idx)+"]"));
                 Name="RГ"+Str(j)+"С1"+ Стр_Ит[i]+"М"+МасМ[i]+"["+str(idx)+"]";
                 Раб.XML.ДОБАТТР("Графа",str(j));  Раб.XML.СоздатьТэг("Позиция",str(GetVariableN(Name)),false);
          od;
       fi;
      od;
od;
                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1011в");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1011М1[1]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ5С1011М1[1]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ6С1011М1[1]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ7С1011М1[1]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ8С1011М1[1]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ9С1011М1[1]),true);

                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1015б");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1011М1[3]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ5С1011М1[3]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ6С1011М1[3]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ7С1011М1[3]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ8С1011М1[3]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ9С1011М1[3]),true);

                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1051б");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[1]),true);

                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1054б");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1051М5[2]),true);

                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1221б");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[1]),true);

                 Раб.XML.ДОБАТТР("Вычислимое","false");
                 Раб.XML.ДОБАТТР("Тип","R");
                 Раб.XML.ДОБАТТР("Стр","1224б");
                 Раб.XML.ДОБАТТР("Графа","4");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);
                 Раб.XML.ДОБАТТР("Графа","5");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);
                 Раб.XML.ДОБАТТР("Графа","6");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);
                 Раб.XML.ДОБАТТР("Графа","7");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);
                 Раб.XML.ДОБАТТР("Графа","8");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);
                 Раб.XML.ДОБАТТР("Графа","9");  Раб.XML.СоздатьТэг("Позиция",Str(RГ4С1221М22[2]),true);



  ClearVariable(Раб.XML.BufAtName);
  ClearVariable(Раб.XML.BufAtVal);

  РАБ.XML.ЗакрытьТэг;--ПозицииОтчета



  РАБ.XML.ЗакрытьТэг;
  РАБ.XML.ЗакрытьТэг;
end;

Func TimeToHMSstring_adv(valTime:Integer; valSep:String) :String;
var ihh, imm, icc :Integer;
var shh, smm, scc :String;
 shh=''; smm=''; scc='';
 ihh=Int(Trunc(valTime/3600));
 imm=Int(Trunc((valTime-ihh*3600)/60));
 icc=valTime-ihh*3600-imm*60;
 shh=Format("%.2d", ihh);
 smm=Format("%.2d", imm);
 scc=Format("%.2d", icc);
 ^(shh+valSep+smm+valSep+scc);
end;

proc ЭкспортXML;
var file,folder:S;
 if ChooseFolder(folder, "Выберите папку для сохранения файла экспорта...")=cmOK:
    file = folder + "ТБ_ОТЧ__001__"+Format("%.4d", Year(ToDay))+Format("%.2d", Mon(ToDay))+Format("%.2d", Day(ToDay))+"_"+TimeToHMSstring_adv(Time, "")+".xml";
   РАБ.XML.ОЧИСТИТЬ;
   --Report
   РАБ.XML.ДобАттр("Дата",DateToString(Today));
   РАБ.XML.ДобАттр("ПО_Название","Турбо Бухгалтер 6.9 (Бюджет-157Н)");
   РАБ.XML.ДобАттр("ПО_Версия",Str(Версия.Сборка0)+if(Версия.Сборка1<>0,"."+Str(Версия.Сборка1),"")+Версия.Сборка2);
   РАБ.XML.ОткрытьТэгBuf("Выгрузка",False);
   РАБ.XML.ОткрытьТэг("Контрагенты",'');
    РАБ.XML.ОткрытьТэг("Учреждение",'');
     РАБ.XML.СоздатьТэг("КОД","К.0001",False);
     РАБ.XML.СоздатьТэг("ИМЯ",Учреждение,False);
     РАБ.XML.СоздатьТэг("КБП",selfКБП,False);
    РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ОткрытьТэг("Отчетности",'');
    РАБ.XML.ОткрытьТэг("Отчетность",'');
     РАБ.XML.СоздатьТэг("КОД","О.0001",False);
     РАБ.XML.СоздатьТэг("ИМЯ","Выгрузка из бухгалтерии",False);
     РАБ.XML.СоздатьТэг("НАЧАЛОПЕРИОДА",DateToString(ДН),False);
     РАБ.XML.СоздатьТэг("КОНЕЦПЕРИОДА",DateToString(ДК),False);
    РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ОткрытьТэг("Отчеты",'');
   ФормироватьXML;
   РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ЗакрытьТэг;
   РАБ.XML.ЗаписьФайла(file,"1251");
   Message("Выгрузка завершена успешно");
 fi;
end;

Proc Button1_OnClick(Sender: String);

var num :Integer;
 ClearVariable(Buf);
 Buf[1]="Выгрузка в файл (формат ФК) [ + архивация]";
 Buf[2]="Выгрузка в файл (формат ФК) [только текст]";
 Buf[3]="Выгрузка в Excel";
 Buf[4]="Выгрузка для программы 'Сводная отчетность - Бюджет' (ТБ-XML)";
 num=Alternate("Выберите тип выгрузки...", Buf, -1, 1, 12);
 if num=1:
    ClearVariable(Buf);
     Buf[1] = "Выгружать только официльные строки";
     Buf[2] = "Выгружать все";
     num=Alternate("Выберите тип выгрузки...", Buf, -1, 1, 12);
      if num = 1:  Экспорт_txt_фк(True,False); fi;
      if num = 2:  Экспорт_txt_фк(True,True); fi;
 fi;
 if num=2: 
      ClearVariable(Buf);
      Buf[1] = "Выгружать только официльные строки";
      Buf[2] = "Выгружать все";
     num=Alternate("Выберите тип выгрузки...", Buf, -1, 1, 12);
      if num = 1:  Экспорт_txt_фк(False,False); fi;
      if num = 2:  Экспорт_txt_фк(False,True); fi;
           --|  num=3: Экспорт_Excel;
 fi;
 if num = 4:ЭкспортXML;
  else Exit;
 fi;
end;

Proc Button2_OnClick(Sender: String);
 ЭкспортXML;
end;


Конец