Имя: Пароль:
1C
1C 7.7
v7: Выгрузка реестра НН (Украина)
0 Kamili
 
17.11.11
17:44
В выгрузке реестра НН для теперь уже МЕДОКа не дает проставить в печатной форме более 09, т.е. за октябрь тянет не 10 ,а 9. И.так все последующие месяцы. Кто знает в чем фишка?
1 ALoHA
 
17.11.11
18:43
DBFOut = СоздатьОбъект("XBASE");
   НН=СоздатьОбъект("Документ.НалоговаяНакладная");
   //DBFIn.КодоваяСтраница(0);
   DBFOut.ДобавитьПоле("NPP","S",7,0);//Номер
   DBFOut.ДобавитьПоле("DATEV","D",8,0);//Дата получения
   DBFOut.ДобавитьПоле("NUM","S",50,0);//Номер накладной
   DBFOut.ДобавитьПоле("NAZP","S",200,0);//Название поставщика
   DBFOut.ДобавитьПоле("IPN","S",20,0);//ИНН поставщика
   DBFOut.ДобавитьПоле("ZAGSUM","N",16,2);//Общая сумма
   DBFOut.ДобавитьПоле("BAZOP20","N",16,2);//Стоимость без НДС гр.7
   DBFOut.ДобавитьПоле("SUMPDV","N",16,2);//
   DBFOut.ДобавитьПоле("BAZOP0","N",16,2);//Стоимость без НДС гр.7
   DBFOut.ДобавитьПоле("ZVILN","N",16,2);//
   DBFOut.ДобавитьПоле("EXPORT","N",16,2);//Стоимость без НДС гр.7
   DBFOut.ДобавитьПоле("PZOB","N",16,2);//
   DBFOut.ДобавитьПоле("NREZ","N",2,0);//
   DBFOut.ДобавитьПоле("KOR","N",2,0);//
   DBFOut.ДобавитьПоле("WMDTYPE","N",2,0);//
   DBFOut.ДобавитьПоле("WMDTYPESTR","S",4,0);//


   DBFOut.СоздатьФайл("C:\Temp\DBFOut");

   Пер=0;
   НН.ВыбратьДокументы(ДатаНач,Датакон);
   Пока НН.ПолучитьДокумент()=1 Цикл
       Если НН.ПометкаУдаления()=1 Тогда
           Продолжить;
       КонецЕсли;
       Если НН.Проведен()=0 Тогда
           Продолжить;
       КонецЕсли;
       Если МножФильтр.РазмерСписка()>0 Тогда
           Если МножФильтр.Принадлежит(НН.Клиент)=0 Тогда
           Продолжить;
           КонецЕсли;
       КонецЕсли;

       Пер=Пер+1;
       DBFOut.Добавить();
       
       DBFOut.NPP = Пер;
       DBFOut.DATEV = НН.ДатаДок;
       DBFOut.NUM = Число(Прав(НН.НомерДок,7));
       СтрКлиент=СтрЗаменить(НН.Клиент,"і","i");
       DBFOut.NAZP = Строка(СтрКлиент);
       DBFOut.IPN = НН.Клиент.ИНН;
       иСПДВ=0;
       иБПДВ=0;
       НН.ВыбратьСтроки();
       Пока НН.ПолучитьСтроку()=1 Цикл
           Если Строка(НН.ТМЦ.СтавкаНДС)="20%" Тогда
               Сообщить(1);
               иСПДВ=иСПДВ+НН.СуммаСНДС;
           Иначе
               иБПДВ=иБПДВ+НН.СуммаБезНДС;
               Сообщить(2);
           КонецЕсли;
       КонецЦикла;
       DBFOut.ZAGSUM = иСПДВ+иБПДВ;
       DBFOut.BAZOP20 = иСПДВ;
       DBFOut.SUMPDV = иСПДВ;
       DBFOut.BAZOP0 = "";
       DBFOut.ZVILN = иБПДВ;
       DBFOut.EXPORT = "";
       DBFOut.PZOB = "";
       DBFOut.NREZ = "";
       DBFOut.KOR = "";
       DBFOut.WMDTYPE = 1;
       DBFOut.WMDTYPESTR = "ПН";
       DBFOut.Записать();
   КонецЦикла;
   //DBFIn.Закрыть();
КонецПроцедуры
2 pumbaEO
 
17.11.11
19:00
xml наше все.
3 palpetrovich
 
17.11.11
19:02
"более 09" чего?
4 G-Re
 
17.11.11
22:49
(0) Не понятно, Медок импортирует обычный хмл-файл. Вроде не замечал ошибок. Завтра проверю.
5 Темный Эльф
 
17.11.11
22:55
В первых выпусках реестра НН и еще даже за второй квартал у АББИ апшипка - тип поля HZM (звітний період) имеет длину 1 и формат Ч01.0
Обновитесь или измените параметры поля HZM в таблице ФормаВвода. Не путайте с полем PERIOD_MONTH (звітний місяць)
6 Kamili
 
18.11.11
10:32
В том то и дело ,что с форматом на ФормеВВода все ОК: Формат(HZM, "Ч(0)2.0"). Я в момент отладки вижу, что :
HZM = ДатаМесяц(ДатаВКвартале);
В отладчике ДатаМесяц(ДатаВКвартале) = "10", а HZM после присвоения значение показывает "09".
И когда я просто заменила в модуле и в ФормеВВода  HZM на HZM1, то HZM1 принимало правильное значение, а вот на форме пошла ругань, что данная переменная не определена,т.е. где-то прописано ограничение,т.к. ошибка идет уже в момент присвоения. Еще хочу глянуть может в самой схеме... даже не знаю...
7 Kamili
 
18.11.11
10:32
т.е. HZM после присвоения значение показывает не "09", "9"
8 G-Re
 
18.11.11
16:34
(0) Проверил, полет нормальный.
Просто ты не обновился, эта ошибка(а она была) давно исправлена.
Программист всегда исправляет последнюю ошибку.