FiveTech Software tech support forums

I'm thinking to create 3 levels of categories for a store

Level 1 : 2 Characters (es. 11)
Level 2 : 2 Characters (es. 1122)
Level 3 : 4 Characters (es. 11223333)


sample :

cCodice:= 01020001

cDesc := Italian keyboard black

I have some problems to build valid at get when the user insert a new record because the valid function must to control if there is the higher-level of the code he inserted

Isample : if the user insert the code := 01020001

he must insert before 01 keyboard, 0102 Italian Keyboard and then he can insert the new category

Any help please to build the valid function

You can split the get into 3 gets so you can validate them separately.

sorry I have allready the dbf, and I must use this (from customer) look this :

Silvio,

Here at the levels we call families of items.

So you should have your stored configuration in a field the levels of your families of items.

Example:
If your levels are 2,2,4 you can store "020408"
To find that there are higher levels of hierarchy you can use:

Code: Select all  Expand view

FUNCTION lExistLevels(cItem)
Local lExist:= .f.
Local cLevels:= "020408" // From config field
Local nMaxItem:= Val(Right(cLevels, 2))
Local nI, nAt:= At(StrZero(Len(cItem), 2), cLevels)- 2    
Local nLevel, cSubItem
FOR nI:= 1 TO nAt STEP 2
   nLevel:= SubStr(cLevels, nI, 2)
   cSubItem:= Left(cItem, nLevel)
   SELECT Items
   SEEK PadR(cSubItem, nMaxItem)
   IF Eof()
       lExist:= .f.
       EXIT
   ENDIF
   lExist:= .t.
       
NEXT
RETURN lExist
   
Regards
   
 

perhaps it is that I'm searching... I must make some tests

Antonio Mart.,
the function can run ok only when I digit a string of 8 Cr the function run ok
if I digit a string of 6 cr it is bad code I can have only 3 levels

for sample
aa
aabb
aabbcccc

the function must return a string aabbcc as right ...

Silvio.
You can do this:

Static nLenCode := 8

Redefine get oget var cvar id 4000 of odlg Valid cCodeOk(cvar)

Function cCodeOK(cVar)
if !MyCatal->(dbseek(cVar)) .or. len(alltrim(cVar)) != nLenCode
Stop("Bad code inserted")
return .f.
endif
Return .t.

This is only for transactions validations.
I hope it helps you.

Regards.

The DBF does not matter.

get var1 valid ...
get var2 valid ...
get var3 valid ...
read

field_to_save := var1 +var2 + var3