KOF2 G 1 ;WIJZIGEN OFFERTELIJNEN; Go naar KOF2A [ 08/05/2002  10:12 AM ]
 ;
M0 S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
M1 S MSG="PRODUKTLIJNEN WIJZIGEN VIA ""L"", ""P"" OF ""A""" S UL=ULSV G M0
M2 S MSG="TEKST- OF MANUELE LIJNEN WIJZIGEN VIA ""W""" G M0
M3 S MSG="ER IS GEEN LEVERANCIER GEOPEND VOOR DIT PRODUKT" G M0
 ;
1 N NoSa
 S X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S NoSa="N" S:$P(X,D,14) NoSa="S"
 S SWLPA=K,SW12=1,ULSV=UL K UZ S K=UVN-100
3 K UA,UO,UEP,UBE,ULT,UK,U26 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
5 S UVN=K+100 S U2=@("^"_Q_UGL_"(KC,US,UR,UVN)") G M1:SWLPA="W"&$P(U2,D,2),M2:SWLPA'="W"&'$P(U2,D,2),9:"%F19KOFVT"'[$P(U2,D,17)
9 S PR=$P(U2,D,2) G 42:$P($P(U2,D,17),"#")="KOF1925",39:'PR I '$D(@("^"_Q_"PR(PR,0)")) Q
11 S PK1=$P($P(U2,D,7),"#",1),PK2=$P($P(U2,D,7),"#",2),ULT=$P(U2,D,25)
112 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=""
114 I $P(U2,D,3) S UEP=$J($P(U2,D,9)/$P(U2,D,3)*AFE,1,2) G 12
116 S UEP=$P(U2,D,6) I KKN S UEP=UEP*(100-PK1)/100,UEP=UEP*(100-PK2)/100,UEP=$J(UEP,0,2)
12 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),X=^(1),PSN=$P(X,D,20),X=^(2),PID=$P(X,D,25)
13 S FP=1903+F60 W @F,@F1,$C(13),?2,"IDENTNR : ",?12,PID,?27,"PRODUKT  : ",PC
17 S X=$N(^("J")) I $E(X,1,1)'="J" G M3
19 S X=^(X)
21 S R=$$KLANTPR^KPRIJS(KC,PR,$G(NoSa)),UMC=$P(R,D,2),PLP=$P(R,D,4),CIFP=$P(R,D,13)*AFE
27 S R=PSN_D_D_D_$P(X,D,6)_D_ULT_D_$P($P(U2,D,23),"#",1)_D_$P($P(U2,D,23),"#",2)_D_$P($P(U2,D,23),"#",3)_D_UMC_D_AFA_D_PLP_D_PK1_D_PK2_D_D_UEP_D_D_$P(X,D,7)_D D ^KOF02
29 G 1^KOF2AD
39 I $P($P(U2,D,17),"#")'="KOFGRP" S UO=$$SCROL^KOF11($P(U2,D,5),1) G 41
 S UO=$$SCROL^KOFGRP($P(U2,D,5),$P($P(U2,D,17),"#",2),1) I UO'="-" S R=$P(U2,D,17),$P(R,"#",3)=$P(UO,D,2),UO=$P(UO,D),$P(U2,D,17)=R
41 G YZ:UO="-" S $P(U2,D,5)=UO,@("^"_Q_UGL_"(KC,US,UR,UVN)")=U2 G YZ
42 N B D WIJZIG^FLOWMANL("KOFKL",KC,UR,UVN)
 ;D ^KOF2B
43 S UL=ULSV S:K="," K="-"
 ;
YZ K LC,TR,TUZ,GR,AFA,AFE,AFR,AFRR,UMC,UPAR,MSG,PST,PC,PR,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PGV,PNV,PKV,S,Q15,Q16
 K U2,UA,UE,UK,UEP,UBE,UOD,UOR,ULT,U26,UAF,X L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
SCROL(UVN,K) 
 G 1
 ;