IV/ Tổ chức thực hiện:
c. Chơng trình vào sổ nhật biên ủy thác xuất khẩu:
- Tên chơng trình: VNBUTXK. DBF - Nội dung chơng trình:
*CHUONG TRINH VAO SO NHAT BIEN THEO DOI HANG UY THAC XUAT KHAU KHAU
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 NHAT BIEN HANG UY THAC XUAT KHAU
',78)
@ 3,1 SAY
PADC('=======================================',78)
INPU PADC( 'VAO DAU THANG (AN 1),VAO TIEP THANG(AN
0)?',78) TO X USE SNBUTXK USE SNBUTXK 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 HOP DONG:' GET SHD
READ IF SHD=0 IF SHD=0
EXIT
ENDI
@ 9,20 SAY 'NGAY HOP DONG UY THAC XUAT KHAU:' GET NHD
@ 10,20 SAY 'TEN KHACH HANG GIAO UY THAC XUAT KHAU:' GET
TKHANG
@ 11,20 SAY 'TEN HANG UY THAC XUAT KHAU:' GET TENHANG @ 12,20 SAY 'TRI GIA XUAT KHAU NGOAI TE:' GET TGXKNT @ 12,20 SAY 'TRI GIA XUAT KHAU NGOAI TE:' GET TGXKNT
@ 13,20 SAY 'NGAY THANG BAO CO:' GET NTBC
@ 14,20 SAY 'TRI GIA NGOAI TE BAO CO:' GET TGBCNT
@ 15,20 SAY 'TRI GIA BAO CO QUI RA VIET NAM DONG:' GET TGBCVND TGBCVND
@ 16,20 SAY 'CHENH LECH TY GIA:' GET CLECH
@ 17,20 SAY ' CHI PHI BEN GIAO UY THAC CHIU:' GET CPTH @ 18,20 SAY 'SO TIEN PHAI TRA BEN GIAO UY THAC:' GET @ 18,20 SAY 'SO TIEN PHAI TRA BEN GIAO UY THAC:' GET
STPTBUT
@ 19,20 SAY 'SO CHUNG TU THANH TOAN CHO BEN GIAO UY THAC:' GET SCTTT GET SCTTT
@ 21,20 SAY 'SO TIEN THANH TOAN CHO BEN UY THAC:' GET STTTBUT STTTBUT READ ENĐ CLEA ALL SET SAFE ON SET TALK ON RETU