csdl2_chungtulienquan
Chứng từ kế toán tài sản cố định::
Biên bản giao nhận tài sản cố định
Biên bản thanh lý TSCD
Biên bản giao nhận TSCD SCL đã hoàn thành
BIên bản kiểm kê TSCD
BIên bản đánh giá lại TSCD
Bảng tính và phân bổ khấu hao TSCD
Các tài liệu kĩ thuật có liên quan
Chứng từ kế toán tính lương::
Bảng thanh toán tiền lương
Bảng thanh toán tiền thưởng
Chứng từ kế toán tạm ứng::
Giấy đề nghị tạm ứng
Phiếu chi tạm ứng
Phếu thu
Giấy thanh toán tạm ứng: kèm theo các chứng từ gốc liên quan như: Phiếu nhập kho.hóa đơn bán hàng, Biên bản giao nhậnTSCD
Các khoản chi không kết nhập lại:N ếu nập quỹ thì có phiếu Thu, Nhập kho thì có phiếu nhập kho
Kế toán phải thu khách hàng::
Phiếu thu
Hóa đơn GTGT
***********************************************************************************************************************************
Nếu nhập một chứng từ chứa đối tượng hay tài khoản chưa có trong bảng mã sẽ xuất hiện hộp thoại để hỏi “ Đối tượng / TK không có trong bảng mã ! Có bổ sung hay không ? “ . Trả lời “ Có “ – sẽ bổ sung vào bảng mã tương ứng , “ Không “ - sẽ thoát khỏi việc nhập và thông báo không nhập chứng từ đó .
-Sự kiện lost focus của txtTkno
Select taikhoan
SET ORDER TO matk
SEEK ALLTRIM(thisform.txtTkno.value)
IF FOUND()
RETURN
ELSE
MESSAGEBOX(“Mã TK không có trong bảng mã!Có bổ sung không?”,4+32,”Cảnh báo”)=y
IF y=6
DO FORM form\taikhoan
READ EVENTS
ELSE
MESSAGE(“Không nhập chứng từ này?”,0+32)
Thisform.txtSophieu.value=’ ’
Thisform.txtNgayphieu.value=CTOD(‘ ’)
Thisform.txtTkno.value=’ ‘
Thisform.txtTkco.value=’ ‘
Thisform.txtSotien.value=VAL(‘ ‘)
Thisform.txtMakh.value=’ ’
Thisform.txtLydo.value=’ ‘
Thisform.txtTkno.SetFocus()
Return
ENDIF
ENDIF
-Sự kiện lost focus của txtTkco
Select taikhoan
SET ORDER TO matk
SEEK ALLTRIM(thisform.txtTkno.value)
IF FOUND()
RETURN
ELSE
MESSAGEBOX(“Mã TK không có trong bảng mã!Có bổ sung không?”,4+32,”Cảnh báo”)=y
IF y=6
DO FORM form\taikhoan
READ EVENTS
ELSE
MESSAGE(“Không nhập chứng từ này?”,0+32)
Thisform.txtSophieu.value=’ ’
Thisform.txtNgayphieu.value=CTOD(‘ ’)
Thisform.txtTkno.value=’ ‘
Thisform.txtTkco.value=’ ‘
Thisform.txtSotien.value=VAL(‘ ‘)
Thisform.txtMakh.value=’ ’
Thisform.txtLydo.value=’ ‘
Thisform.txtTkco.SetFocus()
Return
ENDIF
ENDIF
-Sự kiện lost focus của txtMakh
Select khachhang
SET ORDER TO makh
SEEK ALLTRIM(thisform.txtMakh.value)
IF FOUND()
RETURN
ELSE
MESSAGEBOX(“Mã khách hàng không có trong bảng mã!Có bổ sung không?”,4+32,”Cảnh báo”)=y
IF y=6
DO FORM form\khachhang
READ EVENTS
ELSE
MESSAGE(“Không nhập chứng từ này?”,0+32)
Thisform.txtSophieu.value=’ ’
Thisform.txtNgayphieu.value=CTOD(‘ ’)
Thisform.txtTkno.value=’ ‘
Thisform.txtTkco.value=’ ‘
Thisform.txtSotien.value=VAL(‘ ‘)
Thisform.txtMakh.value=’ ’
Thisform.txtLydo.value=’ ‘
Thisform.txtMakh.SetFocus
Return
ENDIF
ENDIF
-Sự kiện lost focus của txtHoadon
Select hoadon
SET ORDER TO sohd
SEEK ALLTRIM(thisform.txtHoadon.value)
IF FOUND()
RETURN
ELSE
MESSAGEBOX(“Mã hóa đơn không có trong bảng mã!Có bổ sung không?”,4+32,”Cảnh báo”)=y
IF y=6
DO FORM form\hoadon
READ EVENTS
ELSE
MESSAGE(“Không nhập chứng từ này?”,0+32)
Thisform.txtSophieu.value=’ ’
Thisform.txtNgayphieu.value=CTOD(‘ ’)
Thisform.txtTkno.value=’ ‘
Thisform.txtTkco.value=’ ‘
Thisform.txtSotien.value=VAL(‘ ‘)
Thisform.txtMakh.value=’ ’
Thisform.txtLydo.value=’ ‘
Thisform.txtHoadon.value=’ ‘
Thisform.txtTkno.SetFocus()
Return
ENDIF
ENDIF
-Sự kiện Click của nút Nhập tiếp
Select phieutc
DELETE FOR empty(sophieu)
SET DELETED ON
SET ORDER TO sophieu
SEEK ALLTRIM(thisform.txtSophieu.value)
IF FOUND()
MESSAGEBOX(“Số phiếu vừa nhập đã tồn tại.Nhập lại!!!”,0)
Thisform.txtSophieu=’ ’
Thisform.txtMakh.SetFocus
RETURN
ENDIF
Select phieutc
Thisform.txtSophieu.value=x1
Thisform.txtNgayphieu.value=x2
Thisform.txtTkno.value=x3
Thisform.txtTkco.value=x4
Thisform.txtSotien.value=x5
Thisform.txtMakh.value=x6
Thisform.txtLydo.value=x7
Thisform.txtHoadon.value=x8
INSERT INTO phieutc(sophieu,ngayphieu,tkno,tkco,sotien,makh,lydo,sohd) Values(x1,x2,x3,x4,x5,x6,x7,x8) //Có thể dùng REPLACE(tùy)
Thisform.txtSophieu=’ ’
Thisform.txtNgayphieu=CTOD(‘ ’)
Thisform.txtTkno.value=’ ‘
Thisform.txtTkco.value=’ ‘
Thisform.txtSotien.value=VAL(‘ ‘)
Thisform.txtMakh.value=’ ’
Thisform.txtLydo.value=’ ‘
Thisform.txtHoadon.value=’ ‘
Thisform.txtSophieu.SetFocus
Danh mục tài khoản
-Các thuộc tính chung cần thiết lập cho các điều khiển
Tương tự phần trên
-Sự kiện Load của Form danh mục tài khoản
Close all
Close Database
Open Database E:\Data\duypn
Use data\taikhoan IN 0
SET DATE TO FRENCH
-Sự kiện nút Thêm
Select taikhoan
DELETE FOR empty(matk)
SET DELETED ON
SET ORDER TO matk
SEEK ALLTRIM(thisform.txtmatk.value)
IF FOUND()
MESSAGEBOX(“Mã tài khoản vừa nhập đã tồn tại.Nhập lại!!!”,0)
Thisform.txtmatk=’ ’
Thisform.txtMatk.SetFocus
RETURN
ENDIF
Select taikhoan
Thisform.txtMatk.value=x1
Thisform.txtTentk.value=x2
Thisform.txtCap.value=x3
Thisform.txtTinhchat.value=x4
INSERT INTO taikhoan(matk,tentk,captk,tinhchat) Values(x1,x2,x3,x4) //Có thể dùng REPLACE(tùy)
Thisform.txtMatk.value=’ ‘
Thisform.txtTentk.value=’ ‘
Thisform.txtCap.value=’ ‘
Thisform.txtTinhchat.value=’ ‘
Thisform.txtMatk.SetFocus
Bạn đang đọc truyện trên: AzTruyen.Top