See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Private Sub OfficialReceipt_LOCAL(trxno As String) Dim rs As DAO.Recordset Dim STR As String Dim i As Double Set rs = dbLocal.OpenRecordset("SELECT * FROM DETAILS WHERE DOCNO='" & saveDocNo & "' ORDER BY ROWNO ASC") Open OpenPort_ For Output As #1 i = Len(Trim(H.H1)) i = i \ 2 i = 20 - i If i = 20 Then Else STR = Space(i) & Trim(H.H1) Print #1, STR End If Print #1, "Customer : " & Trim(Setmeup(0)) If i = 20 Then Else STR = Space(i) & Trim(H.H6) 'Print #1, STR End If Print #1, String(40, "_") Print #1, "DESCRIPTION QTY PRICE AMOUNT" Print #1, String(40, "-") Set rs = Nothing For i = 0 To NoLineFeed Next Close #1 Set rs = Nothing End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!