1.2.1 .Khái niệm
3.3. Những hạn chế và phương hướng phát triển của đề tài
- Hệ thống báo cáo mới chỉ phục vụ được những yêu cầu căn bản của cơng tác Kế tốn vật tư. Do đó cần hồn thiện hơn nữa để có thể phục vụ được tốt hơn các yêu cầu.
- Phần sao lưu, phục hồi dữ liệu chưa phân cấp theo từng phần dữ liệu, từng người sử dụng nên cần hoàn thiện thêm chức năng này để tăng cường chế độ bảo mật thông tin và dữ liệu.
Trong thời gian tới, đồ án sẽ tiếp tục được phát triển thành một ứng dụng hoàn thiện, phục vụ nhu cầu của đơn vị thực tập.
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
KẾT PHẦN LUẬN
Tác động mạnh mẽ của Công nghệ thông tin đã tạo ra thay đổi trong mọi lĩnh vực của đời sống kinh tế và xã hội. Đặc biệt đối với nền kinh tế thị trường, khi cạnh tranh là vấn đề quyết định đến sự sống cịn của mỗi doanh nghiệp thì ứng dụng tin học vào công tác kế tốn trở thành một tất yếu, trong đó cơng tác kế tốn Vật tư là vơ cùng quan trọng. Đề tài: “Tin học hố cơng tác kế tốn
Vật tư tại công ty Cổ phần Xây dựng và phát triển Nông thôn 6” được thực
hiện dựa trên nhu cầu thực tế với mong muốn giảm bớt vất vả khó khăn trong cơng tác kế tốn Vật tư.
Trong điều kiện nhất định, đề tài đã đáp ứng được một số mục tiêu cơ bản trong cơng tác Kế tốn Vật tư như:
- Xây dựng hoàn chỉnh cơ sở dữ liệu về cơng tác Kế tốn tại Công ty. - Xây dựng được một số module cơ bản của cơng tác Kế tốn Vật tư tại Công ty.
- Xây dựng hồn chỉnh những thuật tốn điển hình của phần mềm. Dù đã cố gắng song do nhận thức cịn có hạn, đồ án khơng thể tránh khỏi những hạn chế và thiếu sót. Em kính mong sẽ nhận được ý kiến đóng góp của các thầy giáo cô giáo, các cô chú, anh chị trong phịng kế tốn Cơng ty, để em có thể có nhiều kinh nghiệm quý giá hơn.
Một lần nữa em xin chân thành cảm ơn các cán bộ của phòng kế tốn Cơng ty Cổ phần Xây dựng và phát triển Nông thôn 6; các thầy cô giáo, đặc biệt là thầy giáo Th.S.Vũ Bá Anh đã tạo điều kiện để em hoàn thành đồ án.
Hà Nội , ngày 20 tháng 4 năm 2010 Sinh viên: Trần Thị Thu Hiền
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
DANH MỤC TÀI LIỆU THAM KHẢO
[1] Thạc sĩ.Vũ Bá Anh. Giáo trình cơ sở dữ liệu - Trường Học Viện Tài
chính.
[2] KS. Đinh Xuân Lâm. Những bài thực hành Visual Foxpro. NXB thống kê [3] TS. Trương Văn Tú và TS Nguyễn Thị Song Minh. Giáo trình hệ thống
thơng tin quản lý.
[4] Nguyễn Văn Vỵ. Giáo trình phân tích thiết kế hệ thống thơng tin. NXB
thống kê. Hà Nội, 2002.
[5] Một số tài liệu của Công Ty Cổ Phần Xây dựng và phát triển nông thôn 6 . [6] Kế toán doanh nghiệp với Visual Foxpro. Nhà xuất bản Thống Kê.
[7] Chế độ kế toán doanh nghiệp ban hành theo quyết định số 15/ 2006/ QĐ-
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6 PHỤ LỤC 1. Chương trình chính: Clear Memo Clear Menu Clear Program Clear Resources Clear Window Close Databases All Close All
Clear All Set Date french Set Status Bar Off Set Sysmenu On Set Deleted On Set Exclusive Off Set Escape Off Set Talk Off Set Safety Off Set Hours To 24 Set Century On
SET STATUS bar ON Set Sysmenu Off Set date FRENCH
Set Notify Off
Set Null Off
Set Nulldisplay To ''
SET CLOCK ON
SET udfparms to reference SET MULTILOCKS ON
SET DEFAULT TO SYS(5) + CURDIR() SET PATH TO C:\;D:\;E:\;F:\;G:\;H:\
*_SCREEN.WindowState = 2 *_screen.Closable= .F. PUBLIC quyen1 PUBLIC ten1 STORE '' TO quyen1 STORE '' TO ten1 DO FORM FULLPATH("")+"form\login.scx" READ events
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
Code cho sự liện click của command “Đăng nhập”:
CLOSE all SELECT 0
USE data\nguoidung
LOCATE FOR ALLTRIM(tendn)=
ALLTRIM(thisform.txt_tendn.Value) .and. ALLTRIM(matkhau)=ALLTRIM(thisform.txt_mk.Value) IF FOUND() MESSAGEBOX(“Bạn nhập thành công”,0) ten1=tendn quyen1=quyen thisform.release DO FORM d:\hien\form\main.scx ELSE
MESSAGEBOX(“NHập sai, xin mời nhập lại”,0)
thisform.txt_tendn.Value='' thisform.txt_mk.Value='' ENDIF
USE
3. Form “Đăng ký người dùng ” :
Code sự kiện Load cho form:
CLOSE TABLES ALL OPEN DATABASE data\ktvt USE data\nguoidung IN 1 exclusive SELECT nguoidung
Code sự kiện click của command “Mới ” :
thisform.text1.Enabled = .t. thisform.text2.Enabled = .t. thisform.text3.Enabled = .t. thisform.text4.Enabled = .t. thisform.combo1.Enabled = .t. thisform.cmdmoi.Enabled=.f. thisform.cmdsua.Enabled=.f. thisform.cmdxoa.caption="Ghi" thisform.cmdthoat.caption="Huỷ" thisform.text1.setfocus
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6 thisform.combo1.Enabled = .t. thisform.cmdmoi.Enabled=.f. thisform.cmdsua.Enabled=.f. thisform.cmdxoa.caption="Lưu" thisform.cmdthoat.caption="Huỷ" thisform.text1.value=tendn thisform.text2.value='' thisform.text3.value='' thisform.text4.value=hoten thisform.combo1.value=2 thisform.text1.setfocus
Code cho sự kiện click của cmmand “Xóa”:
IF this.Caption="\<Xố"
x=MESSAGEBOX("Bạn có chắc muốn xóa người dùng này khơng?",1 + 32,"Chú ý") IF x==1 SET DELETED ON DELETE thisform.grid1.refresh ENDIF ENDIF IF this.Caption="\<Lưu" y=RECNO() IF EMPTY(thisform.text1.Value) or EMPTY(thisform.text2.Value) or EMPTY(thisform.text4.Value)
=MESSAGEBOX("Hãy điền đầy đủ thông tin cho người dùng!",0+16,"Chú ý")
else
IF EMPTY(thisform.combo1.Value)
=MESSAGEBOX("Hãy chọn quyền truy nhập cho người dùng!",0+16,"Chú ý")
ELSE
IF ALLTRIM(thisform.text2.value)!=ALLTRIM(thisform.text3.value)
MESSAGEBOX("Xác nhận lại mật khẩu cho đúng",32,"Chú ý") thisform.text2.setfocus
else
IF alltrim(thisform.text1.value)<>tendn
LOCATE FOR ALLTRIM(tendn)==ALLTRIM(thisform.text1.value) IF FOUND()
MESSAGEBOX("Tên đăng nhập này đã tồn tại",32,"Chú ý") thisform.text1.SetFocus
ELSE GO y
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
replace matkhau WITH ALLTRIM(thisform.text2.value) replace hoten WITH ALLTRIM(thisform.text4.value) IF thisform.combo1.listindex=2
replace quyen WITH 'toanquyen' ELSE
replace quyen WITH 'gioihan'
ENDIF
MESSAGEBOX("Đã sửa thành công",32,"Thông báo")
thisform.text1.Enabled = .f. thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xoá" thisform.cmdthoat.caption="\<Thoát" thisform.Refresh endif ELSE
replace tendn WITH ALLTRIM(thisform.text1.value)
replace matkhau WITH ALLTRIM(thisform.text2.value) replace hoten WITH ALLTRIM(thisform.text4.value) IF thisform.combo1.listindex=2
replace quyen WITH 'toanquyen' ELSE
replace quyen WITH 'gioihan' ENDIF
MESSAGEBOX("Đã sửa thành công",32,"Thông báo")
thisform.text1.Enabled = .f. thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xố" thisform.cmdthoat.caption="\<Thốt" thisform.Refresh
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
IF this.Caption="\<Ghi"
IF EMPTY(thisform.text1.Value) or EMPTY(thisform.text2.Value) or EMPTY(thisform.text4.Value)
=MESSAGEBOX("Hãy điền đầy đủ thông tin cho người dùng!",0+16,"Chú ý")
else
IF EMPTY(thisform.combo1.Value)
=MESSAGEBOX("Hãy chọn quyền truy nhập cho người dùng!",0+16,"Chú ý")
ELSE
IF ALLTRIM(thisform.text2.value)!=ALLTRIM(thisform.text3.value)
MESSAGEBOX("Xác nhận lại mật khẩu cho đúng",32,"Chú ý") thisform.text2.setfocus
else
SELECT nguoidung
LOCATE FOR tendn=ALLTRIM(thisform.text1.value)
IF FOUND()
MESSAGEBOX("Tên đăng nhập này đã tồn tại",0+16,"Chú ý") thisform.text1.setfocus
else
APPEND BLANK
replace tendn WITH ALLTRIM(thisform.text1.value) replace matkhau WITH ALLTRIM(thisform.text2.value) replace hoten WITH ALLTRIM(thisform.text4.value) IF thisform.combo1.listindex=2
replace quyen WITH 'toanquyen' ELSE
replace quyen WITH 'gioihan' ENDIF
MESSAGEBOX("Đã thêm vào danh sách người dùng",32,"Thông báo") thisform.text1.value='' thisform.text2.value='' thisform.text3.value='' thisform.text4.value='' thisform.combo1.Value='' thisform.text1.Enabled = .f. thisform.text2.Enabled = .f. thisform.text3.Enabled = .f. thisform.text4.Enabled = .f. thisform.combo1.Enabled = .f. thisform.cmdmoi.Enabled=.t. thisform.cmdsua.Enabled=.t. thisform.cmdxoa.caption="\<Xố"
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6 thisform.Refresh endif ENDIF ENDIF ENDIF ENDIF
4. Form “Khai báo tài khoản”:
Code sự kiện click của command “Thêm”: flag1 = ''
IF thisform.Txt_shtk.value == '' then
MESSAGEBOX(“Bạn phải nhập số hiệu tài khoản”,0)
flag1 = 'X' ENDIF
IF thisform.Txt_tentk.value == '' then
MESSAGEBOX(“Bạn phải nhập tên tài khoản”,0)
flag1 = 'X' ENDIF
IF thisform.txt_loaitk.Value == ''then
MESSAGEBOX(“Bạn phải nhập loại tài khoản”, 0)
flag1 = 'X' ENDIF
IF flag1 <> 'X' then SELECT dmtaikhoan
LOCATE FOR ALLTRIM(sohieutk)=ALLTRIM(thisform.Txt_shtk.Value) IF FOUND()
MESSAGEBOX(“Không tồn tại tài khoản này! Mời nhập lại”,0) DELETE FOR EMPTY(sohieutk)
else
APPEND BLANK
replace sohieutk WITH ALLTRIM(thisform.txt_shtk.Value),tentk WITH ALLTRIM(thisform.txt_tentk.Value),loaitk WITH
ALLTRIM(thisform.txt_loaitk.Value)
d = 'Tai khoan ' + ALLTRIM(thisform.Txt_shtk.Value) + ' Da duoc tao' MESSAGEBOX(d,0)
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
frmdmtk.grid1.refresh
5. Form “Phiếu nhập”:
Code sự kiện Init của form:
SELECT dongphieun
CREATE TABLE temp_pn FREE (sophieu character(10),mavt
character(8),tenvt character(20),dvt character(10),soluong float(10,2),dongia float(10,2),thanhtien float(15,2)) SELECT temp_pn thisform.grid1.RecordSource="temp_pn" thisform.grid1.ColumnCount=6 thisform.grid1.column1.ControlSource="temp_pn.mavt" thisform.grid1.column2.ControlSource="temp_pn.tenvt" thisform.grid1.column3.ControlSource="temp_pn.dvt" thisform.grid1.column4.ControlSource="temp_pn.soluong" thisform.grid1.column5.ControlSource="temp_pn.dongia" thisform.grid1.column6.ControlSource="temp_pn.thanhtien"
*----------------Header trong Grid1----------------*
thisform.grid1.column1.header1.caption="Mã vật tư" thisform.grid1.column2.header1.caption="Tên vật tư" thisform.grid1.column3.header1.caption="Đơn vị tính" thisform.grid1.column4.header1.caption="Số lượng" thisform.grid1.column5.header1.caption="Đơn giá" thisform.grid1.column6.header1.caption="Số tiền"
code sự kiện Load của Form:
CLOSE TABLES ALL OPEN DATABASE data\ktvt SET safety off
USE data\dmvt IN 1 USE data\dongphieun IN 2 USE data\dmnhacc IN 3 USE data\dmkho IN 4 USE data\dmtaikhoan IN 5 USE temp_pn IN 6 USE data\phieun IN 7
Code sự kiện click của command “Nhập” :
SELECT temp_pn APPEND BLANK thisform.grid1.Refresh
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
_sophieu= ALLTRIM(thisform.txt_sophieu.Value)
LOCATE for ALLTRIM(sophieu)=_sophieu IF FOUND()
MESSAGEBOX("Số phiếu này đã tồn tại! Mời nhập lại”,0) ELSE
DELETE FOR EMPTY(sophieu) SET DELETED on
delete
APPEND BLANK
replace manhacc WITH ALLTRIM(thisform.combo3.Value) replace lido WITH ALLTRIM(thisform.txt_diengiai.Value) replace makho WITH ALLTRIM(thisform.combo1.Value) replace tkno WITH ALLTRIM(thisform.txt_tkno.value) replace tkco WITH ALLTRIM(thisform.txt_tkco.Value) replace ngayphieu WITH thisform.txt_ngayp.value
replace sophieu WITH ALLTRIM(thisform.txt_sophieu.Value) replace sotien WITH thisform.txt_tongtien.value
SELECT 6 GO top
DO WHILE NOT EOF()
STORE "" TO _mavt,_tenvt,_dvt,_soluong,_dongia _mavt=mavt _tenvt=tenvt _dvt=dvt _soluong=soluong _dongia=dongia
INSERT INTO data\
dongphieun(sophieu,mavt,tenvt,dvt,soluong,dongia); VALUES (thisform.txt_sophieu.value,_mavt,_tenvt,_dvt,_soluong,_dongia) SKIP ENDDO ENDIF SELECT 2
DELETE FOR EMPTY(mavt) SET DELETED on
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6 thisform.txt_mst.Value="" thisform.txt_diengiai.Value="" thisform.combo1.value="" thisform.txt_tenkho.Value="" thisform.txt_sophieu.Value="" thisform.txt_tkno.Value="" thisform.txt_tkco.Value="" thisform.txt_tentkno.Value="" thisform.txt_tentkco.Value="" thisform.txt_ngayp.Value="" thisform.combo2.Value="" thisform.txt_tongtien.Value="" thisform.txt_thue.Value="" thisform.txt_thanhtoan.Value="" thisform.combo3.SetFocus
Code sự kiện click của command “In” của Form:
SET PROCEDURE TO prg\tienchu.prg
REPORT FORM report\phieunhap PREVIEW FOR
dongphieun.sophieu=thisform.txt_sophieu.value
6. Báo cáo Nhập – Xuất – Tồn:
Code sự kiện Init của Form :
CREATE TABLE nxtpn FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), soluong float(10,2), thanhtien float (15,2)) CREATE TABLE nxtpx FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), soluong float(10,2), thanhtien float (15,2)) CREATE TABLE nxt FREE (mavt character (8),tenvt character (30),dvt character (10),makho character (5), sltondau float(10,2), tttondau float (15,2),
sln float(10,2),ttn float(15,2),slx float(10,2),ttx float(15,2)) Code sự kiện Load của Form:
CLOSE TABLES ALL USE data\dmkho IN 0 USE data\phieun IN 1 USE data\dongphieun IN 2 USE data\phieux IN 3 USE data\dongphieux IN 4 USE data\tondauki IN 5 USE data\dmvt IN 6 USE data\ttcty IN 7 USE a3 IN 8
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
x2=thisform.txt_denngay.Value
IF EMPTY(x1) OR EMPTY(x2) then
MESSAGEBOX("Bạn chưa nhập thông tin ngày!",0+32) RETURN
ELSE if(x1>x2)
MESSAGEBOX("Chọn ngày không hợp lệ!",0+32) thisform.txt_tungay.Value='' thisform.txt_denngay.Value='' thisform.txt_tungay.SetFocus ENDIF ENDIF x3=thisform.combo1.Value IF x3="KHOC"
x4="Kho vật tư chính, số 36, ngõ 120 Trường Chinh"
ENDIF
IF x3="KHOP"
x4="Kho nhiên liệu, phụ tùng thay thế, số 36, ngõ 120 Trường Chinh"
ENDIF IF x3="Toàn bộ" x4="Toàn bộ" ENDIF IF x3="KHOC" OR x3="KHOP" SELECT phieun.makho,dongphieun.mavt,dongphieun.tenvt,dongphieun.dvt,dongphieun. soluong,dongphieun.dongia FROM phieun,dongphieun;
where alltrim(phieun.sophieu)==alltrim(dongphieun.sophieu) AND alltrim(phieun.makho)==x3 AND phieun.ngayphieu>=x1 AND
phieun.ngayphieu<=x2 INTO TABLE nxt_pn.dbf
SELECT nxt_pn GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien
_mavt=mavt _tenvt=tenvt _dvt=dvt
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6 VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT nxtpn INDEX on mavt TO p1
TOTAL TO a1 ON mavt FIELDS soluong,thanhtien
USE a1 IN 0 SELECT a1
GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,sln,ttn) VALUES
(_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a1 USE a1 SELECT phieux.makho,dongphieux.mavt,dongphieux.tenvt,dongphieux.dvt,dongphieux. soluong,dongphieux.dongia FROM phieux,dongphieux;
where alltrim(phieux.sophieu)==alltrim(dongphieux.sophieu) AND alltrim(phieux.makho)==x3 AND phieux.ngayphieu>=x1 AND
phieux.ngayphieu<=x2 INTO TABLE nxt_px.dbf
SELECT nxt_px GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien
_mavt=mavt _tenvt=tenvt _dvt=dvt
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
_thanhtien=soluong*dongia
INSERT INTO nxtpx (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP
ENDDO SELECT nxtpx
INDEX on mavt TO p2
TOTAL TO a2 ON mavt FIELDS soluong,thanhtien USE a2 IN 0
SELECT a2 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,slx,ttx) VALUES
(_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a2 USE a2 SELECT nxt INDEX on mavt TO p7
TOTAL TO a4 ON mavt FIELDS sln,ttn,slx,ttx USE a4 IN 0
SELECT a4
REPORT FORM report\baocao_nxt PREVIEW
SELECT a4 USE a4 ELSE
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
where alltrim(phieun.sophieu)==alltrim(dongphieun.sophieu) AND
phieun.ngayphieu>=x1 AND phieun.ngayphieu<=x2 INTO TABLE nxt_pn.dbf
SELECT nxt_pn GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=soluong*dongia
INSERT INTO nxtpn (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP
ENDDO SELECT nxtpn
INDEX on mavt TO p1
TOTAL TO a1 ON mavt FIELDS soluong,thanhtien USE a1 IN 0
SELECT a1 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,sln,ttn) VALUES
(_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP ENDDO SELECT a1 USE a1 SELECT phieux.makho,dongphieux.mavt,dongphieux.tenvt,dongphieux.dvt,dongphieux. soluong,dongphieux.dongia FROM phieux,dongphieux;
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
where alltrim(phieux.sophieu)==alltrim(dongphieux.sophieu) AND
phieux.ngayphieu>=x1 AND phieux.ngayphieu<=x2 INTO TABLE nxt_px.dbf
SELECT nxt_px GO top
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=soluong*dongia
INSERT INTO nxtpx (mavt,tenvt,dvt,makho,soluong,thanhtien); VALUES (_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien) SKIP
ENDDO SELECT nxtpx
INDEX on mavt TO p2
TOTAL TO a2 ON mavt FIELDS soluong,thanhtien USE a2 IN 0
SELECT a2 GO TOP
DO WHILE NOT EOF()
STORE " " TO _mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien _mavt=mavt _tenvt=tenvt _dvt=dvt _makho=makho _soluong=soluong _thanhtien=thanhtien
INSERT INTO nxt (mavt,tenvt,dvt,makho,slx,ttx) VALUES
(_mavt,_tenvt,_dvt,_makho,_soluong,_thanhtien)
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
SELECT nxt
INDEX on mavt TO p7
TOTAL TO a4 ON mavt FIELDS sln,ttn,slx,ttx USE a4 IN 0
SELECT a4
REPORT FORM report\baocao_nxt PREVIEW SELECT a4
USE a4 ENDIF
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
NHẬN XÉT ĐƠN VỊ THỰC TẬP
Phịng Kế Tốn – Tài Chính Cơng ty Cổ phần Xây dựng và Phát triển Nông thôn 6. Họ tên người nhận xét: ………………………………………………………. Nhận xét đồ án thực tập : ……………………………………………………. ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… Sinh viên: ……………….……………………………..................................... Lớp: ………………………Khóa: ………………………………………….. Tên đề tài:………………………………………………................................. …………………………………………………………………………………
Hà nội, ngày … tháng … năm 2010 Người nhận xét
Tin học hóa cơng tác kế tốn vật tư tại cơng ty CP Xây dựng và phát triển Nông thôn 6
NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Họ và tên giảng viên hướng dẫn: Th.S. Vũ Bá Anh
Nhận xét đồ án thực tập : ………………………………………………….. ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… Sinh viên: …………………………………………………………………….. Lớp:………………………Khóa: …………………………………………… Tên đề tài: ……………………………………………………………………. ………………………………………………………………………………… Điểm: - Bằng số:………………………………………………………………….. - Bằng chữ:…………………………………………………………………
Hà nội, ngày … tháng … năm 2010 Người nhận xét
Tin học hóa cơng tác kế tốn vật tư tại công ty CP Xây dựng và phát triển Nông thôn 6
NHẬN XÉT CỦA NGƯỜI PHẢN BIỆN
Họ và tên người phản biện đồ án: …………………………………………
Nhận xét đồ án:……………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… ………………………………………………………………………………… Sinh viên:…………………………………………………………………….. Lớp:………………………………Khóa:……………………………………… Tên đề tài đồ án:……………………………………………………………… ………………………………………………………………………………… Điểm: - Bằng số:……………………………………………………………… - Bằng chữ:…………………………………………………………….
Hà nội, ngày … tháng … năm 2010 Người nhận xét