- #Datecs fp 300 drivers download mod#
- #Datecs fp 300 drivers download software#
- #Datecs fp 300 drivers download code#
"C:\Program Files\Datecs Applications\FPrint WIN\FPrint.exe" COM1 9600"C:\Bill1.inp"
#Datecs fp 300 drivers download code#
In the code above I create a file "C:\Bill1.inp" and then I create and start the process :
#Datecs fp 300 drivers download software#
RunPrinterProcess = "Error nb: " & Err.Number & ", " & "Error desc.: " & Err.Description & ", Error src.: " & " RunPrinterProcess " & " FileName: " & sFileName & ", Arguments: " & sArgumentsįirst you must have FPrint.exe installed on the pc where the software is, and the printer must be connected to this pc. StartInfo.FileName = sFileName '' "C:\Program Files\Datecs Applications\FPrintWIN\FPrint.exe" StartInfo.Arguments = sArguments '"COM1 9600 " & InpFilePath Private Function RunPrinterProcess(ByVal sFileName As String, ByVal sArguments As String) As String PResult = RunPrinterProcess(AppDriverPath, Port & " 9600 """ & BillINPPath & "\Bill" & CStr(BillCtr) & ".INP""") MyBill.AddProduct(Mid(Trim(drt.Item(2).ToString), 1, productLength), dQty, dPrice, iDepID, iGroupArt, 1)ĭiscountRate = (dDiscount / dInitialAmount) * 100
#Datecs fp 300 drivers download mod#
IGroupArt = (CDec(drt.Item(18)) Mod maxArtNb) + 1 IDepID = (CDec(drt.Item(17)) Mod maxDepNb) + 1 MyBill.AddTextLine("Product Qty SubTotal")ĭNetAmount = CDec(dtData.Rows(0).Item(15))ĭInitialAmount = CDec(dtData.Rows(0).Item(13))ĭDiscount = CDec(dtData.Rows(0).Item(14)) MyBill.AddTextLine(SA & " " & dtData.Rows(0).Item(11).ToString) MyBill = New DATECS(BillINPPath, LDN, BillCtr) PrintLine(1, "T," & CStr(LDN) & "," & strANS & CStr(pmtType) & " ") Public Sub AddPayment(ByVal pmtType As Short) If Not IsDBNull(T5) Then strLine = strLine & T5 & " " If Not IsDBNull(T4) Then strLine = strLine & T4 & " " If Not IsDBNull(T3) Then strLine = strLine & T3 & " " If Not IsDBNull(T2) Then strLine = strLine & T2 & " " Public Sub AddTextLine(ByVal T1 As String, Optional ByRef T2 As String = "", Optional ByRef T3 As String = "", Optional ByRef T4 As String = "", Optional ByRef T5 As String = "") StrLine = "C," & CStr(LDN) & "," & strANS & iCode & " " & dProcent.ToString("f", niDec) & " " 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