KOFT2 G 1 ; MODULE PRODUKTLIJNEN; Quit naar %F10 - Do naar KF31 [ 08/05/2002  11:48 AM ]
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN" G MY
M3 S MSG="ER IS GEEN LEVERANCIER GEOPEND VOOR DIT PRODUKT" G MY
M6 S MSG="GEEN MUNTKODE VOOR DIT PRODUKT" G MY
M7 S MSG="EEN OFFERTE MAG GEEN 7-PRODUKTEN BEVATTEN" G MY
MY S SW12=1,FP=2401+F60 W @F,@F2,"  ",@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
1 K A S SW12=0,X=^(1),UVM=$P(X,D,18) G M1:'$$CHKMUNT^FLOW(UVM)
5 G 9:K="." S K=K_" "
 I '$D(@("^"_Q_"PR1(K)")) S K=$$SELECT^PRODUKT6("","",K,"","NODO;NOKP",,,,KC) S:'K K="-" G YZ:K="-" S PR=K G 11
7 S PR=$P(@("^"_Q_"PR1(K)"),D,1) G 11
9 G YZ:K="-" D ^KF31 G YZ:K="-"
11 I '$$IsActief^KLPUTZ2("S",QU(1)),$L(NoSa) D NORMAAL
 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),PY=$P(X,D,17)
12 S X=^(1),UE=$P(X,D,12),PSN=$P(X,D,20),ULT="" G YZ:'$$IsCommAkt^PRODUKT2(PR,KC,1)
 S X=@("^"_Q_"PR(PR,2)"),PRE=$P(X,D,9),PID=$P(X,D,25)
 G M7:$E(PID)=7
17 S X=$N(^("J")) I $E(X,1,1)'="J" G M3
18 S X=^(X),PLQ=$P(X,D,6),PLL=$P(X,D,7) G M6:"I"[$P(X,D,17)
 S ULT=1 S:'PSN ULT=ULT+$P(X,D,7)
 S R=$$KLANTPR^KPRIJS(KC,PR,"S")
 S UEPS=$P(R,D,1),AFAS=$P(R,D,3),PLPS=$P(R,D,4),PK1S=$P(R,D,5),PK2S=$P(R,D,6),KKDS=$P(R,D,7)
 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),(AFA,USP)=$P(R,D,3),PLP=$P(R,D,4)
 S PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7),PKP=$P(R,D,8),UPAR=$P(R,D,9)
 I 0,'PKP,'$$HeeftUitz^KORTING(KC,PR,$S(NoSa=1:"S",1:"N")),$$ISKLPR^KS(KC,PR,"",$S(NoSa=1:"S",1:"N")) G ^KOFT2B ; geen staffeling meer : CW - 17-08-04
 S FP=UL*100+1 W @F,@F1 S FP=1903+F60 W @F,$C(13),?2,"IDENTNR : ",PID,?27,"PRODUKT  : ",PC
 I $$ISKLANT^KS(KC),'$$ISPROD^KS(PR),$E($$SORTKEY^PRODUKT(PR),3,4)'="DE" S K=$$TXTPOP^KS("NOKSPROD","",1,0)
28 S PLPS=$J(PLPS,1,2),UEPS=$J(UEPS,1,2),PLP=$J(PLP,1,2),UEP=$J(UEP,1,2)
 S R=PSN_D_(PST-$P(PRE,"#",2))_D_$P(PY,"#",2)_D_PLQ_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 NoSa=1 S $P(R,D,10)=AFAS,$P(R,D,11)=PLPS,$P(R,D,12)=PK1S,$P(R,D,13)=PK2S,$P(R,D,15)=UEPS,$P(R,D,16)=KKDS
 G ^KOFT2A
 ;
YZ K AFA,AFE,AFR,KPC,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PR,PK1,PK2,PGV,PNV,PKV,AFAS
 K PLQ,PLP,PPL,PID,PRE,PSN,PVK,PY,Q15,S,UE,UN,UAF,UOD,UOR,UVM,X
 L @("^"_Q_UGL_"(KC,US,UR)")
 Q
 ;
NORMAAL N UZ,UC,UK,UEP,UMC,USP,ULT
 D ^KOFTNOSA
 S SW12=0
 Q
 ;