ÿþ# 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 ) A P N e w : 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 _ 1 ;
|
x d w g r i d d w _ 3 ;
|
b o o l b s t a r t ;
|
x l a y e r s h e e t m _ l a y e r ;
|
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
|
x s t r i n g s e a r c h S t r ;
|
p u b l i c :
|
A P N e w ( 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 A P N e w * 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 )
|
{
|
A P N e w * p W i n = n e w A P N e w ( 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 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 ;
|
}
|
|
|
i n t O n S a v e ( b o o l c o n t i n u e A d d )
|
{
|
|
/ * i n t I D Y E S = 6 ;
|
i n t M B _ Y E S N O = 4 ;
|
i f ( w i n 3 2 : : M e s s a g e B o x ( G e t H W N D ( ) , L " /f&Tnx¤leQ/eØNfÆ~ ÿ" , L " Ðc:y" , M B _ Y E S N O ) ! = I D Y E S ) r e t u r n 1 ; * /
|
|
d w _ 3 . A c c e p t T e x t ( ) ;
|
x s t r i n g e r r o r ;
|
x s t r i n g s t r ;
|
x m l x ;
|
x a s e r v e r a r g a r g ;
|
|
a r g . s e t N a t i v e P o i n t e r ( x a s e r v e r a r g : : C r e a t e I n s t a n c e ( ) ) ;
|
d w _ 3 . D w U p d a t e A l l T o E x ( x ) ;
|
a r g . A d d A r g ( L " c o n t e n t " , x . x m l ( ) ) ;
|
i f ( x u r l : : g e t ( L " / s a l e / d a t a / A P / u p d a t e " , a r g . G e t S t r i n g ( ) , x ) ! = 1 )
|
{
|
e r r o r = x . t e x t ( ) ;
|
a l e r t ( L " e r r : " + e r r o r ) ;
|
r e t u r n 1 ;
|
}
|
s t r = x . 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 ( L " t e x t " ) ;
|
i f ( s t r ! = L " t r u e " )
|
{
|
a l e r t ( L " leQ1Y%! " ) ;
|
r e t u r n 1 ;
|
}
|
|
d w _ 3 . R e s e t U p d a t e S t a t u s ( ) ;
|
|
|
i f ( ! c o n t i n u e A d d )
|
{
|
a l e r t ( L " leQbR! " ) ;
|
C l o s e W i n d o w ( ) ;
|
}
|
e l s e
|
{
|
m _ l a y e r . S e l e c t S h e e t ( 0 ) ;
|
}
|
|
r e t u r n 1 ;
|
}
|
|
|
/ / &q¹pÀo;mYtýQpe
|
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å]wQag
|
S e t A g e n t ( ) ;
|
r e t u r n 1 ;
|
}
|
|
/ / }TäNÑS^ýQpe
|
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 n t i n d e x ;
|
i f ( c o m d i d = = L " x m P r e v " )
|
{
|
i n d e x = m _ l a y e r . G e t S h e e t I n d e x ( ) ;
|
i n d e x - - ;
|
m _ l a y e r . S e l e c t S h e e t ( i n d e x ) ;
|
}
|
e l s e i f ( c o m d i d = = L " x m N e x t " )
|
{
|
i n d e x = m _ l a y e r . G e t S h e e t I n d e x ( ) ;
|
i n d e x + + ;
|
i f ( i n d e x = = 1 )
|
{
|
x c o n t r o l ( G e t C o n t r o l ( L " s l e _ f i l t e r " ) ) . S e t T e x t ( L " " ) ;
|
x s t r i n g s t r = L " " ;
|
i f ( s t r ! = s e a r c h S t r )
|
{
|
s e a r c h S t r = s t r ;
|
/ / d w _ 1 . F i l t e r ( L " * " , s e a r c h S t r ) ;
|
d w _ 1 . F i l t e r ( L " V A T S u p p l i e r I D " , s e a r c h S t r ) ;
|
}
|
}
|
m _ l a y e r . S e l e c t S h e e t ( i n d e x ) ;
|
r e t u r n 1 ;
|
}
|
e l s e i f ( c o m d i d = = L " x m O k " )
|
{
|
r e t u r n O n S a v e ( f a l s e ) ;
|
}
|
e l s e i f ( c o m d i d = = L " x m C a n c e l " )
|
{
|
C l o s e W i n d o w ( ) ;
|
r e t u r n 1 ;
|
}
|
r e t u r n 0 ;
|
}
|
|
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 _ 1 . A c c e p t T e 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 n t c o l = d w _ 1 . G e t C o l u m n ( ) ;
|
d w _ 1 . I t e m C h a n g e T o ( d w _ 1 . G e t R o w ( ) , L " P a y A m o u n t " , d w _ 1 . G e t I t e m S t r i n g ( d w _ 1 . G e t R o w ( ) , L " B a l a n c e " ) ) ;
|
d w _ 1 . R e d r a w ( ) ;
|
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 I t e m A s k S t y l e ( T E v e n t * e v t , L P A R A M p )
|
{
|
i n t D M S _ C S S S T Y L E = 0 x 8 ;
|
D W A S K S T Y L E N M H D R & h d r = * ( D W A S K S T Y L E 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 ;
|
i n t c o l = h d r . c o l ;
|
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 s = d w _ 1 . G e t R o w C o u n t ( ) ;
|
i f ( r o w < 1 | | r o w > r o w s )
|
{
|
r e t u r n 1 ;
|
}
|
|
i f ( c o l n a m e = = L " N I n v o i c e N o " )
|
{
|
x s t r i n g N I n v o i c e N o = d w _ 1 . G e t I t e m S t r i n g ( r o w , L " N I n v o i c e N o " ) ;
|
x s t r i n g I n v o i c e N o = d w _ 1 . G e t I t e m S t r i n g ( r o w , L " I n v o i c e N o " ) ;
|
i f ( N I n v o i c e N o ! = I n v o i c e N o )
|
{
|
h d r . m a s k = D M S _ C S S S T Y L E ;
|
h d r . p C s s S t y l e = ( L P T S T R ) L " c o l o r : # f f 0 0 0 0 " ;
|
}
|
}
|
|
r e t u r n 1 ;
|
}
|
|
i n t O n T a b S e l e c t e d S h e e t ( T E v e n t * e v t , L P A R A M p )
|
{
|
i n t i n d e x = m _ l a y e r . G e t S h e e t I n d e x ( ) ;
|
i f ( i n d e x = = 1 )
|
{
|
d w _ 1 . A c c e p t T e x t ( ) ;
|
|
|
d w _ 3 . R e s e t ( ) ;
|
|
x m l x ;
|
|
x . l o a d X M L ( L " < d a t a / > " ) ;
|
|
x m l x 1 ;
|
|
i n t i = 0 ;
|
f o r ( i = 1 ; i < = d w _ 1 . G e t R o w C o u n t ( ) ; i + + )
|
{
|
x s t r i n g A m o u n t = d w _ 1 . G e t I t e m S t r i n g ( i , L " P a y A m o u n t " ) ;
|
x s t r i n g P r e P a y A m o u n t = d w _ 1 . G e t I t e m S t r i n g ( i , L " P r e P a y A m o u n t " ) ;
|
x s t r i n g S u p p l i e r I D = d w _ 1 . G e t I t e m S t r i n g ( i , L " V A T S u p p l i e r I D " ) ;
|
i f ( A m o u n t ! = L " " & & A m o u n t . t o I n t ( ) ! = 0 )
|
{
|
i n t r o w = d w _ 3 . I n s e r t R o w ( 0 ) ;
|
x 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 _ 3 . S e t I t e m S t r i n g ( r o w , L " A P D a t e " , s d a t e ) ;
|
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " C r e a t e D a t e " , s d a t e ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " P a y e d D a t e " , s d a t e ) ;
|
x 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 ;
|
x 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 _ 3 . S e t I t e m S t r i n g ( r o w , L " C r e a t o r I D " , s u s e r i d ) ;
|
d w _ 3 . S e t I t e m D i s p l a y S t r i n g ( r o w , L " C r e a t o r I D " , s u s e r n a m e ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " I n v o i c e N o " , d w _ 1 . G e t I t e m S t r i n g ( i , L " N I n v o i c e N o " ) ) ;
|
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " A m o u n t " , d w _ 1 . G e t I t e m S t r i n g ( i , L " P a y A m o u n t " ) ) ;
|
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " S u p p l i e r I D " , d w _ 1 . G e t I t e m S t r i n g ( i , L " S u p p l i e r I D " ) ) ;
|
d w _ 3 . S e t I t e m D i s p l a y S t r i n g ( r o w , L " S u p p l i e r I D " , d w _ 1 . G e t I t e m D i s p l a y S t r i n g ( i , L " S u p p l i e r I D " ) ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " A P S u p p l i e r I D " , d w _ 1 . G e t I t e m S t r i n g ( i , L " V A T S u p p l i e r I D " ) ) ;
|
d w _ 3 . S e t I t e m D i s p l a y S t r i n g ( r o w , L " A P S u p p l i e r I D " , d w _ 1 . G e t I t e m D i s p l a y S t r i n g ( i , L " V A T S u p p l i e r I D " ) ) ;
|
|
d w _ 3 . S e t I t e m D i s p l a y S t r i n g ( r o w , L " S a l e s p e r s o n I D " , d w _ 1 . G e t I t e m D i s p l a y S t r i n g ( i , L " S a l e s p e r s o n I D " ) ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " S a l e s p e r s o n I D " , d w _ 1 . G e t I t e m S t r i n g ( i , L " S a l e s p e r s o n I D " ) ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " O r g N a m e " , d w _ 1 . G e t I t e m S t r i n g ( i , L " O r g N a m e " ) ) ;
|
x s t r i n g A P I D = p u b l i c c o d e : : G e t G u i d ( ) ;
|
d w _ 3 . S e t I t e m S t r i n g ( r o w , L " A P I D " , A P I D ) ;
|
}
|
|
}
|
|
}
|
|
|
r e t u r n 1 ;
|
}
|
|
/ / }TäNYtNöN
|
i n t O n X C o m m a n d ( T 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 - > 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 ( )
|
{
|
/ / Ñ~[å]wQag¹pûQNöN
|
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 ) & A P N e w : : O n X C o m m a n d ) ;
|
/ / ·ÖS&q¹pNöN ÿ(uNÍnå]wQag
|
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 ) & A P N e w : : O n S e t F o c u s ) ;
|
A t t a c h E v e n t ( L " d w _ 1 " , L " D W V _ D O U B L E C L I C K E D " , ( F E v e n t ) & A P N e w : : O n D o u b l e C l i c k e d ) ; / / LÌSûQ
|
A t t a c h E v e n t ( L " d w _ 1 " , L " D W V _ A S K S T Y L E " , ( F E v e n t ) & A P N e w : : O n I t e m A s k S t y l e ) ;
|
/ / A t t a c h E v e n t ( L " d w _ 1 " , L " D W V _ I T E M C H A N G E D " , O n I t e m C h a n g e d ) ;
|
A t t a c h E v e n t ( L " t a b _ 1 " , L " L Y S N _ S E L E C T E D S H E E T " , ( F E v e n t ) & A P N e w : : O n T a b S e l e c t e d S h e e t ) ;
|
A t t a c h E v e n t ( L " d w _ 3 " , L " D W V _ I T E M C H A N G E D " , ( F E v e n t ) & A P N e w : : O n D o u b l e C l i c k e d O n e ) ;
|
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 O n e ( 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 ;
|
x s t r i n g v a l u e = h d r . d a t a ;
|
|
d o u b l e A m o u n t = d w _ 3 . G e t I t e m D o u b l e ( h d r . r o w , L " A m o u n t " ) ;
|
d o u b l e P a y e d A m o u n t = d w _ 3 . G e t I t e m D o u b l e ( h d r . r o w , L " P a y e d A m o u n t " ) ;
|
|
i f ( c o l n a m e = = L " P r e P a y A m o u n t " | | c o l n a m e = = L " A m o u n t " )
|
{
|
d o u b l e A m o u n t 1 = d w _ 3 . G e t I t e m D o u b l e ( h d r . r o w , L " A m o u n t " ) ;
|
d o u b l e P r e P a y A m o u n t = d w _ 3 . G e t I t e m D o u b l e ( h d r . r o w , L " P r e P a y A m o u n t " ) ;
|
d w _ 3 . S e t I t e m D o u b l e ( h d r . r o w , L " P a y e d A m o u n t " , x d o u b l e ( A m o u n t - P r e P a y A m o u n t ) . r o u n d ( 2 ) ) ;
|
}
|
r e t u r n 1 ;
|
}
|
/ * i n t O n I t e m C h a n g e d ( T E v e n t * e v t , L P A R A M 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 ) ;
|
x s t r i n g c o l n a m e = h d r . c o l n a m e ;
|
x s t r i n g v a l u e = h d r . d a t a ;
|
i n t r o w = h d r . r o w ;
|
|
i f ( c o l n a m e = = L " P a y A m o u n t " )
|
{
|
d o u b l e a m t = d w _ 1 . G e t I t e m D o u b l e ( r o w , L " P a y A m o u n t " ) ;
|
x s t r i n g I n v o i c e N o = d w _ 1 . G e t I t e m S t r i n g ( r o w , L " N I n v o i c e N o " ) ;
|
x s t r i n g i d = d w _ 1 . G e t I t e m S t r i n g ( r o w , L " V A T I n v o i c e I D " ) ;
|
d o u b l e p r e A m t = C a l c M a t c h P r e P a y ( I n v o i c e N o , a m t , i d ) ;
|
d w _ 1 . S e t I t e m D o u b l e ( r o w , L " P r e P a y A m o u n t " , p r e A m t ) ;
|
|
p r e A m t = d w _ 1 . G e t I t e m D o u b l e ( r o w , L " P r e P a y A m o u n t " ) ;
|
d w _ 1 . S e t I t e m D o u b l e ( r o w , L " A P A m o u n t " , a m t - p r e A m t ) ;
|
d w _ 1 . R e d r a w ( ) ;
|
}
|
i f ( c o l n a m e = = L " A P A m o u n t " )
|
{
|
d o u b l e P r e P a y A m o u n t = d w _ 1 . G e t I t e m D o u b l e ( r o w , L " P r e P a y A m o u n t " ) ;
|
d o u b l e A P A m o u n t = d w _ 1 . G e t I t e m D o u b l e ( r o w , L " A P A m o u n t " ) ;
|
d w _ 1 . S e t I t e m D o u b l e ( r o w , L " P a y A m o u n t " , P r e P a y A m o u n t + A P A m o u n t ) ;
|
d w _ 1 . R e d r a w ( ) ;
|
}
|
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 ;
|
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 ( L " x x x " , L " x x x " ) ;
|
i f ( g e t U r l ( L " " , 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 ( ) ;
|
}
|
r e t u r n 1 ;
|
}
|
* /
|
|
i n t o n l o a d ( )
|
{
|
S e t A r g ( ) ;
|
m _ l a y e r = G e t C o n t r o l ( L " t a b _ 1 " ) ;
|
d w _ 1 = G e t C o n t r o l ( L " d w _ 1 " ) ;
|
d w _ 1 . o p e n U r l ( L " / s a l e / v i e w / A P / t e m p l a t e / I m p o r t L i s t 1 " ) ;
|
d w _ 1 . S e t A s k S t y l e ( t r u e ) ;
|
d w _ 1 . S e t C o l u m n S t a t e ( L " P r e P a y A m o u n t " , f a l s e ) ;
|
d w _ 1 . S e t C o l u m n S t a t e ( L " A P A m o u n t " , f a l s e ) ;
|
|
d w _ 3 = G e t C o n t r o l ( L " d w _ 3 " ) ;
|
d w _ 3 . o p e n U r l ( L " / s a l e / v i e w / A P / t e m p l a t e / I m p o r t L i s t 3 " ) ;
|
|
|
x m l x ;
|
x ;
|
|
|
x a s e r v e r a r g a r g = G e t A r g ( ) ;
|
i f ( a r g )
|
{
|
x s t r i n g I n v o i c e N o = a r g . G e t A r g S t r i n g ( L " I n v o i c e N o " ) ;
|
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 / A P / l i s t 1 " , L " S h i p D a y s " , L " 1 = 1 " , L " Q u e r y T x t " , I n v o i c e N o ) ;
|
i f ( x ) d w _ 1 . R e t r i e v e ( x ) ;
|
}
|
|
O n A t t a c h E v e n t ( ) ;
|
s e a r c h S t r = L " " ;
|
b s t a r t = t r u e ;
|
|
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 ;
|
}
|
} ;
|
