#Include BL.Derde.Kennis.AutoRes
#include BL.Derde.KlantSpecifiek
 
KOF0 G 1 ; MODULE REGISTREREN PRODUKTLIJNEN OFFERTES (BEP. PROD.); Quit naar %F10 - Do naar KF31 - Go naar KOF0A [ 07/03/2003  11:11 AM ]
 ;
T1 ;DIT IS EEN 8-PRODUKT IN EEN NORMALE OFFERTE !
T2 ;WENST U HIERVAN EEN KLANTGEBONDEN OFFERTE TE MAKEN
T3 ;.[] = ja   [] = neen
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN VOOR "_UOU G MY
M3 S MSG="ER IS GEEN LEVERANCIER GEOPEND VOOR DIT PRODUKT" G MY
M5 S MSG="PRODUKT IN GEBRUIK" G MY
M6 S MSG="GEEN MUNTKODE VOOR DIT PRODUKT" G MY
M9 S MSG="EEN NORMAALE OFFERTE MAG GEEN 8-PRODUKTEN BEVATTEN" G MY
M10 S MSG="EEN AFROEP OFFERTE MAG ENKEL STOCKPRODUKTEN BEVATTEN" G MY
M11 S MSG="EEN CONTRAKT OFFERTE MAG GEEN STOCKPRODUKTEN BEVATTEN" G MY
M12 S MSG="EEN KLANTGEBONDEN OFFERTE KAN ENKEL 8-PRODUKTEN BEVATTEN" G MY
M14 S MSG="EEN OFFERTE MAG GEEN 7-PRODUKTEN BEVATTEN" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
1 N BackGrnd,NoSa,CIFPPL,VervangProd
 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,X=@("^"_Q_UGL_"(KC,US,UR,1)"),UVM=$P(X,D,18)
 S NoSa=$$NoSa^FLOWOFF(KC,UR)
 S UTYP=$P(X,D,25) S:UTYP="D" UTYP=""
 G M1:'$$CHKMUNT^FLOW(UVM)
5 G 9:K="."
 I K?4.7N,$D(^KPR(K)) S PR=K G 11
 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 11
7 S PR=$P(@("^"_Q_"PR1(K)"),D,1) G 11
9 D ^KF31 G YZ:K="-"
11 S (PR,K)=$$CheckVervangProduct^FLOWPROD(PR,KC,.VervangProd)
 I 'PR,$G(VervangProd) S (PR,K)=$P(VervangProd,";") Set:$P(VervangProd,";",2) Mirror=$P(VervangProd,";",2)
 I 'K S K="-" G YZ
 S R=$P(^KPR(PR,0),D,3)
 I $L(R),R'?4.7N D  G YZ:K="-",11
 .N PROld
 .S PROld=PR,R="S K=$$GENERATE^"_R_"(KC,PR)"
 .X R
 .S PR=K S:K=PROld!'K K="-"
 S R=$P(^KPR(PR,0),D,23)
 I R="K",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKKIND","",R) G YZ:'R
 I $E(R)="H",KC'=$$$KlantHalux S R=$P(^KPR(PR,0),D),R=$$^vhTXTPOP("FLOWORD","VERKHALFFABR","",R) G YZ:'R
 S R=##Class(CHUI.Derde.Kennis.Kennis).KlantProductUnRead(KC,PR,$LB($$$adOrderVerwerkingIngave),1,"OFF",UR) G YZ:R="ANNULEER"
111 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1)
12 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)"),PID=$P(X,D,25)
13 I 'BackGrnd D IDPROD
 G M14:$E(PID)=7
 S R=$$CHKSOPR^FLOW(KC,PR,"order",BackGrnd) G YZ:'R I R>999 S PR=R G 11
 I $$ISKLANT^KS(KC),'$$ISPROD^KS(PR),'$$ISHALUX^PRODUKT2(PR),$E($$SORTKEY^PRODUKT(PR),3,4)'="DE" G YZ:'$$TXTPOP^KS("NOKSPROD","",0,1) ;,YZ:'$$ASK^vhWACHTW("MANAGER",,,0)
 I $E(PID)=8&(UTYP="") D  G YZ:K="-" I K="" S FP=2103 W @F,@F1
 .Q
 .I BackGrnd D IDPROD
 .S FP=2103 W @F,$P($T(T1),U,2)
 .S R="K\22\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_"""\1\\""-.""[K" D R0^cA100
 .Q:"-"[K
 .K B S UTYP=$S(UTYP="":"K",1:""),B(1)=@("^"_Q_UGL_"(KC,US,UR,1)"),$P(B(1),D,25)=UTYP,^(1)=B(1)
 .S U2="",X=100 F  S X=$O(@("^"_Q_UGL_"(0,US,X)")) Q:X'?.N  S U2=^(X) I $P(U2,U,16)=125 Q
 .I U2="" K B Q
 .S (K,U3)=UTYP I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
 .S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13))
 .W @F,U3
 .S U2="",X=100 F  S X=$O(@("^"_Q_UGL_"(0,US,X)")) Q:X'?.N  S U2=^(X) I $P(U2,U,16)="UR" Q
 .I U2="" K B Q
 .S FP=$P(U2,U,5)*100+$P(U2,U,6)+$L(UR) W @F," "
 .I $L(K) W @F,@FMTB,@FMTK,$P("\c\a\k",D,$F("CAK",K)),@FMTb,@FMTk
 .K B
 ;I $E(PID)=8,UTYP="" G M9
 I 'PSN,UTYP="A" G M10
 ;I PSN,UTYP="C" G M11
 ;I $E(PID)'=8,UTYP="K" G M12
17 S X=$N(@("^"_Q_"PR(PR,""J"")")) I $E(X,1,1)'="J" G M3
18 S X=^(X),PLL=$P(X,D,7),UMC=$P(X,D,17) G M6:"I"[UMC
23 S R=$$KLANTPR^KPRIJS(KC,PR,$G(NoSa))
 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),CIFPPL=$P(R,D,13)
 I $D(Prijs) Do
 .I $L(Prijs),+Prijs'=+UEP S Korting1=$J(1-(Prijs/PLP)*100,0,1),Korting2=""
 .S:$L(Prijs) UEP=Prijs S:$L(Korting1) PK1=Korting1 S:$L(Korting2) PK2=Korting2
 I "\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR,$G(NoSa))_D),'$$CHKPRIJS^KPRIJS(PR,PLP,UEP,AFE,UPAR,CIFPPL,,,,,,KC) G YZ
27 S ULT=1 S:'PSN ULT=$$ListToPieces^vhLib(blLeveringsTermijn.GetLeverTermijn(PR),"#")
 I $L($G(LevTerm)) S ULT=LevTerm
 E  D:BackGrnd IDPROD S BackGrnd=0
28 S PLP=$J(PLP,1,2),UEP=$J(UEP,1,2) S:PSN ULT="."
 S R=PSN_D_D_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
 I BackGrnd S BackGrnd=R
 E  D ^KOF02 S BackGrnd=""
29 G 29^KOF0AD
 ;
YZ K AFA,AFE,AFR,KPC,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PR,PK1,PK2,PGV,PNV,PKV,PLP,PPL,PID,PRE,PSN,PVK,PY
 K Q15,S,SW25,U2,UE,UN,UAF,UOD,UOR,UVM,X,UTYP L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
IDPROD S FP=UL*100+1 W @F,@F1 S FP=1903+F60 W @F,$C(13),?2,"IDENTNR : ",PID,?27,"PRODUCT  : ",PC
 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
 ;