<%
ids = trim(request("IDS"))
if (ids ="") then
ids=0
end if
if (ids = 0) then
%>
<%
else
%>
<%
end if
%>
<%
id = trim(request("id"))
if id <>"" then
if (id=1) then
%>
<%
end if
if (id=2) then
%>
<%
end if
if (id=3) then
%>
<%
end if
if (id=4) then
%>
<%
end if
if (id=6) then
%>
<%
end if
if (id=10) then
%>
<%
end if
if (id=11) then
%>
<%
end if
if (id=12) then
%>
<%
end if
else
%>
<%
end if
%>
Quản lư danh mục Nguyên phụ liệu nhập khẩu, danh mục sản phẩm
xuất khẩu, quản lư định mức sử dụng/tiêu hao
Đăng kư tờ khai nhập ( In tờ khai,Với chức năng tính thuế, tự
động đổi giá CIF)
Đăng kư tờ khai xuất (In tờ khai, quản lư kết quả xử lư tờ
khai (Đăng kư, Kiểm hoá ,Tính thuế , Điều chỉnh thuế sau kiểm hoá)
Chức năng thanh lư tờ khai : Theo dơi thanh lư tờ khai, cảnh
báo các tờ khai đến hạn thanh lư, Theo dơi nguyên phụ liệu tồn sau
các lần thanh lư
Tự động tạo lập các báo báo thanh lư theo mẫu của Hải quan (15 mẫu
báo cáo hiện tại từ BC01 - BC15).
Tra cứu biểu thuế nhập khẩu, Quản lư danh mục chuẩn, đồng bộ với dữ
liệu Hải quan
Khai báo dữ liệu với hệ thống của Hải quan thông qua đĩa mềm (Khả
năng nâng cấp thành phần mềm Thông quan điện tử , khai báo trực tiếp
qua Internet.)
Sử dụng khai báo theo mô h́nh đại lư:
Khả năng quản lư và thanh lư tờ khai cho nhiều doanh nghiệp. Khai
báo tại nhiều chi cục Hải Quan khác nhau.
Dịch vụ hỗ trợ trực tuyến 24/24:
Giải đáp vướng mắc về sử dụng chương tŕnh, nghiệp vụ xử lư . Nâng
cấp phần mềm. Nhận xây dựng các chức năng quản lư riêng theo đơn đặt
hàng của doanh nghiệp.
<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("counter.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
'lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
'Set tsObject = fsoObject.CreateTextFile(Server.MapPath("counter.txt"))
'Write the new visitor number to the text file
'tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'Display the hit count as text
'Response.Write(lngVisitorNumber)
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write("")
Next
%>
