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 PARA X 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 SET SAFE OFF CLEA ALL
CLEA
SET DEVI TO PRIN
SET PRIN TO FILE KQ1.TXT USE SNKC USE SNKC
TH=MONT(NT) NA=YEAR(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) 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) +STR(SCT,3)+'!'+DTOC(NT) +'!'+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,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 SET PRIN TO 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 TALK OFF
SET SAFE OFF CLEA ALL CLEA ALL CLEA
SET DEVI TO PRIN
SET PRIN TO FILE KQ2.TXT USE SNBTK112 USE SNBTK112
TH= MONT(NT) NA=YEAR(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 TD3 @ 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,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