ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / выгрузка материалов из 1Сv8
17 сообщений из 17, страница 1 из 1
выгрузка материалов из 1Сv8
    #38525472
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
Добрый день.

Имеется производственная программа написанная на Delphi + MS SQL Server. Имеется бухгалтерская 1С8 на другом экземпляре SQL Server.
Необходимо организовать синхронизацию остатков материалов между 1С8 и этой программой.

Первый вариант простой - выгрузка кодов и остатков материалов из 1С в текстовый файл, а затем загрузка в другую программу.

Учитывая что 1С8 работает на одном экземпляре SQL Server 2010 а произодственная программа не другом экземпляре MS SQL Server 2000 - как организовать обмен остатками между двумя базами данных в режиме реального времени или в ночных циклах обмена ?

В 1С8 я новичек поэтому не судите строго.
...
Рейтинг: 0 / 0
14.01.2014, 12:51
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525493
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
RESEARCHДобрый день.

Имеется производственная программа написанная на Delphi + MS SQL Server. Имеется бухгалтерская 1С8 на другом экземпляре SQL Server.
Необходимо организовать синхронизацию остатков материалов между 1С8 и этой программой.

Первый вариант простой - выгрузка кодов и остатков материалов из 1С в текстовый файл, а затем загрузка в другую программу.

Учитывая что 1С8 работает на одном экземпляре SQL Server 2010 а произодственная программа не другом экземпляре MS SQL Server 2000 - как организовать обмен остатками между двумя базами данных в режиме реального времени или в ночных циклах обмена ?

В 1С8 я новичек поэтому не судите строго.

вариантов овердофига... com/ado/cvs и прочее

и это только начало... кто будет требования накладные формировать? распределение материалов на выпуск, сами выпуски продукции на склад?
...
Рейтинг: 0 / 0
14.01.2014, 13:04
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525520
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
В 1С ведется только поступление материалов на склад и выдача со склада в производство.

Необходимо просто выгрузить текущие остатки из стандартного справочника в таблицу на другом сервере.
Девочка которая там сидит хлопает глазами и мычит, чувствую скоро мне придется стать крупным специалистом и в 1С8 тоже.

Покажите работающий код с использованием любой модели которая выгружает в таблицу базы данных 2 материалы (код и количество) из базы данных 1.
Если можно то 2 варианта.
...
Рейтинг: 0 / 0
14.01.2014, 13:23
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525571
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
через адо примерно так http://infostart.ru/public/65045/

осталось собрать остаток по бух. счетам типа 10 или на что там у вас бухи ориентируются...
...
Рейтинг: 0 / 0
14.01.2014, 14:00
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525574
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
что-то типа http://devtrainingforum.v8.1c.ru/forum/thread.jsp?id=604354
...
Рейтинг: 0 / 0
14.01.2014, 14:01
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525680
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
Последний выдох ГПЖ,

спасибо это очень похоже на правду, осталось только правильно написать строку подключения не к Excel а к MS SQL.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
СтрокаПодключения = "
|Provider=Microsoft.Jet.OLEDB.4.0;
|Data Source="+ИмяФайлаЭксель+";
|Extended Properties=""Excel 8.0;HDR=No;"";";

// Создаем объект ADOX.Catalog
Catalog = Новый COMОбъект("ADOX.Catalog");
Catalog.ActiveConnection = СтрокаПодключения;




а вот это меня несколько шокировало

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
...
Рейтинг: 0 / 0
14.01.2014, 14:45
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525685
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
и еще один вопрос

нельзя ли с помощью хранимой процедуры на T-SQL организовать переброску данных из внутренних таблиц 1С на другой сервер, или это бессмысленное занятие
...
Рейтинг: 0 / 0
14.01.2014, 14:51
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525698
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
RESEARCHПоследний выдох ГПЖ,

спасибо это очень похоже на правду, осталось только правильно написать строку подключения не к Excel а к MS SQL.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
СтрокаПодключения = "
|Provider=Microsoft.Jet.OLEDB.4.0;
|Data Source="+ИмяФайлаЭксель+";
|Extended Properties=""Excel 8.0;HDR=No;"";";

// Создаем объект ADOX.Catalog
Catalog = Новый COMОбъект("ADOX.Catalog");
Catalog.ActiveConnection = СтрокаПодключения;




а вот это меня несколько шокировало

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();


погуглите - строку типа "1с ado sql" примеров много готовых типа http://mudritskiy.blogspot.ru/2013/05/1-adodb.html

а что такого? в англии же никого не шокирует select. 1С кстати поддерживает английские синонимы
...
Рейтинг: 0 / 0
14.01.2014, 14:58
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525713
Stix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stix
Участник
лучше специалиста позовите
...
Рейтинг: 0 / 0
14.01.2014, 15:05
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525979
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
а что такого? в англии же никого не шокирует select. 1С кстати поддерживает английские синонимых.

не в этом дело, синтаксис 1С я кое как знаю писал немного обработок в 7.7

не могу понять стркутуру иерархии объектов
...
Рейтинг: 0 / 0
14.01.2014, 17:33
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525987
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
подскажите какой лучше всего учебник прочитать по 1с8 с учетом того что на 7.7 немного писал, правил готовые обработки
...
Рейтинг: 0 / 0
14.01.2014, 17:37
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38525995
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
RESEARCHа что такого? в англии же никого не шокирует select. 1С кстати поддерживает английские синонимых.

не в этом дело, синтаксис 1С я кое как знаю писал немного обработок в 7.7

не могу понять стркутуру иерархии объектов

тут ничего сложного нет

запросы в 8-ке - это основной инструмент извлечения данных, сильно отличающийся от логики работы в 7.7 и приближенный к t-sql

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

в 7.7:
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

в 8-ке:
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Возврат;
КонецЕсли;


в 7.7:
Пока Запрос.Группировка(1) = 1 Цикл
КонецЦикла;

в 8-ке:
Выборка = Результат.Выбрать(); // простая "плоская" выборка без иерархий
Пока Выборка.Следующий() Цикл
КонецЦикла;
...
Рейтинг: 0 / 0
14.01.2014, 17:41
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38526002
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
можно поглядеть ролики разные нахаляву типа
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
14.01.2014, 17:46
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38526004
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
наврал

в 7.7:
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

в 8-ке:
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда // "Не" не надо
Возврат;
КонецЕсли;
...
Рейтинг: 0 / 0
14.01.2014, 17:47
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38526082
RESEARCH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RESEARCH
Гость
вот взять например аналог делфи

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
Query.SQL.Text:='запрос'
Query.Open;
if Query.isEmpty then exit;
while not Query.EOF do
 begin
  KODM:=Query.Fields[0].asString;
  Query.Next
 end;



почему
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

а не Выборка = Запрос.Выполнить();

какую роль играет объект Результат ?
...
Рейтинг: 0 / 0
14.01.2014, 18:32
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38526115
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
RESEARCHвот взять например аналог делфи

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
Query.SQL.Text:='запрос'
Query.Open;
if Query.isEmpty then exit;
while not Query.EOF do
 begin
  KODM:=Query.Fields[0].asString;
  Query.Next
 end;



почему
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

а не Выборка = Запрос.Выполнить();

какую роль играет объект Результат ?

потому что я могу из Результат получить .Выбрать() - выборку , а могу .Выгрузить() - таблицу значений / дерево

так же как Запрос.Выполнить() - даст результат выборки, а Запрос.ВыполнитьПакет() массив результатов пакетного запроса

про объектную модель СКД рассказывать не буду - будет шок
...
Рейтинг: 0 / 0
14.01.2014, 18:52
| Ответить | Цитировать | Написать  
выгрузка материалов из 1Сv8
    #38526221
Хитроглазый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хитроглазый
Участник
RESEARCHвот взять например аналог делфи

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
Query.SQL.Text:='запрос'
Query.Open;
if Query.isEmpty then exit;
while not Query.EOF do
 begin
  KODM:=Query.Fields[0].asString;
  Query.Next
 end;


Держи перевод
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
Query.Text = "запрос";
Result = Query.Execute();    
If not Result.IsEmpty() then  
  Dataset = Result.Choose();
  While Dataset.next() do
    KODM = dataset.KODM;
  Enddo
Endif
...
Рейтинг: 0 / 0
14.01.2014, 20:44
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / выгрузка материалов из 1Сv8
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=38525520&tid=1519552]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 369ms
total:  532ms
созд. / загр.: 532ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]