NieuweProductOffertelijnInput ; MODULE REGISTREREN PRODUKTLIJNEN OFFERTES (OPVRAGEN GEGEVENS) (Levering per dag); Quit naar %F10 - Go naar KOF0 [ 11/07/2001  10:03 AM ]
 
GeefAantal
 I $L(BackGrnd) D ProductIdentificatie^Flow.Offerte.NieuweProductOffertelijn S R=BackGrnd D ^KOF02 S BackGrnd=""
 S R="UA\24\54\AANTAL \\6\\""-,""[K!(K?.N)!(K?1""-"".N)!(K=""""&$G(BEV))\\" D Input
 I 0[K,$$ISPROD^KS(PR) G GeefAantal
 I K="",$G(BEV) S (UA,K)=BEV
 I $L(K)=1,"-,"[K Q
 I PSN="" G GeefAantal:K<$P(X,D,6),GeefAantal:K#$P(X,D,16)
 I $$IsKSKlant(KC),'$$CheckMinQty^KS(PR,UA) G GeefAantal
 Q
 
BepaalBestelimpuls
 N %SC,Impuls,MinAfn
 D NIEUW^vhScherm("KPBI","","","","","",3)
 S K=$S('%SC:"-",'MinAfn:Impuls,UA#MinAfn:"-",1:Impuls)
 I MinAfn,UA#MinAfn D TXTL^vhINP("FLOW","MINAFNAME")
 Q
 
IsKSKlant(KLNr)
 	New KlantID
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
	Quit '(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID))
 
VerwerkInput
 N PERSTUK,IsPerDag
 S IsPerDag=$P(ULT,"#",2)="A"
IsPerDag F FP=2339,2439 W @F,@F2
IngaveLeverdag
 K BEV I $L($G(LevTerm)) S K="" K LevTerm
 E  I $G(K)'="-" S K=ULT
 E  S R="K\23\54\LEVERT \C1\3\\""-,""[K!(K?.N&(K>0))!(K="".""&PSN)!(K?.N1""d"")!(K?.N1""w"")!(K?.N1""D"")!(K?.N1""W"")" D Input G Exit:K="-",Exit:K=","
 D:$L(K)
 . S K=$$UPCASE^vhRtn1(K)
 . S K=$S(K=".":K,1:+K_$S($E(K,$L(K))'="W":"#A",1:"#W"))
 . S ULT=K,IsPerDag=$P(ULT,"#",2)="A",FP=2213+F60 W @F,"        ",@F,$S(ULT=".":"STOCK",1:+ULT)
 . W:K'="." " ",$S(+ULT=1:$S(IsPerDag:"DAG",1:"WEEK"),1:$S(IsPerDag:"DAGEN",1:"WEKEN"))
IngaveAantal S FP=2354 W @F,@F2
 I $D(Aantal) S (UA,K)=Aantal K Aantal
 E  D GeefAantal
 G IsPerDag:K="-",Exit:K="," S PERSTUK=$P(X,D,13),PGV=$P(X,D,16) G Bestelimpuls:'PGV S PNV=$P(X,D,15),PKV=$P(X,D,14)
 S:'PNV PNV=PGV S:'PKV PKV=PNV G Bestelimpuls:PERSTUK=1,Bestelimpuls:'(UA#PGV),Bestelimpuls:'(UA#PGV#PNV) S GR=UA#PGV#PNV#PKV G Bestelimpuls:'GR
 I GR,PERSTUK=-1 D  G IngaveLeverdag:'$$WWNooitPerStuk^FLOW2(PR) K Aantal G Bestelimpuls
 I $L(BackGrnd) D ProductIdentificatie^Flow.Offerte.NieuweProductOffertelijn S R=BackGrnd D ^KOF02 S BackGrnd=""
 S OGR=UA-GR,BGR=OGR+PKV,FP=2339 W @F,OGR S FP=2354 W @F,@F2,"AANTAL  : ",UA S FP=2439 W @F,BGR
 S BEV=UA D GeefAantal G IsPerDag:K="-",Exit:K=","
Bestelimpuls
 I UTYP="C",UA>0 D GeefAantal G IngaveAantal:K="-",Exit:K=","
 S:'AFE AFE=1
 Set B(102)=PR
 Set B(103)=UA
 Set B(117)="KOF0"
 Set B(122)=UMC
 Set B(123)=$P(X,D,14)_"#"_$P(X,D,15)_"#"_$P(X,D,16)
 Set B(125)=ULT
 Set UK="" 
 Set:PK1 UK=$J(PK1,4,1) 
 Set:PK2 UK=UK_" "_$J(PK2,4,1)
 
 If $G(Mirror),'$P(Mirror,D,2) Set $P(Mirror,D,2)=UA
 If '$G(Mirror) Do  ; Verwerken van het eventueele spiegelproduct
 . New MirrorPRNr,MirrorLine
 . Set MirrorPRNr=$$GetMirror^PRODUKT(PR)
 . If 'MirrorPRNr Kill Mirror Quit
 . Set MirrorLine=$$MirrorLine^FLOWOFF(KC,UR,PR)
 . If 'MirrorLine Do  ; Het spiegelproduct bestaat nog niet
 . . Set Mirror=$$AddMirror^PRODUKT(PR,UA)
 . . If Mirror Set Mirror=$TR(Mirror,"#",D)_D_ULT
 . . Else  Kill Mirror
 . Else  If $P(^KOFKL(KC,"F",UR,MirrorLine),D,3)'=UA,$$ModMirror^PRODUKT(PR,UA) Do  ; Het spiegelproduct bestaat reeds, aantal aanpassen?
 . . Set R=^KOFKL(KC,"F",UR,MirrorLine)
 . . Set $P(R,D,9)=$J($P(R,D,9)/$P(R,D,3)*UA,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 . . Set $P(R,D,10)=$J($P(R,D,10)/$P(R,D,3)*UA,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 . . Set $P(R,D,16)=$J($P(R,D,16)/$P(R,D,3)*UA,0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
 . . Set $P(R,D,3)=UA,^KOFKL(KC,"F",UR,MirrorLine)=R
Exit
 I K="," S K="-"
 K AFA,AFE,AFR,KPC,GR,OGR,BGR,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PR,PK1,PK2,PLP,PPL,PID,PRE,PSN,PVK,PGV,PNV,PKV,PY
 K Q15,S,SW25,UE,UN,UAF,UOD,UOR,UVM,ULTT,X,UTYP,BEV L @("^"_Q_UGL_"(KC,US,UR)")
 Q
 
C1 S FP=2454 W @F,@F2,"Xd[] of Xw[]" W:PSN " of .[] = stock" Q
 
Input S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
 S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
 S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
InputC S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
 R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
 E  G InputC
 S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
 K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84