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 DEVI TO SCRE
SET TALK OFF SET SAFE OFF SET SAFE OFF SET DATE ITAL CLEA ALL
CLEA
@ 2,1 SAY PADC('VAO SO CHI TIET TAI KHOAN 157',78) @ 3,1 SAY PADC('==============================',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) @ 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 @ 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 @ 13,20 SAY 'SO TIEN PHAT SINH NO:' GET SPSNO @ 14,20 SAY 'SO TIEN PHAT SINH CO:' GET SPSCO
READ ENĐ ENĐ
DELE FOR SPSNO=0.AND.SPSCO=0 PACK PACK
CLEA ALL SET SAFE ON 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 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 SELE 2 SKIP ENĐO CLEA ALL CLEA SET TALK ON RETU