IV/ Tổ chức thực hiện:
l. Chơng trình in sổ cái cho các tài khỏan:
- Tên chơng trình: INSCAỊ DBF - Nội dung chơng trình:
*CHUONG TRINH IN SO CAI CHO CAC TAI KHOAN 112,157,131 SET TALK OFF SET TALK OFF
SET SAFE OFF CLEA ALL CLEA ALL
SET DEVI TO PRIN
SET PRIN TO FILE KQ5.TXT T=1 T=1
DO WHIL T=1 CLEA CLEA
INPÚIN CHO TK (112/131/157) ? ' TO TK
USE STENTK LOCA FOR TK=SHTK LOCA FOR TK=SHTK TEN =TENTK TS='SCAÍ+ALLT(STR(TK,4)) USE &TS TH=MONT(NT) NA=YEAR(NT)
NG='HA NOI,NGAY '+IIF(TH=2,'28'
,IIF(TH=4.OR.TH=6.OR.TH=9.OR.TH=11,'30','31'))+' THANG'+STR(TH,2)+' NAM 20'+RIGHT(STR(NA,4),2) THANG'+STR(TH,2)+' NAM 20'+RIGHT(STR(NA,4),2) TD1='! NTGS !SCT! NT ! DIEN
GIAI !TSNKC!SHTK! SPSNO ! SPSCO !' DRB=LEN(TD1) DRB=LEN(TD1)
TD2='CONG TY ARTEXPORT'+PADC('SO CAÍ,DRB-17) TD3=SPAC(5)+'HA NOÍ+SPAC(6)+PADC('TAI KHOAN'+ TD3=SPAC(5)+'HA NOÍ+SPAC(6)+PADC('TAI KHOAN'+
STR(TK,4)+'- '+TEN,DRB-17)
TD4=SPAC(DRB-25)+'DON VI: 1000 DONG' TD5=REPL('-',DRB) TD5=REPL('-',DRB) @ PROW()+1,1 SAY TD2 @ PROW()+1,1 SAY TD3 @ PROW()+1,1 SAY TD4 @ PROW()+1,1 SAY TD5 @ PROW()+1,1 SAY TD1 @ PROW()+1,1 SAY TD5 SCAN
@ PROW()+1,1 SAY '!'+DTOC(NTGS)+ '!'+STR(SCT,3)+ '!'+DTOC(NT)+'!'+DGIAI+'!'+STR(TSNKC,5)+'!'+ '!'+DTOC(NT)+'!'+DGIAI+'!'+STR(TSNKC,5)+'!'+
STR(SHTK,4)+'!'+DCHAM9(SPSNO)+'!'+DCHAM9(SPSCO)+'! ENDS ENDS
@ PROW()+1,1 SAY TD5 SUM SPSNO,SPSCO TO X1,X2 SUM SPSNO,SPSCO TO X1,X2
@ PROW()+1,1 SAY '!'+PADC('CONG',58) +'!' +SPAC(4)+'!'+DCHAM9(X1)+'!'+DCHAM9(X2)+'!' +SPAC(4)+'!'+DCHAM9(X1)+'!'+DCHAM9(X2)+'!' @ PROW()+1,1 SAY TD5
@ PROW()+1,DRB-36 SAY NG @ PROW()+1,1 SAY SPAC(DRB) @ PROW()+1,1 SAY SPAC(DRB)
@ PROW()+1,14 SAY 'NGUOI GHI Sể +SPAC(15)+'KE TOAN TRUONG' +SPAC(15)+'GIAM DOC'
EJEC CLEA CLEA
INPÚCO IN TIEP CHO TAI KHOAN KHAC KHONG ? (CO:1/KHONG:0)' TO T TO T
CLEA ALL CLEA CLEA
SET DEVI TO SCRE SET PRIN TO SET PRIN TO
MODI COMM KQ5.TXT RETU RETU
m.Chơng trình thực đơn:
- Tên chơng trình: MENỤDBF - Nội dung chơng trình:
*CHUONG TRINH THUC DON SET TALK OFF SET TALK OFF
SET DEVI TO SCRE CLEA ALL CLEA ALL
CLEA
DO WHIL .T.
@ 6,15 SAY PADC('DIEN TOAN KE TOAN XUAT KHAU HANG HOÁ,70) HOÁ,70)
@ 5,14 TO 7,75 DOUB
@ 9,20 PROM PADC('1.VAO SO NHAT KI CHUNG,70')
@ 10,20 PROM PADC('2.VAO SO NHAT BIEN TAI KHOAN 112',70) @ 11,20 PROM PADC('3.VAO SO NHAT BIEN UY THAC XUAT @ 11,20 PROM PADC('3.VAO SO NHAT BIEN UY THAC XUAT
KHAU’,70)
@ 12,20 PROM PADC('4.VAO SO CHI TIET TAI KHOAN 157’,70) @ 13,20 PROM PADC('5.DUNG SO CAI TAI KHOAN 112’,70) @ 13,20 PROM PADC('5.DUNG SO CAI TAI KHOAN 112’,70) @ 14,20 PROM PADC('6.DUNG SO CAI TAI
KHOAN157,131,333’,70)
@ 15,20 PROM PADC('7.IN SO NHAT KY CHUNG’,70)
@ 16,20 PROM PADC('8.IN SO NHAT BIEN TAI KHOAN 112,70)
@ 17,20 PROM PADC('9.IN SO NHAT BIEN THEO DOI HANG UY THAC XUAT KHAU’,70) XUAT KHAU’,70)
@ 18,20 PROM PADC('10.IN SO CHI TIET TAI KHOAN 157’,70) @ 19,20 PROM PADC('11.IN SO CAI CAC TAI KHOAN’,70) @ 19,20 PROM PADC('11.IN SO CAI CAC TAI KHOAN’,70)
@ 20,20 PROM PADC('12.KET THUC’,70) @ 8,14 TO 60,75 DOUB @ 8,14 TO 60,75 DOUB MENU TO X DO CASE CASE X=1 DO VNKC1 CASE X=2 DO VSNB112 CASE X=3 Phạm Thị Thanh Tâm Lớp 34-D594
DO VSNBUTXK CASE =4 CASE =4 DO VSCTTK157 CASE CV=5 DO VKHTSCD CASE X=6 DO DSCAI CASE X=7 DO INNKC CASE X=8 DO INSNB112 CASE X=9 DO INNBUTXK CASE X=10 DO INSCT157 CASE X=11 DO INSCAI OTHE EXIT ENDC ENĐ CLEA ALL SET TALK ON RETU 4. Khai thác và sử dụng chơng trình:
Hệ thống chơng trình của bài toán ứng dụng máy vi tính trong kế tóan xuất khẩu đợc khai thác sử dụng thông qua MENU làm việc. Để sử dụng hệ thống chơng trình ta chỉ cần đa vào lệnh: DO MENU thì một bảng chọn sẽ hiện ra màn hình có dạng nh sau: