--~~~~~~~~~~~~~~~~2Фирма "ДИЦ", Турбо Бухгалтер 6.07~~~~~~~~~~~~~~~~~~~~~--
--                                                                     --
-- 2Подсистема ТБ0:Стандартный комплект                                  --
--=====================================================================--
--                       НАЗВАНИЕ БЛАНКА                               --
--      Форма расчета налога на имущество предприятий...               --
-------------------------------------------------------------------------
--                                                                     --
--               Краткое описание назначения бланка                    --
--           в соответствующей подсистеме Турбо Бухгалтера             --
--                                                                     --
--=====================================================================--
-- Список картотек, используемых данным бланком:                       --
-- 1.                                                                  --
-- 2.                                                                  --
-- 3.                                                                  --
-------------------------------------------------------------------------
-- Список бланков, процедуры из которых используются данным бланком:   --
-- 1.                                                                  --
-- 2.                                                                  --
-- 3.                                                                  --
--=====================================================================--
-- 2Автор бланка0:Фойгель И.М.          2Дата создания0:31.03.2004         --
--                                                                     --
-- 2Дата модификации0:                                                   --
--                                                                     --
-- 2Бланк сопровождает:0Фойгель И.М.                                     --
--_____________________________________________________________________--

БланкСШаблоном "Расчет налога на имущество организаций";

ВерсияБланка       :Integer = 2; -- МЕНЯТЬ ОБЯЗАТЕЛЬНО ПРИ СМЕНЕ ФОРМЫ

кнАвторасчет       :Object;
кнКарт_Записать    :Object;
кнКарт_Считать     :Object;

-- Переменные для совместимости с экспортом ФНС т.к текущей декларации другие поля

BarCodeCheck       :Object;
BarCodeUse         :Logical; -- Использовать штрих код

BarCodeCheckPDF417:Object;
BarCodeUsePDF417  :Logical= [False];

редОтправительФИО  :Object;
редОтправительДолж :Object;
редОтправительТФ   :Object;
рОтправитель       :Object;
кнОтправитель      :Object;
нФИО               :Object;
нДолжность         :Object;
нТелефон           :Object;

ОтправительФИО     :String;
ОтправительДолж    :String;
ОтправительТФ      :String;


ДатаН              :Date;    -- Начальная дата расчета. Заполняется процедурой РасчетПериода
ДатаК              :Date;    -- Конечная дата расчета. Заполняется процедурой РасчетПериода

ИННО1:String;
ИННО2:String;
ИННО3:String;
ИННО4:String;
ИННО5:String;
ИННО6:String;
ИННО7:String;
ИННО8:String;
ИННО9:String;
ИННО10:String;
ИННО11:String;
ИННО12:String;

КППО1:String;
КППО2:String;
КППО3:String;
КППО4:String;
КППО5:String;
КППО6:String;
КППО7:String;
КППО8:String;
КППО9:String;

НомерКорректировки1:String=["0"];
НомерКорректировки2:String=["-"];
НомерКорректировки3:String=["-"];

ОтчетныйПериод1:String=["2"];
ОтчетныйПериод2:String=["1"];


Г:String=str(Год(Сегодня));
ОГ1:String=[Substr(Г,1,1)];
ОГ2:String=[Substr(Г,2,1)];
ОГ3:String=[Substr(Г,3,1)];
ОГ4:String=[Substr(Г,4,1)];

ОтчГод :String = ОГ1+ОГ2+ОГ3+ОГ4;

НалоговыйОрган1:String;
НалоговыйОрган2:String;
НалоговыйОрган3:String;
НалоговыйОрган4:String;

МестоУчета1:String;
МестоУчета2:String;
МестоУчета3:String;

НаимОрганизации1:String; НаимОрганизации2:String; НаимОрганизации3:String; НаимОрганизации4:String; НаимОрганизации5:String;
НаимОрганизации6:String; НаимОрганизации7:String; НаимОрганизации8:String; НаимОрганизации9:String; НаимОрганизации10:String;
НаимОрганизации11:String;НаимОрганизации12:String;НаимОрганизации13:String;НаимОрганизации14:String;НаимОрганизации15:String;
НаимОрганизации16:String;НаимОрганизации17:String;НаимОрганизации18:String;НаимОрганизации19:String;НаимОрганизации20:String;
НаимОрганизации21:String;НаимОрганизации22:String;НаимОрганизации23:String;НаимОрганизации24:String;НаимОрганизации25:String;
НаимОрганизации26:String;НаимОрганизации27:String;НаимОрганизации28:String;НаимОрганизации29:String;НаимОрганизации30:String;
НаимОрганизации31:String;НаимОрганизации32:String;НаимОрганизации33:String;НаимОрганизации34:String;НаимОрганизации35:String;
НаимОрганизации36:String;НаимОрганизации37:String;НаимОрганизации38:String;НаимОрганизации39:String;НаимОрганизации40:String;

НаимОрганизации41:String;НаимОрганизации42:String;НаимОрганизации43:String;НаимОрганизации44:String;НаимОрганизации45:String;
НаимОрганизации46:String;НаимОрганизации47:String;НаимОрганизации48:String;НаимОрганизации49:String;НаимОрганизации50:String;
НаимОрганизации51:String;НаимОрганизации52:String;НаимОрганизации53:String;НаимОрганизации54:String;НаимОрганизации55:String;
НаимОрганизации56:String;НаимОрганизации57:String;НаимОрганизации58:String;НаимОрганизации59:String;НаимОрганизации60:String;
НаимОрганизации61:String;НаимОрганизации62:String;НаимОрганизации63:String;НаимОрганизации64:String;НаимОрганизации65:String;
НаимОрганизации66:String;НаимОрганизации67:String;НаимОрганизации68:String;НаимОрганизации69:String;НаимОрганизации70:String;
НаимОрганизации71:String;НаимОрганизации72:String;НаимОрганизации73:String;НаимОрганизации74:String;НаимОрганизации75:String;
НаимОрганизации76:String;НаимОрганизации77:String;НаимОрганизации78:String;НаимОрганизации79:String;НаимОрганизации80:String;

НаимОрганизации81:String;НаимОрганизации82:String;НаимОрганизации83:String;НаимОрганизации84:String;НаимОрганизации85:String;
НаимОрганизации86:String;НаимОрганизации87:String;НаимОрганизации88:String;НаимОрганизации89:String;НаимОрганизации90:String;
НаимОрганизации91:String;НаимОрганизации92:String;НаимОрганизации93:String;НаимОрганизации94:String;НаимОрганизации95:String;
НаимОрганизации96:String;НаимОрганизации97:String;НаимОрганизации98:String;НаимОрганизации99:String;НаимОрганизации100:String;
НаимОрганизации101:String;НаимОрганизации102:String;НаимОрганизации103:String;НаимОрганизации104:String;НаимОрганизации105:String;
НаимОрганизации106:String;НаимОрганизации107:String;НаимОрганизации108:String;НаимОрганизации109:String;НаимОрганизации110:String;
НаимОрганизации111:String;НаимОрганизации112:String;НаимОрганизации113:String;НаимОрганизации114:String;НаимОрганизации115:String;
НаимОрганизации116:String;НаимОрганизации117:String;НаимОрганизации118:String;НаимОрганизации119:String;НаимОрганизации120:String;

НаимОрганизации121:String;НаимОрганизации122:String;НаимОрганизации123:String;НаимОрганизации124:String;НаимОрганизации125:String;
НаимОрганизации126:String;НаимОрганизации127:String;НаимОрганизации128:String;НаимОрганизации129:String;НаимОрганизации130:String;
НаимОрганизации131:String;НаимОрганизации132:String;НаимОрганизации133:String;НаимОрганизации134:String;НаимОрганизации135:String;
НаимОрганизации136:String;НаимОрганизации137:String;НаимОрганизации138:String;НаимОрганизации139:String;НаимОрганизации140:String;
НаимОрганизации141:String;НаимОрганизации142:String;НаимОрганизации143:String;НаимОрганизации144:String;НаимОрганизации145:String;
НаимОрганизации146:String;НаимОрганизации147:String;НаимОрганизации148:String;НаимОрганизации149:String;НаимОрганизации150:String;
НаимОрганизации151:String;НаимОрганизации152:String;НаимОрганизации153:String;НаимОрганизации154:String;НаимОрганизации155:String;
НаимОрганизации156:String;НаимОрганизации157:String;НаимОрганизации158:String;НаимОрганизации159:String;НаимОрганизации160:String;

ОКВЭД1:String;
ОКВЭД2:String;
ОКВЭД3:String;
ОКВЭД4:String;
ОКВЭД5:String;
ОКВЭД6:String;

КонтактныйТелефон1:String;КонтактныйТелефон2:String;КонтактныйТелефон3:String;КонтактныйТелефон4:String;КонтактныйТелефон5:String;
КонтактныйТелефон6:String;КонтактныйТелефон7:String;КонтактныйТелефон8:String;КонтактныйТелефон9:String;КонтактныйТелефон10:String;
КонтактныйТелефон11:String;КонтактныйТелефон12:String;КонтактныйТелефон13:String;КонтактныйТелефон14:String;КонтактныйТелефон15:String;
КонтактныйТелефон16:String;КонтактныйТелефон17:String;КонтактныйТелефон18:String;КонтактныйТелефон19:String;КонтактныйТелефон20:String;

СостЛ1:String;
СостЛ2:String;
СостЛ3:String;
СостЛ4:String;
СостЛ5:String;
СостЛ6:String;

СостПЛ1:String;
СостПЛ2:String;
СостПЛ3:String;
СостПЛ4:String;
СостПЛ5:String;
СостПЛ6:String;

ТипНалогоплат:String=["1"];

ФИОНалогПлат1 :String;ФИОНалогПлат2 :String;ФИОНалогПлат3 :String;ФИОНалогПлат4 :String;ФИОНалогПлат5 :String;ФИОНалогПлат6 :String;
ФИОНалогПлат7 :String;ФИОНалогПлат8 :String;ФИОНалогПлат9 :String;ФИОНалогПлат10:String;ФИОНалогПлат11:String;ФИОНалогПлат12:String;
ФИОНалогПлат13:String;ФИОНалогПлат14:String;ФИОНалогПлат15:String;ФИОНалогПлат16:String;ФИОНалогПлат17:String;ФИОНалогПлат18:String;
ФИОНалогПлат19:String;ФИОНалогПлат20:String;
ФИОНалогПлат21:String;ФИОНалогПлат22:String;ФИОНалогПлат23:String;ФИОНалогПлат24:String;ФИОНалогПлат25:String;ФИОНалогПлат26:String;
ФИОНалогПлат27:String;ФИОНалогПлат28:String;ФИОНалогПлат29:String;ФИОНалогПлат30:String;ФИОНалогПлат31:String;ФИОНалогПлат32:String;
ФИОНалогПлат33:String;ФИОНалогПлат34:String;ФИОНалогПлат35:String;ФИОНалогПлат36:String;ФИОНалогПлат37:String;ФИОНалогПлат38:String;
ФИОНалогПлат39:String;ФИОНалогПлат40:String;
ФИОНалогПлат41:String;ФИОНалогПлат42:String;ФИОНалогПлат43:String;ФИОНалогПлат44:String;ФИОНалогПлат45:String;ФИОНалогПлат46:String;
ФИОНалогПлат47:String;ФИОНалогПлат48:String;ФИОНалогПлат49:String;ФИОНалогПлат50:String;ФИОНалогПлат51:String;ФИОНалогПлат52:String;
ФИОНалогПлат53:String;ФИОНалогПлат54:String;ФИОНалогПлат55:String;ФИОНалогПлат56:String;ФИОНалогПлат57:String;ФИОНалогПлат58:String;
ФИОНалогПлат59:String;ФИОНалогПлат60:String;

НаимПредст1 :String;НаимПредст2 :String;НаимПредст3 :String;НаимПредст4 :String;НаимПредст5 :String;НаимПредст6 :String;
НаимПредст7 :String;НаимПредст8 :String;НаимПредст9 :String;НаимПредст10:String;НаимПредст11:String;НаимПредст12:String;
НаимПредст13:String;НаимПредст14:String;НаимПредст15:String;НаимПредст16:String;НаимПредст17:String;НаимПредст18:String;
НаимПредст19:String;НаимПредст20:String;
НаимПредст21:String;НаимПредст22:String;НаимПредст23:String;НаимПредст24:String;НаимПредст25:String;НаимПредст26:String;
НаимПредст27:String;НаимПредст28:String;НаимПредст29:String;НаимПредст30:String;НаимПредст31:String;НаимПредст32:String;
НаимПредст33:String;НаимПредст34:String;НаимПредст35:String;НаимПредст36:String;НаимПредст37:String;НаимПредст38:String;
НаимПредст39:String;НаимПредст40:String;
НаимПредст41:String;НаимПредст42:String;НаимПредст43:String;НаимПредст44:String;НаимПредст45:String;НаимПредст46:String;
НаимПредст47:String;НаимПредст48:String;НаимПредст49:String;НаимПредст50:String;НаимПредст51:String;НаимПредст52:String;
НаимПредст53:String;НаимПредст54:String;НаимПредст55:String;НаимПредст56:String;НаимПредст57:String;НаимПредст58:String;
НаимПредст59:String;НаимПредст60:String;

ДПредст:Date=[Today];

ДПредст1:String=Раб.Формат.ЦифраДаты(ДПредст,1);
ДПредст2:String=Раб.Формат.ЦифраДаты(ДПредст,2);
ДПредст3:String=Раб.Формат.ЦифраДаты(ДПредст,4);
ДПредст4:String=Раб.Формат.ЦифраДаты(ДПредст,5);
ДПредст5:String=Раб.Формат.ЦифраДаты(ДПредст,7);
ДПредст6:String=Раб.Формат.ЦифраДаты(ДПредст,8);
ДПредст7:String=Раб.Формат.ЦифраДаты(ДПредст,9);
ДПредст8:String=Раб.Формат.ЦифраДаты(ДПредст,10);

ДокументПредст1 :String;ДокументПредст2 :String;ДокументПредст3 :String;ДокументПредст4 :String;ДокументПредст5 :String;
ДокументПредст6 :String;ДокументПредст7 :String;ДокументПредст8 :String;ДокументПредст9 :String;ДокументПредст10:String;
ДокументПредст11:String;ДокументПредст12:String;ДокументПредст13:String;ДокументПредст14:String;ДокументПредст15:String;
ДокументПредст16:String;ДокументПредст17:String;ДокументПредст18:String;ДокументПредст19:String;ДокументПредст20:String;
ДокументПредст21:String;ДокументПредст22:String;ДокументПредст23:String;ДокументПредст24:String;ДокументПредст25:String;
ДокументПредст26:String;ДокументПредст27:String;ДокументПредст28:String;ДокументПредст29:String;ДокументПредст30:String;
ДокументПредст31:String;ДокументПредст32:String;ДокументПредст33:String;ДокументПредст34:String;ДокументПредст35:String;
ДокументПредст36:String;ДокументПредст37:String;ДокументПредст38:String;ДокументПредст39:String;ДокументПредст40:String;

Страница1:String;
Страница2:String;
Страница3:String;
Страница4:String;
Страница5:String;
Страница6:String;

Раздел01:Integer=7;

КН1:String = "";
КН2:String = "";
КН3:String = "";
КН4:String = "";
КН5:String = "";
КН6:String = "";
КН7:String = "";
КН8:String = "";
КН9:String = "";
КН10:String = "";
КН11:String = "";
КН12:String = "";
КН13:String = "";
КН14:String = "";
КН15:String = "";
КН16:String = "";
КН17:String = "";
КН18:String = "";
КН19:String = "";
КН20:String = "";
КН21:String = "";
КН22:String = "";
КН23:String = "";
КН24:String = "";
КН25:String = "";
КН26:String = "";
КН27:String = "";
КН28:String = "";
КН29:String = "";
КН30:String = "";
КН31:String = "";
КН32:String = "";
КН33:String = "";
КН34:String = "";
КН35:String = "";
КН36:String = "";
КН37:String = "";
КН38:String = "";
КН39:String = "";
КН40:String = "";
КН41:String = "";
КН42:String = "";
КН43:String = "";
КН44:String = "";
КН45:String = "";
КН46:String = "";
КН47:String = "";
КН48:String = "";
КН49:String = "";
КН50:String = "";

ОКАТО1[]:String;
ОКАТО2[]:String;
ОКАТО3[]:String;
ОКАТО4[]:String;
ОКАТО5[]:String;
ОКАТО6[]:String;
ОКАТО7[]:String;
ОКАТО8[]:String;
ОКАТО9[]:String;
ОКАТО10[]:String;
ОКАТО11[]:String;

КБК1[]:String;
КБК2[]:String;
КБК3[]:String;
КБК4[]:String;
КБК5[]:String;
КБК6[]:String;
КБК7[]:String;
КБК8[]:String;
КБК9[]:String;
КБК10[]:String;
КБК11[]:String;
КБК12[]:String;
КБК13[]:String;
КБК14[]:String;
КБК15[]:String;
КБК16[]:String;
КБК17[]:String;
КБК18[]:String;
КБК19[]:String;
КБК20[]:String;

СумНалога1[]:String;
СумНалога2[]:String;
СумНалога3[]:String;
СумНалога4[]:String;
СумНалога5[]:String;
СумНалога6[]:String;
СумНалога7[]:String;
СумНалога8[]:String;
СумНалога9[]:String;
СумНалога10[]:String;
СумНалога11[]:String;
СумНалога12[]:String;
СумНалога13[]:String;
СумНалога14[]:String;
СумНалога15[]:String;

ДПодтверждаю:Date = [ДПредст];

ДПодтверждаю1:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,1);
ДПодтверждаю2:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,2);
ДПодтверждаю3:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,4);
ДПодтверждаю4:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,5);
ДПодтверждаю5:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,7);
ДПодтверждаю6:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,8);
ДПодтверждаю7:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,9);
ДПодтверждаю8:String=Раб.Формат.ЦифраДаты(ДПодтверждаю,10);


КолРазд2         :Integer = [1];-- Количество страниц раздела 2
ТекРазд2         :Integer = [1];-- Текущий номер раздела 2
ТекстДобавления2 :String  = Str(ТекРазд2)+' из '+Str(КолРазд2);

Страница7[]:String;
Страница8[]:String;
Страница9[]:String;
Страница10[]:String;
Страница11[]:String;
Страница12[]:String;

КодВидаИмущества[]:String;

Р2ОКАТО1[]:String;
Р2ОКАТО2[]:String;
Р2ОКАТО3[]:String;
Р2ОКАТО4[]:String;
Р2ОКАТО5[]:String;
Р2ОКАТО6[]:String;
Р2ОКАТО7[]:String;
Р2ОКАТО8[]:String;
Р2ОКАТО9[]:String;
Р2ОКАТО10[]:String;
Р2ОКАТО11[]:String;

СтоимостьВсегоС0201[]:String;СтоимостьВсегоС0202[]:String;СтоимостьВсегоС0203[]:String;СтоимостьВсегоС0204[]:String;СтоимостьВсегоС0205[]:String;
СтоимостьВсегоС0206[]:String;СтоимостьВсегоС0207[]:String;СтоимостьВсегоС0208[]:String;СтоимостьВсегоС0209[]:String;СтоимостьВсегоС02010[]:String;
СтоимостьВсегоС02011[]:String;СтоимостьВсегоС02012[]:String;СтоимостьВсегоС02013[]:String;СтоимостьВсегоС02014[]:String;СтоимостьВсегоС02015[]:String;

СтоимостьЛьготС0201[]:String;СтоимостьЛьготС0202[]:String;СтоимостьЛьготС0203[]:String;СтоимостьЛьготС0204[]:String;СтоимостьЛьготС0205[]:String;
СтоимостьЛьготС0206[]:String;СтоимостьЛьготС0207[]:String;СтоимостьЛьготС0208[]:String;СтоимостьЛьготС0209[]:String;СтоимостьЛьготС02010[]:String;
СтоимостьЛьготС02011[]:String;СтоимостьЛьготС02012[]:String;СтоимостьЛьготС02013[]:String;СтоимостьЛьготС02014[]:String;СтоимостьЛьготС02015[]:String;

СтоимостьВсегоС0301[]:String;СтоимостьВсегоС0302[]:String;СтоимостьВсегоС0303[]:String;СтоимостьВсегоС0304[]:String;СтоимостьВсегоС0305[]:String;
СтоимостьВсегоС0306[]:String;СтоимостьВсегоС0307[]:String;СтоимостьВсегоС0308[]:String;СтоимостьВсегоС0309[]:String;СтоимостьВсегоС03010[]:String;
СтоимостьВсегоС03011[]:String;СтоимостьВсегоС03012[]:String;СтоимостьВсегоС03013[]:String;СтоимостьВсегоС03014[]:String;СтоимостьВсегоС03015[]:String;

СтоимостьЛьготС0301[]:String;СтоимостьЛьготС0302[]:String;СтоимостьЛьготС0303[]:String;СтоимостьЛьготС0304[]:String;СтоимостьЛьготС0305[]:String;
СтоимостьЛьготС0306[]:String;СтоимостьЛьготС0307[]:String;СтоимостьЛьготС0308[]:String;СтоимостьЛьготС0309[]:String;СтоимостьЛьготС03010[]:String;
СтоимостьЛьготС03011[]:String;СтоимостьЛьготС03012[]:String;СтоимостьЛьготС03013[]:String;СтоимостьЛьготС03014[]:String;СтоимостьЛьготС03015[]:String;

СтоимостьВсегоС0401[]:String;СтоимостьВсегоС0402[]:String;СтоимостьВсегоС0403[]:String;СтоимостьВсегоС0404[]:String;СтоимостьВсегоС0405[]:String;
СтоимостьВсегоС0406[]:String;СтоимостьВсегоС0407[]:String;СтоимостьВсегоС0408[]:String;СтоимостьВсегоС0409[]:String;СтоимостьВсегоС04010[]:String;
СтоимостьВсегоС04011[]:String;СтоимостьВсегоС04012[]:String;СтоимостьВсегоС04013[]:String;СтоимостьВсегоС04014[]:String;СтоимостьВсегоС04015[]:String;

СтоимостьЛьготС0401[]:String;СтоимостьЛьготС0402[]:String;СтоимостьЛьготС0403[]:String;СтоимостьЛьготС0404[]:String;СтоимостьЛьготС0405[]:String;
СтоимостьЛьготС0406[]:String;СтоимостьЛьготС0407[]:String;СтоимостьЛьготС0408[]:String;СтоимостьЛьготС0409[]:String;СтоимостьЛьготС04010[]:String;
СтоимостьЛьготС04011[]:String;СтоимостьЛьготС04012[]:String;СтоимостьЛьготС04013[]:String;СтоимостьЛьготС04014[]:String;СтоимостьЛьготС04015[]:String;

СтоимостьВсегоС0501[]:String;СтоимостьВсегоС0502[]:String;СтоимостьВсегоС0503[]:String;СтоимостьВсегоС0504[]:String;СтоимостьВсегоС0505[]:String;
СтоимостьВсегоС0506[]:String;СтоимостьВсегоС0507[]:String;СтоимостьВсегоС0508[]:String;СтоимостьВсегоС0509[]:String;СтоимостьВсегоС05010[]:String;
СтоимостьВсегоС05011[]:String;СтоимостьВсегоС05012[]:String;СтоимостьВсегоС05013[]:String;СтоимостьВсегоС05014[]:String;СтоимостьВсегоС05015[]:String;

СтоимостьЛьготС0501[]:String;СтоимостьЛьготС0502[]:String;СтоимостьЛьготС0503[]:String;СтоимостьЛьготС0504[]:String;СтоимостьЛьготС0505[]:String;
СтоимостьЛьготС0506[]:String;СтоимостьЛьготС0507[]:String;СтоимостьЛьготС0508[]:String;СтоимостьЛьготС0509[]:String;СтоимостьЛьготС05010[]:String;
СтоимостьЛьготС05011[]:String;СтоимостьЛьготС05012[]:String;СтоимостьЛьготС05013[]:String;СтоимостьЛьготС05014[]:String;СтоимостьЛьготС05015[]:String;

СтоимостьВсегоС0601[]:String;СтоимостьВсегоС0602[]:String;СтоимостьВсегоС0603[]:String;СтоимостьВсегоС0604[]:String;СтоимостьВсегоС0605[]:String;
СтоимостьВсегоС0606[]:String;СтоимостьВсегоС0607[]:String;СтоимостьВсегоС0608[]:String;СтоимостьВсегоС0609[]:String;СтоимостьВсегоС06010[]:String;
СтоимостьВсегоС06011[]:String;СтоимостьВсегоС06012[]:String;СтоимостьВсегоС06013[]:String;СтоимостьВсегоС06014[]:String;СтоимостьВсегоС06015[]:String;

СтоимостьЛьготС0601[]:String;СтоимостьЛьготС0602[]:String;СтоимостьЛьготС0603[]:String;СтоимостьЛьготС0604[]:String;СтоимостьЛьготС0605[]:String;
СтоимостьЛьготС0606[]:String;СтоимостьЛьготС0607[]:String;СтоимостьЛьготС0608[]:String;СтоимостьЛьготС0609[]:String;СтоимостьЛьготС06010[]:String;
СтоимостьЛьготС06011[]:String;СтоимостьЛьготС06012[]:String;СтоимостьЛьготС06013[]:String;СтоимостьЛьготС06014[]:String;СтоимостьЛьготС06015[]:String;

СтоимостьВсегоС0701[]:String;СтоимостьВсегоС0702[]:String;СтоимостьВсегоС0703[]:String;СтоимостьВсегоС0704[]:String;СтоимостьВсегоС0705[]:String;
СтоимостьВсегоС0706[]:String;СтоимостьВсегоС0707[]:String;СтоимостьВсегоС0708[]:String;СтоимостьВсегоС0709[]:String;СтоимостьВсегоС07010[]:String;
СтоимостьВсегоС07011[]:String;СтоимостьВсегоС07012[]:String;СтоимостьВсегоС07013[]:String;СтоимостьВсегоС07014[]:String;СтоимостьВсегоС07015[]:String;

СтоимостьЛьготС0701[]:String;СтоимостьЛьготС0702[]:String;СтоимостьЛьготС0703[]:String;СтоимостьЛьготС0704[]:String;СтоимостьЛьготС0705[]:String;
СтоимостьЛьготС0706[]:String;СтоимостьЛьготС0707[]:String;СтоимостьЛьготС0708[]:String;СтоимостьЛьготС0709[]:String;СтоимостьЛьготС07010[]:String;
СтоимостьЛьготС07011[]:String;СтоимостьЛьготС07012[]:String;СтоимостьЛьготС07013[]:String;СтоимостьЛьготС07014[]:String;СтоимостьЛьготС07015[]:String;

СтоимостьВсегоС0801[]:String;СтоимостьВсегоС0802[]:String;СтоимостьВсегоС0803[]:String;СтоимостьВсегоС0804[]:String;СтоимостьВсегоС0805[]:String;
СтоимостьВсегоС0806[]:String;СтоимостьВсегоС0807[]:String;СтоимостьВсегоС0808[]:String;СтоимостьВсегоС0809[]:String;СтоимостьВсегоС08010[]:String;
СтоимостьВсегоС08011[]:String;СтоимостьВсегоС08012[]:String;СтоимостьВсегоС08013[]:String;СтоимостьВсегоС08014[]:String;СтоимостьВсегоС08015[]:String;

СтоимостьЛьготС0801[]:String;СтоимостьЛьготС0802[]:String;СтоимостьЛьготС0803[]:String;СтоимостьЛьготС0804[]:String;СтоимостьЛьготС0805[]:String;
СтоимостьЛьготС0806[]:String;СтоимостьЛьготС0807[]:String;СтоимостьЛьготС0808[]:String;СтоимостьЛьготС0809[]:String;СтоимостьЛьготС08010[]:String;
СтоимостьЛьготС08011[]:String;СтоимостьЛьготС08012[]:String;СтоимостьЛьготС08013[]:String;СтоимостьЛьготС08014[]:String;СтоимостьЛьготС08015[]:String;

СтоимостьВсегоС0901[]:String;СтоимостьВсегоС0902[]:String;СтоимостьВсегоС0903[]:String;СтоимостьВсегоС0904[]:String;СтоимостьВсегоС0905[]:String;
СтоимостьВсегоС0906[]:String;СтоимостьВсегоС0907[]:String;СтоимостьВсегоС0908[]:String;СтоимостьВсегоС0909[]:String;СтоимостьВсегоС09010[]:String;
СтоимостьВсегоС09011[]:String;СтоимостьВсегоС09012[]:String;СтоимостьВсегоС09013[]:String;СтоимостьВсегоС09014[]:String;СтоимостьВсегоС09015[]:String;

СтоимостьЛьготС0901[]:String;СтоимостьЛьготС0902[]:String;СтоимостьЛьготС0903[]:String;СтоимостьЛьготС0904[]:String;СтоимостьЛьготС0905[]:String;
СтоимостьЛьготС0906[]:String;СтоимостьЛьготС0907[]:String;СтоимостьЛьготС0908[]:String;СтоимостьЛьготС0909[]:String;СтоимостьЛьготС09010[]:String;
СтоимостьЛьготС09011[]:String;СтоимостьЛьготС09012[]:String;СтоимостьЛьготС09013[]:String;СтоимостьЛьготС09014[]:String;СтоимостьЛьготС09015[]:String;

СтоимостьВсегоС1001[]:String;СтоимостьВсегоС1002[]:String;СтоимостьВсегоС1003[]:String;СтоимостьВсегоС1004[]:String;СтоимостьВсегоС1005[]:String;
СтоимостьВсегоС1006[]:String;СтоимостьВсегоС1007[]:String;СтоимостьВсегоС1008[]:String;СтоимостьВсегоС1009[]:String;СтоимостьВсегоС10010[]:String;
СтоимостьВсегоС10011[]:String;СтоимостьВсегоС10012[]:String;СтоимостьВсегоС10013[]:String;СтоимостьВсегоС10014[]:String;СтоимостьВсегоС10015[]:String;

СтоимостьЛьготС1001[]:String;СтоимостьЛьготС1002[]:String;СтоимостьЛьготС1003[]:String;СтоимостьЛьготС1004[]:String;СтоимостьЛьготС1005[]:String;
СтоимостьЛьготС1006[]:String;СтоимостьЛьготС1007[]:String;СтоимостьЛьготС1008[]:String;СтоимостьЛьготС1009[]:String;СтоимостьЛьготС10010[]:String;
СтоимостьЛьготС10011[]:String;СтоимостьЛьготС10012[]:String;СтоимостьЛьготС10013[]:String;СтоимостьЛьготС10014[]:String;СтоимостьЛьготС10015[]:String;

СтоимостьВсегоС1101[]:String;СтоимостьВсегоС1102[]:String;СтоимостьВсегоС1103[]:String;СтоимостьВсегоС1104[]:String;СтоимостьВсегоС1105[]:String;
СтоимостьВсегоС1106[]:String;СтоимостьВсегоС1107[]:String;СтоимостьВсегоС1108[]:String;СтоимостьВсегоС1109[]:String;СтоимостьВсегоС11010[]:String;
СтоимостьВсегоС11011[]:String;СтоимостьВсегоС11012[]:String;СтоимостьВсегоС11013[]:String;СтоимостьВсегоС11014[]:String;СтоимостьВсегоС11015[]:String;

СтоимостьЛьготС1101[]:String;СтоимостьЛьготС1102[]:String;СтоимостьЛьготС1103[]:String;СтоимостьЛьготС1104[]:String;СтоимостьЛьготС1105[]:String;
СтоимостьЛьготС1106[]:String;СтоимостьЛьготС1107[]:String;СтоимостьЛьготС1108[]:String;СтоимостьЛьготС1109[]:String;СтоимостьЛьготС11010[]:String;
СтоимостьЛьготС11011[]:String;СтоимостьЛьготС11012[]:String;СтоимостьЛьготС11013[]:String;СтоимостьЛьготС11014[]:String;СтоимостьЛьготС11015[]:String;


Р2С1201[]:String;Р2С1202[]:String;Р2С1203[]:String;Р2С1204[]:String;Р2С1205[]:String;Р2С1206[]:String;Р2С1207[]:String;Р2С1208[]:String;
Р2С1209[]:String;Р2С12010[]:String;Р2С12011[]:String;Р2С12012[]:String;Р2С12013[]:String;Р2С12014[]:String;Р2С12015[]:String;

Р2С1301[]:String;Р2С1302[]:String;Р2С1303[]:String;Р2С1304[]:String;Р2С1305[]:String;Р2С1306[]:String;Р2С1307[]:String;

Р2С1401[]:String;Р2С1402[]:String;Р2С1403[]:String;Р2С1404[]:String;Р2С1405[]:String;Р2С1406[]:String;Р2С1407[]:String;Р2С1408[]:String;
Р2С1409[]:String;Р2С14010[]:String;Р2С14011[]:String;Р2С14012[]:String;Р2С14013[]:String;Р2С14014[]:String;Р2С14015[]:String;

Р2С1501[] :String;Р2С1502[] :String;Р2С1503[] :String;Р2С1504[] :String;Р2С1505[] :String;
Р2С1506[] :String;Р2С1507[] :String;Р2С1508[] :String;Р2С1509[] :String;Р2С15010[]:String;
Р2С15011[]:String;Р2С15012[]:String;Р2С15013[]:String;Р2С15014[]:String;Р2С15015[]:String;
Р2С15016[]:String;Р2С15017[]:String;Р2С15018[]:String;Р2С15019[]:String;Р2С15020[]:String;

Р2С1601[]:String;Р2С1602[]:String;Р2С1603[]:String;Р2С1604[]:String;Р2С1605[]:String;Р2С1606[]:String;Р2С1607[]:String;

Р2С1701[]:String;Р2С1702[]:String;Р2С1703[]:String;

Р2С1801[] :String;Р2С1802[] :String;Р2С1803[] :String;Р2С1804[] :String;Р2С1805[] :String;Р2С1806[] :String;Р2С1807[] :String;
Р2С1808[] :String;Р2С1809[] :String;Р2С18010[]:String;Р2С18011[]:String;Р2С18012[]:String;Р2С18013[]:String;Р2С18014[]:String;
Р2С18015[]:String;

Р2С1901[]:String;Р2С1902[]:String;Р2С1903[]:String;Р2С1904[]:String;Р2С1905[]:String;Р2С1906[]:String;Р2С1907[]:String;

Р2С2001[]:String;Р2С2002[]:String;Р2С2003[]:String;Р2С2004[]:String;Р2С2005[]:String;Р2С2006[]:String;Р2С2007[]:String;Р2С2008[]:String;
Р2С2009[]:String;Р2С20010[]:String;Р2С20011[]:String;Р2С20012[]:String;Р2С20013[]:String;Р2С20014[]:String;Р2С20015[]:String;

КолРазд3         :Integer = [1];-- Количество страниц раздела 3
ТекРазд3         :Integer = [1];-- Текущий номер раздела 3
ТекстДобавления3 :String  = Str(ТекРазд3)+' из '+Str(КолРазд3);

Страница13[]:String;
Страница14[]:String;
Страница15[]:String;
Страница16[]:String;
Страница17[]:String;
Страница18[]:String;

Р3ОКАТО1[]:String;
Р3ОКАТО2[]:String;
Р3ОКАТО3[]:String;
Р3ОКАТО4[]:String;
Р3ОКАТО5[]:String;
Р3ОКАТО6[]:String;
Р3ОКАТО7[]:String;
Р3ОКАТО8[]:String;
Р3ОКАТО9[]:String;
Р3ОКАТО10[]:String;
Р3ОКАТО11[]:String;

Р3С0201[] :String;Р3С0202[] :String;Р3С0203[] :String;Р3С0204[] :String;Р3С0205[] :String;Р3С0206[] :String;Р3С0207[] :String;
Р3С0208[] :String;Р3С0209[] :String;Р3С02010[]:String;Р3С02011[]:String;Р3С02012[]:String;Р3С02013[]:String;Р3С02014[]:String;
Р3С02015[]:String;

Р3С0301[] :String;Р3С0302[] :String;Р3С0303[] :String;Р3С0304[] :String;Р3С0305[] :String;Р3С0306[] :String;Р3С0307[] :String;
Р3С0308[] :String;Р3С0309[] :String;Р3С03010[]:String;Р3С03011[]:String;Р3С03012[]:String;Р3С03013[]:String;Р3С03014[]:String;
Р3С03015[]:String;

Р3С0401[]:String;Р3С0402[]:String;Р3С0403[]:String;Р3С0404[]:String;Р3С0405[]:String;Р3С0406[]:String;Р3С0407[]:String;

Р3С0501[] :String;Р3С0502[] :String;Р3С0503[] :String;Р3С0504[] :String;Р3С0505[] :String;
Р3С0506[] :String;Р3С0507[] :String;Р3С0508[] :String;Р3С0509[] :String;Р3С05010[]:String;
Р3С05011[]:String;Р3С05012[]:String;Р3С05013[]:String;Р3С05014[]:String;Р3С05015[]:String;
Р3С05016[]:String;Р3С05017[]:String;Р3С05018[]:String;Р3С05019[]:String;Р3С05020[]:String;

Р3С0601[]:String;Р3С0602[]:String;Р3С0603[]:String;Р3С0604[]:String;Р3С0605[]:String;Р3С0606[]:String;Р3С0607[]:String;

Р3С0701[]:String;Р3С0702[]:String;Р3С0703[]:String;

Р3С0801[]:String;Р3С0802[]:String;Р3С0803[]:String;Р3С0804[]:String;

Р3С0901[] :String;Р3С0902[] :String;Р3С0903[] :String;Р3С0904[] :String;Р3С0905[] :String;Р3С0906[] :String;Р3С0907[] :String;
Р3С0908[] :String;Р3С0909[] :String;Р3С09010[]:String;Р3С09011[]:String;Р3С09012[]:String;Р3С09013[]:String;Р3С09014[]:String;
Р3С09015[]:String;

Р3С1001[]:String;Р3С1002[]:String;Р3С1003[]:String;Р3С1004[]:String;Р3С1005[]:String;Р3С1006[]:String;Р3С1007[]:String;

Р3С1101[] :String;Р3С1102[] :String;Р3С1103[] :String;Р3С1104[] :String;Р3С1105[] :String;Р3С1106[] :String;Р3С1107[] :String;
Р3С1108[] :String;Р3С1109[] :String;Р3С11010[]:String;Р3С11011[]:String;Р3С11012[]:String;Р3С11013[]:String;Р3С11014[]:String;
Р3С11015[]:String;

Печать_Раздел2:Logical = [true];
Печать_Раздел3:Logical = [false];

Метка1:String="";
Метка2:String="";
Метка3:String="";
Метка4:String="";
Метка5:String="";

КолРазд1:Integer=[1];-- Количество страниц раздела 1;
ТекРазд1:Integer=[1];-- Текущий номер раздела 1
ТекстДобавления1:String=str(ТекРазд1)+' из '+str(КолРазд1);

-- Массивы для сохранения раздела 1

Страница1_[]:String;
Страница2_[]:String;
Страница3_[]:String;
Страница4_[]:String;
Страница5_[]:String;
Страница6_[]:String;

КБК1_1_[] :String;  КБК1_2_[] :String;  КБК1_3_[] :String;
КБК2_1_[] :String;  КБК2_2_[] :String;  КБК2_3_[] :String;
КБК3_1_[] :String;  КБК3_2_[] :String;  КБК3_3_[] :String;
КБК4_1_[] :String;  КБК4_2_[] :String;  КБК4_3_[] :String;
КБК5_1_[] :String;  КБК5_2_[] :String;  КБК5_3_[] :String;
КБК6_1_[] :String;  КБК6_2_[] :String;  КБК6_3_[] :String;
КБК7_1_[] :String;  КБК7_2_[] :String;  КБК7_3_[] :String;
КБК8_1_[] :String;  КБК8_2_[] :String;  КБК8_3_[] :String;
КБК9_1_[] :String;  КБК9_2_[] :String;  КБК9_3_[] :String;
КБК10_1_[]:String;  КБК10_2_[]:String;  КБК10_3_[]:String;
КБК11_1_[]:String;  КБК11_2_[]:String;  КБК11_3_[]:String;
КБК12_1_[]:String;  КБК12_2_[]:String;  КБК12_3_[]:String;
КБК13_1_[]:String;  КБК13_2_[]:String;  КБК13_3_[]:String;
КБК14_1_[]:String;  КБК14_2_[]:String;  КБК14_3_[]:String;
КБК15_1_[]:String;  КБК15_2_[]:String;  КБК15_3_[]:String;
КБК16_1_[]:String;  КБК16_2_[]:String;  КБК16_3_[]:String;
КБК17_1_[]:String;  КБК17_2_[]:String;  КБК17_3_[]:String;
КБК18_1_[]:String;  КБК18_2_[]:String;  КБК18_3_[]:String;
КБК19_1_[]:String;  КБК19_2_[]:String;  КБК19_3_[]:String;
КБК20_1_[]:String;  КБК20_2_[]:String;  КБК20_3_[]:String;

КБК1_4_[] :String;  КБК1_5_[] :String;  КБК1_6_[] :String;  КБК1_7_[] :String;
КБК2_4_[] :String;  КБК2_5_[] :String;  КБК2_6_[] :String;  КБК2_7_[] :String;
КБК3_4_[] :String;  КБК3_5_[] :String;  КБК3_6_[] :String;  КБК3_7_[] :String;
КБК4_4_[] :String;  КБК4_5_[] :String;  КБК4_6_[] :String;  КБК4_7_[] :String;
КБК5_4_[] :String;  КБК5_5_[] :String;  КБК5_6_[] :String;  КБК5_7_[] :String;
КБК6_4_[] :String;  КБК6_5_[] :String;  КБК6_6_[] :String;  КБК6_7_[] :String;
КБК7_4_[] :String;  КБК7_5_[] :String;  КБК7_6_[] :String;  КБК7_7_[] :String;
КБК8_4_[] :String;  КБК8_5_[] :String;  КБК8_6_[] :String;  КБК8_7_[] :String;
КБК9_4_[] :String;  КБК9_5_[] :String;  КБК9_6_[] :String;  КБК9_7_[] :String;
КБК10_4_[]:String;  КБК10_5_[]:String;  КБК10_6_[]:String;  КБК10_7_[]:String;
КБК11_4_[]:String;  КБК11_5_[]:String;  КБК11_6_[]:String;  КБК11_7_[]:String;
КБК12_4_[]:String;  КБК12_5_[]:String;  КБК12_6_[]:String;  КБК12_7_[]:String;
КБК13_4_[]:String;  КБК13_5_[]:String;  КБК13_6_[]:String;  КБК13_7_[]:String;
КБК14_4_[]:String;  КБК14_5_[]:String;  КБК14_6_[]:String;  КБК14_7_[]:String;
КБК15_4_[]:String;  КБК15_5_[]:String;  КБК15_6_[]:String;  КБК15_7_[]:String;
КБК16_4_[]:String;  КБК16_5_[]:String;  КБК16_6_[]:String;  КБК16_7_[]:String;
КБК17_4_[]:String;  КБК17_5_[]:String;  КБК17_6_[]:String;  КБК17_7_[]:String;
КБК18_4_[]:String;  КБК18_5_[]:String;  КБК18_6_[]:String;  КБК18_7_[]:String;
КБК19_4_[]:String;  КБК19_5_[]:String;  КБК19_6_[]:String;  КБК19_7_[]:String;
КБК20_4_[]:String;  КБК20_5_[]:String;  КБК20_6_[]:String;  КБК20_7_[]:String;

ОКАТО1_1_[] :String;  ОКАТО1_2_[] :String;  ОКАТО1_3_[] :String;
ОКАТО2_1_[] :String;  ОКАТО2_2_[] :String;  ОКАТО2_3_[] :String;
ОКАТО3_1_[] :String;  ОКАТО3_2_[] :String;  ОКАТО3_3_[] :String;
ОКАТО4_1_[] :String;  ОКАТО4_2_[] :String;  ОКАТО4_3_[] :String;
ОКАТО5_1_[] :String;  ОКАТО5_2_[] :String;  ОКАТО5_3_[] :String;
ОКАТО6_1_[] :String;  ОКАТО6_2_[] :String;  ОКАТО6_3_[] :String;
ОКАТО7_1_[] :String;  ОКАТО7_2_[] :String;  ОКАТО7_3_[] :String;
ОКАТО8_1_[] :String;  ОКАТО8_2_[] :String;  ОКАТО8_3_[] :String;
ОКАТО9_1_[] :String;  ОКАТО9_2_[] :String;  ОКАТО9_3_[] :String;
ОКАТО10_1_[]:String;  ОКАТО10_2_[]:String;  ОКАТО10_3_[]:String;
ОКАТО11_1_[]:String;  ОКАТО11_2_[]:String;  ОКАТО11_3_[]:String;

ОКАТО1_4_[] :String;  ОКАТО1_5_[] :String;  ОКАТО1_6_[] :String;  ОКАТО1_7_[] :String;
ОКАТО2_4_[] :String;  ОКАТО2_5_[] :String;  ОКАТО2_6_[] :String;  ОКАТО2_7_[] :String;
ОКАТО3_4_[] :String;  ОКАТО3_5_[] :String;  ОКАТО3_6_[] :String;  ОКАТО3_7_[] :String;
ОКАТО4_4_[] :String;  ОКАТО4_5_[] :String;  ОКАТО4_6_[] :String;  ОКАТО4_7_[] :String;
ОКАТО5_4_[] :String;  ОКАТО5_5_[] :String;  ОКАТО5_6_[] :String;  ОКАТО5_7_[] :String;
ОКАТО6_4_[] :String;  ОКАТО6_5_[] :String;  ОКАТО6_6_[] :String;  ОКАТО6_7_[] :String;
ОКАТО7_4_[] :String;  ОКАТО7_5_[] :String;  ОКАТО7_6_[] :String;  ОКАТО7_7_[] :String;
ОКАТО8_4_[] :String;  ОКАТО8_5_[] :String;  ОКАТО8_6_[] :String;  ОКАТО8_7_[] :String;
ОКАТО9_4_[] :String;  ОКАТО9_5_[] :String;  ОКАТО9_6_[] :String;  ОКАТО9_7_[] :String;
ОКАТО10_4_[]:String;  ОКАТО10_5_[]:String;  ОКАТО10_6_[]:String;  ОКАТО10_7_[]:String;
ОКАТО11_4_[]:String;  ОКАТО11_5_[]:String;  ОКАТО11_6_[]:String;  ОКАТО11_7_[]:String;

СумНалога1_1_[] :String;  СумНалога1_2_[] :String;  СумНалога1_3_[] :String;
СумНалога2_1_[] :String;  СумНалога2_2_[] :String;  СумНалога2_3_[] :String;
СумНалога3_1_[] :String;  СумНалога3_2_[] :String;  СумНалога3_3_[] :String;
СумНалога4_1_[] :String;  СумНалога4_2_[] :String;  СумНалога4_3_[] :String;
СумНалога5_1_[] :String;  СумНалога5_2_[] :String;  СумНалога5_3_[] :String;
СумНалога6_1_[] :String;  СумНалога6_2_[] :String;  СумНалога6_3_[] :String;
СумНалога7_1_[] :String;  СумНалога7_2_[] :String;  СумНалога7_3_[] :String;
СумНалога8_1_[] :String;  СумНалога8_2_[] :String;  СумНалога8_3_[] :String;
СумНалога9_1_[] :String;  СумНалога9_2_[] :String;  СумНалога9_3_[] :String;
СумНалога10_1_[]:String;  СумНалога10_2_[]:String;  СумНалога10_3_[]:String;
СумНалога11_1_[]:String;  СумНалога11_2_[]:String;  СумНалога11_3_[]:String;
СумНалога12_1_[]:String;  СумНалога12_2_[]:String;  СумНалога12_3_[]:String;
СумНалога13_1_[]:String;  СумНалога13_2_[]:String;  СумНалога13_3_[]:String;
СумНалога14_1_[]:String;  СумНалога14_2_[]:String;  СумНалога14_3_[]:String;
СумНалога15_1_[]:String;  СумНалога15_2_[]:String;  СумНалога15_3_[]:String;

СумНалога1_4_[] :String;  СумНалога1_5_[] :String;  СумНалога1_6_[] :String;  СумНалога1_7_[] :String;
СумНалога2_4_[] :String;  СумНалога2_5_[] :String;  СумНалога2_6_[] :String;  СумНалога2_7_[] :String;
СумНалога3_4_[] :String;  СумНалога3_5_[] :String;  СумНалога3_6_[] :String;  СумНалога3_7_[] :String;
СумНалога4_4_[] :String;  СумНалога4_5_[] :String;  СумНалога4_6_[] :String;  СумНалога4_7_[] :String;
СумНалога5_4_[] :String;  СумНалога5_5_[] :String;  СумНалога5_6_[] :String;  СумНалога5_7_[] :String;
СумНалога6_4_[] :String;  СумНалога6_5_[] :String;  СумНалога6_6_[] :String;  СумНалога6_7_[] :String;
СумНалога7_4_[] :String;  СумНалога7_5_[] :String;  СумНалога7_6_[] :String;  СумНалога7_7_[] :String;
СумНалога8_4_[] :String;  СумНалога8_5_[] :String;  СумНалога8_6_[] :String;  СумНалога8_7_[] :String;
СумНалога9_4_[] :String;  СумНалога9_5_[] :String;  СумНалога9_6_[] :String;  СумНалога9_7_[] :String;
СумНалога10_4_[]:String;  СумНалога10_5_[]:String;  СумНалога10_6_[]:String;  СумНалога10_7_[]:String;
СумНалога11_4_[]:String;  СумНалога11_5_[]:String;  СумНалога11_6_[]:String;  СумНалога11_7_[]:String;
СумНалога12_4_[]:String;  СумНалога12_5_[]:String;  СумНалога12_6_[]:String;  СумНалога12_7_[]:String;
СумНалога13_4_[]:String;  СумНалога13_5_[]:String;  СумНалога13_6_[]:String;  СумНалога13_7_[]:String;
СумНалога14_4_[]:String;  СумНалога14_5_[]:String;  СумНалога14_6_[]:String;  СумНалога14_7_[]:String;
СумНалога15_4_[]:String;  СумНалога15_5_[]:String;  СумНалога15_6_[]:String;  СумНалога15_7_[]:String;

 ------ переменные для расчета недвижимости --
 --ПризнакНедвиж    : string = ['ЛГОС.*&~ЛГОС.0'];
 ПризнакНедвиж    : string;
 ---------------------------------------------

 var Buf[]    :String;

 proc Перейти_ПриНажатии(Кнопка:String);
   if Кнопка="кнПереход1":
       Шаблон.Поле="Метка3";
       Шаблон.Поле="Метка2";
     |Кнопка="кнПереход2":
       Шаблон.Поле="Метка4";
       Шаблон.Поле="Метка3";
     |Кнопка="кнПереход3":
       Шаблон.Поле="Метка5";
       Шаблон.Поле="Метка4";
     |True:
       Шаблон.Поле="Метка1";
   fi;
 end;

proc СохранитьРаздел1(Номер:Integer);
  Страница1_[Номер]=Страница1;
  Страница2_[Номер]=Страница2;
  Страница3_[Номер]=Страница3;
  Страница4_[Номер]=Страница4;
  Страница5_[Номер]=Страница5;
  Страница6_[Номер]=Страница6;

  КБК1_1_[Номер] =КБК1[1];   КБК1_2_[Номер] =КБК1[2];   КБК1_3_[Номер] =КБК1[3];
  КБК2_1_[Номер] =КБК2[1];   КБК2_2_[Номер] =КБК2[2];   КБК2_3_[Номер] =КБК2[3];
  КБК3_1_[Номер] =КБК3[1];   КБК3_2_[Номер] =КБК3[2];   КБК3_3_[Номер] =КБК3[3];
  КБК4_1_[Номер] =КБК4[1];   КБК4_2_[Номер] =КБК4[2];   КБК4_3_[Номер] =КБК4[3];
  КБК5_1_[Номер] =КБК5[1];   КБК5_2_[Номер] =КБК5[2];   КБК5_3_[Номер] =КБК5[3];
  КБК6_1_[Номер] =КБК6[1];   КБК6_2_[Номер] =КБК6[2];   КБК6_3_[Номер] =КБК6[3];
  КБК7_1_[Номер] =КБК7[1];   КБК7_2_[Номер] =КБК7[2];   КБК7_3_[Номер] =КБК7[3];
  КБК8_1_[Номер] =КБК8[1];   КБК8_2_[Номер] =КБК8[2];   КБК8_3_[Номер] =КБК8[3];
  КБК9_1_[Номер] =КБК9[1];   КБК9_2_[Номер] =КБК9[2];   КБК9_3_[Номер] =КБК9[3];
  КБК10_1_[Номер]=КБК10[1];  КБК10_2_[Номер]=КБК10[2];  КБК10_3_[Номер]=КБК10[3];
  КБК11_1_[Номер]=КБК11[1];  КБК11_2_[Номер]=КБК11[2];  КБК11_3_[Номер]=КБК11[3];
  КБК12_1_[Номер]=КБК12[1];  КБК12_2_[Номер]=КБК12[2];  КБК12_3_[Номер]=КБК12[3];
  КБК13_1_[Номер]=КБК13[1];  КБК13_2_[Номер]=КБК13[2];  КБК13_3_[Номер]=КБК13[3];
  КБК14_1_[Номер]=КБК14[1];  КБК14_2_[Номер]=КБК14[2];  КБК14_3_[Номер]=КБК14[3];
  КБК15_1_[Номер]=КБК15[1];  КБК15_2_[Номер]=КБК15[2];  КБК15_3_[Номер]=КБК15[3];
  КБК16_1_[Номер]=КБК16[1];  КБК16_2_[Номер]=КБК16[2];  КБК16_3_[Номер]=КБК16[3];
  КБК17_1_[Номер]=КБК17[1];  КБК17_2_[Номер]=КБК17[2];  КБК17_3_[Номер]=КБК17[3];
  КБК18_1_[Номер]=КБК18[1];  КБК18_2_[Номер]=КБК18[2];  КБК18_3_[Номер]=КБК18[3];
  КБК19_1_[Номер]=КБК19[1];  КБК19_2_[Номер]=КБК19[2];  КБК19_3_[Номер]=КБК19[3];
  КБК20_1_[Номер]=КБК20[1];  КБК20_2_[Номер]=КБК20[2];  КБК20_3_[Номер]=КБК20[3];

  КБК1_4_[Номер] =КБК1[4];   КБК1_5_[Номер] =КБК1[5];   КБК1_6_[Номер] =КБК1[6];   КБК1_7_[Номер] =КБК1[7];
  КБК2_4_[Номер] =КБК2[4];   КБК2_5_[Номер] =КБК2[5];   КБК2_6_[Номер] =КБК2[6];   КБК2_7_[Номер] =КБК2[7];
  КБК3_4_[Номер] =КБК3[4];   КБК3_5_[Номер] =КБК3[5];   КБК3_6_[Номер] =КБК3[6];   КБК3_7_[Номер] =КБК3[7];
  КБК4_4_[Номер] =КБК4[4];   КБК4_5_[Номер] =КБК4[5];   КБК4_6_[Номер] =КБК4[6];   КБК4_7_[Номер] =КБК4[7];
  КБК5_4_[Номер] =КБК5[4];   КБК5_5_[Номер] =КБК5[5];   КБК5_6_[Номер] =КБК5[6];   КБК5_7_[Номер] =КБК5[7];
  КБК6_4_[Номер] =КБК6[4];   КБК6_5_[Номер] =КБК6[5];   КБК6_6_[Номер] =КБК6[6];   КБК6_7_[Номер] =КБК6[7];
  КБК7_4_[Номер] =КБК7[4];   КБК7_5_[Номер] =КБК7[5];   КБК7_6_[Номер] =КБК7[6];   КБК7_7_[Номер] =КБК7[7];
  КБК8_4_[Номер] =КБК8[4];   КБК8_5_[Номер] =КБК8[5];   КБК8_6_[Номер] =КБК8[6];   КБК8_7_[Номер] =КБК8[7];
  КБК9_4_[Номер] =КБК9[4];   КБК9_5_[Номер] =КБК9[5];   КБК9_6_[Номер] =КБК9[6];   КБК9_7_[Номер] =КБК9[7];
  КБК10_4_[Номер]=КБК10[4];  КБК10_5_[Номер]=КБК10[5];  КБК10_6_[Номер]=КБК10[6];  КБК10_7_[Номер]=КБК10[7];
  КБК11_4_[Номер]=КБК11[4];  КБК11_5_[Номер]=КБК11[5];  КБК11_6_[Номер]=КБК11[6];  КБК11_7_[Номер]=КБК11[7];
  КБК12_4_[Номер]=КБК12[4];  КБК12_5_[Номер]=КБК12[5];  КБК12_6_[Номер]=КБК12[6];  КБК12_7_[Номер]=КБК12[7];
  КБК13_4_[Номер]=КБК13[4];  КБК13_5_[Номер]=КБК13[5];  КБК13_6_[Номер]=КБК13[6];  КБК13_7_[Номер]=КБК13[7];
  КБК14_4_[Номер]=КБК14[4];  КБК14_5_[Номер]=КБК14[5];  КБК14_6_[Номер]=КБК14[6];  КБК14_7_[Номер]=КБК14[7];
  КБК15_4_[Номер]=КБК15[4];  КБК15_5_[Номер]=КБК15[5];  КБК15_6_[Номер]=КБК15[6];  КБК15_7_[Номер]=КБК15[7];
  КБК16_4_[Номер]=КБК16[4];  КБК16_5_[Номер]=КБК16[5];  КБК16_6_[Номер]=КБК16[6];  КБК16_7_[Номер]=КБК16[7];
  КБК17_4_[Номер]=КБК17[4];  КБК17_5_[Номер]=КБК17[5];  КБК17_6_[Номер]=КБК17[6];  КБК17_7_[Номер]=КБК17[7];
  КБК18_4_[Номер]=КБК18[4];  КБК18_5_[Номер]=КБК18[5];  КБК18_6_[Номер]=КБК18[6];  КБК18_7_[Номер]=КБК18[7];
  КБК19_4_[Номер]=КБК19[4];  КБК19_5_[Номер]=КБК19[5];  КБК19_6_[Номер]=КБК19[6];  КБК19_7_[Номер]=КБК19[7];
  КБК20_4_[Номер]=КБК20[4];  КБК20_5_[Номер]=КБК20[5];  КБК20_6_[Номер]=КБК20[6];  КБК20_7_[Номер]=КБК20[7];

  ОКАТО1_1_[Номер] =ОКАТО1[1];   ОКАТО1_2_[Номер] =ОКАТО1[2];   ОКАТО1_3_[Номер] =ОКАТО1[3];
  ОКАТО2_1_[Номер] =ОКАТО2[1];   ОКАТО2_2_[Номер] =ОКАТО2[2];   ОКАТО2_3_[Номер] =ОКАТО2[3];
  ОКАТО3_1_[Номер] =ОКАТО3[1];   ОКАТО3_2_[Номер] =ОКАТО3[2];   ОКАТО3_3_[Номер] =ОКАТО3[3];
  ОКАТО4_1_[Номер] =ОКАТО4[1];   ОКАТО4_2_[Номер] =ОКАТО4[2];   ОКАТО4_3_[Номер] =ОКАТО4[3];
  ОКАТО5_1_[Номер] =ОКАТО5[1];   ОКАТО5_2_[Номер] =ОКАТО5[2];   ОКАТО5_3_[Номер] =ОКАТО5[3];
  ОКАТО6_1_[Номер] =ОКАТО6[1];   ОКАТО6_2_[Номер] =ОКАТО6[2];   ОКАТО6_3_[Номер] =ОКАТО6[3];
  ОКАТО7_1_[Номер] =ОКАТО7[1];   ОКАТО7_2_[Номер] =ОКАТО7[2];   ОКАТО7_3_[Номер] =ОКАТО7[3];
  ОКАТО8_1_[Номер] =ОКАТО8[1];   ОКАТО8_2_[Номер] =ОКАТО8[2];   ОКАТО8_3_[Номер] =ОКАТО8[3];
  ОКАТО9_1_[Номер] =ОКАТО9[1];   ОКАТО9_2_[Номер] =ОКАТО9[2];   ОКАТО9_3_[Номер] =ОКАТО9[3];
  ОКАТО10_1_[Номер]=ОКАТО10[1];  ОКАТО10_2_[Номер]=ОКАТО10[2];  ОКАТО10_3_[Номер]=ОКАТО10[3];
  ОКАТО11_1_[Номер]=ОКАТО11[1];  ОКАТО11_2_[Номер]=ОКАТО11[2];  ОКАТО11_3_[Номер]=ОКАТО11[3];

  ОКАТО1_4_[Номер] =ОКАТО1[4];   ОКАТО1_5_[Номер] =ОКАТО1[5];   ОКАТО1_6_[Номер] =ОКАТО1[6];   ОКАТО1_7_[Номер] =ОКАТО1[7];
  ОКАТО2_4_[Номер] =ОКАТО2[4];   ОКАТО2_5_[Номер] =ОКАТО2[5];   ОКАТО2_6_[Номер] =ОКАТО2[6];   ОКАТО2_7_[Номер] =ОКАТО2[7];
  ОКАТО3_4_[Номер] =ОКАТО3[4];   ОКАТО3_5_[Номер] =ОКАТО3[5];   ОКАТО3_6_[Номер] =ОКАТО3[6];   ОКАТО3_7_[Номер] =ОКАТО3[7];
  ОКАТО4_4_[Номер] =ОКАТО4[4];   ОКАТО4_5_[Номер] =ОКАТО4[5];   ОКАТО4_6_[Номер] =ОКАТО4[6];   ОКАТО4_7_[Номер] =ОКАТО4[7];
  ОКАТО5_4_[Номер] =ОКАТО5[4];   ОКАТО5_5_[Номер] =ОКАТО5[5];   ОКАТО5_6_[Номер] =ОКАТО5[6];   ОКАТО5_7_[Номер] =ОКАТО5[7];
  ОКАТО6_4_[Номер] =ОКАТО6[4];   ОКАТО6_5_[Номер] =ОКАТО6[5];   ОКАТО6_6_[Номер] =ОКАТО6[6];   ОКАТО6_7_[Номер] =ОКАТО6[7];
  ОКАТО7_4_[Номер] =ОКАТО7[4];   ОКАТО7_5_[Номер] =ОКАТО7[5];   ОКАТО7_6_[Номер] =ОКАТО7[6];   ОКАТО7_7_[Номер] =ОКАТО7[7];
  ОКАТО8_4_[Номер] =ОКАТО8[4];   ОКАТО8_5_[Номер] =ОКАТО8[5];   ОКАТО8_6_[Номер] =ОКАТО8[6];   ОКАТО8_7_[Номер] =ОКАТО8[7];
  ОКАТО9_4_[Номер] =ОКАТО9[4];   ОКАТО9_5_[Номер] =ОКАТО9[5];   ОКАТО9_6_[Номер] =ОКАТО9[6];   ОКАТО9_7_[Номер] =ОКАТО9[7];
  ОКАТО10_4_[Номер]=ОКАТО10[4];  ОКАТО10_5_[Номер]=ОКАТО10[5];  ОКАТО10_6_[Номер]=ОКАТО10[6];  ОКАТО10_7_[Номер]=ОКАТО10[7];
  ОКАТО11_4_[Номер]=ОКАТО11[4];  ОКАТО11_5_[Номер]=ОКАТО11[5];  ОКАТО11_6_[Номер]=ОКАТО11[6];  ОКАТО11_7_[Номер]=ОКАТО11[7];

  СумНалога1_1_[Номер] =СумНалога1[1];   СумНалога1_2_[Номер] =СумНалога1[2];   СумНалога1_3_[Номер] =СумНалога1[3];
  СумНалога2_1_[Номер] =СумНалога2[1];   СумНалога2_2_[Номер] =СумНалога2[2];   СумНалога2_3_[Номер] =СумНалога2[3];
  СумНалога3_1_[Номер] =СумНалога3[1];   СумНалога3_2_[Номер] =СумНалога3[2];   СумНалога3_3_[Номер] =СумНалога3[3];
  СумНалога4_1_[Номер] =СумНалога4[1];   СумНалога4_2_[Номер] =СумНалога4[2];   СумНалога4_3_[Номер] =СумНалога4[3];
  СумНалога5_1_[Номер] =СумНалога5[1];   СумНалога5_2_[Номер] =СумНалога5[2];   СумНалога5_3_[Номер] =СумНалога5[3];
  СумНалога6_1_[Номер] =СумНалога6[1];   СумНалога6_2_[Номер] =СумНалога6[2];   СумНалога6_3_[Номер] =СумНалога6[3];
  СумНалога7_1_[Номер] =СумНалога7[1];   СумНалога7_2_[Номер] =СумНалога7[2];   СумНалога7_3_[Номер] =СумНалога7[3];
  СумНалога8_1_[Номер] =СумНалога8[1];   СумНалога8_2_[Номер] =СумНалога8[2];   СумНалога8_3_[Номер] =СумНалога8[3];
  СумНалога9_1_[Номер] =СумНалога9[1];   СумНалога9_2_[Номер] =СумНалога9[2];   СумНалога9_3_[Номер] =СумНалога9[3];
  СумНалога10_1_[Номер]=СумНалога10[1];  СумНалога10_2_[Номер]=СумНалога10[2];  СумНалога10_3_[Номер]=СумНалога10[3];
  СумНалога11_1_[Номер]=СумНалога11[1];  СумНалога11_2_[Номер]=СумНалога11[2];  СумНалога11_3_[Номер]=СумНалога11[3];
  СумНалога12_1_[Номер]=СумНалога12[1];  СумНалога12_2_[Номер]=СумНалога12[2];  СумНалога12_3_[Номер]=СумНалога12[3];
  СумНалога13_1_[Номер]=СумНалога13[1];  СумНалога13_2_[Номер]=СумНалога13[2];  СумНалога13_3_[Номер]=СумНалога13[3];
  СумНалога14_1_[Номер]=СумНалога14[1];  СумНалога14_2_[Номер]=СумНалога14[2];  СумНалога14_3_[Номер]=СумНалога14[3];
  СумНалога15_1_[Номер]=СумНалога15[1];  СумНалога15_2_[Номер]=СумНалога15[2];  СумНалога15_3_[Номер]=СумНалога15[3];

  СумНалога1_4_[Номер] =СумНалога1[4];   СумНалога1_5_[Номер] =СумНалога1[5];   СумНалога1_6_[Номер] =СумНалога1[6];   СумНалога1_7_[Номер] =СумНалога1[7];
  СумНалога2_4_[Номер] =СумНалога2[4];   СумНалога2_5_[Номер] =СумНалога2[5];   СумНалога2_6_[Номер] =СумНалога2[6];   СумНалога2_7_[Номер] =СумНалога2[7];
  СумНалога3_4_[Номер] =СумНалога3[4];   СумНалога3_5_[Номер] =СумНалога3[5];   СумНалога3_6_[Номер] =СумНалога3[6];   СумНалога3_7_[Номер] =СумНалога3[7];
  СумНалога4_4_[Номер] =СумНалога4[4];   СумНалога4_5_[Номер] =СумНалога4[5];   СумНалога4_6_[Номер] =СумНалога4[6];   СумНалога4_7_[Номер] =СумНалога4[7];
  СумНалога5_4_[Номер] =СумНалога5[4];   СумНалога5_5_[Номер] =СумНалога5[5];   СумНалога5_6_[Номер] =СумНалога5[6];   СумНалога5_7_[Номер] =СумНалога5[7];
  СумНалога6_4_[Номер] =СумНалога6[4];   СумНалога6_5_[Номер] =СумНалога6[5];   СумНалога6_6_[Номер] =СумНалога6[6];   СумНалога6_7_[Номер] =СумНалога6[7];
  СумНалога7_4_[Номер] =СумНалога7[4];   СумНалога7_5_[Номер] =СумНалога7[5];   СумНалога7_6_[Номер] =СумНалога7[6];   СумНалога7_7_[Номер] =СумНалога7[7];
  СумНалога8_4_[Номер] =СумНалога8[4];   СумНалога8_5_[Номер] =СумНалога8[5];   СумНалога8_6_[Номер] =СумНалога8[6];   СумНалога8_7_[Номер] =СумНалога8[7];
  СумНалога9_4_[Номер] =СумНалога9[4];   СумНалога9_5_[Номер] =СумНалога9[5];   СумНалога9_6_[Номер] =СумНалога9[6];   СумНалога9_7_[Номер] =СумНалога9[7];
  СумНалога10_4_[Номер]=СумНалога10[4];  СумНалога10_5_[Номер]=СумНалога10[5];  СумНалога10_6_[Номер]=СумНалога10[6];  СумНалога10_7_[Номер]=СумНалога10[7];
  СумНалога11_4_[Номер]=СумНалога11[4];  СумНалога11_5_[Номер]=СумНалога11[5];  СумНалога11_6_[Номер]=СумНалога11[6];  СумНалога11_7_[Номер]=СумНалога11[7];
  СумНалога12_4_[Номер]=СумНалога12[4];  СумНалога12_5_[Номер]=СумНалога12[5];  СумНалога12_6_[Номер]=СумНалога12[6];  СумНалога12_7_[Номер]=СумНалога12[7];
  СумНалога13_4_[Номер]=СумНалога13[4];  СумНалога13_5_[Номер]=СумНалога13[5];  СумНалога13_6_[Номер]=СумНалога13[6];  СумНалога13_7_[Номер]=СумНалога13[7];
  СумНалога14_4_[Номер]=СумНалога14[4];  СумНалога14_5_[Номер]=СумНалога14[5];  СумНалога14_6_[Номер]=СумНалога14[6];  СумНалога14_7_[Номер]=СумНалога14[7];
  СумНалога15_4_[Номер]=СумНалога15[4];  СумНалога15_5_[Номер]=СумНалога15[5];  СумНалога15_6_[Номер]=СумНалога15[6];  СумНалога15_7_[Номер]=СумНалога15[7];
end;

proc СчитатьРаздел1(Номер:Integer);
  Страница1=Страница1_[Номер];
  Страница2=Страница2_[Номер];
  Страница3=Страница3_[Номер];
  Страница4=Страница4_[Номер];
  Страница5=Страница5_[Номер];
  Страница6=Страница6_[Номер];
  КБК1[1] =КБК1_1_[Номер];   КБК1[2] =КБК1_2_[Номер];   КБК1[3] =КБК1_3_[Номер];
  КБК2[1] =КБК2_1_[Номер];   КБК2[2] =КБК2_2_[Номер];   КБК2[3] =КБК2_3_[Номер];
  КБК3[1] =КБК3_1_[Номер];   КБК3[2] =КБК3_2_[Номер];   КБК3[3] =КБК3_3_[Номер];
  КБК4[1] =КБК4_1_[Номер];   КБК4[2] =КБК4_2_[Номер];   КБК4[3] =КБК4_3_[Номер];
  КБК5[1] =КБК5_1_[Номер];   КБК5[2] =КБК5_2_[Номер];   КБК5[3] =КБК5_3_[Номер];
  КБК6[1] =КБК6_1_[Номер];   КБК6[2] =КБК6_2_[Номер];   КБК6[3] =КБК6_3_[Номер];
  КБК7[1] =КБК7_1_[Номер];   КБК7[2] =КБК7_2_[Номер];   КБК7[3] =КБК7_3_[Номер];
  КБК8[1] =КБК8_1_[Номер];   КБК8[2] =КБК8_2_[Номер];   КБК8[3] =КБК8_3_[Номер];
  КБК9[1] =КБК9_1_[Номер];   КБК9[2] =КБК9_2_[Номер];   КБК9[3] =КБК9_3_[Номер];
  КБК10[1]=КБК10_1_[Номер];  КБК10[2]=КБК10_2_[Номер];  КБК10[3]=КБК10_3_[Номер];
  КБК11[1]=КБК11_1_[Номер];  КБК11[2]=КБК11_2_[Номер];  КБК11[3]=КБК11_3_[Номер];
  КБК12[1]=КБК12_1_[Номер];  КБК12[2]=КБК12_2_[Номер];  КБК12[3]=КБК12_3_[Номер];
  КБК13[1]=КБК13_1_[Номер];  КБК13[2]=КБК13_2_[Номер];  КБК13[3]=КБК13_3_[Номер];
  КБК14[1]=КБК14_1_[Номер];  КБК14[2]=КБК14_2_[Номер];  КБК14[3]=КБК14_3_[Номер];
  КБК15[1]=КБК15_1_[Номер];  КБК15[2]=КБК15_2_[Номер];  КБК15[3]=КБК15_3_[Номер];
  КБК16[1]=КБК16_1_[Номер];  КБК16[2]=КБК16_2_[Номер];  КБК16[3]=КБК16_3_[Номер];
  КБК17[1]=КБК17_1_[Номер];  КБК17[2]=КБК17_2_[Номер];  КБК17[3]=КБК17_3_[Номер];
  КБК18[1]=КБК18_1_[Номер];  КБК18[2]=КБК18_2_[Номер];  КБК18[3]=КБК18_3_[Номер];
  КБК19[1]=КБК19_1_[Номер];  КБК19[2]=КБК19_2_[Номер];  КБК19[3]=КБК19_3_[Номер];
  КБК20[1]=КБК20_1_[Номер];  КБК20[2]=КБК20_2_[Номер];  КБК20[3]=КБК20_3_[Номер];

  КБК1[4] =КБК1_4_[Номер];   КБК1[5] =КБК1_5_[Номер];   КБК1[6] =КБК1_6_[Номер];   КБК1[7] =КБК1_7_[Номер];
  КБК2[4] =КБК2_4_[Номер];   КБК2[5] =КБК2_5_[Номер];   КБК2[6] =КБК2_6_[Номер];   КБК2[7] =КБК2_7_[Номер];
  КБК3[4] =КБК3_4_[Номер];   КБК3[5] =КБК3_5_[Номер];   КБК3[6] =КБК3_6_[Номер];   КБК3[7] =КБК3_7_[Номер];
  КБК4[4] =КБК4_4_[Номер];   КБК4[5] =КБК4_5_[Номер];   КБК4[6] =КБК4_6_[Номер];   КБК4[7] =КБК4_7_[Номер];
  КБК5[4] =КБК5_4_[Номер];   КБК5[5] =КБК5_5_[Номер];   КБК5[6] =КБК5_6_[Номер];   КБК5[7] =КБК5_7_[Номер];
  КБК6[4] =КБК6_4_[Номер];   КБК6[5] =КБК6_5_[Номер];   КБК6[6] =КБК6_6_[Номер];   КБК6[7] =КБК6_7_[Номер];
  КБК7[4] =КБК7_4_[Номер];   КБК7[5] =КБК7_5_[Номер];   КБК7[6] =КБК7_6_[Номер];   КБК7[7] =КБК7_7_[Номер];
  КБК8[4] =КБК8_4_[Номер];   КБК8[5] =КБК8_5_[Номер];   КБК8[6] =КБК8_6_[Номер];   КБК8[7] =КБК8_7_[Номер];
  КБК9[4] =КБК9_4_[Номер];   КБК9[5] =КБК9_5_[Номер];   КБК9[6] =КБК9_6_[Номер];   КБК9[7] =КБК9_7_[Номер];
  КБК10[4]=КБК10_4_[Номер];  КБК10[5]=КБК10_5_[Номер];  КБК10[6]=КБК10_6_[Номер];  КБК10[7]=КБК10_7_[Номер];
  КБК11[4]=КБК11_4_[Номер];  КБК11[5]=КБК11_5_[Номер];  КБК11[6]=КБК11_6_[Номер];  КБК11[7]=КБК11_7_[Номер];
  КБК12[4]=КБК12_4_[Номер];  КБК12[5]=КБК12_5_[Номер];  КБК12[6]=КБК12_6_[Номер];  КБК12[7]=КБК12_7_[Номер];
  КБК13[4]=КБК13_4_[Номер];  КБК13[5]=КБК13_5_[Номер];  КБК13[6]=КБК13_6_[Номер];  КБК13[7]=КБК13_7_[Номер];
  КБК14[4]=КБК14_4_[Номер];  КБК14[5]=КБК14_5_[Номер];  КБК14[6]=КБК14_6_[Номер];  КБК14[7]=КБК14_7_[Номер];
  КБК15[4]=КБК15_4_[Номер];  КБК15[5]=КБК15_5_[Номер];  КБК15[6]=КБК15_6_[Номер];  КБК15[7]=КБК15_7_[Номер];
  КБК16[4]=КБК16_4_[Номер];  КБК16[5]=КБК16_5_[Номер];  КБК16[6]=КБК16_6_[Номер];  КБК16[7]=КБК16_7_[Номер];
  КБК17[4]=КБК17_4_[Номер];  КБК17[5]=КБК17_5_[Номер];  КБК17[6]=КБК17_6_[Номер];  КБК17[7]=КБК17_7_[Номер];
  КБК18[4]=КБК18_4_[Номер];  КБК18[5]=КБК18_5_[Номер];  КБК18[6]=КБК18_6_[Номер];  КБК18[7]=КБК18_7_[Номер];
  КБК19[4]=КБК19_4_[Номер];  КБК19[5]=КБК19_5_[Номер];  КБК19[6]=КБК19_6_[Номер];  КБК19[7]=КБК19_7_[Номер];
  КБК20[4]=КБК20_4_[Номер];  КБК20[5]=КБК20_5_[Номер];  КБК20[6]=КБК20_6_[Номер];  КБК20[7]=КБК20_7_[Номер];

  ОКАТО1[1] =ОКАТО1_1_[Номер];   ОКАТО1[2] =ОКАТО1_2_[Номер];   ОКАТО1[3] =ОКАТО1_3_[Номер];
  ОКАТО2[1] =ОКАТО2_1_[Номер];   ОКАТО2[2] =ОКАТО2_2_[Номер];   ОКАТО2[3] =ОКАТО2_3_[Номер];
  ОКАТО3[1] =ОКАТО3_1_[Номер];   ОКАТО3[2] =ОКАТО3_2_[Номер];   ОКАТО3[3] =ОКАТО3_3_[Номер];
  ОКАТО4[1] =ОКАТО4_1_[Номер];   ОКАТО4[2] =ОКАТО4_2_[Номер];   ОКАТО4[3] =ОКАТО4_3_[Номер];
  ОКАТО5[1] =ОКАТО5_1_[Номер];   ОКАТО5[2] =ОКАТО5_2_[Номер];   ОКАТО5[3] =ОКАТО5_3_[Номер];
  ОКАТО6[1] =ОКАТО6_1_[Номер];   ОКАТО6[2] =ОКАТО6_2_[Номер];   ОКАТО6[3] =ОКАТО6_3_[Номер];
  ОКАТО7[1] =ОКАТО7_1_[Номер];   ОКАТО7[2] =ОКАТО7_2_[Номер];   ОКАТО7[3] =ОКАТО7_3_[Номер];
  ОКАТО8[1] =ОКАТО8_1_[Номер];   ОКАТО8[2] =ОКАТО8_2_[Номер];   ОКАТО8[3] =ОКАТО8_3_[Номер];
  ОКАТО9[1] =ОКАТО9_1_[Номер];   ОКАТО9[2] =ОКАТО9_2_[Номер];   ОКАТО9[3] =ОКАТО9_3_[Номер];
  ОКАТО10[1]=ОКАТО10_1_[Номер];  ОКАТО10[2]=ОКАТО10_2_[Номер];  ОКАТО10[3]=ОКАТО10_3_[Номер];
  ОКАТО11[1]=ОКАТО11_1_[Номер];  ОКАТО11[2]=ОКАТО11_2_[Номер];  ОКАТО11[3]=ОКАТО11_3_[Номер];

  ОКАТО1[4] =ОКАТО1_4_[Номер];   ОКАТО1[5] =ОКАТО1_5_[Номер];   ОКАТО1[6] =ОКАТО1_6_[Номер];   ОКАТО1[7] =ОКАТО1_7_[Номер];
  ОКАТО2[4] =ОКАТО2_4_[Номер];   ОКАТО2[5] =ОКАТО2_5_[Номер];   ОКАТО2[6] =ОКАТО2_6_[Номер];   ОКАТО2[7] =ОКАТО2_7_[Номер];
  ОКАТО3[4] =ОКАТО3_4_[Номер];   ОКАТО3[5] =ОКАТО3_5_[Номер];   ОКАТО3[6] =ОКАТО3_6_[Номер];   ОКАТО3[7] =ОКАТО3_7_[Номер];
  ОКАТО4[4] =ОКАТО4_4_[Номер];   ОКАТО4[5] =ОКАТО4_5_[Номер];   ОКАТО4[6] =ОКАТО4_6_[Номер];   ОКАТО4[7] =ОКАТО4_7_[Номер];
  ОКАТО5[4] =ОКАТО5_4_[Номер];   ОКАТО5[5] =ОКАТО5_5_[Номер];   ОКАТО5[6] =ОКАТО5_6_[Номер];   ОКАТО5[7] =ОКАТО5_7_[Номер];
  ОКАТО6[4] =ОКАТО6_4_[Номер];   ОКАТО6[5] =ОКАТО6_5_[Номер];   ОКАТО6[6] =ОКАТО6_6_[Номер];   ОКАТО6[7] =ОКАТО6_7_[Номер];
  ОКАТО7[4] =ОКАТО7_4_[Номер];   ОКАТО7[5] =ОКАТО7_5_[Номер];   ОКАТО7[6] =ОКАТО7_6_[Номер];   ОКАТО7[7] =ОКАТО7_7_[Номер];
  ОКАТО8[4] =ОКАТО8_4_[Номер];   ОКАТО8[5] =ОКАТО8_5_[Номер];   ОКАТО8[6] =ОКАТО8_6_[Номер];   ОКАТО8[7] =ОКАТО8_7_[Номер];
  ОКАТО9[4] =ОКАТО9_4_[Номер];   ОКАТО9[5] =ОКАТО9_5_[Номер];   ОКАТО9[6] =ОКАТО9_6_[Номер];   ОКАТО9[7] =ОКАТО9_7_[Номер];
  ОКАТО10[4]=ОКАТО10_4_[Номер];  ОКАТО10[5]=ОКАТО10_5_[Номер];  ОКАТО10[6]=ОКАТО10_6_[Номер];  ОКАТО10[7]=ОКАТО10_7_[Номер];
  ОКАТО11[4]=ОКАТО11_4_[Номер];  ОКАТО11[5]=ОКАТО11_5_[Номер];  ОКАТО11[6]=ОКАТО11_6_[Номер];  ОКАТО11[7]=ОКАТО11_7_[Номер];

  СумНалога1[1] =СумНалога1_1_[Номер];   СумНалога1[2] =СумНалога1_2_[Номер];   СумНалога1[3] =СумНалога1_3_[Номер];
  СумНалога2[1] =СумНалога2_1_[Номер];   СумНалога2[2] =СумНалога2_2_[Номер];   СумНалога2[3] =СумНалога2_3_[Номер];
  СумНалога3[1] =СумНалога3_1_[Номер];   СумНалога3[2] =СумНалога3_2_[Номер];   СумНалога3[3] =СумНалога3_3_[Номер];
  СумНалога4[1] =СумНалога4_1_[Номер];   СумНалога4[2] =СумНалога4_2_[Номер];   СумНалога4[3] =СумНалога4_3_[Номер];
  СумНалога5[1] =СумНалога5_1_[Номер];   СумНалога5[2] =СумНалога5_2_[Номер];   СумНалога5[3] =СумНалога5_3_[Номер];
  СумНалога6[1] =СумНалога6_1_[Номер];   СумНалога6[2] =СумНалога6_2_[Номер];   СумНалога6[3] =СумНалога6_3_[Номер];
  СумНалога7[1] =СумНалога7_1_[Номер];   СумНалога7[2] =СумНалога7_2_[Номер];   СумНалога7[3] =СумНалога7_3_[Номер];
  СумНалога8[1] =СумНалога8_1_[Номер];   СумНалога8[2] =СумНалога8_2_[Номер];   СумНалога8[3] =СумНалога8_3_[Номер];
  СумНалога9[1] =СумНалога9_1_[Номер];   СумНалога9[2] =СумНалога9_2_[Номер];   СумНалога9[3] =СумНалога9_3_[Номер];
  СумНалога10[1]=СумНалога10_1_[Номер];  СумНалога10[2]=СумНалога10_2_[Номер];  СумНалога10[3]=СумНалога10_3_[Номер];
  СумНалога11[1]=СумНалога11_1_[Номер];  СумНалога11[2]=СумНалога11_2_[Номер];  СумНалога11[3]=СумНалога11_3_[Номер];
  СумНалога12[1]=СумНалога12_1_[Номер];  СумНалога12[2]=СумНалога12_2_[Номер];  СумНалога12[3]=СумНалога12_3_[Номер];
  СумНалога13[1]=СумНалога13_1_[Номер];  СумНалога13[2]=СумНалога13_2_[Номер];  СумНалога13[3]=СумНалога13_3_[Номер];
  СумНалога14[1]=СумНалога14_1_[Номер];  СумНалога14[2]=СумНалога14_2_[Номер];  СумНалога14[3]=СумНалога14_3_[Номер];
  СумНалога15[1]=СумНалога15_1_[Номер];  СумНалога15[2]=СумНалога15_2_[Номер];  СумНалога15[3]=СумНалога15_3_[Номер];

  СумНалога1[4] =СумНалога1_4_[Номер];   СумНалога1[5] =СумНалога1_5_[Номер];   СумНалога1[6] =СумНалога1_6_[Номер];   СумНалога1[7] =СумНалога1_7_[Номер];
  СумНалога2[4] =СумНалога2_4_[Номер];   СумНалога2[5] =СумНалога2_5_[Номер];   СумНалога2[6] =СумНалога2_6_[Номер];   СумНалога2[7] =СумНалога2_7_[Номер];
  СумНалога3[4] =СумНалога3_4_[Номер];   СумНалога3[5] =СумНалога3_5_[Номер];   СумНалога3[6] =СумНалога3_6_[Номер];   СумНалога3[7] =СумНалога3_7_[Номер];
  СумНалога4[4] =СумНалога4_4_[Номер];   СумНалога4[5] =СумНалога4_5_[Номер];   СумНалога4[6] =СумНалога4_6_[Номер];   СумНалога4[7] =СумНалога4_7_[Номер];
  СумНалога5[4] =СумНалога5_4_[Номер];   СумНалога5[5] =СумНалога5_5_[Номер];   СумНалога5[6] =СумНалога5_6_[Номер];   СумНалога5[7] =СумНалога5_7_[Номер];
  СумНалога6[4] =СумНалога6_4_[Номер];   СумНалога6[5] =СумНалога6_5_[Номер];   СумНалога6[6] =СумНалога6_6_[Номер];   СумНалога6[7] =СумНалога6_7_[Номер];
  СумНалога7[4] =СумНалога7_4_[Номер];   СумНалога7[5] =СумНалога7_5_[Номер];   СумНалога7[6] =СумНалога7_6_[Номер];   СумНалога7[7] =СумНалога7_7_[Номер];
  СумНалога8[4] =СумНалога8_4_[Номер];   СумНалога8[5] =СумНалога8_5_[Номер];   СумНалога8[6] =СумНалога8_6_[Номер];   СумНалога8[7] =СумНалога8_7_[Номер];
  СумНалога9[4] =СумНалога9_4_[Номер];   СумНалога9[5] =СумНалога9_5_[Номер];   СумНалога9[6] =СумНалога9_6_[Номер];   СумНалога9[7] =СумНалога9_7_[Номер];
  СумНалога10[4]=СумНалога10_4_[Номер];  СумНалога10[5]=СумНалога10_5_[Номер];  СумНалога10[6]=СумНалога10_6_[Номер];  СумНалога10[7]=СумНалога10_7_[Номер];
  СумНалога11[4]=СумНалога11_4_[Номер];  СумНалога11[5]=СумНалога11_5_[Номер];  СумНалога11[6]=СумНалога11_6_[Номер];  СумНалога11[7]=СумНалога11_7_[Номер];
  СумНалога12[4]=СумНалога12_4_[Номер];  СумНалога12[5]=СумНалога12_5_[Номер];  СумНалога12[6]=СумНалога12_6_[Номер];  СумНалога12[7]=СумНалога12_7_[Номер];
  СумНалога13[4]=СумНалога13_4_[Номер];  СумНалога13[5]=СумНалога13_5_[Номер];  СумНалога13[6]=СумНалога13_6_[Номер];  СумНалога13[7]=СумНалога13_7_[Номер];
  СумНалога14[4]=СумНалога14_4_[Номер];  СумНалога14[5]=СумНалога14_5_[Номер];  СумНалога14[6]=СумНалога14_6_[Номер];  СумНалога14[7]=СумНалога14_7_[Номер];
  СумНалога15[4]=СумНалога15_4_[Номер];  СумНалога15[5]=СумНалога15_5_[Номер];  СумНалога15[6]=СумНалога15_6_[Номер];  СумНалога15[7]=СумНалога15_7_[Номер];
end;

proc УдалитьРаздел1_ПриНажатии(Кнопка:String);
var i:Integer;

  if (ТекРазд1=КолРазд1) and (ТекРазд1<>1):
    СчитатьРаздел1(ТекРазд1-1);
    КолРазд1=КолРазд1-1;
    ТекРазд1=ТекРазд1-1;
--  fi
  else
   for i=ТекРазд1..КолРазд1 do
       Страница1_[i]=Страница1_[i+1];
       Страница2_[i]=Страница2_[i+1];
       Страница3_[i]=Страница3_[i+1];
       Страница4_[i]=Страница4_[i+1];
       Страница5_[i]=Страница5_[i+1];
       Страница6_[i]=Страница6_[i+1];

       КБК1[1] =КБК1_1_[1];   КБК1[2] =КБК1_2_[i+1];   КБК1[3] =КБК1_3_[i+1];
       КБК2[1] =КБК2_1_[1];   КБК2[2] =КБК2_2_[i+1];   КБК2[3] =КБК2_3_[i+1];
       КБК3[1] =КБК3_1_[1];   КБК3[2] =КБК3_2_[i+1];   КБК3[3] =КБК3_3_[i+1];
       КБК4[1] =КБК4_1_[1];   КБК4[2] =КБК4_2_[i+1];   КБК4[3] =КБК4_3_[i+1];
       КБК5[1] =КБК5_1_[1];   КБК5[2] =КБК5_2_[i+1];   КБК5[3] =КБК5_3_[i+1];
       КБК6[1] =КБК6_1_[1];   КБК6[2] =КБК6_2_[i+1];   КБК6[3] =КБК6_3_[i+1];
       КБК7[1] =КБК7_1_[1];   КБК7[2] =КБК7_2_[i+1];   КБК7[3] =КБК7_3_[i+1];
       КБК8[1] =КБК8_1_[1];   КБК8[2] =КБК8_2_[i+1];   КБК8[3] =КБК8_3_[i+1];
       КБК9[1] =КБК9_1_[1];   КБК9[2] =КБК9_2_[i+1];   КБК9[3] =КБК9_3_[i+1];
       КБК10[1]=КБК10_1_[1];  КБК10[2]=КБК10_2_[i+1];  КБК10[3]=КБК10_3_[i+1];
       КБК11[1]=КБК11_1_[1];  КБК11[2]=КБК11_2_[i+1];  КБК11[3]=КБК11_3_[i+1];
       КБК12[1]=КБК12_1_[1];  КБК12[2]=КБК12_2_[i+1];  КБК12[3]=КБК12_3_[i+1];
       КБК13[1]=КБК13_1_[1];  КБК13[2]=КБК13_2_[i+1];  КБК13[3]=КБК13_3_[i+1];
       КБК14[1]=КБК14_1_[1];  КБК14[2]=КБК14_2_[i+1];  КБК14[3]=КБК14_3_[i+1];
       КБК15[1]=КБК15_1_[1];  КБК15[2]=КБК15_2_[i+1];  КБК15[3]=КБК15_3_[i+1];
       КБК16[1]=КБК16_1_[1];  КБК16[2]=КБК16_2_[i+1];  КБК16[3]=КБК16_3_[i+1];
       КБК17[1]=КБК17_1_[1];  КБК17[2]=КБК17_2_[i+1];  КБК17[3]=КБК17_3_[i+1];
       КБК18[1]=КБК18_1_[1];  КБК18[2]=КБК18_2_[i+1];  КБК18[3]=КБК18_3_[i+1];
       КБК19[1]=КБК19_1_[1];  КБК19[2]=КБК19_2_[i+1];  КБК19[3]=КБК19_3_[i+1];
       КБК20[1]=КБК20_1_[1];  КБК20[2]=КБК20_2_[i+1];  КБК20[3]=КБК20_3_[i+1];

       КБК1[4] =КБК1_4_[i+1];   КБК1[5] =КБК1_5_[i+1];   КБК1[6] =КБК1_6_[i+1];   КБК1[7] =КБК1_7_[i+1];
       КБК2[4] =КБК2_4_[i+1];   КБК2[5] =КБК2_5_[i+1];   КБК2[6] =КБК2_6_[i+1];   КБК2[7] =КБК2_7_[i+1];
       КБК3[4] =КБК3_4_[i+1];   КБК3[5] =КБК3_5_[i+1];   КБК3[6] =КБК3_6_[i+1];   КБК3[7] =КБК3_7_[i+1];
       КБК4[4] =КБК4_4_[i+1];   КБК4[5] =КБК4_5_[i+1];   КБК4[6] =КБК4_6_[i+1];   КБК4[7] =КБК4_7_[i+1];
       КБК5[4] =КБК5_4_[i+1];   КБК5[5] =КБК5_5_[i+1];   КБК5[6] =КБК5_6_[i+1];   КБК5[7] =КБК5_7_[i+1];
       КБК6[4] =КБК6_4_[i+1];   КБК6[5] =КБК6_5_[i+1];   КБК6[6] =КБК6_6_[i+1];   КБК6[7] =КБК6_7_[i+1];
       КБК7[4] =КБК7_4_[i+1];   КБК7[5] =КБК7_5_[i+1];   КБК7[6] =КБК7_6_[i+1];   КБК7[7] =КБК7_7_[i+1];
       КБК8[4] =КБК8_4_[i+1];   КБК8[5] =КБК8_5_[i+1];   КБК8[6] =КБК8_6_[i+1];   КБК8[7] =КБК8_7_[i+1];
       КБК9[4] =КБК9_4_[i+1];   КБК9[5] =КБК9_5_[i+1];   КБК9[6] =КБК9_6_[i+1];   КБК9[7] =КБК9_7_[i+1];
       КБК10[4]=КБК10_4_[i+1];  КБК10[5]=КБК10_5_[i+1];  КБК10[6]=КБК10_6_[i+1];  КБК10[7]=КБК10_7_[i+1];
       КБК11[4]=КБК11_4_[i+1];  КБК11[5]=КБК11_5_[i+1];  КБК11[6]=КБК11_6_[i+1];  КБК11[7]=КБК11_7_[i+1];
       КБК12[4]=КБК12_4_[i+1];  КБК12[5]=КБК12_5_[i+1];  КБК12[6]=КБК12_6_[i+1];  КБК12[7]=КБК12_7_[i+1];
       КБК13[4]=КБК13_4_[i+1];  КБК13[5]=КБК13_5_[i+1];  КБК13[6]=КБК13_6_[i+1];  КБК13[7]=КБК13_7_[i+1];
       КБК14[4]=КБК14_4_[i+1];  КБК14[5]=КБК14_5_[i+1];  КБК14[6]=КБК14_6_[i+1];  КБК14[7]=КБК14_7_[i+1];
       КБК15[4]=КБК15_4_[i+1];  КБК15[5]=КБК15_5_[i+1];  КБК15[6]=КБК15_6_[i+1];  КБК15[7]=КБК15_7_[i+1];
       КБК16[4]=КБК16_4_[i+1];  КБК16[5]=КБК16_5_[i+1];  КБК16[6]=КБК16_6_[i+1];  КБК16[7]=КБК16_7_[i+1];
       КБК17[4]=КБК17_4_[i+1];  КБК17[5]=КБК17_5_[i+1];  КБК17[6]=КБК17_6_[i+1];  КБК17[7]=КБК17_7_[i+1];
       КБК18[4]=КБК18_4_[i+1];  КБК18[5]=КБК18_5_[i+1];  КБК18[6]=КБК18_6_[i+1];  КБК18[7]=КБК18_7_[i+1];
       КБК19[4]=КБК19_4_[i+1];  КБК19[5]=КБК19_5_[i+1];  КБК19[6]=КБК19_6_[i+1];  КБК19[7]=КБК19_7_[i+1];
       КБК20[4]=КБК20_4_[i+1];  КБК20[5]=КБК20_5_[i+1];  КБК20[6]=КБК20_6_[i+1];  КБК20[7]=КБК20_7_[i+1];

       ОКАТО1[1] =ОКАТО1_1_[i+1];   ОКАТО1[2] =ОКАТО1_2_[i+1];   ОКАТО1[3] =ОКАТО1_3_[i+1];
       ОКАТО2[1] =ОКАТО2_1_[i+1];   ОКАТО2[2] =ОКАТО2_2_[i+1];   ОКАТО2[3] =ОКАТО2_3_[i+1];
       ОКАТО3[1] =ОКАТО3_1_[i+1];   ОКАТО3[2] =ОКАТО3_2_[i+1];   ОКАТО3[3] =ОКАТО3_3_[i+1];
       ОКАТО4[1] =ОКАТО4_1_[i+1];   ОКАТО4[2] =ОКАТО4_2_[i+1];   ОКАТО4[3] =ОКАТО4_3_[i+1];
       ОКАТО5[1] =ОКАТО5_1_[i+1];   ОКАТО5[2] =ОКАТО5_2_[i+1];   ОКАТО5[3] =ОКАТО5_3_[i+1];
       ОКАТО6[1] =ОКАТО6_1_[i+1];   ОКАТО6[2] =ОКАТО6_2_[i+1];   ОКАТО6[3] =ОКАТО6_3_[i+1];
       ОКАТО7[1] =ОКАТО7_1_[i+1];   ОКАТО7[2] =ОКАТО7_2_[i+1];   ОКАТО7[3] =ОКАТО7_3_[i+1];
       ОКАТО8[1] =ОКАТО8_1_[i+1];   ОКАТО8[2] =ОКАТО8_2_[i+1];   ОКАТО8[3] =ОКАТО8_3_[i+1];
       ОКАТО9[1] =ОКАТО9_1_[i+1];   ОКАТО9[2] =ОКАТО9_2_[i+1];   ОКАТО9[3] =ОКАТО9_3_[i+1];
       ОКАТО10[1]=ОКАТО10_1_[i+1];  ОКАТО10[2]=ОКАТО10_2_[i+1];  ОКАТО10[3]=ОКАТО10_3_[i+1];
       ОКАТО11[1]=ОКАТО11_1_[i+1];  ОКАТО11[2]=ОКАТО11_2_[i+1];  ОКАТО11[3]=ОКАТО11_3_[i+1];

       ОКАТО1[4] =ОКАТО1_4_[i+1];   ОКАТО1[5] =ОКАТО1_5_[i+1];   ОКАТО1[6] =ОКАТО1_6_[i+1];   ОКАТО1[7] =ОКАТО1_7_[i+1];
       ОКАТО2[4] =ОКАТО2_4_[i+1];   ОКАТО2[5] =ОКАТО2_5_[i+1];   ОКАТО2[6] =ОКАТО2_6_[i+1];   ОКАТО2[7] =ОКАТО2_7_[i+1];
       ОКАТО3[4] =ОКАТО3_4_[i+1];   ОКАТО3[5] =ОКАТО3_5_[i+1];   ОКАТО3[6] =ОКАТО3_6_[i+1];   ОКАТО3[7] =ОКАТО3_7_[i+1];
       ОКАТО4[4] =ОКАТО4_4_[i+1];   ОКАТО4[5] =ОКАТО4_5_[i+1];   ОКАТО4[6] =ОКАТО4_6_[i+1];   ОКАТО4[7] =ОКАТО4_7_[i+1];
       ОКАТО5[4] =ОКАТО5_4_[i+1];   ОКАТО5[5] =ОКАТО5_5_[i+1];   ОКАТО5[6] =ОКАТО5_6_[i+1];   ОКАТО5[7] =ОКАТО5_7_[i+1];
       ОКАТО6[4] =ОКАТО6_4_[i+1];   ОКАТО6[5] =ОКАТО6_5_[i+1];   ОКАТО6[6] =ОКАТО6_6_[i+1];   ОКАТО6[7] =ОКАТО6_7_[i+1];
       ОКАТО7[4] =ОКАТО7_4_[i+1];   ОКАТО7[5] =ОКАТО7_5_[i+1];   ОКАТО7[6] =ОКАТО7_6_[i+1];   ОКАТО7[7] =ОКАТО7_7_[i+1];
       ОКАТО8[4] =ОКАТО8_4_[i+1];   ОКАТО8[5] =ОКАТО8_5_[i+1];   ОКАТО8[6] =ОКАТО8_6_[i+1];   ОКАТО8[7] =ОКАТО8_7_[i+1];
       ОКАТО9[4] =ОКАТО9_4_[i+1];   ОКАТО9[5] =ОКАТО9_5_[i+1];   ОКАТО9[6] =ОКАТО9_6_[i+1];   ОКАТО9[7] =ОКАТО9_7_[i+1];
       ОКАТО10[4]=ОКАТО10_4_[i+1];  ОКАТО10[5]=ОКАТО10_5_[i+1];  ОКАТО10[6]=ОКАТО10_6_[i+1];  ОКАТО10[7]=ОКАТО10_7_[i+1];
       ОКАТО11[4]=ОКАТО11_4_[i+1];  ОКАТО11[5]=ОКАТО11_5_[i+1];  ОКАТО11[6]=ОКАТО11_6_[i+1];  ОКАТО11[7]=ОКАТО11_7_[i+1];

       СумНалога1[1] =СумНалога1_1_[i+1];   СумНалога1[2] =СумНалога1_2_[i+1];   СумНалога1[3] =СумНалога1_3_[i+1];
       СумНалога2[1] =СумНалога2_1_[i+1];   СумНалога2[2] =СумНалога2_2_[i+1];   СумНалога2[3] =СумНалога2_3_[i+1];
       СумНалога3[1] =СумНалога3_1_[i+1];   СумНалога3[2] =СумНалога3_2_[i+1];   СумНалога3[3] =СумНалога3_3_[i+1];
       СумНалога4[1] =СумНалога4_1_[i+1];   СумНалога4[2] =СумНалога4_2_[i+1];   СумНалога4[3] =СумНалога4_3_[i+1];
       СумНалога5[1] =СумНалога5_1_[i+1];   СумНалога5[2] =СумНалога5_2_[i+1];   СумНалога5[3] =СумНалога5_3_[i+1];
       СумНалога6[1] =СумНалога6_1_[i+1];   СумНалога6[2] =СумНалога6_2_[i+1];   СумНалога6[3] =СумНалога6_3_[i+1];
       СумНалога7[1] =СумНалога7_1_[i+1];   СумНалога7[2] =СумНалога7_2_[i+1];   СумНалога7[3] =СумНалога7_3_[i+1];
       СумНалога8[1] =СумНалога8_1_[i+1];   СумНалога8[2] =СумНалога8_2_[i+1];   СумНалога8[3] =СумНалога8_3_[i+1];
       СумНалога9[1] =СумНалога9_1_[i+1];   СумНалога9[2] =СумНалога9_2_[i+1];   СумНалога9[3] =СумНалога9_3_[i+1];
       СумНалога10[1]=СумНалога10_1_[i+1];  СумНалога10[2]=СумНалога10_2_[i+1];  СумНалога10[3]=СумНалога10_3_[i+1];
       СумНалога11[1]=СумНалога11_1_[i+1];  СумНалога11[2]=СумНалога11_2_[i+1];  СумНалога11[3]=СумНалога11_3_[i+1];
       СумНалога12[1]=СумНалога12_1_[i+1];  СумНалога12[2]=СумНалога12_2_[i+1];  СумНалога12[3]=СумНалога12_3_[i+1];
       СумНалога13[1]=СумНалога13_1_[i+1];  СумНалога13[2]=СумНалога13_2_[i+1];  СумНалога13[3]=СумНалога13_3_[i+1];
       СумНалога14[1]=СумНалога14_1_[i+1];  СумНалога14[2]=СумНалога14_2_[i+1];  СумНалога14[3]=СумНалога14_3_[i+1];
       СумНалога15[1]=СумНалога15_1_[i+1];  СумНалога15[2]=СумНалога15_2_[i+1];  СумНалога15[3]=СумНалога15_3_[i+1];

       СумНалога1[4] =СумНалога1_4_[i+1];   СумНалога1[5] =СумНалога1_5_[i+1];   СумНалога1[6] =СумНалога1_6_[i+1];   СумНалога1[7] =СумНалога1_7_[i+1];
       СумНалога2[4] =СумНалога2_4_[i+1];   СумНалога2[5] =СумНалога2_5_[i+1];   СумНалога2[6] =СумНалога2_6_[i+1];   СумНалога2[7] =СумНалога2_7_[i+1];
       СумНалога3[4] =СумНалога3_4_[i+1];   СумНалога3[5] =СумНалога3_5_[i+1];   СумНалога3[6] =СумНалога3_6_[i+1];   СумНалога3[7] =СумНалога3_7_[i+1];
       СумНалога4[4] =СумНалога4_4_[i+1];   СумНалога4[5] =СумНалога4_5_[i+1];   СумНалога4[6] =СумНалога4_6_[i+1];   СумНалога4[7] =СумНалога4_7_[i+1];
       СумНалога5[4] =СумНалога5_4_[i+1];   СумНалога5[5] =СумНалога5_5_[i+1];   СумНалога5[6] =СумНалога5_6_[i+1];   СумНалога5[7] =СумНалога5_7_[i+1];
       СумНалога6[4] =СумНалога6_4_[i+1];   СумНалога6[5] =СумНалога6_5_[i+1];   СумНалога6[6] =СумНалога6_6_[i+1];   СумНалога6[7] =СумНалога6_7_[i+1];
       СумНалога7[4] =СумНалога7_4_[i+1];   СумНалога7[5] =СумНалога7_5_[i+1];   СумНалога7[6] =СумНалога7_6_[i+1];   СумНалога7[7] =СумНалога7_7_[i+1];
       СумНалога8[4] =СумНалога8_4_[i+1];   СумНалога8[5] =СумНалога8_5_[i+1];   СумНалога8[6] =СумНалога8_6_[i+1];   СумНалога8[7] =СумНалога8_7_[i+1];
       СумНалога9[4] =СумНалога9_4_[i+1];   СумНалога9[5] =СумНалога9_5_[i+1];   СумНалога9[6] =СумНалога9_6_[i+1];   СумНалога9[7] =СумНалога9_7_[i+1];
       СумНалога10[4]=СумНалога10_4_[i+1];  СумНалога10[5]=СумНалога10_5_[i+1];  СумНалога10[6]=СумНалога10_6_[i+1];  СумНалога10[7]=СумНалога10_7_[i+1];
       СумНалога11[4]=СумНалога11_4_[i+1];  СумНалога11[5]=СумНалога11_5_[i+1];  СумНалога11[6]=СумНалога11_6_[i+1];  СумНалога11[7]=СумНалога11_7_[i+1];
       СумНалога12[4]=СумНалога12_4_[i+1];  СумНалога12[5]=СумНалога12_5_[i+1];  СумНалога12[6]=СумНалога12_6_[i+1];  СумНалога12[7]=СумНалога12_7_[i+1];
       СумНалога13[4]=СумНалога13_4_[i+1];  СумНалога13[5]=СумНалога13_5_[i+1];  СумНалога13[6]=СумНалога13_6_[i+1];  СумНалога13[7]=СумНалога13_7_[i+1];
       СумНалога14[4]=СумНалога14_4_[i+1];  СумНалога14[5]=СумНалога14_5_[i+1];  СумНалога14[6]=СумНалога14_6_[i+1];  СумНалога14[7]=СумНалога14_7_[i+1];
       СумНалога15[4]=СумНалога15_4_[i+1];  СумНалога15[5]=СумНалога15_5_[i+1];  СумНалога15[6]=СумНалога15_6_[i+1];  СумНалога15[7]=СумНалога15_7_[i+1];
   end;
     КолРазд1=КолРазд1-1;
     СчитатьРаздел1(ТекРазд1);
     if КолРазд1=0:КолРазд1=1;fi;
  end;
end;

proc ДобавитьРаздел1_ПриНажатии(Кнопка:String);
  СохранитьРаздел1(ТекРазд1);
  КолРазд1=КолРазд1+1;
  ТекРазд1=КолРазд1;
  СчитатьРаздел1(ТекРазд1);
end;


proc ПредРаздел1_ПриНажатии(Кнопка:String);
  if ТекРазд1>1:
    СохранитьРаздел1(ТекРазд1);
    ТекРазд1=ТекРазд1-1;
    СчитатьРаздел1(ТекРазд1);
  fi;
end;

proc СледРаздел1_ПриНажатии(Кнопка:String);
  if ТекРазд1<колРазд1:
    СохранитьРаздел1(ТекРазд1);
    ТекРазд1=ТекРазд1+1;
    СчитатьРаздел1(ТекРазд1);
  fi;
end;

-------------

 proc ДобавитьРаздел2_ПриНажатии(Кнопка:String);
   КолРазд2=КолРазд2+1;
   ТекРазд2=КолРазд2;
 end;

 proc ПредРаздел2_ПриНажатии(Кнопка:String);
   if ТекРазд2>1:
     ТекРазд2=ТекРазд2-1;
   end;
 end;

 proc СледРаздел2_ПриНажатии(Кнопка:String);
   if ТекРазд2<колРазд2:
     ТекРазд2=ТекРазд2+1;
   end;
 end;

 proc УдалитьРаздел2_ПриНажатии(Кнопка:String);
   DeleteFromArray(Страница7 ,ТекРазд2,false);
   DeleteFromArray(Страница8 ,ТекРазд2,false);
   DeleteFromArray(Страница9 ,ТекРазд2,false);
   DeleteFromArray(Страница10,ТекРазд2,false);
   DeleteFromArray(Страница11,ТекРазд2,false);
   DeleteFromArray(Страница12,ТекРазд2,false);

   DeleteFromArray(КодВидаИмущества ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО1 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО2 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО3 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО4 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО5 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО6 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО7 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО8 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО9 ,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО10,ТекРазд2,false);
   DeleteFromArray(Р2ОКАТО11,ТекРазд2,false);

   DeleteFromArray(СтоимостьВсегоС0201 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0202 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0203 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0204 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0205 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0206 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0207 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0208 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0209 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС02015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0201 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0202 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0203 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0204 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0205 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0206 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0207 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0208 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0209 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС02015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0301 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0302 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0303 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0304 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0305 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0306 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0307 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0308 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0309 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС03015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0301 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0302 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0303 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0304 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0305 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0306 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0307 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0308 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0309 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС03015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0401 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0402 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0403 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0404 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0405 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0406 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0407 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0408 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0409 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС04015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0401 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0402 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0403 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0404 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0405 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0406 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0407 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0408 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0409 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС04015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0501 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0502 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0503 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0504 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0505 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0506 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0507 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0508 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0509 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС05015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0501 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0502 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0503 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0504 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0505 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0506 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0507 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0508 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0509 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС05015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0601 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0602 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0603 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0604 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0605 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0606 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0607 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0608 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0609 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС06015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0601 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0602 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0603 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0604 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0605 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0606 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0607 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0608 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0609 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС06015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0701 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0702 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0703 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0704 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0705 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0706 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0707 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0708 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0709 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС07015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0701 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0702 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0703 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0704 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0705 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0706 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0707 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0708 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0709 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС07015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0801 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0802 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0803 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0804 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0805 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0806 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0807 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0808 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0809 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС08015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0801 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0802 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0803 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0804 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0805 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0806 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0807 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0808 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0809 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС08015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0901 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0902 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0903 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0904 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0905 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0906 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0907 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0908 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС0909 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС09015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0901 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0902 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0903 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0904 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0905 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0906 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0907 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0908 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС0909 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС09015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1001 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1002 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1003 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1004 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1005 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1006 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1007 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1008 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1009 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС10015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1001 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1002 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1003 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1004 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1005 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1006 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1007 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1008 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1009 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС10015,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1101 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1102 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1103 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1104 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1105 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1106 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1107 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1108 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС1109 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11010,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11011,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11012,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11013,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11014,ТекРазд2,false);
   DeleteFromArray(СтоимостьВсегоС11015,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1101 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1102 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1103 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1104 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1105 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1106 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1107 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1108 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС1109 ,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11010,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11011,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11012,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11013,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11014,ТекРазд2,false);
   DeleteFromArray(СтоимостьЛьготС11015,ТекРазд2,false);
   DeleteFromArray(Р2С1201 ,ТекРазд2,false);
   DeleteFromArray(Р2С1202 ,ТекРазд2,false);
   DeleteFromArray(Р2С1203 ,ТекРазд2,false);
   DeleteFromArray(Р2С1204 ,ТекРазд2,false);
   DeleteFromArray(Р2С1205 ,ТекРазд2,false);
   DeleteFromArray(Р2С1206 ,ТекРазд2,false);
   DeleteFromArray(Р2С1207 ,ТекРазд2,false);
   DeleteFromArray(Р2С1208 ,ТекРазд2,false);
   DeleteFromArray(Р2С1209 ,ТекРазд2,false);
   DeleteFromArray(Р2С12010,ТекРазд2,false);
   DeleteFromArray(Р2С12011,ТекРазд2,false);
   DeleteFromArray(Р2С12012,ТекРазд2,false);
   DeleteFromArray(Р2С12013,ТекРазд2,false);
   DeleteFromArray(Р2С12014,ТекРазд2,false);
   DeleteFromArray(Р2С12015,ТекРазд2,false);
   DeleteFromArray(Р2С1301 ,ТекРазд2,false);
   DeleteFromArray(Р2С1302 ,ТекРазд2,false);
   DeleteFromArray(Р2С1303 ,ТекРазд2,false);
   DeleteFromArray(Р2С1304 ,ТекРазд2,false);
   DeleteFromArray(Р2С1305 ,ТекРазд2,false);
   DeleteFromArray(Р2С1306 ,ТекРазд2,false);
   DeleteFromArray(Р2С1307 ,ТекРазд2,false);
   DeleteFromArray(Р2С1401 ,ТекРазд2,false);
   DeleteFromArray(Р2С1402 ,ТекРазд2,false);
   DeleteFromArray(Р2С1403 ,ТекРазд2,false);
   DeleteFromArray(Р2С1404 ,ТекРазд2,false);
   DeleteFromArray(Р2С1405 ,ТекРазд2,false);
   DeleteFromArray(Р2С1406 ,ТекРазд2,false);
   DeleteFromArray(Р2С1407 ,ТекРазд2,false);
   DeleteFromArray(Р2С1408 ,ТекРазд2,false);
   DeleteFromArray(Р2С1409 ,ТекРазд2,false);
   DeleteFromArray(Р2С14010,ТекРазд2,false);
   DeleteFromArray(Р2С14011,ТекРазд2,false);
   DeleteFromArray(Р2С14012,ТекРазд2,false);
   DeleteFromArray(Р2С14013,ТекРазд2,false);
   DeleteFromArray(Р2С14014,ТекРазд2,false);
   DeleteFromArray(Р2С14015,ТекРазд2,false);
   DeleteFromArray(Р2С1501 ,ТекРазд2,false);
   DeleteFromArray(Р2С1502 ,ТекРазд2,false);
   DeleteFromArray(Р2С1503 ,ТекРазд2,false);
   DeleteFromArray(Р2С1504 ,ТекРазд2,false);
   DeleteFromArray(Р2С1505 ,ТекРазд2,false);
   DeleteFromArray(Р2С1506 ,ТекРазд2,false);
   DeleteFromArray(Р2С1507 ,ТекРазд2,false);
   DeleteFromArray(Р2С1508 ,ТекРазд2,false);
   DeleteFromArray(Р2С1509 ,ТекРазд2,false);
   DeleteFromArray(Р2С15010,ТекРазд2,false);
   DeleteFromArray(Р2С15011,ТекРазд2,false);
   DeleteFromArray(Р2С15012,ТекРазд2,false);
   DeleteFromArray(Р2С15013,ТекРазд2,false);
   DeleteFromArray(Р2С15014,ТекРазд2,false);
   DeleteFromArray(Р2С15015,ТекРазд2,false);
   DeleteFromArray(Р2С15016,ТекРазд2,false);
   DeleteFromArray(Р2С15017,ТекРазд2,false);
   DeleteFromArray(Р2С15018,ТекРазд2,false);
   DeleteFromArray(Р2С15019,ТекРазд2,false);
   DeleteFromArray(Р2С15020,ТекРазд2,false);
   DeleteFromArray(Р2С1601 ,ТекРазд2,false);
   DeleteFromArray(Р2С1602 ,ТекРазд2,false);
   DeleteFromArray(Р2С1603 ,ТекРазд2,false);
   DeleteFromArray(Р2С1604 ,ТекРазд2,false);
   DeleteFromArray(Р2С1605 ,ТекРазд2,false);
   DeleteFromArray(Р2С1606 ,ТекРазд2,false);
   DeleteFromArray(Р2С1607 ,ТекРазд2,false);
   DeleteFromArray(Р2С1701 ,ТекРазд2,false);
   DeleteFromArray(Р2С1702 ,ТекРазд2,false);
   DeleteFromArray(Р2С1703 ,ТекРазд2,false);
   DeleteFromArray(Р2С1801 ,ТекРазд2,false);
   DeleteFromArray(Р2С1802 ,ТекРазд2,false);
   DeleteFromArray(Р2С1803 ,ТекРазд2,false);
   DeleteFromArray(Р2С1804 ,ТекРазд2,false);
   DeleteFromArray(Р2С1805 ,ТекРазд2,false);
   DeleteFromArray(Р2С1806 ,ТекРазд2,false);
   DeleteFromArray(Р2С1807 ,ТекРазд2,false);
   DeleteFromArray(Р2С1808 ,ТекРазд2,false);
   DeleteFromArray(Р2С1809 ,ТекРазд2,false);
   DeleteFromArray(Р2С18010,ТекРазд2,false);
   DeleteFromArray(Р2С18011,ТекРазд2,false);
   DeleteFromArray(Р2С18012,ТекРазд2,false);
   DeleteFromArray(Р2С18013,ТекРазд2,false);
   DeleteFromArray(Р2С18014,ТекРазд2,false);
   DeleteFromArray(Р2С18015,ТекРазд2,false);
   DeleteFromArray(Р2С1901 ,ТекРазд2,false);
   DeleteFromArray(Р2С1902 ,ТекРазд2,false);
   DeleteFromArray(Р2С1903 ,ТекРазд2,false);
   DeleteFromArray(Р2С1904 ,ТекРазд2,false);
   DeleteFromArray(Р2С1905 ,ТекРазд2,false);
   DeleteFromArray(Р2С1906 ,ТекРазд2,false);
   DeleteFromArray(Р2С1907 ,ТекРазд2,false);
   DeleteFromArray(Р2С2001 ,ТекРазд2,false);
   DeleteFromArray(Р2С2002 ,ТекРазд2,false);
   DeleteFromArray(Р2С2003 ,ТекРазд2,false);
   DeleteFromArray(Р2С2004 ,ТекРазд2,false);
   DeleteFromArray(Р2С2005 ,ТекРазд2,false);
   DeleteFromArray(Р2С2006 ,ТекРазд2,false);
   DeleteFromArray(Р2С2007 ,ТекРазд2,false);
   DeleteFromArray(Р2С2008 ,ТекРазд2,false);
   DeleteFromArray(Р2С2009 ,ТекРазд2,false);
   DeleteFromArray(Р2С20010,ТекРазд2,false);
   DeleteFromArray(Р2С20011,ТекРазд2,false);
   DeleteFromArray(Р2С20012,ТекРазд2,false);
   DeleteFromArray(Р2С20013,ТекРазд2,false);
   DeleteFromArray(Р2С20014,ТекРазд2,false);
   DeleteFromArray(Р2С20015,ТекРазд2,false);

   КолРазд2=КолРазд2-1;
   if ТекРазд2=0:ТекРазд2=1;end;
   if КолРазд2=0:КолРазд2=1;end;
   if ТекРазд2>КолРазд2:ТекРазд2=КолРазд2;end;
 end;


 proc ДобавитьРаздел3_ПриНажатии(Кнопка:String);
   КолРазд3=КолРазд3+1;
   ТекРазд3=КолРазд3;
 end;

 proc ПредРаздел3_ПриНажатии(Кнопка:String);
   if ТекРазд3>1:
     ТекРазд3=ТекРазд3-1;
   end;
 end;

 proc СледРаздел3_ПриНажатии(Кнопка:String);
   if ТекРазд3<колРазд3:
     ТекРазд3=ТекРазд3+1;
   end;
 end;

 proc УдалитьРаздел3_ПриНажатии(Кнопка:String);
   DeleteFromArray(Страница13,ТекРазд3,false);
   DeleteFromArray(Страница14,ТекРазд3,false);
   DeleteFromArray(Страница15,ТекРазд3,false);
   DeleteFromArray(Страница16,ТекРазд3,false);
   DeleteFromArray(Страница17,ТекРазд3,false);
   DeleteFromArray(Страница18,ТекРазд3,false);

   DeleteFromArray(Р3ОКАТО1 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО2 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО3 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО4 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО5 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО6 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО7 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО8 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО9 ,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО10,ТекРазд3,false);
   DeleteFromArray(Р3ОКАТО11,ТекРазд3,false);
   DeleteFromArray(Р3С0201  ,ТекРазд3,false);
   DeleteFromArray(Р3С0202  ,ТекРазд3,false);
   DeleteFromArray(Р3С0203  ,ТекРазд3,false);
   DeleteFromArray(Р3С0204  ,ТекРазд3,false);
   DeleteFromArray(Р3С0205  ,ТекРазд3,false);
   DeleteFromArray(Р3С0206  ,ТекРазд3,false);
   DeleteFromArray(Р3С0207  ,ТекРазд3,false);
   DeleteFromArray(Р3С0208  ,ТекРазд3,false);
   DeleteFromArray(Р3С0209  ,ТекРазд3,false);
   DeleteFromArray(Р3С02010 ,ТекРазд3,false);
   DeleteFromArray(Р3С02011 ,ТекРазд3,false);
   DeleteFromArray(Р3С02012 ,ТекРазд3,false);
   DeleteFromArray(Р3С02013 ,ТекРазд3,false);
   DeleteFromArray(Р3С02014 ,ТекРазд3,false);
   DeleteFromArray(Р3С02015 ,ТекРазд3,false);
   DeleteFromArray(Р3С0301  ,ТекРазд3,false);
   DeleteFromArray(Р3С0302  ,ТекРазд3,false);
   DeleteFromArray(Р3С0303  ,ТекРазд3,false);
   DeleteFromArray(Р3С0304  ,ТекРазд3,false);
   DeleteFromArray(Р3С0305  ,ТекРазд3,false);
   DeleteFromArray(Р3С0306  ,ТекРазд3,false);
   DeleteFromArray(Р3С0307  ,ТекРазд3,false);
   DeleteFromArray(Р3С0308  ,ТекРазд3,false);
   DeleteFromArray(Р3С0309  ,ТекРазд3,false);
   DeleteFromArray(Р3С03010 ,ТекРазд3,false);
   DeleteFromArray(Р3С03011 ,ТекРазд3,false);
   DeleteFromArray(Р3С03012 ,ТекРазд3,false);
   DeleteFromArray(Р3С03013 ,ТекРазд3,false);
   DeleteFromArray(Р3С03014 ,ТекРазд3,false);
   DeleteFromArray(Р3С03015 ,ТекРазд3,false);
   DeleteFromArray(Р3С0401  ,ТекРазд3,false);
   DeleteFromArray(Р3С0402  ,ТекРазд3,false);
   DeleteFromArray(Р3С0403  ,ТекРазд3,false);
   DeleteFromArray(Р3С0404  ,ТекРазд3,false);
   DeleteFromArray(Р3С0405  ,ТекРазд3,false);
   DeleteFromArray(Р3С0406  ,ТекРазд3,false);
   DeleteFromArray(Р3С0407  ,ТекРазд3,false);
   DeleteFromArray(Р3С0501  ,ТекРазд3,false);
   DeleteFromArray(Р3С0502  ,ТекРазд3,false);
   DeleteFromArray(Р3С0503  ,ТекРазд3,false);
   DeleteFromArray(Р3С0504  ,ТекРазд3,false);
   DeleteFromArray(Р3С0505  ,ТекРазд3,false);
   DeleteFromArray(Р3С0506  ,ТекРазд3,false);
   DeleteFromArray(Р3С0507  ,ТекРазд3,false);
   DeleteFromArray(Р3С0508  ,ТекРазд3,false);
   DeleteFromArray(Р3С0509  ,ТекРазд3,false);
   DeleteFromArray(Р3С05010 ,ТекРазд3,false);
   DeleteFromArray(Р3С05011 ,ТекРазд3,false);
   DeleteFromArray(Р3С05012 ,ТекРазд3,false);
   DeleteFromArray(Р3С05013 ,ТекРазд3,false);
   DeleteFromArray(Р3С05014 ,ТекРазд3,false);
   DeleteFromArray(Р3С05015 ,ТекРазд3,false);
   DeleteFromArray(Р3С05016 ,ТекРазд3,false);
   DeleteFromArray(Р3С05017 ,ТекРазд3,false);
   DeleteFromArray(Р3С05018 ,ТекРазд3,false);
   DeleteFromArray(Р3С05019 ,ТекРазд3,false);
   DeleteFromArray(Р3С05020 ,ТекРазд3,false);
   DeleteFromArray(Р3С0601  ,ТекРазд3,false);
   DeleteFromArray(Р3С0602  ,ТекРазд3,false);
   DeleteFromArray(Р3С0603  ,ТекРазд3,false);
   DeleteFromArray(Р3С0604  ,ТекРазд3,false);
   DeleteFromArray(Р3С0605  ,ТекРазд3,false);
   DeleteFromArray(Р3С0606  ,ТекРазд3,false);
   DeleteFromArray(Р3С0607  ,ТекРазд3,false);
   DeleteFromArray(Р3С0701  ,ТекРазд3,false);
   DeleteFromArray(Р3С0702  ,ТекРазд3,false);
   DeleteFromArray(Р3С0703  ,ТекРазд3,false);
   DeleteFromArray(Р3С0801  ,ТекРазд3,false);
   DeleteFromArray(Р3С0802  ,ТекРазд3,false);
   DeleteFromArray(Р3С0803  ,ТекРазд3,false);
   DeleteFromArray(Р3С0804  ,ТекРазд3,false);
   DeleteFromArray(Р3С0901  ,ТекРазд3,false);
   DeleteFromArray(Р3С0902  ,ТекРазд3,false);
   DeleteFromArray(Р3С0903  ,ТекРазд3,false);
   DeleteFromArray(Р3С0904  ,ТекРазд3,false);
   DeleteFromArray(Р3С0905  ,ТекРазд3,false);
   DeleteFromArray(Р3С0906  ,ТекРазд3,false);
   DeleteFromArray(Р3С0907  ,ТекРазд3,false);
   DeleteFromArray(Р3С0908  ,ТекРазд3,false);
   DeleteFromArray(Р3С0909  ,ТекРазд3,false);
   DeleteFromArray(Р3С09010 ,ТекРазд3,false);
   DeleteFromArray(Р3С09011 ,ТекРазд3,false);
   DeleteFromArray(Р3С09012 ,ТекРазд3,false);
   DeleteFromArray(Р3С09013 ,ТекРазд3,false);
   DeleteFromArray(Р3С09014 ,ТекРазд3,false);
   DeleteFromArray(Р3С09015 ,ТекРазд3,false);
   DeleteFromArray(Р3С1001  ,ТекРазд3,false);
   DeleteFromArray(Р3С1002  ,ТекРазд3,false);
   DeleteFromArray(Р3С1003  ,ТекРазд3,false);
   DeleteFromArray(Р3С1004  ,ТекРазд3,false);
   DeleteFromArray(Р3С1005  ,ТекРазд3,false);
   DeleteFromArray(Р3С1006  ,ТекРазд3,false);
   DeleteFromArray(Р3С1007  ,ТекРазд3,false);
   DeleteFromArray(Р3С1101  ,ТекРазд3,false);
   DeleteFromArray(Р3С0302  ,ТекРазд3,false);
   DeleteFromArray(Р3С0303  ,ТекРазд3,false);
   DeleteFromArray(Р3С0304  ,ТекРазд3,false);
   DeleteFromArray(Р3С0305  ,ТекРазд3,false);
   DeleteFromArray(Р3С0306  ,ТекРазд3,false);
   DeleteFromArray(Р3С0307  ,ТекРазд3,false);
   DeleteFromArray(Р3С0308  ,ТекРазд3,false);
   DeleteFromArray(Р3С0309  ,ТекРазд3,false);
   DeleteFromArray(Р3С11010 ,ТекРазд3,false);
   DeleteFromArray(Р3С11011 ,ТекРазд3,false);
   DeleteFromArray(Р3С11012 ,ТекРазд3,false);
   DeleteFromArray(Р3С11013 ,ТекРазд3,false);
   DeleteFromArray(Р3С11014 ,ТекРазд3,false);
   DeleteFromArray(Р3С11015 ,ТекРазд3,false);

   КолРазд3=КолРазд3-1;
   if ТекРазд3=0:ТекРазд3=1;end;
   if КолРазд3=0:КолРазд3=1;end;
   if ТекРазд3>КолРазд3:ТекРазд3=КолРазд3;end;
 end;

 var Ч1:String;
 var Ч2:String;
 var Ч3:String;
 var Ч4:String;
 var Ч5:String;
 var Ч6:String;

 proc РазложитьЧислоСНулями(ВхЧисло:Integer);
 -- Раскладывает число на 6 символом оставляя в переди нули
 var стр:String;
 var kol:Integer;
   стр=str(ВхЧисло);
   kol=length(стр);
   if kol=1:
       Ч1='0';
       Ч2='0';
       Ч3='0';
       Ч4='0';
       Ч5='0';
       Ч6=стр;
     |kol=2:
       Ч1='0';
       Ч2='0';
       Ч3='0';
       Ч4='0';
       Ч5=substr(стр,1,1);
       Ч6=substr(стр,2,1);
     |kol=3:
       Ч1='0';
       Ч2='0';
       Ч3='0';
       Ч4=substr(стр,1,1);
       Ч5=substr(стр,2,1);
       Ч6=substr(стр,3,1);
     |kol=4:
       Ч1='0';
       Ч2='0';
       Ч3=substr(стр,1,1);
       Ч4=substr(стр,2,1);
       Ч5=substr(стр,3,1);
       Ч6=substr(стр,4,1);
     |kol=5:
       Ч1='0';
       Ч2=substr(стр,1,1);
       Ч3=substr(стр,2,1);
       Ч4=substr(стр,3,1);
       Ч5=substr(стр,4,1);
       Ч6=substr(стр,5,1);
     |kol=6:
       Ч1=substr(стр,1,1);
       Ч2=substr(стр,2,1);
       Ч3=substr(стр,3,1);
       Ч4=substr(стр,4,1);
       Ч5=substr(стр,5,1);
       Ч6=substr(стр,6,1);
   end;
 end;

 proc РазложитьЧислоСПрочерком(ВхЧисло:Integer);
 -- Раскладывает число на 6 символов оставляя с зади нули
 var стр:String;
 var kol:Integer;
   стр=str(ВхЧисло);
   kol=length(стр);
   if kol=1:
       Ч1=стр;
       Ч2='-';
       Ч3='-';
       Ч4='-';
       Ч5='-';
       Ч6='-';
     |kol=2:
       Ч1=substr(стр,1,1);
       Ч2=substr(стр,2,1);
       Ч3='-';
       Ч4='-';
       Ч5='-';
       Ч6='-';
     |kol=3:
       Ч1=substr(стр,1,1);
       Ч2=substr(стр,2,1);
       Ч3=substr(стр,3,1);
       Ч4='-';
       Ч5='-';
       Ч6='-';
     |kol=4:
       Ч1=substr(стр,1,1);
       Ч2=substr(стр,2,1);
       Ч3=substr(стр,3,1);
       Ч4=substr(стр,4,1);
       Ч5='-';
       Ч6='-';
     |kol=5:
       Ч1='0';
       Ч2=substr(стр,1,1);
       Ч3=substr(стр,2,1);
       Ч4=substr(стр,3,1);
       Ч5=substr(стр,4,1);
       Ч6=substr(стр,5,1);
     |kol=6:
       Ч1=substr(стр,1,1);
       Ч2=substr(стр,2,1);
       Ч3=substr(стр,3,1);
       Ч4=substr(стр,4,1);
       Ч5=substr(стр,5,1);
       Ч6=substr(стр,6,1);
   end;
 end;

 proc ПронумероватьСтраницы_ПриНажатии(Кнопка:String);
 var ТекущийНомер,i:Integer;

   СохранитьРаздел1(ТекРазд1);
   ТекущийНомер=2;

   for i=1..КолРазд1 do
      РазложитьЧислоСНулями(ТекущийНомер);
      страница1_[i]=Ч1;
      страница2_[i]=Ч2;
      страница3_[i]=Ч3;
      страница4_[i]=Ч4;
      страница5_[i]=Ч5;
      страница6_[i]=Ч6;
      ТекущийНомер=ТекущийНомер+1;
   end;
   СчитатьРаздел1(ТекРазд1);

   if Печать_Раздел2 then
     for i=1..КолРазд2 do
       РазложитьЧислоСНулями(ТекущийНомер);
       страница7[i]=Ч1;
       страница8[i]=Ч2;
       страница9[i]=Ч3;
       страница10[i]=Ч4;
       страница11[i]=Ч5;
       страница12[i]=Ч6;
       ТекущийНомер=ТекущийНомер+1;
     end;
   else
     ClearVariable(страница7);
     ClearVariable(страница8);
     ClearVariable(страница9);
     ClearVariable(страница10);
     ClearVariable(страница11);
     ClearVariable(страница12);
   end;

   if Печать_Раздел3 then
     for i=1..КолРазд3 do
       РазложитьЧислоСНулями(ТекущийНомер);
       страница13[i]=Ч1;
       страница14[i]=Ч2;
       страница15[i]=Ч3;
       страница16[i]=Ч4;
       страница17[i]=Ч5;
       страница18[i]=Ч6;
       ТекущийНомер=ТекущийНомер+1;
     end;
   else
     ClearVariable(страница13);
     ClearVariable(страница14);
     ClearVariable(страница15);
     ClearVariable(страница16);
     ClearVariable(страница17);
     ClearVariable(страница18);
   end;

   РазложитьЧислоСПрочерком(ТекущийНомер-1);
   СостЛ1=Ч1;
   СостЛ2=Ч2;
   СостЛ3=Ч3;
   СостЛ4=Ч4;
   СостЛ5=Ч5;
   СостЛ6=Ч6;
 end;


 proc РазложитьСтроку(Переменная:String;вхСтр:String;НачНомер:Integer;КонНомер:Integer;Заглавные:Logical;симв:String;ИндексМассива:Integer);
 -- Раскладывает строку в переменные и одинаковым именем, но разным индексом
 -- Переменная должна быть формата "Имя1","Имя2" и т.д.
 -- Параметры:
 --   Переменная - имя переменной в которую ложить значение
 --   вхСтр      - строку, которую надо разложить
 --   НачНомер   - начальный номер переменной с которой начинать присваивание
 --   КонНомер   - конечный номер переменной на которой заканчивать присваивание, включительно
 --   Заглавный  - поднимать ли символы в строке
 --   симв       - заполнять оставщиеся переменные символом.
 --   ИндексМассива - номер индекса массива, если переменная массив. 0 - значит переменная не массив
 var i,текНомПерем:Integer;
 var тексимв:string;

   вхСтр = Trim(вхСтр);
   текНомПерем = НачНомер;
   for i=1..length(вхСтр) do
     текСимв = substr(вхСтр,i,1);
     if Заглавные : текСимв = UP(текСимв); end;

     PutVariableS(Переменная+str(текНомПерем) + if(ИндексМассива>0,"["+ str(ИндексМассива) +"]",""),текСимв);

     текНомПерем = текНомПерем + 1;
     if текНомПерем >КонНомер: break; end;
   end;


   -- Забиваем оставшиеся переменные символом
   for i=текНомПерем..КонНомер do
     PutVariableS(Переменная+str(i) + if(ИндексМассива>0,"["+ str(ИндексМассива) +"]",""),симв);
   end;

 end;

 func СложитьВСтроку(Переменная:String;НачНомер:Integer;КонНомер:Integer;симв:String;ИндексМассива:Integer):String;
  -- Возращаяет строку, складывая ее из переменных
  -- Переменная должна быть формата "Имя1","Имя2" и т.д.
  -- Параметры:
  --   Переменная - имя переменной из которой складывать
  --   НачНомер   - начальный номер переменной с которой начинать присваивание
  --   КонНомер   - конечный номер переменной на которой заканчивать присваивание, включительно
  --   симв       - Не писать в строку, если совпадает с заданом символом
  --   ИндексМассива - номер индекса массива, если переменная массив. 0 - значит переменная не массив
 var i:Integer;
 var исхСтр,текСимв:String;
   исхСтр = "";
   for i=НачНомер..КонНомер do
     текСимв = GetVariableS(Переменная+str(i) + if(ИндексМассива>0,"["+ str(ИндексМассива) +"]",""));
     if текСимв<>симв:
       исхСтр = исхСтр + текСимв;
     end;
   end;
   ^исхСтр;
 end;

--Func КорректныйИНН10(StrИНН:String) :Logical;
--var VAL :Integer;
-- if Length(Trim(StrИНН))=10:
--   VAL=31*Int(SubStr(StrИНН,1,1))+
--       29*Int(SubStr(StrИНН,2,1))+
--       23*Int(SubStr(StrИНН,3,1))+
--       19*Int(SubStr(StrИНН,4,1))+
--       17*Int(SubStr(StrИНН,5,1))+
--       13*Int(SubStr(StrИНН,6,1))+
--        7*Int(SubStr(StrИНН,7,1))+
--        5*Int(SubStr(StrИНН,8,1))+
--        3*Int(SubStr(StrИНН,9,1));
--   VAL=11-Int(VAL-11*Trunc(VAL/11));
--   VAL=if(VAL>9: 0, VAL);
--   ^(VAL=Int(SubStr(StrИНН,10,1)));
-- fi;
-- ^False;
--end;

Func КлючИНН(StrИНН:String) :Logical;
var Key1, Key2 :Integer;
 if Length(StrИНН)=10:
    Key1 = 02 * Int(SubStr(StrИНН,01,1)) +
           04 * Int(SubStr(StrИНН,02,1)) +
           10 * Int(SubStr(StrИНН,03,1)) +
           03 * Int(SubStr(StrИНН,04,1)) +
           05 * Int(SubStr(StrИНН,05,1)) +
           09 * Int(SubStr(StrИНН,06,1)) +
           04 * Int(SubStr(StrИНН,07,1)) +
           06 * Int(SubStr(StrИНН,08,1)) +
           08 * Int(SubStr(StrИНН,09,1));
    Key1 = Int(Key1-Trunc(Key1/11)*11);
    Key1 = Int(Key1-Trunc(Key1/10)*10);
    ^(Key1 = Int(SubStr(StrИНН,10,1)));
 |  Length(StrИНН)=12:
    Key1 = 07 * Int(SubStr(StrИНН,01,1)) +
           02 * Int(SubStr(StrИНН,02,1)) +
           04 * Int(SubStr(StrИНН,03,1)) +
           10 * Int(SubStr(StrИНН,04,1)) +
           03 * Int(SubStr(StrИНН,05,1)) +
           05 * Int(SubStr(StrИНН,06,1)) +
           09 * Int(SubStr(StrИНН,07,1)) +
           04 * Int(SubStr(StrИНН,08,1)) +
           06 * Int(SubStr(StrИНН,09,1)) +
           08 * Int(SubStr(StrИНН,10,1));
    Key1 = Int(Key1-Trunc(Key1/11)*11);
    Key1 = Int(Key1-Trunc(Key1/10)*10);
    Key2 = 03 * Int(SubStr(StrИНН,01,1)) +
           07 * Int(SubStr(StrИНН,02,1)) +
           02 * Int(SubStr(StrИНН,03,1)) +
           04 * Int(SubStr(StrИНН,04,1)) +
           10 * Int(SubStr(StrИНН,05,1)) +
           03 * Int(SubStr(StrИНН,06,1)) +
           05 * Int(SubStr(StrИНН,07,1)) +
           09 * Int(SubStr(StrИНН,08,1)) +
           04 * Int(SubStr(StrИНН,09,1)) +
           06 * Int(SubStr(StrИНН,10,1)) +
           08 * Int(SubStr(StrИНН,11,1));
    Key2 = Int(Key2-Trunc(Key2/11)*11);
    Key2 = Int(Key2-Trunc(Key2/10)*10);
    ^( (Key1 = Int(SubStr(StrИНН,11,1))) and (Key2 = Int(SubStr(StrИНН,12,1))) );
 fi;
 ^False;
end;

Func КорректныйИНН(StrИНН:String; ТипК:Integer; Auto:Logical) :Logical;
 if ТипК=0 and Length(StrИНН)<>10: if not Auto: Message("ИНН должен содержать 10 цифр!"); fi; ^False;
 |  ТипК=1 and Length(StrИНН)<>12: if not Auto: Message("ИНН должен содержать 12 цифр!"); fi; ^False;
 fi;
 if not КлючИНН(StrИНН): if not Auto: Message("ИНН неправильный!"); fi; ^False; fi;
 ^True;
end;

Func КорректныйКПП(StrКПП:String) :Logical;
 if Length(Trim(StrКПП))=09:
   ^True;
 fi;
 ^False;
end;

 Proc РеквизитыОИ;

  if Инфо.ОИ.СтатусЛица=0:
    ИННО1= Инфо.Ои.О;
    ИННО2= Инфо.Ои.Б;
    ИННО3= Инфо.Ои.В;
    ИННО4= Инфо.Ои.Т;
    ИННО5= Инфо.Ои.П;
    ИННО6= Инфо.Ои.Е;
    ИННО7= Инфо.Ои.Ж;
    ИННО8= Инфо.Ои.З;
    ИННО9= Инфо.Ои.Л;
    ИННО10=Инфо.Ои.Н;
    ИННО11='-';
    ИННО12='-';
  fi;

  if Инфо.ОИ.СтатусЛица=1:
    ИННО1=Инфо.Ои.О;
    ИННО2=Инфо.Ои.Б;
    ИННО3=Инфо.Ои.В;
    ИННО4=Инфо.Ои.Т;
    ИННО5=Инфо.Ои.П;
    ИННО6=Инфо.Ои.Е;
    ИННО7=Инфо.Ои.Ж;
    ИННО8=Инфо.Ои.З;
    ИННО9=Инфо.Ои.Л;
    ИННО10=Инфо.Ои.Н;
    ИННО11=Инфо.Ои.Д;
    ИННО12=Инфо.Ои.Р;
  fi;

  КППО1=Инфо.Ои.Й;
  КППО2=Инфо.Ои.Ц;
  КППО3=Инфо.Ои.У;
  КППО4=Инфо.Ои.Ы;
  КППО5=Инфо.Ои.Ч;
  КППО6=Инфо.Ои.Х;
  КППО7=Инфо.Ои.Ф;
  КППО8=Инфо.Ои.Ш;
  КППО9=Инфо.Ои.Щ;

  ОКВЭД1 = SubStr(ИНФО.ОИ.ОКВЭД,1,1);
  ОКВЭД2 = SubStr(ИНФО.ОИ.ОКВЭД,2,1);
  ОКВЭД3 = SubStr(ИНФО.ОИ.ОКВЭД,4,1);
  ОКВЭД4 = SubStr(ИНФО.ОИ.ОКВЭД,5,1);
  ОКВЭД5 = SubStr(ИНФО.ОИ.ОКВЭД,7,1);
  ОКВЭД6 = SubStr(ИНФО.ОИ.ОКВЭД,8,1);

  НалоговыйОрган1=ИНФО.ОИ.Код1;
  НалоговыйОрган2=ИНФО.ОИ.Код2;
  НалоговыйОрган3=ИНФО.ОИ.Код3;
  НалоговыйОрган4=ИНФО.ОИ.Код4;

  РазложитьСтроку("НаимОрганизации",ИНФО.ОИ.ПолнИмя,1,160,true,"",0);
  РазложитьСтроку("КонтактныйТелефон",ИНФО.ОИ.Телефон,1,20,true,"",0);

  РазложитьСтроку("ФИОНалогПлат",ExtractWord(1,ИНФО.ОИ.ИмяРук," "),1,20,true,"-",0);
  РазложитьСтроку("ФИОНалогПлат",ExtractWord(2,ИНФО.ОИ.ИмяРук," "),21,40,true,"-",0);
  РазложитьСтроку("ФИОНалогПлат",ExtractWord(3,ИНФО.ОИ.ИмяРук," "),41,60,true,"-",0);

  РазложитьСтроку("ОКАТО",ИНФО.ОИ.ОКАТО,1,11,true,"0",1);
  РазложитьСтроку("Р2ОКАТО",ИНФО.ОИ.ОКАТО,1,11,true,"0",1);

 end;

 Proc РеквизитыКК;
 var RO, num, ФЛC, ФЛI :Integer;
 var Value, ValIO, tmp :String;
 var Work, OK :Logical;
 var REC, R2 :Record;

  REC=NIL;
  Work=False;
  RO=OpenWorkArea("КОНТРАГЕНТ", "", "НАШЕ");
  Try
    num=Records(RO);
    if num=1: REC=GetRecordKey(RO, 1);
    |  num>1: SetFilter(RO, "НАШЕ and РПО_УМОЛЧАНИЕ"); num=Records(RO); if num=1: REC=GetRecordKey(RO, 1); fi;
    fi;
    if REC=NIL: REC=OpenCardFile("КОНТРАГЕНТ", "НАШЕ", NIL, crdRecordOnly); fi;
    if REC<>NIL:
      SetFilter(RO, "UKey="+RecordToString(REC));
      num=Records(RO);
      if num=1:
        -- статус - юр/физ лицо
        ФЛC=GetFieldI(RO, 1, "ТИП");
        if ФЛC<>0 and ФЛC<>1: ФЛC=0; fi;
        ФЛI=GetVariableI("ИНФО.ОИ.СтатусЛица");
        if ФЛC=1 and ФЛC<>ФЛI: PutVariableI("ИНФО.ОИ.СтатусЛица", ФЛC); fi;
        -- ИНН
        ValIO=Trim(GetVariableS("ИНФО.ОИ.О"))+
              Trim(GetVariableS("ИНФО.ОИ.Б"))+
              Trim(GetVariableS("ИНФО.ОИ.В"))+
              Trim(GetVariableS("ИНФО.ОИ.Т"))+
              Trim(GetVariableS("ИНФО.ОИ.П"))+
              Trim(GetVariableS("ИНФО.ОИ.Е"))+
              Trim(GetVariableS("ИНФО.ОИ.Ж"))+
              Trim(GetVariableS("ИНФО.ОИ.З"))+
              Trim(GetVariableS("ИНФО.ОИ.Л"))+
              Trim(GetVariableS("ИНФО.ОИ.Н"))+
              Trim(GetVariableS("ИНФО.ОИ.Д"))+
              Trim(GetVariableS("ИНФО.ОИ.Р"));
        if not КорректныйИНН(ValIO, ФЛC, True):
          Value=Trim(GetFieldS(RO, 1, "ИНН"));
          if КорректныйИНН(Value, ФЛC, True):
            PutVariableS("ИНФО.ОИ.О", SubStr(Value, 01, 1));
            PutVariableS("ИНФО.ОИ.Б", SubStr(Value, 02, 1));
            PutVariableS("ИНФО.ОИ.В", SubStr(Value, 03, 1));
            PutVariableS("ИНФО.ОИ.Т", SubStr(Value, 04, 1));
            PutVariableS("ИНФО.ОИ.П", SubStr(Value, 05, 1));
            PutVariableS("ИНФО.ОИ.Е", SubStr(Value, 06, 1));
            PutVariableS("ИНФО.ОИ.Ж", SubStr(Value, 07, 1));
            PutVariableS("ИНФО.ОИ.З", SubStr(Value, 08, 1));
            PutVariableS("ИНФО.ОИ.Л", SubStr(Value, 09, 1));
            PutVariableS("ИНФО.ОИ.Н", SubStr(Value, 10, 1));
            if ФЛC=1:
              PutVariableS("ИНФО.ОИ.Д", SubStr(Value, 11, 1));
              PutVariableS("ИНФО.ОИ.Р", SubStr(Value, 12, 1));
            fi;
          fi;
        fi;
        -- КПП
        ValIO=Trim(GetVariableS("ИНФО.ОИ.Й"))+
              Trim(GetVariableS("ИНФО.ОИ.Ц"))+
              Trim(GetVariableS("ИНФО.ОИ.У"))+
              Trim(GetVariableS("ИНФО.ОИ.Ы"))+
              Trim(GetVariableS("ИНФО.ОИ.Ч"))+
              Trim(GetVariableS("ИНФО.ОИ.Х"))+
              Trim(GetVariableS("ИНФО.ОИ.Ф"))+
              Trim(GetVariableS("ИНФО.ОИ.Ш"))+
              Trim(GetVariableS("ИНФО.ОИ.Щ"));
        if not КорректныйКПП(ValIO):
          Value=Trim(GetFieldS(RO, 1, "КПП"));
          if КорректныйКПП(Value):
            PutVariableS("ИНФО.ОИ.Й", SubStr(Value, 01, 1));
            PutVariableS("ИНФО.ОИ.Ц", SubStr(Value, 02, 1));
            PutVariableS("ИНФО.ОИ.У", SubStr(Value, 03, 1));
            PutVariableS("ИНФО.ОИ.Ы", SubStr(Value, 04, 1));
            PutVariableS("ИНФО.ОИ.Ч", SubStr(Value, 05, 1));
            PutVariableS("ИНФО.ОИ.Х", SubStr(Value, 06, 1));
            PutVariableS("ИНФО.ОИ.Ф", SubStr(Value, 07, 1));
            PutVariableS("ИНФО.ОИ.Ш", SubStr(Value, 08, 1));
            PutVariableS("ИНФО.ОИ.Щ", SubStr(Value, 09, 1));
          fi;
        fi;
        -- ОКВЭД
        ValIO=Trim(GetVariableS("ИНФО.ОИ.ОКВЭД"));
        if Length(ValIO)=7: if Match(ValIO, "??.??.?")  or Match(ValIO, "??-??-?")  or Match(ValIO, "??/??/?")  or Match(ValIO, "??\??\?") : OK=True; else OK=False; fi;
        |  Length(ValIO)=8: if Match(ValIO, "??.??.??") or Match(ValIO, "??-??-??") or Match(ValIO, "??/??/??") or Match(ValIO, "??\??\??"): OK=True; else OK=False; fi;
        else OK=False;
        fi;
        if not OK:
          Value=Trim(GetFieldS(RO, 1, "ОКОНХ"));
          if Length(Value)=7: if Match(Value, "??.??.?")  or Match(Value, "??-??-?")  or Match(Value, "??/??/?")  or Match(Value, "??\??\?") : PutVariableS("ИНФО.ОИ.ОКВЭД", Value); fi;
          |  Length(Value)=8: if Match(Value, "??.??.??") or Match(Value, "??-??-??") or Match(Value, "??/??/??") or Match(Value, "??\??\??"): PutVariableS("ИНФО.ОИ.ОКВЭД", Value); fi;
          fi;
        fi;
        -- Полное наименование организации
        ValIO=Trim(GetVariableS("ИНФО.ОИ.ПОЛНИМЯ1"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "ПОЛНИМЯ"));
          if Value<>"": PutVariableS("ИНФО.ОИ.ПОЛНИМЯ1", Value); fi;
        fi;
        -- ОКАТО
        ValIO=Trim(GetVariableS("ИНФО.ОИ.ОКАТО"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "ОКАТО"));
          if Value<>"": PutVariableS("ИНФО.ОИ.ОКАТО", Value); fi;
        fi;
        -- Телефон
        ValIO=Trim(GetVariableS("ИНФО.ОИ.ТЕЛЕФОН"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "ТЕЛЕФОН"));
          if Value<>"": PutVariableS("ИНФО.ОИ.ТЕЛЕФОН", Value); fi;
        fi;
        -- ФИО руководителя
        ValIO=Trim(GetVariableS("ИНФО.ОИ.ИМЯРУК"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "ФИОРУК"));
          tmp=ExtractWordS(2, WordsCount(Value, " ")-1, Value, " ");
          if Match(tmp, "?.?.") or Match(tmp, "?. ?."):
            R2=GetFieldR(RO, 1, "РУКОВОДИТЕЛЬ");
            if R2<>NIL: Value=Trim(GetCardFieldS("СОТРУДНИКИ", R2, "ФИОТ")); fi;
          fi;
          if Value<>"": PutVariableS("ИНФО.ОИ.ИМЯРУК", Value); fi;
        fi;
        -- ноименование УМНС
        ValIO=Trim(GetVariableS("ИНФО.ОИ.НАЛИНСП1"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "РПО_НМНМНС"));
          if Value<>"": PutVariableS("ИНФО.ОИ.НАЛИНСП1", Value); fi;
        fi;
        -- код УМНС
        ValIO=Trim(GetVariableS("ИНФО.ОИ.КОД1"))+
              Trim(GetVariableS("ИНФО.ОИ.КОД2"))+
              Trim(GetVariableS("ИНФО.ОИ.КОД3"))+
              Trim(GetVariableS("ИНФО.ОИ.КОД4"));
        if ValIO="":
          Value=Trim(GetFieldS(RO, 1, "РПО_КОДМНС"));
          if Length(Value)=4:
            PutVariableS("ИНФО.ОИ.КОД1", SubStr(Value, 01, 1));
            PutVariableS("ИНФО.ОИ.КОД2", SubStr(Value, 02, 1));
            PutVariableS("ИНФО.ОИ.КОД3", SubStr(Value, 03, 1));
            PutVariableS("ИНФО.ОИ.КОД4", SubStr(Value, 04, 1));
          fi;
        fi;

        Work=True;

      fi;
    fi;
  Finally
    CloseWorkArea(RO);
  end;

  if Work: РеквизитыОИ; fi;

 end;

 proc кнРеквизиты_ПриНажатии(Кнопка:String);
 var num :Integer;

  ClearVariable(Buf);
  Buf[1]="Реквизиты из картотеки 'Контрагент' ('наши' учреждения)";
  Buf[2]="Реквизиты из бланка 'ОИ' (основная информация)";
  num=Alternate("Выберите реквизиты...", Buf, -1, 1, 12);
  if num=1: РеквизитыКК;
  |  num=2: РеквизитыОИ;
  else Exit;
  fi;

 end;

 var МассивСтрок[]:String;

 func НалоговыйПериод_ПриВходе(Клетка:String; Итер:Integer):Logical;
 var Выбор:Integer;
   ClearVariable(МассивСтрок);
   МассивСтрок[1]='21 - I квартал';
   МассивСтрок[2]='31 - Полугодие';
   МассивСтрок[3]='33 - 9 месяцев';
   МассивСтрок[4]='51 - I квартал - при реорганизации (ликвидации)';
   МассивСтрок[5]='52 - Полугодие - при реорганизации (ликвидации)';
   МассивСтрок[6]='53 - 9 месяцев - при реорганизации (ликвидации)';

   Выбор=Alternate('Налоговый период',МассивСтрок);
   if Выбор=1:ОтчетныйПериод1="2";ОтчетныйПериод2="1";
     |Выбор=2:ОтчетныйПериод1="3";ОтчетныйПериод2="1";
     |Выбор=3:ОтчетныйПериод1="3";ОтчетныйПериод2="3";
     |Выбор=4:ОтчетныйПериод1="5";ОтчетныйПериод2="1";
     |Выбор=5:ОтчетныйПериод1="5";ОтчетныйПериод2="2";
     |Выбор=6:ОтчетныйПериод1="5";ОтчетныйПериод2="3";
   fi;
   ^false;
 end;


 func КН_ПриВходе(Клетка:String;Итер:Integer):Logical;
 var ст:String;
 var зап:Record;
 var Выбор:Integer;
  if Клетка="кн1":
    зап=OpenCardFile('Сотрудники');
    if Зап<>nil:
      ст=GetCardFieldS('Сотрудники',зап,'ФИОТ');

      РазложитьСтроку("ФИОНалогПлат",ExtractWord(1,ст," "),1,20,true,"",0);
      РазложитьСтроку("ФИОНалогПлат",ExtractWord(2,ст," "),21,40,true,"",0);
      РазложитьСтроку("ФИОНалогПлат",ExtractWord(3,ст," "),41,60,true,"",0);
    else
      РазложитьСтроку("ФИОНалогПлат","",1,60,true,"",0);
    end;
  |Клетка="кн2":
    зап=OpenCardFile('Контрагент');
    if Зап<>nil:
      ст=GetCardFieldS('Контрагент',зап,'ПолнИмя');

      РазложитьСтроку("НаимПредст",ст,1,60,true,"",0);
    else
      РазложитьСтроку("НаимПредст","",1,60,true,"",0);
    end;
  |Клетка="кн3":
     if Input(ст,'Наименование документа')=cmOk:
       РазложитьСтроку("ДокументПредст",ст,1,40,true,"",0);
     end;
  |Клетка="кн4":
     if Input(ст,'Количетсво листов')=cmOk:
       РазложитьСтроку("СостПЛ",ст,1,6,true,"-",0);
     end;
  |Клетка="кн5":
     if Input(ст,'Телефон')=cmOk:
       РазложитьСтроку("КонтактныйТелефон",ст,1,20,true,"",0);
     end;
  |Клетка="кн6":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("ОКАТО",ст,1,11,true,"0",Итер);
     end;
  |Клетка="кн7":
     ClearVariable(МассивСтрок);

     МассивСтрок[1]='18210602010021000110 - Налог на имущество организаций по имуществу, не входящему в Единую систему газоснабжения';
     МассивСтрок[2]='18210602020021000110 - Налог на имущество организаций по имуществу, входящему в Единую систему газоснабжения';
     Выбор=Alternate('КБК',МассивСтрок);

     if Выбор=1:РазложитьСтроку("КБК",'18210602010021000110',1,20,true,"-",Итер);
       |Выбор=2:РазложитьСтроку("КБК",'18210602020021000110',1,20,true,"-",Итер);
     fi;
  |Клетка="кн8":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СумНалога",ст,1,15,true,"-",Итер);
     end;
  |Клетка="кн9":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2ОКАТО",ст,1,11,true,"0",ТекРазд2);
     end;
  |Клетка="кн10":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС020",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн11":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС030",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн12":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС040",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн13":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС050",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн14":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС060",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн15":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС070",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн16":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС080",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн17":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС090",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн18":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС100",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн19":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьВсегоС110",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн20":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС020",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн21":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС030",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн22":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС040",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн23":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС050",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн24":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС060",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн25":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС070",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн26":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС080",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн27":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС090",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн28":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС100",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн29":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("СтоимостьЛьготС110",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн30":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С120",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн31":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С130",ст,1,7,true,"-",ТекРазд2);
     end;
  |Клетка="кн32":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С140",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн33":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С150",ExtractWord(1,ст,"/"),1,10,true,"-",ТекРазд2);
       РазложитьСтроку("Р2С150",ExtractWord(2,ст,"/"),11,20,true,"-",ТекРазд2);
     end;
  |Клетка="кн34":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С160",ст,1,7,true,"-",ТекРазд2);
     end;
  |Клетка="кн35":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С170",ExtractWord(1,ст,"."),1,1,true,"-",ТекРазд2);
       РазложитьСтроку("Р2С170",ExtractWord(2,ст,"."),2,3,true,"-",ТекРазд2);
     end;
  |Клетка="кн36":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С180",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн37":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С190",ст,1,7,true,"-",ТекРазд2);
     end;
  |Клетка="кн38":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р2С200",ст,1,15,true,"-",ТекРазд2);
     end;
  |Клетка="кн39":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3ОКАТО",ст,1,11,true,"0",ТекРазд3);
     end;
  |Клетка="кн40":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С020",ст,1,15,true,"-",ТекРазд3);
     end;
  |Клетка="кн41":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С030",ст,1,15,true,"-",ТекРазд3);
     end;
  |Клетка="кн42":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С040",ст,1,7,true,"-",ТекРазд3);
     end;
  |Клетка="кн43":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С050",ExtractWord(1,ст,"/"),1,10,true,"-",ТекРазд3);
       РазложитьСтроку("Р3С050",ExtractWord(2,ст,"/"),11,20,true,"-",ТекРазд3);
     end;
  |Клетка="кн44":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С060",ст,1,7,true,"-",ТекРазд3);
     end;
  |Клетка="кн45":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С070",ExtractWord(1,ст,"."),1,1,true,"-",ТекРазд3);
       РазложитьСтроку("Р3С070",ExtractWord(2,ст,"."),2,3,true,"-",ТекРазд3);
     end;
  |Клетка="кн46":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С080",ExtractWord(1,ст,"/"),1,2,true,"-",ТекРазд3);
       РазложитьСтроку("Р3С080",ExtractWord(2,ст,"/"),3,4,true,"-",ТекРазд3);
     end;
  |Клетка="кн47":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С090",ст,1,15,true,"-",ТекРазд3);
     end;
  |Клетка="кн48":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С100",ст,1,7,true,"-",ТекРазд3);
     end;
  |Клетка="кн49":
     if Input(ст,'Текст')=cmOk:
       РазложитьСтроку("Р3С110",ст,1,15,true,"-",ТекРазд3);
     end;
  |Клетка="кн50":
    зап=OpenCardFile('Контрагент');
    if Зап<>nil:
      ст=GetCardFieldS('Контрагент',зап,'ПолнИмя');

      РазложитьСтроку("НаимОрганизации",ст,1,120,true,"",0);
    else
      РазложитьСтроку("НаимОрганизации","",1,120,true,"",0);
    end;
  end;
  ^false;
 end;

 func ВыборДаты_ПриВходе(Клетка:String;Итер:Integer):Logical;
   Var Tmp:Date;

   Tmp = Calendar;
   if Pos('ДПредст',Клетка)<>0: ДПредст = Tmp; ДПодтверждаю = tmp;
   |  Pos('ДПодтверждаю',Клетка)<>0: ДПодтверждаю = tmp;

   end;
   Return(False);
 end;

 func КодИмущества_ПриВходе(Клетка:String;Итер:Integer):Logical;
 var Выбор:Integer;
   ClearVariable(МассивСтрок);

   МассивСтрок[1]='1 - недвижимое имущество ЕСГС';
   МассивСтрок[2]='2 - объекты недвижимого имущества, имеющие место фактического нахождения на территориях разных субъектов РФ';
   МассивСтрок[3]='3 - прочее имущество';
   Выбор=Alternate('Код по месту нахождения',МассивСтрок);

   if Выбор=1:КодВидаИмущества[ТекРазд2] = "1";
     |Выбор=2:КодВидаИмущества[ТекРазд2] = "2";
     |Выбор=3:КодВидаИмущества[ТекРазд2] = "3";
   fi;

  ^false;
 end;

 func МестоНахождение_ПриВходе(Клетка:String;Итер:Integer):Logical;
 var Выбор:Integer;
   ClearVariable(МассивСтрок);

   МассивСтрок[1]='213 - По месту учета крупнейшего налогоплательщика';
   МассивСтрок[2]='214 - По месту нахождения российской организации';
   МассивСтрок[3]='221 - По месту нахождения обособленного подразделения российской организации, имеющего отдельный баланс';
   МассивСтрок[4]='245 - По месту постановки на учет в налоговом органе иностранной организации';
   МассивСтрок[5]='281 - По месту нахождения объекта недвижимого имущества (в отношении которого установлен отдельный порядок исчисления и уплаты налога)';
   Выбор=Alternate('Код по месту нахождения',МассивСтрок);

   if Выбор=1:РазложитьСтроку("МестоУчета","213",1,3,true,"",0);
     |Выбор=2:РазложитьСтроку("МестоУчета","214",1,3,true,"",0);
     |Выбор=3:РазложитьСтроку("МестоУчета","221",1,3,true,"",0);
     |Выбор=4:РазложитьСтроку("МестоУчета","245",1,3,true,"",0);
     |Выбор=5:РазложитьСтроку("МестоУчета","281",1,3,true,"",0);
   fi;

  ^false;
 end;

 func ВерсияБезАвторасчета :Logical;
   Return(Version="6.9 Отчет");
 end;

 proc Отправитель;
   var BarCode:Logical;

   if BarCodeUse:
      BarCode = BarCodeUse;
   elsif BarCodeUsePDF417:
      BarCode = BarCodeUsePDF417;
   end;
   редОтправительФИО.visible  = BarCode;
   редОтправительДолж.visible = BarCode;
   редОтправительТФ.visible   = BarCode;
   рОтправитель.visible       = BarCode;
   кнОтправитель.visible      = BarCode;
   нФИО.visible               = BarCode;
   нДолжность.visible         = BarCode;
   нТелефон.visible           = BarCode;
 end;


 proc ПриОткрытии(Откр:logical);
   if ВерсияБезАвторасчета then
     кнАвторасчет.Visible = False;
   end;
   кнКарт_Записать.Visible = ExistsCardFile("Налоги");
   кнКарт_Считать.Visible  = AsLogical(кнКарт_Записать.Visible);

   -- Налоговая ставка
   if СложитьВСтроку("Р2С170",1,3,"-",1)="":
     РазложитьСтроку("Р2С170","2",1,1,true,"-",ТекРазд2);
     РазложитьСтроку("Р2С170","20",2,3,true,"-",ТекРазд2);
   end;
   Отправитель;
end;


 proc РасчетПериода;
 -- Расчитывает период построения декларации
 var Г:Integer;
 var НП:String;
   НП = СложитьВСтроку("ОтчетныйПериод",1,2,"",0);
   Г    = Цел(ОтчГод);
   ДатаН=Дат(1,1,Г);
   if НП="21" or НП="51":
     ДатаК=Дат(1,4,Г);
   |  НП="31" or НП="52":
     ДатаК=Дат(1,7,Г);
   |  НП="33" or НП="53":
     ДатаК=Дат(1,10,Г);
   | true:
    SetError(ErrUserBasis,"Перевыберите расчетный период!");
   fi;
 end;


 proc СохранитьВКартотеке_ПриНажатии(Кнопка:String);
   РасчетПериода;
   Раб.Отчетность.ЗаписатьВКартотекуСНомеромНалоговой("Налоги",
                                                      "ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС",
                                                      "ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС",
                                                      ДатаН,
                                                      ДатаК,
                                                      ВерсияБланка,
                                                      int(СложитьВСтроку("НомерКорректировки",1,3,"-",0)),
                                                      int(СложитьВСтроку("НалоговыйОрган",1,4,"-",0))
                                                      );
 end;

 proc СчитатьИзКартотеки_ПриНажатии(Кнопка:String);
   Раб.Отчетность.СчитатьИзКартотеки("Налоги",
                                     "ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС",
                                     "ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС",
                                     ВерсияБланка);
   ПриОткрытии(True);
 end;

 proc кнЗакрыть_ПриНажатии(Кнопка:String);
   СохранитьРаздел1(ТекРазд1);
   Close;
 end;

 Proc кнВыборПризнака_ПриНажатии(Кнопка: String);
 var t : string;

   t = Anaelection('*.*',false,true);
   t = if(substr(t,length(t),1) = '.',t + '*',t);
   ПризнакНедвиж = if( t <> '',t, ПризнакНедвиж);
 end;

 func КонвертироватьСумму(Сумма:Numeric):String;
 -- Округляет и преобразовывает сумму в строку
   ^стр(trunc(Сумма) + if(FracToInteger(Сумма,2)>=50,1,0));
 end;

 func УвеличитьНаМесяц(ИсхДата:Date):Date;
 -- Увеличивает дату на месяц
 var ТекМес:Integer;
 var рез:Date;

   ТекМес=Mon(ИсхДата);
   if ТекМес+1<=12:
     рез=Dat(Day(ИсхДата),ТекМес+1,Year(ИсхДата));
   else
     рез=Dat(Day(ИсхДата),1,Year(ИсхДата)+1);
   fi;
   ^рез;
 end;

 proc ОчиститьПоля;
 var ставка1,ставка2,локКодВидаИмущества, локР2ОКАТО1:string;
 var локР1ОКАТО, локР1КБК:string;
 var i:Integer;
   -- запоминаем нужные поля
   ставка1 = СложитьВСтроку("Р2С170",1,1,"-",1);
   ставка2 = СложитьВСтроку("Р2С170",2,3,"-",1);
   локКодВидаИмущества = КодВидаИмущества[1];
   локР1ОКАТО  = СложитьВСтроку("ОКАТО",1,11,"-",1);
   локР1КБК    = СложитьВСтроку("КБК",1,20,"-",1);
   локР2ОКАТО1 = СложитьВСтроку("Р2ОКАТО",1,11,"-",1);


   i = КолРазд1;
   while i>0 do
     ТекРазд1 = i;
     УдалитьРаздел1_ПриНажатии("");
     i = i - 1;
   end;

   i = КолРазд2;
   while i>0 do
     ТекРазд2 = i;
     УдалитьРаздел2_ПриНажатии("");
     i = i - 1;
   end;

   -- Восстанавливаем нужные поля:
   if ставка1 + ставка2 = "":
     РазложитьСтроку("Р2С170","2",1,1,true,"-",ТекРазд2);
     РазложитьСтроку("Р2С170","20",2,3,true,"-",ТекРазд2);
   else
     РазложитьСтроку("Р2С170",ставка1,1,1,true,"-",ТекРазд2);
     РазложитьСтроку("Р2С170",ставка2,2,3,true,"-",ТекРазд2);
   end;

   РазложитьСтроку("ОКАТО",локР1ОКАТО,1,11,true,"0",1);
   РазложитьСтроку("КБК",  локР1КБК,  1,20,true,"",1);
   РазложитьСтроку("СумНалога","",1,15,true,"-",1);
   РазложитьСтроку("Р2ОКАТО",локР2ОКАТО1,1,11,true,"-",ТекРазд2);
   КодВидаИмущества[ТекРазд2] = локКодВидаИмущества;
 end;

 Func КрупнаяСумма(Sm:N):N;
   Var I:I;
   Var Rez,dd:N;
     I   = Int(Trunc(Sm/20000000.00));
     Rez = 20000000.00*I;
     DD  = Int((Sm-Rez));
     Rez = Rez + Int((Sm-Rez));
   ^Rez;
 end;

Func СтоимостьЛьготируемогоИмуществаПериод(ДК:Date; Недвижимое:Logical) :Numeric;
var Путь, УслОтб, Value :String;
var RO, num :Integer;
var ResSum :Numeric;
var Отч1 :Report;
var REC :Record;
 ResSum=0.00;
 if Недвижимое: УслОтб="*.?.101.1?.???|*.?.102.1?.???|*.?.104.1?.???"; else УслОтб="*.?.101.??.???|*.?.102.??.???|(*.?.104.??.???&~*.?.104.5?.???)"; fi;
 Путь=PlanVar("ОБЩИЕ")+"\ОТЧЕТЫ\Отч_набор_001.lst";
 if not ExistFile(Путь): ^(-1.00); fi;
 Try
   RO=OpenWorkArea("РПО_НФА", "ГРНФА;ПРИЗНАК", "КОДЛГТ_НИ>0");
   Отч1=RepOpen(Путь+"|По_признакам_БАЛиЗАБ", УслОтб, "", 1.1.100, ДК, "", "НФА");
   Try
     if not Records(RO)>0: ^(0.00); fi;
     RepReset(Отч1);
     while RepNext(Отч1) do
       Value=RepIdent(Отч1);
       REC=SignToRecord(Value, False);
       if REC<>NIL: num=GetRecordNumber(RO, REC); else num=0; fi;
       if num>0: ResSum=ResSum+RepSaldoF(Отч1, отчСверн, ""); fi;
     end;
   Finally
     Отч1=RepClose(Отч1);
     CloseWorkArea(RO);
   end;
 Except
   ^(-1.00);
 end;
 ^ResSum;
end;

var LST_UNQ_ИНВ[] :String;
var LST_UNQ_МБП[] :String;
var LST_МБП_SUM[] :Numeric;
var LST_МБП_OUT[] :Logical;
var aAna[] :String;

Func ДвижимоеИмуществоДо2013_СоздатьСписок(RepDate:Date; ИНВ:Logical) :Logical;
var ВременныйФайл, aVal1, aVal2, aDeb, aCre, aComment, MskACC, MskANA, svrANA, svrSGN, КОДСЧТ, КОДНФА, КОДУЧН :String;
var aSum1, aSum2, SUM, constНФА100П, constНФА_ИНВ :Numeric;
var xx, len, ii, jj, pp :Integer;
var СЧДЕБ :Logical;
var aDate :Date;

 Try aSum1=Com_Var("ОС_100"  , RepDate-1); Except aSum1=0.00; end;
 if not aSum1>0: if (RepDate-1)>=1.1.2011: aSum1=40000; else aSum1=20000; fi; fi;
 ConstНФА100П=aSum1;
 Try aSum2=Com_Var("ОС_РАСХ" , RepDate-1); Except aSum2=0.00; end;
 if not aSum2>0: if (RepDate-1)>=1.1.2009: aSum2=3000;  else aSum2=1000;  fi; fi;
 ConstНФА_ИНВ=aSum2;
 --
 ClearVariable(aAna);
 ВременныйФайл=PlanVar('CACHE')+"\"+GetGUID;
 xx=TujRepNoNullBal+TujRepCombinedAna+TujRepBalAccount;
 MskACC="*.?.101.2?.???|*.?.102.2?.???|*.?.101.3?.???|*.?.102.3?.???|*.?.101.4?.???|*.?.102.4?.???";
 MskANA="(НФА.*)&(ДИ2013)&"+if(ИНВ, "(УЧН.*)", "(~УЧН.*)");
 len=TujReport(ВременныйФайл, 1.1.100, RepDate, MskACC, MskANA, "ДНФА", "", "", xx, False);
 if len>0:
   ShowProgress(len, "Создание списка движимого имущества принятого к учету до 2013 года"+if(ИНВ, "", " (МБП)"));
   OpenTextJur(ВременныйФайл);
   Try
     ii=1;
     while not GetTransFromTextJur(aDate, aSum1, aVal1, aSum2, aVal2, aDeb, aCre, aAna, aComment) do
       ProgressPos(ii);
       ii=ii+1;
       if aDeb="00" or aDeb="00Z": КОДСЧТ=aCre; СЧДЕБ=False; fi;
       if aCre="00" or aCre="00Z": КОДСЧТ=aDeb; СЧДЕБ=True;  fi;
       if Match(КОДСЧТ, "???.????.???????.???.?.101.??.???"): КОДСЧТ=SubStr(КОДСЧТ, 1, 30)+"???";
       |  Match(КОДСЧТ, "???.????.???????.???.?.102.??.???"): КОДСЧТ=SubStr(КОДСЧТ, 1, 30)+"???";
       else КОДСЧТ="";
       fi;
       if КОДСЧТ<>"":
         if (aVal1="" or aVal1="РУБ") and aSum1<>0: if СЧДЕБ: SUM=aSum1; else SUM=-aSum1; fi;
         |  (aVal2="" or aVal2="РУБ") and aSum2<>0: if СЧДЕБ: SUM=aSum2; else SUM=-aSum2; fi;
         else SUM=0.00;
         fi;
         КОДНФА=""; КОДУЧН="";
         xx=LengthOfArray(aAna);
         if xx>0:
           for jj=1 to xx do
             pp=Pos(":", aAna[jj]);
             if pp>0: svrANA=SubStr(aAna[jj], 1, pp-1); else svrANA=aAna[jj]; fi;
             svrSGN=SubStr(svrANA, 1, 1);
             if svrSGN="+" or svrSGN="-": svrANA=Trim(SubStr(svrANA, 2, 255)); fi;
             if Match(svrANA, "НФА.*"): КОДНФА=svrANA; fi;
             if ИНВ: if Match(svrANA, "УЧН.*"): КОДУЧН=svrANA; fi; fi;
           od; -- цикл по аналитике
         fi; --xx>0
         if ValidSign(КОДНФА):
           if ИНВ:
             if ValidSign(КОДУЧН):
               svrANA=КОДСЧТ+"#"+КОДНФА+"#"+КОДУЧН;
               AddInArray(LST_UNQ_ИНВ, True, False, svrANA);
             fi;
           else
             svrANA=КОДСЧТ+"#"+КОДНФА;
             pp=SearchInArray(LST_UNQ_МБП, svrANA, True, 1);
             if not pp>0:
               jj=InsertInArraySort(LST_UNQ_МБП, svrANA);
               InsertInArray(LST_МБП_SUM, jj, SUM);
             else
               LST_МБП_SUM[pp]=LST_МБП_SUM[pp]+SUM;
             fi;
           fi;
         fi;
       fi;
     end; --while
   Finally
     CloseTextJur;
     CloseProgress;
   end; -- Try
   Try DeleteFile(ВременныйФайл); Except end;
 else
   --Message("Движимого имущества принятого к учету до 2013 года не обнаружено."+if(ИНВ, "", " (МБП)")+"^MВозможно не проставлена соответствующая аналитика в картотеке остатков НФА");
   Trace("Движимого имущества принятого к учету до 2013 года не обнаружено."+if(ИНВ, "", " (МБП < 3'000 руб.)")+". Возможно не проставлена соответствующая аналитика в картотеке остатков НФА");
   ^False;
 fi; -- len>0 (TujReport)
 if ИНВ: ^if(LengthOfArray(LST_UNQ_ИНВ)>0, True, False); else ^if(LengthOfArray(LST_UNQ_МБП)>0, True, False); fi;
end;

Func СчетАмортизацииПоСчетуНФА(СЧТНФА:String) :String;
var sLeft, s1ACC, s2ACC, RES :String;
 RES="";
 if Match(СЧТНФА, "???.????.???????.???.?.101.??.???"):
    sLeft=SubStr(СЧТНФА, 1, 23);
    s1ACC=SubStr(СЧТНФА, 28, 1);
    s2ACC=SubStr(СЧТНФА, 29, 1);
    if s2ACC="1": RES=sLeft+"104."+s1ACC+"1.410";
    |  s2ACC="2": RES=sLeft+"104."+s1ACC+"2.410";
    |  s2ACC="3": RES=sLeft+"104."+s1ACC+"3.410";
    |  s2ACC="4": RES=sLeft+"104."+s1ACC+"4.410";
    |  s2ACC="5": RES=sLeft+"104."+s1ACC+"5.410";
    |  s2ACC="6": RES=sLeft+"104."+s1ACC+"6.410";
    |  s2ACC="7": RES=sLeft+"104."+s1ACC+"7.410";
    |  s2ACC="8": RES=sLeft+"104."+s1ACC+"8.410";
    else ^"";
    fi;
 |  Match(СЧТНФА, "???.????.???????.???.?.102.??.???"):
    sLeft=SubStr(СЧТНФА, 1, 23);
    s1ACC=SubStr(СЧТНФА, 28, 1);
    s2ACC=SubStr(СЧТНФА, 29, 1);
    if s2ACC="0": RES=sLeft+"104."+s1ACC+"9.420"; else ^""; fi;
 else ^"";
 fi;
 ^RES;
end;

--Func ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДРО:Date; Разрешено:Logical) :Numeric;
--var СЧТБАЛ, СЧТАМТ, КОДНФА, КОДУЧН :String;
--var ResSUM, BAL, AMT :Numeric;
--var len, ii :Integer;
-- ResSUM=0.00;
-- if Разрешено:
--   len=LengthOfArray(LST_UNQ);
--   if len>0:
--     ShowProgress(len, "Обработка движимго имущества принятого к учету до 2013 года ("+Месяц(Mon(ДРО))+")");
--     Try
--       for ii=1 to len do
--         ProgressPos(ii);
--         BAL=0.00; AMT=0.00;
--         СЧТБАЛ=ExtractWord(1, LST_UNQ[ii], "#");
--         СЧТАМТ=СчетАмортизацииПоСчетуНФА(СЧТБАЛ);
--         КОДНФА=ExtractWord(2, LST_UNQ[ii], "#");
--         КОДУЧН=ExtractWord(3, LST_UNQ[ii], "#");
--         if КОДУЧН<>"УЧН.$$$":
--           Try BAL=Abs(Round(Saldo(СЧТБАЛ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДРО), 2)); Except BAL=0.00; end;
--           Try AMT=Abs(Round(Saldo(СЧТАМТ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДРО), 2)); Except AMT=0.00; end;
--           ResSUM=ResSUM+(BAL-AMT);
--         else
--           Try BAL=Abs(Round(Saldo(СЧТБАЛ+"{"+КОДНФА+"&~УЧН.*}", ДРО), 2)); Except BAL=0.00; end;
--           ResSUM=ResSUM+BAL;
--         fi;
--       od;
--     Finally
--       CloseProgress;
--     end;
--   fi;
-- fi;
-- ^ResSUM;
--end;

Proc ПроверкаИсправительныхПроводок(aДКО:Date; ИНВ:Logical);
var AccTrans, AnaTrans, КОДСЧТ, КОДНФА, КОДУЧН, svrANA :String;
var Iter, pp, jj :Integer;
var SUM :Numeric;
 AccTrans="(((*.2?.???|*.3?.???|*.4?.???)&(*.?.101.??.310|*.?.102.??.320))/00)";
 if ИНВ: AnaTrans="{(НФА.*)&(ТИТУЛ)&(ДИ2013)&(УЧН.*)}"; else AnaTrans="{(НФА.*)&(ТИТУЛ)&(ДИ2013)&(~УЧН.*)}"; fi;
 for Transaction Iter=AccTrans+AnaTrans, AddMon(aДКО, -1), aДКО do
   SUM=TransSum(Iter);
   if SUM>0.00:
     КОДСЧТ=TransDeb(Iter);
     if Match(КОДСЧТ, "???.????.???????.???.?.101.??.???"): КОДСЧТ=SubStr(КОДСЧТ, 1, 30)+"???";
     |  Match(КОДСЧТ, "???.????.???????.???.?.102.??.???"): КОДСЧТ=SubStr(КОДСЧТ, 1, 30)+"???";
     else КОДСЧТ="";
     fi;
     if КОДСЧТ<>"" and TransCre(Iter)="00":
       КОДНФА=РАБ.УПП.LIB.ПризнакИзСтрокиАналитикиПроводки(Iter, "НФА", True);
       if ИНВ: КОДУЧН=РАБ.УПП.LIB.ПризнакИзСтрокиАналитикиПроводки(Iter, "УЧН", True); else КОДУЧН=""; fi;
       if ИНВ:
         if ValidSign(КОДУЧН):
           svrANA=КОДСЧТ+"#"+КОДНФА+"#"+КОДУЧН;
           AddInArray(LST_UNQ_ИНВ, True, False, svrANA);
         fi;
       else
         svrANA=КОДСЧТ+"#"+КОДНФА;
         pp=SearchInArray(LST_UNQ_МБП, svrANA, True, 1);
         if not pp>0:
           jj=InsertInArraySort(LST_UNQ_МБП, svrANA);
           InsertInArray(LST_МБП_SUM, jj, SUM);
         else
           LST_МБП_SUM[pp]=LST_МБП_SUM[pp]+SUM;
         fi;
       fi;
     fi;
   fi;
 end; -- for Transaction
end;

Func ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДНО:Date; ДКО:Date; Разрешено:Logical) :Numeric;
var СЧТБАЛ, СЧТАМТ, КОДНФА, КОДУЧН :String;
var ResSUM, BAL, AMT :Numeric;
var len, ii :Integer;
 ResSUM=0.00;
 if Разрешено:
   if Mon(ДКО)>1:
     ПроверкаИсправительныхПроводок(ДКО, True);
     ПроверкаИсправительныхПроводок(ДКО, False);
   fi;
   len=LengthOfArray(LST_UNQ_ИНВ);
   if len>0:
     ShowProgress(len, "Обработка ДИ принятого к учету до 2013г. (на 1 "+Месяца(Mon(ДКО))+")");
     Try
       for ii=1 to len do
         ProgressPos(ii);
         BAL=0.00; AMT=0.00;
         СЧТБАЛ=ExtractWord(1, LST_UNQ_ИНВ[ii], "#");
         СЧТАМТ=СчетАмортизацииПоСчетуНФА(СЧТБАЛ);
         КОДНФА=Up(ExtractWord(2, LST_UNQ_ИНВ[ii], "#"));
         КОДУЧН=Up(ExtractWord(3, LST_UNQ_ИНВ[ii], "#"));
--         if Match(КОДНФА, "НФА.101.??.ДИ2013") or КОДНФА="НФА.ДИ2013" or КОДНФА="НФА.000":
--           Try BAL=Round(Saldo(СЧТБАЛ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДКО), 2); Except BAL=0.00; end;
--         else
--           Try BAL=Abs(Round(Saldo(СЧТБАЛ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДКО), 2)); Except BAL=0.00; end;
--         fi;
--         Try AMT=Abs(Round(Saldo(СЧТАМТ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДКО), 2)); Except AMT=0.00; end;
--         ResSUM=ResSUM+(BAL-AMT);
         Try BAL=Round(Saldo(СЧТБАЛ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДКО), 2); Except BAL=0.00; end;
         Try AMT=Round(Saldo(СЧТАМТ+"{"+КОДНФА+"&"+КОДУЧН+"}", ДКО), 2); Except AMT=0.00; end;
         ResSUM=ResSUM+(BAL+AMT);
-- ТЕСТ для отладки
--         if ДКО=1.3.2013:
--         if (BAL+AMT)<>0:
--           Trace(КОДУЧН+" | "+Str(BAL+AMT, 2));
--         fi;
--         fi;
       od;
     Finally
       CloseProgress;
     end;
   fi;
   len=LengthOfArray(LST_UNQ_МБП);
   if len>0:
     ShowProgress(len, "Обработка ДИ (МБП) принятого к учету до 2013г. (на 1 "+Месяца(Mon(ДКО))+")");
     Try
       for ii=1 to len do
         ProgressPos(ii);
         BAL=0.00; AMT=0.00;
         if not LST_МБП_OUT[ii]:
           BAL=LST_МБП_SUM[ii];
           if BAL<>0.00:
             СЧТБАЛ=ExtractWord(1, LST_UNQ_МБП[ii], "#");
             КОДНФА=ExtractWord(2, LST_UNQ_МБП[ii], "#");
             СЧТАМТ=SubStr(СЧТБАЛ, 1, 30)+"410"; -- счет для подсчета суммы выбытия
             if Name_S(СЧТАМТ)<>" ": Try AMT=Cre(Round(Turn(СЧТАМТ+"{"+КОДНФА+"&~УЧН.*}", ДНО, ДКО), 2)); Except AMT=0.00; end; else AMT=0.00; fi; -- выбыло за период
             if AMT>0.00: ResSUM=ResSUM+Deb(BAL-AMT); if not (BAL-AMT)>0.00: LST_МБП_OUT[ii]=True; fi; else ResSUM=ResSUM+BAL; fi;
           fi;
         fi;
       od;
     Finally
       CloseProgress;
     end;
   fi;
 fi;
 -- попытка учета зависшей амортизации
 -- должны быть помечена признаком ДИ2013 и признаком НФА вида НФА.ДИ2013 или НФА.101.??.ДИ2013
 AMT=0.00;
 if AMT=0.00:
   -- проверка НФА.101.??.ДИ2013
   Try
     AMT=Round(Saldo("(*.?.104.2?.410|*.?.104.3?.410|*.?.104.4?.410){ДИ2013&УЧН.*&НФА.101.??.ДИ2013}", ДКО), 2);
   Except
     AMT=0.00;
   end;
 fi;
 if AMT=0.00 and Name_A("НФА.ДИ2013")<>" ":
   -- проверка НФА.ДИ2013
   Try
     AMT=Round(Saldo("(*.?.104.2?.410|*.?.104.3?.410|*.?.104.4?.410){ДИ2013&УЧН.*&НФА.ДИ2013}", ДКО), 2);
   Except
     AMT=0.00;
   end;
 fi;
 if AMT=0.00 and Name_A("НФА.000")<>" ":
   -- проверка НФА.000
   Try
     AMT=Round(Saldo("(*.?.104.2?.410|*.?.104.3?.410|*.?.104.4?.410){ДИ2013&УЧН.*&НФА.000}", ДКО), 2);
   Except
     AMT=0.00;
   end;
 fi;
 if AMT<>0.00: ResSUM=ResSUM+AMT; fi;
 -- конец попытки учета зависшей амортизации
 ^ResSUM;
end;

Proc кнАвторасчет_ПриНажатии(Кнопка:String);
var УсловиеОтбора, УсловиеИзноса, ПризнакНедвиж_, СуммаСтр, ОтчетныйПериод, МаскаСчетовДИ :String;
var Сумма, ставка, SUM, СуммаНИ, СуммаДИ :Numeric;
var Учет2013, естьДИ_до2013, Flg01, Flg02 :Logical;
var ДРасч :Date;
var num :Integer;

 ClearTrace(True);
 Refresh(False);
 ОчиститьПоля;
 РасчетПериода;

 ОтчетныйПериод = СложитьВСтроку("ОтчетныйПериод",1,2,"",0);

 ДРасч=ДатаН;
 Учет2013=if(ДатаН>=1.1.2013, True, False);

 ClearVariable(LST_UNQ_ИНВ);
 ClearVariable(LST_UNQ_МБП);
 ClearVariable(LST_МБП_SUM);
 ClearVariable(LST_МБП_OUT);

 if Учет2013:
   УсловиеОтбора="*.?.101.1?.???|*.?.102.1?.???";
   УсловиеИзноса="*.?.104.1?.???";
   --
   МаскаСчетовДИ="*.?.101.2?.???|*.?.102.2?.???|*.?.101.3?.???|*.?.102.3?.???|*.?.101.4?.???|*.?.102.4?.???";
   if Abs(Turn("+("+МаскаСчетовДИ+"){~НФА.*}", 1.1.100, ДатаН))>0 or Abs(Turn("-("+МаскаСчетовДИ+"){~НФА.*}", 1.1.100, ДатаН))>0:
      num=Enquiry("Выберите действие...", "Обнаружены проводки^Mна счетах ("+МаскаСчетовДИ+")^Mнепомеченные справочником НФА!", "Проводки в отчет;Отмена;Игнорировать", mtError);
      if num<>3:
        if num=1: Report(PlanVar("НФА")+"\ОТЧЕТЫ\НФАОТЧ2007.lst"+"|Непомеченные_НФА", 1.1.100, ДатаН, МаскаСчетовДИ, "~НФА.*"); fi;
        Exit;
      fi;
   fi;
   --
   Flg01=ДвижимоеИмуществоДо2013_СоздатьСписок(ДатаН, True);
   Flg02=ДвижимоеИмуществоДо2013_СоздатьСписок(ДатаН, False);
 else
   УсловиеОтбора="*.?.101.??.???|*.?.102.??.???";
   УсловиеИзноса="*.?.104.??.???&~*.?.104.5?.???";
   Flg01=False;
   Flg02=False;
 fi;
 --
 естьДИ_до2013=if(Учет2013 and (Flg01 or Flg02), True, False);
 ПризнакНедвиж_ = if(ПризнакНедвиж <> '', '{' + ПризнакНедвиж + '}', '&~*');

 -- *** ---

 СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
 СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
 Сумма    = СуммаНИ + СуммаДИ;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьВсегоС020",СуммаСтр,1,15,true,"-",1);

 --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
 SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьЛьготС020",СуммаСтр,1,15,true,"-",1);

 ДРасч=УвеличитьНаМесяц(ДРасч);

 СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
 СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
 Сумма    = СуммаНИ + СуммаДИ;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьВсегоС030",СуммаСтр,1,15,true,"-",1);

 --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
 SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьЛьготС030",СуммаСтр,1,15,true,"-",1);

 ДРасч=УвеличитьНаМесяц(ДРасч);

 СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
 СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
 Сумма    = СуммаНИ + СуммаДИ;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьВсегоС040",СуммаСтр,1,15,true,"-",1);

 --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
 SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьЛьготС040",СуммаСтр,1,15,true,"-",1);

 ДРасч=УвеличитьНаМесяц(ДРасч);

 СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
 СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
 Сумма    = СуммаНИ + СуммаДИ;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьВсегоС050",СуммаСтр,1,15,true,"-",1);

 --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
 SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("СтоимостьЛьготС050",СуммаСтр,1,15,true,"-",1);

 -- Если полгода и 9 месяцев
 if  ОтчетныйПериод = "31" or ОтчетныйПериод = "52" or ОтчетныйПериод = "33" or ОтчетныйПериод = "53":

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС060",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС060",СуммаСтр,1,15,true,"-",1);

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС070",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС070",СуммаСтр,1,15,true,"-",1);

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС080",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС080",СуммаСтр,1,15,true,"-",1);

 end;

 -- 9 месяцев
 if  ОтчетныйПериод = "33" or ОтчетныйПериод = "53":

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС090",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС090",СуммаСтр,1,15,true,"-",1);

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС100",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС100",СуммаСтр,1,15,true,"-",1);

   ДРасч=УвеличитьНаМесяц(ДРасч);

   СуммаНИ  = Deb(Saldo(УсловиеОтбора,ДРасч))-Cre(Saldo(УсловиеИзноса,ДРасч));
   СуммаДИ  = ОстаточнаяСтоимостьДвижимогоИмуществаДо2013_Период(ДатаН, ДРасч, естьДИ_до2013);
   Сумма    = СуммаНИ + СуммаДИ;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьВсегоС110",СуммаСтр,1,15,true,"-",1);

   --Сумма=Deb(Saldo(УсловиеОтбора + ПризнакНедвиж_,ДРасч))-Cre(Saldo(УсловиеИзноса + ПризнакНедвиж_,ДРасч));
   SUM=СтоимостьЛьготируемогоИмуществаПериод(ДРасч, False); if SUM>0: Сумма=SUM; else Сумма=0.00; fi;
   СуммаСтр = КонвертироватьСумму(Сумма);
   РазложитьСтроку("СтоимостьЛьготС110",СуммаСтр,1,15,true,"-",1);

 end;

 if ОтчетныйПериод="21" or ОтчетныйПериод="51":
     Сумма=(КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС020",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС030",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС040",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС050",1,15,"-",1))))/4;
   |ОтчетныйПериод = "31" or ОтчетныйПериод = "52":
     Сумма=(КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС020",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС030",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС040",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС050",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС060",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС070",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС080",1,15,"-",1))))/7;
   |ОтчетныйПериод = "33" or ОтчетныйПериод = "53":
     Сумма=(КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС020",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС030",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС040",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС050",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС060",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС070",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС080",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС090",1,15,"-",1))) +
            КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС100",1,15,"-",1))) + КрупнаяСумма(int(СложитьВСтроку("СтоимостьВсегоС110",1,15,"-",1))))/10;
 fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("Р2С120",СуммаСтр,1,15,true,"-",1);


 if ОтчетныйПериод="21" or ОтчетныйПериод="51":
     Сумма=(int(СложитьВСтроку("СтоимостьЛьготС020",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС030",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС040",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС050",1,15,"-",1)))/4;
   |ОтчетныйПериод = "31" or ОтчетныйПериод = "52":
     Сумма=(int(СложитьВСтроку("СтоимостьЛьготС020",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС030",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС040",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС050",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС060",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС070",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС080",1,15,"-",1)))/7;
   |ОтчетныйПериод = "33" or ОтчетныйПериод = "53":
     Сумма=(int(СложитьВСтроку("СтоимостьЛьготС020",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС030",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС040",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС050",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС060",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС070",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС080",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС090",1,15,"-",1)) +
            int(СложитьВСтроку("СтоимостьЛьготС100",1,15,"-",1)) + int(СложитьВСтроку("СтоимостьЛьготС110",1,15,"-",1)))/10;
 fi;
 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("Р2С140",СуммаСтр,1,15,true,"-",1);


 Ставка = int(СложитьВСтроку("Р2С170",1,1,"-",1)) + int(СложитьВСтроку("Р2С170",2,3,"-",1) + if(length(СложитьВСтроку("Р2С170",2,3,"-",1))=1,"0",""))/100;
 Сумма = (int(СложитьВСтроку("Р2С120",1,15,"-",1)) - int(СложитьВСтроку("Р2С140",1,15,"-",1))) * Ставка/100/4;


 СуммаСтр = КонвертироватьСумму(Сумма);
 РазложитьСтроку("Р2С180",СуммаСтр,1,15,true,"-",1);

 РазложитьСтроку("СумНалога",СуммаСтр,1,15,true,"-",1);

 ClearVariable(LST_UNQ_ИНВ);
 ClearVariable(LST_UNQ_МБП);
 ClearVariable(LST_МБП_SUM);
 ClearVariable(LST_МБП_OUT);
 ClearVariable(aAna);
 Message("Расчет заверешен.");

end;


proc ВыборСотрудника_ПриНажатии(Кнопка:String);
var зап:record;
var ФИОТ,Телефон,Должность:String;
  зап=OpenCardFile('Сотрудники');
  if Зап<>nil:
    ФИОТ      = GetCardFieldS('Сотрудники',зап,'ФИОТ');
    Телефон   = GetCardFieldS('Сотрудники',зап,'ТелефонРабочий');
    Должность = GetCardFieldS('Сотрудники',зап,'ДОЛЖНОСТЬ.Долж');

    if Кнопка="кнОтправитель":
      ОтправительФИО  = ФИОТ;
      ОтправительДолж = Должность;
      ОтправительТФ   = Телефон;
    end;
  end;
end;

 ВД2 :Integer= int(СложитьВСтроку("НомерКорректировки",1,3,"-",1));
 ВД1 :Integer= if (ВД2>0,3,0);
 НП  :Integer= int(ОтчетныйПериод1 + ОтчетныйПериод2);

-----------------------------------------------------------
-- Процедуры и переменные для использования Экспорта МНС --
-----------------------------------------------------------
  var MNS_File[]    :String;
  var MNS_IndexFile :Integer;
  var MNS_Temp[]    :String;
  var MNS_IndexTemp :Integer;
  var MNS_КНД       :String  = "1152028";
  var MNS_ВерФОтч   :String  = "5.01";
  var MNS_НаимФОтч  :String  = "НАЛОГОВЫЙ РАСЧЕТ ПО АВАНСОВОМУ ПЛАТЕЖУ ПО НАЛОГУ НА ИМУЩЕСТВО ОРГАНИЗАЦИЙ";
  var MNS_ShortName :String  = "Расчет по авансовому платежу по налогу на имущество организаций";
  var MNS_BlankName :String  = "ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС";
  var MNS_Shema     :String  = "NO_IMUR_1_085_00_05_01_01.XSD";
  var MNS_Version   :String  = "5";
  var MNS_DateFrom  :String  = "11.09.2007";
  var MNS_ErrorFrame:Integer = [1];
  var MNS_ErrorField:String  = [""];
  var MNS_ErrorSect :String  = [""];
  var MNS_ErrorIndex:Integer = [0];
  var MNS_XML :logical = true;
-----------------------------------------------------------
  var Bar_Exist     :Logical = true;
-----------------------------------------------------------
  proc UseBarCode_OnChange(Sender :String);
    if Not Bar_Exist then 
      if Sender<>"" and BarCodeUse then
        Message(ЭкспортМНС.ОбщиеФункции.Error_Нет_ФНС);
      end;
      BarCodeUse         = False;
      BarCodeCheck.State = False;
    end;

    BarCodeUsePDF417 = False;
    Отправитель;
  end;

  proc UseBarCodePDF417_OnChange(Sender :String);
    if Not Bar_Exist then
      if Sender<>"" and BarCodeUsePDF417 then
        Message(ЭкспортМНС.ОбщиеФункции.Error_Нет_ФНС);
      end;
      BarCodeUsePDF417         = False;
      BarCodeCheck.StatePDF414 = False;
    end;

    BarCodeUse = False;
    Отправитель;
  end;

  proc SetFocusOnError;
    var vObject :Object;

    if MNS_ErrorField<>"" then
      if FindObject(MNS_BlankName+'.Template', vObject) then
        vObject.Field  = MNS_ErrorField;
        if MNS_ErrorField = "КБК1" or MNS_ErrorField="ОКАТО1" then
            Template.Frame = MNS_ErrorFrame;
        end;
        MNS_ErrorField = ""; MNS_ErrorSect = ""; MNS_ErrorIndex = 0;
        MNS_ErrorFrame = 1;
      end;
    end;
  end;

  func СложитьВСтрокуСПробелом(Переменная:String;НачНомер:Integer;КонНомер:Integer;ИндексМассива:Integer):String;
     -- Возращаяет строку, складывая ее из переменных
     -- Переменная должна быть формата "Имя1","Имя2" и т.д.
     -- Параметры:
     --   Переменная - имя переменной из которой складывать
     --   НачНомер   - начальный номер переменной с которой начинать присваивание
     --   КонНомер   - конечный номер переменной на которой заканчивать присваивание, включительно
     --   симв       - Не писать в строку, если совпадает с заданом символом
     --   ИндексМассива - номер индекса массива, если переменная массив. 0 - значит переменная не массив
     var i:Integer;
     var исхСтр,текСимв:String;
     исхСтр = "";
     for i=НачНомер..КонНомер do
       текСимв = GetVariableS(Переменная+str(i) + if(ИндексМассива>0,"["+ str(ИндексМассива) +"]",""));
       исхСтр = исхСтр + if(текСимв<>"",текСимв," ");
     end;
   ^исхСтр;
  end;


--  func MNS_ПолучитьИНН :String;
--    var Result, vStr :String;

--    if MNS_ЮрЛицо then
--      Result = Trim(ИННО3+ИННО4+ИННО5+ИННО6+ИННО7+ИННО8+ИННО9+ИННО10+ИННО11+ИННО12);
--    else
--      Result = Trim(ИННО1+ИННО2+ИННО3+ИННО4+ИННО5+ИННО6+ИННО7+ИННО8+ИННО9+ИННО10+ИННО11+ИННО12);
--      vStr   = SubStr(Result, 1, 3);
--      if Result="" or vStr="" or vStr="   " or vStr="000" then
--        Result = ЭкспортМНС.ОбщиеФункции.MNS_Предст_ИНН;
--      end;
--   end;
--    Return(Result);
--  end;

  func MNS_ПолучитьИНН :String;
    ^СложитьВСтроку("ИННО",1,12,"-",0);
  end;

  func MNS_ПолучитьКПП :String;
    ^СложитьВСтроку("КППО",1,9,"-",0);
  end;

  func MNS_ПолучитьИМНС:String;
    Return(Trim(НалоговыйОрган1+НалоговыйОрган2+НалоговыйОрган3+НалоговыйОрган4));
  end;

  func MNS_ПолучитьМестоУчета:String;
    Return(Trim(МестоУчета1+МестоУчета2+МестоУчета3));
  end;

  func MNS_ПолучитьНаимОрганизации:String;
     Return(trim(СложитьВСтрокуСПробелом("НаимОрганизации",1,160,0)));
  end;


  func MNS_ПолучитьОКВЭД:String;
    Return(Trim(ОКВЭД1+ОКВЭД2+"."+ОКВЭД3+ОКВЭД4+if((ОКВЭД5+ОКВЭД6)="","",".")+ОКВЭД5+ОКВЭД6));
  end;

  func MNS_ПолучитьТелефон:String;
     Return(trim(СложитьВСтрокуСПробелом("КонтактныйТелефон",1,20,0)));
  end;

  func MNS_ПолучитьФамилию:String;
     Return(Trim(ФИОНалогПлат1+ФИОНалогПлат2+ФИОНалогПлат3+ФИОНалогПлат4+ФИОНалогПлат5+
                 ФИОНалогПлат6+ФИОНалогПлат7+ФИОНалогПлат8+ФИОНалогПлат9+ФИОНалогПлат10+
                 ФИОНалогПлат11+ФИОНалогПлат12+ФИОНалогПлат13+ФИОНалогПлат14+ФИОНалогПлат15+
                 ФИОНалогПлат16+ФИОНалогПлат17+ФИОНалогПлат18+ФИОНалогПлат19+ФИОНалогПлат20));
  end;

  func MNS_ПолучитьИмя:String;
     Return(Trim(ФИОНалогПлат21+ФИОНалогПлат22+ФИОНалогПлат23+ФИОНалогПлат24+ФИОНалогПлат25+
                 ФИОНалогПлат26+ФИОНалогПлат27+ФИОНалогПлат28+ФИОНалогПлат29+ФИОНалогПлат30+
                 ФИОНалогПлат31+ФИОНалогПлат32+ФИОНалогПлат33+ФИОНалогПлат34+ФИОНалогПлат35+
                 ФИОНалогПлат36+ФИОНалогПлат37+ФИОНалогПлат38+ФИОНалогПлат39+ФИОНалогПлат40));

  end;

  func MNS_ПолучитьОтчество:String;
     Return(Trim(ФИОНалогПлат41+ФИОНалогПлат42+ФИОНалогПлат43+ФИОНалогПлат44+ФИОНалогПлат45+
                 ФИОНалогПлат46+ФИОНалогПлат47+ФИОНалогПлат48+ФИОНалогПлат49+ФИОНалогПлат50+
                 ФИОНалогПлат51+ФИОНалогПлат52+ФИОНалогПлат53+ФИОНалогПлат54+ФИОНалогПлат55+
                 ФИОНалогПлат56+ФИОНалогПлат57+ФИОНалогПлат58+ФИОНалогПлат59+ФИОНалогПлат60));
  end;

  func MNS_ПолучитьНаимДок:String;
    Return(trim(СложитьВСтрокуСПробелом("ДокументПредст",1,40,0)));
  end;

  func MNS_ПолучитьНаимОрг:String;
    Return(trim(СложитьВСтрокуСПробелом("НаимПредст",1,60,0)));
  end;

  func MNS_ПолучитьКБК(I:Integer):String;
    Return(КБК1[i] + КБК2[i] + КБК3[i] + КБК4[i] + КБК5[i] + КБК6[i] + КБК7[i] + КБК8[i] + КБК9[i] + КБК10[i] +
           КБК11[i]+ КБК12[i]+ КБК13[i]+ КБК14[i]+ КБК15[i]+ КБК16[i]+ КБК17[i]+ КБК18[i]+ КБК19[i]+ КБК20[i]);
  end;

  func MNS_ПолучитьОКАТО(I:Integer):String;
    Return(ОКАТО1[i] + ОКАТО2[i] + ОКАТО3[i] + ОКАТО4[i] + ОКАТО5[i] + ОКАТО6[i] + ОКАТО7[i] + ОКАТО8[i] + ОКАТО9[i] + ОКАТО10[i] + ОКАТО11[i]);
  end;

  func MNS_ПолучитьСумНалога(I:Integer):String;
    Return(СложитьВСтроку("СумНалога",1,15,"-",i));
  end;

  func MNS_ПолучитьОКАТО_Р2(I:Integer):String;
    Return(Р2ОКАТО1[i] + Р2ОКАТО2[i] + Р2ОКАТО3[i] + Р2ОКАТО4[i] + Р2ОКАТО5[i] + Р2ОКАТО6[i] + Р2ОКАТО7[i] + Р2ОКАТО8[i] + Р2ОКАТО9[i] + Р2ОКАТО10[i] + Р2ОКАТО11[i]);
  end;

  func MNS_ПолучитьОКАТО_Р3(I:Integer):String;
    Return(Р3ОКАТО1[i] + Р3ОКАТО2[i] + Р3ОКАТО3[i] + Р3ОКАТО4[i] + Р3ОКАТО5[i] + Р3ОКАТО6[i] + Р3ОКАТО7[i] + Р3ОКАТО8[i] + Р3ОКАТО9[i] + Р3ОКАТО10[i] + Р3ОКАТО11[i]);
  end;

  proc MNS_ClearTemp(aDelAllArrays :Logical);
    if aDelAllArrays then
      ClearVariable(ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС.MNS_File); ClearVariable(ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС.MNS_IndexFile);
    end;
      ClearVariable(ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС.MNS_Temp); ClearVariable(ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС.MNS_IndexTemp);
  end;

  proc MNS_AddInArray(Сдвиг      :String;
                     Показатель :String;
                     Значение   :String;
                     Кавычка    :String;
                     Признак    :String;
                     Тип        :String);
     Значение = Значение;
    if    (Признак="О" and Значение= "") then
      Trace(ЭкспортМНС.ОбщиеФункции.MNS_HintHead+"Не задан обязательный показатель "+Показатель);

    elsif (Признак="О" and Значение<>"") or
          (Признак="Н" and Значение<>"" and Значение<>"/") or
          (Признак="П")                   then

        MNS_File[MNS_IndexFile] =Вставить(Сдвиг+Показатель+Значение+Кавычка, MNS_File[MNS_IndexFile], Length(MNS_File[MNS_IndexFile]));
    elsif (Показатель=">"  and Значение="")  or
          (Показатель="</" and Значение<>"") or
          (Показатель="/>" and Значение="")  then

        if MNS_File[MNS_IndexFile]<>Показатель then
           MNS_File[MNS_IndexFile] =Вставить(Сдвиг+Показатель+Значение+Кавычка, MNS_File[MNS_IndexFile], Length(MNS_File[MNS_IndexFile]));
        end;
    end;
  end;

  proc MNS_SaveStringXML(Сдвиг      :String;
                         Показатель :String;
                         Значение   :String;
                         Кавычка    :String;
                         Признак    :String;
                         Тип        :String);


    -- Up и Trim для того,чтобы без ошибок проходил через Tester:"Строковые функции должны быть в
    -- верхнем регистре и без начальных и конечных пробелов!!!"

    --Значение = Up(Trim(Значение));
    Значение = Значение;

    if    (Признак="О" and Значение= "") then
      Trace(ЭкспортМНС.ОбщиеФункции.MNS_HintHead+"Не задан обязательный показатель "+Показатель);

    elsif (Признак="О" and Значение<>"") or
          (Признак="Н" and Значение<>"") or
          (Признак="П")                  then

        MNS_IndexFile           = MNS_IndexFile+1;
        MNS_File[MNS_IndexFile] = Сдвиг+Показатель+Значение+Кавычка;

    elsif (Показатель="</" and Значение<>"") then
        if MNS_File[MNS_IndexFile]<>Показатель then
          MNS_IndexFile           = MNS_IndexFile+1;
          MNS_File[MNS_IndexFile] = Сдвиг+Показатель+Значение+Кавычка;
        end;
    elsif (Показатель=">" and Значение="") or
          (Показатель="/>" and Значение="") then
        if MNS_File[MNS_IndexFile]<>Показатель then
          MNS_IndexFile           = MNS_IndexFile+1;
          MNS_File[MNS_IndexFile] = Показатель;
        end;
    else
    end;
  end;


  func MNS_Показатели:Integer;
    var RowsCount, I, K, P:Integer;
    var КБК, ОКАТО, СуммНалога : String;

    Hint("ЭкспортМНС -> "+MNS_ShortName+" -> Запись показателей формы");
    MNS_ClearTemp(False); RowsCount=0;

    MNS_SaveStringXML("  ",'<Имущ>'," ","","О","");
    for p=1 to КолРазд1 do
       СчитатьРаздел1(p);
       for k=1 to 7 do
          КБК        = MNS_ПолучитьКБК(k);
          ОКАТО      = MNS_ПолучитьОКАТО(k);
          СуммНалога = MNS_ПолучитьСумНалога(k);

          -- Раздел 1. Сумма авансового платежа по налогу, подлежащая уплате в бюджет  по данным налогоплательщика
          if ОКАТО<>"" then
             if Печать_Раздел2 then
               -- Раздел 2. Исчисление суммы авансового платежа по налогу в отношении подлежащего налогообложению имущества
               -- российских организаций и иностранных организаций, осуществляющих деятельность в Российской Федерации через
               -- постоянные представительства
               for i=1 to КолРазд2 do
                 if ОКАТО = MNS_ПолучитьОКАТО_Р2(i) then
                    MNS_SaveStringXML("   ",'<СумНалПУ', " ","","О","");
                    MNS_AddInArray   (" ",'КБК="', КБК, '"', "О","S(20)");
                    MNS_AddInArray   (" ",'ОКАТО="', ОКАТО, '"', "О","S(11)");
                    MNS_AddInArray   (" ",'НалПУ="', СуммНалога, '"', "О","N(15)");
                    MNS_AddInArray   ("",'>',"","","","");

                    MNS_SaveStringXML("    ",'<РасОбДеятРФ>', " ","","Н","");
                    MNS_SaveStringXML("     ",'<РасОб', " ","","О","");
                    MNS_AddInArray   (" ",'ВидИмущ="', КодВидаИмущества[i], '"', "О","S(1)");
                    MNS_AddInArray   ("",'>',"","","","");
                    MNS_SaveStringXML("      ",'<ДанРас', " ","","О","");
                    MNS_AddInArray   (" ",'СтИмущ="', СложитьВСтроку("Р2С120",1,15,"-",i), '"', "О","N(15)");
                    MNS_AddInArray   (" ",'КодНалЛьг="', СложитьВСтроку("Р2С130",1,7,"-",i), '"', "Н","S(7)");
                    MNS_AddInArray   (" ",'СтИмущНеобл="', СложитьВСтроку("Р2С140",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'ДолСт="', СложитьВСтроку("Р2С150",1,10,"-",i)+"/"+СложитьВСтроку("Р2С150",11,20,"-",i), '"', "Н","S(21)");
                    MNS_SaveStringXML("       ",'КодЛгПНС="', СложитьВСтроку("Р2С160",1,7,"-",i),'" ', "Н","S(7)");
                    MNS_AddInArray   (" ",'НалСтав="', Р2С1701[i]+if(СложитьВСтроку("Р2С170",2,3,"-",i)<>"","."+СложитьВСтроку("Р2С170",2,3,"-",i),""), '"', "О","N(3.2)");
                    MNS_AddInArray   ("",'>',"","","","");
                    MNS_SaveStringXML("       ",'<СтоимМес>', " ","","О","");
                    MNS_SaveStringXML("        ",'<ОстСтом0101', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС020",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС020",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0102', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС030",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС030",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0103', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС040",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС040",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0104', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС050",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС050",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0105', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС060",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС060",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0106', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС070",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС070",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0107', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС080",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС080",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0108', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС090",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС090",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0109', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС100",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС100",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("        ",'<ОстСтом0110', " ","","О","");
                    MNS_AddInArray   (" ",'СтОст="', СложитьВСтроку("СтоимостьВсегоС110",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'СтЛьгИмущ="', СложитьВСтроку("СтоимостьЛьготС110",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("       ","</","СтоимМес>", "","","");
                    MNS_SaveStringXML("      ","</","ДанРас>", "","","");
                    MNS_SaveStringXML("      ",'<ОтчПер', " ","","О","");
                    MNS_AddInArray   (" ",'СумАвИсчисл="', СложитьВСтроку("Р2С180",1,15,"-",i), '"', "О","N(15)");
                    MNS_AddInArray   (" ",'КодЛгУмен="', СложитьВСтроку("Р2С190",1,7,"-",i), '"', "Н","S(7)");
                    MNS_AddInArray   (" ",'СумЛгУмен="', СложитьВСтроку("Р2С200",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");

                    MNS_SaveStringXML("     ","</","РасОб>", "","","");
                    MNS_SaveStringXML("    ","</","РасОбДеятРФ>", "","","");
                    MNS_SaveStringXML("   ","</","СумНалПУ>", "","","");
                 end;
               end;
             end;
             if Печать_Раздел3 then
               -- Раздел 3. Исчисление суммы авансового платежа по налогу за отчетный период по объекту недвижимого имущества
               -- иностранной организации, не относящемуся к ее деятельности в Российской Федерации через постоянное представительство
               for i=1 to КолРазд3 do
                 if ОКАТО = MNS_ПолучитьОКАТО_Р3(i) then
                    MNS_SaveStringXML("   ",'<СумНалПУ', " ","","О","");
                    MNS_AddInArray   (" ",'КБК="', КБК, '"', "О","S(20)");
                    MNS_AddInArray   (" ",'ОКАТО="', ОКАТО, '"', "О","S(11)");
                    MNS_AddInArray   (" ",'НалПУ="', СуммНалога, '"', "О","N(15)");
                    MNS_AddInArray   ("",'>',"","","","");

                    MNS_SaveStringXML("    ",'<РасОБНедИО>', " ","","Н","");
                    MNS_SaveStringXML("     ",'<РасОб>', " ","","О","");
                    MNS_SaveStringXML("      ",'<ДанРас', " ","","О","");
                    MNS_AddInArray   (" ",'СтИмущ="', СложитьВСтроку("Р3С020",1,15,"-",i), '"', "О","N(15)");
                    MNS_AddInArray   (" ",'КодНалЛьг="', СложитьВСтроку("Р3С040",1,7,"-",i), '"', "Н","S(7)");
                    MNS_AddInArray   (" ",'СтИмущНеобл="', СложитьВСтроку("Р3С030",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   (" ",'ДолСт="', СложитьВСтроку("Р3С050",1,10,"-",i)+"/"+СложитьВСтроку("Р3С050",11,20,"-",i), '"', "Н","S(21)");
                    MNS_SaveStringXML("         ",'КодЛгПНС="', СложитьВСтроку("Р3С060",1,7,"-",i),'" ', "Н","S(7)");
                    MNS_AddInArray   (" ",'НалСтав="', Р3С0701[i]+if(СложитьВСтроку("Р3С070",2,3,"-",i)<>"","."+СложитьВСтроку("Р3С070",2,3,"-",i),""), '"', "О","N(3.2)");
                    MNS_AddInArray   (" ",'КоэфК="', СложитьВСтроку("Р3С080",1,2,"-",i)+if(СложитьВСтроку("Р3С080",3,4,"-",i)<>"","/"+СложитьВСтроку("Р3С080",3,4,"-",i),""), '"', "Н","S(5)");
                    MNS_AddInArray   ("",'/>',"","","","");
                    MNS_SaveStringXML("      ",'<ОтчПер', " ","","О","");
                    MNS_AddInArray   (" ",'СумАвИсчисл="', СложитьВСтроку("Р3С090",1,15,"-",i), '"', "О","N(15)");
                    MNS_AddInArray   (" ",'КодЛгУмен="', СложитьВСтроку("Р3С100",1,7,"-",i), '"', "Н","S(7)");
                    MNS_AddInArray   (" ",'СумЛгУмен="', СложитьВСтроку("Р3С110",1,15,"-",i), '"', "Н","N(15)");
                    MNS_AddInArray   ("",'/>',"","","","");

                    MNS_SaveStringXML("     ","</","РасОб>", "","","");
                    MNS_SaveStringXML("    ","</","РасОБНедИО>", "","","");
                    MNS_SaveStringXML("   ","</","СумНалПУ>", "","","");
                 end;
              end;
            end;
          end;
       end;
    end;
    ТекРазд1=КолРазд1;
    MNS_SaveStringXML("  ","</","Имущ>", "","","");

    Hint("");
    Return(RowsCount);
  end;

  proc MNS_Заголовок;
    var st : string;
    Hint(ЭкспортМНС.ОбщиеФункции.MNS_HintHead+"Запись заголовка (форма)");

    if Pos('"',MNS_ПолучитьНаимОрганизации)>0 or
       Pos('"',MNS_ПолучитьНаимОрг)>0 or 
       Pos('"',MNS_ПолучитьНаимДок)>0 then
       st="'";
    elsif Pos("'",MNS_ПолучитьНаимОрганизации)>0 or 
          Pos("'",MNS_ПолучитьНаимОрг)>0 or
          Pos("'",MNS_ПолучитьНаимДок)>0 then
       st='"';
    else
       st='"';
    end;

    MNS_SaveStringXML(" ",'<Документ'," ","","О","");
    MNS_AddInArray   (" ",'КНД="',    MNS_КНД,'"', "О","S(7)");
    MNS_AddInArray   (" ",'ДатаДок="', datetostring(ЭкспортМНС.Экспорт.ДатаФормирования),'"', "О","S(10)");
    MNS_AddInArray   (" ",'ОтчетГод="',ОтчГод, '"', "О","");
    MNS_AddInArray   (" ",'Период="',  (ОтчетныйПериод1+ОтчетныйПериод2), '"',  "О","S(2)");
    MNS_AddInArray   (" ",'КодНО="',   MNS_ПолучитьИМНС,'"', "О","S(4)");
    MNS_AddInArray   (" ",'НомКорр="', СложитьВСтроку("НомерКорректировки",1,3,"-",1), '"', "О","S(3)");
    MNS_AddInArray   (" ",'ПоМесту="', MNS_ПолучитьМестоУчета, '"', "О","S(3)");
    MNS_AddInArray   ("",'>',"","","","");
    MNS_SaveStringXML("  ",'<СвНП'," ","","О","");
    MNS_AddInArray   (" ",'ОКВЭД="', MNS_ПолучитьОКВЭД,'"',"О","S(8)");
    MNS_AddInArray   (" ",'Тлф="',   MNS_ПолучитьТелефон,'"', "Н","S(20)");
    MNS_AddInArray   ("",'>',"","","","");
    MNS_SaveStringXML("   ",'<НПЮЛ', " ","","О","");
    MNS_AddInArray   (" ",'НаимОрг=',st+MNS_ПолучитьНаимОрганизации+st,"","О","S(1000)");
    MNS_AddInArray   (" ",'ИННЮЛ="', MNS_ПолучитьИНН,'"',  "О","S(10)");
    MNS_AddInArray   (" ",'КПП="',   MNS_ПолучитьКПП,'"',  "О","S(9)");
    MNS_AddInArray   ("",'/>',"","","","");
    MNS_SaveStringXML("  ","</","СвНП>", "","","");

    MNS_SaveStringXML("  ",'<Подписант'," ","","О","");
    MNS_AddInArray   (" ",'ПрПодп="', ТипНалогоплат, '"',  "О","S(1)");
    MNS_AddInArray   ("",'>',"","","","");
    MNS_SaveStringXML("    ",'<ФИО', " ","","О","");
    MNS_AddInArray   (" ",'Фамилия="', MNS_ПолучитьФамилию, '"',"О","S(60)");
    MNS_AddInArray   (" ",'Имя="',     MNS_ПолучитьИмя,     '"',"О","S(60)");
    MNS_AddInArray   (" ",'Отчество="',MNS_ПолучитьОтчество,'"',"Н","S(60)");
    MNS_AddInArray   ("",'/>',"","","","");
    if ТипНалогоплат = "2" then
       MNS_SaveStringXML("    ",'<СвПред', " ","","О","");
       MNS_AddInArray   (" ",'НаимДок=', st+MNS_ПолучитьНаимДок+st, "","О","S(120)");
       MNS_AddInArray   (" ",'НаимОрг='+st, MNS_ПолучитьНаимОрг, st,"Н","S(1000)");
       MNS_AddInArray   ("",'/>',"","","","");
    end;
    MNS_SaveStringXML("  ","</","Подписант>", "","","");

    MNS_Показатели;

    Hint("");
  end;

  func MNS_Verify(aSender :Logical):Logical;
    var i, j, n, k, p:Integer;
    var ОКАТО1,ОКАТО2,ОКАТО3 : String;

    if MNS_ПолучитьИНН = "" then
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Орг_ИНН);
      MNS_ErrorField = "ИННО1";
      Return(True);

    |  MNS_ПолучитьКПП = "" then
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Орг_КПП);
      MNS_ErrorField = "КППО1";
      Return(True);

    |  СложитьВСтроку("НомерКорректировки",1,3,"-",1) = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_ВидДок);
      MNS_ErrorField = "НомерКорректировки1";
      Return(True);

    | НП = 0:
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_ОтчПериод);
      MNS_ErrorField = "ОтчетныйПериод1";
      Return(True);

    | ОГ4 = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Год);
      MNS_ErrorField = "ОГ3";
      Return(True);

    |  MNS_ПолучитьИМНС = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Нал_Код);
      MNS_ErrorField = "НалоговыйОрган1";
      Return(True);

    |  MNS_ПолучитьМестоУчета = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Мест_Предост);
      MNS_ErrorField = "МестоУчета1";
      Return(True);

    |  aSender and ОтправительФИО = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Отпр_ФИО);
      MNS_ErrorField = "ОтправительФИО";
      Return(True);

    |  MNS_ПолучитьНаимОрганизации = "":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Орг_Наим);
      MNS_ErrorField = "НаимОрганизации1";
      Return(True);

    |  MNS_ПолучитьОКВЭД = ".." or MNS_ПолучитьОКВЭД = ".":
      Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_ОКВЭД);
      MNS_ErrorField = "ОКВЭД1";
      Return(True);

    | MNS_ПолучитьФамилию = "":
       Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_РукПредст_ФИО);
       MNS_ErrorField = "ФИОНалогПлат1";
       Return(True);

    | not Печать_Раздел2 and not Печать_Раздел3:
       Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_ФлагРазделИмущ);
       MNS_ErrorField = "Печать_Раздел2";
       Return(True);
    end;

    СохранитьРаздел1(ТекРазд1);

    for p=1 to КолРазд1 do
       СчитатьРаздел1(p);
       for k=1 to 7 do
          if MNS_ПолучитьОКАТО(k)<>"" and MNS_ПолучитьКБК(k)="" then
            MNS_ErrorFrame = k;
            Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_КБК);
            MNS_ErrorField = "КБК1";
            Return(True);
          end;
        end;
    end;

    if ТипНалогоплат="2" then
        if MNS_ПолучитьНаимДок="":
          Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_Предст_Док);
          MNS_ErrorField = "ДокументПредст1";
          Return(True);
       end;
    end;

    if Печать_Раздел2 then
      for i=1 to КолРазд2 do
        if КодВидаИмущества[i] = "":
           Message(MNS_ShortName+":^M^M"+ЭкспортМНС.ОбщиеФункции.Error_КодВидаИмущ);
           MNS_ErrorField = "КодВидаИмущества[Текразд2]";
           Return(True);
        end;
      end;

      СохранитьРаздел1(ТекРазд1);

      --Проверка на соответствие ОКАТО разделов 2,1
      for i=1 to КолРазд2 do
        n=0;
        ОКАТО2 = MNS_ПолучитьОКАТО_Р2(i);
        for p=1 to КолРазд1 do
          СчитатьРаздел1(p);
          for j=1 to 7 do
            ОКАТО1 = MNS_ПолучитьОКАТО(j);
            if ОКАТО1<>"":
               if ОКАТО2 = ОКАТО1 then
                 n=n+1;
               end;
            end;
          end;
        end;
        ТекРазд2 = i;
        if n=0 then
          if ОКАТО2 = "" then
            Message(MNS_ShortName+":^M^M"+"Введите код по ОКАТО");
          else
            Message(MNS_ShortName+":^M^M"+"В Разделе 1 нет ОКАТО = "+ОКАТО2);
          end;
          MNS_ErrorField = "Р2ОКАТО1[ТекРазд2]";
          Return(True);
        end;
      end;
    end;

    --Проверка на соответствие ОКАТО разделов 1,3
    if Печать_Раздел3 then
       СохранитьРаздел1(ТекРазд1);
       for i=1 to КолРазд3 do
         n=0;
         ОКАТО3 = MNS_ПолучитьОКАТО_Р3(i);
         for p=1 to КолРазд1 do
           СчитатьРаздел1(p);
           for j=1 to 7 do
             ОКАТО1 = MNS_ПолучитьОКАТО(j);
             if ОКАТО1<>"":
                if ОКАТО3 = ОКАТО1 then
                  n=n+1;
                end;
             end;
           end;
         end;
         ТекРазд3 = i;
         if n=0 then
           if ОКАТО3 = "" then
             Message(MNS_ShortName+":^M^M"+"Введите код по ОКАТО");
           else
             Message(MNS_ShortName+":^M^M"+"В Разделе 1 нет ОКАТО = "+ОКАТО3);
           end;
           MNS_ErrorField = "Р3ОКАТО1[ТекРазд3]";
           Return(True);
         end;
       end;
    end;


    Return(False);
  end;


  func MNS_Export(aFirstPart :Logical;
                  aSave      :Logical;
                  aPath      :String;
                  aNumber    :String;
                  aDocCount  :Integer;
                  aDateForm  :Date):String;

    var vErrorCode, vINN  :String;
    var vIMNS,vKPP,vShema  :String;

    vErrorCode = if(Not Bar_Exist, ЭкспортМНС.ОбщиеФункции.Error_Нет_ФНС, "");
    vINN       = MNS_ПолучитьИНН;
    vIMNS      = MNS_ПолучитьИМНС;
    vKPP       = MNS_ПолучитьКПП;
    vShema     = MNS_Shema;
    -- Ощищаем времменые массивы
    MNS_ClearTemp(True);
    if vErrorCode="" then
      -- Общий заголовок файла
      ЭкспортМНС.ОбщиеФункции.MNS_ShortName = MNS_ShortName;
      ЭкспортМНС.ОбщиеФункции.MNS_BeginXML(aFirstPart,                -- Первая часть файла(?)
                                        aNumber,                      -- Номер файла
                                        MNS_ВерФОтч,                  -- Номер версии текущей формы
                                        MNS_Shema,                    -- Схема файла обмена
                                        "",                           -- Тип информации
                                        aDocCount,                    -- Количество документов в файле
                                        vINN,                         -- ИНН
                                        MNS_ПолучитьКПП,              -- КПП
                                        MNS_ПолучитьИМНС,             -- ИМНС
                                        ОтчГод,                       -- Отчетный год
                                        True,                         -- Юридическое лицо(?)
                                        MNS_ПолучитьНаимОрганизации,  -- Наименование ЮрЛица
                                        Up(Trim(ОтправительФИО)),     -- ФИО отправителя
                                        Up(Trim(ОтправительДолж)),    -- Должность
                                        Trim(ОтправительТФ),          -- Телефон
                                        aDateForm);                   -- Дата формирования

      -- Заголовок, относящийся к конкретной форме выгружаемого документа
      --   там же формируются показатели по данной форме
      MNS_Заголовок;
      -- Объединяем полученные массивы с общими для последующей обработки... либо сохранение, либо дополнение следующей формой
      --   сначала объединяем заголовок текущей формы с показателями
      CopyArray(MNS_Temp, MNS_File, 1, LengthOfArray(MNS_File)+1);
      --   и сбрасываем все это в общий массив
      CopyArray(ОТЧЕТЫ.НАЛОГИ.Н4.ИМУНАЛ_АВАНС.MNS_File, ЭкспортМНС.ОбщиеФункции.MNS_File, 1, LengthOfArray(ЭкспортМНС.ОбщиеФункции.MNS_File)+1);
      -- Обновляем переменную с индексом общего массива
      ЭкспортМНС.ОбщиеФункции.MNS_UpdateIndex;
      -- Ощищаем времменые массивы
      MNS_ClearTemp(True);

      if vErrorCode="" and aSave then    -- Если нужно, то сохраняем
        vErrorCode = ЭкспортМНС.ОбщиеФункции.MNS_SaveArrayToFileXML(aPath, true, "",vIMNS,vINN,vKPP,vShema,aNumber);
      end;
    end;
    Return(vErrorCode);
  end;
-----------------------------------------------------------
-- Процедуры и переменные для использования Экспорта МНС --
-----------------------------------------------------------
-----------------------------------------------------------------
-- Процедуры и переменные для использования бар-кодов и печати --
-----------------------------------------------------------------
 BarCode1           :Object;
 BarCode2           :Object;
 BarCode3           :Object;
 BarCode4           :Object;
 BarCode5           :Object;
 BarCode6           :Object;
 BarCode7           :Object;
 BarCode8           :Object;
 BarCode9           :Object;
 BarCode10          :Object;
 BarCode11          :Object;
 BarCode12          :Object;
----------------------------------------

  proc Напечатать(aFileMNS :String;
                  aPrinter :String);

    var I          :Integer;
    var vErrorCode :String;

    vErrorCode = "";

    РАБ.НАСТР_ПЕЧАТЬ.Cfg(PlanVar("ОБЩИЕ")+"\Настройки\", "Стандарт (210x297x5).cfg");
    If Not ExistFile(PlanVar("INI")+"\Стандарт (210x297x5).cfg") then vErrorCode = "Не найден файл настройки печати: '"+PlanVar("INI")+"\Стандарт (210x297x5).cfg'"; end;
    if Not Bar_Exist then BarCodeUse=False; end;

    if BarCodeUse and vErrorCode="" then
      vErrorCode = Раб.AztecBarCode.BarCode_CreateTemp;
      if vErrorCode="" then
        --                             Печатать?           Верт.  Стр. Повт.
        Раб.AztecBarCode.BarCode_AddList(True, True, 1, 1);
        Раб.AztecBarCode.BarCode_AddList(True, True, 1, КолРазд1);
        Раб.AztecBarCode.BarCode_AddList(True, True, 1, КолРазд2);
        Раб.AztecBarCode.BarCode_AddList(True, True, 1, КолРазд3);

        if aFileMNS="" then
          if Not MNS_Verify(True) then
            vErrorCode   = MNS_Export(True, True, Раб.AztecBarCode.BarCodePath, ЭкспортМНС.ОбщиеФункции.NumberAsDefaults, 1, ToDay);
            if vErrorCode="":
              aFileMNS   = ЭкспортМНС.ОбщиеФункции.MNS_FileName;
            end;
          else
            SetFocusOnError;
            Exit;
          end;
        end;
        if vErrorCode="" and aFileMNS<>"" then
           vErrorCode = Раб.AztecBarCode.BarCode_Build(MNS_BlankName, aFileMNS);
        end;
      end;
    end;

    if BarCodeUsePDF417 and vErrorCode="" then
       if aFileMNS="" then
         if Not MNS_Verify(True) then
           vErrorCode   = MNS_Export(True, True, PlanVar('Cache'), ЭкспортМНС.ОбщиеФункции.NumberAsDefaults, 1, ToDay);
           if vErrorCode="":
             aFileMNS   = ЭкспортМНС.ОбщиеФункции.MNS_FileName;
           end;
         else
           SetFocusOnError;
           Exit;
         end;
       end;
    end;

    if vErrorCode="" then
      if aPrinter="" then
        if Not ChoosePrinter(aPrinter, "Выбор принтера...")=cmOk then
          Exit;
        end;
      end;
      if aPrinter<>"" then
        if BarCodeUsePDF417:
           Раб.AztecBarCode.PDF417_Print(MNS_BlankName,ЭкспортМНС.ОбщиеФункции.NumberAsDefaults,vErrorCode,aFileMNS,aPrinter,ИНФО.ОИ.НалИнсп1);
        else
           Раб.AztecBarCode.BarCode_Print    (MNS_BlankName,aPrinter,"Стандарт (210x297x5).cfg",BarCodeUse,1,1,True,1,1);
           СохранитьРаздел1(ТекРазд1);
           for i=1..КолРазд1 do
              СчитатьРаздел1(i);
              Раб.AztecBarCode.BarCode_Print    (MNS_BlankName,aPrinter,"Стандарт (210x297x5).cfg",BarCodeUse,2,2,True,2,2);
           end;

           if Печать_Раздел2 then
             for i=1..КолРазд2 do
                 ТекРазд2 = i;
                 Раб.AztecBarCode.BarCode_Print    (MNS_BlankName,aPrinter,"Стандарт (210x297x5).cfg",BarCodeUse,3,3,True,3,3);
             end;
           end;
           if Печать_Раздел3 then
             for i=1..КолРазд3 do
                 ТекРазд3 = i;
                 Раб.AztecBarCode.BarCode_Print    (MNS_BlankName,aPrinter,"Стандарт (210x297x5).cfg",BarCodeUse,4,4,True,4,4);
             end;
           end;
        end;
      end;
    else
      Message(vErrorCode);
    end;
    Раб.AztecBarCode.BarCode_Destroy(MNS_BlankName);
  end;

  proc Печать_ПриНажатии(Sender :String);
    if BarCodeUsePDF417 then
       message("ВНИМАНИЕ!!! В документе, распечатанном со штрихкодом PDF417, даты подписей"+chr(13)+ 
               "                        необходимо вписывать от руки при нанесении подписи.");
    end;
    Напечатать("", "");
  end;

  proc Печать='Печать';
    Печать_ПриНажатии("");
  end;
-----------------------------------------------------------------
-- Процедуры и переменные для использования бар-кодов и печати --
-----------------------------------------------------------------
Конец