KFULV1 G BREACK1 ;AFDRUKKEN UITLEVERINGSVOORSTEL WEEK \OPENSTAANDE ORDERS ;Quit naar KFULV [ 08/05/2002  10:44 AM ]
 ;
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
 ;
SPB I $L($P(SU1,D,25)) F I=1,2,3 W ?55,"*",$C($A($P(SU1,D,25))+32),"*",$C(13)
 Q
 ;
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
S2 N PR
 S UZ=100,USW=0,UZ=$N(@Q4) G S2Z:UZ=-1 S UZ=100
S2A S UZ=$N(@Q4) I UZ'=-1 S SU1=^(UZ) G S2A:'$L($P(SU1,D,25)),S2A:$$INTDATE^vhLib.DataTypes($P(SU1,D,25),"DW")]ULWT D
 .S PR=$P(SU1,D,2)
 .I LC Q:'PR  I '$D(^KPR(PR,"J"_LC)) Q
 .S USW=1
S2Z K SU1 Q
 ;
S0 
 N BelDat
 S (UZ,UNS,UNN)=0,QUIT=1,UZ=$N(@Q4),SU1=^(UZ) G S0Z:'$P(SU1,D,22)
 I $L(SPB),SPB="N",$L($P(SU1,D,25)) G S0Z
 I $L(SPB),SPB'="N",SPB'=$P(SU1,D,25) G S0Z
 S QUIT=0,UI=$P(SU1,D,2),UJ=$P(SU1,D,3),BelDat=$P(SU1,D,16),UZ=100,LN=LN+3 I LN>50 W # D HD
 I LKO["O" D
 .D BL() W:KR'=KRR ?11,KR W ?16,"**** ",UJ,?48,$J(UR,6) D SPB,BL(BelDat'="") W:KR'=KRR ?11,KN W ?48,UI
 .I $L(BelDat) W ?57,@FMTB,"(Beloofd voor ",BelDat,")",@FMTb
 .D BL() W:KR'=KRR ?11,$E(KP_" "_KW,1,$S(SWBLK:(33-$L($P(UBLOK,D,2))),1:34)) I SWBLK D S3 W $C(13) D S3
 I LKO["K" D
 .D BL() W:KR'=KRR ?2,KR W ?7,"**** ",UJ,?48,$J(UR,6) D SPB,BL(BelDat'="") W:KR'=KRR ?2,KN W ?48,UI
 .I $L(BelDat) W ?57,@FMTB,"(Beloofd voor ",BelDat,")",@FMTb
 .D BL() W:KR'=KRR ?2,$E(KP_" "_KW,1,$S(SWBLK:(33-$L($P(UBLOK,D,2))),1:34)) I SWBLK D S3 W $C(13) D S3
S0C S UZ=$N(@Q4) G S0J:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2),TR=$P(U2,D,27) S:'TR UNS=UNS+$P(U2,D,9) S:TR UNN=UNN+$P(U2,D,9)
S0D I 'PR,$E($P(U2,D,5),1)'="@",$P($P(U2,D,17),"#")'="KF1925" G S0C
S0E S UA=$P(U2,D,3),ULT=$P(U2,D,25),PC=$P(U2,D,5),UIMP="" I PR,$D(^KPBI("D",KR,PR)) S UIMP=$P(^(PR),D)
 I $E(PC,1)="@"!($P($P(U2,D,17),"#")="KF1925") D  G S0G
 .S:$E(PC)="@" $E(PC)=""
 .S (PST,PNR)="",(PSN,SWPSN)=1
S0F S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),X=^(1),PSN=$P(X,D,20),X=^(2),PNR=$P(X,D,25),SWPSN=1
S0G S LN=LN+1 I LN>50 D HD0
S0H D:SWPSN BL() W:LKO["O" ?2,$J(TR,6),?11 W:LKO["K" ?2 I $D(KX) W KT1 W:LKO["O" ?38 W:LKO["K" ?29 W $J($S('+KX:"KONTANT",1:KX),7)
S0HH I '$D(KX),SWPSN W:LKO["K" ?2 W:LKO["O" ?11 W $E($P(OPM,D,1),1,35) S OPM=$P(OPM,D,2,99)
S0HHH W:LKO["K" ?39,$J(TR,6) W ?48,$J($E(PNR,1,11),11),?62,$E(PC,1,25) S R=UA_"\7\"_$S('TR:89,1:98)_"\0" D:+R R3 W ?108,ULT
S0I S R=PST_"\7\115\0" D:+R R3 S R=UIMP_"\7\124\0" D:+R R3 K KX G S0C:'PSN S (PSN,SWPSN)=0 W $C(13) G S0H
S0J G S0KK:KV'="MTL" S UVM=$P(SU1,D,18),UPAR=$$MUNT^vhRtn1(UVM,,12),UNS=$J(UNS*UPAR,1,2),UNN=$J(UNN*UPAR,1,2)
S0K S UPAR=$$LANDPAR^KLANT(KL),UNS=UNS/UPAR,UNN=UNN/UPAR
S0KK I $L(OPM) S LN=LN+1 D BL() W:LKO["O" ?11 W:LKO["K" ?2 W $P(OPM,D,1) S OPM=$P(OPM,D,2,99) G S0KK
S0L S LN=LN+2,UNS=UNS,UNN=UNN,UN=UNS+UNN I LKO["O" D BL() S R=UNS_"\9\12\2" D:+R R3 S R=UNN_"\9\22\2" D:+R R3 S R=UN_"\9\32\2" D:+R R3 W:+R MNT
S0M I LKO["K" D BL() S R=UNS_"\9\3\2" D:+R R3 S R=UNN_"\9\13\2" D:+R R3 S R=UN_"\9\23\2" D:+R R3 W:+R MNT
S0N I MNT'=$$FADEF^vhRtn1() S UPAR=$$MUNT^vhRtn1(MNT,,12),UNS=UNS*UPAR,UNN=UNN*UPAR
S0O S TOTS=TOTS+UNS,TOTN=TOTN+UNN D UL
S0Z K SU1 Q
 ;
S1 S X=@("^"_Q_"KL(@(""^""_Q_""K1(KR)""),0)"),KN=$P(X,D,2),KP=$P(X,D,6),KW=$P(X,D,7),KL=$P(X,D,8),KV=$P(X,D,11),KT1=$P(X,D,13),KX=$P(X,D,18)
S1A S OPM=$P(^(5),D,3,5) F I=1:1:3 Q:$L($P(OPM,D,1))  S OPM=$P(OPM,D,2,99)
S1B S KL=$$LAND^vhRtn1(KL),MNT=$$CONVMUNT^KLANT(KV,KL)
 S SWBLK='+$$WAARDIG^KREDIET(KR)
S1Z Q
 ;
S3 S SWBLK=0 W ?36-$L($P(UBLOK,D,2)),$P(UBLOK,D,2)
S3Z Q
 ;
BREACK1 B 1
 S:$L(KKL) KKL=$$LAND^vhRtn1(KKL)
 S ULWT=$$INTDATE^vhLib.DataTypes(ULW,"DW") S:'ULWT ULWT=99999
27 D HD S UBLOK=@("^"_Q_"OD(0,US,""UBLOK"")")
29 S FST=$N(@Q5) G 41:FST=-1!(LKO["K"&(FST]LST))!(LKO["O"&(FST>LST))
 I LKO["O" S UR=FST,KR=$P(^(UR,US),D,1) G 29:'$D(@("^"_Q_"OD(KR,US,UR)")) D S2 G 29:'USW D:KR'=KRR S1 D:KKL=""!(KL=KKL) S0 G 29:'$D(QUIT),29:QUIT S KRR=KR G 29
31 S KR=$P(FST," ",2),UR=0 G 29:'$D(@("^"_Q_"OD(KR)"))
33 S UR=$N(@Q3) G 29:UR=-1 D S2 G 33:'USW D:KR'=KRR S1 D:KKL=""!(KL=KKL) S0 G 33:'$D(QUIT),33:QUIT S KRR=KR G 33
41 S TOT=TOTS+TOTN G 47:'TOT W !! W:LKO["O" ?20 W:LKO["K" ?11 W "STOCK             KOM          TOTAAL"
43 W ! I LKO["O" S R=TOTS_"\13\12\2" D:+R R3 S R=TOTN_"\13\28\2" D:+R R3 S R=TOT_"\13\44\2" D R3
45 I LKO["K" S R=TOTS_"\13\3\2" D:+R R3 S R=TOTN_"\13\19\2" D:+R R3 S R=TOT_"\13\35\2" D R3
46 W $$MUNT^vhRtn1(,1)
47 W # D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
UL W ! I LKO["O" W $P($T(T1),U,2)
 I LKO["K" W $P($T(T2),U,2)
 I "C"[SPB W $P($T(T7),U,2)
 Q
 ;
BL(Sep) 
 N Char
 S Char=$P(":\ ",D,$G(Sep)+1)
 W ! I LKO["O" W $P($T(T3),U,2),Char,$P($T(T3),U,3)
 I LKO["K" W $P($T(T4),U,2),Char,$P($T(T4),U,3)
 I "C"[SPB W $P($T(T8),U,2)
 W $C(13)
 Q
 ;
TL W !!! I LKO["O" W $P($T(T5),U,2)
 I LKO["K" W $P($T(T6),U,2)
 I "C"[SPB W $P($T(T9),U,2)
 Q
 ;
T1 ;:--------:------------------------------------:-------------:---------------------------:-----------------:-------:--------:
T2 ;:------------------------------------:--------:-------------:---------------------------:-----------------:-------:--------:
T3 ;:        :                                    :             ;                           :                 :       :        :
T4 ;:                                    :        :             ;                           :                 :       :        :
T5 ;:  TOEL. : KLANT - REFERENTIE - TOTALEN       : ORD - ID-NR : PRODUKTNAAM               : ST -AANTAL- KOM : LV-WK : FYS-ST :
T6 ;: KLANT - REFERENTIE - TOTALEN       :  TOEL. : ORD - ID-NR : PRODUKTNAAM               : ST -AANTAL- KOM : LV-WK : FYS-ST :
T7 ;--------:
T8 ;        :
T9 ; IMPULS :
 ;
HD0 D UL W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?116+("C"[SPB*9),"BLZ:",$J(BLZ,4),!,NM2,?45,@F82,$P($P($P($T(+1),";",2)," ",2,99),D,$S(ULW="99/99":2,1:1)) W:ULW'="99/99" ULW W @F83,$C(13),?116+("C"[SPB*9),DT
HD1 W !,NM3,?45,"(" W:$L(SPB) $P("NORMALE\SPECIALE\CONTRACTEN\AFROEP\KLANTGEBONDEN (8)\LEVERANCIERS",D,$F("NSCAKL",SPB)-1)," - " W "PER ",LKO,")",?117+("C"[SPB*9),TD,!
HD2 D TL,UL
HDZ Q
 ;