ÿþ- - [ [
|
x:
|
Tðy:
|
\Oÿ
|
åe gÿ2 0 2 4 - 1 1 - 2 5
|
|
ýQpeÿ I m p o r t
|
Rý:
|
|
ôf9e°U_:
|
|
- - ] ]
|
|
j s o n = r e q u i r e ( " j s o n " )
|
m o b o x = r e q u i r e ( " O I L u a _ J a v e l i n E x t " )
|
m 3 = r e q u i r e ( " o i _ b a s e _ m o b o x " )
|
|
f u n c t i o n I m p o r t ( s t r L u a D E I D )
|
l o c a l n R e t , s t r R e t I n f o
|
- - ·ÖSü[eQvpenc, ÔÞV [ { " a t t r " : " x x " , " v a l u e " : " " } , . . . ]
|
l o c a l r o w _ d a t a = { }
|
n R e t , r o w _ d a t a = m 3 . G e t S y s D a t a J s o n ( s t r L u a D E I D )
|
i f ( n R e t ~ = 0 o r s t r R e t I n f o = = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , " àeÕl·ÖSireü[eQpenc! " ) e n d
|
|
l u a . D e b u g ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , ' r o w _ d a t a ' , r o w _ d a t a )
|
|
l o c a l r o w _ a t t r s
|
l o c a l n , n C o u n t , n V a l u e , n R o w s
|
n R o w s = # r o w _ d a t a
|
i f ( n R o w s = = 0 ) t h e n r e t u r n e n d
|
|
- - NNsQ.^\'`
|
l o c a l s t r I t e m C o d e = ' '
|
l o c a l s t r I t e m N a m e = ' '
|
l o c a l s t r A r e a C o d e = ' '
|
l o c a l s t r I s Y z = ' '
|
l o c a l s t r I s H w = ' '
|
l o c a l s t r I s B w = ' '
|
l o c a l s t r Z l = ' '
|
l o c a l s t r X l = ' '
|
l o c a l m a t e r i a l = { }
|
|
- - ek¤1 ·ÖSÎNe x c e l ü[eQv NLpenc
|
f o r r o w = 1 , n R o w s d o
|
r o w _ a t t r s = r o w _ d a t a [ r o w ]
|
n C o u n t = # r o w _ a t t r s
|
s t r I t e m C o d e = ' '
|
s t r I t e m N a m e = ' '
|
s t r A r e a C o d e = ' '
|
s t r I s Y z = ' '
|
s t r I s H w = ' '
|
s t r I s B w = ' '
|
s t r Z l = ' '
|
s t r X l = ' '
|
|
- - RËYS ire ù[a
|
m a t e r i a l = m 3 . A l l o c O b j e c t ( s t r L u a D E I D , " M a t e r i a l " )
|
f o r n = 1 , n C o u n t d o
|
s t r A t t r = r o w _ a t t r s [ n ] . a t t r
|
s t r V a l u e = r o w _ a t t r s [ n ] . v a l u e
|
i f ( s t r A t t r ~ = ' ' ) t h e n
|
|
- - 9hncü[eQve x c e l R4Y TðyÛL$Re
|
- - sQ.^\'`$Re ÿYg^\'` NX[(W¥b
|
i f ( s t r A t t r = = " ire÷S" ) t h e n
|
i f ( s t r V a l u e = = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r A t t r . . " Ný:Nzz! " ) e n d
|
s t r I t e m C o d e = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " ire Tðy" ) t h e n
|
i f ( s t r V a l u e = = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r A t t r . . " Ný:Nzz! " ) e n d
|
s t r I t e m N a m e = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " |e^:S" ) t h e n
|
i f ( s t r V a l u e ~ = ' JS¢' a n d s t r V a l u e ~ = ' hQ¢' a n d s t r V a l u e ~ = ' àe' a n d s t r V a l u e ~ = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r V a l u e . . " /f*g[INv|e^:S! " ) e n d
|
i f ( s t r V a l u e = = ' ' ) t h e n s t r A r e a C o d e = ' àe' e n d
|
s t r A r e a C o d e = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " /f&TÁ" ) t h e n
|
i f ( s t r V a l u e ~ = ' Y ' a n d s t r V a l u e ~ = ' N ' a n d s t r V a l u e ~ = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r V a l u e . . " /f*g[INv{|W! " ) e n d
|
i f ( s t r V a l u e = = ' ' ) t h e n s t r A r e a C o d e = ' N ' e n d
|
s t r I s Y z = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " /f&TÝO)n" ) t h e n
|
i f ( s t r V a l u e ~ = ' Y ' a n d s t r V a l u e ~ = ' N ' a n d s t r V a l u e ~ = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r V a l u e . . " /f*g[INv{|W! " ) e n d
|
i f ( s t r V a l u e = = ' ' ) t h e n s t r A r e a C o d e = ' N ' e n d
|
s t r I s B w = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " /f&TR`)n" ) t h e n
|
i f ( s t r V a l u e ~ = ' Y ' a n d s t r V a l u e ~ = ' N ' a n d s t r V a l u e ~ = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r V a l u e . . " /f*g[INv{|W! " ) e n d
|
i f ( s t r V a l u e = = ' ' ) t h e n s t r A r e a C o d e = ' N ' e n d
|
s t r I s H w = s t r V a l u e
|
s t r C n t r C o d e = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " -N{|" ) t h e n
|
i f ( s t r V a l u e = = ' ' ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r A t t r . . " Ný:Nzz! " ) e n d
|
s t r Z l = s t r V a l u e
|
e l s e i f ( s t r A t t r = = " \{|" ) t h e n
|
s t r X l = s t r V a l u e
|
e n d
|
e n d
|
e n d
|
|
|
- - ek¤2 9hncxeg$Reü[eQvire/f&Tò]Ï~X[(W
|
- - Ygò]Ï~X[(W ÿ9hncü[eQvpencÛLÖv
|
- - Yg NX[(W Rú^
|
l o c a l a t t r s
|
l o c a l s t r C o n d i t i o n = " S _ I T E M _ C O D E = ' " . . s t r I t e m C o d e . . " ' "
|
n R e t , s t r R e t I n f o = m o b o x . e x i s t T h i s D a t a ( s t r L u a D E I D , " M a t e r i a l " , s t r C o n d i t i o n )
|
i f ( n R e t ~ = 0 ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , " (WÀhågire/f&TX[(Wöe1Y%! " . . s t r R e t I n f o ) e n d
|
|
i f ( s t r R e t I n f o = = ' y e s ' ) t h e n
|
- - ò]Ï~X[(W ÿ9hncü[eQvpencÛLÖv
|
s t r C o n d i t i o n = " S _ I T E M _ C O D E = ' " . . s t r I t e m C o d e . . " ' "
|
s t r S e t S Q L = " S _ I T E M _ N A M E = ' " . . s t r I t e m N a m e . . " ' , S _ A R E A _ C O D E = ' " . . s t r A r e a C o d e . . " ' , C _ I S _ V A L I D A T E = ' " . . s t r I s Y z . . " ' , C _ I S _ I N S U L A T E = ' " . . s t r I s B w . . " ' , C _ I S _ I S O T H E R M A L = ' " . . s t r I s H w . . " ' , S _ S U B _ T Y P E = ' " . . s t r Z l . . " ' , S _ M I N O R _ T Y P E = ' " . . s t r X l . . " ' "
|
n R e t , s t r R e t I n f o = m o b o x . u p d a t e D a t a A t t r B y C o n d i t i o n ( s t r L u a D E I D , " M a t e r i a l " , s t r C o n d i t i o n , s t r S e t S Q L )
|
i f ( n R e t ~ = 0 ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , s t r R e t I n f o ) e n d
|
e l s e
|
m a t e r i a l . i t e m _ c o d e = s t r I t e m C o d e
|
m a t e r i a l . i t e m _ n a m e = s t r I t e m N a m e
|
m a t e r i a l . a r e a _ c o d e = s t r A r e a C o d e
|
m a t e r i a l . i s _ v a l i d a t e = s t r I s Y z
|
m a t e r i a l . i s _ i n s u l a t e = s t r I s B w
|
m a t e r i a l . i s o t h e r m a l = s t r I s H w
|
m a t e r i a l . s u b _ t y p e = s t r Z l
|
m a t e r i a l . m i n o r _ t y p e = s t r X l
|
- - Rú^¹[hV
|
n R e t , s t r R e t I n f o = m 3 . C r e a t e D a t a O b j ( s t r L u a D E I D , m a t e r i a l )
|
i f ( n R e t ~ = 0 ) t h e n l u a . E r r o r ( s t r L u a D E I D , d e b u g . g e t i n f o ( 1 ) , " Rú^ire1Y%! " . . s t r R e t I n f o ) e n d
|
e n d
|
e n d
|
e n d
|
