KTRAV4 G YZ ;VOORBEREIDEN BESTANDENTRANSFERT ;KTRAV1; Quit naar KTRAV2 [ 10/28/93  11:54 AM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
SG S TEL=TEL+1,@("^"_Q_"TRANS($P(BST,"","",1),TEL)")=K,K=""
SGZ Q
 ;
SI S I=FBP-.01 S:$P(I,".",2)="" I=I_".00" S:$P(I,".",2)=1 I=I_0 S I=I_" "
SIZ Q
 ;
S0 S HG=-1
S0A S HG=$N(@("^"_Q_"HULP($J,HG)")) G S0Z:HG=-1 S GR=-1
S0B S GR=$N(@("^"_Q_"HULP($J,HG,GR)")) G S0A:GR=-1 S SG=-1
S0C S SG=$N(@("^"_Q_"HULP($J,HG,GR,SG)")) G S0B:SG=-1 S PCC=-1
S0D S PCC=$N(@("^"_Q_"HULP($J,HG,GR,SG,PCC)")) G S0C:PCC=-1 S I=-1
S0E S I=$N(@("^"_Q_"HULP($J,HG,GR,SG,PCC,I)")) G S0D:I=-1 S K=^(I) D SG G S0E
S0Z K HG,GR,SG,PCC,PR,ID,R,I,@("^"_Q_"HULP($J)") Q
 ;
S5 S KC=0
S5A S KC=$N(@("^"_Q_"STKL(KC)")) G S5Z:KC=-1,S5A:'$D(@("^"_Q_"K1(KC)")) S PR=0 K @("^"_Q_"HULP($J)")
S5B S PR=$N(@("^"_Q_"STKL(KC,PR)")) G S5I:PR=-1,S5B:'$L($P(^(PR,0),D,1)),S5B:'$D(@("^"_Q_"PR(PR)"))
S5C S PC=$P(^(PR,0),D,1),ID=$P(^(2),D,25),I=" \ \ " S:$E($N(^("I")),1)="I" I=^($N(^("I")))
S5D S HG=$P(I,D,1),GR=$P(I,D,2),SG=$P(I,D,3) D SC,1
S5E S R=@("^"_Q_"STKL(KC,PR,0)") D SI S X=$N(^(I)) G S5B:X=-1!(X]LBP) S K=K_KC_","_ID_","_$P(R,D,1)_","_$P(R,D,2)_",",R=0
S5F S I=$N(^(I)) I I'=-1,I']LBP S R=R+$P(^(I),D,1) G S5F
S5G S HG=HG_" ",GR=GR_" ",SG=SG_" ",K=K_R_",",UEP=$J(UEP,0,2) I $P(K,",",2)'=UEP S K=K_UEP
S5H S K=K_","_UMC_$J("",3-$L(UMC))_",",@("^"_Q_"HULP($J,HG,GR,SG,PCC,0)")=K,K="" K UEP,UMC G S5B
S5I K KV,KYW,X D S0 G S5A
S5Z K KC Q
 ;
1 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2)
 ;
YZ K PPL,PKP,PK1,PK2,KPL,PLL,PLP,PVK,UPAR,USP,AFA,AFR,AFE Q
 ;
Z X ^cZ Q
ZZ ; 23.09.87 -  9 u 49