Code tương ứng với xã/phường, quận/huyên,tỉnh/thành phố (TNCN 2.5) (3 người xem)

[Loan1989]

Có bạn nào có file tổng hợp code tương ứng với xã/phường, quận/huyên,tỉnh/thành phố của phần mềm TNCN 2.5 không ?
Mình đang thử làm file text impot dữ liệu vào TNCN 2.5 nhưng các trường về xã/phường, quận/huyên,tỉnh/thành phố thì chỉ nhận dữ liệu dạng số mà không nhận dữ liệu dạng text
VD : Tỉnh Hải Dương code 107; huyện Tứ Kỳ code 10715 xã Hưng Đạo code 1071541.
Bạn nào có thì chia sẻ nhé.
Many thanks !

 

[sealand]

Bạn nói rõ hơn việc phải làm đi, mình chưa hiểu là bạn làm gì không được?

Mình chưa hiểu chính xác nhưng tham gia thế này:
1/ Bạn mở Excel
2/Vào menu File--Open---Trong Dialog Open
-Trong File of Type: Chọn XML FILE(*.xml)
-Trong Look In: chọn đến thư mục xml của thư mục cài đặt TNCN2.5
Ta chọn file DMDiaban.xml
Chọn Open
3/Mở ra 1 Dialog mới:Đánh dấu vào As readonly workbook
Chọn OK
Chuyển Font sang Unicode và Save as thành File của ta.

Vậy là bạn đã có bảng mã khá đầy đủ rồi.

 

[Loan1989]

Ý mình là thế này nhé:
Thông thường khi tiến hành đăng ký MST TNCN thì phải nhập tay các thông tin về họ tên, ngày tháng năm sinh, số CMT,quê quán,...của người lao động vào phần mềm 2.5.
Nếu phải nhập bằng tay thì rất lâu, trong khi bên nhân sự có sẵn các thông tin nói trên.
Mình đang có ý định tạo 1 file text với các thông tin có sẵn nói trên để import vào TNCN 2.5. File tex này được create từ 1 file exel chuẩn.
Mình làm thử file này,các trường khác đều OK rồi, chỉ có trường về xã/phường, quận/huyên,tỉnh/thành phố là chưa import được vì TNCN 2.5 nhận dữ liệu này dưới dạng số.
VD : Tỉnh Hải Dương code 107; huyện Tứ Kỳ code 10715 xã Hưng Đạo code 1071541
Giờ mình muốn hỏi có ai có danh sách các code tương ứng với xã/phường, quận/huyên,tỉnh/thành phố của cả nước không?
Thanks!

 

[sealand]

Nếu vậy thì như mình hướng dẫn là bạn đã làm được rồi.
Mình gửi bạn kết quả xem sao nha. Cái này mình lấy từ TNCN2.3, không biết 2.5 có bổ xung gì không?. Mình không có nên chịu.

 

[Loan1989]

Cám ơn bạn sealand rất nhiều! Mình thử làm theo cách bạn hướng dẫn trên 2.5 và ok rồi.

 

[nhankl]

bạn Sealand ơi. bạn cho mình hỏi chút
mình cũng đang làm dăng ký mã số thuế cho nhân viên, công ty mình tận hơn 2000 nhân viên, nên nhập bằng tay thì ko khả thi vì sẽ mất nhiều thời gian, mà mỏi mắt lắm, cậu làm rồi cậu có file template excel để chuyển sang text ko, thì cho mình với.
Đa tạ cậu nhiều lắm, vì mấy ngày nay tớ ngồi thiết kế mãi ko ra nó cứ báo lỗi là ko đúng dạng format ý.

Mong hồi âm của cậu nhiều.

 

[sealand]

Mình thông báo để các bạn biết, do việc viết chương trình chưa hoàn tất nên mình chưa gửi lên đwợc. Mình đẫ viết xong hàm lấy tên địa chỉ theo mã khá nhanh từ mã đã có, nhưng mình đang loay hoay việc thiết kế nhập sao cho khi nhập tự chuyển thành mã dưới dạn 1 ad-in cơ sở có sẵn nếu máy có cài phần mềm TNCN hoặc chép dữ liệu về máy của mình, mọi người cũng tự nghiên cứu đi, còn mình khi nào xong sẽ chia sẻ liền.

cậu làm rồi cậu có file template excel để chuyển sang text ko, thì cho mình với

Từ file Excel mình gửi mà chuyển thành file Txt thì quá đơn giản, bạn chỉ dùng Save as là được

 

[nhankl]

Bạn Loan ơi,
Bạn đã làm vụ này rồi bạn cho mình hỏi với
Mình cũng muốn làm cái file excel chuẩn sau đó đổi sang text sau đó up vào phần mềm.
Nhưng khi up nó bảo là định dạng ko phù hợp, chắc là thiếu thừa một vài trường
Cậu có file excel chuẩn rồi ko, hay bên cậu làm ra sao bảo tớ với.
many thanks cậu nhiều

 

[nhankl]

Bạn Loan ơi,
Bạn đã làm vụ này rồi bạn cho mình hỏi với
Mình cũng muốn làm cái file excel chuẩn sau đó đổi sang text sau đó up vào phần mềm.
Nhưng khi up nó bảo là định dạng ko phù hợp, chắc là thiếu thừa một vài trường
Cậu có file excel chuẩn rồi ko, hay bên cậu làm ra sao bảo tớ với.
many thanks cậu nhiều

 

[Loan1989]

Đây là file exel chuẩn dùng để create file text.
Sau khi creat file text thì dùng Unikey để chuyển font chữ từ TCVN sang Unicode; sau đó
+thêm vào file text này đoạn đầu :
<S01><S><C>(mã số thuế)~(Tên công ty ...)</C></S><S>
Đoạn này bạn có thể copy từ 1 file text kết xuất từ 2.5
+thêm vào file text đoạn cuối :
</S></S01>
Giờ thì thử import vào 2.5 nhé.

 

[sealand]

Đây là file exel chuẩn dùng để create file text.
Sau khi creat file text thì dùng Unikey để chuyển font chữ từ TCVN sang Unicode; sau đó
+thêm vào file text này đoạn đầu :
<S01><S><C>(mã số thuế)~(Tên công ty ...)</C></S><S>
Đoạn này bạn có thể copy từ 1 file text kết xuất từ 2.5
+thêm vào file text đoạn cuối :
</S></S01>
Giờ thì thử import vào 2.5 nhé.

Sao bạn có Code khủng thế. Bạn viết như sau là được

Sub CreatePO()
Dim i, j
Dim fs, ts As Variant
Dim filename As String, Sohieutep As String
Dim Ngaytao As String, strtmp As String
MsgBox "Finished Creating text file", vbInformation, "Message"
    filename = Application.GetSaveAsFilename(wbName, "Text files,*.txt", 2, "C:\")
Set fs = CreateObject("Scripting.FilesystemObject")
fs.CreateTextFile filename ' create file text
Set f = fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
i = 16
While ActiveSheet.Cells(i, 2).Value <> ""
strtmp = "<C>"
For j = 1 To 20
strtmp = strtmp & "~" & Trim(ActiveSheet.Cells(i, Choose(j, 1, 2, _
3, 4, 5, 6, 7, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24)))
Next j
strtmp = strtmp & "</C>"
ts.Write strtmp
i = i + 1
Wend
End Sub

 

[nhankl]

cảm ơn bạn nhé.
Tớ sẽ làm theo cách của cậu
Hi vọng là xuôi chèo mát mái

 

[sealand]

Mình bổ xung chút đầu và cuối, bạn điền mã số thuế vào mã cơ quan chi trả và tên cơ quan vào tên cơ quan chi trả (Mã số thuế viết kèm dấu " ' " để dảm bảo mã số là tExt và có số 0 ở đầu

Sub CreatePO()
Dim i, j
Dim fs, ts As Variant
Dim filename As String, Sohieutep As String
Dim Ngaytao As String, strtmp As String
MsgBox "Finished Creating text file", vbInformation, "Message"
    filename = Application.GetSaveAsFilename(wbName, "Text files,*.txt", 2, "C:\")
Set fs = CreateObject("Scripting.FilesystemObject")
fs.CreateTextFile filename ' create file text
Set f = fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.Write "<S01><S><C>(" & Trim(ActiveSheet.[E1]) & ")~(" & [E3] & ")</C></S><S>"
i = 16
While ActiveSheet.Cells(i, 2).Value <> ""
strtmp = "<C>"
For j = 1 To 20
strtmp = strtmp & "~" & Trim(ActiveSheet.Cells(i, Choose(j, 1, 2, _
3, 4, 5, 6, 7, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24)))
Next j
strtmp = strtmp & "</C>"
ts.Write strtmp
i = i + 1
Wend
ts.Write "</S></S01>"
End Sub

 

[nhankl]

em ko hiểu a sealand viết gì
nó là cái gì vậy hả a
a hướng dẫn em với
em cảm ơn nhé

 

[sealand]

Mình muốn sửa 1 chút code trong file của Loan1989 thôi. Nhấn Alt+F11 chép code này thay vào toàn bộ code trong đó. Nhờ các bạn Test giùm vì mình soạn code chay chưa test load vào TNCN 2.5
Minh load laij file nha

 

[nhankl]

anh ơi
em hỏi anh chút
em làm theo file excel a cho em ý, sau đó em chuyển sang file text rồi, import nó báo là cấu trúc file dữ liệu ko phù hợp với cấu trúc ở trong phần mềm.
em làm 1 cách là thử nhập vào 2.5 sau xuất ra dạng text .
em so sánh 2 file text này với nhau thì em mới thấy là nó có sự khác biệt 1 chút , ví dụ là tệp có 3 người thì dấu ngăn cách giữa thông tin 3 người là </C><C>.
Vậy anh cho em hỏi là làm thế nào để có kí tự kia trong file text (do chuyển từ file excel)
anh đã import thành công chưa ạ, em thử trăm phương ngàn kế rồi.
Hi vọng a sẽ giúp được em , hihihi

 

[nhankl]

anh ơi
em hỏi anh chút
em làm theo file excel a cho em ý, sau đó em chuyển sang file text rồi, import nó báo là cấu trúc file dữ liệu ko phù hợp với cấu trúc ở trong phần mềm.
em làm 1 cách là thử nhập vào 2.5 sau xuất ra dạng text .
em so sánh 2 file text này với nhau thì em mới thấy là nó có sự khác biệt 1 chút , ví dụ là tệp có 3 người thì dấu ngăn cách giữa thông tin 3 người là </C><C>.
Vậy anh cho em hỏi là làm thế nào để có kí tự kia trong file text (do chuyển từ file excel)
anh đã import thành công chưa ạ, em thử trăm phương ngàn kế rồi.
Hi vọng a sẽ giúp được em , hihihi.

 

[sealand]

Mình đã chỉnh lại Code và so sánh với file kết quả cua Loan 1989 hoàn toàn giống nhau. Lưu ý bạn không phải thêm đầu cuối như Loan 1989 mà Code đã tự đưa vào. Bạn phải nhập mã số và tên đơn vị chi trả vào sheet trước khi tạo file Text

Bạn test thử và thông báo lại cho mình với vì mình không cài nên không Test được (Nếu bạn có file Txt chuẩn có thể Import được thì gửi lên để mình kiểm tra cấu trúc xem sao)

 

[nhankl]

hi anh
em gửi anh file text nhé,
em băn khoănlaf ở file text chuẩn thì nó có kí tự ~~~ liền nhau
còn file của em thì nó lại cách xa nhau ~ ~ ~.
em ko thấy chỗ nào cho attack file nhỉ

 

[sealand]

Cấu trúc file của Loan sai rồi, mình vừa phải tải về và cài đặt TNCN 2.5 để Test.
Tối nay mình hiệu chỉnh lại cho, Công ty chuẩn bị nghỉ rồi