Đọc truyện csdl2_chungtulienquan

csdl2_chungtulienquan

Trước Sau

Màu nền

Font chữ

Font size

Chiều cao dòng

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

-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

-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

-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

-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: Truyen2U.Pro

Trước Sau