cA110 ;Stockverwerking betreffende verkoop of correctie uit ;
 ;
T0 ;Stockverwerking betreffende verkoop of correctie uit ;
 ;
T0F ;Stockverwerking betreffende verkoop of correctie uit ;
 ;
T0E ;Stockverwerking betreffende verkoop of correctie uit ;
 ;
R10 F RA=1:1:8 S @("R"_RA)=$P(R,D,RA)
R10A S R2X=R2,RG=0,RA="^"_Q_"PR(PR,0)",RT=0,R0=@RA,RC="L",RD=""
R10B S RX(RT)="S "_RA_"="""_$P(R0,D,1,13)_D_($P(R0,D,14)-R2)_D_$P(R0,D,15)_D_DT_D_$P(R0,D,17,99)_"""",RT=RT+1 G R10F:R7
R10C S RA=$E(R1,3,9)_R2_"#"_(R4*R5)_"#"_R8_"#"_D,R=1 I $D(^("H")) S R=^("H"),R(RT)=^("H"_$E("000",1,3-$L(R))_R) G R10E:$L(R(RT)_RA)<240 S R=R+1
R10D S RX(RT)="S ^(""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R10E S RX(RT)="S ^(""H"_$E("000",1,3-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1
R10F S RC=$N(^(RC))
R10G S RE=$N(^(RC)),RF=$P(^(RC),D,3) G R10K:RF'>0 I R2>RF S R2=R2-RF,R=RF,RF=0 G R10I
R10H S RF=RF-R2,R=R2,R2=0
R10I S RX(RT)="S ^("""_RC_""")="""_$P(^(RC),D,1,2)_D_RF_D_$P(^(RC),D,4,9)_"""",RT=RT+1
R10J S:'RF&$L(RD) RX(RT)="K ^("""_RD_""")",RT=RT+1 S RG=RG-($P(^(RC),D,4)*R) G R10L:'R2,R10F:$E(RE,1)="L",R10H
R10K G R10H:$E(RE,1)'="L" S RD=RC G R10F
R10L S RA="S"_$E(R1,1,6),RB="\\\\\\\\\",RX(RT)="S ^("""_RA_""")=""" I $D(^(RA)) S RB=^(RA)
R10M I R6 S RX(RT)=RX(RT)_$P(RB,D,1,6)_D_(R2X+$P(RB,D,7))_D_(R4*R5+$P(RB,D,8))_D_(R5+RG*R4+$P(RB,D,9))_D_$P(RB,D,10,99)_""""
R10N E  S RX(RT)=RX(RT)_(R2X+$P(RB,D,1))_D_(R4*R5+$P(RB,D,2))_D_(R5+RG*R4+$P(RB,D,3))_D_$P(RB,D,4,99)_""""
R10O S @%Q1=0 F R=0:1:RT X RX(R)
R10Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,RA,RB,RC,RD,RE,RF,RG,RT,R2X,RX Q  ;V2 01.08.84
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84