KTIIN G 1 ;MODULE INBOEKEN TOELEV. (INBOEKEN) ;Quit naar KTIST [ 08/07/2002   4:08 PM ]
 ;
S1
 N CifPPL
 S CifPPL=$$CifPPL^EWTOE(PR)
 I $E(PID)'=7 D
 .S R=UUD_1_D_UA_D_$J(CifPPL,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
 .N RDate
 .S RDate=$$INTDATE^vhLib.DataTypes($E(UUD,1,4)_D_$E(UUD,5,6)_D_$E(UUD,7,8),"DS")
 .D ONE^BLHIST(PR,RDate,UA,(CifPPL*UA),("T;"_TR))
S1A S LTB=$P(U2,D,25),LTA=$P(U2,D,29) S:'$L(LTA) LTA=LTB
S1B L +@("^"_Q_"SPW(PR)")
 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(CifPPL*UA,0,$S(IsEuro:4,1:2))_D_LTB_D_LTA_D_LTW_D_(UR'="")_D
 L -@("^"_Q_"SPW(PR)")
S1Z Q
 ;
S2 K @Q15 K:$E($N(^("W")),1)'="W" ^("W")
S2Z Q
 ;
S3 S @("^"_Q_"PR(PR,0)")=$P(Y,D,1,16)_D_($P($P(Y,D,17),"#",1)-UA)_"#"_$S(UR:$P($P(Y,D,17),"#",2),1:($P($P(Y,D,17),"#",2)-UA))_"#"_$S(UR:($P($P(Y,D,17),"#",3)-UA),1:$P($P(Y,D,17),"#",3))_D_$P(Y,D,18,99)
S3Z Q
 ;
S4 N ASAP
 S ULT="" G S4Z:'$D(@("^"_Q_"O1(UR)")) S KC=$P(^(UR,"F"),D,1)
S4A L (@("^"_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 ASAP=$P(@("^"_Q_"OD(KC,""F"",UR,1)"),D,28)
 S UU2=@("^"_Q_"OD(KC,""F"",UR,UUZ)")
 S ULT=$P(UU2,D,25)
S4C S @("^"_Q_"OD(KC,""F"",UR,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())
 D:ASAP ASAP^EWTOE(UR)
S4Z Q
 ;
S6 K @("^"_Q_"TOK(LC,TR,UZ)")
S6Z Q
 ;
1 N IsEuro,TLUNr
 S IsEuro=$$ISEURO^vhRtn1()
 S UVL="V",TR=$N(UTO(TR)) G YZ:TR=-1 S UZ=100,FP=UD*100+1 W @F,@F1
 D COPY^EWTOE(TR)
2 I UTP="P" S R="UVL\22\3\INBOEKEN TOELEVERING "_TR_"\C1\1\\""VL""[K&$L(K)\" D R0
3 I UVL="V" S FP=2406+$L(TOU)+$L(TR)+F60 W @F,@F5 S FP=2403+F60 W @F,@F4,TOU," ",TR," ",@F5
4 S X=@("^"_Q_"TO(LC,TR,1)"),UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(X,D,2)),"DS"),D,"")
5 S UZ=$N(@("^"_Q_"TO(LC,TR,UZ)")) G 9:UZ'=-1 I $N(^(100))'=-1 G 1:'$D(@("^"_Q_"TO(0,3)")) S TRLC=TR D @^(3) G 1
7 S K=$P(^(1),D,10) D KILL^KTO4(LC,TR,K)
 I $D(@("^"_Q_"TO(0,4)")) S TRLC=TR D @^(4)
 New ABNr
 Set ABNr=$P(^KTO(LC,TR,1),D,10)
 Do KILLAB^FLOWTOE3(LC,TR,ABNr)
8 K @("^"_Q_"TO1(TR)"),@("^"_Q_"TO2(LC,TR)"),@("^"_Q_"TOB(TR)"),@("^"_Q_"TO(LC,TR)"),^BLBeri("Z",TR) G 1
9 S U2=^(UZ),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),";") K ^(UZ)
 G 5:'PR K ^KTO3(TR,$P(U2,D,13,14)_D_UZ)
10 L (@("^"_Q_"TO(LC,TR)"),@("^"_Q_"PR(PR)")):2 E  D M2 G 10
100 S Y=@("^"_Q_"PR(PR,0)"),PC=$P(Y,D,1),PN=$P(Y,D,2),PID=$P(^(2),D,25),X=^($N(^("J")))
 I UVL="V" D  G 5
 .D S3,S2,S1,COPY^EWTOE(TR,UZ,U2)
 .Do ##class(Flow.Toelevering).RecuPak(PR,UA,TR,TLUNr)
 .D:UR S4,S6
11 S FP=1601 W @F,@F1,$C(13),?2,$E(TOU,1,6),". : ",TR,!?2,"IDENTNR : ",PID
13 W !?2,"PRODUKT : ",PC,?39,PN,!!?2,"AANTAL BESTELD         : ",UA
15 S R="UAO\21\3\AANTAL ONTVANGEN      \C2\6\\""NV""[K&($L(K)=1)!(K?.N&(K>0))\\" D R0
 I K="V"!(K=UA) S UAO=UA D  G 5
 .D S3,S2,S1,COPY^EWTOE(TR,UZ,U2)
 .Do ##class(Flow.Toelevering).RecuPak(PR,UA,TR,TLUNr)
 .D:UR S4,S6
 I K>UA D  G 5
 .S U2=$P(U2,D,1,2)_D_UAO_D_$P(U2,D,4,8)_D_$J(($P(U2,D,9)/UA*UAO),0,2)_D_$J(($P(U2,D,10)/UA*UAO),0,2)_D_$P(U2,D,11,15)_D_$J(($P(U2,D,16)/UA*UAO),0,2)_D_$P(U2,D,17,99)
 .D S3,S2 S UA=UAO D S1,COPY^EWTOE(TR,UZ,U2)
 .Do ##class(Flow.Toelevering).RecuPak(PR,UA,TR,TLUNr)
 .D:UR S4,S6
17 S:K="N" UA=0 G 25:K="N" S FP=2203+F60 W @F,@F1,"SALDO                  : ",$P(U2,D,3)-UAO
19 S R="K\23\3\SALDO ALS NABESTELLING\C3\1\\""-G""[K\" D R0 G 15:K="-"
 I K="G" D  G 5
 .D S3,S2 S UA=UAO D S1,COPY^EWTOE(TR,UZ,U2,UA)
 .Do ##class(Flow.Toelevering).RecuPak(PR,UA,TR,TLUNr)
 .D:UR S4,S6
20 S UA=UAO D S3 S Z=@Q15,@Q15=$P(Z,D,1,4)_D_($P(Z,D,5)-UA)_D_$P(Z,D,6,99)
 D S1,COPY^EWTOE(TR,UZ,U2,UA)
 Do ##class(Flow.Toelevering).RecuPak(PR,UA,TR,TLUNr)
 G 23:'UR D S4 S UAO=$P(UU2,D,3)-UA,UUZ=@("^"_Q_"OD(KC,""F"",UR,0)"),^(0)=UUZ+1,U2=$P(U2,D,1,27)_D_UUZ_D_$P(U2,D,29,99)
21 S ^(UUZ)=$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)_D_$P(UU2,D,11,15)_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)
 D SWNODE^FLOWORD(KC,UR,UUZ)
 Do ProductOrderLijnGemaakt^FLOWORD2(KC,UR,UUZ)
22 I $D(@("^"_Q_"TOK(LC,TR,UZ)")) S X=^(UZ),X=$P(X,D,1,4)_D_UUZ_D,^(UZ)=X
23 S:'$P(U2,D,23) U2=$P(U2,D,1,22)_D_$P(U2,D,3)_D_$P(U2,D,24,99)
25 S UAO=$P(U2,D,3)-UA,@("^"_Q_"TO(LC,TR,UZ)")=$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)_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)
27 S ^KTO3(TR,$P(U2,D,13,14)_D_UZ)="" G 5
 ;
YZ K X,Y,Z,U2,UA,UAO,UZ,UVL,UTP,UOD,UTO,Q15,Q16,PR,PC,PID,PN,KC,UR,UUZ,UU2 Q
 ;
C1 W !?2,"V[] = VOLLEDIG   L[] = LIJN PER LIJN" Q
C2 W !?2,"V[] = AANTAL BESTELD   N[] = NIET ONTVANGEN" Q
C3 W !?2,"[] = NABESTELLING   G[] = GEEN NABESTELLING" Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ 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
 ;