AfnameAfroepOrderInput G VerwerkInput ;AFROEP-ORDERLIJNEN - levering per dag (OPVRAGEN GEGEVENS) [ 10/31/2001  2:38 PM ]

GeefAantal
 I $L(BackGrnd) D ProductIdentificatie^Flow.Order.NieuweProductOrderlijn S R=BackGrnd D ^Flow.ToonProduct S BackGrnd=""
 S R="K\23\54\AANTAL \C2\6\\""-,""[K&($L(K)<2)!(K?.N&K&(K'>$P(U2,D,3)))" D Input
 I K="" S K=UA
 Q
 
C1 S FP=2454 W @F,@F2,"[] = ",$$EXTDATE^vhLib.DataTypes(ULT) Q
C2 S FP=2454 W @F,@F2,"[] = ",UA Q
 
Input
 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)_")"
 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)
 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
InputC S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
 R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
 E  G InputC
 S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
 K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 

VerwerkInput N ULTTemp
 I $L($G(LevTerm)) S K="" K LevTerm
 E  D  G Exit:K="-",Exit:K="," I K="?",'UAF G VerwerkInput
 .I $L(BackGrnd) D ProductIdentificatie^Flow.Order.NieuweProductOrderlijn S R=BackGrnd D ^Flow.ToonProduct S BackGrnd=""
 .S R="K\23\54\LEVEREN\C1\8" D Input
 I $L(K) D VALDATE^vhLib.DataTypes(K,"DK",$H) G VerwerkInput:'%TC I '$$ISARBDAG^vhRtn2(%INT),'$$^vhTXTPOP("FLOW","NOARBDAG","",%EXT) G VerwerkInput
 I $L(K) Do  I ULT="" S ULT=ULTTemp G BepaalAantal
 .S ULTTemp=ULT,ULT=%INT
 .Quit:$$DIFFDATE^vhLib.DataTypes($$EXTDATE^vhLib.DataTypes(DefLeverDag),%EXT,"DK")\7'>10
 .Quit:$$^vhTXTPOP("FLOWORD","PLUS10WEKENPD","",%EXT,$J($$DIFFDATE^vhLib.DataTypes($$EXTDATE^vhLib.DataTypes(DefLeverDag),%EXT,"DK")\7+.5,0,0),$$EXTDATE^vhLib.DataTypes(DefLeverDag)) ; Ingegeven leverweek is meer dan 10 weken te ver
 .Set ULT=""
BepaalAantal
 S FP=2313+F60 W @F,"     ",@F,$$EXTDATE^vhLib.DataTypes(ULT)
 F FP=2339,2439 W @F,@F2
 S UA=$P(U2,D,3)
 I $G(Aantal),Aantal'>UA S (UA,K)=Aantal
 E  D GeefAantal
 K Aantal
 G VerwerkInput:K="-",Exit:K="," S:K UA=K S PGV=$P(X,D,16) G IngaveAantal35:'PGV S PNV=$P(X,D,15),PKV=$P(X,D,14)
 S:'PNV PNV=PGV S:'PKV PKV=PNV G IngaveAantal35:'(UA#PGV),IngaveAantal35:'(UA#PGV#PNV) S GR=UA#PGV#PNV#PKV G IngaveAantal35:'GR
 S OGR=UA-GR,BGR=OGR+PKV,FP=2339 W @F,OGR S FP=2354 W @F,@F2,"AANTAL  : ",UA S FP=2439 W @F,BGR
IngaveAantal
 D GeefAantal G VerwerkInput:K="-",Exit:K=",",IngaveAantal:'K S UA=K
IngaveAantal35 S UAS=UA,ULTS=ULT,URS=UR,UODS=UOD,UORS=UOR,UR=URC,X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(X,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(X,D,17)+1)
 S (TUZ,TUZS)=$P($P(U2,D,28),";"),UA=$P(U2,D,3)-UA,ULT=$P(U2,D,25),X=@("^"_Q_"PR(PR,2)")
 D KWNODE^FLOWORD(KC,UR,UVN)
 I 'UA D
 .I $D(LVHCYB),$D(@("^"_Q_UGL_"(0,US,4)")) S URLC=UR D @^(4)
 .Do ProductOrderLijnAnnulatie^FLOWORD2(KC,UR,UVN)
 .K @("^"_Q_UGL_"(KC,US,UR,UVN)")
 .I $O(@("^"_Q_UGL_"(KC,US,UR,100)"))'="" Q
 .K @("^"_Q_UGL_"(KC,US,UR)")
 .K @("^"_Q_UG1_"(UR,US)")
 .K @("^"_Q_UGB_"(UR,US)")
 .K @("^"_Q_UG2_"(US,KC,UR)")
 .Do:UGL="OD" ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(UR)
 .I TR,TUZ D
 ..S TUZ=$P($P(U2,D,28),";"),X=@("^"_Q_"TO(LC,TR,TUZ)"),$P(X,D,27)=URS
 ..S $P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZ)")=X
 I UA D
 .I $D(LVHCYB),$D(@("^"_Q_UGL_"(0,US,3)")) S URLC=UR D @^(3)
 .I TR,TUZ D
 ..S TUZS=@("^"_Q_"TO(LC,TR,0)"),^(0)=TUZS+1
 ..D KWNODE^FLOWTOE(LC,TR,TUZ)
 ..S TUZ=$P($P(U2,D,28),";"),X=@("^"_Q_"TO(LC,TR,TUZ)")
 ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UA,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 ..Set $P(X,D,10)=$P(X,D,9)
 ..Set $P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UA,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 ..S $P(X,D,3)=UA,@("^"_Q_"TO(LC,TR,TUZ)")=X
 ..D SWNODE^FLOWTOE(LC,TR,TUZ)
 ..Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LC,TR,TUZ,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
 ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UAS,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 ..Set $P(X,D,10)=$P(X,D,9)
 ..Set $P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UAS,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 ..S $P(X,D,3)=UAS,$P(X,D,25)=$$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(ULTS,"DW")-7,"DW")
 ..S $P(X,D,27)=URS,$P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
 ..D SWNODE^FLOWTOE(LC,TR,TUZS)
 ..Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,TUZS)
 .S X=@("^"_Q_UGL_"(KC,US,UR,1)")
 .Set UN=$J(UEP/AFE*UA,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 .S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen()) S UBE=$J(UEP/AFE*UA,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen()),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
 .S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,99),^(UVN)=U2
 .D SWNODE^FLOWORD(KC,UR,UVN)
 .Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UVN,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 S UA=UAS,ULT=ULTS,UR=URS,UOD=UODS,UOR=UORS,UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=UVN-100,X=@("^"_Q_"PR(PR,2)")
 S X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UN=$J(UEP/AFE*UA,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen()) S UBE=$J(UEP/AFE*UA,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen()),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
 S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_$P(U2,D,26,27)_D_TUZS_D_D_$P(U2,D,30,99)
 K B F I=1:1:35 I $L($P(U2,D,I)) S B(100+I)=$P(U2,D,I)
 S B(126)="="
 S UTOT=UTOT+UN D SHOWTOT^KFTOT(UTOT)
 S SW12=0,USP=$P(U2,D,21),U27=$P(U2,D,27),UL=ULSV,UC=PR G ExitYYZ
Exit S UL=ULSV,K="-"
 K UMC,UA,UK,UEP,ULT
ExitYYZ K ULSV,LC,GR,BGR,OGR,AFA,AFE,AFR,AFRR,UPAR,MSG,PST,PPS,PC,PR,PLL,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PGV,PVN,PKV,S,Q15,Q16
 K UE,UBE,UOD,UOR,UAS,ULTS,URS,URC,UODS,UORS,X,TR,TUZ,TUZS,%TC,%INT,%EXT L @("^"_Q_UGL_"(KC,US,UR)")
 Q