Отчеты в статистику S0701107 S0700407

[mess@nger]

Впервые вижу такие ответы, может кто подскажет:
S0701107:
Кв№1
Квитанція №1
Підприємство: 03449947
Звiт одержано Центром обробки електронних звітів Держстату України 10.01.2012 у 15:32:06
Звіту призначено реєстраційний номер: (82B5F689-6D16-46E1-8837-D067E9DC24B4.XML)
ДОКУМЕНТ НЕ ПРИЙНЯТО.
При необхідності виправте документ та відправте його знову.
Виявлені помилки:
Помилка XML - не знайдено об'явлення "DECLARHEAD".


S0700407
Кв №2
Квитанція №2
Підприємство: 03449947 ПрАТ "Житомирське шляхово-будівельне управління № 19"
Звіт: 1-ціни (буд). Звіт про ціни придбання матеріальних ресурсів у будівництві
За період: 2011 р.,Грудень
Звiт доставлено до Центру обробки електронних звітів Держстату України 10.01.2012 у 15:32:07
Підрозділ-одержувач: 18101
Реєстраційний номер звіту: 9000745645 (181010003449947S070040710000040122011.XML)
ДОКУМЕНТ НЕ ПРИЙНЯТО.
При необхідності виправте документ та відправте його знову.
Виявлені помилки:
Помилка - помилка виконання скрипта:
{procedure WriteVal( VAR_NAME: string; V01: Variant; Resourse: string; V02: Variant; V03: string);
var
pVal1: double;
pVal2: double;
begin
pVal1 := VarToDouble( V01 );
pVal2 := VarToDouble( V02 );
ZExp.KOD := VAR_NAME;
ZExp.NOMER := pVal1;
ZExp.NAZVA := Resourse;
ZExp.G1 := pVal2;
ZExp.PRIM := V03;
if (ZExp.G1 <> 0) or (ZExp.NOMER <> 0) then
Write_To_File();
End;}
procedure WriteVal( VAR_NAME: string; V01: Variant; Resourse: string; V02: Variant);
var
pVal1: double;
pVal2: double;
begin
pVal1 := VarToDouble( V01 );
pVal2 := VarToDouble( V02 );
ZExp.KOD := VAR_NAME;
ZExp.NOMER := pVal1;
ZExp.NAZVA := Resourse;
ZExp.G1 := pVal2;
//ZExp.PRIM := V03;
if (ZExp.G1 <> 0) or (ZExp.NOMER <> 0) then
Write_To_File();
End;
begin
ZExp.PRED := ZExp.FIRM_EDRPOU;
ZExp.KOATUU := StrToFloat(ZExp.FIRM_SPATO);
ACCEPT_FORM := false;

ZExp.MIS := MonthOf(ZExp.REP_PERDAT);
ZExp.RIK := YearOf(ZExp.REP_PERDAT);

if EXP_TAB_NUMPP = 0 then
begin
WriteVal('1.01.01', 0, 'Фундаменти', ZExp.A1_3);
WriteVal('1.01.01', ZExp.A2_N, ZExp.A2_1, ZExp.A2_3);
WriteVal('1.01.01', ZExp.A3_N, ZExp.A3_1, ZExp.A3_3);
WriteVal('1.01.01', ZExp.A4_N, ZExp.A4_1, ZExp.A4_3);
WriteVal('1.01.01', ZExp.A5_N, ZExp.A5_1, ZExp.A5_3);
WriteVal('1.01.01', ZExp.A6_N, ZExp.A6_1, ZExp.A6_3);
WriteVal('1.01.02', 0, 'Колонки, стійки, опори, рами', ZExp.A7_3);
WriteVal('1.01.02', ZExp.A8_N, ZExp.A8_1, ZExp.A8_3);
WriteVal('1.01.02', ZExp.A9_N, ZExp.A9_1, ZExp.A9_3);
WriteVal('1.01.02', ZExp.A10_N, ZExp.A10_1, ZExp.A10_3);
WriteVal('1.01.02', ZExp.A11_N, ZExp.A11_1, ZExp.A11_3);
WriteVal('1.01.02', ZExp.A12_N, ZExp.A12_1, ZExp.A12_3);
WriteVal('1.01.03', 0, 'Панелі зовнішніх стін для житлового будівництва', ZExp.A13_3);
WriteVal('1.01.03', ZExp.A14_N, ZExp.A14_1, ZExp.A14_3);
WriteVal('1.01.03', ZExp.A15_N, ZExp.A15_1, ZExp.A15_3);
WriteVal('1.01.03', ZExp.A16_N, ZExp.A16_1, ZExp.A16_3);
WriteVal('1.01.03', ZExp.A17_N, ZExp.A17_1, ZExp.A17_3);
WriteVal('1.01.03', ZExp.A18_N, ZExp.A18_1, ZExp.A18_3);
WriteVal('1.01.04', 0, 'Панелі внутрішніх стін, перегородки', ZExp.A19_3);
WriteVal('1.01.04', ZExp.A20_N, ZExp.A20_1, ZExp.A20_3);
WriteVal('1.01.04', ZExp.A21_N, ZExp.A21_1, ZExp.A21_3);
WriteVal('1.01.04', ZExp.A22_N, ZExp.A22_1, ZExp.A22_3);
WriteVal('1.01.04', ZExp.A23_N, ZExp.A23_1, ZExp.A23_3);
WriteVal('1.01.04', ZExp.A24_N, ZExp.A24_1, ZExp.A24_3);
WriteVal('1.01.05', 0, 'Плити покриття, перекриття ребристі та плоскі', ZExp.A25_3);
WriteVal('1.01.05', ZExp.A26_N, ZExp.A26_1, ZExp.A26_3);
WriteVal('1.01.05', ZExp.A27_N, ZExp.A27_1, ZExp.A27_3);
WriteVal('1.01.05', ZExp.A28_N, ZExp.A28_1, ZExp.A28_3);
WriteVal('1.01.05', ZExp.A29_N, ZExp.A29_1, ZExp.A29_3);
WriteVal('1.01.05', ZExp.A30_N, ZExp.A30_1, ZExp.A30_3);
WriteVal('1.01.06', 0, 'Плити покриття багатопорожнисті', ZExp.A31_3);
WriteVal('1.01.06', ZExp.A32_N, ZExp.A32_1, ZExp.A32_3);
WriteVal('1.01.06', ZExp.A33_N, ZExp.A33_1, ZExp.A33_3);
WriteVal('1.01.06', ZExp.A34_N, ZExp.A34_1, ZExp.A34_3);
WriteVal('1.01.06', ZExp.A35_N, ZExp.A35_1, ZExp.A35_3);
WriteVal('1.01.06', ZExp.A36_N, ZExp.A36_1, ZExp.A36_3);
WriteVal('1.01.07', 0, 'Шпали для залізниць', ZExp.A37_3);
WriteVal('1.01.07', ZExp.A38_N, ZExp.A38_1, ZExp.A38_3);
WriteVal('1.01.07', ZExp.A39_N, ZExp.A39_1, ZExp.A39_3);
WriteVal('1.01.07', ZExp.A40_N, ZExp.A40_1, ZExp.A40_3);
WriteVal('1.01.07', ZExp.A41_N, ZExp.A41_1, ZExp.A41_3);
WriteVal('1.01.07', ZExp.A42_N, ZExp.A42_1, ZExp.A42_3);
WriteVal('1.01.08', 0, 'Вироби спеціального призначення для лотків, тунелів, облицювань камер', ZExp.A43_3);
WriteVal('1.01.08', ZExp.A44_N, ZExp.A44_1, ZExp.A44_3);
WriteVal('1.01.08', ZExp.A45_N, ZExp.A45_1, ZExp.A45_3);
W
Відправник: Центр обробки електронних звітів Держстату України

[Родин Евгений]

Отправляли "На иншу адресу"? Скиньте мне РК, если это НЕ так.