Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Обработка для экспорта накладных в формат ММО
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Вся 1С
barabambler
Поделитесь, пожалуйста, обработкой для экспорта накладных в формат ММО (самодельный формат аптечных сетей Украины).
Или хотя бы листингом, как создать файл, разделы и заполнить строки.

Спасибо!
denis84
barabambler @ Сегодня, 9:07 необходимо зарегистрироваться для просмотра ссылки ,
Есть у меня такая обработка, работоспособность нет на чем проверить. Вот кусок кода записи самого файла:

    
    ИмяФайла = "C:\MMO\"+СсылкаНаОбъект.Номер+".mmo";
    Раз = Симв(9); //разделитель  
                
    Текст = СоздатьОбъект("Текст");
    Текст.ДобавитьСтроку("РАСХОДНАЯ_НАКЛАДНАЯ"+Раз+СокрЛП(Фирма.ЕГРПОУ)+Раз+СокрЛП(Контрагент.ЕГРПОУ)+Раз+"версия_3");
    Текст.ДобавитьСтроку(НомерНакл+Раз+СокрЛП(ДатаДок)+Раз+НомерНакл+Раз+СокрЛП(Фирма.ПолнНаименование)+Раз +СокрЛП(Фирма.СчетПоУмолчанию.БанкНазвание)
+Раз+СокрЛП(Фирма.СчетПоУмолчанию.БанкСчет)+Раз+СокрЛП(Фирма.СчетПоУмолчанию.БанкМФО)+Раз+СокрЛП(Фирма.Телефоны)+Раз+СокрЛП(Фирма.ПочтовыйАдрес)+Раз+""+Раз+""+Раз+Итог("СуммаБезНДС")+Раз+Итог("СуммаСНДС")+Раз+""+Раз+"1"+Раз+"1"+Раз+"2");
    Текст.ДобавитьСтроку("");
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл    
            Гр = Товар.НоменклатурнаяГруппа;
        Текст.ДобавитьСтроку(СокрЛП(Товар.Код)+Раз+СокрЛП(Товар.ПолнНаименование)+Раз+СокрЛП(Гр.Код)+Раз+СокрЛП(Гр.Наименование)+
            Раз+""+Раз+""+Раз+""+Раз+""+Раз+"20"+Раз+""+Раз+"*"+Раз+""+Раз+""+Раз+""+Раз+
            СокрЛП(Единица)+Раз+СокрЛП(Количество)+Раз+""+Раз+""+Раз+""+Раз+СокрЛП(ЦенаСНДС)+Раз+СокрЛП(СуммаСНДС));
    КонецЦикла;      
    
    Текст.Записать(ИмяФайла);  
    Сообщить("Накладная записана!!!");
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.