KTOKN1 G BREACK1 ;AFDRUKKEN GEWIJZIGDE LEVERINGSTERMIJNEN KOM ;Quit naar KTOKN [ 08/07/2002  3:32 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
 ;
S1 S X=$N(@("^"_Q_"PR(PR,""J"")")) S:$E(X,1)="J" X=^(X)
 S LTB=$$INTDATE^vhLib.DataTypes(%WK,"DW")+($P(X,D,7)*7),LTB=$$EXTDATE^vhLib.DataTypes(LTB,"DW")
S1Z Q
 ;
BREACK1 B 1
27 S UR=0
29 S FST=$N(@Q2) G 55:FST=-1!(FST]LST) S LR=$P(FST," ",2),TR=0 G 29:'$D(@("^"_Q_"TOK(LR)"))
30 I KGP="P" S SWP=0 D S0 G 29:'SWP S (TR,UR)=0
31 S LNN=$P(@("^"_Q_"LE(FST,0)"),D,2) D HD
33 S (TR,TRR)=$N(@Q3),TZ=0 I TR=-1 W !,$P($T(T1),U,2),# G 29
35 S TZ=$N(@Q4) G 33:TZ=-1
37 S TU=^(TZ),LTA=$P(TU,D,1),LTB=$P(TU,D,2),LTW=$P(TU,D,3),UZ=$P(TU,D,5) G 41:UR=$P(TU,D,4) S (UR,URR)=$P(TU,D,4)
39 S KR=$P(@("^"_Q_"O1(UR,""F"")"),D,1),KN=$P(@("^"_Q_"KL(@(""^""_Q_""K1(KR)""),0)"),D,2)
41 S X=@("^"_Q_"OD(KR,""F"",UR,UZ)"),PR=$P(X,D,2),UA=$P(X,D,3),LTK=$P(X,D,25)
42 I KGP="P" S LTBS=LTB D:LTB["?" S1 G 35:$P(LTK,"/",2)-$P(LTB,"/",2)>0 S LTB=LTBS
43 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),X=^(2),PNR=$P(X,D,25),PRE=$P(X,D,9),PRA=PST-$P(PRE,"#",2)
44 S LN=LN+1 I LN>50 W !,$P($T(T1),U,2),# D HD
45 W !,$P($T(T2),U,2),$C(13),?2,$J(TRR,6),?11,$J(LTA,5),?19,$J(LTB,5) W:LTW ?27,$J(LTW,2) W ?32,$J(PNR,11)
47 W ?46,PC S R=UA_"\7\73\0" D:+R R3 W ?83,$J(URR,6),?92,$E(KN,1,18),?113,$J(LTK,5) S R=PRA_"\7\120\0" D:+R R3
49 S LTN="" I LTB["?" S X=$N(^("J")) S:$E(X,1)="J" X=^(X) S LTB=$$INTDATE^vhLib.DataTypes(%WK,"DW")+($P(X,D,7)*7),LTB=$$EXTDATE^vhLib.DataTypes(LTB,"DW")
51 S:$P(LTK,"/",1)<$P(LTB,"/",1) LTN="!" S:$P(LTB,"/",1)=$P(LTK,"/",1)&(($P(LTK,"/",2)-$P(LTB,"/",2))<1) LTN="!"
53 W ?130,LTN S (TRR,URR,KN)="" G 35
55 D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T1 ;:--------:-------:-------:----:-------------:---------------------------:--------:--------:--------------------:-------:--------:---:
T2 ;:        :       :       :    :             :                           :        :        :                    :       :        :   :
T3 ;:    BON :  LTA  :  LTB  : AW : IDENTNUMMER : PRODUKTNAAM               : AANTAL :  ORDER : KLANT              :  BEV  : PRA-ST : ! :
 ;
HD S BLZ=BLZ+1,LN=0 W !,NM1,?125,"BLZ:",$J(BLZ,4),!,NM2,?36,@F82,$P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?103,"(",$S(KGP="G":"ALLE",1:"PROBLEEMGEVALLEN"),")",?125,DT
HD1 W !,NM3,?36,LNN,?126,TD,!!!!,$P($T(T3),U,2),!,$P($T(T1),U,2)
HDZ Q
 ;
S0 S TR=$N(@Q3) G S0Z:TR=-1 S TZ=0
S0A S TZ=$N(@Q4) G S0:TZ=-1
S0B S TU=^(TZ),LTA=$P(TU,D,1),LTB=$P(TU,D,2),LTW=$P(TU,D,3),UZ=$P(TU,D,5) G S0D:UR=$P(TU,D,4) S UR=$P(TU,D,4)
S0C S KR=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
S0D S X=@("^"_Q_"OD(KR,""F"",UR,UZ)"),PR=$P(X,D,2),LTK=$P(X,D,25)
S0E D:LTB["?" S1 G S0A:$P(LTK,"/",2)-$P(LTB,"/",2)>0 S SWP=1
S0Z Q
 ;