!***************************************************************
! PROFLIBHND       / 2017-05-31 / Vertex Systems
!***************************************************************
!
#CODETOPARAMS#
!
C$= get(CODE)
W$= ""
H$= ""
!
P2= findstr(C$,"x")
N$= C$[1,11]
W$= C$[15,P2-1]
H$= C$[P2+1,0]
!
set "NAAM"   N$
set "WIDTH"  W$
set "HEIGHT" H$
!
#CODETOPARAMS#
!
#PARAMSTOCODE#
!
N$= get(NAAM)
W$= get(WIDTH)  ;W=build(W$)
H$= get(HEIGHT) ;H=build(H$)
!
if W<1 then 
  W$="001"
endif
if H<1 then
  H$="000"
endif
!
if len(W$)>3 then
  W$="999"
endif
if len(H$)>3 then
  H$="999"
endif
loop
  exitif len(W$)=3
  W$="0"&W$
endloop
loop
  exitif len(H$)=3
  H$="0"&H$
endloop
!
C$= N$&"-"&W$&"x"&H$
set "NAAM" N$
set "WIDTH"  W$
set "HEIGHT" H$
set "CODE" C$
!
#PARAMSTOCODE#
!
#ADDNEWCODE#
!
C$= get(CODE)
Dir$= get("LIBPATH")
W$= ""
H$= ""
!
P2= findstr(C$,"x")
N$= C$[1,11]
W$= C$[13,P2-1];W= build(W$);W$= W
H$= C$[P2+1,0];H= build(H$);H$= H
D$= "Vuren "&W$&"x"&H$
!
if empty_string(N$) then exit
if W<1 then exit
if H<1 then exit
!
W= W$
H= H$
SEC_WEIGHT= ((W*H)/1000000)*450
SEC_WEIGHT$= SEC_WEIGHT:N?.4
!
IdD= 1
IdP= 2
!
Path$= Dir$&"d_PROFDATA"
dbopen(IdD) Path$,1
Path$= Dir$&"d_PROFPAR"
dbopen(IdP) Path$,1
!
if dbvalid(IdD) < 1  || dbvalid(IdP) < 1 then
  dbclose(IdD)
  dbclose(IdP)
  exit
endif
!
RidP= dbaddrow(IdP,1,"CODE",C$)
dbputf(IdP) RidP,"WIDTH",W$
dbputf(IdP) RidP,"HEIGHT",H$
!
RidD= dbaddrow(IdD,1,"CODE",C$)
dbputf(IdD) RidD,"DESCRIPTION",D$
dbputf(IdD) RidD,"ACCURATE","RECTAN"
dbputf(IdD) RidD,"COARSE","RECTAN"
dbputf(IdD) RidD,"SEC_WEIGHT",SEC_WEIGHT$
!
if RidP < 0 || RidD < 0 then 
  dbdelrow(IdD) RidD
  dbdelrow(IdP) RidP
else
  set RETURN "1"
endif
!
dbclose(IdD)
dbclose(IdP)
!
#ADDNEWCODE#
!
