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 " @" на ентот номер.