KPLK3 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK3; Do van KPLK2 [ 08/05/2002   4:23 PM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;------------------------------------:-----------------------------------------------------------
T6 ;-----------------------------
T7 ; TOTAAL
T8 ;MUNTKODE    - 
T9 ;REELE-PK;SCHAD-PK;REELE-UITZ;SCHAD-UITZ
T10 ;:-------------
T11 ;----------:----------:------:
T12 ;: IDENTNUMMER 
T13 ;  HUID MA :  SCHA MA : MA % :
T14 ;BLZ:
T15 ;:---------------------------:--------:----------------:-----------:------:-----------:-----------:
T16 ;: PRODUKTNAAM               :  STUKS :  HUIDIGE PRIJS :   SCHA PR : PR % :  HUID OMZ :  SCHA OMZ :
T17 ;SELEKTIE : 
T18 ;NIET AKTIEF;AKTIEF
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S EJECTED=0 I BLZ,$G(LINES),$G(LN)+10+LINES>MAXLINES W # S EJECTED=1
 I EJECTED!'BLZ!(BLZ=1&$O(B(100))) D HD
11 D HDK,HDP
2 S PHG=$N(@("^"_Q_"HULP($J,PHG)")),PGR="" I PHG=-1 K @("^"_Q_"HULP($J)") G 59
3 S PGR=$N(@("^"_Q_"HULP($J,PHG,PGR)")) G 2:PGR=-1 S PSG=""
5 S PSG=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG)")) G 3:PSG=-1 S PCC=""
7 S PCC=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")) G 5:PCC=-1 S X=^(PCC),PID=$P(X,D,1),PC=$P(X,D,2),UEP=$P(X,D,3),UEPH=$P(X,D,4)
9 S UMCS=$P(X,D,5),UMCH=$P(X,D,6),AFA=$P(X,D,7),TPOS=$P(X,D,8),TPOH=$P(X,D,9),TPMS=$P(X,D,10),TPMH=$P(X,D,11),TPA=$P(X,D,12)
 S UEPBFS=$P(X,D,13),UEPBF=$P(X,D,14),AFES=$P(X,D,16),AFEH=$P(X,D,17),PLCode=$P(X,D,18)
 S:PLCode="N" (UEP,TPOS,TPMS,UEPBFS)=""
 S:PLCode="S" (UEPH,TPOH,TPMH,UEPBF)=""
 S MPARS=$$MUNTPAR^vhRtn1(UMCS),MPARH=$$MUNTPAR^vhRtn1(UMCH)
47 W ! S LN=LN+1 I LN>MAXLINES W:'PWD $P($T(T10),U,2) W $P($T(T15),U,2) W:PWD $P($T(T11),U,2) W # D HD,HDP G 47
49 W ": " W:VPL $J(PID,11),?14,": " W PC,?(28+VPL),":" S R=TPA_"\7\"_(29+VPL)_"\0" D:+R R3 W ?(37+VPL),":" S R=UEPH_"\10\"_(38+VPL)_"\2" D:+R R3 I UEP!(UEPH) W ?(49+VPL),$J(UMCH,3),$P("\%\/M",D,$F("EHM",AFA)-1)
51 W ?(54+VPL),":" I UEP&(+UEPH'=+UEP) S R=UEP_"\10\"_(55+VPL)_"\2" D R3
52 W ?(66+VPL),":" S R=$S(UEPH:UEP/AFES/MPARS-(UEPH/AFEH/MPARH)/(UEPH/AFEH/MPARH),1:0)*100_"\5\"_(67+VPL)_"\1" D:+R R3
53 W ?(73+VPL),":" S R=TPOH_"\10\"_(74+VPL)_"\0" D:+R R3 W ?(85+VPL),":" S R=TPOS_"\10\"_(86+VPL)_"\0" D:+R&(+R'=+TPOH) R3 W ?(97+VPL),":"
55 G 57:'PWD S R=TPMH_"\9\98\0" D:+R R3 W ?108,":" S R=TPMS_"\9\109\0" D:+R&(+R'=TPMH) R3 W ?119,":" S R=$S(TPMH:TPMS-TPMH/TPMH,1:0)*100_"\5\120\1" D:+R R3 W ?126,":"
57 S TPOST=TPOST+TPOS,TPOHT=TPOHT+TPOH,TPMST=TPMST+TPMS,TPMHT=TPMHT+TPMH G 7
59 W ! W:'PWD $P($T(T10),U,2) W $P($T(T15),U,2) W:PWD $P($T(T11),U,2) W !,":",$P($T(T7),U,2) W:VPL ?14,":" W ?(28+VPL),":",?(37+VPL),":",?(54+VPL),":",?(66+VPL),":"
61 S R=$S(TPOHT:TPOST-TPOHT/TPOHT,1:0)*100_"\5\"_(67+VPL)_"\1" D:+R R3 W ?(73+VPL),":" S R=TPOHT_"\10\"_(74+VPL)_"\0" D:+R R3 W ?(85+VPL),":" S R=TPOST_"\10\"_(86+VPL)_"\0" D:+R&(+R'=TPOHT) R3 W ?(97+VPL),":"
63 I PWD S R=TPMHT_"\9\98\0" D:+R R3 W ?108,":" S R=TPMST_"\9\109\0" D:+R&(+R'=TPMHT) R3 W ?119,":" S R=$S(TPMHT:TPMST-TPMHT/TPMHT,1:0)*100_"\5\120\1" D:+R R3 W ?126,":"
65 W ! W:'PWD $P($T(T10),U,2) W $P($T(T15),U,2) W:PWD $P($T(T11),U,2) ;W:'EJECTED !!!!!,#
 S LN=LN+3
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?(90+PWD+VPL),$P($T(T14),U,2),$J(BLZ,4),!,NM2,?(28+(PWD/2)+(VPL/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?(90+PWD+VPL),DT
HD1 W !,NM3,?(28+(PWD/2)+(VPL/2)),$P($T(T3),U,2),$P(HFBP,D,1),$P($T(T4),U,2),$P(HLBP,D,1)
HD2 I $P(HFBP,D,2)!($P(HLBP,D,2)) W " (",$S($P(HFBP,D,2):$P($T(T1),U,2),1:$P(HFBP,D,1)),$P($T(T4),U,2),$S($P(HLBP,D,2):$P($T(T2),U,2),1:$P(HLBP,D,1)),")"
HDZ W ?(91+PWD+VPL),TD,!,?(28+(PWD/2)+(VPL/2)),$P($T(T17),U,2),X1,"   ",X2,!! Q
 ;
HDK I 'LN W ":" W:'PWD $E($P($T(T6),U,2),1,14) W $P($T(T5),U,2) W:PWD $P($T(T6),U,2) W ":"
 W !,":" W ?1,$J(KC,5),?8,@FMTB,KN,@FMTb
HDK1 W ?(39+VPL),": ",$P($T(T8),U,2),KV,?113 W:PWD ?128 W ":",!,":" W ?8,@FMTB,KS,@FMTb
HDK2 W ?(39+VPL),":",?113 W:PWD ?128 W ":",!,":" W ?8,@FMTB,KP,"   ",KW,@FMTb
HDK3 W ?(39+VPL),": ",$P($T(T9),U,2)," :" W ?(52+VPL),$$ALLECODEXEN^KLANT(KC,)
HDK4 W ?113 W:PWD ?128 W ":",!,":" W ?8,@FMTB,KT1,@FMTb
HDK5 W ?(39+VPL),": ",$P($T(T9),U,3)," :",$C(13) I KPL'=KPLS W ?(50+VPL),$$ALLECODEXEN^KLANT(KC,"S")
HDK7 W ?76+VPL,"(",$P($T(T18),U,SUKA+2),")",?111 W:PWD ?126 W ":"
 w !
 S:'LN LN=1 S LN=LN+4
 Q
 ;
HDP S LN=LN+4
 W:'PWD $P($T(T10),U,2) W $P($T(T15),U,2) W:PWD $P($T(T11),U,2)
 W ! W:'PWD $P($T(T12),U,2) W $P($T(T16),U,2) W:PWD $P($T(T13),U,2)
 W ! W:'PWD $P($T(T10),U,2) W $P($T(T15),U,2) W:PWD $P($T(T11),U,2)
 Q
 ;