KOFPS6 G 1 ;OPMAKEN OFFERTES VOLGENS KLANTENSELEKTIE ;Quit naar KOFPS4, KOFPS5 [ 12/12/2003  9:37 AM ]
 ;
 ;    het opmaken van de offertes
1 S UZ=100
31 S UZ=$N(@("^"_Q_UGL_"(KCC,US,URR,UZ)")) G YZ:UZ=-1,YZ:UZ'?.N S U2=^(UZ),PR=$P(U2,D,2) G 71:PR'?.N,71:'PR,71:'$D(@("^"_Q_"PR(PR,0)"))
33 S UA=$P(U2,D,3)
49 S X=$N(@("^"_Q_"PR(PR,""J"")")) G 31:$E(X,1)'="J"
51 S X=^(X),PLL=$P(X,D,7),UMC=$P(X,D,17) G 31:"I"[UMC
57 S R=$$KLANTPR^KPRIJS(KC,PR,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)
67 S UN=$J(UEP/AFE*UA,1,2) I KKN S UEP=PLP,UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2)
 S PSN=$P(^KPR(PR,1),D,20),ULT=$S(PSN:".",1:$P(^($O(^KPR(PR,"J"))),D,7)+1)
69 S UBE=$J(UEP/AFE*UA,1,2),U2=$P(U2,D,1,5)_D_UEP_D_PK1_"#"_PK2_D_$P(U2,D,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,20)_D_USP_D_UMC_D_$P(U2,D,23,24)_D_ULT_D_$P(U2,D,26,99)
 I $P(U2,D,2),$P(U2,D,3) S $P(U2,D,48)=$$GetFSCCodeEnGewicht^PRODUKT2($P(U2,D,2),$P(U2,D,3))
71 S $P(U2,D,15)=$$UNIEKLNR^FLOWOFF(KC,UR)
 S @("^"_Q_UGL_"(KC,US,UR,UZ)")=U2
 Do BUILDOFF^FLOWOFF3(KC,UR,UZ)
 G 31
 ;
YZ Q