AfnameContract G Afname ;CONTRACT-ORDERLIJNEN - levering per dag (split naar een ander order); Go naar KFCOLC [ 08/05/2002  10:44 AM ]

OpmToeleveringInGebruik S MSG="TOELEVERING IN GEBRUIK" G ToonOpmerkingEnExit
OpmProductInGebruik S MSG="PRODUKT IN GEBRUIK" G ToonOpmerkingEnExit
OpmOrderInGebruik S MSG="CONTRACTORDER IN GEBRUIK" G ToonOpmerkingEnExit
OpmEnkelOrgalux S MSG="EEN ORGALUX ORDER MAG ENKEL ORGALUX-PRODUKTEN BEVATTEN" G ToonOpmerkingEnExit
OpmGeenOrgalux S MSG="EEN NIET-ORGALUX ORDER MAG GEEN ORGALUX-PRODUKTEN BEVATTEN" G ToonOpmerkingEnExit
ToonOpmerkingEnExit S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G Exit
 
Afname
 S URC=$P(R,D),UVN=$P(R,D,2)
 I $P(R,D,3) N Aantal S Aantal=$P(R,D,3)
 S X=@("^"_Q_"OD(KC,US,URC,UVN)"),TR=$P(X,D,27),TUZ=$P(X,D,28)
 I TR S Q16="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((TUZ-100),3,0))"
 L +@("^"_Q_UGL_"(KC,US,URC)"):2 E  G OpmOrderInGebruik
 I TR S LC=$P(@("^"_Q_"TO1(TR)"),D) L +@("^"_Q_"TO(LC,TR)"):2 E  G OpmToeleveringInGebruik
 K UA,UO,UEP,UBE,U30 I '$D(BackGrnd) N BackGrnd
 S U2=@("^"_Q_UGL_"(KC,US,URC,UVN)"),BackGrnd=$G(BackGrnd)
 S PR=$P(U2,D,2)
 G LockProduct:'UAF
 N IsOrgal,OrgalPr
 S IsOrgal=$$ISORGAL^FLOW("O",UR)
 G LockProduct:IsOrgal=""
 S OrgalPr=$E($$SORTKEY^PRODUKT(PR,1),3,4)="OL"
 I IsOrgal,'OrgalPr G OpmEnkelOrgalux
 I 'IsOrgal,OrgalPr G OpmGeenOrgalux
LockProduct
 L +@("^"_Q_"PR(PR)"):2 E  G OpmProductInGebruik
 S PK1=$P($P(U2,D,7),"#",1),PK2=$P($P(U2,D,7),"#",2)
 S AFRR=$P(U2,D,21),AFA=$E(AFRR,1),AFR=$E(AFRR,2),AFE=$P("1\100\1000",D,$F("EHM",AFA)-1),UEP=$J($P(U2,D,9)/$P(U2,D,3)*AFE,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),(PST,PPS)=$P(X,D,14),PY=$P(X,D,17),X=^(1),PSN=$P(X,D,20),X=^(2),PRE=$P(X,D,9),PID=$P(X,D,25),PPS=PPS-$P(PRE,"#",2) S:'$P(U2,D,27) PPS=PPS+$P(U2,D,3)
 D:'BackGrnd
 .If $G(Contract)["STK",$P($G(ContrLns),"TST",2)'=""
 .E  D ProductIdentificatie^Flow.Order.NieuweProductOrderlijn
 S X=$N(@("^"_Q_"PR(PR,""J"")"))
 S X=^(X),PLL=$P(X,D,7)
 S R=$$KLANTPR^KPRIJS(KC,PR),UMC=$P(R,D,2),PLP=$P(R,D,4),CIFP=$P(R,D,13)*AFE
 S UPAR=$$MUNT^vhRtn1(UMC,,12)
 S ULT=$$INTDATE^vhLib.DataTypes(%WK,"DW")
 I TR D
 .S R=^KTO(LC,TR,TUZ),ULT=$P(R,D,25)
 .S ULT=$$INTDATE^vhLib.DataTypes(ULT,"DW")+7
 S ULT=$$EXTDATE^vhLib.DataTypes(ULT,"DW")
 I $D(ULTD),$$INTDATE^vhLib.DataTypes(ULTD,"DW")>$$INTDATE^vhLib.DataTypes(ULT,"DW") S ULT=ULTD
 I $L($G(LevTerm)),$$INTDATE^vhLib.DataTypes(LevTerm,"DW")'<$$INTDATE^vhLib.DataTypes(ULT,"DW") S ULT=LevTerm K DefLevT
 E  D
 .D:'BackGrnd
 ..If $G(Contract)["STK",$P($G(ContrLns),"TST",2)'=""
 ..E  D ProductIdentificatie^Flow.Order.NieuweProductOrderlijn
 .S BackGrnd=0
 I $D(DefLevT),$$INTDATE^vhLib.DataTypes(DefLevT,"DW")>$$INTDATE^vhLib.DataTypes(ULT,"DW") S ULT=DefLevT
 S:'$G(DefLeverDag) DefLeverDag=$S(ULT?5N:ULT,1:$$GetLeverDagOrder^FLOW3(KC,UR,PR,,1))
 If ULT'?5N S ULT=$$GetLeverDagOrder^FLOW3(KC,UR,PR) Goto Exit:'ULT&(ULT'="?")
 S R=PSN_D_PPS_D_$P(PY,"#",2)_D_$P(X,D,6)_D_ULT_D_$P(X,D,14,16)_D_UMC_D_AFA_D_PLP_D_PK1_D_PK2_D_D_UEP_D_D_$P(X,D,7)_D_PST_D_D
 I BackGrnd S BackGrnd=R
 E  D
 .If $G(Contract)["STK",$P($G(ContrLns),"TST",2)'=""
 .E  D ^Flow.ToonProduct
 .S BackGrnd=""
 I $D(LevTerm)
 E  N LevTerm S:ULT LevTerm=ULT S:'ULT ULT=DefLeverDag
 G VerwerkInput^Flow.Order.AfnameContractInput
 S UL=ULSV S:K="," K="-"
Exit
 K ULSV,LC,TR,TUZ,GR,AFA,AFE,AFR,AFRR,UMC,UPAR,MSG,PST,PPS,PC,PR,PLL,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PGV,PNV,PKV,S,Q15,Q16
 K UA,UE,UK,UEP,UBE,UOD,UOR,ULT,U26,UAF,X,U30,UVM,%TC,%INT,%EXT L @("^"_Q_UGL_"(KC,US,UR)") Q