傳 票 (即時過帳)
科目查詢 |
票據對沖 |
傳票查詢 |
一．畫面說明：
傳票編號：６０８０１５ 代表 ８６年０８月份，第０１５張傳票 ││││││ │││└┴┴──流水號：３碼，由００１開始編，每月可切一千張 │└┴──────月份：２碼，０１∼１２，代表一到十二月 └────────年份：１碼，只取個位，因此十年才有可能重覆
二，操作說明
三，原始程式
原始檔－起始 /*---------( FSACP011.C )----傳票(即時過帳)-----*/ #include "W_FSAC.H" #define SX 3 /*左內框 */ #define SY 4 /*上內框 */ #define SC 76 /*內框寬, 多少行 */ #define ANO 120 /*ARRAY 陣列筆數*/ #define TNO 3 /*TITLE 抬頭項數*/ #define CNO 5 /*COLUMM 各列項數*/ #define SNO 8 /*螢幕起始列數,依抬頭列數調整此值,1列=8,2列=9,3列=10*/ #define RNO (22-SNO) /* ROW 螢幕列數 */ /*-----------------------------------------------------------------*/ #define PrHEAD UPrint(" %S---------------- %S--------; ",ChainKI(ACF011.KI),s1); \ UPrint(" 日期：%M------ 編號:%S--------",ACF011.YM,SelKey); \ UPrint("┌───────────────┬────┬─────────────────┬──────┬──────┐"); \ UPrint("│科目號 科 目 名 稱 │兌現日期│ 摘 要 │ 借方金額│ 貸方金額│"); \ UPrint("├───────────────┼────┼─────────────────┼──────┼──────┤"); #define PrSTYLED "│%S----- %S------------------ │%M------│%S------------------------------- │ %f,--------│ │" #define PrSTYLEC "│%S----- %S------------------ │%M------│%S------------------------------- │ │ %f,--------│" #define PrSPILT UPrint("├───────────────┼────┼─────────────────┼──────┼──────┤"); #define PrNULL UPrint("│ │ │ │ │ │"); #define PrSUMUP /* "├───┴───┴──────────┴─────┴───┴───┴───┴──┴──┴────┤" */ #define PrSUM UPrint("│ │ │ 合 計 │ %f,--------│ %f,--------│",Dsum,Csum); #define PrNEXT UPrint("│ │ │ ** 接 下 頁 ** │ │ │"); #define PrEND UPrint("└───────────────┴────┴─────────────────┴──────┴──────┘"); \ UPrint(" 核准: 會計: 覆核: 出納: 登帳: 製單: "); #define PrDATA ACF011A[i].AC,LastKey,ACF011A[i].CYM,ACF011A[i].RM,ACF011A[i].AMT /*-----------------------------------------------------------------*/ void ACF011Qry(); int SetCon(); int AddCash(); /*補現金傳票,以ACF011.KEY為KEY*/ int CalBalance(); char *ChainKI(char KI); char *ChainDC(char DC); void Del1Page(); void EndPage(int sw); void Field04(); void Print1Page(); void PrintData(); void SetACF011(); void SetMemo(); void ShowData(int i); void ShowHead1(); void UpdateNew(); void UpdateOld(); void ACF011Help(int r); /*票據對沖*/ void ACF011Help2(int r); /*非票據對沖*/ void CopyACFA11(); void ModifyF011(); /*修改傳票號*/ /*================================================================*/ FSACF001_T ACF001; FSACF002_T ACF002; FSACF011_T ACF011,ACF011A[ANO],ACF011B[ANO]; char *Table="\ 傳票編號:------ 傳票別(123):---------------- 傳票日期:-------- \ ============================================================================\ 科目號 科 目 名 稱 摘 要 D/C 金 額 兌現日期\ ------- -------------------- ---------------------- --- ----------- --------\ \ ============================================================================\ 第 筆 借:-------------- 貸:-------------- 差額:-------------- "; #include "W_ACP001.C" void main() { USetBXYN(Table,SX,SY,SC); UShowTable(3,4,78,SNO-1,Table,V_TABLE); for(I=0; I<RNO; I++) UShowSL(3,I+SNO,76,&Table[(SNO-4)*76],V_SHOW); UShowTable(3,I+SNO,78,strlen(Table)/76+RNO+2,&Table[(SNO-3)*76],V_TABLE); NamS=GET_NAME; USetXN(&Table[(SNO-5)*76]-2); UDrawBox(1,3,80,24,V_BLUE,NO,NO,2); OPEN_ACF001; OPEN_ACF002; /* 會計科目主檔; 摘要檔; */ OPEN_ACF011; /* 傳票檔; 常用傳票格式檔; */ ACF001Tx(); SetMemo(); /* 科目索引; 摘要索引; */ Ugd_Open("F3:建科目 F4:查科目.摘要 F5:對沖 F6:查傳票 F7:列印 F8:改編號 F9:插分錄 PgDn:存入"); Ufk_ReadLast(ACF011K,ACF011.KEY); Read1Page(); Field=3; while(1) { switch(Field) { case 1: if(UReadS(BXN(1),ACF011.KEY,"NL3",V_SHOW,V_READ)) Read1Page(); break; case 2: UReadTog(BXN(2),&ACF011.KI,V_TOG,"123",ChainKI('1'),ChainKI('2'),ChainKI('3')); UShowSL(BXN(2),ChainKI(ACF011.KI),V_SHOW); break; case 3: UReadM(BXN(3),&ACF011.YM,8,V_SHOW,V_READ); if(ChkYM(ACF011.YM,ON)==0) break; /*年度不符, 警告後跳離*/ strcpy(BufS,ACF011.KEY); BufS[3]=NULL; I=atoi(&BufS[1]); if(I!=ACF011.YM.M){ Ugd_Open("敬告:月份與傳票編號不符 !"); beep(); getch(); Ugd_Close(); } break; default: Field04(); break; } switch(RetKey) { case F6 : UGetTitle(" 查 傳 票 "); ACF011Qry(); UPutTitle(); break; case A_P : Pe2=ON; /*由 PE2 印出, 98/06/16*/ case F7 : WDO(PrintData); break; case A_F8 : UGetTitle(" 設常用傳票 "); CopyACFA11(); UPutTitle(); break; /*原設常用傳票,因少用且功能列已滿,故設為改傳票編號功能,但仍保留*/ case F8 : UGetTitle(" 改傳票編號 "); WDO(ModifyF011); UPutTitle(); Read1Page(); break; case F10 : Del1Page(); break; case PGDN : if(Update==OFF && Modify==OFF) /*只進一頁*/ break; case PGUP : case C_PGUP: case C_PGDN: ACF011.KEY[6]=NULL; L=atol(&ACF011.KEY[4])+1; /*保留4位,剩最後2位可變*/ Write1Page(); if(RetKey==ENTER) break; /*借貸不平衡*/ memcpy(BufS,ACF011.KEY,4); BufS[4]=NULL; if(BufS[0]<=SPACE) memset(BufS,'0',4); /*第1次自動補"0000"*/ if(Ufk_PgUD(ACF011K,ACF011.KEY)==OFF) /*完全無任何資料*/ sprintf(ACF011.KEY,"%s%0*ld",BufS,6-4,L); Read1Page(); Field=3; break; case ESC : Write1Page(); if(RetKey==ENTER) break; /*借貸不平衡*/ Ufk_WriteLast(ACF011K); exit(0); default : UCtrField(ANO,TNO,RNO,CNO); break; } if(Modify==ON) USetColor(SX,SY-1,6,V_MODIFY); } } /*===========================================================================*/ int HelpCon(char *ki) { int i=1,md=Modify,x=21,y=SNO-1,no=4; /* no=設定項目 */ char Yn='N'; Wo=Uwo_Open(1,3,80,24); UDrawBox(x-6,y,x+51,y+no*2+2,V_WBOX,V_WUSR,YES,YES,2); *ki='1'; y+=2; UShowSL(x,y,40,"對沖種類: 1 (1)應收票據,(2)應付票據",V_WUSR); y+=2; UShowSL(x,y,10,"兌現起始:",V_WUSR); UShowM(x+10,y,8,Sday,V_WUSR); y+=2; UShowSL(x,y,10,"兌現結止:",V_WUSR); UShowM(x+10,y,8,Eday,V_WUSR); y+=2; UShowSL(x,y,16,"執行(YN): N",V_WUSR); x+=10; do { y = SNO-1+2*i; if(i==1) UReadC(x,y,1,ki,"12",V_WUSR,V_READ); if(i==2) UReadM(x,y,8,&Sday,3,V_WUSR,V_READ); if(i==3){ if(Eday.D<1) UShowM(x,y,8,Sday,V_WUSR); UReadM(x,y,8,&Eday,3,V_WUSR,V_READ); } if(i==4) UReadC(x,y,1,&Yn,"YN",V_WUSR,V_READ); if(RetKey==LEFT || RetKey==UP) if(--i<1) i=no; if(RetKey==RIGHT || RetKey==DOWN) if(++i>no) i=1; }while(Yn!='Y' && RetKey!=ESC); Modify=md; Uwo_Close(Wo); return RetKey; } /*===========================================================================*/ void ACF011Help(int r) /*整批票據對沖*/ { TEXT *t1,*t2; char ki,dc,**s; if(HelpCon(&ki)==ESC){ RetKey=NULL; return; } /*輸入條件*/ if(ki=='1'){ strcpy(SelKey,"1141"); dc='D'; } /*應收票據,屬借,除非已對沖*/ else { strcpy(SelKey,"2141"); dc='C'; } /*應付票據,屬貸,除非已對沖*/ t1=Utx_Open(72-89+21,4,78,23,1000,72,OFF); t2=Utx_Open(72-89+21,4,10,23,1000,8,OFF); /*對照用票據號*/ Utx_AddHead(t1,"兌 帳號 名 稱 兌現日期 票據號 摘******要 金 額 科目號"); Utx_AddHead(t1,"-- --- -------- -------- ------- ---------------- ----------- -------"); strcpy(BufS, " %S- %S------ %M------ %S----- %S-------------- %f,-------- %S-----"); READ1(ACF011) /*借貸不同,但支票號碼7碼相同,則表示對沖*/ { if(memcmp(p->AC,SelKey,4)) continue; /*科目比對*/ if(UMidDate(Sday,p->CYM,Eday)==OFF) continue; /*日期比對*/ if(p->DC != dc){ Utx_Ins(t2,"%S-----",p->RM); continue; } /*借貸不同,可能已對沖,放入t2,以便比對支票號碼(p->RM頭7碼)*/ Utx_GetS(Tx,TmpS,p->AC,16); /*以AC做key,從第16字開始放入TmpS中"1141001 應收票據－台塑*/ Utx_Ins(t1,BufS,&p->RM[8],TmpS,p->CYM,p->RM,&p->RM[12],p->AMT,p->AC); } READ2 for(I=2; I<t1->mem_row; I++) /*若t1與t2有相同支票號碼,則已對沖*/ { Utx_Search(t2,&t1->ptr1[I][25]); /* 3+4+9+9=25=支票號碼 */ if(t2->FIND==ON) memcpy(&t1->ptr1[I][0],"ˇ",2); } Utx_Close(t2); s=Utx_MtPick(t1,ANO-r,""); for(I=0; s[I]; I++,r++) /*Utx_GetFmt填值入變數中, USprint整合摘要內容*/ { Utx_GetFmt(t1,s[I],"1S 3M 4S 5S 6D 7S",BufS,&ACF011A[r].CYM,&BufS[10],&BufS[20],&ACF011A[r].AMT,ACF011A[r].AC); USprint(ACF011A[r].RM,"%S----- %S- %S-------------------",&BufS[10],BufS,&BufS[20]); if(dc=='D') ACF011A[r].DC='C'; else ACF011A[r].DC='D'; /*對沖*/ } Utx_Close(t1); Show1Page(); CalBalance(); } /*===========================================================================*/ void ACF011Help2(int r) /*非票據對沖*/ { TEXT *tx; char **s; tx=Utx_Open(72-83+21,4,78,23,1000,90,OFF); /*非票據*/ Utx_AddHead(tx,"對沖日期 金 額 摘****要 DC 傳票號"); Utx_AddHead(tx,"-------- ----------- --------------------------------- -- ------"); strcpy(BufS, "%M------ %F,-------- %S------------------------------- %C %S----"); READ1(ACF011) { if(memcmp(p->AC,ACF011A[r].AC,7)!=0) continue; USprint(TmpS,BufS,p->CYM,p->AMT,p->RM,p->DC,p->KEY); I=Utx_Search(tx,TmpS); if(tx->FIND==OFF) Utx_Ins(tx,TmpS); /* 未找到則Ins */ else if(tx->ptr1[I][55]==p->DC) Utx_Ins(tx,TmpS); /* 找到,但D==C */ else Utx_Del(tx,TmpS); /* D!=C 則沖掉 */ } READ2 strcpy(TmpS,ACF011A[r].AC); s=Utx_MtPick(tx,ANO-r," 非票據對沖 "); for(I=0; s[I]; I++,r++) { Utx_GetFmt(tx,s[I],"0M 1D 2S 3C",&ACF011A[r].CYM,&ACF011A[r].AMT,ACF011A[r].RM,&ACF011A[r].DC); if(ACF011A[r].DC=='D') ACF011A[r].DC='C'; else ACF011A[r].DC='D'; strcpy(ACF011A[r].AC,TmpS); } Utx_Close(tx); Show1Page(); } /*===========================================================================*/ void ChkBank(int x,int y,char *s) { char tmp[32],buf[32]; USprint(tmp,"1102%S-",s); /*銀行別 3 碼*/ if(Utx_GetS(Tx,buf,tmp,8) && *s>SPACE) { UShowSL(x-4,y,3,s,V_SHOW); UShowSL(x,y,18,buf,V_SHOW); } else{ UClsField(x-4,y,22,V_SHOW); memset(s,SPACE,3); } } /*===========================================================================*/ void InputRm(int y,int r) { int fi=1,yy=y; #define Ix 46 if(y>17) yy=17; else yy=y; Wo=Uwo_Open(X[2],yy-1,80,yy+4); USetColor(XN(2),V_READ); UShowS(Ix,yy-1," ╓──────────────╖",V_TABLE); UShowS(Ix,yy ," ║支票: ║",V_TABLE); UShowSL( Ix+9,yy ,7,ACF011A[r].RM,V_SHOW); UShowS(Ix,yy+1," ║帳戶: ║",V_TABLE); ChkBank(Ix+13,yy+1,&ACF011A[r].RM[8]); UShowS(Ix,yy+2," ║摘要: ║",V_TABLE); UShowSL( Ix+9,yy+2,21,&ACF011A[r].RM[12],V_SHOW); UShowS(Ix,yy+3," ║兌現: ║",V_TABLE); UShowM( Ix+9,yy+3,8,ACF011A[r].CYM,V_SHOW); UShowS(Ix,yy+4," ╙──────────────╜",V_TABLE); while(fi>=1 && fi<=4) { switch(fi) { case 1: UReadS( Ix+9,yy ,7,ACF011A[r].RM,"NL",V_SHOW,V_READ); break; case 2: UReadS( Ix+9,yy+1,3,&ACF011A[r].RM[8],"NL",V_SHOW,V_READ); ChkBank(Ix+13,yy+1,&ACF011A[r].RM[8]); break; case 3: UReadS( Ix+9,yy+2,21,&ACF011A[r].RM[12],"C",V_SHOW,V_READ); break; case 4: UReadM( Ix+9,yy+3,8,&ACF011A[r].CYM,-1,V_SHOW,V_READ); break; } switch(RetKey) { case F4 : if(Utx_Pick(Tx,BufS,0,0,0," 科 目 查 詢 ",V_SHOW)) memcpy(&ACF011A[r].RM[8],&BufS[4],3); ChkBank(Ix+13,yy+1,&ACF011A[r].RM[8]); break; case LEFT : case UP : fi--; break; case RIGHT: case DOWN: fi++; break; case ESC : RetKey=RIGHT; fi=10; break; } } ACF011A[r].RM[7]=ACF011A[r].RM[11]=SPACE; /*7=支票尾,11=帳戶尾*/ Uwo_Close(Wo); UShowSL(XN(2),ACF011A[r].RM,V_SHOW); UShowM( XN(5),ACF011A[r].CYM,V_SHOW); } /*===========================================================================*/ void Field04() { int col=(Field-TNO-1)%CNO, row=(Field-TNO-1)/CNO; int y=row+SNO, r=row+OffSet; USetColor(3,y,76,V_YELLOW); UShowI(7,23,3,r+1,"0",V_SHOW); switch(col) { case 0: UReadS(XN(0),ACF011A[r].AC,"NL",V_SHOW,V_READ); if(Utx_Chain(Tx,ACF011A[r].AC,XY(0),28,V_SHOW)==OFF) UShowSL(3,y,76,&Table[(SNO-4)*76],V_SHOW); if(RetKey==F4) Utx_Pick(Tx,ACF011A[r].AC,XY(0),28," 科 目 查 詢 ",V_SHOW); if(strcmp(ACF011A[r].AC,"1101 ")==0 && (ACF011.KI=='1'|| ACF011.KI=='2')) {UWait(ON,"對方科目你們給,現金科目我補就可以了"); UShowSL(3,y,76,&Table[(SNO-4)*76],V_SHOW); } /*-----檢查若有明細則不能輸入總帳,若不檢查,則刪至break止---*/ if(ACF011A[r].AC[0]<=SPACE || ACF011A[r].AC[4]>SPACE) break; I=Utx_Search(Tx,ACF011A[r].AC)+1; /*可能明細,或另科目*/ if(memcmp(ACF011A[r].AC,Tx->ptr1[I],4)!=0) break; /*跟下一筆不同*/ UWait(ON,"<%s> 為總科目，應使用明細科目吧！",ACF011A[r].AC); ACF011A[r].AC[0]=NULL; UShowSL(3,y,76,&Table[(SNO-4)*76],V_SHOW); break; case 1: if(memcmp(ACF011A[r].AC,"1141",4)==0 || memcmp(ACF011A[r].AC,"2141",4)==0) InputRm(y,r); else UReadV(XN(2),ACF011A[r].RM,33,"C",V_SHOW,V_READ); /*應收票 or 應付票*/ if(RetKey==F4) Utx_Pick(TxMemo,ACF011A[r].RM,XN(2)," 摘 要 查 詢 ",V_SHOW); break; case 2: if(ACF011.KI=='1'){ if(ACF011A[r].AC[0]){ ACF011A[r].DC='C'; UShowSL(XN(3)+1,ChainDC('C'),V_SHOW);} break; } if(ACF011.KI=='2'){ if(ACF011A[r].AC[0]){ ACF011A[r].DC='D'; UShowSL(XN(3)+1,ChainDC('D'),V_SHOW);} break; } I=UReadTog(X[3],y,4,&ACF011A[r].DC,V_TOG,"DC","借","貸"); UShowSL(XN(3)+1,ChainDC(ACF011A[r].DC),V_SHOW); if(I==ON ) CalBalance(); break; case 3: if(UReadD(XN(4),&ACF011A[r].AMT,",",V_SHOW,V_READ)) CalBalance(); break; case 4: if(memcmp(ACF011A[r].AC,"1144",4)==0) /*應收帳款才輸入兌現日*/ UReadM(XN(5),&ACF011A[r].CYM,9,V_SHOW,V_READ); break; } USetColor(3,y,76,V_SHOW); switch(RetKey) { case F5: if(memcmp(ACF011A[r].AC,"1141",4)==0 || memcmp(ACF011A[r].AC,"2141",4)==0 || ACF011A[r].AC[0]<=SPACE) { UGetTitle(" 票 據 對 沖 "); ACF011Help(r); UPutTitle(); } else ACF011Help2(r); break; case F3: ACP001(X[2],y-1,ACF011A[r].AC); Utx_Chain(Tx,ACF011A[r].AC,X[0],y,28,V_SHOW); break; case F9: for(I=ANO-2; I>=r; I--) ACF011A[I+1]=ACF011A[I]; memset(&ACF011A[r],NULL,sizeof(ACF011)); Show1Page(); Modify=ON; break; } } /*===========================================================================*/ void Show1Page() { int y,r; char buf[10]; UShowSL(BXN(1),ACF011.KEY,V_SHOW); UShowSL(BXN(2),ChainKI(ACF011.KI),V_SHOW); UShowM( BXN(3),ACF011.YM,V_SHOW); for(I=0; I<RNO; I++) { y=I+SNO; r=I+OffSet; memcpy(buf,ACF011A[r].AC,8); if(Utx_Chain(Tx,ACF011A[r].AC,XY(0),28,V_SHOW)==OFF) { if(buf[0]>SPACE) UWait(ON,"分錄:%I< 無 <%S-----> 科目",r+1,buf); else{ UShowSL(3,y,76,&Table[(SNO-4)*76],V_SHOW); continue; } } UShowSL(XN(2),ACF011A[r].RM,V_SHOW); UShowSL(XN(3)+1,ChainDC(ACF011A[r].DC),V_SHOW); UShowD( XN(4),ACF011A[r].AMT,",",V_SHOW); UShowM( XN(5),ACF011A[r].CYM,V_SHOW); } } /*===========================================================================*/ void Read1Page() { ACF011.KEY[6]=NULL; /*從每張的頭開始,故將分錄號碼清為NULL*/ memset(&ACF011A,NULL,sizeof(ACF011A)); /*讀資料時要先將Buffer清掉*/ for(DiskRec=0; DiskRec<ANO; DiskRec++) { sprintf(BufS,"%s%c",ACF011.KEY,DiskRec+2); /*從 2 開始讀*/ if(Ufk_Read(ACF011K,&ACF011A[DiskRec],BufS)==OFF) break; } memcpy(ACF011B,ACF011A,sizeof(ACF011B)); /*以供存入,刪除時修改用*/ if(DiskRec==0) /*保留傳票號碼,其他資料全部清除*/ { memset(&ACF011.KEY[0]+sizeof(ACF011.KEY),NULL,sizeof(ACF011)-sizeof(ACF011.KEY)); UShowS(SX,SY-1,"(新增)",V_CREATE); Update=OFF; ACF011.KI='2'; /*內定為轉帳傳票*/ } else { UShowS(SX,SY-1,"(修改)",V_EDIT); Update=ON; ACF011=ACF011A[0]; ACF011.KEY[6]=NULL; /*設給ACF011以便操作*/ } Modify=OFF; OffSet=0; Show1Page(); CalBalance(); /*讀入時一定要Modify=OFF*/ UShowI(7,SNO+RNO+1,3,DiskRec,"0",V_SHOW); } /*===========================================================================*/ void Write1Page() { int i,rec; if(Modify==OFF) return; if(ACF011.KEY[0]<=SPACE) { UWait(ON,".. 請 先 輸 入 傳 票 編 號 ! .."); RetKey=ENTER; return;} if(ChkYM(ACF011.YM,ON)==0){ RetKey=ENTER; return; } /*年度不符*/ if(ACF011.KI=='3' && CalBalance()==OFF){ UWait(ON,"借 貸 不 平 衡"); RetKey=ENTER; return; } if(AddCash()==OFF){ RetKey=ENTER; return; } /*補現金傳票*/ for(rec=i=0; i<ANO; i++) { if(ACF011A[i].AC[0]==NULL) continue; /* 1'st byte=NULL*/ sprintf(ACF011A[i].KEY,"%s%c",ACF011.KEY,rec+2); /*重新從 2 開始編*/ ACF011A[i].KI=ACF011.KI; ACF011A[i].YM=ACF011.YM; Ufk_Write(ACF011K,&ACF011A[i]); rec++; } for(i=rec; i<DiskRec; i++) /*刪除多出的資料項*/ { sprintf(BufS,"%s%c",ACF011.KEY,i+2); Ufk_Del(ACF011K,BufS); } if(Update) UpdateOld(); /*先刪除舊金額資料*/ UpdateNew(); /*再重新加入新金額資料*/ } /*===========================================================================*/ void UpdateACF001(FSACF011_T F011,int sw) { double amt; int m,dc; if(Ufk_Read(ACF001K,&ACF001,F011.AC)==OFF) return; if(sw==OFF) amt = -F011.AMT; /* UpdateOld,*/ else amt = F011.AMT; /* UpdateNew,*/ if(F011.DC=='D') dc=0; else dc=1; m=ChkYM(F011.YM,OFF); ACF001.AMT[dc][m] += amt; /* 累加月份借貸別金額*/ ACF001.DC_NO[dc][m] ++; /* 借貸處理數遞增*/ Ufk_Write(ACF001K,&ACF001); } /*===========================================================================*/ void UpdateNew() { int i; FSACF011_T F011,t; for(F011.AMT=0f,i=0; i<ANO; i++) { if(ACF011A[i].AC[0]<=SPACE) continue; /*無科目代號*/ F011.AMT += ACF011A[i].AMT; /*累加*/ UpdateACF001(ACF011A[i],ON); /*累加月份借貸別金額*/ if(ACF011A[i].AC[4]<=SPACE) continue; /*若為總帳科目則continue*/ t = ACF011A[i]; memset(&t.AC[4],SPACE,3); /*將明細改為總帳*/ UpdateACF001(t,ON); } if(ACF011.KI=='3') return; /*轉帳傳票*/ strcpy(F011.AC,"1101 "); /*現金傳票*/ if(ACF011.KI=='1') F011.DC='D'; if(ACF011.KI=='2') F011.DC='C'; F011.YM=ACF011.YM; UpdateACF001(F011,ON); /*累加現金月份借貸別金額*/ } /*===========================================================================*/ void UpdateOld() { int i; FSACF011_T F011; for(F011.AMT=0f,i=0; i<ANO; i++) { if(ACF011B[i].AC[0]<=SPACE) continue; F011.AMT += ACF011B[i].AMT; UpdateACF001(ACF011B[i],OFF); /*扣減月份借貸別金額*/ if(ACF011B[i].AC[4]<=SPACE) continue; /*若為總帳科目則continue*/ memset(&ACF011B[i].AC[4],SPACE,3); /*將明細改為總帳*/ UpdateACF001(ACF011B[i],OFF); } if(ACF011B[0].KI=='3') return; /*轉帳傳票,每分錄都一樣,故看[0]*/ strcpy(F011.AC,"1101 "); /*現金傳票*/ if(ACF011B[0].KI=='1') F011.DC='D'; /*借*/ if(ACF011B[0].KI=='2') F011.DC='C'; /*貸*/ F011.YM=ACF011B[0].YM; UpdateACF001(F011,OFF); /*扣減現金月份借貸別金額*/ } /*===========================================================================*/ void Del1Page() { UWait(ON,"若 確 定 要 刪 除 本 筆 資 料 ．請 再 按 F10"); if(RetKey!=F10) return; UpdateOld(); /*扣減各項月份借貸別金額*/ for(I=0; I<ANO; I++) { sprintf(BufS,"%s%c",ACF011.KEY,I+1); /*從補現金 1 開始刪*/ if(Ufk_Del(ACF011K,BufS)==OFF && I>0) break; } if(Ufk_PgUD(ACF011K,ACF011.KEY)==OFF) /*刪除後跳到下一筆*/ { memset(&ACF011,NULL,sizeof(ACF011)); memset(&ACF011A,NULL,sizeof(ACF011A)); } Read1Page(); } /*===========================================================================*/ int AddCash() /*補現金傳票,以ACF011.KEY為KEY*/ { FSACF011_T F011; memset(&F011,NULL,sizeof(F011)); /* 清為 null */ ACF011.KEY[6]=NULL; sprintf(F011.KEY,"%s%c",ACF011.KEY,1); /*分錄 1 為補現金項*/ strcpy(F011.AC,"1101 "); F011.KI=ACF011.KI; F011.YM=ACF011.YM; for(F011.AMT=0f, I=0; I<ANO; I++) { if(ACF011A[I].AC[0]==NULL) continue; /* 1'st byte=NULL*/ F011.AMT+=ACF011A[I].AMT; /*累加整張補現金用*/ if(ACF011.KI=='1' && ACF011A[I].DC=='D'){ UWait(ON,"第 %d 分錄不該為 (借) 吧 !!! , 請確認傳票別",I+1); return OFF;} if(ACF011.KI=='2' && ACF011A[I].DC=='C'){ UWait(ON,"第 %d 分錄不該為 (貸) 吧 !!! , 請確認傳票別",I+1); return OFF;} } if(ACF011.KI=='1'){ strcpy(F011.RM,"補現金收入傳票"); F011.DC='D'; } if(ACF011.KI=='2'){ strcpy(F011.RM,"補現金支出傳票"); F011.DC='C'; } if(ACF011.KI=='3' || F011.AMT==0f) Ufk_Del(ACF011K,F011.KEY); /*或許被修改才變成 3,或分錄加總為0,表無分錄,刪掉補現金分錄*/ else Ufk_Write(ACF011K,&F011); return ON; } /*===========================================================================*/ int CalBalance() { double sumD=0.0, sumC=0.0; int i, y=23, x=10; for(i=0; i<ANO; i++) { if(ACF011A[i].AC[0]==NULL) continue; /*科目代號為NULL,不計算*/ if(ACF011A[i].DC=='D') sumD += ACF011A[i].AMT; if(ACF011A[i].DC=='C') sumC += ACF011A[i].AMT; } UShowD(BX[x+0],y,BN[x+0],sumD,"0,<",V_SHOW); UShowD(BX[x+1],y,BN[x+1],sumC,"0,<",V_SHOW); UShowD(BX[x+2],y,BN[x+2],fabs(sumD-sumC),"0,<",V_SHOW); if(sumD==sumC) return ON; else return OFF; } /*===========================================================================*/ char *ChainKI(char KI) { switch(KI) { case '1': return " 現金收入傳票 "; case '2': return " 現金支出傳票 "; case '3': return " 轉 帳 傳 票 "; default : return " "; } } /*===========================================================================*/ char *ChainDC(char DC) { switch(DC) { case 'D': return " 借"; case 'C': return " 貸"; default : return " "; } } /*===========================================================================*/ void SetMemo() /*設摘要索引資料*/ { TxMemo=Utx_Open(37,4,76,23,120,34,OFF); lseek(ACF002K->kfd,0L,SEEK_SET); RetKey=ON; while(RetKey) { if(Ufk_SeqRead(ACF002K,&ACF002,"","") != ON) continue; Utx_Add(TxMemo,"%S--------------------------------",ACF002.RM); } } /*===========================================================================*/ int SetCon() { int i=1,md=Modify,x=21,y=SNO-1,no=4; /* no=設定項目 */ char Yn='N'; Wo=Uwo_Open(x-6,y,x+51,y+no*2+2); Uwo_DrawBar(Wo,V_WBOX,V_W_IN,YES,3); y+=2; UShowSL(x,y,10,"起始日期:",V_W_IN); UShowM(x+10,y,8,Sday,V_WUSR); y+=2; UShowSL(x,y,10,"結止日期:",V_W_IN); UShowM(x+10,y,8,Eday,V_WUSR); y+=2; UShowSL(x,y,10,"會計科目:",V_W_IN); UShowSL(x+10,y,7,SelKey,V_WUSR); y+=2; UShowSL(x,y,16,"執行(YN): N",V_W_IN); x+=10; do { y = SNO-1+2*i; if(i==1) UReadM(x,y,8,&Sday,0,V_WUSR,V_READ); if(i==2) UReadM(x,y,8,&Eday,0,V_WUSR,V_READ); if(i==3){ UReadS(x,y,7,SelKey,"NL",V_WUSR,V_READ); if(RetKey==F4) Utx_Pick(Tx,SelKey,0,0,0,"",V_WUSR); Utx_Chain(Tx,SelKey,x,y,28,V_WUSR); } if(i==4) UReadC(x,y,1,&Yn,"YN",V_WUSR,V_READ_F); if(RetKey==LEFT || RetKey==UP) if(--i<1) i=no; if(RetKey==RIGHT || RetKey==DOWN) if(++i>no) i=1; }while(Yn!='Y' && RetKey!=ESC); Modify=md; Uwo_Close(Wo); return RetKey; } /*===========================================================================*/ void ACF011Qry() { double a,b,d=0f,c=0f; TEXT *tx; int md=Modify; if(SetCon()==ESC){ Modify=md; return; } tx=Utx_Open(3,4,76,23,1200,75,OFF); Utx_GetS(Tx,TmpS,SelKey,0); Utx_AddHead(tx,"%S--------------------------- %M------ 到 %M------ ",TmpS,Sday,Eday); Utx_AddHead(tx,"======================================================================"); Utx_AddHead(tx,"傳票號 傳票日期 摘 要 借方金額 貸方金額"); Utx_AddHead(tx,"------ -------- ------------------------------ =========== ==========="); READ1(ACF011) { if(memcmp(p->AC,SelKey,7)!=0) continue; if(UMidDate(Sday,p->YM,Eday)==OFF) continue; if(p->DC=='D'){ a=p->AMT; b=0f; d+=a; } else { b=p->AMT; a=0f; c+=b; } Utx_Ins(tx,"%S---- %M------ %S---------------------------- %f,-------- %f,--------",p->KEY,p->YM,p->RM,a,b); } READ2 Utx_Add(tx ,"----------------------------------------------------------------------"); Utx_Add(tx ," (合計) %f,--------- %f,--------",d,c); Str=Utx_Pick(tx,TmpS,0,0,0,"",V_SHOW); Modify=md; if(Str){ Write1Page(); if(RetKey!=ENTER) /*借貸平衡*/ { Utx_GetFmt(tx,TmpS,"0S",ACF011.KEY); Read1Page(); } } Utx_Close(tx); } /*===========================================================================*/ void CopyACFA11() { static TEXT *tx; static int HasRead=OFF; FSACFA11_T ACFA11; if(ACF011.KEY[0]<=SPACE){ UWait(ON,"無傳票編號"); return; } for(I=0; I<ANO; I++) if(ACF011A[I].AC[0]>SPACE) break; if(I<ANO){ UWait(ON,"目前已有分錄, 若確定要取銷資料.請再按 F8"); if(RetKey!=F8) return; } if(HasRead==OFF) { OPEN_ACFA11; tx=Utx_Open(43,4,76,23,300,5,OFF); READ1(ACFA11) { Utx_Search(tx,p->KEY); if(tx->FIND==OFF) Utx_Ins(tx,"%S-- %S------------------",p->KEY,p->NAM); } READ2 HasRead=ON; } if(Utx_Pick(tx,SelKey,0,0,0,"",V_SHOW)==OFF) return; memset(&ACF011A,NULL,sizeof(ACF011A)); Modify=ON; Write1Page(); if(RetKey==ENTER) return; /*借貸不平衡*/ for(I=0; I<ANO; I++) { sprintf(BufS,"%s%c",SelKey,I+2); if(Ufk_Read(ACFA11K,&ACFA11,BufS)==OFF) break; strcpy(ACF011A[I].AC,ACFA11.AC); strcpy(ACF011A[I].RM,ACFA11.RM); ACF011.KI=ACFA11.KI; ACF011A[I].DC =ACFA11.DC; ACF011A[I].AMT=ACFA11.AMT; } Modify=ON; OffSet=0; Show1Page(); } /*===========================================================================*/ int Half=OFF; #ifdef HP-5L /*1998/9/07*/ #define RowN 8 /*每半頁幾列科目分錄*/ #define K0n (RowN*2+6) /*K0計數,判斷是否滿半頁的列數(含分割線)*/ #define MaxK0 35 /*含合計,簽名以後,小於半頁MaxK0,都補空白列*/ #else #define RowN 12 #define K0n 30 #define MaxK0 37 #endif void PrintData() { Write1Page(); if(RetKey==ENTER) return; Modify=OFF; /*RetKey==ENTER,借貸不平衡*/ UGetTitle(" 資 料 列 印 "); Ugd_Open("F7:列印 Esc:放棄"); UDrawBox(21,8,64,12,V_WBOX, V_W_IN, YES, 3); UShowS(25,10, "傳票編號自: → ",V_W_IN); UShowSL(37,10,6,ACF011.KEY,V_WUSR); strcpy(Ekey,ACF011.KEY); UShowSL(47,10,6,Ekey,V_WUSR); do UReadS(47,10,6,Ekey,"NL3",V_WUSR,V_READ); while(RetKey!=F7 && RetKey!=ESC); if(RetKey==ESC){ Ugd_Close(); return;} if(Pe2) Stream=fopen("TMP.$$$","w+"); /*由 PE2 印出, 98/06/16*/ else { if(UInitLpt()==OFF){ Ugd_Close(); return; } Stream=stdprn; } Psf='P'; Print1Page(); RetKey=PGDN; Field=1; while(1) { if(Ufk_PgUD(ACF011K,ACF011.KEY)==OFF) break; Read1Page(); if(memcmp(ACF011.KEY,Ekey,6)>0) break; Print1Page(); } if(Half==ON){ fprintf(Stream,"%c",12); Half=OFF; } /*換頁,免得留在buffer*/ Ugd_Close(); if(Pe2){ fclose(Stream); system("pe2 tmp.$$$"); Pe2=OFF; } } /*===========================================================================*/ double Dsum,Csum; void Print1Page() { int i,j; P0=K0=1; Dsum=Csum=0f; for(i=0; i<ANO && P0; i+=RowN) { K0=1; ShowHead(); for(j=i; j<i+RowN && P0; j++) { if(ACF011A[j].AC[0]<=SPACE){ EndPage(OFF); return; } /*結束列印*/ ShowData(j); } } } /*===========================================================================*/ void ShowHead() { char s1[20]; sprintf(SelKey,"%06s(%d)",ACF011.KEY,P0++); #ifdef HP-5L /*1998/8/27*/ fprintf(Stream,"~IL0G2;"); strcpy(s1,"~Z2W1X20"); PrHEAD; #else fprintf(Stream,"~IL0Z2W1G2X3;"); strcpy(s1,"~Z1"); UPrint(" "); PrHEAD; /*加印一空白列,98/09/07*/ #endif } /*===========================================================================*/ void ShowData(int i) { Utx_GetS(Tx,LastKey,ACF011A[i].AC,8); if(ACF011A[i].DC=='D'){ UPrint(PrSTYLED,PrDATA); Dsum+=ACF011A[i].AMT; } else { UPrint(PrSTYLEC,PrDATA); Csum+=ACF011A[i].AMT; } PrSPILT /*列印分隔線 */ if(K0>=K0n) /*滿半頁的列數*/ { if(ACF011A[i+1].AC[0]>SPACE) EndPage(ON); else { EndPage(OFF); P0=0; } } } /*===========================================================================*/ void EndPage(int sw) { while(K0<16) { PrNULL; PrSPILT; } if(sw==OFF) PrSUM else PrNEXT /*31*/ PrEND /*32,33*/ #ifdef HP-5L /*1998/8/27*/ if(Half==OFF) /*前半頁*/ { while(K0<=MaxK0) UPrint(" "); Half=ON; } /*小於半頁,都補空白列*/ else /*後半頁*/ { fprintf(Stream,"%c",12); Half=OFF; } #else while(K0<=MaxK0) UPrint(" "); /*小於半頁,都補空白列*/ fprintf(Stream," ~L5; \n"); #endif } /*===========================================================================*/ void ModifyF011() { FSACF011_T F011; int x1=17, x2=x1+43, y1=16, y2=y1+4; Ugd_Open("F7:執行 Esc:放棄"); UDrawBox(x1,y1,x2,y2,V_WARNING, V_W_IN, YES, 3); UShowS(x1+4,y1+2, "傳票編號由: 改為 ",V_W_IN); UShowSL(x1+16,y1+2,6,ACF011.KEY,V_WUSR); strcpy(Ekey,ACF011.KEY); UShowSL(x1+28,y1+2,6,Ekey,V_WUSR); do UReadS(x1+28,y1+2,6,Ekey,"NL3",V_WUSR,V_READ); while(RetKey!=F7 && RetKey!=ESC); Ugd_Close(); if(RetKey==ESC) return; sprintf(BufS,"%s%c",Ekey,2); /*從 2 開始讀,檢查是否已存在*/ if(Ufk_Read(ACF011K,&F011,BufS)==ON) { UWait(ON,"傳票 <%s> 已有資料",Ekey); Field=3; return; } strcpy(Skey,ACF011.KEY); /*保存原KEY值,刪除參考*/ strcpy(ACF011.KEY,Ekey); Write1Page(); /*改變KEY值,寫入,UpdateOld()扣減各項月份借貸別金額*/ for(I=0; I<ANO; I++) { sprintf(BufS,"%s%c",Skey,I+1); /*從補現金 1 開始刪*/ if(Ufk_Del(ACF011K,BufS)==OFF && I>0) break; } } 原始檔－結束
Byron Wey Oct.21.1998
