KOFTOFE G 1 ; AFDRUKKEN OFFERTES ; KOFTOF; Quit naar KOFTOFD [ 01/31/2001  2:15 PM ]
 ;
S3 S UVN=UVN+1,K="" I UVN>40 D HDD0^KOFTOFB G S3
S3A S K=":"_$J($E(PNR,1,11),12)_" : "_$E(PC_$J("",11),1,11)_" "_UO,K=K_$J("",55-$L(K))_PCO,K=K_$J("",74-$L(K))_":"
S3B I $L(UEP) S R=UEP_"\10\"_($S(UVM="MTL":74,1:78)+V)_"\2" D R3 S:UVM="MTL" K=K_$$MUNT^vhRtn1(UMC,1) S:$L(USP) K=$E(K,1,$L(K)-1)_USP S UEP="" G S3D
S3C I +UK S R=+UK_"\5\"_($S($P(UK,"#",2):75,1:83)+V)_"\1" D R3 S:$P(UK,"#",2) K=$E(K,1,$L(K)-1)_"% -" S R=$P(UK,"#",2)_"\5\"_(83+V)_"\1" D:+R R3 S K=$E(K,1,$L(K)-1)_"%"
S3D S K=K_$J("",91-$L(K))_":" I UA S R=UA_"\7\"_(91+V)_"\0" D R3 S UA=""
S3E S K=K_$J("",100-$L(K))_": " I ULT="." S K=K_$P("STOCK\STOCK\LAGER\STOCK",D,TL) G S3G
S3F S K=K_$J(ULT,2)_" " S:ULT K=K_$P("WK\SE\WO\WE",D,TL)
S3G S ULT="",K=K_$J("",108-$L(K))_":" I $L(PNV) S K=K_$J(PNV,5),PNV="" G S3I
S3H S K=K_$J(PGV,7),PGV=""
S3I S K=K_$J("",117-$L(K))_":" W !,$J("",V),K
S3Z Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B S K=K_$J("",$P(R,D,3)-$L(K))_$J(R0,R1)_R4_R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S (PNR,PC,PCO,UEP,UK,UA,UO,ULT,PNV,PGV)="" I $L(SGO) S UVN=UVN+1,UO=SGO D S3
10 I $L(SGO) S:UVN>1 UVN=UVN-1 S UO="",$P(UO,"=",$L(SGO))="=" D S3
11 I $D(UOO),$L(UOO) S UO=UOO,UVN=UVN+1 D S3 S:UVN>1 UVN=UVN-1 S UO="" D S3
12 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),X=^(1),UE=$P(X,D,11),PSN=$P(X,D,20),ULT=""
23 S X=@("^"_Q_"PR(PR,2)"),PNR=$P(X,D,25)
25 S X=$N(^("J")) I $E(X,1)="J" S X=^(X)
27 S PLL=$P(X,D,7),PGV=$P(X,D,16),PNV=$P(X,D,15)_"/" S:PNV="/" PNV="- /" S:'PGV PGV="-"
33 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7)
 S PKP=$P(R,D,8),UPAR=$P(R,D,9),USP=$P(R,D,10),AFE=$P(R,D,11)
39 S:KKN UEP=PLP S USP=$P("%\/M",D,$F("HM",$E(USP,1))-1),ULT="." I 'PSN S ULT=1+$P(X,D,7),UA=$P(X,D,6)
 ;
4 S X=@("^"_Q_"PR(PR,$P(""0\1\2\2"",D,TL))"),UO=$P(X,D,$P("2\22\2\1",D,TL))
41 S X=^($P("0\3\3\3",D,TL)),UOO=$P(X,D,$P("11\21\23\22",D,TL))
43 S X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" " I $D(@("^"_Q_"COL(X)")) S PCO=^(X,KT)
45 S:KYW UK=PK1_"#"_PK2 S:$P(UK,"#",1)!$L(UOO) UVN=UVN+1 D S3 I $P(UK,"#",1)!$L(UOO)&(UVN>1) S UVN=UVN-1
47 S (PNR,PC,PCO)="",UO=UOO
49 I $P(UK,"#",1)!$L(UO)!$L(PGV) D S3
 ;
5 I UVN<40 S (UO,UK)="" D S3
51 S (SGO,UOO)=""
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 18.05.88 - 16 u 35