1000 Projects

Join Internshala Certified Online Trainings with Live Projects on Web Development, VLSI, Java, .NET, Hacking, Robotics & more

Account Payable System a Visual Studio Project Report


Description: 

The primary purpose of an Accounts Payable Visual studio Project is to track all dollars that are owed to vendors (or suppliers). The printing of checks and vendor, along with the coordination of current cash flow, is essential. Account-Payable-System-a-Visual-Studio-Project-Report

The Infinity POWER Accounts Payable module addresses all of these basic “payable” needs as well as providing many advanced reporting and tracking capabilities. The check writing options provide the ability to write direct checks, make check runs based on currently due “payables” and record manually written checks after-the-fact. 

The Accounts Payable module can accommodate an unlimited number of checking accounts simultaneously. Each invoice voucher into the Accounts Payable system as an open item is coded for payment terms when entered. The system is designed to process your transactions through either the cash or accrual methods of accounting. 

Advantages:  

This system automatically calculates retain age during vouchering or allows for the entry of retain age only vouchers. All aging reports then track retain age amounts separately. The Accounts Payable reporting provides detailed aging by vendor of all outstanding invoices. All your payable information available for online and real-time access.   



This Account Payable System provides complete vendor information, inter-company accounting, on-line query retrieval, multi-currency processing, exception processing and control. In addition to this we can review any information through online query or hard copy reporting. 

This system allows you to select the exact information you want to see through the exact specification you provide. You can review a range of accounts, vendors, activity dates, due dates, or other criterion. In addition, you can check deliveries against invoices automatically through purchasing or  manually. 

Option Explicit On
Module standard
'Returns the application's path
Public Function AppPath() As String
AppPath = Mid(GetPath(Windows.Forms.Application.ExecutablePath), 1, (Len(GetPath(Windows.Forms.Application.ExecutablePath)) - 1))
End Function

'Deletes a file if it exists
Public Function fDestroy(ByVal sPath As String, ByVal sFileName As String) As Boolean

sFileName = sPath & "\" & sFileName

On Error GoTo FAILURE

If FileExists(sFileName) Then Kill(sFileName)

Return True

Exit Function

FAILURE:
Return False
End Function

'
Return JUST the path from a string containing path+filename
Public Function GetPath(ByVal FullPath As String) As String
Dim sChar As String
Dim X As Integer

'Takes in a Path and Filename string and returns only the filename

FullPath = Trim(FullPath)

If Len(FullPath) = 0 Then
GetPath = ""
Exit Function
End If

X = Len(FullPath)
sChar = ""

Do Until sChar = "\" Or X = 0

sChar = Mid(FullPath, X, 1)
X = X - 1

Loop

If X > 0 Then X = X + 1

GetPath = Mid(FullPath, 1, X)

End Function

'
Centers a form
Public Sub CenterForm(ByVal FormIn As Form)

FormIn.Top = ((System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height - FormIn.Height) / 65)
FormIn.Left = (System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height - FormIn.Width) / 2

End Sub

'Returns JUST the filename from a string containing path+filename (ext optional)
Public Function GetFileName(ByVal FullPath As String, Optional ByVal NoExt As String = "") As String
Dim sChar As String
Dim X As Integer

'
Takes in a Path and Filename string and returns only the filename

FullPath = Trim(FullPath)

If Len(FullPath) = 0 Then
GetFileName = ""
Exit Function
End If

X = Len(FullPath)
sChar = ""

Do Until sChar = "\" Or X = 0

sChar = Mid(FullPath, X, 1)
X = X - 1

Loop

If X > 0 Then X = X + 1

If NoExt = "
NoXT" Then
GetFileName = Mid(Right(FullPath, (Len(FullPath) - X)), 1, (Len(Trim(Right(FullPath, (Len(FullPath) - X)))) - 4))
Else
GetFileName = Right(FullPath, (Len(FullPath) - X))
End If

NoExt = "
"

End Function

'Returns TRUE if a file exists
Public Function FileExists(ByVal FilePath As String) As Boolean
Dim FileName As String
Dim TargetFile As String

'Returns True if the file specified exists, False if not

FileName = "
"

On Error GoTo NoFiles

TargetFile = GetFileName(FilePath) 'Requires GetFileName function

'
'ChDir (FilePath)
FileName = Dir(FilePath)

If UCase(FileName) = UCase(TargetFile) Then
FileExists = True
Else
FileExists = False
End If

Exit Function
NoFiles:

FileExists = False

End Function

'Returns TRUE if a directory exists
Public Function DirExists(ByVal FilePath As String) As Boolean
Dim FileName As String
Dim TargetFile As String

'Returns True if the directory specified exists, False if not

FileName = "
"

On Error GoTo NoFiles

TargetFile = GetFileName(FilePath) 'Requires GetFileName function

'
'ChDir (FilePath)
FileName = Dir(FilePath, vbDirectory)

If UCase(FileName) = UCase(TargetFile) Then
DirExists = True
Else
DirExists = False
End If

Exit Function
NoFiles:

DirExists = False

End Function

'Finds a group of files and returns them in the array FileNames
Public Sub FindFiles(ByVal Ext As String, ByVal FilePath As String, ByRef FileNames() As String)
Dim FileName As String
Dim X As Integer

FilePath = Trim(FilePath)
'If Right(FilePath, 1) = "
\" Then
' FilePath = Mid(FilePath, 1, (Len(FilePath) - 1))
'End If

X = 0
'load in files

On Error GoTo NoFiles
ChDrive(Mid(FilePath, 1, 3))
ChDir(FilePath)

FileName = Dir(Ext)

Do

'THIS IS WHERE FILE IS FOUND IF THERE ARE ANY

FileNames(X) = FileName
X = X + 1

FileName = Dir()
Loop Until FileName = "
"

Exit Sub
NoFiles:
'Do Nothing
End Sub

'Pads a string either left or right with given character
Public Function PadString(ByVal sString As String, ByVal dTotChars As Double, ByVal sFillChar As String, ByVal sLeft As Boolean) As String
Dim dLen As Double
Dim dFillLen As Double

dLen = Len(Trim(sString))

If dLen < dTotChars Then

dFillLen = dTotChars - dLen

If sLeft = True Then
PadString = Microsoft.VisualBasic.Strings.StrDup(CInt(dFillLen), sFillChar) & Trim(sString)
Else
PadString = Trim(sString) & Microsoft.VisualBasic.Strings.StrDup(CInt(dFillLen), sFillChar)
End If
Else

PadString = sString

End If

End Function

Public Sub RegDLL(ByVal DLLName As String, Optional ByVal DLLPath As String = "
APPLICATION")
If DLLPath = "
APPLICATION" Then DLLPath = AppPath()
Shell(DLLPath & "
\regsvr32.exe " & DLLName & " /s")
End Sub

'Public Function StringToByte(ByRef szString As String) As Byte()
' If szString.Length = 0 Then Exit Function
' Dim i As Integer
' Dim btRet(szString.Length - 1) As Byte
' For i = 0 To szString.Length - 1
' btRet(i) = Asc(szString.Chars(i))
' Next
' Return btRet
'End Function

'Public Function ByteToString(ByRef btBytes() As Byte) As String
' Dim szRet As String
' Dim i As Integer
' For i = LBound(btBytes) To UBound(btBytes)
' szRet += Chr(btBytes(i))
' Next
' Return szRet
'End Function

End Module

Conclusion: 

The Accounts Payable System manages your cash flow by keeping you up to date about suppliers, outstanding debts, payments made, goods received, invoices and other related information.

The Mitrol Accounts Payable system allows real-time, online updating and validation of your suppliers, outstanding debts, payments made, accounts payable, goods received, and invoices and so on. The Mitrol Accounts Payable Subsystem provides the following real-time facilities too.

download Project Report  of CSE  Accounts Payable Visual studio Project .

The following two tabs change content below.
Hi, We kasarla shanthan and Ramesh Gavva graduated Btech from VTU / JNTU & former employees of Infrotrack / Wipro Technologies . We basically interested on web development from the graduation period. We are interested to write blogs on Projects and technology. By that initiation we created several websites including 1000projects.org. Our Hobbies are poetry, reading books, story writing writing, and web development.

Latest posts by Kasarla shanthan/Ramesh Gavva (see all)



‹‹‹ A Signature-free Buffer Overflow Attack Blocker a Java .Net Project Report

Active Learning Methods for Interactive Image Retrieval Database Project Report ›››

Custom Search

3 Comments to "Account Payable System a Visual Studio Project Report"

  1. gabby wrote:

    good

  2. BE Projects wrote:

    thanks gabby

  3. smart lofar wrote:

    thanks but i neet in sql form

Leave Your Comment

 
Powered by 1000Projects.org , All rights Reserved, Copyright Policy