KF1925 G 1 ;MODULE MANUELE LIJN ;(GROOTBOEKREKENING KORTING = GROOTBOEKREKENING NETTO) ;Quit naar %F10 [ 11/05/2001  2:36 PM ]
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
C1 W !?2,"[] = zonder aantal" Q
 ;
1 S UUV=1,SW12=0,X=@("^"_Q_UGL_"(KC,US,UR,1)"),(UVM,UMC)=$P(X,D,18),(UB,UBB)=$P(X,D,20) S:KB<1 (UB,UBB)=0 K X
3 K UO,UEP,UBE,UA,UG S R="UG\1900\GROOTBOEKREKENING\AR\R1" D R2^KTR2 G YZ:K="-"
5 I $P(@("^"_Q_"AR(UG,0)"),D,13)'="" S FP=2402+F60 W @F,@F4,"GROOTBOEKREKENING IS EEN TEKSTREKENING [] = OK ",@F5,@F0 R K G 3
7 S UG=+UG,FP=1903+F60 W @F,"GROOTBOEKREKENING : ",UG
9 S R="UA\20\3\AANTAL           \C1\6\\""-,""[K!(K?.N!(K?.N1"".""2N)&(K>0))!(K?1""-"".N)\\" D R0 G 1:K="-",1:K=","
11 I UVM'="MTL" S FP=2103+F60 W @F,@F1,"MUNTKODE          : ",UVM G 15
13 S R="UMC\21\3\MUNTKODE         \\3\\$L(K)" D R0 G 9:K="-",1:K=",",13:'$D(@("^"_Q_"BA(11,K)"))
15 G 17:'UA S R="UEP\22\3\EENHEIDSPRIJS    \\9\\$L(K)&(""-,""[K)!((K?.N!(K?.N1"".""1N)!(K?.N1"".""2N))&(K'<0)&($L(K)))\\" D R0
16 S UEP=$J(UEP,0,2) G 13:K="-"&(UVM="MTL"),9:K="-",1:K=",",18
17 S R="UBE\22\3\BEDRAG           \\11\\""-,""[K!(K?.N)!(K?.N1"".""1N)!(K?.N1"".""2N)!(K<0)&$L(K)\\" D R0 G 13:K="-"&(UVM="MTL"),9:K="-",1:K=","
18 I $L(UBB) S FP=2303+F60 W @F,@F1,"B.T.W.-KODE       : ",UB G 25
19 S R="UB\23\3\B.T.W.-KODE      \""",UABK="" F I=0,1,5,7 I $D(PBTW(I)) S R=R_I_"="_PBTW(I)_"   " S UABK=UABK_I
20 S R=R_"""\1\\$L(K)&(""-,""[K)!(K?.N&$L(K)&(UABK[K))" D R0 G 15:K="-",1:K=","
25 Do SCROL^READ("Omschrijving     ",UTL,"","","","","L",24) G 1:K="," I K="-" G 15:$L(UBB),19
26 S UO=K S:UA UBE=UEP*UA,B(106)=UEP S B(105)=UO,B(103)=UA,B(108)=UB,(B(101),B(111))=UG
27 S UBE=$J(UBE,0,2),(B(109),B(110),B(116))=UBE,B(117)="KF1925",B(122)=UMC S:'UA UEP=UBE
28 S UN=UBE I KV="MTL" S UPAR=$$MUNT^vhRtn1(UMC,,12),UN=$J(UN*UPAR/LPAR,1,2)
29 S UTOT=UTOT+UN D SHOWTOT^KFTOT(UTOT) K:'UA UA
30 S X=@("^"_Q_UGL_"(KC,US,UR,1)") I '$L($P(X,D,20)) S X=$P(X,D,1,19)_D_UB_D_$P(X,D,21,99),^(1)=X
 ;
YZ K UA,UEP,UO,UN,UPAR,UB,UVM,UMC,UG,UBE,UABK,UBB,UBBB,X Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31