ÿþ< h t m l >
< h e a d > < t i t l e > #5(6)2#0@
H2+1*7-< / t i t l e > < / h e a d >
< b o d y b g c o l o r = " # f f f f f f " l i n k = # 0 0 0 0 f f t e x t = # a 0 0 f 0 0 >
< i m g s r c = " l o g o . j p g " >
< h r >
< t a b l e w i d t h = 1 0 0 % b o r d e r = 0 >
< t r > < t d > < i m g s r c = " t r i l . g i f " > < / t d >
< c e n t e r >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s . h t m l " > 3#0< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 1 . h t m l " > (6)21
+2< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 2 . h t m l " > (6)2'2!@GDDI< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 3 . h t m l " > (6)2#0@4!< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 4 . h t m l " > --A#0C+!H< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 6 . h t m l " > 41I< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 7 . h t m l " > 3#8#1)2< / a > < / f o n t > < / c e n t e r > < / t d >
< / c e n t e r >
< / t r >
< / t a b l e >
< t a b l e w i d t h = 1 0 0 % b o r d e r = 2 > < t r > < t d b g c o l o r = " # d d f f d d " > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < b > 5 . 2# 12#0. . . . < / b > < / f o n t > < / t d > < / t r > < / t a b l e >
< h r >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
< a h r e f = " # m e n u " > s o r c e B#A#!- m e n u . p r g < / a > < a h r e f = " # i n i t i a l " > s o r c e B#A#!- i n i t i a l . p r g < / a >
< a h r e f = " # m a i n j o b " > s o r c e B#A#!- m a i n j o b . p r g < / a > < a h r e f = " # a p e n j o b " > s o r c e B#A#!- a p e n j o b . p r g < / a >
< a h r e f = " # e d i t j o b " > s o r c e B#A#!- e d i t j o b . p r g < / a > < a h r e f = " # d e l j o b " > s o r c e B#A#!- d e l j o b . p r g < / a >
< a h r e f = " # r p o r t s " > s o r c e B#A#!- r p o r t s . p r g < / a >
< / f o n t >
< / p r e >
< a n a m e = " m e n u " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- m e n u . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
# i n c l u d e " i n k e y . c h "
* - - @5"B#A#!B" #0@7- 8I@ 7H-
* - - B#A#!@!-#L 6+1 0#4+2# *22-! 4'@-#L
* - - #+1*4 1 1 1 0 5 4 '4"2%1"B"
* - - *H'-@!9@5"#1I*8I2"@!7H- 0 3 / 2 7 / 0 0
* - - 2+%1
S e t P r o c e d u r e t o " M a i n j o b . p r g "
S e t P r o c e d u r e t o " A p e n j o b . p r g "
S e t P r o c e d u r e t o " E d i t j o b . p r g "
S e t P r o c e d u r e t o " D e l e j o b . p r g "
S e t P r o c e d u r e t o " R p o r t s . p r g "
S e t P r o c e d u r e t o " A l l f u n c . p r g "
S e t p r o c e d u r e t o " i n i t i a l . p r g "
S e t d e l i m i t e r s o n
s e t d e l i m i t e r s t o " [ ] "
S e t I n t e n s i t y O n
S e t d a t e f o r m a t t o " m m / d d / y y "
S e t E p o c h t o 1 9 6 0
S e t E s c a p e O f f
S e t c u r s o r o n
D o C h e c k _ P a s s w o r d
R e s t o r e F r o m M e m F i l e A d d i t i v e
A r m a i n = 5 ; A r c m = A r r a y ( A r m a i n )
A r c m [ 1 ] = [ 2+%1 ]
A r c m [ 2 ] = [ #1#8]
A r c m [ 3 ] = [ #2"2 ]
A r c m [ 4 ] = [ *#8 ]
A r c m [ 5 ] = [ #0 ]
A r s 1 = 5 ; A r c 1 = A r r a y ( A r s 1 )
A r c 1 [ 1 ] = [ 1 . 1 @
H2+1*7- ]
A r c 1 [ 2 ] = [ 1 . 2 7+1*7- ]
A r c 1 [ 3 ] = [ 1 . 3 "@%42#@
H2 ]
A r c 1 [ 4 ] = [ 1 . 4 #1*!2
4C+!H ]
A r c 1 [ 5 ] = [ 1 . 5 #1+1*7-C+!H ]
A r s 2 = 6 ; A r c 2 = A r r a y ( A r s 2 )
A r c 2 [ 1 ] = [ 2 . 1 @ 4H!I-!9% ]
A r c 2 [ 2 ] = [ 2 . 2 AIDI-!9% ]
A r c 2 [ 3 ] = [ 2 . 3 %I-!9% ]
A r c 2 [ 4 ] = [ 2 . 4 #1#8-1#2B1* ]
A r c 2 [ 5 ] = [ 2 . 5 B r o w s e D a t a ]
A r c 2 [ 6 ] = [ 2 . 6 S o r t D a t a ]
A r s 3 = 7 ; A r c 3 = A r r a y ( A r s 3 )
A r c 3 [ 1 ] = [ 3 . 1 +1*7- ]
A r c 3 [ 2 ] = [ 3 . 2 *!2
4 ]
A r c 3 [ 3 ] = [ 3 . 3 12 ]
A r c 3 [ 4 ] = [ 3 . 4 @
H2- 7+1*7- ]
A r c 3 [ 5 ] = [ 3 . 5 #2"#1- #2"H2" ]
A r c 3 [ 6 ] = [ 3 . 7 V i e w R e p o r t ]
A r c 3 [ 7 ] = [ 3 . 6 R e p o r t s ]
A r s 4 = 4 ; A r c 4 = A r r a y ( A r s 4 )
A r c 4 [ 1 ] = [ 4 . 1 H2"@4@7- ]
A r c 4 [ 2 ] = [ 4 . 2 +1 2)5 ]
A r c 4 [ 3 ] = [ 4 . 3 "-#2"#1 ]
A r c 4 [ 4 ] = [ 4 . 4 "-#2"H2" ]
A r s 5 = 9 ; A r c 5 = A r r a y ( A r s 5 )
A r c 5 [ 1 ] = [ 5 . 1 H e l p ]
A r c 5 [ 2 ] = [ 5 . 2 S c r e e n S a v e r ]
A r c 5 [ 3 ] = [ 5 . 3 S e c u r i t y ]
A r c 5 [ 4 ] = [ 5 . 4 L o g F i l e ]
A r c 5 [ 5 ] = [ 5 . 5 C h a n g e C o l o r ]
A r c 5 [ 6 ] = [ 5 . 6 D o s S h e l l ]
A r c 5 [ 7 ] = [ 5 . 7 R e s t o r e D e f a u l t ]
A r c 5 [ 8 ] = [ 5 . 8 S o u r c e C o d e ]
A r c 5 [ 9 ] = [ 5 . 9 Q u i t ]
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
O p t : = S a v e _ O p t : = 1
S t e p 1 : = S t e p 2 : = 1
T o p l m t = O p t
B o t t o m l m t = A r m a i n
A l l s u b = 5
_ E m p l o y e e _ I d = S p a c e ( 5 )
f i l e n a m e = S p a c e ( 8 )
i n p u t _ i d = " "
p r o g n a m e : = { " *!2
4" , " +1*7-" , " #0@ " , "
7H-+1*7-" , " 9IAH" , " 12" }
/ / - - - - - - - - m a i n f i l e - - - - - - - - / /
F i l e 1 = " M e m b e r "
F i l e 2 = " B o o k s "
F i l e 3 = " N a m e "
F i l e 4 = " T y p e s "
F i l e 5 = " A u t h o r "
F i l e 6 = " E m p l o y e e "
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
D o s c r e e n m e n u
D o w r i t e m e n u
D o w h i l e l a s t k e y ( ) # 2 7
@ 0 , 2 7 S a y t i m e ( ) c o l o r ( " + B / W " )
I n k e y ( 0 . 2 )
I f l a s t k e y ( ) # 0
D o C a s e
C a s e l a s t k e y ( ) = 2 7
I f O p t < 1 0
s e t c o l o r t o 7 / 8
C l s ; q u i t
E l s e
I f O p t > = 1 0 . a n d . O p t < = 1 0 + A r s 1
O p t = 1
E l s e
I f O p t > = 2 0 . a n d . O p t < = 2 0 + A r s 2
O p t = 2
E l s e
I f O p t > = 3 0 . a n d . O p t < = 3 0 + A r s 3
O p t = 3
E l s e
I f O p t > = 4 0 . a n d . O p t < = 4 0 + a r s 4
O p t = 4
E l s e
i f O p t > = 5 0 . a n d . O p t < = 5 0 + a r s 5
O p t = 5
e n d i f
E n d i f
E n d i f
E n d i f
E n d i f
E n d I f
C a s e l a s t k e y ( ) = 4 / / K e y r i g h t / /
I f O p t < 1 0
I f O p t = 5
O p t = 1
E l s e
D o p r e s s D o w n
E n d I f
E l s e
I f ( O p t - m o d ( O p t , 1 0 ) ) / 1 0 = A l l s u b
O p t = 1 1
E l s e
O p t = ( O p t - m o d ( O p t , 1 0 ) ) + 1 1
E n d I f
E n d I f
C a s e l a s t k e y ( ) = 1 9
I f O p t < 1 0
I f O p t = 1
O p t = 5
E l s e
D o p r e s s u p
E n d I f
E l s e / / s t A r t a t 1 1 t o u p / /
I f ( O p t - m o d ( O p t , 1 0 ) ) / 1 0 = 1
O p t = A l l s u b * 1 0 + 1
E l s e
O p t = ( O p t - m o d ( O p t , 1 0 ) ) - 9
E n d I f
E n d I f
C a s e l a s t k e y ( ) = 2 4
D o p r e s s d o w n
C a s e l a s t k e y ( ) = 5
D o p r e s s u p
C a s e l a s t k e y ( ) = 1 3
D o C a s e
C a s e O p t = 1
O p t = 1 1
C a s e O p t = 2
O p t = 2 1
C a s e O p t = 3
O p t = 3 1
C a s e O p t = 4
O p t = 4 1
C a s e O p t = 5
O p t = 5 1
C a s e O p t > = 1 1 . a n d . O p t < = 1 0 + A r s 1
S a v e S c r e e n t o p a g e 1
D o C a s e
C a s e O p t = 1 1 ; D o R e n t i n g
C a s e O p t = 1 2 ; D o r e t u r n i n g
C a s e O p t = 1 3 ; D o C a n c e l R n t
C a s e O p t = 1 4 ; D o A p e n d _ M e m
C a s e O p t = 1 5 ; S e l e 1 ; U s e B o o k s i n d e x B o o k s
S e l e 2 ; U s e N a m e i n d e x N a m e
S e l e 3 ; U s e T y p e s i n d e x T y p e s
S e l e 4 ; U s e A u t h o r i n d e x A u t h o r
D o A p e n d _ B o o k s
E n d c a s e
R e s t o r e s c r e e n F r o m p a g e 1
C a s e O p t > = 2 1 . a n d . O p t < = 2 0 + A r s 2
S a v e S c r e e n t o p a g e 1
D o C a s e
C a s e O p t = 2 1 ; D o A p e n d _ D a t a
C a s e O p t = 2 2 ; D o U p d _ d a t a
C a s e O p t = 2 3 ; D o D e l _ D a t a
C a s e O p t = 2 4 ; D o U p d _ B o n u s
C a s e O p t = 2 5 ; D o B r w s D a t a
C a s e O p t = 2 6
E n d C a s e
R e s t o r e s c r e e n F r o m p a g e 1
C a s e O p t > = 3 1 . a n d . O p t < = 3 0 + A r s 3
S a v e S c r e e n t o p a g e 1
D o C a s e
C a s e O p t > = 3 1 . A n d . O p t < = 3 5
D o R e p o r t S e l e W i t h O p t
C a s e O p t = 3 6 ; D o V i e w r e p o r t
C a s e O p t = 3 7 ; D o D b R e p o r t
E n d c a s e
R e s t o r e S c r e e n F r o m p a g e 1
C a s e O p t > = 4 1 . a n d . O p t < = 4 0 + A r s 4
S a v e S c r e e n t o p a g e 1
D o C a s e
C a s e O p t = 4 1
C a s e O p t = 4 2
C a s e O p t = 4 3
C a s e O p t = 4 4
E n d c a s e
R e s t o r e S c r e e n F r o m p a g e 1
C a s e O p t > = 5 1 . a n d . O p t < = 5 0 + A r s 5
S a v e S c r e e n t o p a g e 1
D o C a s e
C a s e O p t = 5 1
C a s e O p t = 5 2
C a s e O p t = 5 3
C a s e O p t = 5 4
C a s e O p t = 5 5
D o C h a n g C o l
C a s e O p t = 5 6
S e t c o l o r t o " w / n "
c l s
S e t C u r s o r o n
R u n c o m m a n d . c o m
C a s e O p t = 5 7
C a s e O p t = 5 8 ; D o S o u r c e p r g
C a s e O p t = 5 9 ; Q u i t
E n d c a s e
R e s t o r e S c r e e n F r o m p a g e 1
E n d c a s e
E n d c a s e
D o C a s e
C a s e O p t < 1 0
T o p l m t = 1 ; B o t t o m l m t = A r m a i n
C a s e O p t > = 1 1 . a n d . O p t < = 1 0 + A r s 1
T o p l m t = 1 1 ; B o t t o m l m t = 1 0 + A r s 1
C a s e O p t > = 2 1 . a n d . O p t < = 2 0 + A r s 2
T o p l m t = 2 1 ; B o t t o m l m t = 2 0 + A r s 2
C a s e O p t > = 3 1 . a n d . O p t < = 3 0 + A r s 3
T o p l m t = 3 1 ; B o t t o m l m t = 3 0 + A r s 3
C a s e O p t > = 4 1 . a n d . O p t < = 4 0 + A r s 4
T o p l m t = 4 1 ; B o t t o m l m t = 4 0 + A r s 4
C a s e O p t > = 5 1 . a n d . O p t < = 5 0 + A r s 5
T o p l m t = 5 1 ; B o t t o m l m t = 5 0 + A r s 5
E n d c a s e
D o W r i t e m e n u
K e y b o a r d C h r ( 0 )
I n k e y ( )
E n d I f
E n d D o
/ / - - - - - - - - - - - - - - - - - - - - - - - C o n t r o l S e c t i o n - - - - - - - - - - - - - - - - - - - - - - - - - - / /
P r o c e d u r e P r e s s d o w n
I f o p t = b o t t o m l m t
o p t = t o p l m t
e l s e
o p t + +
E n d I f
R e t u r n
P r o c e d u r e P r e s s u p
I f o p t = t o p l m t
o p t = b o t t o m l m t
e l s e
o p t - -
E n d I f
R e t u r n
/ / - - - - - - - - - - - - - - - - - - - - E n d o f C o n t r o l s e c t i o n - - - - - - - - - - - - - - - - - - - - - - - - / /
/ / - - - - - - - - - - - - - - - - - - - - - - - W r i t i n g M e n u S e c t i o n - - - - - - - - - - - - - - - - - - - - - - - - - / /
P r o c e d u r e W r i t e m e n u
L e n g t h = 0
D o B o x e s _ S c r n W i t h 1 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ L i n e W i t h 1 , 0 , 3 , 7 9 , _ S t s c r n c o l
f o r j = 1 t o a r m a i n
@ 2 , ( j - 1 ) * 1 2 + 3 s a y a r c m [ j ] C o l o r ( _ S t M n t x t )
n e x t
i = 0
d o c a s e
c a s e ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 = 1 ; T e m p a r = A r c 1 ; i = a r s 1 ; L e n g t h = 2 0
c a s e ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 = 2 ; T e m p a r = A r c 2 ; i = a r s 2 ; L e n g t h = 2 3
c a s e ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 = 3 ; T e m p a r = A r c 3 ; i = a r s 3 ; L e n g t h = 2 3
c a s e ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 = 4 ; T e m p a r = A r c 4 ; i = a r s 4 ; L e n g t h = 2 4
c a s e ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 = 5 ; T e m p a r = A r c 5 ; i = a r s 5 ; L e n g t h = 1 9
e n d c a s e
C o l 1 : = ( ( ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 ) - 1 ) * 1 2 + 2
D o B o x e s _ S c r n W i t h 4 , C o l 1 + 1 , i + 5 , C o l 1 + L e n g t h + 2 , _ S t S h a d c o l
D i s p b o x ( 3 , C o l 1 , i + 4 , C o l 1 + L e n g t h + 1 , " "$"9$ " , _ S t s c r n c o l )
F o r j = 1 t o i
@ j + 3 , ( ( ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 ) - 1 ) * 1 2 + 3 s a y T e m p a r [ j ] C o l o r ( _ S t M n t x t )
N e x t
i = 4
s e t c o l o r t o 1 4 / 6
I f o p t > 1 0
@ i + m o d ( o p t , 1 0 ) - 1 , ( ( ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 ) - 1 ) * 1 2 + 3 s a y t e m p a r [ m o d ( o p t , 1 0 ) ] C o l o r ( _ S t M s e l t x t )
@ 2 , ( ( ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 ) - 1 ) * 1 2 + 3 s a y a r c m [ ( o p t - m o d ( o p t , 1 0 ) ) / 1 0 ] C o l o r ( _ S t M s e l t x t )
e l s e
@ 2 , ( m o d ( o p t , 1 0 ) - 1 ) * 1 2 + 3 s a y a r c m [ m o d ( o p t , 1 0 ) ] C o l o r ( _ S t M s e l t x t )
E n d I f
R e t u r n
/ / - - - - - - - - - - - - - - - - - - - - - - - - - E n d O f W r i t i n g m e n u S e c t i o n - - - - - - - - - - - - - - / /
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - S c r e e n S e c t i o n - - - - - - - - - - - - - - - - - - - - - - - - - / /
P r o c e d u r e S c r e e n m e n u
/ / - - - 1'+1*7-5HA*8
s e t c o l o r t o " / W "
@ 0 , 0 C l e a r t o 0 , 7 9
S e t c o l o r ( " + B / W " )
@ 0 , 0 s a y " D O K F A B o o k S h o p "
/ / @ 0 , 6 5 s a y " V e r "
@ 0 , 6 5 s a y " '15H " + D t o C ( d a t e ( ) )
/ / @ 0 , 6 9 s a y " 1 0 . 0 1 " c o l o r ( " + r / w " )
/ / - - - - 1'+1*7-A%H2*8
s e t c o l o r t o " / W "
@ 2 4 , 0 C l e a r t o 2 4 , 7 9
S e t c o l o r ( " R / W " )
@ 2 4 , 5 9 S a y " B y P r a t u a n g F u n g f u a n g "
R e t u r n
P r o c e d u r e S h a d o w
P a r a m e t e r X 1 , Y 1 , X 2 , Y 2 , f C o l o r , b C o l o r
s e t c o l o r ( b C o l o r )
@ x 1 + 1 , y 1 + 1 C l e a r t o x 2 + 1 , y 2 + 1
s e t c o l o r ( f C o l o r )
@ x 1 , y 1 C l e a r t o x 2 , y 2
R e t u r n
< / p r e >
< h r >
< a n a m e = " i n i t i a l " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- i n i t i a l . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
P r o c e d u r e C h e c k _ P a s s w o r d
S e t S t a t u s O f f
S e t c u r s o r o n
C h e c k = . F .
N i n : = C o u n t : = 1
P a s s a r = a r r a y ( 1 0 )
S e t c o l o r t o " w + / n "
c l s
D o W h i l e C h e c k = . F . . A n d . C o u n t < 4
U s e P a s s w o r d . d b f
N i n = 1
_ U s e r = S p a c e ( 1 5 )
_ P a s s = S p a c e ( 1 0 )
S e t c o l o r t o " w + / n "
@ 8 , 1 4 c l e a r t o 1 5 , 6 2
@ 8 , 1 4 t o 1 5 , 6 2 D o u b l e
S e t c o l o r t o " r / n "
@ 1 0 , 1 5 s a y " P a s s w o r d p r o t e c t i o n "
S e t c o l o r t o " b g + / n "
@ 1 2 , 2 0 s a y " Y o u r l o g i n n a m e : " g e t _ U s e r C o l o r " g r + / n "
@ 1 3 , 2 0 s a y " Y o u r p a s s w o r d : " G e t _ P a s s C o l o r " R / R "
R e a d
L o c a t e f o r A l l t r i m ( _ U s e r ) = A l l t r i m ( U n a m e )
i f F o u n d ( )
i f A l l t r i m ( _ P a s s ) = A l l t r i m ( P w o r d )
C h e c k = . T .
@ 1 4 , 2 0 s a y " P a s s w o r d i s c o r r e c t "
E l s e
@ 1 4 , 2 0 s a y " P a s s w o r d i s I n c o r r e c t "
I n k e y ( 3 )
C o u n t + +
E n d i f
E l s e
@ 1 4 , 2 0 s a y " P a s s w o r d i s I n c o r r e c t "
I n k e y ( 3 )
C o u n t + +
E n d i f
I f C o u n t = 4 . a n d . C h e c k = . F .
c l s
@ 1 2 , 2 6 t o 1 4 , 6 1 d o u b l e
S e t c o l o r t o " r / n "
@ 1 3 , 3 0 s a y " #0041'@-C 3 '425"
f o r i = 1 t o 3
@ 1 3 , 4 8 s a y l t r i m ( s t r ( 4 - i ) )
@ 1 3 , 5 6 + i s a y " . "
T o n e ( 1 0 0 0 )
i n k e y ( 1 )
n e x t
S e t c o l o r ( " W / N " )
S e t c u r s o r o n
c l s
q u i t
e n d i f
E n d d o
c l o s e a l l
R e t u r n
< / f o n t >
< / p r e >
< h r >
< a n a m e = " m a i n j o b " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- m a i n j o b . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
* * * * * * * * * * * * * * * * *
* R e n t B o o k s *
* * * * * * * * * * * * * * * * *
P r o c r e n t i n g
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
s e t p r o c e d u r e t o " a l l f u n c . p r g "
S e t i n t e n s i t y o n
S e t E s c a p e o n
* - - #02(1'A#
_ E m p l o y e e _ i d : = " 1 0 0 0 4 "
_ N _ R e n t _ I d : = S p a c e ( 7 ) / / * - > f o r r e n t . d b f , r e n t d e t a ( i l ) . d b f
_ M e m b e r _ I d : = S p a c e ( 5 ) / / * - > f o r m e m b e r . d b f
_ D a t e _ t o _ R e n t : = D a t e ( )
_ D a t e _ t o _ R e t u : = D a t e ( ) + 7
_ L i n e : = 1 0
_ N o : = 0
_ T o t a l _ P a y : = " "
* - - #02(A I!2I-!9%5HC
ICB#A#!@
H2+1*7-
C l o s e D a t a b a s e
S e l e 1 ; U s e R e n t ; C o p y S t r u c t t o T e m p
S e l e 2 ; U s e R e n t d e t a ; C o p y S t r u c t t o T e m p e d
S e l e 3 ; U s e M e m b e r I n d e x M e m b e r ; R e i n d e x
S e l e 4 ; U s e B o o k s I n d e x B o o k s ; R e i n d e x
S e l e 5 ; U s e N a m e I n d e x N a m e ; R e i n d e x
S e l e 6 ; U s e T y p e s
S e l e 7 ; U s e I n c o m e
S e l e 8 ; U s e T e m p
S e l e 9 ; U s e T e m p e d
* - - @#4H!B#A#! B e g i n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* - 1 . @5"+I2-@
H2
D o P a i n t s c r e e n
M a k e s c r e e n ( 1 , 0 , 2 3 , 7 9 , 1 , " W + / B " )
S h w _ S t a t u s ( " E n t e r = @%7-+#7-A* E S C = @!7H-@
H2@*#G+#7-"@%4#2"2#" , " N / W " )
S e t c o l o r ( " W + / B " )
@ 2 , 8 S a y " #+1* 12 [ ] "
@ 2 , 2 2 S a y _ E m p l o y e e _ I d C o l o r ( " W + / R " )
@ R o w ( ) + 1 , 8 S a y " '15H@
H2 [ ] "
@ R o w ( ) + 1 , 8 S a y " #+1*2#@
H2 [ ] "
@ R o w ( ) + 1 , 8 S a y " #+1**!2
4 [ ] "
@ R o w ( ) , 3 4 S a y "
7H-- *8% [ ] "
L _ C r o s s ( R o w ( ) + 1 , 1 , 7 8 , " R + / B " )
@ R o w ( ) , 8 S a y " #+1*+1*7- [ ] "
L _ C r o s s ( R o w ( ) + 1 , 1 , 7 8 , " R + / B " )
@ R o w ( ) , 8 S a y " N O . #+1*
7H-+1*7- H2@
H2/ '1"
@ R o w ( ) + 1 , 8 S a y " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
S e t c o l o r ( " / B " )
@ R o w ( ) + 1 , 7 c l e a r t o 2 0 , 7 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
/ / - - 7I5H*3+#1 4! L#2"%0@-5"-+1*7-5H@
H2DC2#C
I2#4 - - / /
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
L _ C r o s s ( 2 1 , 1 , 7 8 , " R + / B " )
@ R o w ( ) , 8 S a y " #'!+1*7-5H@
H2 [ ] @%H! #'!H2@
H2 [ ] . 0 0 2" C o l o r ( " G R + / B " )
* - - AI'15H!2@
H2
@ 3 , 2 2 S a y s t r ( D a y ( D a t e ( ) ) ) + " " + c M o n t h ( D a t e ( ) ) + s t r ( Y e a r ( D a t e ( ) ) ) c o l o r ( " B G + / R " )
* - - 2 . 3+#+1*@
H2- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
S e l e R e n t
I f R e c c o u n t ( ) < = 0
_ N _ R e n t _ I d = " 1 0 0 0 0 0 1 "
E l s e
G o t o B o t t o m
_ N _ R e n t _ I d = L t r i m ( S t r ( V a l ( R e n t - > R e n t i d ) + 1 ) )
E n d i f
@ 4 , 2 2 S a y _ N _ R e n t _ I d c o l o r ( " B G + / R " )
* - #'*-I-!9%*!2
4
S e t c o l o r ( " G R + / R " )
@ 5 , 2 2 G e t _ M e m b e r _ I d V a l i d C h k I D ( _ M e m b e r _ I d , " M e m b e r " , { [ M e m i d ] , [ M e m n a ] } , " " , 5 , 4 6 ) C o l o r ( " G R + / R " )
R e a d
I f L a s t k e y ( ) = 2 7
C l o s e D a t a b a s e
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
E n d i f
S h w _ S t a t u s ( " E S C = --" , " N / W " )
f i n d l r e t u r n ( _ M e m b e r _ I d )
S h w _ S t a t u s ( " E n t e r = @%7-+#7-A* E S C = @!7H-@
H2@*#G+#7-"@%4#2"2#" , " N / W " )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
S e l e T e m p
A p p e n d B l a n k
R e p l a c e T e m p - > R e n t i d w i t h _ N _ R e n t _ I d , ;
T e m p - > M e m i d w i t h _ M e m b e r _ I d , ;
T e m p - > R e n t d a t e w i t h D a t e ( ) , ;
T e m p - > E m p i d w i t h _ E m p l o y e e _ I d , ;
T e m p - > R n t s t a t u s w i t h . T .
* - - +!2"@+8 *20 . t . 7-"1!5+1*7-5H9@
H2D-"9H "17D!H+! @%5H"@G. F .
* - - GH-@!7H-3+1*7-!27+!A%I' 6H@
GDI2D %L@
H2A%0@
H2%0@-5"
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
D o W h i l e . t .
S e l e B o o k s
_ B o o k _ I d : = S p a c e ( 8 ) / / * - > f o r b o o k s . d b f
_ B o o k _ N a m e : = " "
_ R n t _ p r i c e : = " "
_ N o + +
_ L i n e + +
c l e a r g e t s
@ 7 , 2 2 G e t _ B o o k _ I d V a l i d S e l e b o o k ( 7 , 3 0 , 1 7 , 7 0 , _ B o o k _ I d ) c o l o r ( " G R + / R " )
R e a d
I f L a s t k e y ( ) = 2 7
E x i t
E n d i f
I F _ N o > 1 0
s c r t = S a v e S c r e e n ( 1 2 , 2 , 2 0 , 7 8 )
R e s t S c r e e n ( 1 1 , 2 , 1 9 , 7 8 , s c r t )
o l d c o l r : = S e t c o l o r ( )
_ L i n e = 2 0
S e t c o l o r ( " / B " )
@ 2 0 , 7 C l e a r T o 2 0 , 7 2
S e t c o l o r ( o l d c o l r )
E n d I F
* - - +2H2@
H2
S e e k _ B o o k _ I d
I f f o u n d ( )
_ R n t _ p r i c e : = B o o k s - > R n t p r i c e
_ T o t a l _ p a y = L t r i m ( S t r ( V a l ( _ T o t a l _ p a y ) + V a l ( _ R n t _ p r i c e ) ) )
* - - @%5H"*20+1*7- 2 . f . ( "1D!H9@
H2) @G . t . ( 9@
H2DA%I')
R e p l a c e B o o k s - > s t a t u s w i t h . t .
E n d i f
* - - +2
7H-+1*7-
S e l e N a m e
S e e k S u b s t r ( _ B o o k _ I d , 2 , 4 )
I f F o u n d ( )
_ B o o k _ N a m e : = N a m e - > n a m e
E l s e
M s g b o x ( " D!H *.
7H-5I" )
L o o p
E n d i f
@ _ L i n e , 8 S a y L t r i m ( s t r ( _ N o ) ) c o l o r ( " W + / B " )
@ _ L i n e , 1 3 S a y _ B o o k _ I d c o l o r ( " W + / B " )
@ _ L i n e , 2 3 S a y _ B o o k _ N a m e c o l o r ( " W + / B " )
@ _ L i n e , 6 3 S a y _ R n t _ p r i c e P i c t " 9 9 9 9 " c o l o r ( " W + / B " )
@ 2 2 , 3 0 S a y P a d r ( L t r i m ( S t r ( _ N o ) ) , 3 ) C o l o r ( " W + / R " )
@ 2 2 , 6 4 S a y P a d r ( _ T o t a l _ p a y , 6 ) C o l o r ( " W + / R " )
* - - @-2+1*7-@%H!5H@
H2D@!7H-5I5IC*HT e m p -D %L@
H2%0@-5"D'IH-
S e l e T e m p e d
A p p e n d B l a n k
R e p l a c e T e m p e d - > R e n t i d W i t h _ N _ R e n t _ I d , ;
T e m p e d - > B k i d w i t h _ B o o k _ I d , ;
T e m p e d - > R n t S t a t u s W i t h . T .
* - - +!2"@+8 . T . +!2"6'H2+1*7-@%H!5I3%19@
H2D
E n d D o
* - - *4I*8#2"2#@
H2@7H-22#e s c --!2%21 +#7---!2@!7H-@
H2+1*7-
* - - -A%I' I-@-2 _ N o !2@
G@ #20'H2C-A#5H@I2!2%9@
H2 _ N o 0@G 1
* - - I2!52#@
H2+1*7--"H2I-" 1 @%H!_ N o I-!5H2@ 4H!@G 2 @#262!'H20
* - - 1 . 16#2"2#@
H2 @#2016GH-@!7H-!52#@
H2+1*7--"H2I-" 1 @%H!
* - - 2 . "@%4#2"2#1I+! @%5H"*20+1*7-%1-"H2@4!
I f _ N o > = 2
S a v e o p t i o n : = { }
S a v e o p t i o n : = { " 1 . 16#2"2#@
H2" , " 2 . D!H16" }
S e t c o l o r ( " W / R " )
S a v e _ O p t : = A l e r t n e w ( " +1*7-9@
H2D " + L t r i m ( S t r ( _ N o - 1 ) ) + " @%H!" , S a v e o p t i o n , " W + / W " )
D o C a s e
C a s e S a v e _ O p t = 1
* - - 16#2"2#@
H2%A I!@
H2A%0@
H2%0@-5"
S h w _ S t a t u s ( " 3%116#2"2#@
H2" , " W + / R " )
S e l e R e n t
A p p e n d B l a n k
R e p l a c e R e n t - > R e n t i d w i t h T e m p - > R e n t i d , ;
R e n t - > M e m i d w i t h T e m p - > M e m i d , ;
R e n t - > R e n t d a t e w i t h T e m p - > R e n t d a t e , ;
R e n t - > R n t s t a t u s w i t h T e m p - > R n t s t a t u s , ;
R e n t - > E m p i d w i t h T e m p - > E m p i d
S e l e T e m p e d
F o r _ N o = 1 t o R e c c o u n t ( )
G o t o _ N o
S e l e R e n t d e t a
A p p e n d B l a n k
R e p l a c e R e n t d e t a - > R e n t i d w i t h T e m p e d - > R e n t i d , ;
R e n t d e t a - > B k i d w i t h T e m p e d - > B k i d , ;
R e n t d e t a - > R n t s t a t u s w i t h T e m p e d - > R n t s t a t u s
S e l e T e m p e d
N e x t _ N o
C a s e S a v e _ O p t = 2
S h w _ S t a t u s ( " 3%1"@%4#2"2#@
H2" , " W + / R " )
S e l e T e m p e d
G o t o T o p
c o r r e c t _ i d = A r r a y ( r e c c o u n t ( ) )
i : = 1
D o w h i l e ! e o f ( )
c o r r e c t _ i d [ i ] = T e m p e d - > B k i d
i + +
s k i p
E n d d o
c l o s e d a t a b a s e
U s e b o o k s i n d e x b o o k s
f o r i = 1 t o l e n ( c o r r e c t _ i d )
S e l e b o o k s
g o t o t o p
S e e k c o r r e c t _ i d [ i ]
R e p l a c e B o o k s - > S t a t u s w i t h . F .
n e x t
E n d c a s e
E n d i f
C l o s e D a t a b a s e
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
* * * * * * * * * * * * * * * * * * * * *
* C a n c e l R e n t B o o k s *
* * * * * * * * * * * * * * * * * * * * *
P r o c e d u r e C a n c e l R n t
* - - 1 . @G+12- 7I5H32@4! *5@4!D'IH-
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
* - - #02(1'A#
_ N _ R e n t _ I d : = S p a c e ( 7 ) / / * - > f o r r e n t . d b f , r e n t d e t a ( i l ) . d b f
_ M e m b e r _ I d : = S p a c e ( 5 ) / / * - > f o r m e m b e r . d b f
_ D a t e _ t o _ R e n t : = D a t e ( )
_ D a t e _ t o _ R e t u : = D a t e ( ) + 7
_ L i n e : = 1 0
_ N o : = 0
* - - 2 . #02(A I!2I-!9%5HC
ICB#A#!@
H2+1*7-
C l o s e D a t a b a s e
S e l e 1 ; U s e R e n t ; C o p y S t r u c t t o T e m p
S e l e 2 ; U s e R e n t d e t a ; C o p y S t r u c t t o T e m p e d
S e l e 3 ; U s e M e m b e r I n d e x M e m b e r ; R e i n d e x
S e l e 4 ; U s e B o o k s I n d e x B o o k s ; R e i n d e x
S e l e 5 ; U s e N a m e I n d e x N a m e ; R e i n d e x
* S e l e 6 ; U s e M e m d e b t / / D!HC
I
* - - @#4H!B#A#! B e g i n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* - 3 . @5"+I2-"@%4
D o P a i n t s c r e e n
M a k e s c r e e n ( 1 , 0 , 2 3 , 7 9 , 1 , " W + / B " )
S h w _ S t a t u s ( " E n t e r = @%7-+#7-A* E S C = --22#"@%42#7+1*7-" , " N / W " )
S e t c o l o r ( " W + / B " )
@ 2 , 8 S a y " '15H [ ] "
@ 3 , 8 S a y " #+1**!2
4 [ ]
7H-- *8% [ ] " C o l o r ( " W + / B " )
@ 4 , 8 S a y " I2
3#0 [ ] . " C o l o r ( " W + / B " )
L _ C r o s s ( 5 , 1 , 7 8 , " R + / B " )
@ 6 , 5 S a y " %31 #+1*@
H2 #+1* *.
7H-+1*7- '15@
H2" C o l o r ( " W + / B " )
@ 7 , 5 S a y " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " C o l o r ( " W + / B " )
L _ C r o s s ( 1 9 , 1 , 7 8 , " R + / B " )
@ 2 , 2 2 S a y P A D C ( s t r ( D a y ( D a t e ( ) ) ) + " " + c M o n t h ( D a t e ( ) ) + s t r ( Y e a r ( D a t e ( ) ) ) , 1 8 ) c o l o r ( " G + / R " )
* - - 4 . #1I-!9%*!2
4
@ 3 , 2 2 G e t _ M e m b e r _ I d V a l i d C h k I D ( _ M e m b e r _ I d , " M e m b e r " , { [ M e m i d ] , [ M e m n a ] } , " " , 3 , 4 2 ) C o l o r ( " G + / R " )
R e a d
I f L a s t k e y ( ) = 2 7
C l o s e D a t a b a s e
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
E n d i f
S e t c o l o r ( " / R " )
@ 8 , 5 c l e a r t o 1 8 , 7 5
S h w _ S t a t u s ( " E n t e r = @%7-+#7-A* E S C = --22#"@%42#7+1*7-" , " N / W " )
w o r k s c r e e n : = S a v e s c r e e n ( 8 , 5 , 1 8 , 7 5 )
D o W h i l e . T . / / %9#1+1*7-
D e t a i l A r : = { }
d e t a i l : = " "
C a n O p t : = 0
S h w B o o k A r : = n R e c a r : = { }
* - - D#1#8A I!@
H2A%0@
H2%0@-5"H-
F n d _ R n t _ b k ( ) / / @
G@#G-#L5HD!H!52#@
H2+1*7-
S e l _ C a n _ B k ( D e t a i l A r , _ M e m b e r _ I d )
a r r a y c h o i c e : = a r r a y ( l e n ( D e t a i l A r ) )
* - - < #+1*@
H2! '15H@
H2~ +!2"@%@#G-#L# #+1*+1*7-$
7H-+1*7->
F o r j = 1 t o l e n ( D e t a i l A r )
D e t a i l = D e t a i l A r [ j ]
_ S h o w R n t i d = S u b s t r ( D e t a i l , 1 , 7 )
_ S h o w B k i d = S u b s t r ( D e t a i l , A t ( " # " , D e t a i l ) + 1 , ( A t ( " $ " , D e t a i l ) - ( A t ( " # " , D e t a i l ) + 1 ) ) )
_ S h o w N a m e = P a d r ( S u b s t r ( D e t a i l , A t ( " $ " , D e t a i l ) + 1 ) , 2 5 )
_ S h o w D R n t = S u b s t r ( D e t a i l , A t ( " ! " , D e t a i l ) + 1 , 8 )
A r r a y c h o i c e [ j ] = P a d R ( A l l t r i m ( S t r ( j ) ) , 2 ) + " " + _ S h o w R n t i d + " " + _ S h o w B k i d + " " + _ S h o w N a m e + " " + _ S h o w D R n t + " "
N e x t j
S e t c o l o r ( " W / R " )
C a n O p t : = A c h o i c e ( 8 , 5 , 1 8 , 7 5 , A r r a y c h o i c e )
D o C a s e
C a s e C a n O p t > 0
n r e c n o : = S u b s t r ( D e t a i l A r [ C a n O p t ] , A t ( " ~ " , D e t a i l A r [ C a n O p t ] ) + 1 , ( A t ( " # " , D e t a i l A r [ C a n O p t ] ) - ( A t ( " ~ " , D e t a i l A r [ C a n O p t ] ) + 1 ) ) )
n w o r k a r e a 1 : = S e l e c t ( )
U _ r n t ( v a l ( n r e c n o ) )
_ S h o w B k i d = S u b s t r ( D e t a i l A r [ C a n O p t ] , A t ( " # " , D e t a i l A r [ C a n O p t ] ) + 1 , ( A t ( " $ " , D e t a i l A r [ C a n O p t ] ) - ( A t ( " # " , D e t a i l A r [ C a n O p t ] ) + 1 ) ) )
S e l e B o o k s
S e e k _ S h o w B k i d
I f F o u n d ( )
R e p l a c e B o o k s - > S t a t u s w i t h . f .
E n d i f
S e l e c t ( n w o r k a r e a 1 )
C a s e C a n O p t < = 0
E x i t
E n d c a s e
r e s t s c r e e n ( 8 , 5 , 1 8 , 7 5 , w o r k s c r e e n )
E n d d o
C l o s e D a t a b a s e
/ / S e t E s c a p e o f f
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
* * * * * * * * * * * * * * * * *
* R e t u r n B o o k s *
* * * * * * * * * * * * * * * * *
P r o c e d u r e R e t u r n i n g
* - - B#A#!2#7+1*7--*!2
4 @!7H-I-+!2"@%*!2
4A%I' B#A#!032#
* - - 3#+1*DI+2'H2*!2
45IDII2H2@
H2+1*7-D'I+#7-D!H I2I2
* - - @G3'@4@H2D# 21IG3#+1**!2
4DI+2CA I!CA I!@
H2'H2
* - - *!2
45I!5#+1*@
H2C( #2"2#C) 5H"1D!HDI3
* - - +1*7-!27G0D3#+1*+1*7-2A I!@
H2%0@-5" #I-!1I+2
7H-
* - - +1*7-2A I!
7H-!2I'" #'!6DI9'H2+1*7-AH%0@%H!I-@*5"H2#1
* - - @G3'@4@H2D#
* - - 1 . @G+12- 7I5H32@4! *5@4!D'IH-
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
S e t i n t e n s i t y o n
S e t E s c a p e o n
* - - #02(1'A#
_ E m p l o y e e _ i d : = " 1 0 0 0 4 "
_ N _ R e n t _ I d : = S p a c e ( 7 ) / / * - > f o r r e n t . d b f , r e n t d e t a ( i l ) . d b f
_ M e m b e r _ I d : = S p a c e ( 5 ) / / * - > f o r m e m b e r . d b f
_ D a t e _ t o _ R e n t : = D a t e ( )
_ D a t e _ t o _ R e t u : = D a t e ( ) + 7
_ L i n e : = 1 0
_ N o : = 0
_ S u m R t n : = 0
_ K a c h a o _ p a y : = " 0 "
_ O l d p a y : = " 0 "
_ T o t a l _ P a y : = " 0 "
* - - 2 . #02(A I!2I-!9%5HC
ICB#A#!@
H2+1*7-
C l o s e D a t a b a s e
S e l e 1 ; U s e R e n t ; C o p y S t r u c t t o T e m p
S e l e 2 ; U s e R e n t d e t a ; C o p y S t r u c t t o T e m p e d
S e l e 3 ; U s e M e m b e r I n d e x M e m b e r ; R e i n d e x
S e l e 4 ; U s e B o o k s I n d e x B o o k s ; R e i n d e x
S e l e 5 ; U s e N a m e I n d e x N a m e ; R e i n d e x
* S e l e 6 ; U s e M e m d e b t / / D!HC
I
* - - @#4H!B#A#! B e g i n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* - 3 . @5"+I2-@
H2
D o P a i n t s c r e e n
M a k e s c r e e n ( 1 , 0 , 2 3 , 7 9 , 1 , " W + / B " )
S h w _ S t a t u s ( " E n t e r = @%7-+#7-A* E S C = @!7H-7@*#G+#7---22#7" , " N / W " )
S e t c o l o r ( " W + / B " )
@ 2 , 8 S a y " #+1* 12 [ ] '15H7 [ ] " C o l o r ( " W + / B " )
@ 3 , 8 S a y " #+1**!2
4 [ ]
7H-- *8% [ ] " C o l o r ( " W + / B " )
@ 4 , 8 S a y " I2
3#0 [ ] . " C o l o r ( " W + / B " )
L _ C r o s s ( 5 , 1 , 7 8 , " R + / B " )
@ 6 , 5 S a y " %31 #+1*@
H2 #+1* *.
7H-+1*7- '15@
H2 H2@
H2" C o l o r ( " W + / B " )
@ 7 , 5 S a y " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " C o l o r ( " W + / B " )
L _ C r o s s ( 1 9 , 1 , 7 8 , " R + / B " )
@ 2 0 , 3 S a y " #'!+1*7-I2*H @%H! *H7 @%H! #'!H2#1 . " C o l o r ( " W + / B " )
@ 2 1 , 4 9 S a y " ' H2@
H2I2 . " C o l o r ( " W + / B " )
@ 2 2 , 4 9 S a y " #'! H2"1I+! . " C o l o r ( " W + / B " )
@ 2 1 , 4 8 S a y " { " C o l o r ( " R + / B " )
@ 2 1 , 5 2 s a y " } " C o l o r ( " R + / B " )
@ 2 2 , 4 8 S a y " { " C o l o r ( " R + / B " )
@ 2 2 , 5 2 s a y " } " C o l o r ( " R + / B " )
@ 2 , 2 2 S a y _ E m p l o y e e _ i d C o l o r ( " G + / R " )
@ 2 , 4 2 S a y P A D C ( s t r ( D a y ( D a t e ( ) ) ) + " " + c M o n t h ( D a t e ( ) ) + s t r ( Y e a r ( D a t e ( ) ) ) , 1 8 ) c o l o r ( " G + / R " )
* - - 4 . #1I-!9%*!2
4
@ 3 , 2 2 G e t _ M e m b e r _ I d V a l i d C h k I D ( _ M e m b e r _ I d , " M e m b e r " , { [ M e m i d ] , [ M e m n a ] } , " " , 3 , 4 2 ) C o l o r ( " G + / R " )
R e a d
I f L a s t k e y ( ) = 2 7
C l o s e D a t a b a s e
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
E n d i f
* - - 5 . #'*-+5II2
3#0-*!2
4
U s e M e m d e b t
G o t o T o p
L o c a t e F o r M e m d e b t - > M e m i d = _ M e m b e r _ I d . a n d . V A L ( M e m d e b t - > D e b t i n g ) > 0
I f F o u n d ( )
_ O l d p a y : = M e m d e b t - > D e b t i n g
E l s e
_ O l d p a y : = " - N O N E - "
E n d i f
@ 4 , 2 2 S a y P A D L ( A l l t r i m ( _ O l d p a y ) + " . 0 0 " , 6 ) C o l o r ( " G + / R " )
S e t c o l o r ( " / R " )
@ 8 , 5 c l e a r t o 1 8 , 7 5
w o r k s c r e e n : = S a v e s c r e e n ( 8 , 5 , 1 8 , 7 5 )
D o W h i l e . T . / / %9#1+1*7-
D e t a i l A r : = { }
R e n t i d _ A r : = { } / / - - > r e n t i d a r r a y
d e t a i l : = " "
R n t O p t : = 0
S h w B o o k A r : = n R e c a r : = { }
* - - D#1#8A I!@
H2A%0@
H2%0@-5"H-
U p d _ R t n _ B k ( )
S e l _ R n t _ B k ( D e t a i l A r , _ M e m b e r _ I d )
a r r a y c h o i c e : = a r r a y ( l e n ( D e t a i l A r ) )
* - - < #+1*@
H2! '15H@
H2~ +!2"@%@#G-#L# #+1*+1*7-$
7H-+1*7->
F o r j = 1 t o l e n ( D e t a i l A r )
D e t a i l = D e t a i l A r [ j ]
r p r i c e = " "
_ S h o w R n i d = S u b s t r ( D e t a i l , 1 , 7 )
_ S h o w B k i d = S u b s t r ( D e t a i l , A t ( " # " , D e t a i l ) + 1 , ( A t ( " $ " , D e t a i l ) - ( A t ( " # " , D e t a i l ) + 1 ) ) )
_ S h o w N a m e = P a d r ( S u b s t r ( D e t a i l , A t ( " $ " , D e t a i l ) + 1 ) , 2 5 )
_ S h o w D R n t = S u b s t r ( D e t a i l , A t ( " ! " , D e t a i l ) + 1 , 8 )
_ N u m d a t e = 0
I f D a t e ( ) > = c t o d ( _ S h o w D R n t )
I f D a t e ( ) = c t o d ( _ S h o w D R n t ) ; _ N u m d a t e = 1 ; E n d i f
I f D a t e ( ) > c t o d ( _ S h o w D R n t ) ; _ N u m D a t e = D a t e ( ) - C t o D ( _ S h o w D R n t ) ; E n d i f
S e l e B o o k s
S e e k _ S h o w B k i d
I f f o u n d ( )
r p r i c e = B o o k s - > R n t p r i c e
E n d i f
_ K a c h a o = A l l t r i m ( S t r ( _ N u m d a t e * V a l ( r P r i c e ) ) ) + " . 0 0 "
E l s e
_ K a c h a o = " 0 . 0 0 "
E n d i f
A r r a y c h o i c e [ j ] = P a d L ( A l l t r i m ( S t r ( j ) ) , 2 ) + " " + _ S h o w R n i d + " " + _ S h o w B k i d + " " + _ S h o w N a m e + " " + _ S h o w D R n t + " " + P a d L ( _ K a c h a o , 6 )
N e x t j
I f _ O l d p a y = " - N O N E - "
_ O l d p a y = " 0 "
E n d i f
_ T o t a l _ P a y : = A l l t r i m ( S t r ( V a l ( _ K a c h a o _ P a y ) + V a l ( _ O l d p a y ) ) )
@ 2 0 , 2 1 S a y P a d l ( A l l t r i m ( S t r ( L e n ( A r r a y c h o i c e ) ) ) , 3 ) C o l o r ( " G + / R " )
@ 2 0 , 3 8 S a y P a d l ( A l l t r i m ( S t r ( _ S u m R t n ) ) , 3 ) c o l o r ( " G + / R " )
@ 2 0 , 6 8 S a y P a d l ( A l l t r i m ( _ K a c h a o _ P a y ) , 3 ) + " . 0 0 " C o l o r ( " G + / R " )
@ 2 1 , 6 8 S a y P a d l ( A l l t r i m ( _ O l d p a y ) + " . 0 0 " , 6 ) C o l o r ( " G + / R " )
@ 2 2 , 6 8 S a y P a d l ( A l l t r i m ( _ T o t a l _ P a y ) , 3 ) + " . 0 0 " C o l o r ( " G + / R " )
S e t c o l o r ( " W / R " )
R n t O p t : = A c h o i c e ( 8 , 5 , 1 8 , 7 5 , A r r a y c h o i c e )
D o C a s e
C a s e R n t O p t > 0
n r e c n o : = S u b s t r ( D e t a i l A r [ R n t O p t ] , A t ( " ~ " , D e t a i l A r [ R n t O p t ] ) + 1 , ( A t ( " # " , D e t a i l A r [ R n t O p t ] ) - ( A t ( " ~ " , D e t a i l A r [ R n t O p t ] ) + 1 ) ) )
_ S u m R t n + +
_ K a c h a o : = S u b s t r ( A r r a y c h o i c e [ R n t O p t ] , - 6 , 3 )
_ K a c h a o _ P a y : = A l l t r i m ( S t r ( V a l ( _ K a c h a o _ P a y ) + V a l ( _ K a c h a o ) ) )
_ T o t a l _ P a y : = A l l t r i m ( S t r ( V a l ( _ K a c h a o _ P a y ) + V a l ( _ O l d p a y ) ) )
n w o r k a r e a 1 : = S e l e c t ( )
U p d _ s t a t u s ( v a l ( n r e c n o ) )
_ S h o w B k i d = S u b s t r ( D e t a i l A r [ R n t O p t ] , A t ( " # " , D e t a i l A r [ R n t O p t ] ) + 1 , ( A t ( " $ " , D e t a i l A r [ R n t O p t ] ) - ( A t ( " # " , D e t a i l A r [ R n t O p t ] ) + 1 ) ) )
S e l e B o o k s
S e e k _ S h o w B k i d
I f F o u n d ( )
R e p l a c e B o o k s - > S t a t u s w i t h . f .
E n d i f
S e l e c t ( n w o r k a r e a 1 )
C a s e R n t O p t < = 0
E x i t
E n d c a s e
r e s t s c r e e n ( 8 , 5 , 1 8 , 7 5 , w o r k s c r e e n )
E n d d o
* - - @*#GA%I'I2!5H2#1C+I@GG@G*4#1D!H1I28A"H@%"
I f V a l ( _ T o t a l _ P a y ) > 0
I f ( G e t m o n e y ( " H2#1A%0@4I2
3#0" , _ T o t a l _ P a y ) )
* - - I2H2"@4@5K"'1I@%"
U s e I n c o m e
G o T o p
L o c a t e F o r I n c o m e - > D a t e = D a t e ( ) . a n d . I n c o m e - > I n c i d = " 0 4 "
I f F o u n d ( )
R e p l a c e I n c o m e - > I n c n e t W i t h L t r i m ( S t r ( V a l ( I n c o m e - > I n c n e t ) + V a l ( _ T o t a l _ P a y ) ) )
E l s e
A p p e n d B l a n k
R e p l a c e I n c o m e - > I n c i d W i t h " 0 4 " , I n c o m e - > D a t e W i t h D a t e ( ) , ;
I n c o m e - > I n c n e t W i t h A l l t r i m ( S t r ( V a l ( _ T o t a l _ P a y ) ) )
E n d i f
* - - #1#8A I!+5II2
3#0-*!2
4 C+I@G 0 2
S e l e M e m d e b t
G o t o T o p
L o c a t e F o r M e m d e b t - > M e m i d = _ M e m b e r _ I d
I f F o u n d ( )
R e p l a c e M e m d e b t - > d e b t i n g w i t h " 0 "
E n d i f
* - - H2#11+5I#'!1DI@H21 3'@45HI-H2"1I+!
* - - _ K a c h a o _ P a y + _ O l d p a y = _ T o t a l _ P a y
E l s e
S e l e M e m d e b t
g o t o t o p
L o c a t e F o r m e m d e b t - > M e m i d = _ M e m b e r _ I d
I f F o u n d ( )
R e p l a c e M e m d e b t - > d e b t i n g w i t h _ K a c h a o _ P a y
E l s e
A p p e n d B l a n k
R e p l a c e M e m d e b t - > M e m i d w i t h _ M e m b e r _ I d
R e p l a c e M e m d e b t - > d e b t i n g w i t h _ K a c h a o _ P a y
E n d i f
E n d i f
E n d i f
C l o s e D a t a b a s e
/ / S e t E s c a p e o f f
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
< / f o n t >
< / p r e >
< h r >
< a n a m e = " a p e n j o b " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- a p e n j o b . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
# i n c l u d e " i n k e y . c h "
P r o c e d u r e A p e n d _ D a t a / / - - @ 4H!I-!9% - - / /
l o c a l i , A c h O p t : = 1
l o c a l t e x t : = " @ 4H!"
S e t E s c a p e o n
s e t c u r s o r o n
C l o s e D a t a b a s e
S e t W r a p O n
D o B o x e s _ S c r n W i t h 6 , 4 4 , 1 4 , 7 3 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 4 3 , 1 3 , 7 2 , " G / R "
f o r i = 1 t o L e n ( p r o g n a m e )
* - - p r o g n a m e @G1'A#!22m e n u . p r g - - *
@ i + 6 , 4 5 P r o m p t L t r i m ( S t r ( i ) ) + " . " + t e x t + " I-!9%" + p r o g n a m e [ i ]
n e x t i
S e t c o l o r ( " W + / R " )
@ 6 , 4 5 S a y " I-2# . . . "
S e t c o l o r ( " G / R " )
M e n u t o A c h O p t
D o C a s e
C a s e A c h O p t = 1
D o A p e n d _ M e m
C a s e A c h O p t > = 2 . a n d . A c h O p t < = 5
S e l e 1 ; U s e B o o k s i n d e x B o o k s ; R e i n d e x
S e l e 2 ; U s e N a m e i n d e x N a m e ; R e i n d e x
S e l e 3 ; U s e T y p e s i n d e x T y p e s ; R e i n d e x
S e l e 4 ; U s e A u t h o r i n d e x A u t h o r ; R e i n d e x
D o C a s e
C a s e A c h O p t = 2
D o A p e n d _ B o o k
C a s e A c h O p t = 3
D o A p e n d _ T y p e
C a s e A c h O p t = 4
D o A p e n d _ N a m e
C a s e A c h O p t = 5
D o A p e n d _ A u t h r
E n d c a s e
C a s e A c h O p t = 6
D o A p e n d _ E m p
E n d c a s e
C l o s e D a t a b a s e
R e t u r n
*
P r o c e d u r e A p e n d _ M e m
l o c a l o l d w o r k a r e a : = s e l e c t ( )
l o c a l o l d c o l o r : = s e t c o l o r ( )
l o c a l o l d s c r e e n : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
s e t e s c a p e o n
S e l e 1 ; U s e I n c o m e
S e l e 2 ; U s e B e g w o r k
S e l e 3 ; u s e M e m b e r
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 1 , 1 9 , 7 4 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 0 , 1 8 , 7 3 , " N + / W "
@ 6 , 3 0 S a y " @ 4H!I-!9%*!2
4" C o l o r ( " B / W " )
L _ C r o s s ( 7 , 1 1 , 7 2 , " N / W " )
L _ C r o s s ( 1 6 , 1 1 , 7 2 , " N / W " )
D o M e m d e t a i l W i t h 8 , 1 3 , " B / W "
M e _ s c r e e n : = S a v e s c r e e n ( 5 , 1 0 , 1 9 , 7 0 )
D o W h i l e . T .
_ M e m i d = s p a c e ( 5 )
_ M e m n a = s p a c e ( 2 0 )
_ M e m s e x = s p a c e ( 1 )
_ M e m a g e = 0
_ M e m a d d = s p a c e ( 4 0 )
_ M e m t e l = s p a c e ( 1 1 )
_ M e m s t a r t = D a t e ( )
_ M e m s t o p = L t r i m ( s t r ( m o n t h ( D a t e ( ) ) ) ) + A l l t r i m ( " / " ) + L t r i m ( s t r ( D a y ( D a t e ( ) ) ) ) + A l l t r i m ( " / " ) + L t r i m ( s t r ( Y e a r ( D a t e ( ) ) + 1 ) )
A s k i n g = 0
S h w _ S t a t u s ( " E s c I2I-2#--22#@ 4H!*!2
4" , " R / W " )
S e t c o l o r ( " B / W " )
G o t o B o t t o m
_ M e m i d = A l l t r i m ( S t r ( V a l ( M e m b e r - > M e m i d ) + 1 ) )
@ 8 , 3 2 S a y _ M e m i d C o l o r ( " G R / B " )
@ 9 , 3 2 G e t _ M e m n a C o l o r ( " G R / B " )
@ 1 0 , 3 2 G e t _ M e m s e x P i c t " ! X " V a l i d _ M e m s e x $ " M F " c o l o r ( " G R / B " )
@ 1 1 , 3 2 G e t _ M e m a g e P i c t " @ B " C o l o r ( " G R / B " )
@ 1 2 , 3 2 G e t _ M e m a d d C o l o r ( " G R / B " )
@ 1 3 , 3 2 G e t _ M e m t e l P i c t " 9 9 9 - 9 9 9 9 9 9 X " C o l o r ( " G R / B " )
@ 1 4 , 3 2 S a y _ M e m s t a r t C o l o r ( " G R / B " )
@ 1 5 , 3 2 S a y C t o D ( _ M e m s t o p ) C o l o r ( " G R / B " )
R e a d
I f l a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E n d i f
I f N e w _ S a v e ( 1 7 , 1 3 , " B / W , W + / R " )
A p p e n d B l a n k
r e p l a c e M e m i d w i t h _ M e m i d
r e p l a c e M e m n a w i t h _ M e m n a
r e p l a c e M e m s e x w i t h U p p e r ( _ M e m s e x )
r e p l a c e M e m a g e w i t h _ M e m a g e
r e p l a c e M e m a d d w i t h _ M e m a d d
r e p l a c e M e m t e l w i t h _ M e m t e l
r e p l a c e M e m s t a r t w i t h _ M e m s t a r t
R e p l a c e M e m s t o p w i t h C t o D ( _ M e m s t o p )
S a v e S c r e e n t o P a g e 2
S e l e B e g w o r k
G e t M o n e y ( " H2*!1#*!2
4" , B e g w o r k - > M e m b e r p a y )
S e l e I n c o m e
G o T o p
L o c a t e F o r I n c o m e - > D a t e = D a t e ( ) . a n d . I n c o m e - > I n c i d = " 0 1 "
I f F o u n d ( )
R e p l a c e I n c o m e - > I n c n e t W i t h L t r i m ( S t r ( V a l ( I n c o m e - > I n c n e t ) + V a l ( B e g w o r k - > M e m b e r p a y ) ) )
E l s e
A p p e n d B l a n k
R e p l a c e I n c o m e - > I n c i d W i t h " 0 1 " , I n c o m e - > D a t e W i t h D a t e ( ) , ;
I n c o m e - > I n c n e t W i t h L t r i m ( S t r ( V a l ( I n c o m e - > I n c n e t ) + V a l ( B e g w o r k - > M e m b e r p a y ) ) )
E n d i f
E n d I f
S e l e M e m b e r
R e s t s c r e e n ( 5 , 1 0 , 1 9 , 7 0 , M e _ s c r e e n )
E n d D o
s e l e c t ( o l d w o r k a r e a )
s e t c o l o r ( o l d c o l o r )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , o l d s c r e e n )
R e t u r n
*
P r o c e d u r e A p e n d _ B o o k / / - - %0@5" +#7- @ 4H!I-!9%+1*7- - - / /
l o c a l o l d w o r k a r e a : = s e l e c t ( )
l o c a l o l d c o l o r : = s e t c o l o r ( )
l o c a l o l d s c r e e n : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
S e t e s c a p e o n
S e t C u r s o r o n
S e l e 5 ; U s e E x p _ d e t a
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 4 , 1 7 , 7 5 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 3 , 1 6 , 7 4 , " R / B "
@ 6 , 3 5 S a y " %0@5"+1*7-C+!H" C o l o r ( " G + / B " )
L _ C r o s s ( 7 , 4 , 7 3 , " N / B " )
L _ C r o s s ( 1 4 , 4 , 7 3 , " N / B " )
@ 8 , 1 0 S a y " '15H%0@5" [ ] " C o l o r ( " W + / B " )
@ r o w ( ) + 1 , 1 0 S a y " #08#+1*#0@ [ ] [ ] " C o l o r ( " W + / B " )
@ r o w ( ) + 1 , 1 0 S a y " #+1*
7H-+1*7- [ ] [ ] " C o l o r ( " W + / B " )
@ r o w ( ) + 1 , 1 0 S a y " #+1*C+!H5H3+ [ ] " C o l o r ( " W + / B " )
@ r o w ( ) + 1 , 1 0 S a y " #22+1*7- [ ] 2" C o l o r ( " W + / B " )
@ r o w ( ) + 1 , 1 0 S a y " H2@
H2 [ ] 2" C o l o r ( " W + / B " )
B k r e g i s _ S c r : = S a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
D o w h i l e . T .
_ B k i d = S p a c e ( 8 )
n T y p e = S p a c e ( 1 )
n N a m e = S p a c e ( 4 )
n N o = S p a c e ( 3 )
_ B k d a t e = D a t e ( )
_ B k p r i c e : = _ R n t p r i c e : = S p a c e ( 3 )
T m p : = s p a c e ( 3 )
A s k i n g : = 0
S h w _ S t a t u s ( " B#I-#+1*#0@ . . @ 4H!#0@ C+!HF 2 . . @%7-I-!9%E n t e r . . --E S C . . " , " N / W " )
@ 8 , 3 0 s a y _ B k d a t e c o l o r ( " R + / N " )
* - - 3+ h o t k e y *3+#1@ 4H!#0@
* S e t k e y - 1 t o A p e n d _ T y p e
/ / S e l e T y p e s
@ 9 , 3 0 G e t n T y p e P i c t " @ 9 " ;
v a l i d C h k i d ( n T y p e , " T y p e s " , { [ T y p e i d ] , [ T y p e n a m e ] } , " " , 9 , 3 9 ) c o l o r ( " W + / R " )
r e a d
i f l a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
e n d i f
/ / S e l e n a m e
S h w _ S t a t u s ( " B#I-#+1*
7H-. . @ 4H!
7H-C+!HF 2 . . @%7-I-!9%E n t e r . . --E S C . . " , " N / W " )
@ 1 0 , 3 0 G e t n N a m e P i c t " @ 9 " v a l i d C h k i d ( n N a m e , " N a m e " , { [ N a m e i d ] , [ N a m e ] } , " " , 1 0 , 3 9 ) c o l o r ( " W + / R " )
r e a d
i f l a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
e n d i f
S e l e B o o k s
S e t F i l t e r t o S u b s t r ( ( B o o k s - > B k i d ) , 1 , 5 ) = ( n T y p e + n N a m e )
G o t o B o t t o m
n N o : = L t r i m ( s t r ( v a l ( b o o k s - > b k i d ) + 1 ) )
n N o : = " 0 0 0 " + n N o
n N o : = S u b s t r ( n N o , - 3 , 3 )
_ B k i d : = n T y p e + n N a m e + n N o
@ 1 1 , 3 0 S a y _ B k i d c o l o r ( " W + / R " )
S h w _ S t a t u s ( " B#I-#22+1*7-. . I2--E S C . . " , " N / W " )
@ 1 2 , 3 0 G e t _ B k p r i c e P i c t " 9 9 9 " V a l i d ! E m p t y ( _ B k p r i c e ) c o l o r ( " W + / R " )
r e a d
_ R n t p r i c e : = C a l R p r i c e ( n T y p e , V a l ( _ B k p r i c e ) )
S h w _ S t a t u s ( " H2*2!2#AID-1#2H2@
H2DI. . AHI2--E S C . . I2I-2#16I-!9% E n t e r " , " N / W " )
@ 1 3 , 3 0 G e t _ R n t p r i c e P i c t " 9 9 9 " V a l i d ! E m p t y ( _ R n t p r i c e ) c o l o r ( " W + / R " )
r e a d
i f l a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
e n d i f
I f N e w _ S a v e ( 1 5 , 1 0 , " G R + / B , W + / R " )
S e l e B o o k s
A p p e n d B l a n k
R e p l a c e B o o k s - > B k i d W i t h _ B k i d , B o o k s - > B k d a t e W i t h _ B k D a t e , ;
B o o k s - > B k p r i c e W i t h _ B k p r i c e , ;
B o o k s - > R n t p r i c e W i t h _ R n t p r i c e , ;
B o o k s - > S t a t u s W i t h . F .
S e l e E x p _ d e t a
A p p e n d B l a n k
R e p l a c e E x p _ d e t a - > E x p i d W i t h " 0 1 " , E x p _ d e t a - > E x p d a t e w i t h _ B k d a t e , ;
E x p _ d e t a - > E x p n e t W i t h E x p _ d e t a - > E x p n e t + V a l ( A l l t r i m ( _ B k p r i c e ) )
E n d i f
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , B k r e g i s _ S c r )
E n d D o
s e l e c t ( o l d w o r k a r e a )
s e t c o l o r ( o l d c o l o r )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , o l d s c r e e n )
S e t C u r s o r O f f
R e t u r n
*
P r o c e d u r e A p e n d _ T y p e
l o c a l o l d w o r k a r e a : = s e l e c t ( )
l o c a l o l d c o l o r : = s e t c o l o r ( )
l o c a l o l d s c r e e n : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l T y _ S c r e e n
S e l e c t T y p e s
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 9 , 1 3 , 6 3 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 8 , 1 2 , 6 2 , " R / W "
A s k i n g = 0
_ T y p e i d = S p a c e ( 1 )
S e t c o l o r ( " G R / G " )
D o T y p e D e t a i l W i t h 8 , 1 9 , " R / W "
@ 6 , 2 1 S a y " @ 4H!I-!9%#0@ +1*7-" C o l o r " G R + / B "
L _ C r o s s ( 7 , 9 , 6 1 , " N / W " )
L _ C r o s s ( 1 0 , 9 , 6 1 , " N / W " )
T y _ S c r e e n : = s a v e s c r e e n ( 5 , 8 , 1 3 , 6 3 )
D o W h i l e . T .
I f R e c c o u n t ( ) > 0
G o t o B o t t o m
_ T y p e i d = L t r i m ( s t r ( V a l ( T y p e s - > T y p e i d ) + 1 ) )
e l s e
_ T y p e i d = " 1 "
E n d i f
_ T y p e n a m e = S p a c e ( 2 0 )
S h w _ S t a t u s ( " I-I-!9%#0@ +1*7-. . --22#@ 4H!#0@ E s c . . " , " N / W " )
@ 8 , 3 5 S a y _ T y p e i d C o l o r ( " R + / B " )
@ 9 , 3 5 G e t _ T y p e n a m e V a l i d ! E m p t y ( _ T y p e n a m e ) C o l o r ( " G R / B " )
R e a d
I f l a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E l s e
I f N e w _ S a v e ( 1 1 , 1 1 , " G r / W , W + / R " )
A p p e n d B l a n k
R e p l a c e T y p e s - > T y p e i d W i t h _ T y p e i d , ;
T y p e s - > T y p e n a m e W i t h _ T y p e n a m e
E n d I f
E n d I f
r e s t s c r e e n ( 5 , 8 , 1 3 , 6 3 , T y _ S c r e e n )
E n d d o
s e l e c t ( o l d w o r k a r e a )
s e t c o l o r ( o l d c o l o r )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , o l d s c r e e n )
R e t u r n
*
P r o c e d u r e A p e n d _ N a m e
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l N a _ S c r e e n
_ A u t h r i d = S p a c e ( 3 )
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 0 , 1 5 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 9 , 1 4 , 6 9 , " R / W "
D o N a m e d e t a i l W i t h 8 , 1 2 , " G R / W "
@ 6 , 3 0 S a y " @ 4H!I-!9%
7H-+1*7-" C o l o r ( " B / W " )
L _ C r o s s ( 7 , 1 0 , 6 8 , " N / W " )
L _ C r o s s ( 1 2 , 1 0 , 6 8 , " N / W " )
N a _ S c r e e n : = s a v e s c r e e n ( 5 , 9 , 1 5 , 7 0 )
D o W h i l e . T .
S e l e n a m e
G o t o B o t t o m
_ N a m e i d = L t r i m ( S t r ( V a l ( N a m e - > N a m e i d ) + 1 ) )
_ N a m e t x t = S p a c e ( 3 0 )
_ A u t h o r I d = S p a c e ( 3 )
_ A u t h o r n a m e = S p a c e ( 1 5 )
S h w _ S t a t u s ( " I-I-!9%
7H-+1*7-. . --22#@ 4H!
7H-+1*7- E s c . . " , " N / W " )
@ 1 0 , 2 8 S a y " " C o l o r ( " + B / G " )
@ 1 1 , 2 8 S a y " " C o l o r ( " B / G " )
@ 8 , 2 8 G e t _ N a m e i d P i c t " 9 9 9 9 " C o l o r ( " B / G " )
@ 9 , 2 8 G e t _ N a m e t x t V a l i d ! E m p t y ( _ N a m e t x t ) C o l o r ( " B / G " )
r e a d
I f L a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E n d i f
S e l e A u t h o r
S e t c o l o r ( " B / G " )
@ 1 0 , 2 8 G e t _ A u t h o r i d P i c t " 9 9 9 " V a l i d C h k i d ( _ A u t h o r i d , " A u t h o r " , { [ A u t h r i d ] , [ A u t h r n a m e ] } , " " , 1 1 , 2 8 ) c o l o r ( " B / G " )
R e a d
I f L a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E n d I f
I f N e w _ S a v e ( 1 3 , 1 2 , " G r / W , W + / R " )
S e l e N a m e
A p p e n d B l a n k
R e p l a c e N a m e - > N a m e i d W i t h _ N a m e i d , N a m e - > N a m e W i t h _ N a m e t x t , ;
N a m e - > A u t h r i d W i t h _ A u t h o r I d
E n d i f
r e s t s c r e e n ( 5 , 9 , 1 5 , 7 0 , N a _ S c r e e n )
E n d d o
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c e d u r e A p e n d _ A u t h r
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l a u s c r e e n
S e l e A u t h o r
_ A u t h r I d = S p a c e ( 3 )
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 0 , 1 3 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 9 , 1 2 , 6 9 , " R / W "
S e t c o l o r ( " R / G " )
@ 6 , 2 0 S a y " @ 4H!I-!9% 9IAH"
L _ C r o s s ( 7 , 1 0 , 6 8 , " N / W " )
L _ C r o s s ( 1 0 , 1 0 , 6 8 , " N / W " )
D o A u t h r D e t a i l W i t h 8 , 1 9 , " R / W "
a u s c r e e n : = S a v e s c r e e n ( 5 , 9 , 1 2 , 7 0 )
D o W h i l e . T .
_ A u t h r N a m e = S p a c e ( 2 5 )
i f R e c c o u n t ( ) > 0
G o B o t t o m
_ A u t h r I d = L t r i m ( S t r ( V a l ( A u t h o r - > A u t h r i d ) + 1 ) )
E l s e
_ A u t h r I d = " 1 0 1 "
E n d i f
S h w _ S t a t u s ( " I-I-!9% 9IAH+1*7-. . --22#@ 4H! 9IAH+1*7- E s c . . " , " N / W " )
@ 8 , 3 5 S a y _ A u t h r I d C o l o r ( " R / B " )
@ 9 , 3 5 G e t _ A u t h r N a m e V a l i d ! E m p t y ( _ A u t h r N a m e ) C o l o r ( " R / B " )
R e a d
I f L a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E n d i f
I f N e w _ S a v e ( 1 1 , 1 2 , " G r / W , W + / R " )
A p p e n d B l a n k
R e p l a c e A u t h o r - > A u t h r i d W i t h _ A u t h r I d , A u t h o r - > A u t h r n a m e W i t h A l l t r i m ( _ A u t h r N a m e )
E n d I f
R e s t s c r e e n ( 5 , 9 , 1 2 , 7 0 , a u s c r e e n )
E n d d o
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c e d u r e A p e n d _ E m p
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l E m _ s c r e e n
s e t e s c a p e o n
U s e E m p l o y e e
A s k i n g = 0
D o B o x e s _ S c r n W i t h 1 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 0 , 1 8 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 9 , 1 7 , 6 9 , " R / W "
@ 6 , 3 0 S a y " @ 4H!I-!9% 12" C o l o r ( " B / W " )
D o E m p d e t a i l W i t h 8 , 1 8 , " B / W "
L _ C r o s s ( 7 , 1 0 , 6 8 , " N / W " )
L _ C r o s s ( 1 5 , 1 0 , 6 8 , " N / W " )
E m _ s c r e e n : = S a v e s c r e e n ( 5 , 9 , 1 8 , 7 0 )
D o W h i l e . T .
_ E m p i d = s p a c e ( 5 )
_ E m p n a = s p a c e ( 3 0 )
_ E m p s e x = s p a c e ( 1 )
_ E m p a d d = s p a c e ( 3 0 )
_ E m p t e l = s p a c e ( 1 1 )
_ S a l a r y = 0
_ E m p s t a r t = D a t e ( )
I f R e c c o u n t ( ) > 0
G o b o t t o m
_ E m p i d = A l l t r i m ( S t r ( V a l ( E m p i d ) + 1 ) )
E l s e
_ E m p i d = " 1 0 0 0 1 "
E n d i f
@ 8 , 3 5 S a y _ E m p i d c o l o r ( " R / B " )
@ 9 , 3 5 G e t _ E m p n a v a l i d _ E m p n a ! = n i l c o l o r ( " R / B " )
@ 1 0 , 3 5 G e t _ E m p s e x P i c t " ! X " V a l i d _ E m p s e x $ " M F " c o l o r ( " R / B " )
@ 1 1 , 3 5 G e t _ E m p a d d c o l o r ( " R / B " )
@ 1 2 , 3 5 G e t _ E m p t e l P i c t " 9 9 9 - 9 9 9 9 9 9 X " c o l o r ( " R / B " )
@ 1 3 , 3 5 G e t _ S a l a r y p i c t " 9 9 9 9 9 . 9 9 " c o l o r ( " R / B " )
@ 1 4 , 3 5 S a y _ E m p s t a r t c o l o r ( " R / B " )
R e a d
I f L a s t k e y ( ) = 2 7
I f C a n c e l A s k ( " --B#A#!B"D!H16" )
e x i t
E l s e
L o o p
E n d i f
E n d i f
I f N e w _ S a v e ( 1 6 , 1 2 , " G r / W , W + / R " )
A p p e n d B l a n k
r e p l a c e E m p i d w i t h _ E m p i d
r e p l a c e E m p n a w i t h _ E m p n a
r e p l a c e E m p s e x w i t h U p p e r ( _ E m p s e x )
r e p l a c e E m p a d d w i t h _ E m p a d d
r e p l a c e E m p t e l w i t h _ E m p t e l
r e p l a c e S a l a r y w i t h _ S a l a r y
r e p l a c e E m p s t a r t w i t h _ E m p s t a r t
E n d i f
r e s t s c r e e n ( 5 , 9 , 1 8 , 7 0 , E m _ s c r e e n )
E n d d o
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
< / f o n t >
< / p r e >
< h r >
< a n a m e = " e d i t j o b " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- e d i t j o b . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
# i n c l u d e " i n k e y . c h "
P r o c e d u r e U p d _ D a t a / / - - AIDI-!9% - - / /
l o c a l i : = 1
l o c a l t e x t : = " AID"
S e t W r a p O n
D o B o x e s _ S c r n W i t h 6 , 4 4 , 1 4 , 7 3 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 4 3 , 1 3 , 7 2 , " G / R "
f o r i = 1 t o L e n ( p r o g n a m e )
* - - p r o g n a m e @G1'A#!22m e n u . p r g - - *
@ i + 6 , 4 5 P r o m p t L t r i m ( S t r ( i ) ) + " . " + t e x t + " I-!9%" + p r o g n a m e [ i ]
n e x t i
S e t c o l o r ( " W + / R " )
@ 6 , 4 5 S a y " I-2# . . . "
S e t c o l o r ( " G / R " )
M e n u t o U c h O p t
D o C a s e
C a s e U c h O p t = 1
D o U p d _ M e m
C a s e U c h O p t = 2
D o U p d _ B o o k
C a s e U c h O p t = 3
D o U p d _ T y p e
C a s e U c h O p t = 4
D o U p d _ N a m e
C a s e U c h O p t = 5
D o U p d _ A u t h r
C a s e U c h O p t = 6
D o U p d _ E m p
E n d c a s e
R e t u r n
*
f u n c d e l i n g ( )
d e l e t e
p a c k
r e t u r n
P r o c U p d _ M e m
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l M e _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t k e y - 2 t o d e l i n g
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
d e l _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e M e m b e r i n d e x M e m b e r ; S o r t o n M e m i d t o T e m p
S e l e c t 2 ; U s e T e m p i n d e x T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 1 , 1 9 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 0 , 1 8 , 6 9 , " N + / W "
@ 5 , 3 0 S a y " AIDI-!9%*!2
4" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o M e m d e t a i l W i t h 7 , 1 3 , " B / W "
L _ C r o s s ( 1 6 , 1 1 , 6 8 , " N / W " )
M e _ s c r e e n : = S a v e s c r e e n ( 5 , 1 0 , 1 9 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 7 , 1 3 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 7 , 3 2 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G / N " )
@ 7 , 3 2 S a y t e m p - > M e m i d C o l o r ( " B G + / N " )
@ 8 , 3 2 G e t t e m p - > M e m n a V a l i d ! E m p t y ( T e m p - > M e m n a ) C o l o r ( " B G / R " )
@ 9 , 3 2 G e t t e m p - > M e m s e x P i c t " @ A " ;
v a l i d U p p e r ( t e m p - > M e m s e x ) = " M " . o r . U p p e r ( t e m p - > M e m s e x ) = " F " c o l o r ( " B G / R " )
@ 1 0 , 3 2 G e t t e m p - > M e m a g e P i c t " @ B " C o l o r ( " B G / R " )
@ 1 1 , 3 2 G e t t e m p - > M e m a d d C o l o r ( " B G / R " )
@ 1 2 , 3 2 G e t t e m p - > M e m t e l C o l o r ( " B G / R " )
@ 1 3 , 3 2 G e t t e m p - > M e m s t a r t C o l o r ( " B G / R " )
@ 1 4 , 3 2 G e t t e m p - > M e m s t o p C o l o r ( " B G / R " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 7 , 1 1 c l e a r t o 1 7 , 6 8
I f n e w _ s a v e ( 1 7 , 1 3 , " B / W , W + / R " )
c o p y t o M e m b e r
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 5 , 1 0 , 1 9 , 7 0 , M e _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c U p d _ B o o k
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l B k _ s c r e e n , r e c , u p d _ s t a t u s , A s k , n a m e
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e B o o k s i n d e x B o o k s ; S o r t O n B k i d T o T e m p
S e l e 2 ; U s e N a m e i n d e x N a m e
S e l e 3 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 5 , 1 6 , 6 8 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 4 , 1 5 , 6 7 , " N + / W "
@ 5 , 3 0 S a y " AIDI-!9%+1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o B o o k d e t a i l W i t h 7 , 1 7 , " B / W "
L _ C r o s s ( 1 3 , 1 5 , 6 6 , " N / W " )
B k _ s c r e e n : = S a v e s c r e e n ( 5 , 1 4 , 1 6 , 6 8 )
D o W h i l e . t .
G o t o r e c
@ 1 4 , 1 7 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 4 , 3 4 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 4 S a y T e m p - > B k i d C o l o r " B G + / N "
S e l e 2
S e e k S u b s t r ( T e m p - > B k i d , 2 , 4 )
I f F o u n d ( )
N a m e = N a m e - > N a m e
E n d i f
S e l e 3
@ 8 , 3 4 S a y A l l t r i m ( N a m e ) C o l o r ( " B G + / N " )
@ 9 , 3 4 G e t T e m p - > B k d a t e C o l o r ( " B G / R " )
@ 1 0 , 3 4 G e t T e m p - > B k p r i c e C o l o r ( " B G / R " )
@ 1 1 , 3 4 G e t T e m p - > R n t p r i c e C o l o r ( " B G / R " )
@ 1 2 , 3 4 G e t T e m p - > S t a t u s C o l o r ( " B G / R " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 4 , 1 7 c l e a r t o 1 4 , 6 5
I f n e w _ s a v e ( 1 4 , 1 7 , " B / W , W + / R " )
c o p y t o B o o k s
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 5 , 1 4 , 1 6 , 6 8 , B k _ s c r e e n )
E n d D o
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c U p d _ T y p e
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l T y _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e T y p e s i n d e x T y p e s ; S o r t O n T y p e i d T o T e m p
S e l e 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 1 , 1 2 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 0 , 1 1 , 6 9 , " R / W "
@ 6 , 2 5 S a y " AIDI-!9%#0@ +1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o T y p e D e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 9 , 1 1 , 6 8 , " N / W " )
T y _ s c r e e n : = S a v e s c r e e n ( 6 , 1 0 , 1 2 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 0 , 1 9 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 0 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 S a y t e m p - > T y p e i d C o l o r ( " B G + / N " )
@ 8 , 3 5 G e t t e m p - > T y p e N a m e C o l o r ( " B G / R " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 0 , 1 9 c l e a r t o 1 0 , 6 8
I f n e w _ s a v e ( 1 0 , 1 9 , " B / W , W + / R " )
c o p y t o T y p e s
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 0 , 1 2 , 7 0 , T y _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c U p d _ N a m e
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l N a _ s c r e e n , r e c , u p d _ s t a t u s , A s k , a u t h r n a m e
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e N a m e i n d e x N a m e ; S o r t O n N a m e i d T o T e m p
S e l e 2 ; U s e A u t h o r i n d e x A u t h o r
S e l e 3 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 5 , 1 4 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 4 , 1 3 , 6 9 , " R / W "
@ 6 , 3 0 S a y " AIDI-!9%
7H-+1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o N a m e d e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 1 1 , 1 5 , 6 8 , " N / W " )
N a _ s c r e e n : = S a v e s c r e e n ( 6 , 1 4 , 1 4 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 2 , 1 9 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 2 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 G e t t e m p - > N a m e i d C o l o r ( " B G + / N " )
@ 8 , 3 5 G e t t e m p - > N a m e C o l o r ( " B G / R " )
@ 9 , 3 5 G e t t e m p - > A u t h r i d C o l o r ( " B G / R " )
S e l e 2
S e e k t e m p - > A u t h r i d
I f F o u n d ( )
a u t h r n a m e : = A u t h o r - > A u t h r n a m e
E l s e
a u t h r n a m e : = " +2 9IAH#+1*5ID!H "
E n d i f
S e l e 3
@ 1 0 , 3 5 S a y " " c o l o r ( " / N " )
@ 1 0 , 3 5 S a y a u t h r n a m e C o l o r ( " B G + / N " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 2 , 1 9 c l e a r t o 1 2 , 6 8
I f n e w _ s a v e ( 1 2 , 1 9 , " B / W , W + / R " )
c o p y t o N a m e
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 4 , 1 4 , 7 0 , N a _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c U p d _ A u t h r
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l A t _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e A u t h o r i n d e x A u t h o r ; S o r t O n N a m e i d T o T e m p
S e l e 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 5 , 1 3 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 4 , 1 2 , 6 9 , " R / W "
@ 6 , 3 0 S a y " AIDI-!9% 9IAH" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o A u t h r d e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 1 0 , 1 5 , 6 8 , " N / W " )
A t _ s c r e e n : = S a v e s c r e e n ( 6 , 1 4 , 1 3 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 1 , 1 9 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 1 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 S a y t e m p - > A u t h r i d C o l o r ( " B G / R " )
@ 8 , 3 5 G e t t e m p - > A u t h r n a m e C o l o r ( " B G / R " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 2 , 1 9 c l e a r t o 1 1 , 6 8
I f n e w _ s a v e ( 1 1 , 1 9 , " B / W , W + / R " )
c o p y t o A u t h o r
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 4 , 1 3 , 7 0 , A t _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c U p d _ E m p
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l E m _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
d e l _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e E m p l o y e e i n d e x E m p l o y e e ; S o r t O n E m p i d T o T e m p
S e l e c t 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 1 , 1 8 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 0 , 1 7 , 6 9 , " N + / W "
@ 5 , 3 0 S a y " AIDI-!9% 12" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#AID. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o E m p d e t a i l W i t h 7 , 1 3 , " B / W "
@ 1 3 , 2 8 S a y " "
L _ C r o s s ( 1 5 , 1 1 , 6 8 , " N / W " )
E m _ s c r e e n : = S a v e s c r e e n ( 5 , 1 0 , 1 8 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 6 , 1 3 S a y " AID5H : " c o l o r ( " B / W " )
@ 1 6 , 2 8 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G / N " )
@ 7 , 2 8 S a y t e m p - > E m p i d C o l o r ( " B G + / N " )
@ 8 , 2 8 G e t t e m p - > E m p n a V a l i d ! E m p t y ( T e m p - > E m p n a ) C o l o r ( " B G / R " )
@ 9 , 2 8 G e t t e m p - > E m p s e x P i c t " @ A " ;
v a l i d U p p e r ( t e m p - > E m p s e x ) = " M " . o r . U p p e r ( t e m p - > E m p s e x ) = " F " c o l o r ( " B G / R " )
@ 1 0 , 2 8 G e t t e m p - > E m p a d d C o l o r ( " B G / R " )
@ 1 1 , 2 8 G e t t e m p - > E m p t e l C o l o r ( " B G / R " )
@ 1 2 , 2 8 G e t t e m p - > E m p s t a r t C o l o r ( " B G / R " )
@ 1 3 , 2 8 G e t t e m p - > s a l a r y C o l o r ( " B G / R " )
R e a d
I f U p d a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 6 , 1 1 c l e a r t o 1 6 , 6 8
I f n e w _ s a v e ( 1 6 , 1 3 , " B / W , W + / R " )
c o p y t o E m p l o y e e
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 5 , 1 0 , 1 8 , 7 0 , E m _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
P r o c e d u r e S o r t D a t a
D b s F i l e s = a r r a y ( A D I R ( " * . D b f " ) )
A D I R ( " * . d b f " , D b s F i l e s )
S e t c o l o r t o " + B G / R B "
R o w 1 = 4 + M o d ( O p t , 1 0 )
C o l 1 = 1 9 + L e n ( A r c 2 [ 1 ] )
@ R o w 1 - 1 , C o l 1 - 1 t o R o w 1 + 8 , C o l 1 + 2 1 D o u b l e
D b c h o i c e = A c h o i c e ( R o w 1 , C o l 1 , R o w 1 + 7 , C o l 1 + 2 0 , D b s F i l e s )
m s g e r r = A l e r t ( " -- 1"I'"#11'@%7-5I 12"1D!H@*#G" , { " C+I- 1"" } )
R e t u r n
< / f o n t >
< / p r e >
< h r >
< a n a m e = " d e l j o b " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- d e l j o b . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
# i n c l u d e " i n k e y . c h "
P r o c e d u r e D e l _ D a t a / / - - %I-!9% - - / /
l o c a l i : = 1
l o c a l t e x t : = " %"
l o c a l d e l s t a t u s : = . f .
S e t W r a p O n
D o B o x e s _ S c r n W i t h 6 , 4 4 , 1 4 , 7 3 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 4 3 , 1 3 , 7 2 , " G / R "
f o r i = 1 t o L e n ( p r o g n a m e )
* - - p r o g n a m e @G1'A#!22m e n u . p r g - - *
@ i + 6 , 4 5 P r o m p t L t r i m ( S t r ( i ) ) + " . " + t e x t + " I-!9%" + p r o g n a m e [ i ]
n e x t i
S e t c o l o r ( " W + / R " )
@ 6 , 4 5 S a y " I-2# . . . "
S e t c o l o r ( " G / R " )
M e n u t o D c h O p t
D o C a s e
C a s e D c h O p t = 1
D o D e l _ M e m w i t h d e l s t a t u s
C a s e D c h O p t = 2
D o D e l _ B o o k w i t h d e l s t a t u s
C a s e D c h O p t = 3
D o D e l _ T y p e w i t h d e l s t a t u s
C a s e D c h O p t = 4
D o D e l _ N a m e w i t h d e l s t a t u s
C a s e D c h O p t = 5
D o D e l _ A u t h r w i t h d e l s t a t u s
C a s e D c h O p t = 6
D o D e l _ E m p w i t h d e l s t a t u s
E n d c a s e
I f d e l s t a t u s
I f F i n a l _ D e l _ C o n f i r m ( )
P a c k
E l s e
R e c a l l A l l
E n d i f
d e l s t a t u s = . f .
E n d i f
R e t u r n
*
P r o c D e l _ M e m
P a r a m e t e r d e l s t a t u s
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l M e _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
d e l _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e M e m b e r i n d e x M e m b e r ; r e i n d e x
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 1 , 1 9 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 0 , 1 8 , 6 9 , " N + / W "
@ 5 , 3 0 S a y " %I-!9%*!2
4" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o M e m d e t a i l W i t h 7 , 1 3 , " B / W "
L _ C r o s s ( 1 6 , 1 1 , 6 8 , " N / W " )
_ M i d : = S p a c e ( 5 )
D o W h i l e . t .
g o t o T o p
r e c : = G e t I d V a l u e ( _ M i d , " M e m b e r " , " M e m i d " )
i f r e c = 0
r e t u r n
e n d i f
G o t o r e c
@ 1 7 , 1 3 S a y " %5H : " c o l o r ( " B / W " )
@ 1 7 , 3 2 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G / N " )
@ 7 , 3 2 S a y M e m i d C o l o r ( " B G + / N " )
@ 8 , 3 2 S a y M e m n a C o l o r ( " B G / R " )
@ 9 , 3 2 S a y M e m s e x c o l o r ( " B G / R " )
@ 1 0 , 3 2 S a y M e m a g e C o l o r ( " B G / R " )
@ 1 1 , 3 2 S a y M e m a d d C o l o r ( " B G / R " )
@ 1 2 , 3 2 S a y M e m t e l C o l o r ( " B G / R " )
@ 1 3 , 3 2 S a y M e m s t a r t C o l o r ( " B G / R " )
@ 1 4 , 3 2 S a y M e m s t o p C o l o r ( " B G / R " )
@ 1 7 , 1 1 c l e a r t o 1 7 , 6 8
I f d e l _ c o n f i r m ( 1 7 , 1 3 , " B / W , W + / R " )
d e l e t e
d e l s t a t u s = . t .
E n d i f
e n d d o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
P r o c D e l _ B o o k
P a r a m e t e r d e l s t a t u s
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l B k _ s c r e e n , r e c , u p d _ s t a t u s , A s k , n a m e
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
s e t c u r s o r o n
r e c : = 1
d e l s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e B o o k s i n d e x B o o k s ; S o r t O n B k i d T o T e m p
S e l e 2 ; U s e N a m e i n d e x N a m e
S e l e 3 ; U s e R e n t d e t a
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 5 , 1 6 , 6 8 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 4 , 1 5 , 6 7 , " N + / W "
@ 5 , 3 0 S a y " %I-!9%+1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o B o o k d e t a i l W i t h 7 , 1 7 , " B / W "
L _ C r o s s ( 1 3 , 1 5 , 6 6 , " N / W " )
_ b k i d : = S p a c e ( 8 )
D o W h i l e . t .
S e l e c t B o o k s
g o t o T o p
r e c : = G e t I d V a l u e ( _ b k i d , " B o o k s " , " b k i d " )
i f r e c = 0
r e t u r n
e n d i f
G o t o r e c
@ 1 4 , 1 7 S a y " %5H : " c o l o r ( " B / W " )
@ 1 4 , 3 4 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 4 S a y B o o k s - > B k i d C o l o r " B G + / N "
S e l e N a m e
S e e k S u b s t r ( B o o k s - > B k i d , 2 , 4 )
I f F o u n d ( )
N a m e = N a m e - > N a m e
E n d i f
S e l e c t B o o k s
@ 8 , 3 4 S a y A l l t r i m ( N a m e ) C o l o r ( " B G + / N " )
@ 9 , 3 4 S a y B o o k s - > B k d a t e C o l o r ( " B G / R " )
@ 1 0 , 3 4 S a y B o o k s - > B k p r i c e C o l o r ( " B G / R " )
@ 1 1 , 3 4 S a y B o o k s - > R n t p r i c e C o l o r ( " B G / R " )
@ 1 2 , 3 4 S a y B o o k s - > S t a t u s C o l o r ( " B G / R " )
@ 1 4 , 1 7 c l e a r t o 1 4 , 6 6
I f d e l _ c o n f i r m ( 1 4 , 1 3 , " B / W , W + / R " )
d e l e t e
d e l s t a t u s = . t .
E n d i f
e n d d o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
/ *
P r o c D e l _ T y p e
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l T y _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e T y p e s i n d e x T y p e s ; S o r t O n T y p e i d T o T e m p
S e l e 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 1 , 1 2 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 0 , 1 1 , 6 9 , " R / W "
@ 6 , 2 5 S a y " %I-!9%#0@ +1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o T y p e D e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 9 , 1 1 , 6 8 , " N / W " )
T y _ s c r e e n : = S a v e s c r e e n ( 6 , 1 0 , 1 2 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 0 , 1 9 S a y " %5H : " c o l o r ( " B / W " )
@ 1 0 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 S a y T y p e i d C o l o r ( " B G + / N " )
@ 8 , 3 5 S a y T y p e N a m e C o l o r ( " B G / R " )
R e a d
I f D e l a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 0 , 1 9 c l e a r t o 1 0 , 6 8
I f n e w _ s a v e ( 1 0 , 1 9 , " B / W , W + / R " )
c o p y t o T y p e s
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 0 , 1 2 , 7 0 , T y _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c D e l _ N a m e
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l N a _ s c r e e n , r e c , u p d _ s t a t u s , A s k , a u t h r n a m e
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e N a m e i n d e x N a m e ; S o r t O n N a m e i d T o T e m p
S e l e 2 ; U s e A u t h o r i n d e x A u t h o r
S e l e 3 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 5 , 1 4 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 4 , 1 3 , 6 9 , " R / W "
@ 6 , 3 0 S a y " %I-!9%
7H-+1*7-" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o N a m e d e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 1 1 , 1 5 , 6 8 , " N / W " )
N a _ s c r e e n : = S a v e s c r e e n ( 6 , 1 4 , 1 4 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 2 , 1 9 S a y " %5H : " c o l o r ( " B / W " )
@ 1 2 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 S a y N a m e i d C o l o r ( " B G + / N " )
@ 8 , 3 5 S a y N a m e C o l o r ( " B G / R " )
@ 9 , 3 5 S a y A u t h r i d C o l o r ( " B G / R " )
S e l e 2
S e e k A u t h r i d
I f F o u n d ( )
a u t h r n a m e : = A u t h o r - > A u t h r n a m e
E l s e
a u t h r n a m e : = " +2 9IAH#+1*5ID!H "
E n d i f
S e l e 3
@ 1 0 , 3 5 S a y " " c o l o r ( " / N " )
@ 1 0 , 3 5 S a y a u t h r n a m e C o l o r ( " B G + / N " )
R e a d
I f D e l a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 2 , 1 9 c l e a r t o 1 2 , 6 8
I f n e w _ s a v e ( 1 2 , 1 9 , " B / W , W + / R " )
c o p y t o N a m e
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 4 , 1 4 , 7 0 , N a _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c D e l _ A u t h r
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l A t _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e A u t h o r i n d e x A u t h o r ; S o r t O n N a m e i d T o T e m p
S e l e 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 3 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 7 , 1 5 , 1 3 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 6 , 1 4 , 1 2 , 6 9 , " R / W "
@ 6 , 3 0 S a y " %I-!9% 9IAH" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o A u t h r d e t a i l W i t h 7 , 1 9 , " B / W "
L _ C r o s s ( 1 0 , 1 5 , 6 8 , " N / W " )
A t _ s c r e e n : = S a v e s c r e e n ( 6 , 1 4 , 1 3 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 1 , 1 9 S a y " %5H : " c o l o r ( " B / W " )
@ 1 1 , 3 5 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G + / N " )
@ 7 , 3 5 S a y A u t h r i d C o l o r ( " B G / R " )
@ 8 , 3 5 S a y A u t h r n a m e C o l o r ( " B G / R " )
R e a d
I f D e l a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 2 , 1 9 c l e a r t o 1 1 , 6 8
I f n e w _ s a v e ( 1 1 , 1 9 , " B / W , W + / R " )
c o p y t o A u t h o r
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 6 , 1 4 , 1 3 , 7 0 , A t _ s c r e e n )
E n d D o
/ / s e t d e l i m i t e r s o n
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
*
P r o c D e l _ E m p
l o c a l s c r n s a v e : = s a v e s c r e e n ( 0 , 0 , 2 4 , 7 9 )
l o c a l c o l o s a v e : = s e t c o l o r ( )
l o c a l n w o r k a r e a : = s e l e c t ( )
l o c a l E m _ s c r e e n , r e c , u p d _ s t a t u s , A s k
/ / s e t d e l i m i t e r s o f f
s e t e s c a p e o n
r e c : = 1
u p d _ s t a t u s : = . f .
d e l _ s t a t u s : = . f .
c l o s e d a t a b a s e
S e l e 1 ; U s e E m p l o y e e i n d e x E m p l o y e e ; S o r t O n E m p i d T o T e m p
S e l e c t 2 ; U s e T e m p
D o B o x e s _ S c r n W i t h 4 , 0 , 2 4 , 7 9 , " W / N "
D o B o x e s _ S c r n W i t h 6 , 1 1 , 1 8 , 7 0 , " N + / N "
D o B o x e s _ L i n e W i t h 5 , 1 0 , 1 7 , 6 9 , " N + / W "
@ 5 , 3 0 S a y " %I-!9% 12" C o l o r ( " R / B " )
S h w _ S t a t u s ( " E s c I2I-2#--22#%. . P G U P +#7-P G D W I2I-2#@%7H-@#-#L" , " W + / R " )
D o E m p d e t a i l W i t h 7 , 1 3 , " B / W "
@ 1 3 , 2 8 S a y " "
L _ C r o s s ( 1 5 , 1 1 , 6 8 , " N / W " )
E m _ s c r e e n : = S a v e s c r e e n ( 5 , 1 0 , 1 8 , 7 0 )
D o W h i l e . t .
G o t o r e c
@ 1 6 , 1 3 S a y " %5H : " c o l o r ( " B / W " )
@ 1 6 , 2 8 S a y " #0@5" ( " + L t r i m ( S t r ( R e c n o ( ) ) ) + " / " + L t r i m ( S t r ( R e c c o u n t ( ) ) ) + " ) " C o l o r ( " B G / N " )
@ 7 , 2 8 S a y E m p i d C o l o r ( " B G + / N " )
@ 8 , 2 8 S a y E m p n a V a l i d ! E m p t y ( E m p n a ) C o l o r ( " B G / R " )
@ 9 , 2 8 S a y E m p s e x P i c t " @ A " ;
v a l i d U p p e r ( E m p s e x ) = " M " . o r . U p p e r ( E m p s e x ) = " F " c o l o r ( " B G / R " )
@ 1 0 , 2 8 S a y E m p a d d C o l o r ( " B G / R " )
@ 1 1 , 2 8 S a y E m p t e l C o l o r ( " B G / R " )
@ 1 2 , 2 8 S a y E m p s t a r t C o l o r ( " B G / R " )
@ 1 3 , 2 8 S a y s a l a r y C o l o r ( " B G / R " )
R e a d
I f D e l a t e d ( )
u p d _ s t a t u s : = . t .
E n d i f
I f l a s t k e y ( ) = 2 7
I f u p d _ s t a t u s
s e t c o l o r ( " / W " )
@ 1 6 , 1 1 c l e a r t o 1 6 , 6 8
I f n e w _ s a v e ( 1 6 , 1 3 , " B / W , W + / R " )
c o p y t o E m p l o y e e
E n d i f
E n d i f
e x i t
E n d i f
r e c : = C u r R e c ( )
R e s t s c r e e n ( 5 , 1 0 , 1 8 , 7 0 , E m _ s c r e e n )
E n d D o
s e l e c t ( n w o r k a r e a )
s e t c o l o r ( c o l o s a v e )
r e s t s c r e e n ( 0 , 0 , 2 4 , 7 9 , s c r n s a v e )
R e t u r n
< / f o n t >
< / p r e >
< h r >
< a n a m e = " r p o r t s " > < / a >
< l i > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # f f 0 0 0 0 " s i z e = + 1 > < b > s o r c e B#A#!- r p o r t s . p r g < / b > < / f o n t >
< p r e >
< f o n t f a c e = " M S S A N S S E R I F " >
P u b l i c S t a r t I d , S t o p I d , S t a r t D a t e , S t o p D a t e
P r o c e d u r e R e p o r t S e l e
P a r a m e t e r R O p t
R o p t = I n t ( R O p t )
T 3 1 1 : = " #2"2I-!9%+1*7-"
T 3 1 2 : = " #2"2+1*7-*9
+2"( 9@
H22@4 2 @7-) "
T 3 1 3 : = " #2"2+1*7-I2*H"
T 3 1 4 : = " #2"2+1*7-63+*HC'15I"
T 3 2 1 : = " #2"2I-!9%*!2
4"
T 3 2 2 : = " *!2
45H+!-2"8"
T 3 3 1 : = " #2"2I-!9% 12"
T 3 4 1 : = " +1*7-5H9@
H2#03'1"
T 3 4 2 : = " 2#@
H2+1*7--*!2
4"
T 3 4 3 : = " *!2
4I2*H+1*7-"
T 3 4 4 : = " +1*7-5HI2*H"
T 3 4 3 : = " #17+1*7-2*!2
4"
T 3 4 4 : = " +1*7-5H63+7C'15I[ A l l ] "
T 3 4 5 : = " +1*7-5H63+7C'15I[ AH"1D!HDI7] "
T 3 4 7 : = " #2"2*!2
4I2*H+1*7-"
T 3 7 3 : = " #2"DI2+1*7-AH%0@%H!@%7-2!@7-"
T 3 8 1 : = " 2#
3#0+5IC+I#4)1 @#5"2!'15H
3#0"
T 4 1 1 : = " 2#H2"@4@7- 12#03@7-"
T 4 3 1 : = " "-#2"#1#03@7-"
T 4 3 2 : = " 3D#28#03@7-"
T 4 4 1 : = " "-#2"H2"#03@7-"
L s 1 = { T 3 1 1 , T 3 1 2 , T 3 1 3 , T 3 1 4 }
L s 2 = { T 3 2 1 , T 3 2 2 }
L s 3 = { T 3 3 1 }
L s 4 = { T 3 4 1 , T 3 4 2 }
D o B o x e s _ S c r n W i t h 1 , 0 , 2 4 , 7 9 , " N + / N "
R o p t S t r = ( " L s " + S u b s t r ( L t r i m ( s t r ( R O p t ) ) , - 1 ) )
D o B o x e s _ L i n e W i t h 6 , 1 5 , 9 + L e n ( & R o p t S t r ) , 6 4 , " G R + / N "
@ 7 , 3 5 S a y " #2"2"
S e t c o l o r ( " R / N " )
R O p t r = A c h o i c e ( 8 , 1 8 , 7 + L e n ( & R o p t S t r ) , 6 3 , & R o p t S t r )
D o C a s e
C a s e R O p t r = 0
R e t u r n
C a s e R O p t r > 0
R P r o g = ( " R e p o r t " + S u b s t r ( L t r i m ( S t r ( R o p t ) ) , 2 ) + L t r i m ( S t r ( R o p t r ) ) )
S e t c o l o r ( " / n " )
c l s
D o & R p r o g
E n d c a s e
R e t u r n
P r o c R e p o r t 1 1
S e l e 1 ; U s e n a m e i n d e x n a m e ; r e i n d e x
S e l e 2 ; U s e a u t h o r i n d e x a u t h o r ; r e i n d e x
S e l e 3 ; U s e T y p e s i n d e x T y p e s ; r e i n d e x
S e l e 4 ; U s e B o o k s i n d e x B o o k s ; r e i n d e x
S h w _ s t a t u s ( " - 05I3%1@#5"!#2"2. . - | I2--22#3#2"2 E S C " , " W + / R " )
S t a r t I d : = S t o p I d : = N i l
G e t 2 I d ( " I-#+1*+1*7-. . . " , 8 )
I F E m p t y ( S t a r t I d ) . O r . E m p t y ( S t o p I d )
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e l e c t B o o k s
S e t F i l t e r t o ( B o o k s - > B k i d > = S t a r t I d . a n d . B o o k s - > B k i d < = S t o p I d )
G o t o T o p
b o o k a r r = { }
D o W h i l e . N o t . E o f ( )
b o o k i d : = s p a c e ( 8 )
b o o k n a m e : = " "
a n a m e : = " "
b o o k i d : = b o o k s - > b k i d
o w o r k a r e a : = s e l e c t ( )
S e l e n a m e
G o t o T o p
S e e k s u b s t r ( b o o k s - > b k i d , 2 , 4 )
i f f o u n d ( )
b o o k n a m e : = S u b s t r ( N a m e - > N a m e , 1 , 2 3 )
_ a u t h r i d : = N a m e - > A u t h r i d
e n d i f
I f ! E m p t y ( a u t h r i d )
S e l e c t a u t h o r
G o t o T o p
S e e k _ a u t h r i d
I f F o u n d ( )
a n a m e : = A u t h o r - > a u t h r n a m e
E n d i f
E l s e
a n a m e : = " "
E n d i f
s e l e c t ( o w o r k a r e a )
A A D D ( b o o k a r r , b o o k i d + S p a c e ( 1 ) + P a d r ( a l l t r i m ( b o o k n a m e ) , 2 7 ) + S p a c e ( 1 ) ;
+ P a d r ( a l l t r i m ( a n a m e ) , 1 5 ) + s p a c e ( 1 ) + P a d l ( B o o k s - > B k p r i c e , 3 ) ;
+ S p a c e ( 4 ) + P a d l ( B o o k s - > R n t p r i c e , 3 ) + S p a c e ( 4 ) + I f ( B o o k s - > S t a t u s , " T " , " F " ) ;
+ S p a c e ( 2 ) + D t o C ( B o o k s - > B k d a t e ) )
s k i p
E n d d o
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2 1
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 4 5
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3 3
S e t P r i n t e r T o " R p o r t 3 1 1 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e t c o l o r t o
i : = 1
L i n e : = 8
n P a g e : = 1
D o R e p t h e a d 1 1 w i t h n P a g e
D o W h i l e i < = L e n ( b o o k a r r )
@ L i n e , 1 S a y b o o k a r r [ i ]
L i n e + +
i + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( L i n e , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
I n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 8 , 0 C l e a r
L i n e : = 8
D o R e p t h e a d 1 1 w i t h n P a g e
E l s e
E j e c t
D o R e p t h e a d 1 1 w i t h n P a g e
L i n e : = 8
E n d I F
E n d I F
E n d I f
E n d D o
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
I n k e y ( 0 )
C l o s e D a t a b a s e
R e t u r n
P r o c R e p o r t 1 2
D o R 1 2 _ 1 3 _ 1 4 W i t h 1
R e t u r n
P r o c R e p o r t 1 3
D o R 1 2 _ 1 3 _ 1 4 W i t h 2
R e t u r n
P r o c R e p o r t 1 4
D o R 1 2 _ 1 3 _ 1 4 W i t h 3
R e t u r n
P r o c R 1 2 _ 1 3 _ 1 4
P a r a m e t e r r e p t n o
C l o s e D a t a b a s e
S e l e 1 ; U s e n a m e i n d e x n a m e
S e l e 2 ; U s e R e n t d e t a
S e l e 3 ; U s e R e n t / / A I!@
H2
F i n d r e s u l t : = i : = 0
N a m e r e p t : = t x t : = " "
D o c a s e
c a s e r e p t n o = 1 ; t x t = " +1*7-5H*!2
4D!HDI3!272@4 2 @7- " ; N a m e p t = " R p o r t 3 1 2 . t x t "
C o n d i t i o n = " R e n t - > R n t s t a t u s = . T . . A n d . d a t e ( ) - R e n t - > r e n t d a t e > = 6 0 "
c a s e r e p t n o = 2 ; t x t = " +1*7-I2*H11IAH+%1'163+*H " ; N a m e r e p t = " R p o r t 3 1 3 . t x t "
C o n d i t i o n = " R e n t - > R n t s t a t u s = . T . . A n d . d a t e ( ) - R e n t - > r e n t d a t e > = 0 "
c a s e r e p t n o = 3 ; t x t = " +1*7-63+*HC'15I " ; N a m e r e p t = " R p o r t 3 1 4 . t x t "
C o n d i t i o n = " R e n t - > R n t s t a t u s = . T . . A n d . d a t e ( ) = R e n t - > r e n t d a t e "
E n d c a s e
C l s
S h w _ s t a t u s ( " - 05I3%1@#5"!#2"2. . - | I2--22#3#2"2 E S C " , " W + / R " )
S e t F i l t e r t o & C o n d i t i o n
G o t o T o p
r e n t i d a r = { }
m e m i d _ d a t e a r = { }
m i s s i n g a r = { }
_ B k i d : = S p a c e ( 8 )
_ b k n a m e : = " "
_ r e n t d a t e : = c t o d ( " / / " )
D o W h i l e . N o t . E o f ( )
a a d d ( r e n t i d a r , R e n t - > R e n t i d )
a a d d ( m e m i d _ d a t e a r , R e n t - > m e m i d + " " + D t o C ( R e n t - > R e n t d a t e ) )
s k i p
E n d d o
f o r i = 1 t o l e n ( r e n t i d a r )
S e l e 2 / / A I! @
H2%0@-5"
S e t f i l t e r t o r e n t i d a r [ i ] = R e n t d e t a - > r e n t i d
G o t o t o p
D o W h i l e . N o t . E o f ( )
_ b k i d : = R e n t d e t a - > b k i d
n w o r k a r e a : = s e l e c t ( )
S e l e 1 / / A I!
7H-
S e e k S u b s t r ( _ b k i d , 2 , 4 )
I F F o u n d ( )
_ B k n a m e : = N a m e - > N a m e
E l s e
_ B k n a m e : = " D!H
7H-+1*7-@%H!5I"
E n d i f
S e l e c t ( n w o r k a r e a )
A a d d ( m i s s i n g a r , R e n t d e t a - > b k i d + " " + P a d r ( _ B k n a m e , 3 2 ) + " " + m e m i d _ d a t e a r [ i ] )
S k i p
E n d d o
n e x t
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2 1
c l s
S e t c o l o r ( " R / B G " )
@ 2 , 1 C l e a r t o 2 2 , 7 6
@ 2 , 1 t o 2 2 , 7 7 d o u b l e
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 4 5
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3 3
S e t P r i n t e r T o & N a m e r e p t
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
i : = 1
L i n e : = 7
n P a g e : = 1
D o R e p t h e a d x w i t h t x t
D o W h i l e i < = L e n ( m i s s i n g a r )
@ L i n e , 7 S a y m i s s i n g a r [ i ]
L i n e + +
i + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( L i n e , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " 8H!C 9+I2H-D E S C - --22##2"2 "
I n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 2 , 1 C l e a r t o 2 2 , 7 6
@ 2 , 1 t o 2 2 , 7 7 d o u b l e
L i n e : = 7
D o R e p t h e a d x w i t h t x t
E l s e
E j e c t
D o R e p t h e a d x w i t h t x t
L i n e : = 7
E n d I F
E n d I F
E n d I f
E n d D o
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " *4I*8A I! " C o l o r " R "
I n k e y ( 0 )
C l o s e D a t a b a s e
R e t u r n
P r o c R e p o r t 2 1
S e l e 1 ; U s e M e m b e r i n d e x M e m b e r ; r e i n d e x
S h w _ s t a t u s ( " - 05I3%1@#5"!#2"2. . - | I2--22#3#2"2 E S C " , " W + / R " )
S t a r t I d : = S t o p I d : = N i l
G e t 2 I d ( " I-#+1**!2
4. . . " , 5 )
I F E m p t y ( S t a r t I d ) . O r . E m p t y ( S t o p I d )
C l o s e D a t a b a s e
R e t u r n
E n d I F
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2
c l s
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 3
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3
S e t P r i n t e r T o " R p o r t 3 2 1 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e t c o l o r t o
i : = 1
L i n e : = 7
n P a g e : = 1
D o R e p t h e a d 2 1 w i t h n P a g e
S e t F i l t e r t o ( M e m b e r - > m e m i d > = S t a r t I d . a n d . M e m b e r - > m e m i d < = S t o p I d )
G o t o T o p
D o W h i l e . n o t . E o f ( )
@ L i n e + 1 , 2 S a y A l l t r i m ( S t r ( i ) )
@ L i n e + 1 , 1 1 S a y " #+1**!2
4 : " + m e m i d
@ L i n e + 1 , 3 1 S a y "
7H-- *8% : " + m e m n a
@ L i n e + 2 , 1 1 S a y " @ ( : " + I f ( U p p e r ( M e m s e x ) = " M " , "
2"" , " +
4" )
@ L i n e + 2 , 3 1 S a y " -2"8 : " + A l l t r i m ( s t r ( m e m a g e ) )
@ L i n e + 3 , 1 1 S a y " 5H-"9H : " + A l l t r i m ( m e m a d d )
@ L i n e + 4 , 1 1 S a y " +!2"@%B#(1 L : " + m e m t e l
@ L i n e + 5 , 1 1 S a y " '15H*!1# : " + D t o C ( M e m s t a r t )
@ L i n e + 5 , 4 0 S a y " '15H+!-2"8*!2
4 : " + D t o C ( M e m s t o p )
L i n e + = 6
i + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( i - 1 , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " 8H!C 9+I2H-D E S C - --22##2"2 "
I n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 8 , 0 C l e a r
L i n e : = 7
D o R e p t h e a d 2 1 w i t h n P a g e
E l s e
E j e c t
L i n e : = 7
D o R e p t h e a d 2 1 w i t h n P a g e
E n d I F
E n d I F
E n d I f
S k i p
E n d D o
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " *4I*8A I! " C o l o r " R "
I n k e y ( 0 )
C l o s e D a t a b a s e
P r o c R e p o r t 2 2
C l o s e D a t a b a s e
i : = 0
C l s
S h w _ s t a t u s ( " - 05I3%1@#5"!#2"2. . - | I2--22#3#2"2 E S C " , " W + / R " )
w a r n i n g _ m e m b e r = { }
U s e m e m b e r
D o W h i l e . N o t . E o f ( )
i f ( M e m s t o p - 3 0 ) < = D a t e ( )
a a d d ( w a r n i n g _ m e m b e r , M e m b e r - > m e m i d + " " + P a d r ( M e m b e r - > M e m n a , 3 0 ) + " " + D t o C ( M e m b e r - > M e m s t a r t ) + " " + D t o C ( M e m b e r - > m e m s t o p ) )
E n d i f
s k i p
E n d d o
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2 1
c l s
S e t c o l o r ( " R / B G " )
@ 2 , 1 C l e a r t o 2 2 , 7 6
@ 2 , 1 t o 2 2 , 7 7 d o u b l e
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 4 5
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3 3
S e t P r i n t e r T o " R p o r t 3 2 2 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
i : = 1
L i n e : = 7
n P a g e : = 1
D o R e p t h e a d 2 2
D o W h i l e i < = L e n ( w a r n i n g _ m e m b e r )
@ L i n e , 9 S a y w a r n i n g _ m e m b e r [ i ]
L i n e + +
i + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( L i n e , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
I n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 2 , 1 C l e a r t o 2 2 , 7 6
@ 2 , 1 t o 2 2 , 7 7 d o u b l e
L i n e : = 7
D o R e p t h e a d 2 2
E l s e
E j e c t
D o R e p t h e a d 2 2
L i n e : = 7
E n d I F
E n d I F
E n d I f
E n d D o
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
I n k e y ( 0 )
C l o s e D a t a b a s e
R e t u r n
P r o c R e p o r t 3 1
S e l e 1 ; U s e E m p l o y e e i n d e x E m p l o y e e ; r e i n d e x
S h w _ s t a t u s ( " - 05I3%1@#5"!#2"2. . - | I2--22#3#2"2 E S C " , " W + / R " )
S t a r t I d : = E m p l o y e e - > e m p i d
g o t o B o t t o m
S t o p I d : = E m p l o y e e - > e m p i d
I F E m p t y ( S t a r t I d ) . O r . E m p t y ( S t o p I d )
C l o s e D a t a b a s e
R e t u r n
E n d I F
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2
c l s
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 3
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3
S e t P r i n t e r T o " R p o r t 3 3 1 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e t c o l o r t o
i : = 1
L i n e : = 7
n P a g e : = 1
D o R e p t h e a d 3 1 w i t h n P a g e
G o t o T o p
D o W h i l e . n o t . E o f ( )
@ L i n e + 1 , 2 S a y A l l t r i m ( S t r ( i ) )
@ L i n e + 1 , 1 1 S a y " #+1* 12 : " + e m p i d
@ L i n e + 1 , 3 1 S a y "
7H-- *8% : " + e m p n a
@ L i n e + 2 , 1 1 S a y " @ ( : " + I f ( U p p e r ( e m p s e x ) = " M " , "
2"" , " +
4" )
@ L i n e + 3 , 1 1 S a y " 5H-"9H : " + A l l t r i m ( e m p a d d )
@ L i n e + 4 , 1 1 S a y " +!2"@%B#(1 L : " + e m p t e l
@ L i n e + 5 , 1 1 S a y " '15H@I232 : " + D t o C ( e m p s t a r t )
L i n e + = 6
i + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( i - 1 , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " 8H!C 9+I2H-D E S C - --22##2"2 "
I n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 8 , 0 C l e a r
L i n e : = 7
D o R e p t h e a d 3 1 w i t h n P a g e
E l s e
E j e c t
L i n e : = 7
D o R e p t h e a d 3 1 w i t h n P a g e
E n d I F
E n d I F
E n d I f
S k i p
E n d D o
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
/ / @ 2 4 , 1 S a y " *4I*8A I! " C o l o r " R "
I n k e y ( 0 )
C l o s e D a t a b a s e
P r o c r e p o r t 4 1
S e l e 1 ; U s e r e n t
S e l e 2 ; U s e r e n t d e t a
S e l e 3 ; U s e B o o k s i n d e x B o o k s
S e l e 4 ; U s e N a m e i n d e x N a m e
i : = j : = 1
r e p t a r r : = { }
r e n t i d a r r : = { }
B o o k i d : = S p a c e ( 8 )
_ N a m e i d : = S p a c e ( 4 )
B o o k n a m e : = " "
S e l e R e n t
S e t F i l t e r t o R e n t - > R e n t d a t e = D a t e ( )
G o t o T o p
D o W h i l e ! E o f ( )
A a d d ( r e n t i d a r r , R e n t - > R e n t i d )
s k i p
E n d d o
c o n d i t i o n : = " R e n t d e t a - > r e n t i d = r e n t i d a r r [ i ] "
F o r i = 1 t o l e n ( r e n t i d a r r )
i d : = r e n t i d a r r [ i ]
S e l e R e n t d e t a
L o c a t e f o r & c o n d i t i o n
D o w h i l e f o u n d ( )
B o o k i d = R e n t d e t a - > B k i d
_ N a m e i d = S u b s t r ( B o o k i d , 2 , 4 )
S e l e N a m e
G o t o T o p
S e e k _ N a m e i d
I f F o u n d ( )
b o o k n a m e = N a m e - > N a m e
E n d i f
A a d d ( r e p t a r r , P a d l ( A l l t r i m ( S t r ( j ) ) , 5 ) + S p a c e ( 6 ) + i d + S p a c e ( 8 ) ;
+ B o o k i d + S p a c e ( 9 ) + b o o k n a m e )
S e l e R e n t d e t a
S k i p
L o c a t e r e s t f o r & c o n d i t i o n
i d : = S p a c e ( 7 )
j + +
E n d d o
N e x t
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2 1
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 4 5
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3 3
S e t P r i n t e r T o " R p o r t 3 4 1 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e t c o l o r t o
i : = 1
L i n e : = 6
n P a g e : = 1
D o R e p t h e a d 4 1 w i t h n P a g e
F o r i = 1 t o l e n ( r e p t a r r )
@ L i n e , 1 S a y r e p t a r r [ i ]
L i n e + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( L i n e , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
/ / @ 2 4 , 1 S a y " 8H!C 9+I2H-D E S C - --22##2"2 "
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
i n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 6 , 0 C l e a r
L i n e : = 6
D o R e p t h e a d 4 1 w i t h n P a g e
E l s e
E j e c t
D o R e p t h e a d 4 1 w i t h n P a g e
L i n e : = 6
E n d I F
E n d I F
E n d I f
N e x t
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
I n k e y ( 0 )
C l o s e D a t a b a s e
r e t u r n
P r o c r e p o r t 4 2
S e l e 1 ; U s e r e n t
S e l e 2 ; U s e r e n t d e t a
S e l e 3 ; U s e B o o k s i n d e x B o o k s
S e l e 4 ; U s e N a m e i n d e x N a m e
i : = j : = 1
r e p t a r r : = { }
r e n t i d a r r : = { }
M e m i d a r r : = { }
n o : = S p a c e ( 1 )
B o o k i d : = S p a c e ( 8 )
_ N a m e i d : = S p a c e ( 4 )
B o o k n a m e : = " "
S e l e R e n t
S e t F i l t e r t o R e n t - > R e n t d a t e = D a t e ( )
G o t o T o p
D o W h i l e ! E o f ( )
A a d d ( r e n t i d a r r , R e n t - > R e n t i d )
A a d d ( M e m i d a r r , R e n t - > M e m i d )
s k i p
E n d d o
u s e M e m b e r i n d e x M e m b e r ; r e i n d e x
F o r i = 1 t o l e n ( M e m i d a r r )
g o t o t o p
S e e k M e m i d a r r [ i ]
I f f o u n d ( )
M e m i d a r r [ i ] + = ( S p a c e ( 3 ) + S u b s t r ( M e m b e r - > M e m n a , 1 , A t ( " " , M e m b e r - > M e m n a ) - 1 ) )
E n d i f
n e x t
c o n d i t i o n : = " R e n t d e t a - > r e n t i d = r e n t i d a r r [ i ] "
F o r i = 1 t o l e n ( r e n t i d a r r )
i d : = M e m i d a r r [ i ]
j : = 1
n o : = A l l t r i m ( S t r ( i ) )
S e l e R e n t d e t a
L o c a t e f o r & c o n d i t i o n
D o w h i l e f o u n d ( )
B o o k i d = R e n t d e t a - > B k i d
_ N a m e i d = S u b s t r ( B o o k i d , 2 , 4 )
S e l e N a m e
G o t o T o p
S e e k _ N a m e i d
I f F o u n d ( )
b o o k n a m e = N a m e - > N a m e
E n d i f
A a d d ( r e p t a r r , P a d r ( n o , 4 ) + S p a c e ( 1 ) + P a d r ( i d , 2 6 ) + ;
+ S p a c e ( 1 ) + P a d r ( A l l t r i m ( S t r ( j ) ) , 3 ) + B o o k i d + S p a c e ( 1 ) + b o o k n a m e )
S e l e R e n t d e t a
S k i p
L o c a t e r e s t f o r & c o n d i t i o n
i d : = S p a c e ( 7 )
n o : = S p a c e ( 1 )
j + +
E n d d o
N e x t
c l s
n D e v i c e : = S e l e c t O u t p u t ( )
I F n D e v i c e = 1 / / - - --2- 2
L p P = 2 1
E l s e I F n D e v i c e = 2 / / - - --2#4I@-#L
I f P r n _ T e s t ( )
L p P = 4 5
S e t D e v i c e t o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d i f
E l s e I F n D e v i c e = 3 / / - - --2D %L
L p P = 3 3
S e t P r i n t e r T o " R p o r t 3 4 2 . t x t "
S e t D e v i c e T o P r i n t e r
E l s e
C l o s e D a t a b a s e
R e t u r n
E n d I F
S e t c o l o r t o
i : = 1
L i n e : = 6
n P a g e : = 1
D o R e p t h e a d 4 2 w i t h n P a g e
F o r i = 1 t o l e n ( r e p t a r r )
@ L i n e , 1 S a y r e p t a r r [ i ]
L i n e + +
I F n D e v i c e = 1 . o r . n D e v i c e = 2
I F M o d ( L i n e , L p P ) = 0
n P a g e + +
I F n D e v i c e = 1
/ / @ 2 4 , 1 S a y " 8H!C 9+I2H-D E S C - --22##2"2 "
S h w _ S t a t u s ( " 8H!C 9+I2H-D E S C - --22##2"2 " , " G + / R " )
i n k e y ( 0 )
I F L a s t K e y ( ) = 2 7
C l o s e D a t a b a s e
R e t u r n
E n d I F
@ 6 , 0 C l e a r
L i n e : = 6
D o R e p t h e a d 4 2 w i t h n P a g e
E l s e
E j e c t
D o R e p t h e a d 4 2 w i t h n P a g e
L i n e : = 6
E n d I F
E n d I F
E n d I f
N e x t
S e t D e v i c e T o S c r e e n
S h w _ S t a t u s ( " *4I*8A I! 05I2# 4! L#2"2@*#G*4I. . . 8H!C@ 7H---22##2"2 " , " G + / R " )
I n k e y ( 0 )
C l o s e D a t a b a s e
r e t u r n
< / f o n t >
< / p r e >
< h r >
< t a b l e w i d t h = 8 0 % b o r d e r = 0 >
< t r >
< c e n t e r >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s . h t m l " > 3#0< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 1 . h t m l " > (6)21
+2< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 2 . h t m l " > (6)2'2!@GDDI< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 3 . h t m l " > (6)2#0@4!< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 4 . h t m l " > --A#0C+!H< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 6 . h t m l " > 41I< / a > < / f o n t > < / c e n t e r > < / t d >
< t d b g c o l o r = " # d d f f d d " > < c e n t e r > < f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 > < a h r e f = " b o s 7 . h t m l " > 3#8#1)2< / a > < / f o n t > < / c e n t e r > < / t d >
< / t r >
< / t a b l e >
< / c e n t e r >
< f o n t f a c e = " M S S A N S S E R I F " c o l o r = " # 0 0 0 0 f f " s i z e = 0 >
| < a h r e f = " i n d e x . h t m l " > < b > %1+I2+%1< / b > < / a > | < . . . . . . . . . . . . > | < b > c o n t a c t m e a t < a h r e f = m a i l t o : p r a t u a n g @ y o n o k . z z n . c o m > p r a t u a n g @ y o n o k . z z n . c o m < / a > < / b > |
< / f o n t >
< b r >
< f o n t f a c e = " m s s a n s s e r i f " c o l o r = " # f f 0 0 0 0 " s i z e = 0 >
< m a r q u e e h s p a c e = 0 v s p a c e = 0 l o o p = i n f i n i t e > --8 8 H- 8A!H 8-2 -22#"L @ 7H-1(6)2A%0 9I@5H"'I-85H
H'"*1*8C+I25I*3@#G%8%H'DI'"5. . . . . . . . . . < / b >
< / f o n t >
< / b o d y >
< / h t m l >
