Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / VB и 1С как получить остатки товаров? / 25 сообщений из 43, страница 1 из 2
  1  все
28.03.2013, 14:22
    #38202324
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim v7 As Object
st = " /D" & """\\Natali\1sp\""" & " /N " & """ааа""" & " /P" & """111"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
DoEvents
If Not result = True Then
    MsgBox "Соединение с 1С не установлено!"
    Exit Sub
Else

    Set spr = v7.CreateObject("Справочник.Товары")
    If spr.НайтиПоКоду(8186, 0) = 1 Then
        MsgBox spr.GetAttrib("Наименование")
    Else
        MsgBox "Товар не найден!"
    End If
    Set Reg = v7.CreateObject("Регистр.ОстаткиТоваров")



Что необходимо дописать чтобы к найденному названию товара в 1С получать еще и его остаток? Заранее большое спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 14:47
    #38202395
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,
надо знать структуру регистра ОстаткиТоваров и смотреть в сторону метода СводныйОстаток. а сначала - определиться что мы хотим получить в результате, зачем это нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 14:52
    #38202406
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Мне нужно вбивая код 1с товара узнать какой остаток в 1с этого товара.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:11
    #38202473
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

Вам для начала нужно научиться пользоваться поисковиком. Есть масса примеров. Так что невижу смысла повторяться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:14
    #38202482
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Облазил уйму страниц но как по коду узнавать остаток так и не нашел. Являюсь не опытным пользователем. Прошу скинуть ссылки или лучше написать пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:15
    #38202484
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Злой Бобр...Так что невижу смысла повторяться.
злой ты, Бобр :)
Slash232, структура регистра какая? нужен перечень измерений и ресурсов в том порядке как они идут в конфигурации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:25
    #38202513
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Вот это?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:41
    #38202556
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

Код: sql
1.
MsgBox Reg.СводныйОстаток(spr.ТекущийЭлемент(),,,"ОстатокТовара")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 15:44
    #38202567
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

в общем, я не помню синтаксис вб, разберетесь. ниже пишется примерно такая шняга:

set Q= v7.CreateObject("Запрос");

T = "Товар = Регистр.ОстаткиТоваров.Товар;Кол = Регистр.ОстаткиТоваров.ОстатокТовара;Функция Остаток = КонОст(Кол);Условие (Товар.Код=8186);Группировка Товар;";

Q.Выполнить(T);

MsgBox Q.Остаток
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 19:34
    #38203122
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Злой БобрSlash232,

Код: sql
1.
MsgBox Reg.СводныйОстаток(spr.ТекущийЭлемент(),,,"ОстатокТовара")



Пишет ошибку не совпадение типа!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 21:43
    #38203252
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

Ну напишите в 1С процедуру, а из VB ее дергайте. Просто я нечасто 1С использую в качестве OLE поэтому и непомню точно синтаксис. Так что для вас лучше будет:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim v7 As Object
st = " /D" & """\\Natali\1sp\""" & " /N " & """ааа""" & " /P" & """111"""
Set v7 = CreateObject("v77.Application")
result = v7.Initialize(v7.RMTrade, st, "yes_SPLASH_SHOW")
DoEvents
If Not result = True Then
    MsgBox "Соединение с 1С не установлено!"
    Exit Sub
Else
Set res = v7.EvalExpr("НайтиНашОстаток(8186)")
MsgBox res
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2013, 22:17
    #38203289
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Злой Бобр,

нельзя увы трогать 1С, нужно именно через OLE VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 05:24
    #38203471
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

Ну тада ОЙ. Там работы на 10 минут отсилы. Но раз так принципиально то играйтесь с моей подсказкой, я просто непомню как правильно из VB послать OLE. Думаю поисковиком найдете, ну или методом тыка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 14:09
    #38204231
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
psergej,

Все время возвращает 0 ((

Помогите пожста кто знает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 14:32
    #38204295
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232psergej, Все время возвращает 0 (( Помогите пожста кто знает!
это хорошо, вероятно код товара текстовый. приведите пример кода товара как он выглядит в 1с. приведите описание структуры данных справочника Товары, как Вы делали ранее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 17:52
    #38204755
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Код товара действительно текстовый. Вопрос так и не решил(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 17:54
    #38204760
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Код товара текстовый состоит из 8 символов. Если код 4-значный то в базе код выглядит как четыре пробела и сам код, если код 3-х значный соответственно 5 пробелов и код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 18:11
    #38204794
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232Код товара текстовый состоит из 8 символов. Если код 4-значный то в базе код выглядит как четыре пробела и сам код, если код 3-х значный соответственно 5 пробелов и код.
ага, тогда надо
Условие (Товар.Код=8186);
поменять на
Условие (СокрЛП(Товар.Код)=""8186"");
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 18:43
    #38204859
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Спасибо работает!, но очень медленно... Есть еще какие нибудь альтернативы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2013, 19:15
    #38204904
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232Спасибо работает!, но очень медленно... Есть еще какие нибудь альтернативы?
медленно из-за запуска ком-сервера, при повторном обращении, например в цикле по списку товара, оно будет быстрее возвращать значение. разумеется, в цикле не стоит инициализировать ком сервер :)
можно ускориться значительно, если баз на скл-сервере - прямым запросом к скл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2013, 12:03
    #38205325
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
А если через sql нельзя, то какие варианты тогда? Если можно пример кода.. Спасибо за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2013, 18:32
    #38206189
psergej
psergej
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232А если через sql нельзя, то какие варианты тогда? Если можно пример кода.. Спасибо за помощь
с версией дбф только через ком-соединение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2013, 23:54
    #38206409
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Ясно, а если я хочу получить остаток товара не используя запрос, т.е. одновременно с тем как я получаю наименование какой код нужен?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2013, 11:38
    #38206805
Злой Бобр
Злой Бобр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
Slash232,

Я ж вам сказал - напишите в 1С процедуру и дергайте ее. Собственно это лучший вариант для ДБФ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2013, 15:26
    #38207279
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и 1С как получить остатки товаров?
А можно код процедуры?? И если не сложно объясните как её создать? Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / 1С [игнор отключен] [закрыт для гостей] / VB и 1С как получить остатки товаров? / 25 сообщений из 43, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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