KOF0AD ; MODULE REGISTREREN PRODUKTLIJNEN OFFERTES (OPVRAGEN GEGEVENS) (Levering per dag); Quit naar %F10 - Go naar KOF0 [ 11/07/2001  10:03 AM ]
 ;
S3 I $L(BackGrnd) D IDPROD^KOF0 S R=BackGrnd D ^KOF02 S BackGrnd=""
 S R="UA\24\54\AANTAL \\6\\""-,""[K!(K?.N)!(K?1""-"".N)!(K=""""&$G(BEV))\\" D R0
 I 0[K,$$ISPROD^KS(PR) G S3
 I K="",$G(BEV) S (UA,K)=BEV
 G S3Z:K="-"!(K=",") I PSN="" G S3:K<$P(X,D,6),S3:K#$P(X,D,16)
 I $$ISKLANT^KS(KC),'$$CheckMinQty^KS(PR,UA) G S3
S3Z Q
 ;
S4 
 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
 ;
29 N PERSTUK,IsPerDag
 S IsPerDag=$P(ULT,"#",2)="A"
290 F FP=2339,2439 W @F,@F2
30 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 R0 G YZ^KOF0:K="-",47:K=","
31 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"))
33 S FP=2354 W @F,@F2
 I $D(Aantal) S (UA,K)=Aantal K Aantal
 E  D S3
 G 290:K="-",47:K="," S PERSTUK=$P(X,D,13),PGV=$P(X,D,16) G 36:'PGV S PNV=$P(X,D,15),PKV=$P(X,D,14)
330 S:'PNV PNV=PGV S:'PKV PKV=PNV G 36:PERSTUK=1,36:'(UA#PGV),36:'(UA#PGV#PNV) S GR=UA#PGV#PNV#PKV G 36:'GR
 I GR,PERSTUK=-1 D  G 30:'$$WWNooitPerStuk^FLOW2(PR) K Aantal G 36
 I $L(BackGrnd) D IDPROD^KOF0 S R=BackGrnd D ^KOF02 S BackGrnd=""
34 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
340 S BEV=UA D S3 G 290:K="-",47:K=","
36 I UTYP="C",UA>0 D S4 G 33:K="-",47:K=","
 S:'AFE AFE=1
38 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)
39 S UC=PR,UBE=$J(UEP/AFE*UA,1,2),B(102)=PR,B(103)=UA,B(104)=UE,B(106)=UEP,B(107)=PK1_"#"_PK2
41 S (B(109),B(110))=UN,B(116)=UBE,B(117)="KOF0",B(121)=USP,B(122)=UMC,B(123)=$P(X,D,14)_"#"_$P(X,D,15)_"#"_$P(X,D,16),B(125)=ULT
45 S UK="" S:PK1 UK=$J(PK1,4,1) S: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,2)
 . . Set $P(R,D,10)=$J($P(R,D,10)/$P(R,D,3)*UA,0,2)
 . . Set $P(R,D,16)=$J($P(R,D,16)/$P(R,D,3)*UA,0,2)
 . . Set $P(R,D,3)=UA,^KOFKL(KC,"F",UR,MirrorLine)=R
47 I K="," S K="-"
 ;
YZ 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
 ;
R0 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)_")"
R0A 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)
R0B 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
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;