KOFDOFI G 1 ;AFDRUKKEN OFFERTES ;Do naar KOFDOFA,KOFDOFB - Quit naar %F32 [ 08/05/2002  10:07 AM ]
 ;
S1 S UVN=UVN+1 W !?V,":",?14,": ",^(I) F J=74,91,100,108,117 W ?J,":"
S1Z Q
 ;
S3 S UVN=UVN+1 I UVN>40 D HDD0^KOFDOFB G S3
S3A W !?V,$P($T(T2),U,2),$C(13),?(2+V),$J($E(PNR,1,11),11),?(16+V),$E(PC,1,11),?(28+V),$E(UO,1,43),?(55+V),$E(PCO,1,16) I $P(ULINE,"#",1)="KOFGRP" W $C(13),?(28+V),$E(UO,1,43),$C(13),?(28+V),$E(UO,1,43)
S3B I UA S R=UA_"\8\"_(71+V)_"\0" D R3 S UA=""
S3C I $L(UEP) S R=UEP_"\11\"_($S(UVM="MTL":80,1:84)+V)_"\2" D R3 W:UVM="MTL" $$MUNT^vhRtn1(UMC,1) W:$L(USP) $C(13),?(95+V),USP S UEP="" G S3E
S3D I +UK S R=+UK_"\5\"_($S($P(UK,"#",2):81,1:89)+V)_"\1" D R3 W:$P(UK,"#",2) $C(13),?(86+V),"% -" S R=$P(UK,"#",2)_"\5\"_(89+V)_"\1" D:+R R3 W $C(13),?(94+V),"%"
S3E I $L(UBE) S R=UBE_"\10\"_(98+V)_"\2" D R3 S UBE="" I $P(ULINE,"#",1)="KOFGRP" W $C(13) D R3 W $C(13) D R3
S3F W ?(111+V) I ULT="." W $P("STOCK\STOCK\LAGER\STOCK",D,TL) S ULT="" G S3G
S3G W $J(ULT,2)," " W:ULT $P("WK\SE\WO\WE",D,TL) S ULT=""
S3H S PGV=""
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 W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S UZ=100,(BLZ,ATOT,STOT)=0 D HD^KOFDOFB S UVN=UVN+9 I $D(@("^"_Q_"BA(22,""O"",KT,1)")) F I=1:1:5 I $D(^(I)),$L(^(I)) D S1
82 I $N(@("^"_Q_UGL_"(KC,US,UR,99999)"))'=-1 D ^KOFDOFD S UZ=100
9 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) I UZ=-1!(UZ'?.N) S @("^HBOU"_$J_"(UR)")="" G YZ
10 S U2=^(UZ),PR=$P(U2,D,2),UA=$P(U2,D,3),UEP=$P(U2,D,6),UBE=$P(U2,D,16),ULINE=$P(U2,D,17),UMC=$P(U2,D,22),PNV=$P($P(U2,D,23),"#",2),PGV=$P($P(U2,D,23),"#",3)
 S ATOT=ATOT+UBE,STOT=STOT+UBE
 I $P(ULINE,"#",1)="KOFGRP" S:'$P(ULINE,"#",2) UBE=ATOT,(ATOT,STOT)=0 S:$P(ULINE,"#",2) UBE=STOT,STOT=0
100 S:'PNV PNV="" S:'PGV PGV="" I $L(PR) S GVP=PNV S:'GVP GVP=PGV
102 S USP=$P("%\/M",D,$F("HM",$E($P(U2,D,21),1))-1),ULT=$P(U2,D,25),UK=""
104 S (PNR,PC,PCO)=""
106 I '$L(PR) S UO=$P(U2,D,5) S:$P(ULINE,"#")="KOF1925"&('UA) UEP=$P(U2,D,16) S:$P(ULINE,"#")="KOF1925" PNR="-     ",PC="     -" D S3 G 9:$P(ULINE,"#",1)'="KOFGRP",9:$N(@("^"_Q_UGL_"(KC,US,UR,UZ)"))=-1!(UVN>39) S (PNR,PC,UO,UK,UEP,UBE)="" D S3 G 9
11 G 21:'$D(@("^"_Q_"PR(PR,0)")) S X=^(0),PC=$P(X,D,1),X=^(2),PNR=$P(X,D,25),X=^($P("0\1\2\2",D,TL)),UO=$P(X,D,$P("2\22\2\1",D,TL))
12 S X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" " I $D(@("^"_Q_"COL(X)")) S PCO=^(X,KT)
14 S X=@("^"_Q_"PR(PR,$P(""0\3\3\3"",D,TL))"),UOO=$P(X,D,$P("11\21\23\22",D,TL))
140 S:KYW UK=$P(U2,D,7) S:$P(UK,"#",1)!$L(UOO) UVN=UVN+1 D S3 I $P(UK,"#",1)!$L(UOO)&(UVN>1) S UVN=UVN-1
15 S (PNR,PC,PCO)="",UO=UOO I GVP>1 S PC=$J($P("VP\EM\VP\VP",D,TL)_":"_GVP,8)
16 I $P(UK,"#",1)!$L(UO)!$L(PGV) D S3
17 I $N(@("^"_Q_UGL_"(KC,US,UR,UZ)"))'=-1&(UVN<41) S (PC,UO,UK)="" D S3
19 G 9
21 S PNR=$P(U2,D,20),PC=PR,UO=$P(U2,D,29),X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" " I $D(@("^"_Q_"COL(X)")) S PCO=^(X,KT)
23 D S3 S:KYW UK=$P(U2,D,7) S (PNR,PC,PCO)="",UO=$P(U2,D,30) G 16
 ;
YZ Q
 ;
T2 ;:             :                                                        :        :                :           :       :
 ;
Z X ^cZ Q
ZZ ; 11.02.91 -  8 u 47