Переход с 1С на Дебет Плюс

Переход с 1С на Дебет Плюс

Сообщение neos » Пн ноя 24, 2008 3:32 pm

Подскажите пожалуйста, есть ли возможностьпереноса базы из 1С в Дебет Плюс.
Аватара пользователя
neos
Интересующийся
 
Сообщения: 3
Зарегистрирован: Пн ноя 24, 2008 3:19 pm
Откуда: Андрей

Сообщение Дарья » Чт ноя 27, 2008 4:52 pm

Возможен перенос справочников. Пример переноса справочника номенклатуры описан в разделе видеороликов Импорт информации в систему. Шаблон импорта справочника контрагентов находится в каталоге \DebetPlusV12\base\org1\import.
Если Вам известна система выгрузки базы из 1С, будем признательны способствованию разработки системы импорта базы в Дебет :)
Аватара пользователя
Дарья
Консультант
 
Сообщения: 1774
Зарегистрирован: Пн июл 28, 2008 9:40 am

перенос базы с 1С

Сообщение neos » Чт ноя 27, 2008 7:32 pm

Что вы имеете в ввиду под "системой выгрузки", поточнее сформулируйте вопрос, или разъясните (а может я просто не понял). Ваш програмный продукт очень интересен, и решив вопрос с переносом данных можно создать со временем большую клиентскую базу.....
Аватара пользователя
neos
Интересующийся
 
Сообщения: 3
Зарегистрирован: Пн ноя 24, 2008 3:19 pm
Откуда: Андрей

Сообщение neos » Чт ноя 27, 2008 7:35 pm

может удобно будет обсудить этот вопрос в ICQ (170863196) или Skype (andrey.kondrat.ev)
Аватара пользователя
neos
Интересующийся
 
Сообщения: 3
Зарегистрирован: Пн ноя 24, 2008 3:19 pm
Откуда: Андрей

Приклад експорту з 1С до XLS...

Сообщение dyadyastepa » Вт фев 03, 2009 6:41 pm

Ось саме цим питанням і займаюся...

Для прикладу (і для себе) накидав декілька рядків - експорт контрагентів (ПОПЕРЕДЖУЮ!!! скрипт ТЕСТОВИЙ - тобто переносяться не всі дані) -

1С 7.7 Бухгалтерский учет для Украины - "Внешний отчет" -
Код: Выделить всё
Процедура Ячейка(Лист,х,у,Значение)              
   ТекущаяЯчейка=Лист.Cells(х,у);         
   Если ПустоеЗначение(Значение)=0 Тогда         
      ТекущаяЯчейка.Value=Значение;      
   ИначеЕсли ПустоеЗначение(СокрЛП(Строка(ТекущаяЯчейка.Value)))=0 Тогда         
      ТекущаяЯчейка.Value=Значение;      
   КонецЕсли;         
КонецПроцедуры            
            
//*******************************************            
Процедура Сформировать()            
            
   ПутьКФайлу = "C:\Documents and Settings\Администратор\Рабочий стол\";         
            
   ОкноЕхсеl = СоздатьОбъект("Excel.Application");         
   ОкноЕхсеl.Caption = "Для импорта из 1с";         
   РабочиеКниги = ОкноЕхсеl.Workbooks;         
            
   РабочаяКнига = РабочиеКниги.Open(ПутьКФайлу+"cntr.xls", 0, 0, 1,,,1);         
            
   Лист=РабочаяКнига.Worksheets("Cntr");         
            
   Ячейка(Лист,10,5,"Тест");         
            
   Ячейка(Лист,1,1,"Код");         
   Ячейка(Лист,1,2,"Наименование");         
   Ячейка(Лист,1,3,"ПолнНаименование");         
   Ячейка(Лист,1,4,"Адрес");         
   Ячейка(Лист,1,5,"ФизАдрес");         
   Ячейка(Лист,1,6,"Телефоны");         
   Ячейка(Лист,1,7,"Директор");         
   Ячейка(Лист,1,8,"ГлавныйБухгалтер");         
   Ячейка(Лист,1,9,"ЕДРПОУ");         
   Ячейка(Лист,1,10,"ИНН");         
   Ячейка(Лист,1,11,"НомерСвидетельства");         
   Ячейка(Лист,1,12,"ВидТорговли");         
   Ячейка(Лист,1,13,"БазДоговор");         
   Ячейка(Лист,1,14,"Контакт");         
   Ячейка(Лист,1,15,"ДокСерия");         
   Ячейка(Лист,1,16,"ДокНомер");         
   Ячейка(Лист,1,17,"ДокКемВыдан");         
   Ячейка(Лист,1,18,"ДокДатаВыдачи");         
   Ячейка(Лист,1,19,"ВидВзаиморасчетов");         
   Ячейка(Лист,1,20,"СтарыйПолныйКод");         
   Ячейка(Лист,1,21,"ПлательщикНалогаНаПрибыль");         
            
   У = 1;         
            
   СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");         
   Если СпрКонтрагенты.ВыбратьЭлементы() = 1 Тогда         
      Пока СпрКонтрагенты.ПолучитьЭлемент() = 1 Цикл      
         Если (СокрЛП(СпрКонтрагенты.Наименование) <> "Новый") Тогда   
            У = У + 1;
            Ячейка(Лист,У,1,СпрКонтрагенты.Код);
            Ячейка(Лист,У,2,СокрЛП(Строка(СпрКонтрагенты.Наименование)));
            Ячейка(Лист,У,3,СокрЛП(Строка(СпрКонтрагенты.ПолнНаименование)));
            Ячейка(Лист,У,4,СокрЛП(Строка(СпрКонтрагенты.Адрес)));
            Ячейка(Лист,У,5,СокрЛП(Строка(СпрКонтрагенты.ФизАдрес)));
            Ячейка(Лист,У,6,СокрЛП(Строка(СпрКонтрагенты.Телефоны)));
            Ячейка(Лист,У,7,СокрЛП(Строка(СпрКонтрагенты.Директор)));
            Ячейка(Лист,У,8,СокрЛП(Строка(СпрКонтрагенты.ГлавныйБухгалтер)));
            Ячейка(Лист,У,9,СокрЛП(Строка(СпрКонтрагенты.ЕДРПОУ)));
            Ячейка(Лист,У,10,СокрЛП(Строка(СпрКонтрагенты.ИНН)));
            Ячейка(Лист,У,11,СокрЛП(Строка(СпрКонтрагенты.НомерСвидетельства)));
            Ячейка(Лист,У,12,СокрЛП(Строка(СпрКонтрагенты.ВидТорговли)));
            Ячейка(Лист,У,13,СокрЛП(Строка(СпрКонтрагенты.БазДоговор)));
            Ячейка(Лист,У,14,СокрЛП(Строка(СпрКонтрагенты.Контакт)));
            Ячейка(Лист,У,15,СокрЛП(Строка(СпрКонтрагенты.ДокСерия)));
            Ячейка(Лист,У,16,СокрЛП(Строка(СпрКонтрагенты.ДокНомер)));
            Ячейка(Лист,У,17,СокрЛП(Строка(СпрКонтрагенты.ДокКемВыдан)));
            Ячейка(Лист,У,18,СокрЛП(Строка(СпрКонтрагенты.ДокДатаВыдачи)));
            Ячейка(Лист,У,19,СокрЛП(Строка(СпрКонтрагенты.ВидВзаиморасчетов)));
            Ячейка(Лист,У,20,СокрЛП(Строка(СпрКонтрагенты.СтарыйПолныйКод)));
            Ячейка(Лист,У,21,СокрЛП(Строка(СпрКонтрагенты.ПлательщикНалогаНаПрибыль)));
         КонецЕсли;   
      КонецЦикла;      
   КонецЕсли;         
            
   РабочаяКнига.SaveAs(ПутьКФайлу+"cntr_g.xls");         
            
   ОкноЕхсеl.Quit();         
            
КонецПроцедуры            
      


П.С. готовий до співпраці... тільки не знайшов токого ніку в скайпі... дайте реальні контакти допоможу в експорті з 1С...
Аватара пользователя
dyadyastepa
Уверенный пользователь
Уверенный пользователь
 
Сообщения: 11
Зарегистрирован: Ср янв 28, 2009 12:12 pm

Сообщение Kydesnik » Ср фев 24, 2010 4:19 pm

Помогите пожалуста :(
Последний раз редактировалось Kydesnik Ср фев 24, 2010 4:32 pm, всего редактировалось 1 раз.
Аватара пользователя
Kydesnik
Уверенный пользователь
Уверенный пользователь
 
Сообщения: 14
Зарегистрирован: Ср фев 17, 2010 5:24 pm

Сообщение Kydesnik » Ср фев 24, 2010 4:21 pm

Можно пошагово обьяснить перенос справочников из 1с очень актуальная тема. Сам я не програмист 1С и в программировании не разбираюсь. Возможно ли както на уровне пользователя решить проблемму?
Аватара пользователя
Kydesnik
Уверенный пользователь
Уверенный пользователь
 
Сообщения: 14
Зарегистрирован: Ср фев 17, 2010 5:24 pm


Вернуться в Вопросы по разработке в системе

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

cron