Hi Marcus.
you'll find here a routine i wrote to produce a txt file.
The lines highlighted with ;****************
concern the file production.
Hope it helps.
Simcha
GYRP06 ; ����� ���� - ���� ���� ����� �� ������ ��� ; A.M. 17/10/93 [
11/11/97 12:19 PM ]
S $ZE="",$ZT=$S($ZJ#2:"",1:"^%ETN") G BG Q
OBJ(Text)
s Line=$i(Line)
s obj=##class(gym.GYRP06).%New()
S obj.ProgramName=PROG
S obj.ReportTime=ReportTime
S obj.Line=Line
S obj.Text=Text
D obj.%Save()
D obj.%Close()
I FILEOPEN U FILE W Text ;****************
U 0
Q
ER W /CUP(24,1),/EL(0),/RBA,$P($T(@("M"_M)),";",2),/NRM Q
;-
HD ;����� �����
S PAGE=PAGE+1 H 1 X HPNR W #,!,PAGE," : �� ",%DAT," :������
",$FN(SAR,",",2)," :����� ���",?49,$J($P(^ACCTAB("FIR",FIRM),D,1),30)
S DS=$$DT^GYGN92(FDT)_"-"_$$DT^GYGN92(TDT)_":������ ���� ���� ����� ��
������ �'��" X HPNR W !!?(80-$L(DS)\2),DS,!?(80-$L(DS)\2),$E(HD,1,$L(DS))
d OBJ($C(13)_PAGE_$re(" : �� ")_%DAT_$re(" :������ ")_$FN(SAR,",",2)_$re("
:����� ���")_$re($J($P(^ACCTAB("FIR",FIRM),D,1),30)))
d OBJ($j($re(DS),(80-$L(DS)\2))_$C(13)_$J($E(HD,1,$L(DS)),(80-$L(DS)\2)))
Q
;--
HD1 ; ���� �����
X HP4 W
!!!,HD1,!,$J("�����",8),"|",$J("",10),"|",$J("",5),"|",$J("",10),"|",$J("",6
),"|",$J("",8),"|",$J("",10),"|",$J("",7),"|",$J("���",5),"|",$J("",23),"|",
$J("",20),"|"
W
!,$J("���",8),"|",$J("",10),"|",$J("���",5),"|",$J("������",10),"|",$J("���"
,6),"|",$J("�����
",8),"|",$J("",10),"|",$J("'��",7),"|",$J("����",5),"|",$J("",23),"|",$J("",
20),"|",$J("'��",8)
W !,$J("����",8),"|",$J("������",10),"|",$J("�����",5),"|",$J("�����
�'��",10),"|",$J("�'��",6),"|",$J("����-���",8),"|",$J("���",10),"|",$J("���
��",7),"|",$J("�� ��",5),"|",$J("����� ",23),"|",$J("��
",20),"|",$J("����",8)
W !,HD1
d
OBJ($C(13,13,13)_HD1_$C(13)_$J($re("�����"),8)_"|"_$J("",10)_"|"_$J("",5)_"|
"_$J("",10)_"|"_$J("",6)_"|"_$J("",8)_"|"_$J("",10)_"|"_$J("",7)_"|"_$J($re(
"���"),5)_"|"_$J("",23)_"|"_$J("",20)_"|")
S
TEXT=$J($re("���"),8)_"|"_$J("",10)_"|"_$J($re("���"),5)_"|"_$J($re("������"
),10)
S TEXT=TEXT_"|"_$J($RE("���"),6)_"|"_$J($RE("�����
"),8)_"|"_$J("",10)_"|"_$J($RE("'��"),7)_"|"_$J($RE("����"),5)_"|"_$J("",23)
_"|"_$J("",20)_"|"_$J($RE("'��"),8)
d OBJ($C(13)_TEXT)
S
TEXT=$J($RE("����"),8)_"|"_$J($RE("������"),10)_"|"_$J($RE("�����"),5)_"|"_$
J($RE("����� �'��"),10)
S
TEXT=TEXT_"|"_$J($RE("�'��"),6)_"|"_$J($RE("����-���"),8)_"|"_$J($RE("���"),
10)_"|"_$J($RE("�����"),7)_"|"_$J($RE("�� ��"),5)_"|"_$J($RE("�����
"),23)_"|"_$J($RE("�� "),20)_"|"_$J($RE("����"),8)
d OBJ($C(13)_TEXT)
d OBJ($C(13)_HD1)
Q
;--
BG K (PERS,FIRM,FT1,FT2,OPR,OPR1,FIRMS,%FMO) S PROG=$T(+0) D ^%ZPSSD
BG1 S D="_",%FM="GYRP06" D ^FM01 Q:%ER<0
SPL S
KILL="FIRMS,OPR,OPR1,PERS,FIRM,HESS,FDT,TDT,COP,PROG",RPT="STRT^GYRP06" D
^%ZSPL W:'TRM&($G(TRM1)="�") /S80 K %FMO I BK S %RTRN=1,%RESET=0 G BG1
Q
;--
STRT ;�'��� �����
S FILE="D:\REPORTS\GYRP06.TXT" ;****************
Do ##class(%File).Delete(FILE) ;****************
S FILEOPEN=0 C FILE O FILE:("RWN"):0 I $T S FILEOPEN=1 ;****************
K ^gym.GYRP06D
D INT^%ZD1,INT^%ZT1
S Line=0,ReportTime=%DATF_" "_%TIM
W:'TRM&($G(TRM1)="�") /S132 S
$P(HD1,"-",133)="",$P(HD,"=",133)="",PAGE=0,STA="O",DT=$$HTD^FMGEN01(+$H),SA
R=$$SAR^GYGN90($P(^GYTB("06",FIRM),D,15),DT) F CP=1:1:COP D
.D HD,HD1
.S (NM,TR9)="",YMD=FDT-1 F S YMD=$O(^GYP("03",FIRM,YMD)),CNT=""
Q:YMD=""!(YMD>TDT) F S CNT=$O(^GYP("03",FIRM,YMD,CNT)) Q:CNT="" D
..D RC^GYRW01 Q:R="" Q:"12"[C(1) S NM=NM+1,FL="",ACC=CNT,R0=$E(ACC,2,9) D
RAC^ACRW Q:R="" S
A(1)=A(1)_$S('C(25):"",1:"*"),A(1)=A(1)_$S(C(1)=3:"#",1:""),R1=$E(A(1),$L(A(
1))-19,$L(A(1))),R2=A(10)_","_A(11),R2=$E(R2,$L(R2)-22,$L(R2)),R3=C(7),R4=C(
8),R13=$$DT^GYGN92(YMD)
..S RN="" F S RN=$O(^GY01(FIRM,CNT,"01",RN)) Q:RN="" D RC1^GYRW01 D:R'=""
...Q:C1(1) S
R5=$E(RN,2,8),SIT=$E(RN,2,4),R6=$P(^GYTB("01",FIRM,"A"_SIT),D,1),R6=$E(R6,$L
(R6)-9,$L(R6)),R7=$E(RN,5,6),R8=$P(^GYTB("02",FIRM,RN),D,1),R8=$E(R8,$L(R8)-
4,$L(R8)),R9=C1(2),R12=$S(C(11)="�":"",1:$J(C1(6),0,2))
...S R10=$$SSMD^GYGN90(FIRM,CNT,RN,DT) S:C(11)="�" R11="�����" I C(11)'="�"
D
....S R11=$$DT^GYGN92(C1(7)) I $P(R11,"/",1)<16 S
R11=$S($P(R11,"/",2)>2:$P(R11,"/",2)-2_"/"_$P(R11,"/",3),1:$P(R11,"/",2)+10_
"/"_($P(R11,"/",3)-1))
....I $P(R11,"/",1)>15 S
R11=$S($P(R11,"/",2)>1:$P(R11,"/",2)-1_"/"_$P(R11,"/",3),1:"12/"_($P(R11,"/"
,3)-1))
....S:$L($P(R11,"/",1))=1 R11="0"_R11
...S TR9=TR9+R9
...D:$Y>58 HD,HD1 W
!,$J($S('FL:R13,1:""),8),"|",$J(R12,10),"|",$J(R11,5),"|",$J(R10,10,2),"|",$
J(R9,6,0),"|",$J(R8_"-"_R7,8),"|",$J(R6,10),"|",$J(R5,7),"|",$J($S('FL:R4,1:
""),2)," ",$J($S('FL:R3,1:""),2),"|",$J($S('FL:R2,1:""),23),"|"
...W $J($S('FL:R1,1:""),20),"|",$J($S('FL:R0,1:""),8)
...S
TEXT=$J($S('FL:R13,1:""),8)_"|"_$J(R12,10)_"|"_$J(R11,5)_"|"_$J(R10,10,2)_"|
"_$J(R9,6,0)_"|"_$J($RE(R8)_"-"_R7,8)_"|"_$J($RE(R6),10)_"|"_$J(R5,7)_"|"_$J
($S('FL:R4,1:""),2)_"
"_$J($S('FL:R3,1:""),2)_"|"_$J($S('FL:$RE(R2),1:""),23)_"|"
...S TEXT=TEXT_$J($S('FL:$RE(R1),1:""),20)_"|"_$J($S('FL:R0,1:""),8)
...d OBJ($C(13)_TEXT) S FL=1
.W !,HD1,!,$J(NM_" :�������� ����� �'�� "_$FN(TR9,",",0)_" :�'�
�'��",130)
.W !!,$J("������ ���� ������ ���� �� ��� *",130)
.W !,$J("���� ��������� ����� ���� ���� ������ ���� �� ��� #",130),!!
.d OBJ($C(13)_HD1_$C(13)_$J(NM_$RE(" :�������� ����� �'��
")_$FN(TR9,",",0)_$RE(" :�'� �'��"),130))
.d OBJ($C(13,13)_$J($RE("������ ���� ������ ���� �� ��� *"),130))
.d OBJ($C(13)_$J($RE("���� ��������� ����� ���� ���� ������ ���� �� ���
#"),130)_$C(13,13))
C FILE ;****************
X HPNR Q
;-
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.744 / Virus Database: 496 - Release Date: 24/08/04
