未兌現應(收)票據
範圍選擇 |
計算機 |
左右捲動 |
原始程式
原始檔－起始
/*---------( FSACR071.C )---------*/
#include "W_FSAC.H"
#define SX 20 /*左內框 */
#define SY 10 /*上內框 */
#define SC 36 /*內框寬, 多少行 */
/*-----------------------------------------------------------------*/
#define PrHEAD UPrint("#%S-------- 列印:%M------ ",ChainKi(Ki),Day); \
UPrint("=============================================================================================================="); \
UPrint(" 科 目 名 稱 兌現日期 支票號碼 借方金額 合計金額 累計金額 摘 要 傳票號"); \
UPrint("-------------------- -------- -------- ----------- ----------- ----------- ------------------------- ------");
#define PrSTYLE1 "%S------------------ %M------ %S------ %f,-------- %f,-------- %f,-------- %S----------------------- %S----"
#define PrSTYLE0 "%S------------------ %M------ %S------ %f,-------- %S----------------------- %S----"
#define PrSPILT UPrint("───────────────────────────────────────────────────────");
#define PrNULL
#define PrSUMUP
#define PrSUM
#define PrNEXT
#define PrEND
#define PrDATA1 s,Buf.CYM,Buf.RM,Buf.AMT,Sum,Total,&Buf.RM[8],Buf.KEY
#define PrDATA0 s,Buf.CYM,Buf.RM,Buf.AMT, &Buf.RM[8],Buf.KEY
/*-----------------------------------------------------------------*/
struct
{ char KEY[7+6+1]; /*票據+兌現日*/
long IP[2]; /*0借方第幾筆,1貸方第幾筆(從第1算起,0表示無)*/
char AC[3]; /*1141+明細*/
char BNO[3]; /*帳號*/
} WORK;
void ShowData();
char *ChainKi(char KI);
void RmError(int i);
/*================================================================*/
FSACF001_T ACF001;
FSACF011_T ACF011,Buf,*ptr;
double Sum,Total;
char Ki;
long Sw,Count; /* 同一科目有幾筆*/
int A,B;
char *Table="\
\
未兌現應(收)票據 \
================================== \
兌現期間: -------- 到: -------- \
排序方式: 依 ---------- 排序 \
\
資料輸出裝置：-------- \
";
/*===========================================================================*/
void main()
{ USetBXYN(Table,SX,SY,SC);
OPEN_ACF001; OPEN_ACF011;
ACF001Tx(); NamS=GET_NAME;
while(1)
{ Ki='1';
#include <RPT1.H>
if(Field==1) UReadM(BXN(1),&Sday,0,V_WUSR,V_READ);
if(Field==2) UReadM(BXN(2),&Eday,0,V_WUSR,V_READ);
if(Field==3){ UReadTog(BXN(3),&Ki,V_TOG,"12",ChainKi('1'),ChainKi('2'));
UShowSL( BXN(3),ChainKi(Ki),V_WUSR);
}
#include <RPT2.H> /*條件設定完畢*/
/*------------------------------------------------------------------*/
Ugd_Open("檔 案 處 理 中 請 稍 候 .....");
OPEN_WORK;
READ1(ACF011)
{ if(memcmp(p->AC,"1141",4)!=0) continue; /*應收科目*/
if(UMidDate(Sday,p->CYM,Eday)==OFF) continue; /*日期範圍*/
/* if(p->AC[4]<=SPACE) continue; */ /*要明細*/
memset(&WORK,NULL,sizeof(WORK));
USprint(WORK.KEY,"%S-----%M----",p->RM,p->CYM); /*要比對 票據+兌現日期*/
Ufk_Read(WORKK,&WORK,NULL);
if(p->DC=='D') I=0; else I=1; /*0=借方,1=貸方*/
if(WORK.IP[I]>0){ ptr=p; RmError(I); } /*應空白,否則重複,錯*/
WORK.IP[I] = L+1; /*記錄第幾筆,L由READ1()遞增*/
if(WORK.IP[0]!=0L && WORK.IP[1]!=0L) /*有借,有貸,表示已對沖掉*/
{ Ufk_Del(WORKK,&WORK); continue; } /*對沖*/
memcpy(WORK.AC,&p->AC[4],3); /*子科目3碼*/
memcpy(WORK.BNO,&p->RM[8],3); /*銀行帳號3碼*/
Ufk_Write(WORKK,&WORK);
}
READ2
Ufk_Flush(WORKK);
/*------------------------------------------------------------------*/
Sp=Usp_Open();
lseek(WORKK->ffd,0L,SEEK_SET);
for(L=0; ; L++)
{ if(read(WORKK->ffd,&WORK,sizeof(WORK)) < 1) break;
if(WORK.KEY[0]<=SPACE) continue;
if(WORK.IP[1]!=0L) continue; /*有貸,表已對沖,則不印*/
if(Ki=='1') USprint(BufS,"%S-%S----",WORK.AC,&WORK.KEY[7]);
else USprint(BufS,"%S----%S-",&WORK.KEY[7],WORK.BNO);
Usp_InsIp(Sp,BufS,L);
}
Ugd_Close();
/*------------------------------------------------------------------*/
Ugd_Open("列印中 Ctr_F7:結束列印");
while(RetKey!=ESC)
{ if(Usp_GetIp(Sp,&L)==OFF) break;
lseek(WORKK->ffd,L*sizeof(WORK),SEEK_SET);
read(WORKK->ffd,&WORK,sizeof(WORK));
L = WORK.IP[0]-1;
lseek(ACF011K->ffd,L*sizeof(ACF011),SEEK_SET);
read(ACF011K->ffd,&ACF011,sizeof(ACF011));
if(Buf.KEY[0]>SPACE)
{ if(Ki=='1') Sw = memcmp(ACF011.AC,Buf.AC,7);
else /* 日期 & 帳號 */
{ A = UHowDate(ACF011.CYM) - UHowDate(Buf.CYM);
B = memcmp(&ACF011.RM[8],&Buf.RM[8],3);
Sw = (A || B);
}
ShowData(); /*列印存在buffer裏的資料*/
}
Buf=ACF011; /*先存在buffer裏暫不印出*/
Count ++;
if(Psf=='S' && K0>=22){ UWait(OFF,"Esc:重新選擇 任一鍵繼續"); UCls(); K0=0; }
if(Psf=='P' && K0>=K1){ fprintf(Stream,"%c",12); K0=0; }
}
ShowLast();
LineReturn(ON); Ufk_Close(WORKK); Usp_Close(Sp); /*要close供下一LOOP使用*/
}
}
/*===========================================================================*/
void ShowHead()
{
#ifdef HP-5L /*1998/8/27*/
LockItemHead(2,"~I",NamS,"~Z2W1G2X16");
#else
LockItemHead(2,"~IZ2G2",NamS,"~Z1");
#endif
PrHEAD /*列印標頭*/
}
/*===========================================================================*/
void ShowData()
{ char s[32];
Sum += Buf.AMT;
Total += Buf.AMT;
Utx_GetS(Tx,s,Buf.AC,8);
if(Count>1 && Ki=='1') s[0]=NULL;
if(Sw!=0) /*印合計,累計*/
{ UPrint(PrSTYLE1,PrDATA1); /*列印一列資料*/
PrSPILT /*列印分隔線 */
Sum = 0f; Count = 0;
}
else UPrint(PrSTYLE0,PrDATA0); /*不印合計,累計*/
}
/*===========================================================================*/
ShowLast()
{
if(Buf.KEY[0]>SPACE){ Sw=ON; ShowData(); } /*將最後在buffer裏的資料印出*/
Count = Sum = Total = 0f;
memset(&Buf,NULL,sizeof(Buf));
}
/*===========================================================================*/
void RmError(int i)
{ FSACF011_T F011;
long ip;
ip=tell(ACF011K->ffd);
lseek(ACF011K->ffd,(WORK.IP[i]-1)*sizeof(F011),SEEK_SET);
read(ACF011K->ffd,&F011,sizeof(F011));
UWait(ON,"傳票: %S---- 與 %S---- 的支票號碼 %S----- 重復",F011.KEY,ptr->KEY,ptr->RM);
lseek(ACF011K->ffd,ip,SEEK_SET);
}
/*================================================================*/
char *ChainKi(char KI)
{ switch(KI)
{ case '1': return "客戶別";
case '2': return "兌現日別";
default : return " ";
}
}
原始檔－結束
Byron Wey Oct.21.1998