þÿ # i n c l u d e < w o b j e c t / x s t r i n g . h p p >
|
# i n c l u d e < x c o n t r o l / x t r e e v i e w . h p p >
|
# i n c l u d e < x c o n t r o l / x d w g r i d . h p p >
|
# i n c l u d e < w o b j e c t / x d o u b l e . h p p >
|
# i n c l u d e < x c o n t r o l / x l a y e r s h e e t . h p p >
|
# i n c l u d e < x c o n t r o l / x d a t e t i m e p i c k . h p p >
|
|
# i n c l u d e " v b u s i n e s s / v f r a m e / l i s t w i n . v f r a m e . v b u s i n e s s . h p p "
|
# i n c l u d e " v i e w o b j e c t / v i e w . b a s e . h p p "
|
|
u s i n g x m l = K X M L D O M D o c u m e n t ;
|
c l a s s _ _ d e c l s p e c ( d l l e x p o r t ) S a m p l e R e q u e s t F o r m L i s t : p u b l i c x f r a m e
|
{
|
p u b l i c :
|
x d w g r i d d w _ l i s t ;
|
|
x d a t e t i m e p i c k s d a t e ;
|
x d a t e t i m e p i c k e d a t e ;
|
|
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
|
p u b l i c :
|
S a m p l e R e q u e s t F o r m L i s t ( v o i d * i m p l P t r , H W N D h W n d ) : x f r a m e ( i m p l P t r , h W n d ) { }
|
p u b l i c :
|
s t a t i c S a m p l e R e q u e s t F o r m L i s t * C r e a t e I n s t a n c e ( v o i d * i m p l P t r , v o i d * h W n d )
|
{
|
S a m p l e R e q u e s t F o r m L i s t * p W i n = n e w S a m p l e R e q u e s t F o r m L i s t ( i m p l P t r , ( H W N D ) h W n d ) ;
|
r e t u r n p W i n ;
|
}
|
# i f 0
|
|
|
|
i n t S e t A g e n t ( )
|
{
|
x s t r i n g x f N o d e A g e n t A r e a = L " 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 ( a n o d e , m _ a g e n t N o d e ) ;
|
}
|
e l s e
|
{
|
K 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 ( ) ;
|
K 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 ( L " a g e n t / " + x f N o d e A g e n t A r e a + L " [ 1 ] / * " ) ;
|
i f ( a g e n t )
|
{
|
x 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 ( a n o d e , s ) ;
|
}
|
}
|
r e t u r n 1 ;
|
}
|
# e n d i f / / 0
|
/ /q&p¹oÀm;YtQýep
|
i n t O n S e t F o c u s ( T E v e n t * e v t , L P A R A M p a r a m )
|
{
|
/ /Ín]åQwga
|
/ / S e t A g e n t ( ) ;
|
S e t A g e n t ( L " l i s t " , G e t E n t i t y I D ( 1 ) ) ;
|
r e t u r n 1 ;
|
}
|
|
x s t r i n g G e t E n t i t y N a m e ( L P A R A M p r )
|
{
|
r e t u r n L " S a m p l e R e q u e s t " ;
|
}
|
|
x s t r i n g G e t E n t i t y I D ( L P A R A M p r )
|
{
|
i n t r o w = d w _ l i s t . G e t R o w ( ) ;
|
x s t r i n g i d = d w _ l i s t . G e t I t e m S t r i n g ( r o w , L " R e q u e s t I D " ) ;
|
r e t u r n i d ;
|
}
|
|
i n t P r o c e s s U s e d A r g ( x a s e r v e r a r g a r g )
|
{
|
x s t r i n g E n t i t y I D L i s t = L " " ;
|
i n t l l _ r o w = d w _ l i s t . G e t N e x t S e l e c t R o w ( 1 ) ;
|
w h i l e ( l l _ r o w > 0 & & l l _ r o w < = d w _ l i s t . G e t R o w C o u n t ( ) )
|
{
|
x s t r i n g i d = d w _ l i s t . G e t I t e m S t r i n g ( l l _ r o w , L " R e q u e s t I D " ) ;
|
i f ( E n t i t y I D L i s t = = L " " ) E n t i t y I D L i s t = i d ; e l s e E n t i t y I D L i s t + = L " , " + i d ;
|
l l _ r o w = d w _ l i s t . G e t N e x t S e l e c t R o w ( l l _ r o w + 1 ) ;
|
}
|
i f ( E n t i t y I D L i s t ! = L " " ) a r g . A d d A r g ( L " E n t i t y I D " , E n t i t y I D L i s t ) ;
|
r e t u r n 1 ;
|
}
|
|
|
i n t O n R o w C h a n g e d ( T E v e n t * e v t , L P A R A M p )
|
{
|
D W N M H D R & h d r = * ( D W N M H D R * ) e v t - > n o t i f y . p n m h ;
|
i n t r o w = h d r . r o w ;
|
S e t A g e n t ( L " l i s t " , d w _ l i s t . G e t I t e m S t r i n g ( r o w , L " R e q u e s t I D " ) ) ;
|
r e t u r n 1 ;
|
}
|
|
/ /T}NäSÑ^Qýep
|
i n t O n C m d D i s p a t c h ( x s t r i n g c o m d i d )
|
{
|
i f ( c o m d i d = = L " x m S e a r c h " )
|
{
|
O n R e t r i e v e ( ) ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . n e w " | | c o m d i d = = L " x m A d d " )
|
{
|
x a s e r v e r a r g a r g ;
|
|
a r g . A d d A r g ( L " H W N D " , x s t r i n g ( ( _ _ i n t 6 4 ) G e t H W N D ( ) ) ) ;
|
a r g . A d d A r g ( L " A p p r o v e S t a t u s " , L "e°^ú " ) ;
|
O p e n W i n d o w ( L " d e v : x p a g e [ m a i n t . s a m p l e s e q u e s t . v x ] " , a r g ) ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . o p e n " | | c o m d i d = = L " x m E d i t " )
|
{
|
i f ( d w _ l i s t . G e t R o w ( ) < 1 )
|
r e t u r n 0 ;
|
x a s e r v e r a r g a r g ;
|
|
x s t r i n g R e q u e s t I D = d w _ l i s t . G e t G u i d ( d w _ l i s t . G e t R o w ( ) ) ;
|
x s t r i n g A p p r o v e S t a t u s = d w _ l i s t . G e t I t e m S t r i n g ( d w _ l i s t . G e t R o w ( ) , L " A p p r o v e S t a t u s " ) ;
|
a r g . A d d A r g ( L " R e q u e s t I D " , R e q u e s t I D ) ;
|
a r g . A d d A r g ( L " A p p r o v e S t a t u s " , A p p r o v e S t a t u s ) ;
|
a r g . A d d A r g ( L " H W N D " , x s t r i n g ( ( _ _ i n t 6 4 ) G e t H W N D ( ) ) ) ;
|
O p e n W i n d o w ( L " d e v : x p a g e [ m a i n t . s a m p l e s e q u e s t . v x ] " , a r g ) ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . d e l e t e " | | c o m d i d = = L " x m D e l e t e " )
|
{
|
i f ( d w _ l i s t . G e t R o w ( ) < 1 )
|
r e t u r n 0 ;
|
x s t r i n g E n t i t y I D = d w _ l i s t . G e t G u i d ( d w _ l i s t . G e t R o w ( ) ) ;
|
i n t M B _ O K C A N C E L = 1 ;
|
i n t I D O K = 1 ;
|
i n t r e t = M e s s a g e B o x ( G e t H W N D ( ) , L "xn¤R dh7TÁ lBSU ? " , L "cÐy: " , M B _ O K C A N C E L ) ;
|
i f ( r e t = = I D O K )
|
{
|
V i e w O b j e c t : : R e t r i e v e D a t a ( L " / s a l e / d a t a / e x p e n s e 3 / d e l e t e / s a m p l e R e q u e s t " , L " E n t i t y I D " , E n t i t y I D ) ;
|
O n R e t r i e v e ( ) ;
|
}
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . r e f r e s h " | | c o m d i d = = L " x m R e f r e s h " )
|
{
|
O n R e t r i e v e ( ) ;
|
}
|
e l s e i f ( c o m d i d = = L " x m S a v e A s " )
|
{
|
x s t r i n g u s e r n o = p u b l i c c o d e : : G e t U s e r ( ) . n o ;
|
i f ( u s e r n o = = L " 0 0 6 0 1 " | | u s e r n o = = L " 0 0 7 0 1 " | | u s e r n o = = L " 0 0 6 0 3 " | | u s e r n o = = L " a d m i n " )
|
{
|
d w _ l i s t . S a v e A s ( L " " ) ;
|
}
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . R e m a r k s " )
|
{
|
O n S o u r c e R e m a r k ( ) ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . D o c u m e n t " )
|
{
|
x a s e r v e r a r g a r g 5 ;
|
|
x s t r i n g g u i d = d w _ l i s t . G e t G u i d ( d w _ l i s t . G e t R o w ( ) ) ;
|
x s t r i n g A p p r o v e S t a t u s 5 = d w _ l i s t . G e t I t e m S t r i n g ( d w _ l i s t . G e t R o w ( ) , L " A p p r o v e S t a t u s " ) ;
|
|
a r g 5 . A d d A r g ( L " e n t i t y i d " , g u i d ) ;
|
a r g 5 . A d d A r g ( L " A p p r o v e S t a t u s " , A p p r o v e S t a t u s 5 ) ;
|
|
|
O p e n W i n d o w ( L " d e v : x p a g e [ m a i n t . D o c u m e n t . S a m p l e R e q u e s t F o r m . v x ] " , a r g 5 ) ;
|
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . S u p p l i e r e n " )
|
{
|
x a s e r v e r a r g a r g 2 ;
|
|
a r g 2 . A d d A r g ( L " E n t i t y I D " , L " " ) ;
|
O p e n W i n d o w ( L " d e v : x p a g e [ m a i n t . O w n e r . S u p p l i e r . v 3 . v x ] " , a r g 2 ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . c h e c k . a s k " )
|
{
|
x s t r i n g I D = d w _ l i s t . G e t G u i d ( d w _ l i s t . G e t R o w ( ) ) ;
|
|
x m l x = V i e w O b j e c t : : R e t r i e v e D a t a ( L " / s a l e / d a t a / T D o c u m e n t 3 / a t t a c h m e n t / G e t D o c C o u n t E x _ s " , L " e n t i t y i d " , I D ) ;
|
K X M L D O M N o d e L i s t i t e m s = x . s e l e c t N o d e s ( L " d a t a / I t e m " ) ;
|
K X M L D O M N o d e t = i t e m s . i t e m ( 0 ) ;
|
i f ( t . s e l e c t S i n g l e N o d e ( L " c o u n t " ) )
|
{
|
x s t r i n g C o u n t = t . s e l e c t S i n g l e N o d e ( L " c o u n t " ) . t e x t ( ) ;
|
i f ( C o u n t . t o I n t ( ) < = 0 )
|
{
|
a l e r t ( L "g*N
|
O VþrGÿ eàlÕ[¡by ! " ) ;
|
r e t u r n 0 ;
|
}
|
}
|
|
x s t r i n g E n t i t y I D E x = d w _ l i s t . G e t G u i d ( d w _ l i s t . G e t R o w ( ) ) ;
|
|
x m l x x = V i e w O b j e c t : : R e t r i e v e D a t a ( L " / s a l e / d a t a / e x p e n s e 3 / v i e w / S a m p l e R e q u e s t F o r m J u d g e " , L " E n t i t y I D " , E n t i t y I D E x ) ;
|
x s t r i n g R e s u l t s = x x . t e x t ( ) ;
|
i f ( R e s u l t s ! = L " " )
|
{
|
a l e r t ( R e s u l t s ) ;
|
r e t u r n 0 ;
|
}
|
|
P r o c e s s F l o w A c t i o n ( L " a c t i o n : b i l l . c h e c k . a s k " , 1 ) ;
|
P o s t M e s s a g e ( G e t F r a m e W i n d o w ( ) . G e t H W N D ( ) , 0 x 4 0 1 , ( L P A R A M ) L " x m R e f r e s h " , 0 ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " a c t i o n : b i l l . c h e c k . a s k u n a g r e e " )
|
{
|
|
P r o c e s s F l o w A c t i o n ( L " a c t i o n : b i l l . c h e c k . a s k u n a g r e e " , 1 ) ;
|
P o s t M e s s a g e ( G e t F r a m e W i n d o w ( ) . G e t H W N D ( ) , 0 x 4 0 1 , ( L P A R A M ) L " x m R e f r e s h " , 0 ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " x m A n a l y s i s " )
|
{
|
H C U R S O R h C u r s o r = x u t i l : : S e t C u r s o r W a i t ( ) ;
|
x s t r i n g s t r = d w _ l i s t . D a t a A n a l y s i s ( L " " ) ;
|
x a s e r v e r a r g a r g 0 ;
|
|
a r g 0 . A d d A r g ( L " h t m l " , s t r ) ;
|
|
O p e n W i n d o w ( L " d e v : x p a g e [ d a t a . v a n a l y s i s . v x ] " , a r g 0 ) ;
|
x u t i l : : R e s t o r e C u r s o r ( h C u r s o r ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d . f i n d ( L " a c t i o n : " , 0 ) > = 0 )
|
{
|
i f ( d w _ l i s t . G e t R o w ( ) < 1 )
|
r e t u r n 0 ;
|
i n t r e t 1 = P r o c e s s F l o w A c t i o n ( c o m d i d , 1 ) ;
|
/ * i f ( c o m d i d = = L " a c t i o n : b i l l . c h e c k . a s k " )
|
{
|
/ / o n D o c u m e n t ( ) ;
|
w i n 3 2 : : P o s t M e s s a g e ( G e t F r a m e W i n d o w ( ) . G e t H W N D ( ) , 0 x 4 0 1 , L " x m R e f r e s h " , 0 ) ;
|
} * /
|
r e t u r n r e t 1 ;
|
}
|
r e t u r n 0 ;
|
}
|
|
|
|
|
i n t O n S o u r c e R e m a r k ( )
|
{
|
|
x m l x = V i e w O b j e c t : : R e t r i e v e D a t a ( L " / s a l e / d a t a / T r a d e F i n a n c e 3 / G e t S e t U p R e m a r k s " , L " T y p e " , L "h7TÁ lBSU " ) ;
|
K X M L D O M N o d e L i s t i t e m s = x . s e l e c t N o d e s ( L " d a t a / I t e m " ) ;
|
K X M L D O M N o d e t = i t e m s . i t e m ( 0 ) ;
|
x s t r i n g C o n t e n t = L " " ;
|
i f ( t . s e l e c t S i n g l e N o d e ( L " C o n t e n t " ) )
|
{
|
C o n t e n t = t . s e l e c t S i n g l e N o d e ( L " C o n t e n t " ) . t e x t ( ) ;
|
}
|
|
x a s e r v e r a r g a r g 1 ;
|
|
/ / a r g 1 . A d d A r g ( L " v a l u e " , L "ÿh7TÁ9Ñ\N 2 0 0QCÿ \ r \ n NR¡SÑw -Ç-XkQ -Ç-~ÄÇ -Ç-~ÏtÇ -NR¡TXÇ -NR¡N;{¡Ç -b_`; \ r \ n \ nÿh7TÁ9ÑY'N{IN 2 0 0QCÿ \ r \ n NR¡SÑw -Ç-XkQ -Ç-~ÄÇ -Ç-~ÏtÇ -NR¡TXÇ -NR¡N;{¡Ç -_`;Ç \ r \ n \ n"R¡b¥ lB :9u(e/NØ W(9u([¡byÇNKTÿ eéNmAz SSòN-[¡byÇeöô ,9u(N [Wb¥ " ) ;
|
a r g 1 . A d d A r g ( L " v a l u e " , C o n t e n t ) ;
|
O p e n W i n d o w ( L " d e v : x p a g e [ m e m o . e d i t . n e w . v x ] " , a r g 1 ) ;
|
r e t u r n 1 ;
|
}
|
|
i n t O n D o u b l e C l i c k e d ( T E v e n t * e v t , L P A R A M p )
|
{
|
D W N M H D R & h d r = * ( D W N M H D R * ) e v t - > n o t i f y . p n m h ;
|
x s t r i n g c o l n a m e = h d r . c o l n a m e ;
|
i n t r o w = h d r . r o w ;
|
H C U R S O R h C u r s o r = x u t i l : : S e t C u r s o r W a i t ( ) ;
|
x a s e r v e r a r g a r g ;
|
|
x s t r i n g R e q u e s t I D = d w _ l i s t . G e t G u i d ( r o w ) ;
|
x s t r i n g A p p r o v e S t a t u s = d w _ l i s t . G e t I t e m S t r i n g ( r o w , L " A p p r o v e S t a t u s " ) ;
|
a r g . A d d A r g ( L " R e q u e s t I D " , R e q u e s t I D ) ;
|
a r g . A d d A r g ( L " A p p r o v e S t a t u s " , A p p r o v e S t a t u s ) ;
|
O p e n W i n d o w ( L " d e v : x p a g e [ m a i n t . s a m p l e s e q u e s t . v x ] " , a r g ) ;
|
x u t i l : : R e s t o r e C u r s o r ( h C u r s o r ) ;
|
r e t u r n 1 ;
|
}
|
/ /T}NäYtNNö
|
i n t O n X C o m m a n d ( T E v e n t * e v t , L P A R A M 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 - > x c o m m a n d . 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 ( L " W M _ X C O M M A N D " , ( F E v e n t ) & S a m p l e R e q u e s t F o r m L i s t : : 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 ( L " W M _ S E T F O C U S " , ( F E v e n t ) & S a m p l e R e q u e s t F o r m L i s t : : O n S e t F o c u s ) ;
|
A t t a c h E v e n t ( L " d w _ l i s t " , L " D W V _ D O U B L E C L I C K E D " , ( F E v e n t ) & S a m p l e R e q u e s t F o r m L i s t : : O n D o u b l e C l i c k e d ) ;
|
A t t a c h E v e n t ( L " d w _ l i s t " , L " D W V _ R O W F O C U S C H A N G E D " , ( F E v e n t ) & S a m p l e R e q u e s t F o r m L i s t : : O n R o w C h a n g e d ) ;
|
r e t u r n 1 ;
|
}
|
|
|
i n t O n R e t r i e v e ( )
|
{
|
x m l x ;
|
|
x a s e r v e r a r g a r g ;
|
|
x s t r i n g s d a t e t x t = L " " ;
|
x s t r i n g e d a t e t x t = L " " ;
|
i f ( s d a t e . I s C h e c k e d ( ) )
|
s d a t e t x t = s d a t e . G e t T e x t ( ) ;
|
i f ( e d a t e . I s C h e c k e d ( ) )
|
e d a t e t x t = e d a t e . G e t T e x t ( ) ;
|
x c o n t r o l q u e r y = G e t C o n t r o l ( L " s l _ s e a r c h " ) ;
|
x s t r i n g k e y w o r d = q u e r y . G e t T e x t ( ) ;
|
a r g . A d d A r g ( L " k e y w o r d " , k e y w o r d ) ;
|
a r g . A d d A r g ( L " s d a t e " , s d a t e t x t ) ;
|
a r g . A d d A r g ( L " e d a t e " , e d a t e t x t ) ;
|
H C U R S O R h C u r s o r = x u t i l : : S e t C u r s o r W a i t ( ) ;
|
i f ( g e t U r l ( L " / s a l e / d a t a / e x p e n s e 3 / v i e w / s a p l e R e q u e s t L i s t " , a r g . G e t S t r i n g ( ) , x ) ! = 1 )
|
{
|
t r a c e ( x . t e x t ( ) ) ;
|
r e t u r n - 1 ;
|
}
|
e l s e
|
{
|
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 ( ) ;
|
d w _ l i s t . S e t R e a d O n l y ( t r u e ) ;
|
}
|
x u t i l : : R e s t o r e C u r s o r ( h C u r s o r ) ;
|
r e t u r n 1 ;
|
}
|
|
|
i n t o n l o a d ( )
|
{
|
|
s d a t e = G e t C o n t r o l ( L " s d a t e " ) ;
|
e d a t e = G e t C o n t r o l ( L " e d a t e " ) ;
|
d w _ l i s t = G e t C o n t r o l ( L " d w _ l i s t " ) ;
|
d w _ l i s t . o p e n U r l ( L " / s a l e / v i e w / e x p e n s e 3 / S a m p l e R e q u e s t / l i s t " ) ;
|
x s t r i n g c u r r 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 _ l i s t . S e t C o l u m n S t a t e ( L " R e q u e s t I D " , f a l s e ) ;
|
|
i n t c u r r y e a r = c u r r d a t e . m i d ( 0 , 4 ) . t o I n t ( ) ;
|
s d a t e . S e t D a t e t i m e ( c u r r y e a r - 1 , 1 , 1 ) ;
|
O n A t t a c h E v e n t ( ) ;
|
O n R e t r i e v e ( ) ;
|
d w _ l i s t . S e t R e a d O n l y ( t r u e ) ;
|
r e t u r n 1 ;
|
}
|
|
i n t o n l o a d e d ( )
|
{ / *
|
i f ( d w _ l i s t . G e t R o w C o u n t > 0 )
|
S e t A g e n t ( L " l i s t " , G e t E n t i t y I D ( 1 ) ) ;
|
e l s e * /
|
S e t A g e n t ( L " l i s t " , d w _ l i s t . G e t I t e m S t r i n g ( 1 , L " R e q u e s t I D " ) ) ;
|
r e t u r n 1 ;
|
}
|
|
} ;
|
