Форум программистов [Powered by Invision Power Board]

Цитата(SaschaL @ 13.11.2007, 15:21)

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

Цитата

?01.11.2007|1|5469|Наименование товара (1702)|ООО ТД "Хлебный дом" (1595)|10 (1)|13|-

Цитата(larabelle @ 13.11.2007, 09:29

)

Данные из таблицы парадокс выгрузили в текстовый файл.
и теперь надо их загнать в 1С (скорее всего в приходник).

Цитата(Zero @ 13.11.2007, 20:23)

Вообщето формат таблиц парадокс схож по структуре с 1с, нафиг текстовый файл нужен?
Читаем доку + юзаем поиск.
Подсказка: XBase (место раскопок smile

)

Сорри за немногословность... No times. smile

Цитата(SaschaL @ 14.11.2007, 13:48)

Для получения данный из тестовой строки попробуйте использовать метод
ИзСтрокуСРазделителями()
Просто занимался такой проблемой достаточно давно, попробую найти в ближайшее время внешнюю обработку которую я писал для себя и для примера скинуть обработку. Будет нагляднее...

Цитата(SaschaL @ 14.11.2007, 13:48)

Цитата(Naghual @ 22.11.2007, 22:02)

Уважаемая larabelle, так в чем собственно у вас загвоздка?

Цитата(Naghual @ 24.11.2007, 13:00)

Если все-же не получится, либо решите вернутся к текстовому файлу - милости прошу.

Цитата(larabelle @ 23.11.2007, 03:07

)

нана программо создать документ реализация и табличную часть заполнить

Код


//Установка реквизитов в шапке документа
    //НачатьТранзакцию();
    ДР.Новый(); 
    ДР.УстановитьНовыйНомер("РП"); 
    ДР.ДатаДок     = ТекущийДокумент().ДатаДок;
    ДР.Автор       = ТекущийДокумент().Автор;
    ДР.Проект      = ТекущийДокумент().Проект;
    Фир.НайтиПоНаименованию("РязаньПластик(Основной учет)",0,1);
    ДР.Фирма       = Фир.ТекущийЭлемент();
    ДР.ЮрЛицо      = Фир.ЮрЛицо.ПолнНаименование;
    ДР.Комментарий = ТекущийДокумент().Комментарий;
    ДР.КодОперации = Текущийдокумент().КодОперации;
    ДР.ДокОснование= Текущийдокумент();     
    Скл.НайтиПоНаименованию("Основной склад(РязаньПластик)",0,1);
    ДР.Склад       = Скл.ТекущийЭлемент();
    Кон.НайтиПоНаименованию("Панов В.Л. ИП",0,1);
    ДР.Контрагент  = Кон.ТекущийЭлемент();
    ДР.Договор     = Кон.ОсновнойДоговор;
    ДР.Валюта      = Кон.ОсновнойДоговор.ВалютаВзаиморасчетов;  
    ДР.Курс           = Текущийдокумент().Курс;
    ДР.Кратность   = Текущийдокумент().Кратность;
    ДР.УчитыватьНДС= 1;
    ДР.СуммаВклНДС = 1;
    ДР.УчитыватьНП = 0;
    ДР.СуммаВклНП  = 0;
    ДР.ТипЦен      = Текущийдокумент().ТипЦен;
    ДР.ДатаОплаты  = Текущийдокумент().ДатаОплаты;
    ДР.ФлагСвертки = Текущийдокумент().ФлагСвертки;       
    
    //Показывает номер документа с помощью которого он создан автоматически (если отсутствует то создан в ручную)
    ДР.КодДокументаСоздателя = Текущийдокумент().НомерДок;
    
    //Изменить цены табличной части документа  
    СумаВзаиморасчётов = 0;
    ТЧД.ВыбратьСтроки();    
    Пока ТЧД.ПолучитьСтроку() = 1 Цикл
        
        //Определить цену текущего элемента таблицы
        Ном.НайтиЭлемент(ТЧД.Номенклатура);
        Ц.ИспользоватьВладельца(Ном.ТекущийЭлемент());
        Ц.ВыбратьЭлементы();
        ЦенаН = 0;
        Пока Ц.ПолучитьЭлемент()=1 Цикл
            Если Ц.ТипЦен.Наименование = "Закупочные" Тогда
                ЦенаН = Ц.Цена.Получить(РабочаяДата());
                Прервать;
            КонецЕсли;
        КонецЦикла;      
        
        // Определим ставку НДС
        Если ТЧД.Номенклатура.СтавкаНДС = Перечисление.СтавкиНДС.НДС18 Тогда
            ЗначениеНДС = 1.18;
        ИначеЕсли ТЧД.Номенклатура.СтавкаНДС = Перечисление.СтавкиНДС.НДС10 Тогда
            ЗначениеНДС = 1.1;
        Иначе
            ЗначениеНДС = 0;
        КонецЕсли;
        
        ТЧД.Цена           = ЦенаН*ЗначениеНДС*1.03;         //НДС + наценка 3%
        ТЧД.Сумма          = ТЧД.Цена*ТЧД.Количество; 
        
        Если ЗначениеНДС = 1.18 Тогда
            ТЧД.СуммаНДС = ТЧД.Сумма*0.152542372;
        ИначеЕсли ЗначениеНДС = 1.1 Тогда
            ТЧД.СуммаНДС = ТЧД.Сумма*0.0909090909;
        Иначе
            ТЧД.СуммаНДС = 0;
        КонецЕсли;
        СумаВзаиморасчётов = СумаВзаиморасчётов + ТЧД.Сумма;
    КонецЦикла;
    
    //Установка данных табличной части документа
    ДР.ЗагрузитьТабличнуюЧасть(ТЧД);
    ДР.СуммаВзаиморасчетов = СумаВзаиморасчётов;
    ДР.Записать(); 
    ДР.Провести();
...

Цитата(larabelle @ 23.11.2007, 03:07

)

Ну и чтобы алгоритмы работали ессно - ндс, попадание в отчеты и пр.

Цитата(larabelle @ 23.11.2007, 03:07

)

заполнить из таблицы .dbf или excel

Цитата(Zero @ 25.11.2007, 20:36)

Как вытаскивать данные из dbf можете почитать документации 1с