應收票據(兌現日)
範圍選擇 |
客戶排序 |
左右捲頁 |
原始程式
原始檔－起始
/*---------( FSACRA71.C )--------*/
#include "W_FSAC.H"
#define SX 20 /*左內框 */
#define SY 10 /*上內框 */
#define SC 36 /*內框寬, 多少行 */
/*-----------------------------------------------------------------*/
#define PrHEAD UPrint("#自 %M------ 到 %M------ %S-------- ",Sday,Eday,ChainKi(Ki)); \
UPrint("===================================================================================================================="); \
UPrint(" 科 目 名 稱 兌現日期 支票號碼 借方金額 當天小計 累計 入票帳號 摘 要 傳票號"); \
UPrint("-------------------- -------- -------- ---------- ----------- ----------- ------------ --------------------- ------");
#define PrSTYLE1 "%S------------------ %M------ %S----- %f,-------- %f,-------- %f,-------- %S---------- %S------------------- %S----"
#define PrSTYLE0 "%S------------------ %M------ %S----- %f,-------- %S---------- %S------------------- %S----"
#define PrSPILT UPrint("──────────────────────────────────────────────────────────");
#define PrNULL
#define PrSUMUP
#define PrSUM
#define PrNEXT
#define PrEND
#define PrDATA1 s[0],Buf.CYM,Buf.RM,Buf.AMT,Sum,Total,s[1],&Buf.RM[12],Buf.KEY
#define PrDATA0 s[0],Buf.CYM,Buf.RM,Buf.AMT, s[1],&Buf.RM[12],Buf.KEY
/*-----------------------------------------------------------------*/
void ShowData();
char *ChainKi(char KI);
/*================================================================*/
FSACF001_T ACF001;
FSACF011_T ACF011,Buf,*p;
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("檔 案 處 理 中 請 稍 候 .....");
Sp=Usp_Open();
READ1(ACF011)
{ if(memcmp(p->AC,"1141",4)!=0) continue;
if(p->DC=='C') continue;
/* if(p->AC[4]<=SPACE) continue; */
if(UMidDate(Sday,p->CYM,Eday)==OFF) continue;
if(Ki=='1') USprint(BufS,"%S-%M------",&p->AC[4],p->CYM);
else USprint(BufS,"%M------%S-",p->CYM,&p->AC[4]);
Usp_InsIp(Sp,BufS,L);
}
READ2
Ugd_Close();
/*------------------------------------------------------------------*/
Ugd_Open("列印中 Ctr_F7:結束列印");
while(RetKey!=ESC)
{ if(Usp_GetIp(Sp,&L)==OFF) break;
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>=20){ UWait(OFF,"Esc:重新選擇 任一鍵繼續"); UCls(); K0=0; }
if(Psf=='P' && K0>=58){ fprintf(Stream,"%c",12); K0=0; }
}
ShowLast(); Usp_Close(Sp); LineReturn(ON);
}
}
/*===========================================================================*/
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[2][32];
s[0][0]=s[1][0]=NULL;
if(Buf.RM[8]>SPACE) /*讀銀行名稱*/
{ USprint(BufS,"1102%S-",&Buf.RM[8]);
Utx_GetS(Tx,s[1],BufS,8);
}
Sum += Buf.AMT;
Total += Buf.AMT;
Utx_GetS(Tx,s[0],Buf.AC,8);
if(Count>1 && Ki=='1') s[0][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));
}
/*================================================================*/
char *ChainKi(char KI)
{ switch(KI)
{ case '1': return "客戶別";
case '2': return "兌現日別";
default : return " ";
}
}
原始檔－結束
Byron Wey Oct.21.1998