應付票據(傳票日)
範圍選擇 |
客戶排序 |
左右捲頁 |
原始程式
原始檔－起始
/*---------( FSACRB72.C )--------*/
#include "W_FSAC.H"
#define SX 20 /*左內框 */
#define SY 10 /*上內框 */
#define SC 42 /*內框寬, 多少行 */
/*-----------------------------------------------------------------*/
#define PrHEAD UPrint("#自 %M------ 到 %M------ %S------ ",Sday,Eday,ChainKi(Ki)); \
UPrint("===================================================================================================================="); \
UPrint(" 科目名稱 兌現日期 支票號碼 貸方金額 小計 累計 摘要 傳票 傳票日期"); \
UPrint("-------------------- -------- -------- ---------- ----------- ----------- ------------------------- ------ --------");
#define PrSTYLE1 "%S------------------ %M------ %S----- %f,-------- %f,-------- %f,-------- %S----------------------- %S---- %M------"
#define PrSTYLE0 "%S------------------ %M------ %S----- %f,-------- %S----------------------- %S---- %M------"
#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,Buf.YM
#define PrDATA0 s,Buf.CYM,Buf.RM,Buf.AMT, &Buf.RM[8],Buf.KEY,Buf.YM
/*-----------------------------------------------------------------*/
char *ChainKi(char KI);
void ShowData();
void ShowLast();
/*================================================================*/
FSACF001_T ACF001;
FSACF011_T ACF011,Buf;
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,"2141",4)!=0) continue;
if(p->DC=='D') continue;
/* if(p->AC[4]<=SPACE) continue; */
if(UMidDate(Sday,p->YM,Eday)==OFF) continue;
if(Ki=='1') USprint(BufS,"%S-%M----",&p->AC[4],p->YM);
else USprint(BufS,"%M----%S-%M----",p->YM,&p->RM[8],p->CYM);
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.YM) - UHowDate(Buf.YM);
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>=K1){ 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[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); /*不印合計,累計*/
}
/*===========================================================================*/
void 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