gala1
Joined: 04 Nov 2004
Posts: 9
Location: Яковлева Галина Васильевна
Occupation: БЭСТ-Программы
Interests: Москва
|
 Posted: 28 Jun 2007 15:35 Post subject: |
 |
|
По словам разработчиков заполнение этого поля критично. Вот код для его программного формирования:
STATIC FUNCTION Code_Write()
STATIC nLenCode
LOCAL cCode:=RSDOC->CODE, nCode
If EMPTY(cCode) .or. cType == "1"
nLenCode:=LEN(cCode)
nCode:=INCSTEP("RSDOC_CODE")
If nCode>0
// удачная попытка формирования кода
// 36-ричная система счисления от '0' до 'Z'
// не менять здесь основание системы счисления, иначе будет дублирование кодов!
cCode:=NTOC(nCode,36,nLenCode,"0")
If AT("*",cCode)=
If cType=="1"
If RecLock()
RSDOC->CODE:=cCode
DbUnLock()
EndIf
Else
RSDOC->CODE:=cCode
EndIf
Else
SayError( {'Переполнение уникального номера RSDOC->CODE!'} )
EndIf
EndIf
EndIf
RETURN NIL
С уважением, Ростовцева Екатерина. |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
