KPRLPK3 G 1 ;DRUKKEN PRIJSLIJST PER ARTIKELSELEKTIE ;KPRLPK3; Do van KPRLPK2, naar KPRLPK4,KPRLPK5 [ 08/06/2002   8:49 AM ]
 ;
T1 ;:-------------:-----------------------------------------------------------:-------:-------:----------:----------:
T3 ;: IDENTNUMMER : ARTIKEL  -  OMSCHRIJVING;: NO. IDENT.  : ARTICLE  -  DESCRIPTION;: IDENTNUMMER : ARTIKEL  -  BEZEICHNUNG;: IDENTNUMMER : ARTICLE  -  DESCRIPTION
T4 ;NP :    VE;NP :    VE;NP :    VE;NP :    VE
T5 ; BRUTO :    NETTO;  BRUT :      NET;BRUTTO :    NETTO; GROSS :      NET
 ;
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 KV=$S(KV="MTL":"",1:$$MUNT^vhRtn1(KV,1)) S:$L(KV) KV=KV_" " S KXS=KX,KKTS=KKT
100 S PHG="",BLZ=0 D HD,HDP S LN=LN+3
2 S PHG=$N(@("^"_Q_"HULP($J,PHG)")),PGR="" G 33:PHG=-1
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=""
6 S LN=LN+2 I LN>34 W !?V,$P($T(T1),U,2),# D HDP G 6
60 W !?V,":",?(14+V),":",?(74+V),":",?(82+V),":",?(90+V),":",?(101+V),":",?(112+V),":" F I=1:1:3 W $C(13),?(28+V),PSG
62 W !?V,":",?(14+V),":",?(74+V),":",?(82+V),":",?(90+V),":",?(101+V),":",?(112+V),":"
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),PN=$P(X,D,3),PN2=$P(X,D,4),PCOL=$P(X,D,5)
9 S LN=LN+3 I LN>36 W !?V,$P($T(T1),U,2),# D HDP G 9
11 W !?V,":",?(2+V),PID,?(14+V),":",?(16+V),$E(PC,1,11),?(28+V),PN,?(55+V),PCOL,?(74+V),":"
13 S PLP=$P(X,D,6),UEP=$P(X,D,7),PK1=$P(X,D,8),PK2=$P(X,D,9),PNV=$P(X,D,10),PGV=$P(X,D,11),UMC=$P(X,D,12),AFA=$P(X,D,13),GVP=$P(X,D,14)
15 S R=PNV_"\6\"_(72+V)_"\0" D:+R R3 W ?(82+V),":" S R=PGV_"\6\"_(80+V)_"\0" D:+R R3 W ?(90+V),":"
17 S R=PLP_"\9\"_(89+V)_"\2" D:+R&(PLP'=UEP)&(KKN) R3 W ?(101+V),":" S R=UEP_"\9\"_(100+V)_"\2" D:+R R3 W ?(112+V),":"
19 I "HM"[AFA W $C(13),?(100+V),$P("%\/M",D,$F("HM",AFA)-1),?(111+V),$P("%\/M",D,$F("HM",AFA)-1)
23 W !?V,":",?14+V,": " W:GVP>1 $J($P("VP\EM\VP\VP",D,TL)_":"_GVP,8) W ?(28+V),PN2,?(74+V),":",?(82+V),":",?(90+V),":",?(101+V),":",?(112+V),":"
31 W !?V,":",?(14+V),":",?(74+V),":",?(82+V),":",?(90+V),":",?(101+V),":",?(112+V),":" G 7
33 F I=LN:1:35 W !?V,":",?(14+V),":",?(74+V),":",?(82+V),":",?(90+V),":",?(101+V),":",?(112+V),":"
35 W !?V,$P($T(T1),U,2),#
43 D ^KPRLPK4 S EXP=EXP-1 I EXP S KX=KXS,KKT=KKTS G 100
45 K @("^"_Q_"HULP($J)")
 ;
YZ Q
 ;
 ;    titel drukken
HD W !?(83+V),$J(@(Q_"BA(99,5)"),30) W ! F I=1:1:3 W $C(13),?(28+V),@(Q_"BA(99,2)")
HD1 W ?(83+V),$J(@(Q_"BA(99,6)"),30) W ! F I=1:1:3 W $C(13),?(28+V),@(Q_"BA(99,3)")
HD2 W ?(83+V),$J(@(Q_"BA(99,7)"),30),!?V,@(Q_"BA(99,4)"),?(83+V),$J(@(Q_"BA(99,8)"),30)
HD3 W !?(83+V),$J(@(Q_"BA(99,9)"),30),!?(83+V),$J(@(Q_"BA(99,10)"),30)
HDZ Q
 ;
HDP W:BLZ !!! S BLZ=BLZ+1,LN=0 W !! F I=1:1:3 W $C(13),?V,$P("PRIJSLIJST\PRIX COURANT\PREISLISTE\PRICE LIST",D,TL)," ",KC
HDP1 W " (",$P("I\H",D,KYW?.N&KYW+1),"/",KPL,$P("-\+",D,UITZ+1),") ",KV F I=1:1:3 W $C(13),?(28+V),$P("GELDIG VANAF\VALABLE A PARTIR DE\GUELTIG AB\GELDIG VANAF",D,TL),": ",GDT
HDP2 W ?(74+V),$P("PRINTDATUM\DATE D'EDITION\DRUCKDATUM\DATE",D,TL)
HDP3 W ": ",DT,?(104+V),$P(" BLZ.\ PAGE\SEITE\PAGE",D,TL),":",$J(BLZ,3),!
HDP4 W !?V,$P($T(T1),U,2),!?V,$P($T(T3),U,TL+1),?(74+V),":",?(79+V),$P($T(T4),U,TL+1),?(90+V),":",?(94+V),$P($T(T5),U,TL+1)
HDP5 W ?(112+V),":",!?V,$P($T(T1),U,2)
HDPZ Q
 ;