VERVI ;VERVOERLIJST BLUM (Inboeken van een lijn) ;VERV; Quit naar VERV [ 06/28/2002  2:09 PM ]
 G BEGIN
 ;
S1 N PID,RDT,RDC
 S RDC=$$MUNT^vhRtn1(,4)
 S PID=$P(^KPR(PR,2),D,25)
 I $E(PID)'=7 D
 .S R=UUD_1_D_UA_D_$J($P(X,D,23),0,$S(IsEuro:4,1:2))_D_1_D_$J($P(X,D,25),0,$S(IsEuro:4,1:2))_D_D_0_D_TR_D
 .D ^KPR20
 E  D
 .S RDT=$$INTDATE^vhLib.DataTypes($E(UUD,1,4)_D_$E(UUD,5,6)_D_$E(UUD,7,8),"DS")
 .D ONE^BLHIST(PR,RDT,UA,($P(X,D,23)*UA),("T;"_TR))
S1A S LTB=$P(U2,D,25),LTA=$P(U2,D,29) S:'$L(LTA) LTA=LTB
S1B S R=$TR($$CONVDATE^vhLib.DataTypes(LTW,"DW","DW4"),"/","")
 S R=$D(@("^"_Q_"SPW(PR,R,0)")),R=TR
S1C I $D(^(R)) S R=R+.1 G S1C
S1D S ^(R)=UA_D_$J($P(X,D,23)*UA,0,RDC)_D_LTB_D_LTA_D_LTW_D_(UR'="")_D
S1Z Q
 ;
S2 D KWNODE^FLOWTOE(LC,TR,UZ)
  Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LC,TR,UZ)
S2Z Q
 ;
S4 S ULT="" G S4Z:'$D(@("^"_Q_"O1(UR)")) S KC=$P(^(UR,"F"),D,1)
S4A L (^Verv(LC,"D",VRF),@("^"_Q_"TO(LC,TR)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  D M1 G S4A
S4B G S4Z:'$D(@("^"_Q_"OD(KC,""F"",UR,UUZ)"))
 D KWNODE^FLOWORD(KC,UR,UUZ)
 S UU2=@("^"_Q_"OD(KC,""F"",UR,UUZ)"),ULT=$P(UU2,D,25)
S4C S ^(UUZ)=$P(UU2,D,1,2)_D_UA_D_$P(UU2,D,4,8)_D_$J(($P(UU2,D,9)/$P(UU2,D,3)*UA),0,2)_D_$J(($P(UU2,D,10)/$P(UU2,D,3)*UA),0,2)_D_$P(UU2,D,11,15)_D_$J(($P(UU2,D,16)/$P(UU2,D,3)*UA),0,2)_D_$P(UU2,D,17,26)_D_D_"KOM"_D_$P(UU2,D,29,99)
 D SWNODE^FLOWORD(KC,UR,UUZ)
 Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UUZ,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
S4Z Q
 ;
S6 K @("^"_Q_"TOK(LC,TR,UZ)")
S6Z Q
 ;
 ; Opkuis bestanden
KILL S TRLC(TR)="" K ^KTO3(TR,$P(U2,D,13,14)_D_UZ),^KTO(LC,TR,UZ) G KILL1:$N(^(100))'=-1 S K=$P(^(1),D,10) D KILL^KTO4(LC,TR,K)
 K ^KTO1(TR),^KTO2(LC,TR),^KTOB(TR),^KTO(LC,TR),^BLBeri("Z",TR)
 K TRLC(TR) I $D(^KTO(0,4)) S TRLC=TR d @^(4)
KILL1 Q
 ;
 ; Verwerk lijn
VWL
 N TLUNr
 D COPY^EWTOE(TR)
 S X=^KTO(LC,TR,1),UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(X,D,2)),"DS"),D,"")
 S U2=RTO,PR=$P(U2,D,2),(UA,UAO)=$P(U2,D,3),TLUNr=$P(U2,D,15),UR=$P(U2,D,27),UUZ=$P($P(U2,D,28),";")
VWL1 L (^Verv(LC,"D",VRF),^KTO(LC,TR),^KPR(PR)):2 E  D M2 G VWL1
 S Y=^KPR(PR,0),X=^($N(^("J")))
 I $P(U2,D,3)=$P(RVV,D,11) D  G VWL3
 . D S2,S1,COPY^EWTOE(TR,UZ,U2)
 . D ##class(BL.Flow.RecuPak.Main).VervoerLijstBlumDO(LC,VRF,PR,UA,TR,TLUNr,$G(FAKRF))
 . D:UR S4,S6 D KILL
 S UAO=$P(RVV,D,11)
 I $P(RVV,D,13)'="P" D  D KILL G VWL3
 . D S2 S UA=UAO D S1,COPY^EWTOE(TR,UZ,U2,UA)
 . D ##class(BL.Flow.RecuPak.Main).VervoerLijstBlumDO(LC,VRF,PR,UA,TR,TLUNr,$G(FAKRF))
 . D:UR S4,S6
 S UA=UAO D S2,S1,COPY^EWTOE(TR,UZ,U2,UA)
 Do ##class(BL.Flow.RecuPak.Main).VervoerLijstBlumDO(LC,VRF,PR,UA,TR,TLUNr,$G(FAKRF))
 G VWL2:'UR
 D S4 S UAO=$P(UU2,D,3)-UA,UUZ=^KOD(KC,"F",UR,0),^(0)=UUZ+1,U2=$P(U2,D,1,27)_D_UUZ_D_$P(U2,D,29,99)
 S X=$P(UU2,D,1,2)_D_UAO_D_$P(UU2,D,4,8)_D_$J(($P(UU2,D,9)/$P(UU2,D,3)*UAO),0,2)_D_$J(($P(UU2,D,10)/$P(UU2,D,3)*UAO),0,2)
 S X=X_D_$P(UU2,D,11,14)_D_D_$J(($P(UU2,D,16)/$P(UU2,D,3)*UAO),0,2)_D_$P(UU2,D,17,27)_D_UZ_D_$P(UU2,D,29,99),^(UUZ)=X
 D SWNODE^FLOWORD(KC,UR,UUZ)
 Do ProductOrderLijnGemaakt^FLOWORD2(KC,UR,UUZ)
 I $D(^KTOK(LC,TR,UZ)) S X=^(UZ),X=$P(X,D,1,4)_D_UUZ_D,^(UZ)=X
VWL2 S:'$P(U2,D,23) U2=$P(U2,D,1,22)_D_$P(U2,D,3)_D_$P(U2,D,24,99)
 S UAO=$P(U2,D,3)-UA
 S X=$P(U2,D,1,2)_D_UAO_D_$P(U2,D,4,8)_D_$J(($P(U2,D,9)/$P(U2,D,3)*UAO),0,2)_D_$J(($P(U2,D,10)/$P(U2,D,3)*UAO),0,2)
 S X=X_D_$P(U2,D,11,15)_D_$J(($P(U2,D,16)/$P(U2,D,3)*UAO),0,2)_D_$P(U2,D,17,99),^KTO(LC,TR,UZ)=X
 D SWNODE^FLOWTOE(LC,TR,UZ)
 Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,UZ)
 
VWL3
 Q
 ;
BEGIN N IsEuro
 S IsEuro=$$ISEURO^vhRtn1()
 D VWL
 ;
END Q
 ;
M1 S MSG="ORDER "_UR_" IN GEBRUIK" G MY
M2 S MSG="PRODUKT IN GEBRUIK" G MY
MY S FP=2403+F60 W @F,@F4,MSG," ! [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;