IV/ Tổ chức thực hiện:
d. Chơng trình vào sổ chi tiết TK157:
- Tên chơng trình: VSCTTK157. DBF - Nội dung chơng trình:
*CHUONG TRINH VAO SO CHI TIET TAI KHOAN 157
SET DEVI TO SCRE
SET TALK OFF
SET SAFE OFF SET DATE ITAL SET DATE ITAL CLEA ALL
CLEA
@ 2,1 SAY PADC('VAO SO CHI TIET TAI KHOAN 157',78)
@ 3,1 SAY PADC('==============================',78)
INPU PADC( 'VAO DAU KY (AN1), VAO TIEP THANG(AN 0)?',78) TO X TO X USE SCTTK157 IF X=1 ZAP ENDI DO WHIL .T. APPE BLAN @ 4,1 TO 24,79 CLEA
@ 5,1 SAY PADC( 'VAO CHUNG TU MOI: ',78)
@ 6,1 SAY PADC('---',78)
@ 8,20 SAY 'SO CHUNG TU :' GET SCT
READ IF SCT=0 IF SCT=0 EXIT
ENDI
@ 9,20 SAY 'CHUNG TU:' GET CTU
@ 10,20 SAY 'NGAY THANG CHUNG TU:' GET NGAY
@ 11,20 SAY 'DIEN GIAI:' GET DGIAI
@ 12,20 SAY 'TAI KHOAN DOI UNG:' GET TKDU
@ 13,20 SAY 'SO TIEN PHAT SINH NO:' GET SPSNO @ 14,20 SAY 'SO TIEN PHAT SINH CO:' GET SPSCO @ 14,20 SAY 'SO TIEN PHAT SINH CO:' GET SPSCO
READ ENĐ ENĐ
DELE FOR SPSNO=0.AND.SPSCO=0
PACK
CLEA ALL
SET SAFE ON
SET TALK ON
RETU
ẹ Chơng trình dựng sổ cái tài khỏan 112:
- Tên chơng trình: DSCTK112. DBF - Nội dung chơng trình:
*DAY LA CHUONG TRINH DUNG SO CAI TK112
SET TALK OFF
CLEA CLEA ALL CLEA ALL DIME X(4) SELE 1 USE SCAI112 ZAP SELE 2 USE SNBTK112 GO 1 DO WHIL .NOT.EOF() FOR I=1 TO 4 TC=FIEL(I) X(I)=&TC ENDFOR Y5=TKDU Y6=SPSNOVND Y7=SPSCOVND SELE 1 APPE BLAN FOR I=1 TO 4 TC=FIEL(I)
REPL &TC WITH X(I)
ENDFOR
REPL SHTK WITH Y5,SPSNO WITH Y6,SPSCO WITH Y7
SELE 2 SKIP SKIP ENĐO CLEA ALL CLEA SET TALK ON RETU