Chương trình quản lý kho vật tư (Ngày 06/11/2007)

Liên hệ QC

vungoc

Thành viên tiêu biểu
Tham gia
2/8/06
Bài viết
633
Được thích
2,603
Nghề nghiệp
Quản lý
Hôm nay mình up lên file QUẢN LÝ PHỤ TÙNG mới nhất để chia sẻ với mọi người.

Trong file này đã cải tiến nhiều tính năng và so với các file đã up trong các lần trước

(Cải thiện giao diện của các Form Báo cáo, Danh mục, Các list form, Menu trong sheet, v.v…).

Còn một vấn đề nữa mà mình tìm hòai không ra, mô tả như sau:
Từ giao diện trên Form Nhập Hàng bạn nhập chứng từ xong nhấn nút Ghi Tạm, nếu muốn In Phiếu nhập kho hoặc In nhãn dán lên phụ tùng thì bạn Click chọn vào các nút tương ứng sau đó bấm nút Lưu CT thì dữ liệu sẽ được ghi chính thức vào Data và sẽ in ra các phiếu tương ứng như Phiếu nhập kho hoặc Nhãn dán lên phụ tùng (như bạn đã click chọn).

Ghi chú: Khi ta Click chọn In nhãn dán lên phụ tùng hoặc In phiếu nhập kho và nhấn tiếp nút Lưu CT thì sẽ đồng thời thi hành các lệnh Call PhieuNXCall Label (các lệnh này gọi từ nút Lưu CT)

Tuy nhiên, nút lệnh trên chỉ thực hiện được đối với 1 lần nhập liệu đầu tiên, các lần nhập liệu tiếp theo thì nó chỉ ghi được dữ liệu và Data mà không thực hiện được các lệnh Call PhieuNX và Call Label để in các chứng từ Phiếu nhập kho và Nhãn dán lên phụ tùng.

Tương tự như vậy ở Form Xuất Hàng cũng bị tình trạng nêu trên.

Các bạn có thể tìm hiểu và ngâm cứu giúp tôi để khắc phục tình trạng nêu rên.

(Nếu được các bạn sửa thẳng vào file và ghi chú luôn, sau đó up lại lên hộ tôi)

Trân trọng cảm ơn !

P/S: Từ giao diện Form muốn đăng nhập vào Excel:
Username: chaongaymoi
Password: vungoimora
Hoặc:Tại
Username: a (chỉ cần gõ chữ a là vào được excel)
 

File đính kèm

  • Quan ly kho phu tung (Rev02)06-11-2007.rar
    377.2 KB · Đọc: 12,329
Lần chỉnh sửa cuối:
Hay lắm, để mình thử xem.
Tham gia thêm: Các form kích thước lớn không tiện SD
Thanhks
 
Bạn phải chọn chế độ màn hình ở chế độ 1024 x 768 trước khi mở file này thì các Form mới sử dụng được ở chế độ chuẩn.
 
Mình chưa nhập thử dữ liệu nhưng phải công nhận phần mềm này của bạn là rất rõ ràng! Giao diện không bóng bẩy nhưng rất đẹp!
 
Cảm ơn bạn! Mình thấy rất ứng dụng, nhất là với các bạn đang làm về kho.
 
Chao Vu Ngoc!
Minh da load phan men quan ly kho phu tung ngay 6/11/2007. Nhung su dung ko duoc. Vi ap dung de thay doi ma vattu, ten vat tu.... noi chungtoan bo phan phu tung ma vu ngoc dua len. Nhung khi cho so lieu thuc te vao thi no ko lam duoc. Dzay vu ngoc co the huong dan cho minh ky hon de su dung no hay hon ko? CAm on vu ngoc rat nhieu.
 
VUONGQUOCEXCEL đã viết:
f... Nhung khi cho so lieu thuc te vao thi no ko lam duoc. Dzay vu ngoc co the huong dan cho minh ky hon de su dung no hay hon ko? CAm on vu ngoc rat nhieu.

bạn có thể cho biế rõ hơn không? khi nào thì bạn không làm được,?
 
Lần chỉnh sửa cuối:
VUONGQUOCEXCEL đã viết:
Chao Vu Ngoc!
Minh da load phan men quan ly kho phu tung ngay 6/11/2007. Nhung su dung ko duoc. Vi ap dung de thay doi ma vattu, ten vat tu.... noi chungtoan bo phan phu tung ma vu ngoc dua len. Nhung khi cho so lieu thuc te vao thi no ko lam duoc. Dzay vu ngoc co the huong dan cho minh ky hon de su dung no hay hon ko? CAm on vu ngoc rat nhieu.

Đề nghị bạn gõ chữ có dấu nhé !
 
vungoc đã viết:
Hôm nay mình up lên file QUẢN LÝ PHỤ TÙNG mới nhất để chia sẻ với mọi người.

Trong file này đã cải tiến nhiều tính năng và so với các file đã up trong các lần trước

(Cải thiện giao diện của các Form Báo cáo, Danh mục, Các list form, Menu trong sheet, v.v…).

Còn một vấn đề nữa mà mình tìm hòai không ra, mô tả như sau:
Từ giao diện trên Form Nhập Hàng bạn nhập chứng từ xong nhấn nút Ghi Tạm, nếu muốn In Phiếu nhập kho hoặc In nhãn dán lên phụ tùng thì bạn Click chọn vào các nút tương ứng sau đó bấm nút Lưu CT thì dữ liệu sẽ được ghi chính thức vào Data và sẽ in ra các phiếu tương ứng như Phiếu nhập kho hoặc Nhãn dán lên phụ tùng (như bạn đã click chọn).

Ghi chú: Khi ta Click chọn In nhãn dán lên phụ tùng hoặc In phiếu nhập kho và nhấn tiếp nút Lưu CT thì sẽ đồng thời thi hành các lệnh Call PhieuNXCall Label (các lệnh này gọi từ nút Lưu CT)

Tuy nhiên, nút lệnh trên chỉ thực hiện được đối với 1 lần nhập liệu đầu tiên, các lần nhập liệu tiếp theo thì nó chỉ ghi được dữ liệu và Data mà không thực hiện được các lệnh Call PhieuNX và Call Label để in các chứng từ Phiếu nhập kho và Nhãn dán lên phụ tùng.

Tương tự như vậy ở Form Xuất Hàng cũng bị tình trạng nêu trên.

Các bạn có thể tìm hiểu và ngâm cứu giúp tôi để khắc phục tình trạng nêu rên.

(Nếu được các bạn sửa thẳng vào file và ghi chú luôn, sau đó up lại lên hộ tôi)

Trân trọng cảm ơn !

P/S: Từ giao diện Form muốn đăng nhập vào Excel:
Username: chaongaymoi
Password: vungoimora
Hoặc:Tại
Username: a (chỉ cần gõ chữ a là vào được excel)

Mình đã tìm ra nguyên nhân của vấn đề nêu trên.
Để khắc phục, bạn hãy mở file này, vào Form Nhap, chỉnh sửa một chút như sau:

-
Mã:
If Me.NInPhieu = True Then
      [COLOR="Blue"]  S106.Select ' Thêm đoạn này[/COLOR]
        [COLOR="Blue"]Range("C3").Value = Me.NSoCT.Value ' Thêm đoạn này[/COLOR]
       [COLOR="Red"] 'S106.Range("C3") = Me.NSoCT.Value ' Bỏ đoạn này[/COLOR]
        Call PhieuNX
        Application.Calculate
        S106.PrintOut
    End If

    If Me.NInNhan.Value = True Then
        [COLOR="#0000ff"]S106.Select ' Thêm đoạn này
        Range("C3").Value = Me.NSoCT.Value ' Thêm đoạn này[/COLOR]
       [COLOR="Red"] 'S106.Range("C3") = Me.NSoCT.Value ' Bỏ đoạn này[/COLOR]
        Call PhieuNX
        Call Label
        Application.Calculate
        S114.PrintOut
    End If

Tương tự như vậy, chỉnh sửa cho Form Xuat là OK.
 
vungoc đã viết:
Bạn phải chọn chế độ màn hình ở chế độ 1024 x 768 trước khi mở file này thì các Form mới sử dụng được ở chế độ chuẩn.

chào bạn vungoc!
do mình ko đọc kỹ hướng dẫn của bạn, mình đã vội mở file của bạn lên xem trước khi chọn chế độ màn hình 1024x768 trước, và màn hình desktop của mình bây giờ chắc bị ảnh hưởng nên nó ko còn ở trạng thái ban đầu nữa, bạn có thể chỉ mình làm cách nào cho màn hình desktop của mình trở lại vị trí cũ ko?
Ah còn vấn đề này nữa bạn, khi mình vào bảng tính excel, thì yêu cầu gõ pass và usename, bạn có thể cho mình biết pass và usename là gì ko?
Thanks bạn!-=.,,
 
Lần chỉnh sửa cuối:
Trích!
Bạn có thể cho biế rõ hơn không? khi nào thì bạn không làm được,?
Đề nghị bạn gõ chữ có dấu nhé !

Chào Vu ngoc!
Trước tiên mình cám ơn bạn đã quan tâm đến câu hỏi không rõ ràng của mình. Thật ngớ ngẩn quá phải ko? Khi mình chỉ hỏi chung chung...
Mình xin nói vài nét về nghề nghiệp của mình tí ha: Mình làm ở BQL - Công Trình Cộng Cộng Huyện Tuy Phong - Tỉnh Bình Thuận. Mình làm bên quản lý kho của bộ phận cấp nước sinh hoạt. Tổng kho mình quản lý là 4 Kho hàng, có tất khoản 250 loại vật tư về ngành nước. Trước đây, mình chỉ sử dụng các công thức hàm lọc, hàm tổng hợp trên file của excel là chủ yếu. Vo tình mình tìm thấy file của bạn đưa lên vào ngày 22/10/2007. Mình vô cùng vui sướng lắm lắm, nhưng Bác Hồ tìm ra "luân cương LêNin" dzậy.
Từ đó mình tải xuống, vào mục excel để thay đổi tên vật tư, nhà cung cấp, bộ phận....Mình nhập số liệu vào sheet danh muc: mã vt, tên vt, số lượng, giá trị và các sheet còn lại mình xóa dữ liệu của bạn nhưng vẫn giữ nguyên mẫu. Bắt đầ có sự cố từ đây:
1/ Khi thực hiện ở phiếu Xuất: mình chọn đầy đủ các thủ tục trên, xuống phần chọn vt, ví dụ: số lượng tồn là 100, chọn xuất lấy số lượng là 5 thì nó báo là giá trị ko còn và mục sl vt hiên lên hết 100. ?????????? kho hiểu lắm.
2/ Sao bạn ko tạo ra from hiển thị xem trang in , trước khi nhấn nút để in?
3/ Tổng hợp hoặc Báo cáo theo từng tháng, từng quý, năm dễ theo dõi số lượng XNT?
4/ Và cuối cho mình hỏi là Muốn có số lượng, giá trị vật tư Tồn đầu kỳ, có phải mình vào mục excel data số lượng ko?
Có phải mình tham lam quá ko? mà hỏi nhiều giử dzậy? Vì mình ko nắm rõ về VisuaBasic lắm. Mong bạn giúp mình hoàn thành công việc tốt nha. Xin cám ơn bạn rất nhiều.
Trân trọng kính chào!
 
VUONGQUOCEXCEL đã viết:
Trích!
Bạn có thể cho biế rõ hơn không? khi nào thì bạn không làm được,?
Đề nghị bạn gõ chữ có dấu nhé !

Chào Vu ngoc!
Trước tiên mình cám ơn bạn đã quan tâm đến câu hỏi không rõ ràng của mình. Thật ngớ ngẩn quá phải ko? Khi mình chỉ hỏi chung chung...
Mình xin nói vài nét về nghề nghiệp của mình tí ha: Mình làm ở BQL - Công Trình Cộng Cộng Huyện Tuy Phong - Tỉnh Bình Thuận. Mình làm bên quản lý kho của bộ phận cấp nước sinh hoạt. Tổng kho mình quản lý là 4 Kho hàng, có tất khoản 250 loại vật tư về ngành nước. Trước đây, mình chỉ sử dụng các công thức hàm lọc, hàm tổng hợp trên file của excel là chủ yếu. Vo tình mình tìm thấy file của bạn đưa lên vào ngày 22/10/2007. Mình vô cùng vui sướng lắm lắm, nhưng Bác Hồ tìm ra "luân cương LêNin" dzậy.
Từ đó mình tải xuống, vào mục excel để thay đổi tên vật tư, nhà cung cấp, bộ phận....Mình nhập số liệu vào sheet danh muc: mã vt, tên vt, số lượng, giá trị và các sheet còn lại mình xóa dữ liệu của bạn nhưng vẫn giữ nguyên mẫu. Bắt đầ có sự cố từ đây:
1/ Khi thực hiện ở phiếu Xuất: mình chọn đầy đủ các thủ tục trên, xuống phần chọn vt, ví dụ: số lượng tồn là 100, chọn xuất lấy số lượng là 5 thì nó báo là giá trị ko còn và mục sl vt hiên lên hết 100. ?????????? kho hiểu lắm.
2/ Sao bạn ko tạo ra from hiển thị xem trang in , trước khi nhấn nút để in?
3/ Tổng hợp hoặc Báo cáo theo từng tháng, từng quý, năm dễ theo dõi số lượng XNT?
4/ Và cuối cho mình hỏi là Muốn có số lượng, giá trị vật tư Tồn đầu kỳ, có phải mình vào mục excel data số lượng ko?
Có phải mình tham lam quá ko? mà hỏi nhiều giử dzậy? Vì mình ko nắm rõ về VisuaBasic lắm. Mong bạn giúp mình hoàn thành công việc tốt nha. Xin cám ơn bạn rất nhiều.
Trân trọng kính chào!

Với các nội dung như bạn đã nêu trên - vui lòng thực hiện lại các bước sau:

1- Bạn hãy tải lại file QUAN LY PHU TUNG (VAT TU) mà mình up lên ngày 06/11/2007 (vì phiên bản này đã sửa đổi cải tiến rất nhiều so với bản bạn tải 22/10/2007).

2- Trong quá trình xóa các dữ liệu cũ để đưa dữ liệu mới của bạn vào, bạn chỉ nên chọn xóa đúng những vùng dữ liệu cũ thôi, không nên chọn ra ngoài hoặc bấm Ctrl+A (chọn tất cả) vì trong những sheet đó có những cột hoặc dòng ẩn không được xóa (nếu xóa sẽ mất tác dụng). Các tiêu đề bảng biểu giữ nguyên.

3- Vấn đề xem trước khi in đã được bổ sung trong file 06/11/2007.

4- Chức năng báo cáo tổng hợp, báo cáo chi tiết, ... đã có sẵn bạn cứ thử xem sao.

5- Trước khi nhập dữ liệu, số lượng tồn đầu kỳ bạn để lên những dòng trên cùng của sheet Data, như vậy mỗi lần báo cáo đã có công thức trích xuất số lượng tồn đầu kỳ vào trong báo cáo cho bạn xem rồi!

6- Xem lại các bài trong chủ đề file QUAN LY PHU TUNG mà tôi đã up ngày 06/11/2007, trong đó có bài của ngày hôm qua (12/11/2007) tôi đã post cách sửa lỗi để in được phiếu nhập xuất, label sau mỗi lần nhập chứng từ.

* Nếu bạn vẫn chưa thực hiện được, bạn hãy gọi cho tôi để tôi hướng dẫn bạn thực hiện nhé!

Chúc bạn thành công!
 
Vũ Ngọc xem lại Báo cáo NXT, 2 cách không cho cùng đáp án.
Sub PasteIDs(ByVal FromRange As Range, ByVal CellToPaste As Range)
'..........
ShowAll FromRange.Parent
FromRange.Offset(-1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
FromRange.Resize(1).Parent.Range(FromRange, FromRange.End(xlDown)).Copy CellToPaste
ShowAll FromRange.Parent
End Sub
Vũ Ngọc nhờ anh Tuân giúp lại phần này, hình như TH sẽ dư 1 mã hàng mà trong data, có ở dòng đầu và cuối.
Còn theo code này nếu chọn từ 01/10 - 04/11 (ngày cuối) sẽ có NA.
Trong file này nên xem lại khi thoát file... thế nào chưa hiểu. Và nên có 1 lại menu thôi.
Vài lời góp ý, không phải xin bỏ qua.
 
Cảm ơn anh ThuNghi!

Đúng là phần báo cáo TH của bác TuanVNUNI dư một mã hàng. Nhân đây nhờ bác Tuan xem điều chỉnh lại phần Báo cáo TH của bác luôn (nếu được).

Thân ái!
 
Chà, đẹp quá! Mình là loại hơi bị chuộng về hình thức nên thấy chương trình của bạn là phải khen ngay một cái đã. Còn nội dung của nó thì từ từ, để mình ngâm cứu đã rồi sẽ góp ý sau.
Chúc các bạn thành công.
---------------
À, có cái này thấy ngay đây.
Sau khi mình vào bảng tính Excel từ chương trình của các bạn, thì làm sao để quay ra lại cái màn hình chính đó? Nó biến đâu mất tiêu luôn, hình như lọt ra khỏi desktop luôn... Thoát Excel luôn rồi nó vẫn chạy nền trong máy nhưng không thấy (mình gọi TaskManager ra thì thấy nó đang chạy nền), và cuối cùng phải dùng TaskManager để.. xin mời anh nghỉ.
Tại máy mình cà chớn hay tại chương trình không thích máy mình vậy ?
 
Lần chỉnh sửa cuối:
BNTT đã viết:
À, có cái này thấy ngay đây.
Sau khi mình vào bảng tính Excel từ chương trình của các bạn, thì làm sao để quay ra lại cái màn hình chính đó? Nó biến đâu mất tiêu luôn, hình như lọt ra khỏi desktop luôn... Thoát Excel luôn rồi nó vẫn chạy nền trong máy nhưng không thấy (mình gọi TaskManager ra thì thấy nó đang chạy nền), và cuối cùng phải dùng TaskManager để.. xin mời anh nghỉ.
Tại máy mình cà chớn hay tại chương trình không thích máy mình vậy ?

Đó là nhờ câu lệnh : Application.Visible=False bác ạ

Hình như ở trên Sheet còn có menu mà ??

Thân!
 
Sub PasteIDs(ByVal FromRange As Range, ByVal CellToPaste As Range)
'..........
ShowAll FromRange.Parent
FromRange.Offset(-1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
FromRange.Resize(1).Parent.Range(FromRange, FromRange.End(xlDown)).Copy CellToPaste
ShowAll FromRange.Parent
End Sub
Sau khi mò, tôi thấy sửa như sau thì "có vẻ" OK
Thay
FromRange.Offset(-1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Bằng
FromRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Và thêm câu sau trong THXNT_ext()
sau câu
Range("P9:p" & HC).FormulaR1C1 = "=IF(SUM(RC[-9]:RC[-2])>0,1,"""")"
thêm.
With S109.Range("B9")
.EntireRow.ClearContents
End With
Có gì chưa đúng thì cùng xem lại nhé.
 
Vấn đề bác Thunghi nói em cũng đã phát hiện và sửa rồi mà sao vẫn còn lỗi nhỉ? Có lẽ bác Thunghi đã fix được lỗi đó rồi.

P/S: Bác Vungoc không cần để module "TuanV*" trong chương trình đâu! Ngại quá!!
 
Chào VuNgoc!
Mình nhờ bạn chỉnh sửa giúp mình về phần đơn giá Phiếu Xuất không? Chả là như thế này, các vật tư của mình có định theo giá bán của Cty lập ra. Còn phần Đơn giá PX của bạn là bình quân gia nguyên ( NDG = format("NSL", "#,##.00"), nó ko đúng theo nhu cầu dùng của mình. Mình muốn chỉnh lại nhưng ko biết làm sao. Mong bạn giúp mình nha. Cám ơn nhiều. Bạn có thể thêm một cột đơn giá bán ko?
 
Vài lời nhận xét 1.0

To: Vungoc,

Chương trình này của em cần phải cải tiến rất nhiều.
_Điều đầu tiên làm cho người dùng “nổi giận” là, khi người dùng đang mở file excel khác thì khi mở file ứng dụng này file kia cũng bị “ẩn mình” luôn.
_Nên cho hiện ở Task Panel, để khi cần dùng sẽ dễ dàng hơn
_Nếu sử dụng tiếng việt thì các nút chắc phải việt hóa hết, chứ đừng để Next >>, Previous, Save, Main, User Name, 3 of 13
_Form danh mục vật tư (FrDanhmuc), lần đầu tiên khi mở form ra click vào Phụ tùng, danh sách phụ tùng không hiện ra! phải click danh mục khác rồi Click lại mới hiện ra.
_Các thủ tục sắp xếp tìm kiếm, chắc nên dùng mảng hy vọng chương trình sẽ thực thi nhanh hơn.
_Các thao tác như thêm, sửa của các bảng dữ liệu nên chăng đưa vào một thủ tục như vậy chương trình sẽ rỏ ràng hơn.

Vài lời nhận xét.

Lê Văn Duyệt
 
Web KT
Back
Top Bottom