附屬程式
原始程式
原始檔－起始
/*---------( W_FSAC.H )------------------*/
#define MAIN
#define HP-5L
/* X0=200 X4=171 X8=150 X12=133 X16=120 X20=109 X24=100 */
#include "w_obj.h"
#define GET_NAME UGetName("\\tc\\");GetSysY()
FILE *fpNDX;
#define NDXL 29 /* 每筆索引長度, KEY[8] + ACN[21] = 29 */
#define NDXDISK "FSACF001.NDX"
int SysY,Sa,Ea,Sm,Em;
/*===========================================================================*/
typedef struct
{ char KEY[8] ; /* 科目編號 */
char ACN[21] ; /* 科目編號名稱 */
int DC_NO[2][25]; /* 個月份傳票借貸數,唯NO[0]不使用 */
double AMT[2][25]; /* 0 是借方 1 是貸方 , 1-24 是借貸各月份金額,0 是上期結轉 */
char DC;
} FSACF001_T; /* 會 計 主 檔 */
FKIP *ACF001K; /* 會 計 主 檔 8=KEY 8 bytes, 0=無分錄, 2=index 可指到 65536 筆 */
#define OPEN_ACF001 ACF001K=Ufk_Open("FSACF001",sizeof(FSACF001_T),8,0,2)
/*===========================================================================*/
typedef struct
{ char KEY[8] ; /* 傳票編號 */
char AC[8] ; /* 科目編號 */
char RM[34] ; /* 摘要.原為27*/
char KI ; /* 傳 票 別 */
char DC ; /* 借 貸 */
DATE YM ; /* 傳票日期 */
double AMT ; /* 金 額 */
DATE CYM ; /* 兌現日期 */
} FSACF011_T; /* 傳 票 主 檔 */
FKIP *ACF011K; /* 傳 票 主 檔 8=KEY 8 bytes, 1=分錄可指到 256 筆, 2=index 可指到 65536 筆 */
#define OPEN_ACF011 ACF011K=Ufk_Open("FSACF011",sizeof(FSACF011_T),8,1,2)
/*===========================================================================*/
typedef struct /* 常用傳票 */
{ char KEY[6] ; /* 常用編號 */
char NAM[17] ; /* 常用名稱 */
char AC[8] ; /* 科目編號 */
char RM[34] ; /* 摘 要 */
char KI ; /* 傳 票 別 */
char DC ; /* 借 貸 */
double AMT ; /* 金 額 */
} FSACFA11_T; /* 常用傳票格式儲存檔 */
TEXT *TxFA11;
FKIP *ACFA11K; /* 常用傳票格式儲存檔 6=KEY 6 bytes, 1=分錄可指到 256 筆, 2=index 可指到 65536 筆 */
#define OPEN_ACFA11 ACFA11K=Ufk_Open("FSACFA11",sizeof(FSACFA11_T),6,1,2)
/*===========================================================================*/
typedef struct /* 常用摘要 */
{ char KEY[4]; /* 摘要編號 */
char RM[34]; /* 摘要名稱 */
} FSACF002_T; /* 摘要檔 */
TEXT *TxMemo;
FKIP *ACF002K; /* 摘要檔 4=KEY 4 bytes, 0=無分錄, 2=index 可指到 65536 筆 */
#define OPEN_ACF002 ACF002K=Ufk_Open("FSACF002",sizeof(FSACF002_T),4,0,2)
/*===========================================================================*/
#define FMT_L 42
typedef struct
{ char ACN[23]; /*科目名稱*/
char AC[2][8]; /*0起始科目編號,1結止科目編號 */
double AMT[2]; /*0本月,1(資)上月.(損)累計 */
char FMT[FMT_L]; /*計算公式 */
char M; /*分母的記號 */
char C; /*記號 */
char SW; /*判斷本項是否已計算完畢 */
} FSACR063_T; /* 損 益 表*/
/*===========================================================================*/
void GetSysY()
{ if((Stream=fopen("FSACYY","r"))==NULL) UFatal("無會計年度檔");
fgets(BufS,10,Stream);
SysY=atoi(BufS);
fclose(Stream);
}
/*===========================================================================*/
int ChkYM(DATE YM,int sw) /*傳回對應的陣列月份*/
{ if(YM.Y==SysY) return YM.M;
if(YM.Y==SysY+1) return YM.M+12; /*下年度*/
if(sw)
{ Ugd_Open("%02d.%02d.%02d 與系統年度不符",YM.Y,YM.M,YM.D);
beep(); UGetKb(); Ugd_Close();
}
return 0;
}
/*===========================================================================*/
void ACF001Tx() /*讀入fsacf001.ndx 索引檔 */
{ /*原static int HasRead=OFF; 95/03/19*/
if(HasRead==ON) return; /*靜態只有此函式內可改,但fsacp001要設OFF來重整*/
fclose(fpNDX);
if((fpNDX=fopen(NDXDISK,"r+b"))==NULL) UFatal("無科目索引");
L=filelength(fileno(fpNDX))/NDXL+30; /*計算配置個數*/
Tx=Utx_Open(45,4,76,23,L,8,ON);
while(1)
{ if(fread(TmpS,NDXL,1,fpNDX) < 1) break;
if(TmpS[0]>SPACE) Utx_Ins(Tx,TmpS);
}
HasRead=ON;
}
原始檔－結束
原始程式
原始檔－起始
/*---------( W_ACP001.C )-------------*/
char *ChainDc();
void Write2Page();
void Read2Page(int x,int y);
char *Tabl2="\
╓───────────────╖ \
║ 科 目: ║ \
║ 名 稱: ║ \
║ 借貸別: ║ \
╙───────────────╜ ";
void ACP001(int x,int y,char *s)
{ int fi=1,md=Modify;
UGetTitle(" 新 增 科 目 ");
if(y>=20) y=20;
Wo=Uwo_Open(x,y,x+34,y+4);
Ugd_Open("Esc:放棄建檔 F4:查科目 PgDn:存入後返回");
UShowTable(x,y,x+34,y+4,Tabl2,V_TABLE);
memset(&ACF001,NULL,sizeof(ACF001));
strcpy(ACF001.KEY,s); Read2Page(x,y);
while(1)
{ switch(fi)
{ case 1: if(UReadS(x+11,y+1,7,ACF001.KEY,"NL",V_SHOW,V_READ)) Read2Page(x,y); break;
case 2: UReadS(x+11,y+2,20,ACF001.ACN,"CL",V_SHOW,V_READ); break;
/* case 3: UReadC(x+11,y+3,&ACF001.DC,"DC",V_SHOW,V_READ_F); UShowS(x+13,y+3,ChainDc(),V_SHOW); break; */
case 3: UReadTog(x+11,y+3,4,&ACF001.DC,V_TOG,"DC","借","貸"); UShowS(x+11,y+3,ChainDc(),V_SHOW); break;
}
switch(RetKey)
{ case F4 : Utx_View(Tx,""); break;
case LEFT :
case UP : if(--fi<1) fi=5; break;
case RIGHT :
case DOWN : if(++fi>5) fi=1; break;
case PGDN : Write2Page(); strcpy(s,ACF001.KEY);
case ESC : Ugd_Close(); Uwo_Close(Wo); Modify=md; UPutTitle();
if(RetKey==ESC) RetKey=OFF; else RetKey=RIGHT; return;
}
}
}
/*===========================================================================*/
void Show2Page(int x,int y)
{
UShowSL(x+11,y+1,7,ACF001.KEY,V_SHOW);
UShowSL(x+11,y+2,20,ACF001.ACN,V_SHOW);
UShowS(x+11,y+3,ChainDc(),V_SHOW);
}
/*===========================================================================*/
void Read2Page(int x,int y)
{
if(Ufk_Read(ACF001K,&ACF001,NULL)==OFF) /* 讀不到 */
memset(&ACF001.KEY[0]+sizeof(ACF001.KEY),NULL,sizeof(ACF001)-sizeof(ACF001.KEY));
if(ACF001.KEY[0]<=SPACE) UClsField(x+20,y+1,8,V_SHOW);
else if(ACF001.KEY[0]<='3' || ACF001.KEY[0]=='Z') UShowS(x+20,y+1,"(實科目)",V_SHOW);
else UShowS(x+20,y+1,"(虛科目)",V_SHOW);
Modify=OFF; Show2Page(x,y); /*讀入時一定要Modify=OFF*/
}
/*===========================================================================*/
void Write2Page()
{
if(Modify==OFF) return;
if(ACF001.KEY[0]==NULL){ UWait(ON,"無科目編號 ．Enter 修改"); Field=1; return; }
if((L=Ufk_Write(ACF001K,&ACF001)) >= 0L)
{ sprintf(BufS,"%-7s %-s",ACF001.KEY,ACF001.ACN);
fseek(fpNDX,L*NDXL,SEEK_SET);
fwrite(BufS,NDXL,1,fpNDX);
Utx_Del(Tx,BufS);
Utx_Ins(Tx,BufS);
}
}
/*===========================================================================*/
char *ChainDc()
{
switch(ACF001.DC)
{ case 'D': return " 借 ";
case 'C': return " 貸 ";
default : return " ";
}
}
原始檔－結束
Byron Wey Oct.21.1998