Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Function GetInvoiceDetail(strRecord As String) As InvoiceDetail Dim DetailFields() As String DetailFields = Split(Replace(strRecord, Chr(34), ""), ",") GetInvoiceDetail.Ship_Qty = CLng(DetailFields(0)) GetInvoiceDetail.Order_Qty = CLng(DetailFields(1)) GetInvoiceDetail.Code = DetailFields(2) GetInvoiceDetail.UM = DetailFields(3) GetInvoiceDetail.Blank1 = DetailFields(4) GetInvoiceDetail.Description = DetailFields(5) GetInvoiceDetail.Blank2 = DetailFields(6) GetInvoiceDetail.Blank3 = DetailFields(7) GetInvoiceDetail.Blank4 = DetailFields(8) GetInvoiceDetail.CIN = CLng(DetailFields(9)) GetInvoiceDetail.PO_Number = DetailFields(10) GetInvoiceDetail.Due_Date = CDate(DetailFields(11)) GetInvoiceDetail.DEA_Class = CLng(DetailFields(12)) GetInvoiceDetail.Unit_Price = CDbl(DetailFields(13)) GetInvoiceDetail.Extension = CDbl(DetailFields(14)) End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.