KF6 G 1 ; MODULE REGISTREREN PRODUKTLIJNEN UITLEVERINGEN (BEP. PROD.); Quit naar %F10 - Do naar KF31 - Go naar KF6A [ 09/24/2003   2:14 PM ]
 ;
T1 ;DIT IS EEN 8-PRODUKT IN EEN NORMAAL ORDER !
T2 ;WENST U HIERVAN EEN KLANTGEBONDEN ORDER TE MAKEN
T3 ;.[] = ja   [] = neen
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN VOOR "_UOU G MY
M4 S MSG="MUNT PRODUKT NIET GELIJK AAN MUNT "_UOU G MY
M5 S MSG="PRODUKT IN GEBRUIK" G MY
M6 S MSG="GEEN MUNTKODE VOOR DIT PRODUKT" G MY
M7 S MSG="NIET-STOCK PRODUKT ZONDER PRAKTISCHE VOORRAAD" G MY
M8 S MSG="GEEN GROOTVERPAKKING VOOR DIT PRODUKT" G MY
M14 S MSG="EEN LEVERINGSBON MAG GEEN 7-PRODUKTEN BEVATTEN" G MY
M15 S MSG="EEN ORGALUX LEVERINGSBON MAG ENKEL ORGALUX-PRODUKTEN BEVATTEN" G MY
M16 S MSG="EEN NIET-ORGALUX LEVERINGSBON MAG GEEN ORGALUX-PRODUKTEN BEVATTEN" G MY
MY S SW12=1,FP=2401+F60 W @F,@F2,"  ",@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
1 N BackGrnd,PraStock,VWTYP,VervangProd
 I $$OPTRANSP^FLOWBON(KC,UR,^KUL(KC,"F",UR,0),,1) S K="-" G YZ
 I '$$ASK^vhWACHTW("MANAGER",,,0) S K="-" G YZ
 I $D(Aantal),$D(Prijs),$D(Korting1),$D(Korting2),$D(LevTerm) S BackGrnd=1
 E  K Aantal,Prijs,Korting1,Korting2,LevTerm S BackGrnd=0
 K A S SW25=1,SW12=0
2 S X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$$CONVDATE^vhLib.DataTypes($P(X,D,2),,"DSN")
 S UOR=$P("R\O",D,$P(X,D,17)+1),UVM=$P(X,D,18)
3 S VWTYP=$P(X,D,29) G M1:'$$CHKMUNT^FLOW(UVM)
5 G 9:K="."
 I K?4.7N,$D(^KPR(K)) S PR=K G 10
 S K=K_" "
 I '$D(@("^"_Q_"PR1(K)")) S K=$$SELECT^PRODUKT6("","",K,"","NODO;NOKP",,,,KC,1) S:'K K="-" G YZ:K="-" S PR=K G 10
7 S PR=$P(@("^"_Q_"PR1(K)"),D,1) G 10
9 D ^Flow.SelecteerProduct G YZ:K="-"
10 S (PR,K)=$$CheckVervangProduct^FLOWPROD(PR,KC,.VervangProd)
 I 'PR,$G(VervangProd) S (PR,K)=$P(VervangProd,";")
 I 'K S K="-" G YZ
 N IsOrgal,OrgalPr
 S IsOrgal=$$ISORGAL^FLOW("L",UR)
 G 11:IsOrgal=""
 S OrgalPr=$E($$SORTKEY^PRODUKT(PR,1),3,4)="OL"
 I IsOrgal,'OrgalPr G M15
 I 'IsOrgal,OrgalPr G M16
11 L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  G M5
 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),PY=$P(X,D,17),PB=$P(X,D,5)
12 S:KB<1 PB=0 S X=^(1),UE=$P(X,D,12),PSN=$P(X,D,20),ULT="" G YZ:'$$IsCommAkt^PRODUKT2(PR,KC)
134 S X=@("^"_Q_"PR(PR,2)"),PRE=$P(X,D,9),PID=$P(X,D,25),PraStock=PST-$P(PRE,"#",2) I 'PSN,'PraStock G M7
13 I 'BackGrnd D IDPROD
 G M14:$E(PID)=7
 Set IsToevoegingSpiegelProduct = $D(Mirror)
 S R=$$CHKSOPR^FLOW(KC,PR,"bon",BackGrnd,IsToevoegingSpiegelProduct) G YZ:'R I R>999 S PR=R G 10
17 S X=$N(@("^"_Q_"PR(PR,""J"")"))
18 S X=^(X),PLL=$P(X,D,7),UMC=$P(X,D,17) G M8:'$P(X,D,16),M6:"I"[UMC G M4:KV="MTL"&(UMC'=UVM)
19 I $H#7'=4,'PSN,PLL=1,$E($N(^("J")),2,9)=5005,$E(PID)'=7 S PLL=2
23 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7)
 S PKP=$P(R,D,8),UPAR=$P(R,D,9),USP=$P(R,D,10),AFE=$P(R,D,11)
 I $D(Prijs) Do
 .I +Prijs'=+UEP S Korting1=$J(1-(Prijs/PLP)*100,0,1),Korting2=""
 .S:$D(Prijs) UEP=Prijs S:$D(Korting1) PK1=Korting1 S:$D(Korting2) PK2=Korting2
27 S ULT=$$INTDATE^vhLib.DataTypes(%WK,"DW") S:'PSN ULT=ULT+(PLL+1*7) S ULT=$$EXTDATE^vhLib.DataTypes(ULT,"DW")
 I $L($G(LevTerm)) S ULT=LevTerm K DefLevT
 E  D:BackGrnd IDPROD S BackGrnd=0
 I $D(DefLevT),$$INTDATE^vhLib.DataTypes(DefLevT,"DW")>$$INTDATE^vhLib.DataTypes(ULT,"DW") S ULT=DefLevT
28 Set PLP=$J(PLP,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 Set UEP=$J(UEP,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 I '$G(DefLeverDag) S DefLeverDag=$S(ULT?5N:ULT,1:$$GetLeverDagBon^FLOW3(KC,UR,PR,,1))
 If ULT'?5N S ULT=$$GetLeverDagBon^FLOW3(KC,UR,PR) Goto YZ:'ULT&(ULT'="?")
 If $G(LevTerm)
 Else  New LevTerm Set:ULT LevTerm=ULT
280 S R=PSN_D_(PST-$P(PRE,"#",2))_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_PKP_D_UEP_D_KKD_D_PLL_D_PST_D
 I BackGrnd S BackGrnd=R
 E  D ^Flow.ToonProduct S BackGrnd=""
29 S ULTT=ULT G 29^KF6AD
 ;
YZ K AFA,AFE,AFR,KPC,KKD,UPAR,MSG,PKP,PLL,PST,PB,PLQ,PC,PR,PK1,PK2,PGV,PNV,PKV,PLP,PPL,PID,PRE,PSN,PVK,PY
 K S,SW25,UE,UN,UOD,UOR,UVM,X,%TC,%INT,%EXT L @("^"_Q_UGL_"(KC,US,UR)")
 Q
 ;
IDPROD S FP=UL*100+1 W @F,@F1 Do ##class(CHUI.ToolKit).ProductHoofding(19,PR)
 Q
 ;
SCROL(Aantal,Prijs,Korting1,Korting2,LevTerm) 
 I '$L(Aantal),'$L(Prijs),'$L(Korting1),'$L(Korting2),'$L(LevTerm) K Aantal,Prijs,Korting1,Korting2,LevTerm
 G 1
 Q
 ;