![]() Public Sub DiscountIncrease(ByVal dProcent As Decimal, Optional ByVal iCode As Integer = 1) MsgBox("Error nb: " & Err.Number & ", " & "Error desc.: " & Err.Description & ", Error src.: " & " WithdrawInput") ![]() StrLine = "I," & CStr(LDN) & "," & strANS & iCode & " " & dSum.ToString("f", niDec) & " " Public Sub CashInOut(ByVal dSum As Decimal, Optional ByVal bWithdraw As Boolean = False) StrLine = "S," & CStr(LDN) & "," & strANS & Trim(Mid(productName, 1, 22)) & " " & SalesValue.ToString("f", niDec) & " " & Qtyvar.ToString("f", noNbDec) & " " & CStr(SAIDvar) & " " & CStr(CatIDvar) & " " & CStr(VATGroup) & " " & "0 0 " Public Sub AddProduct(ByVal productName As String, ByVal Qtyvar As Decimal, ByVal SalesValue As Decimal, ByVal SAIDvar As Integer, ByVal CatIDvar As Integer, ByVal VATGroup As Short) Public Sub New(ByVal strPath As String, ByVal LogicalDeviceNb As Short)Įrr.Raise(Err.Number, "New DATECS", Err.Description) Private LDN As Short 'Logical Device Numberĭim noNbDec As New ĭim niDec As New ĭim threeDec As New
0 Comments
Leave a Reply. |