Форум

STATIC PROCEDURE CreateNewProduct()
Local sNewNNumReal:=Space(13)
 SET ORDER TO TAG TAG_NNum
 DbGoBottom()
 sNewNNumReal:=mlabel->nnum
 if(sNewNNumReal==AllTrim(sNewNNumReal))
 if(.NOT.(IfAllChar(sNewNNumReal)))
 WHILE Mlabel->(DBSEEK(UPPER(" "+sNewNNumReal)))
sNewNNumReal:=InCreaseOne(MLABEL->NNUM)
 ENDDO 
 Mlabel->(ADDREC())
 Mlabel->NNUM:=sNewNNumReal
 Mlabel->GRUP:="00001"
 Mlabel->NAME:="Новая"
 Mlabel->FULLNAME:="Новая полное"
 Mlabel->ORD_POLICY:=1
 Mlabel->ID_LABEL:=StepPlus()
 Mlabel->mdim:="0000000000000000001040"
 Mlabel->( F_DBUNLOCK() )
 endif 
 endif
return

StartTest()
STATIC PROCEDURE StartTest()
Local Temp_I:=0
Local dStart,dEnd
dBpUSH()
dStart:=Time()
If (DbF()=="MLABEL")
    For Temp_i:=1 to 20000
      CreateNewProduct()
    NEXT
ENDIF
dEnd:=TIME()
SayAndWait("Время старта "+Var2Char(dStart)+" время окончания"+Var2Char(dEnd))
DbPop()
RETURN

Function IncreaseOne(cString)
Local nLength:=0
Local cIncreased:=""
Local nPosition:=0 //Цифра - разряд
nLength:=len(cString)
cIncreased:=stuff(cString,1,nLength-1,"")
If(IsDigit(cIncreased))
nPosition:=Val(cIncreased)
if(nPosition==9)
 if(nLength==1)
cIncreased:=""// нужен сЛУЧАЙНЫЙ СИМВОЛ
 else
nPosition:=0
cIncreased:=IncreaseOne(stuff(cString,nLength,nLength,""))
if(.NOT.(cIncreased==""))
cString:=cIncreased+Var2Char(nPosition)
else
cString:=""
endif
 endif
else
nPosition+=1
cString:=stuff(cString,nLength,nLength,Var2Char(nPosition))
endif
else
nPosition:=0
cIncreased:=IncreaseOne(stuff(cString,nLength,nLength,""))
if(.NOT.(cIncreased==""))
cString:=cIncreased+Var2Char(nPosition)
else
cString:=""
endif
endif
return cString

Function IfAllChar(cString)
Local bIfNotNumExist:=.T.
Local nLen:=len(cString),temp_i:=0,temp_j:=0
if (nLen!=0)
While(bIfNotNumExist)
 if(IsDigit(cString))
bIfNotNumExist:=.F.
 else
cString:=Stuff(cString,1,1,"")
 endif
enddo
endif
return bIfNotNumExist
//Измененная ф-я создания:
STATIC PROCEDURE CreateNewProduct()
Local sNewNNumReal:=Space(13)
Local lUnique:=.F.
Local nJ:=1,oErr
Local sPath:=LoadPath()+"TEST\BOM_def"
 SET ORDER TO TAG TAG_NNum
 DbGoBottom()
 sNewNNumReal:=mlabel->nnum
 if(sNewNNumReal==AllTrim(sNewNNumReal))
 if(.NOT.(IfAllChar(sNewNNumReal)))
Do While (.NOT.(lUnique).AND.(nJ<1000))
 TRY
USE (sPath) NEW Alias TEmp
lUnique:=.T.
SELECT ("MLABEL")
SET ORDER TO TAG TAG_NNum
 CATCH oErr
nJ+=1
 end
enddo
 WHILE Mlabel->(DBSEEK(UPPER(" "+sNewNNumReal)))
sNewNNumReal:=InCreaseOne(MLABEL->NNUM)
 ENDDO 
 Mlabel->(ADDREC())
 Mlabel->NNUM:=sNewNNumReal
 Mlabel->GRUP:="00001"
 Mlabel->NAME:="Новая"
 Mlabel->FULLNAME:="Новая полное"
 Mlabel->ORD_POLICY:=1
 Mlabel->ID_LABEL:=StepPlus()
 Mlabel->mdim:="0000000000000000001040"
 Mlabel->( F_DBUNLOCK() )
 Close Temp
 endif 
 endif
return
//В качестве "Блокирующего" файла 
//взял BOM_def, он у нас все 
//равно пуст. Файл обязательно
// должен присутствовать в папке TEST!!!!!!

SET ORDER TO TAG TAG_NNum 
DbGoBottom() 
sNewNNumReal:=mlabel->nnum
if(sNewNNumReal==AllTrim(mlabel->nnum)) 
if(.NOT.(IfAllChar(AllTrim(sNewNNumReal))))
WHILE Mlabel->(DBSEEK(UPPER(" "+sNewNNumReal))) 
sNewNNumReal:=InCreaseOne(MLABEL->NNUM) 
ENDDO 
Mlabel->(ADDREC()) 
Mlabel->NNUM:=sNewNNumReal 
Mlabel->GRUP:="00001" 
Mlabel->NAME:="Новая" 
Mlabel->FULLNAME:="Новая полная" 
Mlabel->ORD_POLICY:=1 
Mlabel->ID_LABEL:=StepPlus() 
Mlabel->mdim:="0000000000000000001040" 
Mlabel->( F_DBUNLOCK() ) 
bIsCreated:=.T. 
else 
bIsCreated:=.F. 
endif 
else 
bIsCreated:=.F. 
endif 

 SET ORDER TO TAG TAG_NNum
 DbGoBottom()
 if(mlabel->nnum==AllTrim(mlabel->nnum))
 if(.NOT.(IfAllChar(AllTrim(mlabel->nnum))))
 sNewNNumReal:=InCreaseOne(MLABEL->NNUM)
 WHILE Mlabel->(DBSEEK(UPPER(" "+sNewNNumReal)))
sNewNNumReal:=InCreaseOne(MLABEL->NNUM)
 ENDDO 
 Mlabel->(ADDREC())
 Mlabel->NNUM:=sNewNNumReal
 Mlabel->GRUP:="00001"
 Mlabel->NAME:="Новая"
 Mlabel->FULLNAME:="Новая полная"
 Mlabel->ORD_POLICY:=1
 Mlabel->ID_LABEL:=StepPlus()
 Mlabel->mdim:="0000000000000000001040"
 Mlabel->( F_DBUNLOCK() )
 bIsCreated:=.T.
 else
bIsCreated:=.F.
 endif 
 else
 bIsCreated:=.F.
 endif

SET ORDER TO TAG TAG_NNum 
Do while (.NOT.(lUnique))
 DbGoBottom()
 sNextNNUM:=InCreaseOne(MLABEL->NNUM)
 SEEK (sNextNNUM)
 if .NOT.(Found())
   lUnique:=.T.
 endif
enddo

1. Select MLABEL
2. SET ORDER TO TAG TAG_NNum
3. DbGoBottom()
4. sLastNNum:=Alltrim(mlabel->nnum)
5.DBPUSH("mlabel","MLABEL","",{sRealProductGrup,sRealProductGrup})
6.if(mlabel->nnum==AllTrim(mlabel->nnum))
7.if(.NOT.(IfAllChar(AllTrim(mlabel->nnum))))
8.sNewNNumReal:=IncreaseOne(sLastNNum)
9. Создание Новой номенклатуры Append BLANK'ом со значениями из переменных памяти.
закрытие IF'ов, dbpop()

Goto 250//В отладчике поля 250й записи видны
stemp:=MLaBEL->STATUS+MLABEL->RAZMER
//Присвоилось " 100x100              "-26 символов.
DbPush("MLABEL","TAG_RAZMER","",{"UPPER(STATUS+RAZMER)",stemp,stemp})