þÿ u s e " x c o n t r o l . v f r a m e . v b u s i n e s s . v d "
|
u s e " x b a s e . v f r a m e . v b u s i n e s s . v d "
|
u s e " b a s e . v i e w . v d "
|
|
u n i t t r a d e
|
[
|
c l a s s R e i m b u r s e m e n t M a i n t : p u b l i c x f r a m e
|
{
|
x d w t a b l e d w _ b a s e ;
|
x d w g r i d d w _ l i s t ;
|
x d w t a b l e d w _ i t e m ;
|
x m l f i e l d s ;
|
x n o d e m _ a g e n t N o d e ; / / A g e n t C o n d i t i o n
|
s t r i n g i d ;
|
i n t h O b j e c t = 0 ;
|
|
i n t S e t A g e n t ( )
|
{
|
s t r i n g x f N o d e A g e n t A r e a = " a g e n t a r e a " ;
|
x n o d e a n o d e = G e t A g e n t N o d e ( x f N o d e A g e n t A r e a ) ;
|
i f ( m _ a g e n t N o d e )
|
{
|
S e t A g e n t N o d e C o n t e n t ( a n o d e , m _ a g e n t N o d e ) ;
|
}
|
e l s e
|
{
|
m s x m l : : I X M L D O M E l e m e n t x f r a m e E l e m e n t = G e t E l e m e n t ( ) ;
|
m s x m l : : I X M L D O M E l e m e n t a g e n t = x f r a m e E l e m e n t . s e l e c t S i n g l e N o d e ( " a g e n t / " + x f N o d e A g e n t A r e a + " [ 1 ] / * " ) ;
|
i f ( a g e n t )
|
{
|
s t r i n g s = a g e n t . x m l ;
|
m _ a g e n t N o d e = S e t A g e n t N o d e C o n t e n t ( a n o d e , s ) ;
|
}
|
}
|
r e t u r n 1 ;
|
}
|
|
/ /q&p¹oÀm;YtQýep
|
i n t O n S e t F o c u s ( r e f T E v e n t e v t , i n t p a r a m )
|
{
|
/ /Ín]åQwga
|
/ / S e t A g e n t ( ) ;
|
r e t u r n 1 ;
|
}
|
|
i n t O n S a v e ( )
|
{
|
d w _ b a s e . A c c e p t T e x t ( ) ;
|
d w _ l i s t . A c c e p t T e x t ( ) ;
|
|
x m l x = n e w x m l ;
|
x . s e t N a t i v e P o i n t e r ( x m l : : C r e a t e I n s t a n c e ( ) ) ;
|
x m l x 1 = n e w x m l ;
|
x 1 . s e t N a t i v e P o i n t e r ( x m l : : C r e a t e I n s t a n c e ( ) ) ;
|
x a s e r v e r a r g a r g = n e w x a s e r v e r a r g ;
|
a r g . s e t N a t i v e P o i n t e r ( a r g . C r e a t e I n s t a n c e ( ) ) ;
|
d w _ l i s t . D w U p d a t e A l l T o E x ( x . G e t X m l D o c ( ) ) ;
|
d w _ b a s e . D w U p d a t e A l l T o ( x 1 . G e t X m l D o c ( ) ) ;
|
|
t r a c e ( x 1 . G e t X m l ( ) ) ;
|
/ / r e t u r n 1 ;
|
|
s t r i n g e r r o r = " " ;
|
a r g . A d d A r g ( " c o n t e n t " , x 1 . G e t X m l ( ) ) ;
|
i f ( u r l : : g e t ( " / s a l e / d a t a / e x p e n s e 3 / u p d a t e / R e i m b u r s e m e n t B a s e " , a r g . G e t S t r i n g ( ) , x 1 ) ! = 1 )
|
{
|
e r r o r = x 1 . G e t X m l D o c ( ) . t e x t ;
|
a l e r t ( e r r o r ) ;
|
}
|
e l s e
|
{
|
s t r i n g s t r 1 = x 1 . G e t X m l D o c ( ) . d o c u m e n t E l e m e n t . g e t A t t r i b u t e ( " t e x t " ) ;
|
i f ( s t r 1 = = " t r u e " )
|
{
|
/ / d w _ l i s t . R e s e t U p d a t e S t a t u s ( ) ;
|
d w _ b a s e . R e s e t U p d a t e S t a t u s ( ) ;
|
/ / a l e r t ( "OÝ[XbR ! " ) ;
|
}
|
e l s e
|
{
|
a l e r t ( "OÝ[XY1% ! " ) ;
|
}
|
}
|
a r g . A d d A r g ( " c o n t e n t " , x . G e t X m l ( ) ) ;
|
i f ( u r l : : g e t ( " / s a l e / d a t a / e x p e n s e 3 / u p d a t e / R e i m b u r s e m e n t " , a r g . G e t S t r i n g ( ) , x ) ! = 1 )
|
{
|
e r r o r = x . G e t X m l D o c ( ) . t e x t ;
|
a l e r t ( e r r o r ) ;
|
}
|
e l s e
|
{
|
s t r i n g s t r = x . G e t X m l D o c ( ) . d o c u m e n t E l e m e n t . g e t A t t r i b u t e ( " t e x t " ) ;
|
i f ( s t r = = " t r u e " )
|
{
|
d w _ l i s t . R e s e t U p d a t e S t a t u s ( ) ;
|
/ / d w _ b a s e . R e s e t U p d a t e S t a t u s ( ) ;
|
a l e r t ( "OÝ[XbR ! " ) ;
|
w i n 3 2 : : S e n d M e s s a g e ( h O b j e c t , 0 x 4 0 1 , " x m R e f r e s h " , 0 ) ;
|
C l o s e W i n d o w ( ) ;
|
}
|
e l s e
|
{
|
a l e r t ( "OÝ[XY1% ! " ) ;
|
}
|
}
|
r e t u r n 1 ;
|
}
|
|
/ /æSÑ hy»_ T t r a nNNöÿ Çgåb~gÐN*SÂep_R0[ù^vR
|
i n t O n B a s e I t e m C h a n g e d ( r e f T N o t i f y E v e n t e v t , i n t p )
|
{
|
r e f D W N M H D R h d r = t r u s t ( e v t . p n m h a s r e f D W N M H D R ) ;
|
s t r i n g c o l n a m e = h d r . c o l n a m e ;
|
s t r i n g v a l u e = h d r . d a t a ;
|
|
s t r i n g d w n a m e = " d w _ b a s e " ;
|
i f ( v a l u e ! = " " )
|
{
|
m s x m l : : I X M L D O M N o d e L i s t n l i s t = G e t E l e m e n t ( ) . s e l e c t N o d e s ( " / / * [ @ n a m e = ' " + d w n a m e + " ' ] / t r a n s [ @ f o r = ' " + c o l n a m e + " ' ] " ) ;
|
V i e w O b j e c t : : T r a n s D a t a ( n l i s t , d w _ b a s e , h d r . r o w , c o l n a m e , v a l u e ) ;
|
}
|
|
r e t u r n 1 ;
|
}
|
|
/ * i f ( f i e l d s )
|
{
|
i f ( f i e l d s . G e t X m l D o c ( ) . s e l e c t S i n g l e N o d e ( " / d a t a / F i e l d / F i e l d N a m e [ . = ' " + c o l n a m e + " ' ] " ) )
|
{
|
m s x m l : : I X M L D O M N o d e L i s t i t e m s = f i e l d s . G e t X m l D o c ( ) . s e l e c t N o d e s ( " / d a t a / F i e l d / F i e l d N a m e " ) ;
|
i n t l e n = i t e m s . l e n g t h ;
|
d o u b l e a m t = 0 ;
|
f o r ( i n t i = 0 ; i < l e n ; i + + )
|
{
|
i f ( d w _ i t e m . G e t I t e m S t r i n g ( 1 , i t e m s . i t e m ( i ) . t e x t ) ! = " " )
|
{
|
a m t + = d w _ i t e m . G e t I t e m D o u b l e ( 1 , i t e m s . i t e m ( i ) . t e x t ) ;
|
}
|
}
|
d w _ i t e m . S e t I t e m D o u b l e ( 1 , " A m o u n t " , a m t ) ;
|
}
|
} * /
|
|
|
/ /T}NäSÑ^Qýep
|
i n t O n C m d D i s p a t c h ( s t r i n g c o m d i d )
|
{
|
i f ( c o m d i d = = " x m A d d R o w " )
|
{
|
i n t r o w = d w _ l i s t . G e t R o w C o u n t ( ) ;
|
d w _ l i s t . I n s e r t R o w ( 0 ) ;
|
/ / i d = p u b l i c c o d e : : G e t G u i d ( ) ;
|
d w _ l i s t . S e t I t e m S t r i n g ( r o w + 1 , " R e i m b u r s e m e n t B a s e I D " , i d ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = " x m D e l e t e R o w " )
|
{
|
d w _ l i s t . D e l e t e R o w ( 0 ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = " x m C l o s e " )
|
{
|
C l o s e W i n d o w ( ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = " x m S a v e " )
|
{
|
O n S a v e ( ) ;
|
r e t u r n 1 ;
|
}
|
r e t u r n 0 ;
|
}
|
|
/ /T}NäYtNNö
|
i n t O n X C o m m a n d ( r e f T X C o m m a n d E v e n t e v t , i n t p a r a m )
|
{
|
r e t u r n O n C m d D i s p a t c h ( e v t . p S t r I D ) ;
|
}
|
|
i n t O n A t t a c h E v e n t ( )
|
{
|
/ /~Ñ[]åQwgap¹QûNNö
|
A t t a c h E v e n t ( " W M _ X C O M M A N D " , O n X C o m m a n d ) ;
|
/ /·SÖq&p¹NNöÿ u(NÍn]åQwga
|
A t t a c h E v e n t ( " W M _ S E T F O C U S " , O n S e t F o c u s ) ;
|
A t t a c h E v e n t ( " d w _ b a s e " , " D W V _ I T E M C H A N G E D " , O n B a s e I t e m C h a n g e d ) ;
|
}
|
|
i n t O n R e t r i e v e ( s t r i n g R e i m b u r s e m e n t B a s e I D )
|
{
|
|
x m l x = n e w x m l ;
|
x . s e t N a t i v e P o i n t e r ( x m l : : C r e a t e I n s t a n c e ( ) ) ;
|
x a s e r v e r a r g a r g = n e w x a s e r v e r a r g ;
|
a r g . s e t N a t i v e P o i n t e r ( a r g . C r e a t e I n s t a n c e ( ) ) ;
|
a r g . A d d A r g ( " R e i m b u r s e m e n t B a s e I D " , R e i m b u r s e m e n t B a s e I D ) ;
|
i f ( g e t U r l ( " / s a l e / d a t a / E x p e n s e 3 / v i e w / R e i m b u r s e m e n t B y I D " , a r g . G e t S t r i n g ( ) , x ) ! = 1 )
|
{
|
t r a c e ( x . G e t X m l D o c ( ) . t e x t ) ;
|
r e t u r n - 1 ;
|
}
|
e l s e
|
{
|
d w _ b a s e . R e t r i e v e ( x ) ;
|
d w _ b a s e . R e d r a w ( ) ;
|
d w _ l i s t . R e t r i e v e ( x ) ;
|
d w _ l i s t . R e d r a w ( ) ;
|
}
|
r e t u r n 1 ;
|
}
|
|
|
i n t o n l o a d ( )
|
{
|
d w _ b a s e = G e t C o n t r o l ( " d w _ b a s e " ) ;
|
d w _ b a s e . o p e n U r l ( " / s a l e / v i e w / E x p e n s e 3 / r e i m b u r s e m e n t / b a s e " ) ;
|
|
d w _ b a s e . S e t C o l H e a d e r H e i g h t ( 0 ) ;
|
d w _ b a s e . S e t R o w S e l e c t o r W i d t h ( 0 ) ;
|
d w _ b a s e . S e t H S c r o l l S t a t e ( f a l s e ) ;
|
d w _ b a s e . S e t V S c r o l l S t a t e ( f a l s e ) ;
|
|
/ / d w _ b a s e . S e t R e a d O n l y ( t r u e ) ;
|
/ /_R0g:u bh I d
|
i d = p u b l i c c o d e : : G e t G u i d ( ) ;
|
/ /_R0_SRMeöô
|
s t r i n g s d a t e = p u b l i c c o d e : : G e t C u r r e n t D a t e ( ) ;
|
d w _ b a s e . S e t I t e m S t r i n g ( 1 , " C r e a t e D a t e " , s d a t e ) ;
|
/ /_R0_SRMv{_Uu(b7 I D
|
s t r i n g s u s e r i d = p u b l i c c o d e : : G e t U s e r ( ) . i d ;
|
s t r i n g s u s e r n a m e = p u b l i c c o d e : : G e t U s e r ( ) . n a m e ;
|
d w _ b a s e . S e t I t e m S t r i n g ( 1 , " C r e a t o r I D " , s u s e r i d ) ;
|
d w _ b a s e . S e t I t e m D i s p l a y S t r i n g ( 1 , " C r e a t o r I D " , s u s e r n a m e ) ;
|
d w _ b a s e . S e t I t e m S t r i n g ( 1 , " R e i m b u r s e m e n t B a s e I D " , i d ) ;
|
/ / a l e r t ( s d a t e ) ;
|
O n A t t a c h E v e n t ( ) ;
|
|
d w _ l i s t = G e t C o n t r o l ( " d w _ l i s t " ) ;
|
d w _ l i s t . o p e n U r l ( " / s a l e / v i e w / E x p e n s e 3 / r e i m b u r s e m e n t / i t e m " ) ;
|
d w _ l i s t . I n s e r t R o w ( 0 ) ;
|
d w _ l i s t . S e t I t e m S t r i n g ( 1 , " R e i m b u r s e m e n t B a s e I D " , i d ) ;
|
|
d w _ l i s t . S e t C o l u m n S t a t e ( " R e i m b u r s e m e n t B a s e I D " , f a l s e ) ;
|
d w _ l i s t . S e t C o l u m n S t a t e ( " R B I t e m I D " , f a l s e ) ;
|
|
i f ( G e t P a r a m ( ) )
|
{
|
x a s e r v e r a r g a r g = G e t P a r a m ( ) ;
|
i d = a r g . G e t A r g S t r i n g ( " R e i m b u r s e m e n t B a s e I D " ) ;
|
h O b j e c t = a r g . G e t A r g S t r i n g ( " H W N D " ) . t o I n t ( ) ;
|
O n R e t r i e v e ( a r g . G e t A r g S t r i n g ( " R e i m b u r s e m e n t B a s e I D " ) ) ;
|
}
|
|
r e t u r n 1 ;
|
}
|
|
i n t o n l o a d e d ( )
|
{
|
/ / S e t A g e n t ( ) ;
|
|
r e t u r n 1 ;
|
}
|
} ;
|
]
|
