Модераторы: stron

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> из paradox в 1С, туда-сюда-обратно :) 
:(
    Опции темы
larabelle
Дата 13.11.2007, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
А здравствуйте всем, и да неомрачит 13-е число вашего настроения.

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

Кому нить приходилось иметь дело с таким?
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
SaschaL
Дата 13.11.2007, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9
А запись в текстовом файле структурирована, дело в том что 1С нормально читает текстовые файлы, просто если выгрузка прошла без стуктуризации то буден некоторые проблемы по идентификации данных и следоваетльно загрузке их в 1С?
PM MAIL ICQ   Вверх
larabelle
Дата 13.11.2007, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(SaschaL @ 13.11.2007,  15:21)
А запись в текстовом файле структурирована, дело в том что 1С нормально читает текстовые файлы, просто если выгрузка прошла без стуктуризации то буден некоторые проблемы по идентификации данных и следоваетльно загрузке их в 1С?

Да, конечно, каждая запись идет по след структуре:
Цитата

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


но насколько придется подгонять эту структуру под 1с или наоборот пытаться изменить структуру выгрузки?
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Zero
Дата 13.11.2007, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24
Цитата(larabelle @  13.11.2007,  09:29 Найти цитируемый пост)
Данные из таблицы парадокс выгрузили в текстовый файл. 
и теперь надо их загнать в 1С (скорее всего в приходник).

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

Сорри за немногословность... No times. smile 
PM MAIL ICQ   Вверх
larabelle
Дата 13.11.2007, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(Zero @ 13.11.2007,  20:23)
Вообщето формат таблиц парадокс схож по структуре с 1с, нафиг текстовый файл нужен?
Читаем доку + юзаем поиск.
Подсказка: XBase (место раскопок  smile )

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

Сэр, с приездом вас и... также уже с отъездом.

Текстовый файл сложился исторически - т.е. мне его дали - и типа действуй.
Хотя параллельно я юзаю вариант, типа вашего. Но тогда нана достраивать таблицу источник, а там типа уже давнишняя отлаженная прога работает.


--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
SaschaL
Дата 14.11.2007, 15:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9
Для получения данный из тестовой строки попробуйте использовать метод 
ИзСтрокуСРазделителями()
Просто занимался такой проблемой достаточно давно, попробую найти в ближайшее время внешнюю обработку которую я писал для себя и для примера скинуть обработку. Будет нагляднее...
PM MAIL ICQ   Вверх
larabelle
Дата 14.11.2007, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(SaschaL @ 14.11.2007,  13:48)
Для получения данный из тестовой строки попробуйте использовать метод 
ИзСтрокуСРазделителями()
Просто занимался такой проблемой достаточно давно, попробую найти в ближайшее время внешнюю обработку которую я писал для себя и для примера скинуть обработку. Будет нагляднее...

Ок, бум посмотреть.
Заодно читаю как через ADO подключиться (есть возможность на машину с парадоксом 1С поставить) - до сих пор не приходилось иметь дело. 
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
larabelle
Дата 15.11.2007, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(SaschaL @ 14.11.2007,  13:48)
Для получения данный из тестовой строки попробуйте использовать метод 
ИзСтрокуСРазделителями()
Просто занимался такой проблемой достаточно давно, попробую найти в ближайшее время внешнюю обработку которую я писал для себя и для примера скинуть обработку. Будет нагляднее...

Да -а-а-а---а-а-а-а,
забыла сказать, 
Спасибо, SaschaL -
вы - настоящий друг!
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
larabelle
Дата 22.11.2007, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
To SaschaL, Zero

в общем с приходником я справилась - пошла - правда длинным путем через импортиз екселя
теперь разбираюсь с реализацией ...
т.е. вопрос актуален - если кто чем может помоч - то буду рада

To Zero -
xbase - я в курсе - но к моей ситуации не подходит
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Naghual
Дата 23.11.2007, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 5
Всего: 49
Уважаемая larabelle, так в чем собственно у вас загвоздка?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
larabelle
Дата 23.11.2007, 03:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(Naghual @ 22.11.2007,  22:02)
Уважаемая larabelle, так в чем собственно у вас загвоздка?

Уважаемый Naghual,
нана программо создать документ реализация и табличную часть заполнить из таблицы .dbf или excel -
наверное так можно сфокусировать проблему на настоящий момент - поскольку текстовый файл (по крайней мере в том виде, в котором я его имею) - импортировать у меня не получилось.
конфига 1с77 - усн или тис.

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

--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
larabelle
Дата 23.11.2007, 03:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Хм ... почти случайно наткнулась на про-клабе на обработку - посмотрела пока только мельком, но - кажется именно то, что мне нужно.
если кому нана - то брать здесь:
импорт из ексель
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Naghual
Дата 24.11.2007, 15:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 5
Всего: 49
Ну  что-же. Рад за вас.
Если все-же не получится, либо решите вернутся к текстовому файлу - милости прошу.
У меня подобные операции получались.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
larabelle
Дата 24.11.2007, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2
Цитата(Naghual @ 24.11.2007,  13:00)
Если все-же не получится, либо решите вернутся к текстовому файлу - милости прошу.

Благодарю.
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
Zero
Дата 25.11.2007, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24
Цитата(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

Как вытаскивать данные из dbf можете почитать документации 1с там всё есть что нужно, а вытаскивать данные из excel средствами 1с, там тоже всё просто используя механизм OLE-Automation, пример которого неоднократно приводился на форуме, в том числе и мной.

PS: надеюсь вопрос решён полностью... Если нет, то как-нибудь ещё зайду завершу. Главно правильно изложить основную суть проблемы.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1000 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.