BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Как добавить запись в справочник номенклатур?

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как добавить запись в справочник номенклатур?
 
Добрый день!

Пишу спецфункцию для автоматического прихода пользуясь описанием scladobj.prg.
По примерам вроде как более-менее все понятно.

Возникает Вопрос: как добавить новую номенклатуру?
В примере:
oDoc:AddRow("00003","0000000000002","Дуб",,10)

А если у меня приходуется "Береза", как создать такую запись в накладной прихода? Ведь сначала эта "Береза" должна попасть в справочник, причем нужно потом и знать её номенклатурный номер!

Заранее спасибо!
 
Цитата
Алексей Быватов пишет:
В примере:
oDoc:AddRow("00003","0000000000002","Дуб",,10)

Пример приведен для создания строк ДОКУМЕНТА по существующим номенклатурным номерам и аналитикам.

Цитата
Алексей Быватов пишет:
А если у меня приходуется "Береза", как создать такую запись в накладной прихода?

Такая аналитика должна быть до создания документа - ее следует создавать.

При установке БЭСТа в папке client(сейчас не помню точный путь) есть файлы с исходным кодом. Там есть объект и пример создания номенклатурного номера.
 
нашел файл mlabel.prg

Что делаю не так?

oLabels:=AbsMLabelList():New()
oLabel:=MLabelRow():New()
oLabel:Grup="00003"
oLabel:NNum="4000000000006"
oLabel:Name="Дуб"
oLabels:AddMLabel(oLabel)

Ошибок нет, и новой номенклатуры нет!
 
Увидел попытку создать объект в памяти и наполнить его свойствами
Но нигде не увидел старт метода создать - RUN
 
Вот некий примерчик.
Код не я писал, но вроде как работать должен...попробуйте

Код
LOCAL cFilesPath,oMlabelRow 
LOCAL aSet, aSetKey
local oScladMlabel:=ScladMLabelList():Init()
aSet:=SaveSet()
aSetKey:=SaveSetKey()
cFilesPath:='c:\TEMP\'
netuse("TEST",cFilesPath+"TEST.DBF",,.F.)
oMLabelRow := NIL
oScladMLabel := NIL
oScladMlabel:=ScladMLabelList():Init()
oScladMlabel:NewGrupStrat:=1
oScladMlabel:Protocol:=0

TEST->(dbgotop() )
Busy(.T., "MLABEL IS PREPARING...")
do while (TEST->(!eof()))

oMlabelRow:=MlabelRow():Init()
oMlabelRow:Grup :=TEST->GRC
oMlabelRow:Nnum :=ConvToAnsiCp(TEST->NUM)
oMlabelRow:Name :=ConvToAnsiCp(TEST->NAME)
oMlabelRow:FullName :=ConvToAnsiCp(TEST->NAME)
oMlabelRow:NAMECOUNT :=ConvToAnsiCp(TEST->COUNT)
oMlabelRow:Ed :=alltrim('oo.')
oMlabelRow:CODE :=ConvToAnsiCp(TEST->ART)
oScladMlabel:AddMLabel(oMlabelRow)
TEST->(dbskip())
enddo
Busy(.F.)
oScladMLabel:LargeRun() 

RestSet(aSet)
RestSetKey(aSetKey)
 
Спасибо за помощь! Разобрался!

А никто не знает, как отключить автоматический отчет после каждой новой созданной номенклатуры (txt-файл формируется и открывается форма с отчетом
" 1. Номенклатурная позиция: '00003', 'A150151', 'Грузы самоклеющиеся'.
Номенклатурная позиция успешно создана"
 
У Вас же исходники в client лежат :)
Посмотрите в описании класса. Думаю найдете
Страницы: 1
Читают тему (гостей: 1)