IV/ Tổ chức thực hiện:
g. Chơng trình điền dấu chấm:
- Tên chơng trình:DCHAM9. DBF - Nội dung chơng trình:
*CHUONG TRINH DIEN DAU CHAM
PARA X PRIV ALL PRIV ALL Z=STR(X,9) Z1=LEFT(Z,3) Z2=SUBS(Z,4,3) Z3=RIGHT(Z,3) KQ=Z1+IIF(Z1#SPAC(3),'.',' ')+Z2+IIF(Z2#SPAC(3),'.',' ') +Z3 RETU KQ h. Chơng trình in sổ nhật ký chung :
- Tên chơng trình: INNKC. DBF - Nội dung chơng trình:
*CHUONG TRINH IN SO NHAT KY CHUNG
SET TALK OFF
SET SAFE OFF
CLEA
SET DEVI TO PRIN
SET PRIN TO FILE KQ1.TXT
USE SNKC
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'+ OR.TH=11,'30','31'))+'THANG '+STR(TH,2)+' NAM 20'+ RIGH(STR(NA,4),2) TD1='! NTGS !SCT! N/THANG! DIEN GIAI ! DGSC!SHTK! SO P/S NO ! SO P/S CO ! GHI CHU !' DRB=LEN(TD1) TD2='CONG TY ARTEXPORT' TD21='SO NHAT KY CHUNG'
TD3='HA NOÍ
TD31='THANG '+STR(TH,2)+' NAM 20'+RIGH(STR(NA,4),2)
TD4=REPL('-',DRB)
TD5=SPAC(DRB-25)+'DON VI:1000 DONG'
@PROW()+1,1 SAY TD2+SPAC(INT((DRB-LEN(TD21))/2)-LEN(TD2))+TD21 +TD21
@ PROW()+1,1 SAY SPAC(INT((LEN(TD2)-LEN(TD3))/2))
+TD3+SPAC(INT((DRB-LEN(TD31))/2)-LEN(TD3)-INT((LEN(TD2)-LEN(TD3))/2))+TD31 LEN(TD3))/2))+TD31 @ PROW()+1,1 SAY TD5 @ PROW()+1,1 SAY TD4 @ PROW()+1,1 SAY TD1 @ PROW()+1,1 SAY TD4 SCAN
@ PROW()+1,1 SAY '!'+DTOC(NTGS)+'!'
+STR(SCT,3)+'!'+DTOC(NT)+'!'+DGIAI+'!'+DGSC+'!'+STR(SHTK,4)+'!'+DCHAM9(SPSNO) +'!'+DGIAI+'!'+DGSC+'!'+STR(SHTK,4)+'!'+DCHAM9(SPSNO) +'!'+DCHAM9(SPSCO)+'!'+GCHỨ!' ENDS @ PROW()+1,1 SAY TD4 SUM SPSNO,SPSCO TO X1,X2
@ PROW()+1,1 SAY '!'+SPAC(22)+PADC('CONG',30) +SPAC(11) + '!'+DCHAM9(X1)+'!'+DCHAM9(X2)+'!'+SPAC(20)+'!' '!'+DCHAM9(X1)+'!'+DCHAM9(X2)+'!'+SPAC(20)+'!'
@ PROW()+1,1 SAY TD4
@ PROW()+1,DRB-36 SAY NG
@ PROW()+1,15 SAY 'NGUOI GHI Sể+SPAC(22)+'KE TOAN TRUONG' +SPAC(22)+'GIAM DOC'
EJEC
SET DEVI TO SCRE
SET PRIN TO MODI COMM KQ1.TXT MODI COMM KQ1.TXT CLEA ALL CLEA RETU Phạm Thị Thanh Tâm Lớp 34-D588
ị Chơng trình in sổ nhật biên tài khỏan 112
- Tên chơng trình: INNB112. DBF - Nội dung chơng trình:
*CHUONG TRINH IN SO NHAT BIEN TAI KHOAN 112
SET TALK OFF
SET SAFE OFF CLEA ALL CLEA ALL
CLEA
SET DEVI TO PRIN
SET PRIN TO FILE KQ2.TXT
USE SNBTK112 TH= MONT(NT) 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) '+STR(TH,2)+' NAM 20'+RIGHT(STR(NA,4),2)
TD1='! NTGS !SCT! N/THANG! DIEN
GIAI !TKDU!SPSNO (USD)!SPSCO (USD)!SPSNO (VND)!SPSCO (VND)!' SPSCO (VND)!'
TD2=LEN(TD1)
TD3='CONG TY ARTEXPORT'+SPAC(20)+'SO NHAT BIEN TAI KHOAN 112' 112'
TD4=SPAC(4)+'HA NOÍ+SPAC(30)+'THANG '+STR(TH,2)+' NAM 20'+RIGHT(STR(NA,4),2) 20'+RIGHT(STR(NA,4),2)
TD5=REPL('-',TD2)
TD6=SPAC(TD2-25)+'DON VI: 1000 DONG'
@ PROW()+1,1 SAY TD3 @ PROW()+1,1 SAY TD4 @ PROW()+1,1 SAY TD4 @ PROW()+1,1 SAY TD6 @ 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(TKDU,4)+'!'+DCHAM9(SPSNOUSD)+ '!'+DCHAM9 '!'+DGIAI+' !'+STR(TKDU,4)+'!'+DCHAM9(SPSNOUSD)+ '!'+DCHAM9 (SPSCOUSD) +'!'+DCHAM9(SPSNOVND)+'!'+DCHAM9(SPSCOVND)+'!'
ENDS
@ PROW()+1,1 SAY TD5
SUM SPSNOUSD,SPSCOUSD,SPSNOVND,SPSCOVND TO X1,X2,X3,X4
@ PROW()+1,1 SAY '!'+SPAC(8)+'!'+SPAC(3)+'!' +SPAC(8) +'!' +SPAC(12)+'CONG'+SPAC(14)+'!'+SPAC(4)+'!'+DCHAM9(X1)+'!'+ +SPAC(12)+'CONG'+SPAC(14)+'!'+SPAC(4)+'!'+DCHAM9(X1)+'!'+ DCHAM9(X2)+'!'+DCHAM9(X3)+'!'+DCHAM9(X4)+'!'
@ PROW()+1,1 SAY TD5
@ PROW()+1,TD2-36 SAY NG
@ PROW()+1,1 SAY SPAC(TD2)
@ PROW()+1,17 SAY 'NGUOI GHI Sể+SPAC(20)+'KE TOAN TRUONG'
+SPAC(20)+'GIAM DOC'
SET DEVI TO SCRE SET PRIN TO SET PRIN TO MODI COMM KQ2.TXT CLEA ALL CLEA RETU