Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Потрібна нова податкова накладна в XML для медка          
bezzil Подменю пользователя
сообщение 15.11.18, 13:00
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 15
Спасибо сказали: 0 раз
Рейтинг: 0

Як ви знаєте було затверджено новий вид Податкової накладної, скажіть можливо бачили десь XML файл наклданої, потрібен для організації обміну між 1с 7.7 так Медком

Приклад обробки
//*******************************************
// Процедура генерации запроса НалоговыеНакладные.
Процедура НалоговыеНакладные()
    Перем Запрос, ТекстЗапроса,Кодировка;
    Кодировка=1;
    нпп = 0;  
    ДатаРаб = Формат(РабочаяДата(),"ДДДММГГГГ");
         дбф1=СоздатьОбъект("Текст");
         дбф1.ДобавитьСтроку("<?xml version=""1.0"" encoding=""windows-1251""?>");
         дбф1.ДобавитьСтроку("<ZVIT>");
         дбф1.ДобавитьСтроку(" <TRANSPORT>");
         дбф1.ДобавитьСтроку("  <CREATEDATE>"+ДатаРаб+"</CREATEDATE>");
         дбф1.ДобавитьСтроку("  <VERSION>4.0</VERSION>");
         дбф1.ДобавитьСтроку(" </TRANSPORT>");
         дбф1.ДобавитьСтроку(" <ORG>");
            нпп = 0;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(НалоговыеНакладные)
    |Период с ДатаНачала по ДатаКонца;
    |ОбрабатыватьДокументы Проведенные;
    |Обрабатывать НеПомеченныеНаУдаление;
    |Докум = Документ.НалоговаяНакладная.ТекущийДокумент;
    |Клиент = Документ.НалоговаяНакладная.Клиент;
    |Сумма = Документ.НалоговаяНакладная.Сумма;  
    |СуммаБезНДС = Документ.НалоговаяНакладная.СуммаБезНДС;  
    |НДС = Документ.НалоговаяНакладная.НДС;  
    |Функция СуммаД=Сумма(Сумма);
    |Функция СуммаБезНДСД=Сумма(СуммаБезНДС);
    |Функция НДСД=Сумма(НДС);
    |Группировка Докум;
    |"//}}ЗАПРОС
;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;  
//    Клиент = Запрос.Клиент;
            НомПП=0;
            Пока Запрос.Группировка("Докум") = 1 Цикл  
            Док=Запрос.Докум;  
            Клиент =Запрос.Клиент;
            Клиент.ИспользоватьДату(Док.ДатаДок);
                //Если (ПустоеЗначение(Клиент.ИНН) = 1) или (ПустоеЗначение(Запрос.Клиент.КодОКПО) = 1) или (ПустоеЗначение(Клиент.НомерСвидетельства) = 1) Тогда
                //    Продолжить;
                //КонецЕсли;
                ссаа =0;
            Если Запрос.НДСД >= 1 Тогда
                       ссаа = 1;
                       Иначе
                СписТов = СоздатьОбъект("ТаблицаЗначений");
                Док.ВыгрузитьТабличнуюЧасть(СписТов,"Товар");
                СписТов.ВыбратьСтроки();
              Пока СписТов.ПолучитьСтроку() = 1 Цикл
                   Если (СписТов.Товар.ТипАкцизногоТовара = Перечисление.ТипыАкцизныхТоваров.Алкоголь) или (СписТов.Товар.ТипАкцизногоТовара = Перечисление.ТипыАкцизныхТоваров.Табак) или (СписТов.Товар.ТипАкцизногоТовара = Перечисление.ТипыАкцизныхТоваров.Пиво) Тогда  
                       ссаа = 1;
                     Прервать;    
                   КонецЕсли;
              КонецЦикла;
              КонецЕсли;  
              Если ссаа = 0 Тогда
                  Продолжить;
              КонецЕсли;    
            ДатаД = Формат(Док.ДатаДок,"ДДДММГГГГ");
            ДатаН = Формат(Клиент.ДатаНачала,"ДДДММГГГГ");
            Телефон = Лев(Док.Фирма.Телефоны,(Найти(Док.Фирма.Телефоны,",")-1));
             Если (Найти(Запрос.Клиент.Телефон,",")) = 0 Тогда    
                   ТелефонК = Запрос.Клиент.Телефон;
             Иначе
                   ТелефонК = Лев(Запрос.Клиент.Телефон,(Найти(Запрос.Клиент.Телефон,",")-1));
            КонецЕсли;
            Если ПустоеЗначение(Клиент.НомерДоговора) = 0 Тогда
                      Договор = Клиент.НомерДоговора;
                      ДтДог = ДатаН;
                  Иначе
                      Договор = "     -";
                      ДтДог = Формат(Док.ДатаДок,"ДДДММГГГГ");
                 КонецЕсли;     
            Фирма = Док.Фирма;
        Фирма.ИспользоватьДату(Док.ДатаДок);
         дбф1.ДобавитьСтроку("  <FIELDS>");
         дбф1.ДобавитьСтроку("   <EDRPOU>"+Сокрлп(Фирма.КодОКПО)+"</EDRPOU>");
         дбф1.ДобавитьСтроку("  </FIELDS>");
        дбф1.ДобавитьСтроку(" <CARD>");
        дбф1.ДобавитьСтроку("  <FIELDS>");
        дбф1.ДобавитьСтроку("   <PERTYPE>0</PERTYPE>");
        дбф1.ДобавитьСтроку("   <PERDATE>"+ДатаД+"</PERDATE>");
         Если (Док.ДатаДок >=  '01.01.2015') Тогда
               дбф1.ДобавитьСтроку("   <CHARCODE>J1201009</CHARCODE>");
           Иначе
               дбф1.ДобавитьСтроку("   <CHARCODE>J1201006</CHARCODE>");
               
           КонецЕсли;                
                         
           
        дбф1.ДобавитьСтроку("   <DOCID>"+(Строка(Число(Прав(Док.НомерДок,6))))+"</DOCID>");
        дбф1.ДобавитьСтроку("  </FIELDS>");
        дбф1.ДобавитьСтроку("   <DOCUMENT>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""EDR_POK""><VALUE>"+Сокрлп(Запрос.Клиент.КодОКПО)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""FIRM_ADR""><VALUE>"+Сокрлп(Фирма.Юр_Адрес)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""FIRM_EDRPOU""><VALUE>"+Сокрлп(Фирма.КодОКПО)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""FIRM_INN""><VALUE>"+Сокрлп(Фирма.ИНН)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""FIRM_NAME""><VALUE>"+Сокрлп(Фирма.Полное_Назв)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
//        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""FIRM_SRPNDS""><VALUE>"+Сокрлп(Фирма.НомерСвидетельства)+"</VALUE>");
//        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""PHON""><VALUE>"+Сокрлп(Телефон)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N1""><VALUE>X</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N12""><VALUE>X</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N19""><VALUE>0</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N10""><VALUE>"+Сокрлп(Фирма.Гл_бух)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""INN""><VALUE>2883412021</VALUE>");        
        дбф1.ДобавитьСтроку("   </ROW>");  
        
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N11""><VALUE>"+ДатаД+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N2_1""><VALUE>"+(Строка(Число(Прав(Док.НомерДок,6))))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N2_11""><VALUE>"+(Строка(Число(Прав(Док.НомерДок,6))))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N3""><VALUE>"+Сокрлп(Запрос.Клиент.ПолнНаименование)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N4""><VALUE>"+Сокрлп(Клиент.ИНН)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        
        Если (ПустоеЗначение(Клиент.ИНН)=0) Тогда
            //данные покупателя заполняем если ИНН не пустой, значит платнык
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N5""><VALUE>"+Сокрлп(Запрос.Клиент.Адрес)+"</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N6""><VALUE>"+Сокрлп(ТелефонК)+"</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N12""><VALUE>1</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
        Иначе  
            Клиент.ИНН = "100000000000";
            Клиент.ПолнНаименование = "Неплатник";
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N13""><VALUE>1</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N14""><VALUE>02</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N4""><VALUE>"+Сокрлп(Клиент.ИНН)+"</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N3""><VALUE>"+Сокрлп(Клиент.ПолнНаименование)+"</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N12""><VALUE>1</VALUE>");
            дбф1.ДобавитьСтроку("   </ROW>");
            Сообщить("ПУСТО  " + "ИНН" + Клиент.ИНН + "Наименование" + Клиент.ПолнНаименование);
        КонецЕсли;
//        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N7""><VALUE>"+Сокрлп(Клиент.НомерСвидетельства)+"</VALUE>");
//        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N8""><VALUE>"+Сокрлп(Док.УсловиеПродажи)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N81""><VALUE>"+Сокрлп(Договор)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N82""><VALUE>"+ДтДог+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""N9""><VALUE>"+Сокрлп(Док.ФормаРасчета)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        нпп = 0;
                    Док.ВыбратьСтроки();
        Пока Док.ПолучитьСтроку()=1 Цикл  
                ДатаО = Формат(Док.ДатаОтгрузки,"ДДДММГГГГ");
                Если Число(Док.ДатаОтгрузки)=0 Тогда
                    ДатаО=Формат(Док.ДатаДок,"ДДДММГГГГ");
                КонецЕсли;
                Бренд = Док.Товар.Бренд.УТКЗЕД;
        Для нн = 1 По СтрДлина(Бренд) Цикл
          БрендН = СтрЗаменить(Бренд," ","");
        КонецЦикла;  
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A8""><VALUE>20</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A12""><VALUE>"+ДатаО+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A13""><VALUE>"+Сокрлп(Док.Товар.Наименование)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A131""><VALUE>"+Сокрлп(БрендН)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A10""><VALUE>"+Сокрлп(Окр(Док.СуммаБезНДС, 2))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
                 //Саша
         Ед=Док.Товар.БазоваяЕдиница;
         Если ((Ед=Перечисление.ЕдиницыИзмерения.Блок) или (Ед=Перечисление.ЕдиницыИзмерения.Блок6) или (Ед=Перечисление.ЕдиницыИзмерения.Блок8)или (Ед=Перечисление.ЕдиницыИзмерения.Блок15) или (Ед=Перечисление.ЕдиницыИзмерения.Блок25)или (Ед=Перечисление.ЕдиницыИзмерения.БЛ5) или (Ед=Перечисление.ЕдиницыИзмерения.Б12))  Тогда
             ЕдНал = Перечисление.ЕдиницыИзмерения.Пачка;
         Иначе
             ЕдНал = Док.Товар.БазоваяЕдиница;
         КонецЕсли;
         Если Ед=Перечисление.ЕдиницыИзмерения.Бутылка Тогда
             КодЕдИзм = 2061;
         ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.Штука Тогда
             КодЕдИзм = 2009;
         ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.Банка Тогда
             КодЕдИзм = 2051;
         ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.Пачка Тогда
             КодЕдИзм = 2112;
         ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.Упаковка Тогда
             КодЕдИзм = 2010;
         ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.Ящик Тогда
             КодЕдИзм = 2075;
        ИначеЕсли Ед=Перечисление.ЕдиницыИзмерения.блоки Тогда
            КодЕдИзм = 2907;
        ИначеЕсли ((Ед=Перечисление.ЕдиницыИзмерения.Блок) или (Ед=Перечисление.ЕдиницыИзмерения.Блок6) или (Ед=Перечисление.ЕдиницыИзмерения.Блок8)или (Ед=Перечисление.ЕдиницыИзмерения.Блок15) или (Ед=Перечисление.ЕдиницыИзмерения.Блок25)или (Ед=Перечисление.ЕдиницыИзмерения.БЛ5) или (Ед=Перечисление.ЕдиницыИзмерения.Б12))  Тогда
            КодЕдИзм = 2112;
        Иначе
             Сообщить("Нет единиц измерения для Налоговой");
            Продолжить;
        КонецЕсли;
         //Сашаконец
        
         //дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A14""><VALUE>"+Сокрлп(Док.Товар.БазоваяЕдиница)+"</VALUE>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A14""><VALUE>"+Сокрлп(ЕдНал)+"</VALUE>");
             //Сообщить(ЕдНал);
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A141""><VALUE>"+(КодЕдИзм)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A15""><VALUE>"+(Док.Количество*Док.Коэффициент)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
    
            //Если (Док.Товар.ТипАкцизногоТовара = Перечисление.ТипыАкцизныхТоваров.Алкоголь) или (Док.Товар.ТипАкцизногоТовара = Перечисление.ТипыАкцизныхТоваров.Табак) Тогда
            //        Индикатив = Док.Товар.Индикатив;
            //        Индикатив.ИспользоватьДату(Док.ДатаДок);
            //        Если ( Индикатив.ЦенаРозница <> 0) Тогда
            //            Сообщить("В строке отускная цена товара меньше индикатива. Вы не можете распечатать чек !!!");
            //            //НеПроводить(Контекст,"Вы не можете распечатать чек !!!");
            //            //Возврат;
            //        КонецЕсли;  
            //    Акциз1=Окр(Док.Цена/105*100*5/100,2,1);
            //    ЦенаБезАкцизБезНДС=Док.Цена-Акциз1;
            //    СумаБезНДСБезАкциз = (Док.Количество*Док.Коэффициент) * ЦенаБезАкцизБезНДС;
            //    
            //    дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A16""><VALUE>"+(Док.Цена)+"</VALUE>");
            //    //дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A16""><VALUE>"+(ЦенаБезАкцизБезНДС)+"</VALUE>");
            //    дбф1.ДобавитьСтроку("   </ROW>");
            //    //дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A17""><VALUE>"+(Док.СуммаБезНДС)+"</VALUE>");
            //    дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A17""><VALUE>"+(СумаБезНДСБезАкциз)+"</VALUE>");
            //    дбф1.ДобавитьСтроку("   </ROW>");
            //Иначе
                дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A16""><VALUE>"+(Док.Цена)+"</VALUE>");
                дбф1.ДобавитьСтроку("   </ROW>");
                дбф1.ДобавитьСтроку("   <ROW TAB=""1"" LINE="""+НПП+""" NAME=""TAB1_A17""><VALUE>"+(Док.СуммаБезНДС)+"</VALUE>");
                дбф1.ДобавитьСтроку("   </ROW>");
            //КонецЕсли;
           нпп = нпп +1;
        КонецЦикла;
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A5_7""><VALUE>"+(Запрос.СуммаБезНДСД)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        //дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A5_8""><VALUE>0</VALUE>");
        //дбф1.ДобавитьСтроку("   </ROW>");
        //дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A5_9""><VALUE>0</VALUE>");
        //дбф1.ДобавитьСтроку("   </ROW>");
        //дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A5_10""><VALUE>0</VALUE>");
        //дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A5_11""><VALUE>"+(Запрос.СуммаБезНДСД)+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A6_7""><VALUE>"+(Окр(Запрос.НДСД, 2))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A6_11""><VALUE>"+(Окр(Запрос.НДСД, 2))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A7_7""><VALUE>"+(Окр(Запрос.СуммаД, 2))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A7_8""><VALUE>0</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A7_9""><VALUE>0</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A7_10""><VALUE>0</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   <ROW TAB=""0"" LINE=""0"" NAME=""A7_11""><VALUE>"+(Окр(Запрос.СуммаД, 2))+"</VALUE>");
        дбф1.ДобавитьСтроку("   </ROW>");
        дбф1.ДобавитьСтроку("   </DOCUMENT>");
        дбф1.ДобавитьСтроку(" </CARD>");
    КонецЦикла;              
        //дбф1.ДобавитьСтроку("   <INN>2883412021</INN>");
        
        дбф1.ДобавитьСтроку(" </ORG>");
        дбф1.ДобавитьСтроку("</ZVIT>");
         дбф1.Записать(КаталогИБ()+"\best\pdvn.xml");  
      Сообщить("Выгрузка завершена ");
КонецПроцедуры  

     Берд = 0;
     Получ = 1;
     Видав = 1;
     Кратко = 0;
     Бест = 0;
     OPZ = 0;


Сообщение отредактировал Vofka - 15.11.18, 15:21

didfrost12 Подменю пользователя
сообщение 16.11.18, 15:15
Сообщение #2

Молчаливый
*
Группа: Пользователи
Сообщений: 4
Спасибо сказали: 2 раз
Рейтинг: 0

bezzil @ Вчера, 13:00 * ,
Я зазвичай тут шукаю.

[необходимо зарегистрироваться для просмотра ссылки]

Спасибо сказали: bezzil, Gorus,

mister-x Подменю пользователя
сообщение 20.11.18, 14:53
Сообщение #3

...
Иконка группы
Модератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 3477
Из: Тернопіль
Спасибо сказали: 1417 раз
Рейтинг: 0

bezzil, а в Медку вже є нова форма податкової?

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 29.03.24, 2:58
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!