KOF2C G 1 ;OFFERTE MODULE WIJZIGEN MANUELE LIJN; Do naar KOF1925A - Quit naar KOF2B [ 12/21/93  10:55 AM ]
 ;
1 S (UA,X)=$P(U2,D,3) I UA D SCROL^READ("AANTAL     ",6,X,"","","""-""[K!(K?.N&(K>0))","",20,3) G YZ:K="-" I $L(K) S UA=K
11 I UVM'="MTL" S FP=2103+F60 W @F,@F1,"MUNTKODE    : ",UVM G 15
13 S (UMC,X)=$P(U2,D,22) D SCROL^READ("MUNTKODE   ",3,X,"","","","",21,3)
 G 1:K="-"&(UA),YZ:K="-",1:K="," I $L(K) G 13:'$D(@("^"_Q_"BA(11,K)")) S UMC=K
15 S (UEP,X)=$P(U2,D,6) G 17:'UA D SCROL^READ("VERK PRIJS ",9,X,"","","""-,""[K!((K?.N!(K?.N1"".""1N)!(K?.N1"".""2N))&(K'<0))","",22,3)
16 G 13:K="-"&(UVM="MTL"),1:K="-"&(UA),YZ:K="-",1:K="," S:$L(K) UEP=$J(K,0,2) G 21
17 S (UBE,X)=$P(U2,D,16) D SCROL^READ("BEDRAG     ",11,X,"","","""-,""[K!(K?.N)!(K?.N1"".""1N)!(K?.N1"".""2N)","",22,3)
19 G 13:K="-"&(UVM="MTL"),1:K="-"&(UA),YZ:K="-",1:K="," I $L(K) S UBE=K
21 S (UO,X)=$P(U2,D,5) D SCROL^READ("OMSCHRIJV  ",UTL,X,"","","","L",23,3) G 15:K="-",1:K="," I $L(K) S UO=K
23 S:UA UBE=UEP*UA S UBE=$J(UBE,0,2)
25 S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4)_D_UO_D_UEP_D_$P(U2,D,7,8)_D_UBE_D_UBE_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,21)_D_UMC_D_$P(U2,D,23,99)
27 S @("^"_Q_UGL_"(KC,US,UR,UVN)")=U2
29 S:'UA UEP=UBE K:'UA UA
 ;
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
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32