KPIBT9 G 1 ;PRODUKTEN IN BESTELLING ;(VOLGENS LEVERANCIER);KPIBT1;Go van KPIBT6 [ 08/05/2002   4:17 PM ]
 ;
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
 ;
1 S BLZ=0,I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 S Q1="^"_Q_"LE(LE)",Q2="^"_Q_"HULP($J,LES)",Q3="^"_Q_"HULP($J,LES,PRCS)"
23 D HD I LE'=0 S X=$D(@Q1) G 27:X
25 S LE=$N(@Q1) I LE=-1!(LE]LEX) G 67
27 S LES=$P(LE," ",2)_" ",LNM=$P(^(LE,0),D,2),X=$D(@Q2) G 25:'X
28 S PRCS=PRC I PRC'=0 S X=$D(@Q3) G 40:X
29 S PRCS=$N(@Q3) I PRCS=-1!(PRCS]PRCX) G 25
40 S (I6,UATS,UATK,UAOS,UAOK,UAU)=0,U2=^(PRCS,0,0,0,0,0),PC=$P(U2,D,1),PID=$P(U2,D,2),PST=$P(U2,D,3),PY=$P(U2,D,4),PRE=$P(U2,D,5) D HDP,HDK
41 S I6=$N(@("^"_Q_"HULP($J,LES,PRCS,I6)")),I7="" I I6=-1 D TOT G 29
43 S (I7,I7X)=$N(@("^"_Q_"HULP($J,LES,PRCS,I6,I7)")) G 41:I7=-1 S I8=""
45 S (I8,I8X)=$N(@("^"_Q_"HULP($J,LES,PRCS,I6,I7,I8)")) G 43:I8=-1 S I9=""
47 S (I9,I9X)=$N(@("^"_Q_"HULP($J,LES,PRCS,I6,I7,I8,I9)")) G 45:I9=-1 S I10=""
49 S I10=$N(@("^"_Q_"HULP($J,LES,PRCS,I6,I7,I8,I9,I10)")) G 47:I10=-1 S U2=^(I10)
51 S UA=$P(U2,D,1),ULT=$P(U2,D,2),STKOM=$P(U2,D,3) I $L(I7X) S LKC=$P(U2,D,4),LKN=$P(U2,D,5)
53 S LN=LN+1 I LN>55 W !,$P($T(T2),U,2),# D HD,HDK G 53
55 W !,$P($T(T3),U,2),$C(13),?1,$J(LKC,5)," ",LKN,?41,$J(I9X,6)
57 S R=UA_"\7\"_($S(I8="T":58,I8="O":76,1:94)+(-STKOM+1*9))_"\0" D:+R R3 W ?104,ULT
59 S (LKC,LKN,I7X,I8X,I9X)="" I I8="T" S:'STKOM UATK=UATK+UA S:STKOM UATS=UATS+UA
61 I I8="O" S:'STKOM UAOK=UAOK+UA S:STKOM UAOS=UAOS+UA
63 I I8="U" S UAU=UAU+UA
65 G 49
67 W !,$P($T(T4),U,2),# D CLOSE^vhPRINTER K @("^"_Q_"HULP($J)")
 ;
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?121,$P($T(T5),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?77,$P($T(+1),U,3),?121,DT,!,NM3
HDA W ?30,$P($T(T6),U,2),X1,"   ",X2,?122,TD,!!
HDZ Q
 ;
HDP S LN=LN+3 I LN>55 W !,$P($T(T4),U,2),# D HD G HDP
HDP1 W !,$P($T(T4),U,2),!,":",?128,":" F I=1:1:3 W $C(13),?2,PID
HDP2 W !,":",?128,":" F I=1:1:3 W $C(13),?2,PC
HDPZ Q
 ;
HDK S LN=LN+3 I LN>52 W !,$P($T(T4),U,2),# D HD G HDK
HDKA W !,$P($T(T4),U,2),!,$P($T(T1),U,2),!,$P($T(T2),U,2)
HDKZ Q
 ;
TOT S LN=LN+3 W !,$P($T(T2),U,2),!,$P($T(T3),U,2) F I=1:1:3 W $C(13),?41,"TOTAAL"
TOTA S R=PST_"\7\49\0" D:+R R3 S R=UATS_"\7\58\0" D:+R R3 S R=UATK_"\7\67\0" D:+R R3
TOTB S R=UAOS_"\7\76\0" D:+R R3 S R=UAOK_"\7\85\0" D:+R R3 S R=UAU_"\7\94\0" D:+R R3
TOTC S R=(PST+$P(PY,"#",2)-$P(PRE,"#",2))_"\7\111\0" D:+R R3 S R=(PST-$P(PRE,"#",2))_"\7\120\0" D:+R R3
TOTZ Q
 ;
T1 ;: LEVERANCIERS- KLANTNUMMER - NAAM     : NUMMER : FYS-ST : ST -TOELEV- KOM : ST  -ORDER- KOM : UITLEV : LV-WK : TEO-ST : PRA-ST :
T2 ;:--------------------------------------:--------:--------:-----------------:-----------------:--------:-------:--------:--------:
T3 ;:                                      :        :        :                 :                 :        :       :        :        :
T4 ;:-------------------------------------------------------------------------------------------------------------------------------:
T5 ;BLZ:
T6 ;SELEKTIE : 
 ;