Создание накладной в Харборе.

[HEXAEB]

Best-4+ (12.01) Удаленный магазин.
Мне нужно программно создать накладную в модуле "Удаленный магазин".
Подскажите как вычислить следующий номер накладной??? Вот что сделал:

OCAL cSclad,cVid,cType,cCodeDoc
cSclad:="    92"
cVid:="1"
cType:="A"
cCodeDoc:="0006"
NewNumDoc(cSclad,cVid,cType,cCodeDoc)
FUNCTION NewNumDoc(cSclad,cVid,cType,cCodeDoc)
//----------------------------------------------------------------------------//
// Генерация уникального номера документа
LOCAL cNumDoc
MDOC->(DBPUSH(),SETSCOPE())
cNumDoc := MDOC->(NWDOC("NUMDOC",UPPER(cSclad+cVid+cType+cCodeDoc),memdat->ident,"MDOC"))
// Проверка на уникальность
   // Сброс счетчика
   NControlMem(UPPER(cSclad+cVid+cType+pCodeDoc1),memdat->ident,,.T.)
   // Теперь уж точно уникальный номер
   cNumDoc := MDOC->(NWDOC("NUMDOC",UPPER(cSclad+cVid+cType+cCodeDoc),memdat->ident,"MDOC"))

MDOC->(DBPOP())
RETURN cNumDoc

Но он добавляет какой-то другой номер....
А также меняет в MEMDAT->VALUE " @" на ентот номер.

[BDAdmin]

А стандартная функция не устраивает?

Next(xKey) – Возвращает следующее значение номера (числового илиcтрингового). Используется для простых случаев. Не для проводок!
· xKey – переданное значение.

для проводок:

StepPlus() – используется для строгих счетчиков проводок, возвращает следующее цифровое значение счетчика и изменяет счетчик.

[Аноним]

Правильная функция:WDoc('NumDoc',UPPER(pSclad+pVid+pType+pCodeDoc))