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

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

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


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

Форум

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

Давно не писал спецфункции, может кто поделится готовой. В накладных на закупку ТМЦ в модуле "Материалы" в поле "N док." (который второй номер) указываем номер товарной накладной поставщика. Через некоторое время возможна ситуация, когда данный документ может быть введен повторно (ошибка оператора, корректировочный документ), при этом возможно изменение суммы документа (в случае корректировки поставщиком). Хотелось бы получить в момент сохранения какое-нибудь окошко с предупреждением о том, что существует документ с аналогичным номером - а пусть уже оператор решает, что с этим делать. Может кто-нибудь поделиться листингом?
 
Код
  local lRes:=.T.

  if m->nvidwork_=2 // только для вновь вводимых документов
    netuse('umdoc','sclad\mdoc')
    if umdoc->(ordsetfocus('mdoc_pea'), dbseek(upper(substr(m->pAgentCode,1,6)+m->pVid+m->pType+m->pTypeEx+m->pNumDocP)))
      lRes:=yesorno('Документ с таким номером поставщика уже существует. Продолжить сохранение?')
    endif
    umdoc->(dbclosearea())
  endif
return lRes

 
С уважением, Новиков Алексей.
 
Алексей уже написал :)
Изменено: nordk - 03.12.2013 12:00:53
 
Спасибо за ответ. Записал код в файл u_nomer.frm, поместил его в \Server\DATA\Pro\PLUGINS\EXTENSNS\ZAPAS - да, поменял sclad\mdoc на zapas\mdoc, потому что речь идет о закупке материалов. Проверил индексы и поля в файлах MDOC - они похожи (хотя и в Товарах данный код проверял). В общем, при сохранении документа выдает ошибку:
"Синтаксическая ошибка в формуле или программе!"

- что значит "m" в конструкциях типа m->pVid и почему добавляется маленькая "р"?
- может заменить yesorno на какой-нибудь SayAndWait?

Не пойму, где синтаксис нарушен :help:
 
Надо привести полное описание ошибки с указанием номера строки.
M-> означает memo-> то есть переменная в памяти
pVid это та самая переменная которая в памяти лежит
в этом месте никаких ошибок нет
 
ааа е-мое какой frm :lol:
надо откомпилировать в hrb
 
откройте редактор XBA - там в разделе zapas дайте файлу расширение prg
откомпилируйте его
и положите в запуск плагина файл с раcширением hrb
 
Спасибо! Все получилось :)
Страницы: 1
Читают тему (гостей: 1)