KOF1925 G 1 ;OFFERTE MODULE MANUELE LIJN; Do naar KOF1925A - Quit naar %F10 [ 11/07/2001  10:04 AM ]
 ;
C1 W !?2,"[] = zonder aantal" Q
C2 W !?2,"x.xxx.xxx.x[] = manuele produktlijn   [] = gewone manuele lijn" Q
C3 S FP=2362+F60 W @F,@F2,".[] = uit stock" Q
 ;
S4 S FP=FP+F60 W @F,@F2
S4Z Q
 ;
1 S UUV=1,(UVM,UMC)=$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,18)
3 S R="PID\19\3\IDENTNUMMER\C2^KOF1925\11" D ^READ G YZ:K="-"
5 I $L(K) S SID=$E(K,3,5)_$E(K,7,8) D S3 G 30:SCD=$E(K,9) S PID="-.---.---.-",FP=1917+F60 W @F,@F2,PID G 30
9 S R="UA\20\3\AANTAL     \C1^KOF1925\6\\""-,""[K!(K?.N&(K>0))" D ^READ G 3:K="-",3:K=","
11 I UVM'="MTL" S FP=2103+F60 W @F,@F1,"MUNTKODE    : ",UVM G 15
13 S R="UMC\21\3\MUNTKODE   \\3\\$L(K)" D ^READ G 9:K="-",3:K=",",13:'$D(@("^"_Q_"BA(11,K)"))
15 G 17:'UA S R="UEP\22\3\VERK PRIJS \\9\\$L(K)&(""-,""[K)!((K?.N!(K?.N1"".""1N)!(K?.N1"".""2N))&(K'<0)&($L(K)))" D ^READ
16 S UEP=$J(UEP,0,2) G 13:K="-"&(UVM="MTL"),9:K="-",3:K=",",21
17 S R="UBE\22\3\BEDRAG     \\11\\""-,""[K!(K?.N)!(K?.N1"".""1N)!(K?.N1"".""2N)&$L(K)" D ^READ G 13:K="-"&(UVM="MTL"),9:K="-",3:K=","
21 S R="UO\23\3\OMSCHRIJV  \\"_UTL_"\\\\\L" D ^READ G 15:K="-",3:K=","
23 S:UA UBE=UEP*UA,B(106)=UEP S B(105)=UO,B(103)=UA
25 S UBE=$J(UBE,0,2),(B(109),B(110),B(116))=UBE,B(117)="KOF1925",B(122)=UMC S:'UA UEP=UBE
29 K:'UA UA G YZ
30 S K=$P(PID,".",1)_$P(PID,".",2)_$P(PID,".",3)_$P(PID,".",4)_" " I $D(@("^"_Q_"PR2(K)")) D M1 G 3
31 S FP=2001+F60 W @F,@F1 S R="UC\22\3\PRODUKTNAAM\\25" D ^READ G 3:K="-"!(K=",") F I=1:1:21 Q:$E(UC,I)'=" "  S K=$E(K,2,99)
32 I '$L(K)!(K=$E(UC,22,25)) S UC="     -"_$E(UC,7,99),FP=2217+F60 W @F,@F2,UC
33 S R="PN1\23\3\OMSCHR 1\\25\\\\\L" D ^READ G 30:K="-",3:K=","
35 S FP=1935 D:K="-" S4 S R="PN2\24\3\OMSCHR 2\\45\\\\\L" D ^READ G 33:K="-",3:K=","
37 S FP=2035 D:K="-" S4 S R="UA\19\35\AANTAL    \\6\\""-,""[K!(K?.N)&$L(K)" D ^READ G 35:K="-",3:K=","
38 I UVM'="MTL" S FP=2035+F60 W @F,"MUNTKODE   : ",UVM G 41
39 S FP=2135 D:K="-" S4 S R="UMC\20\35\MUNTKODE  \\3\\$L(K)" D ^READ G 37:K="-",3:K=",",39:'$D(@("^"_Q_"BA(11,K)"))
41 S FP=1962 D:K="-" S4 S R="K\21\35\VERK PRIJS\\9\\$L(K)&(""-,""[K)!((K?.N!(K?.N1"".""1N)!(K?.N1"".""2N))&(K'<0)&($L(K)))" D ^READ
42 S (UEP,EPR)=K G 3:K="," I K="-" G 39:UVM="MTL" S FP=2135 D S4 G 37
43 S FP=2062 D:K="-" S4 S R="USP\19\62\EENH VERK\\1\\""-,EHM""[K&$L(K)" D ^READ G 41:K="-",3:K="," S AFE=$P("1\100\1000",D,$F("EHM",USP)-1)
45 S (PK1,PK2)="",FP=2162 D:K="-" S4,S5 S R="PK1\20\62\KORTING 1\\4\\""-,""[K&$L(K)!(K?.N!(K?.N1"".""1N)&(K'>100))" D ^READ
46 G 43:K="-",3:K="," D S5 G 49:K=""
47 S PK2="",FP=2362 D:K="-" S4 S FP=2262 D:K="-" S4,S5 S R="PK2\21\62\KORTING 2\\4\\""-,""[K&$L(K)!(K?.N!(K?.N1"".""1N)&(PK1+K'>100))" D ^READ
48 G 45:K="-",3:K="," D S5
49 S FP=2362 D:K="-" S4 S R="ULT\22\62\LEVERTERM\C3^KOF1925\2\\""-,.""[K&$L(K)!(K?.N&K)" D ^READ G 3:K="," I K="-" G 47:PK1 S FP=2262 D S4 G 45
51 S FP=2462 D:K="-" S4 ; S R="PNV\23\62\NORM VERP\\6\\""-,""[K!(K?.N)" D ^READ G 49:K="-",3:K=","
53 ;S R="PGV\24\62\GROOTVERP\\6\\""-,""[K!(K?.N)" D ^READ G 51:K="-",3:K=","
 S (PNV,PGV)=""
55 S UEP=$J(UEP,0,2),(UN,UBE)=$J(UEP*UA/AFE,0,2) I KKN S UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,0,2)
57 S B(103)=UA,B(105)=UC,B(106)=UEP,B(107)=PK1_"#"_PK2,(B(109),B(110))=UN,B(116)=UBE,B(117)="KOF1925"
59 S B(120)=PID,B(121)=USP,B(122)=UMC,B(123)="#"_PNV_"#"_PGV,B(125)=ULT,B(129)=PN1,B(130)=PN2,B(132)=EPR
61 S UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1) G YZ
 ;
YZ K EPR,AFA,UA,UEP,UO,PID,SID,SRT,CD,UC,PN1,PN2,USP,PK1,PK2,ULT,PNV,PGV,UK,UVM,UMC,UBE Q
YZZ Q
 ;
S5 I 'KKN S UEP=$J(EPR*(100-PK1)/100*(100-PK2)/100,0,2),FP=2148+F60 W @F,$J("",9),@F,UEP
S5Z Q
 ;
S3 S SRT=($E(SID,1)*6)+($E(SID,2)*5)+($E(SID,3)*4)+($E(SID,4)*3)+($E(SID,5)*2)#11 S:SRT=0 SCD=1 S:SRT=1 SCD=0 S:SRT>1 SCD=11-SRT
S3Z Q
 ;
M1 S MSG="DIT IDENTNUMMER BESTAAT REEDS" G MY
MY S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K Q
 ;