WijzigProductOffertelijn G Wijziglijn ;WIJZIGEN OFFERTELIJNEN; Go naar KOF2A [ 08/05/2002  10:12 AM ]
 
OpmProductWijzigenVia S MSG="PRODUCTLIJNEN WIJZIGEN VIA ""L"", ""P"" OF ""A""" S UL=ULSV G ToonOpmerkingEnExit
OpmTekstWijzigenVia S MSG="TEKST- OF MANUELE LIJNEN WIJZIGEN VIA ""W""" G ToonOpmerkingEnExit
ToonOpmerkingEnExit S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G Exit
 
Wijziglijn
 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
 K UA,UO,UEP,UBE,ULT,UK,U26 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
 S UVN=K+100 S U2=@("^"_Q_UGL_"(KC,US,UR,UVN)") G OpmProductWijzigenVia:SWLPA="W"&$P(U2,D,2),OpmTekstWijzigenVia:SWLPA'="W"&'$P(U2,D,2)
 S PR=$P(U2,D,2) G WijzigManuelelijn:$P($P(U2,D,17),"#")="KOF1925",WijzigGroeplijn:'PR I '$D(@("^"_Q_"PR(PR,0)")) Q
 S PK1=$P($P(U2,D,7),"#",1),PK2=$P($P(U2,D,7),"#",2),ULT=$P(U2,D,25)
 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=""
 I $P(U2,D,3) S UEP=$J($P(U2,D,9)/$P(U2,D,3)*AFE,1,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 E  S UEP=$P(U2,D,6) I KKN S UEP=UEP*(100-PK1)/100,UEP=UEP*(100-PK2)/100,UEP=$J(UEP,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),X=@("^"_Q_"PR(PR,1)"),PSN=$P(X,D,20),X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
 Do ##class(CHUI.ToolKit).ProductHoofding(19,PR)
 S X=$N(@("^"_Q_"PR(PR,""J"")")) S X=^(X)
 S R=$$KLANTPR^KPRIJS(KC,PR,$G(NoSa)),UMC=$P(R,D,2),PLP=$P(R,D,4),CIFP=$P(R,D,13)*AFE
 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
 G VerwerkInput^Flow.Offerte.WijzigOffertelijnInput
WijzigGroeplijn
 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
 G Exit:UO="-" S $P(U2,D,5)=UO,@("^"_Q_UGL_"(KC,US,UR,UVN)")=U2 G Exit
WijzigManuelelijn
 N B D WIJZIG^FLOWMANL("KOFKL",KC,UR,UVN)
 S UL=ULSV S:K="," K="-"
Exit 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
 
Ingave(UVN,K) 
 G Wijziglijn