KKAA27 G 1 ;OMZETANALYSE ;KKAA27;Do naar KKAA27A [ 08/16/2002  3:41 PM ]
 ;
T1 ;OK VOOR BEGIN TRANSFERT
T2 ;[] = ok   ,[] = hernemen
T3 ;OK VOOR EINDE TRANSFERT
T4 ;[] = ok
T5 ;Klnr.\Klantnaam\Adres\Postnummer\Woonplaats\Telefoon\Re\Type\Codex\Aktiv\
T6 ;ONB
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
 ;    initialisatie + vraag
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 D KP^KSEL G YZ:K="-" D ^KKAA27A G 13:K="-"
15 S R="K\23\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2)_"""\1\\"",""[K" D R0 G 13:K=","
 ;
 ;    het drukken van de info
2 S TIT=$P($T(T5),U,2)_$E($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp(HFBP),"M",-12),"DKP"),4,8)
 S TIT=TIT_"-"_$E($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp(HLBP),"M",-12),"DKP"),4,8)
 S TIT=TIT_D_$E(HFBP,4,8)_"-"_$E(HLBP,4,8) D HD
 I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) I KL=-1!(KL]KLX) G 6
29 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
33 S KC=$P(A(0),D,1),TYP=$$GetKlantType^KLANT5(KC) G 27:TYP="Z"
 ;
4 S PR=0,BP=$J(FBP-1.01,0,2)_" ",EBP=$J(LBP-1,0,2)_" ",VOM=0
41 S BP=$N(@("^"_Q_"STKL(KC,PR,BP)")) G 43:BP=-1!(BP]EBP) S VOM=VOM+$P(^(BP),D,3) G 41
43 S BP=$J(FBP-.01,0,2)_" ",EBP=$J(LBP,0,2)_" ",HOM=0
45 S BP=$N(@("^"_Q_"STKL(KC,PR,BP)")) G 5:BP=-1!(BP]EBP) S HOM=HOM+$P(^(BP),D,3) G 45
 ;
5 F I=1,2,5,6,7,13 W $P(A(0),D,I),$C(9)
51 S REG=$P(A(0),D,20) W:'$L(REG) $P($T(T6),U,2) I $L(REG) S REG=REG_" " I $D(@("^"_Q_"SEKT(REG)")) W ^(REG)
53 W $C(9) S TYP=$S(TYP=0:TYP,TYP="Z":TYP,TYP?.N:"HAN-"_TYP,1:"IND-"_TYP) W TYP,$C(9)
55 S PKL=$P(A(2),D,3),PKL=$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",PKL)-1) S:$D(^KLPUTZ("N",KC)) PKL=PKL_" (+)" W PKL,$C(9)
59 W $P(A(1),D,11),$C(9),$J(VOM,0,0),$C(9),$J(HOM,0,0),$C(13) G 27
 ;
6 S R="K\23\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\K=""""" D R0 G YZ
 ;
 ;    titel drukken
HD F I=1:1 Q:'$L($P(TIT,D,I))  W $P(TIT,D,I) W:$L($P(TIT,D,I+1)) $C(9)
HDA W $C(13)
HDZ Q
 ;
 ;    einde
Y ;
YZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@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  ;V4 03.10.84
 ;