Страница 1 из 1

Интерфейс выбора ТМЦ

Добавлено: 09 июл 2007, 17:25
Den_Is
Делаю так
var с_1:comp;
С_1:=0;
RunInterFace('GetSomeMC', c_1);
Все зашибись, открывается интерфейс с материалами, но при выборе материала (на еnter), запрашивает количество, а мне этого не надо. Просто надо что бы по нажатию на ентер закрылось окно и в с_1 передался нрек записи (кстати он передается все путем).
Может быть еще какие нибудь параметры надо передавать? (в исходниках посмотрел ничего кроме одной сомповской переменной не передается).

Добавлено: 09 июл 2007, 19:33
Ged
var с_1:comp;
С_1:=-12345;
RunInterFace('GetSomeMC', c_1);

// -12345, если не нужно запрашивать кол-во
// -12346, то же + пометить все по умолчанию
// -12347 без кол-ва, без удаления Pick
// -12348 с инвертированием Pick-а
// -12349 без кол-ва, выбирать только МЦ из маркера 'GetSomeParty_NRecSaldoMC'
// -12350 подсветка скрым МЦ не являющиеся комплектом

Добавлено: 10 июл 2007, 08:35
Den_Is
То что надо. Шпасиба!

Добавлено: 11 июл 2007, 10:41
Den_Is
ВСЕ ЗАШИБИСЬ, ПЕРЕСЫЛАЮ -12345, КОЛИЧЕСТВО НЕ ЗАПРАШИВАЕТ.
НО... ХЕ-ХЕ, :???: НРЕК ВЫБРАННОЙ ЗАПИСИ НЕ ВОЗРАЩАЕТ, ВОЗРАЩАЕТ ЗНАЧЕНИЕ С_1 РАВНОЕ -12345. МОЖЕТ ЧТО ТО НЕ ДОГОНЯЮ. :-?

Добавлено: 11 июл 2007, 10:55
Ged
В своем фейсе уже после выбора ищите записи
в табл. Pick с Pick.Wlist=7
Pick.Crec - это и есть Katmc.Nrec
Pick.PICKKOL - выбранное количество

Код: Выделить всё

 _loop Pick where ((7 == Pick.Wlist))
{
  if(GetFirst fastfirstrow katmc where ((Pick.Crec== Katmc.Nrec)) =tsOk)
    Message(KatMc.Name+' '+Pick.PICKKOL);
}

Добавлено: 11 июл 2007, 10:56
Den_Is
Все дошло (в пике искать надо)