KOFDOF G 1 ;AFDRUKKEN OFFERTES ;Do naar KOFDOFA,KOFDOFB - Quit naar %F32 [ 11/29/2003   1:16 PM ]
 ;
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),UO,?(55+V),$E(PCO,1,16)
S3B I $L(UEP) S R=UEP_"\11\"_($S(UVM="MTL":74,1:78)+V)_"\2" D R3 W:UVM="MTL" $$MUNT^vhRtn1(UMC,1) W:$L(USP) $C(13),?(89+V),USP S UEP="" G S3D
S3C I +UK S R=+UK_"\5\"_($S($P(UK,"#",2):75,1:83)+V)_"\1" D R3 W:$P(UK,"#",2) $C(13),?(80+V),"% -" S R=$P(UK,"#",2)_"\5\"_(83+V)_"\1" D:+R R3 W $C(13),?(88+V),"%"
S3D I UA S R=UA_"\8\"_(91+V)_"\0" D R3 S UA=""
S3E W ?(102+V) I ULT="." W $P("STOCK\STOCK\LAGER\STOCK",D,TL) S ULT="" G S3G
S3F W $J(ULT,2)," " W:ULT $P("WK\SE\WO\WE",D,TL) S ULT=""
S3G 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 R=51 D ^KFOLE
BREACK1 B 1
 S V=0,HDT=1,SW3=6
2 S UR=$N(@Q20) G BREACK0:UR=-1!(UR>LUR),2:'$D(@("^"_Q_UG1_"(UR,US)")),5:Q20["UGL"
3 S U2=^(US) G 2:$L($P(U2,D,2)) S KC=$P(U2,D,1)
5 S U2=@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),2)"),KKT=$P(U2,D,2),KPL=$P(U2,D,3),KKN=$P(U2,D,5)
50 S U2=^(0),KV=$P(U2,D,11),KX=$P(U2,D,18),KK=$P(U2,D,17) S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
6 F I=2:1:9 S @$P("KN\KN2\KA\KS\KP\KW\KL\KT",D,(I-1))=$P(U2,D,I)
7 S TL=$F("NFDE",KT)-1,U2=@("^"_Q_UGL_"(KC,US,UR,1)")
70 I 'SW37,TL'=HDT D ^KBA99
8 S UI=$P(U2,D,2),UJ=$P(U2,D,3),UTYP=$P(U2,D,9),VDT=$P(U2,D,16),UVM=$P(U2,D,18),KLV=$P(U2,D,21),UVN=0 S:UVM="" UVM=$$FADEF^vhRtn1() I UTYP D ^KOFDOFI G 25
80 S UZ=100,BLZ=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 25
10 S U2=^(UZ),PR=$P(U2,D,2),UA=$P(U2,D,3),UEP=$P(U2,D,6),UMC=$P(U2,D,22),PNV=$P($P(U2,D,23),"#",2),PGV=$P($P(U2,D,23),"#",3)
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($P(U2,D,17),"#")="KOF1925"&('UA) UEP=$P(U2,D,16) S:$P($P(U2,D,17),"#")="KOF1925" PNR="-     ",PC="     -" 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
25 D ^KOFDOFA W # G 2
BREACK0 B 0
27 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
29 K PR,PC,PL,KN,KN2,V,Q0,Q1,Q2,Q3,Q4,AFA,AFE,AFR,BLZ,EXG,EXH,EXS,GRB,GRE,GRS,HDT,HGB,HGE,HGS,HGSP,I,I2,PCC,PCO,PGV
31 K PI2,PK1,PK2,PKP,PLL,PLP,PNR,PNV,PPL,PRB,PRC,PRCS,PRCX,PRE,PSN,PVK,S,SEL,SGB,SGE,SGS,UPAR,UVM,UVN,V,VDT,X1,X2
 ;
YZ Q
 ;
T2 ;:             :                                                           :                :        :       :
 ;
Z X ^cZ Q
ZZ ; 11.02.91 -  8 u 47