KP76 G 3 ;PRODUKTENHISTORIEK ;KP75 ;Go van KP75 [ 08/05/2002  11:42 AM ]
 ;
T1 ; : BEGINSTOCK
T2 ;   BEGINSTOCK
T3 ;AANKOOP\VERKOOP\CORRECTIE IN\CORRECTIE UIT\TRANSFERT IN\TRANSFERT UIT
T4 ;[] = VERVOLG   -[] = EINDE
T5 ;[] = OK
T6 ;BLZ :
T7 ;:   DATUM  : BEWEGING      : AANTAL :   STOCK  : REFERENTIE              :
T8 ; FAKTUUR: NR EN NAAM VAN DE KLANT              :
T9 ;:----------:---------------:--------:----------:-------------------------:
T10 ;--------:--------------------------------------:
T11 ;  DATUM    BEWEGING        AANTAL     STOCK    REFERENTIE               
 ;
S1 S I2=$N(^(I2)) G S1Z:$E(I2,1)'="H" S A=^(I2)
S1A S A1=$P(A,D,1),A=$P(A,D,2,99) G S1:'$L(A1_A),S1Z:$$INTDATE^vhDTyp($E(A1,5,6)_"."_$E(A1,3,4)_"."_$E(A1,1,2))'<DAT
S1B I $E(A1,7)#2 S PBS=PBS+$E(A1,8,99) G S1A
S1C E  S PBS=PBS-$E(A1,8,99) G S1A
S1Z S PBD=$$EXTDATE^vhDTyp(DAT),I2="H" Q
 ;
S2 S FP=301 W @F,@F1,$C(13),@F7,@$P(FG,D,1),@$P(FG,D,9) S K=$P(FG,D,9),K=K_","_K F X=1:1:36 W @K
S20 W @$P(FG,D,2),@F8 F K=401,501 S FP=K W @F,@F7,@$P(FG,D,10),@F8 S FP=FP+74 W @F,@F7,@$P(FG,D,10),@F8
S22 S FP=520 W @F Q
 ;
3 S I2="H" D ^cPE124 S I1=PR I PR=-1 K %Q2,%Q3,%Q4,%Q5,%Q6,%P1,%P2,%P G Y
31 S A=@("^"_Q_"PR(I1,0)"),PC=$P(A,D,1),PN=$P(A,D,2),PBS=$P(A,D,12),PBD=$P(A,D,13) S:'$L(PBD) PBD=$J("",8)
315 D S1:DAT'="" S SWD=1
32 D:'SW!(DEV="") HD I SW&(DEV="P") W !!! D HD1
33 S SW=1 I DEV="P" W !,":",?2,PBD,$P($T(T1),U,2),?27,":",?36,":",$J(+PBS,8),"  :",?73,":" W:DET="" ?82,":",?121,":" S LT=LT+1
34 E  S FP=803 W @F,?2,PBD,$P($T(T2),U,2) S FP=838 W @F,$J(+PBS,8) S LT=LT+1 F X=1,12,28,37,48,75 S FP=800+X W @F,@F7,@$P(FG,D,10),@F8
35 S I2=$N(@("^"_Q_"PR(I1,I2)")) G 41:$E(I2,1)'="H" S A=^(I2)
39 S A1=$P(A,D,1),A=$P(A,D,2,99) G 35:'$L(A1_A),39:$$INTDATE^vhDTyp($E(A1,5,6)_"."_$E(A1,3,4)_"."_$E(A1,1,2))<DAT&SWD
4 S SWD=0,X2=$E(A1,7),X3=$E(A1,8,99),X5=$P(X3,"#",3),X4=$P(X3,"#",2),X3=$P(X3,"#",1)
 ;
LT S LT=LT+1 I LT>14,DEV="" S LT=LT-1 D HD3,5 G 11^KP75:K="-",11^KP75:K="," S FP=779 W @F,@F1 G LT
LT1 I LT>50 D HD3 W # S LT=0,BLZ=BLZ+1 D HD G LT
 ; Drukken detaillijn
DT G DDT:DEV="" W !,": ",$E(A1,5,6),".",$E(A1,3,4),".",$E(A1,1,2),?11,": ",$P($P($T(T3),U,2),D,X2)
DT1 W ?27,":",$J(X3,7) S:'(X2#2) X3=-X3 S PBS=PBS+X3 W ?36,":",$J(PBS,8),"  : ",X5,?73,":" G 39:DET="."
DT2 S FNR="",KC="",KNM="" G DT4:'$L(X5),DT4:'$D(@("^"_Q_"U1(X5)")) S K=$N(^(X5,-1))
DT3 S FNR=$P(^(K),D,2),KC=$P(^(K),D,1) I $D(@("^"_Q_"K1(KC)")) S KNM=$P(@("^"_Q_"KL(^(KC),0)"),D,2)
DT4 W " ",FNR,?82,": ",KC,"   ",KNM,?121,":"
DTZ G 39
 ;
41 D HD3 W !! S LT=LT+10 I LT>50&(DEV="P") W # S LT=0,BLZ=BLZ+1,SW=0
43 G 3:DEV="P" D 9 G ^KP75:K=","!(K="-") G 3
 ;
DDT W !,"  ",$E(A1,5,6),".",$E(A1,3,4),".",$E(A1,1,2),?11,"  ",$P($P($T(T3),U,2),D,X2)
DDT1 W ?27," ",$J(X3,7) S:'(X2#2) X3=-X3 S PBS=PBS+X3 W ?36," ",$J(PBS,8),"    ",X5,?73," "
DDT2 F X=1,12,28,37,48,75 S FP=LT+7*100+X W @F,@F7,@$P(FG,D,10),@F8
DDT3 G 39
 ;
Y I DEV="P" W # D CLOSE^vhPRINTER
YZ B 0 Q
 ;
5 S LT=0,R="K\24\3\"_$P($T(T4),U,2)_"\\1\\""-,""[K\" D R0 K:K="-"!(K=",") %Q2,%Q3,%Q4,%Q5,%Q6,%P,%P1,%P2 Q
9 S LT=0,R="K\24\3\"_$P($T(T5),U,2)_"\\1\\""-,""[K\" D R0 K:K="-"!(K=",") %Q2,%Q3,%Q4,%Q5,%Q6,%P,%P1,%P2 Q
 ; Drukken hoofding
HD I DEV="P" W !,NM1,?(66+(DET=""*48)),$P($T(T6),U,2),$J(BLZ,3),!,NM2,?(22+(DET=""*26)),@F82,$P($T(+1),U,2),@F83,$C(13),?(66+(DET=""*48)),DT,!,NM3,?(67+(DET=""*48)),TD,!! B  
HD0 E  D S2
HD1 W ?26,PC," - ",PN
HD2 W !! G HD4:DEV="" W $P($T(T9),U,2) W:DET="" $P($T(T10),U,2) W !,$P($T(T7),U,2) I DET="" W $P($T(T8),U,2)
HD3 G HD43:DEV="" W !,$P($T(T9),U,2) W:DET="" $P($T(T10),U,2) Q
HD4 S FP=601 W @F,@F1,$C(13),@F7,@$P(FG,D,7),@$P(FG,D,9) S K=$P(FG,D,9),K=K_","_K F X=1:1:36 W @K
HD400 W @$P(FG,D,6),@F8 F X=12,28,37,48 S FP=600+X W @F,@F7,@$P(FG,D,5),@F8
HD40 S FP=776 W @F,@F5 S FP=701 W @F,@F7,@$P(FG,D,10),@F8
HD41 W @F4,$P($T(T11),U,2),@F5 S FP=775 W @F,@F7,@$P(FG,D,10),@F8
HD42 F X=12,28,37,48 S FP=700+X W @F,@F7,@$P(FG,D,21),@F8
HD44 Q
HD43 S FP=LT+8*100+1 W @F,@F7,@$P(FG,D,3),@F8 S FP=FP+74 W @F,@F7,@$P(FG,D,4),@F8
HD45 S FP=LT+8*100+2 W @F,@F7,@$P(FG,D,9) S K=$P(FG,D,9)_","_$P(FG,D,9) F X=1:1:36 W @K
HD47 F X=12,28,37,48 S FP=LT+8*100+X W @F,@F7,@$P(FG,D,8),@F8
 Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;