þÿ 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 n i t t r a d e
|
[
|
c l a s s p a y m e n S u p p l i e r : p u b l i c f r a m e
|
{
|
|
s t r i n g P a y m e n t m e t h o d = " " ;
|
s t r i n g c u r r b o x ;
|
i n t O n O K ( )
|
{
|
x a s e r v e r a r g a r g = G e t P a r a m ( ) ;
|
i f ( c u r r b o x = = " c b x 1 " )
|
{
|
x e d i t c b x 1 _ v a l 1 = G e t C o n t r o l ( " c b x 1 _ v a l 1 " ) ;
|
P a y m e n t m e t h o d = "ÛNÓT " + c b x 1 _ v a l 1 . G e t T e x t ( ) + "Y)QíSÑyhNØn " ;
|
}
|
e l s e i f ( c u r r b o x = = " c b x 2 " )
|
{
|
x e d i t c b x 2 _ v a l 1 = G e t C o n t r o l ( " c b x 2 _ v a l 1 " ) ;
|
x e d i t c b x 2 _ v a l 2 = G e t C o n t r o l ( " c b x 2 _ v a l 2 " ) ;
|
P a y m e n t m e t h o d = "N§RMh7xn¤TNØ " + c b x 2 _ v a l 1 . G e t T e x t ( ) + " % [Ñÿ OYk> " + c b x 2 _ v a l 2 . G e t T e x t ( ) + "Y)QíSÑyhNØn " ;
|
}
|
e l s e i f ( c u r r b o x = = " c b x 3 " )
|
{
|
x e d i t c b x 3 _ v a l 1 = G e t C o n t r o l ( " c b x 3 _ v a l 1 " ) ;
|
x e d i t c b x 3 _ v a l 2 = G e t C o n t r o l ( " c b x 3 _ v a l 2 " ) ;
|
x e d i t c b x 3 _ v a l 3 = G e t C o n t r o l ( " c b x 3 _ v a l 3 " ) ;
|
P a y m e n t m e t h o d = "N§RMh7xn¤TNØ " + c b x 3 _ v a l 1 . G e t T e x t ( ) + " % [Ñÿ 'Th<T " + c b x 3 _ v a l 2 . G e t T e x t ( ) + " % k>R0SÑ'ÿ OYk> " + c b x 3 _ v a l 3 . G e t T e x t ( ) + "Y)QíSÑyhkcg,NØn " ;
|
}
|
e l s e i f ( c u r r b o x = = " c b x 4 " )
|
{
|
P a y m e n t m e t h o d = "'Th<TQíOe¹kcg,SÑyhbSÑyhOÝQýk>R0SÑ' " ;
|
}
|
e l s e i f ( c u r r b o x = = " c b x 5 " )
|
{
|
x e d i t c b x 5 _ v a l 1 = G e t C o n t r o l ( " c b x 5 _ v a l 1 " ) ;
|
x e d i t c b x 5 _ v a l 2 = G e t C o n t r o l ( " c b x 5 _ v a l 2 " ) ;
|
P a y m e n t m e t h o d = "'Th<T " + c b x 5 _ v a l 1 . G e t T e x t ( ) + " % k>R0SÑ'ÿ OYk> " + c b x 5 _ v a l 2 . G e t T e x t ( ) + "Y)QíSÑyhNØn " ;
|
}
|
e l s e
|
{
|
P a y m e n t m e t h o d = " " ;
|
}
|
a r g . A d d A r g ( " P a y T y p e " , P a y m e n t m e t h o d ) ;
|
C l o s e W i n d o w ( ) ;
|
r e t u r n 1 ;
|
}
|
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 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 O K " )
|
{
|
O n O K ( ) ;
|
}
|
r e t u r n 0 ;
|
}
|
|
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 )
|
{
|
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 C k b C L i c k ( r e f T E v e n t e v t , i n t p )
|
{
|
i n t p a r a m = e v t . l P a r a m ;
|
x c h e c k b o x c b x _ 1 = G e t C o n t r o l ( " c b x 1 " ) ;
|
i n t s t a t e 1 = c b x _ 1 . G e t C h e c k ( c b x _ 1 . G e t I d ( ) ) ;
|
x c h e c k b o x c b x _ 2 = G e t C o n t r o l ( " c b x 2 " ) ;
|
i n t s t a t e 2 = c b x _ 2 . G e t C h e c k ( c b x _ 2 . G e t I d ( ) ) ;
|
x c h e c k b o x c b x _ 3 = G e t C o n t r o l ( " c b x 3 " ) ;
|
i n t s t a t e 3 = c b x _ 3 . G e t C h e c k ( c b x _ 3 . G e t I d ( ) ) ;
|
x c h e c k b o x c b x _ 4 = G e t C o n t r o l ( " c b x 4 " ) ;
|
i n t s t a t e 4 = c b x _ 4 . G e t C h e c k ( c b x _ 4 . G e t I d ( ) ) ;
|
x c h e c k b o x c b x _ 5 = G e t C o n t r o l ( " c b x 5 " ) ;
|
i n t s t a t e 5 = c b x _ 5 . G e t C h e c k ( c b x _ 5 . G e t I d ( ) ) ;
|
|
i f ( p a r a m = = c b x _ 1 . G e t I d ( ) )
|
{
|
c b x _ 2 . S e t U n C h e c k ( c b x _ 2 . G e t I d ( ) ) ;
|
c b x _ 3 . S e t U n C h e c k ( c b x _ 3 . G e t I d ( ) ) ;
|
c b x _ 4 . S e t U n C h e c k ( c b x _ 4 . G e t I d ( ) ) ;
|
c b x _ 5 . S e t U n C h e c k ( c b x _ 5 . G e t I d ( ) ) ;
|
i f ( s t a t e 1 = = 1 )
|
{
|
c u r r b o x = " c b x 1 " ;
|
}
|
e l s e
|
{
|
c u r r b o x = " " ;
|
}
|
}
|
e l s e i f ( p a r a m = = c b x _ 2 . G e t I d ( ) )
|
{
|
c b x _ 1 . S e t U n C h e c k ( c b x _ 1 . G e t I d ( ) ) ;
|
c b x _ 3 . S e t U n C h e c k ( c b x _ 3 . G e t I d ( ) ) ;
|
c b x _ 4 . S e t U n C h e c k ( c b x _ 4 . G e t I d ( ) ) ;
|
c b x _ 5 . S e t U n C h e c k ( c b x _ 5 . G e t I d ( ) ) ;
|
i f ( s t a t e 2 = = 1 )
|
{
|
c u r r b o x = " c b x 2 " ;
|
}
|
e l s e
|
{
|
c u r r b o x = " " ;
|
}
|
}
|
e l s e i f ( p a r a m = = c b x _ 3 . G e t I d ( ) )
|
{
|
c b x _ 1 . S e t U n C h e c k ( c b x _ 1 . G e t I d ( ) ) ;
|
c b x _ 2 . S e t U n C h e c k ( c b x _ 2 . G e t I d ( ) ) ;
|
c b x _ 4 . S e t U n C h e c k ( c b x _ 4 . G e t I d ( ) ) ;
|
c b x _ 5 . S e t U n C h e c k ( c b x _ 5 . G e t I d ( ) ) ;
|
i f ( s t a t e 3 = = 1 )
|
{
|
c u r r b o x = " c b x 3 " ;
|
}
|
e l s e
|
{
|
c u r r b o x = " " ;
|
}
|
}
|
e l s e i f ( p a r a m = = c b x _ 4 . G e t I d ( ) )
|
{
|
c b x _ 1 . S e t U n C h e c k ( c b x _ 1 . G e t I d ( ) ) ;
|
c b x _ 2 . S e t U n C h e c k ( c b x _ 2 . G e t I d ( ) ) ;
|
c b x _ 3 . S e t U n C h e c k ( c b x _ 3 . G e t I d ( ) ) ;
|
c b x _ 5 . S e t U n C h e c k ( c b x _ 5 . G e t I d ( ) ) ;
|
i f ( s t a t e 4 = = 1 )
|
{
|
c u r r b o x = " c b x 4 " ;
|
}
|
e l s e
|
{
|
c u r r b o x = " " ;
|
}
|
}
|
e l s e i f ( p a r a m = = c b x _ 5 . G e t I d ( ) )
|
{
|
c b x _ 1 . S e t U n C h e c k ( c b x _ 1 . G e t I d ( ) ) ;
|
c b x _ 2 . S e t U n C h e c k ( c b x _ 2 . G e t I d ( ) ) ;
|
c b x _ 3 . S e t U n C h e c k ( c b x _ 3 . G e t I d ( ) ) ;
|
c b x _ 4 . S e t U n C h e c k ( c b x _ 4 . G e t I d ( ) ) ;
|
i f ( s t a t e 5 = = 1 )
|
{
|
c u r r b o x = " c b x 5 " ;
|
}
|
e l s e
|
{
|
c u r r b o x = " " ;
|
}
|
}
|
r e t u r n 1 ;
|
}
|
|
i n t O n A t t a c h E v e n t ( )
|
{
|
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 ) ;
|
A t t a c h E v e n t ( " W M _ C O M M A N D " , O n C k b C L i c k ) ;
|
r e t u r n 1 ;
|
}
|
|
i n t o n l o a d ( )
|
{
|
O n A t t a c h E v e n t ( ) ;
|
r e t u r n 1 ;
|
}
|
} ;
|
]
|
