logo
down
shadow

Kofax Seperate Main Invoice from Supporting Document without using Seperator sheet


Kofax Seperate Main Invoice from Supporting Document without using Seperator sheet

By : xybsos
Date : November 19 2020, 03:59 PM
To fix this issue In general the concept would be that you would enable separation in the project and then train your classes with examples to be used for the layout or content classifiers.
However, as I'm sure you've seen, the obstacle with invoices is that they are different enough between vendors that it would not reliably classify all to an Invoice class. Similarly with "Supporting Documents" which are likely to be very different from each other, so unfortunately there isn't a completely easy answer without separator sheets (or barcode stickers affixed to supporting docs).
code :


Share : facebook icon twitter icon
regex how to split String without removing that seperator and adding it in seperate way

regex how to split String without removing that seperator and adding it in seperate way


By : Midnightmed
Date : October 31 2020, 05:41 PM
like below fixes the issue regarding this topic: https://stackoverflow.com/questions/4416425/how-to-split-string-with-some-separator-but-without-removing-that-separator-in-j#= , You need to use look ahead and look behind like following
code :
    String string1="Ram-sita-laxman";
    System.out.println(Arrays.toString(string1.split("((?<=-)|(?=-))")));
Excel VBA- Modify code so data transferred from 'Invoice' sheet to 'Sales Book' sheet save to a different workbook inste

Excel VBA- Modify code so data transferred from 'Invoice' sheet to 'Sales Book' sheet save to a different workbook inste


By : Jonas Stock
Date : March 29 2020, 07:55 AM
I hope this helps . Something like this should work. Everything I've added/edited i've marked with '''!.
code :
Sub sendtosales()
Dim WB as Workbook  '''!
Dim CurrentWB as Workbook  '''!
Dim WBLoc as String  '''!
Dim rng As Range
Dim i As Long
Dim a As Long
Dim rng_dest As Range
Application.ScreenUpdating = False
WBLoc = "C:\Documents\Salestracker.xlsm"  '''! Location of the workbook
Set CurrentWB = Excel.ThisWorkbook  '''!
Set WB = Workbooks.Open(WBLoc)   '''! Opens the workbook
i = 1
Set rng_dest = WB.Sheets(1).Range("D:F") '''! Change Sheets() to whichever sheet you want to use

' Find first empty row in columns D:F on sheet Sales Book
Do Until WorksheetFunction.CountA(rng_dest.Rows(i)) = 0
   i = i + 1
Loop

'Copy range A23:D27 on sheet Invoice to Variant array
Set rng = CurrentWB.Sheets("Invoice").Range("A23:D27") '''!

' Copy rows containing values to sheet Sales Book
For a = 1 To rng.Rows.Count
If WorksheetFunction.CountA(rng.Rows(a)) <> 0 Then
  rng_dest.Rows(i).Value = rng.Rows(a).Value
  With WB.Sheets(1)  '''! Change Sheets() to whichever sheet you want to use
     'Copy Invoice number
     .Range("B" & i).Value = CurrentWB.Sheets("Invoice").Range("C18").Value '''!
     'Copy Date
     .Range("A" & i).Value = CurrentWB.Sheets("Invoice").Range("C15").Value '''!
     'Copy Company name
     .Range("C" & i).Value = CurrentWB.Sheets("Invoice").Range("A7").Value '''!
  End With  '''!
  i = i + 1
End If
Next a

WB.Close savechanges:=True  '''! This wil close the Workbook and save changes

Set WB = Nothing  '''! Cleaning memory
Set CurrentWB = Nothing  '''! Cleaning memory
Application.ScreenUpdating = True

End Sub
Copy invoice input to separate sheet, save the invoice as pdf & reset invoice sheet

Copy invoice input to separate sheet, save the invoice as pdf & reset invoice sheet


By : Jørgen Skevik
Date : March 29 2020, 07:55 AM
should help you out To copy the secondary data as many times as there are invoice details lines, you could do that as below, just replace your code with this one:
code :
Sub InvoiceToRecords()
Dim ws As Worksheet: Set ws = Worksheets("Invoice")
Dim wsData As Worksheet: Set wsData = Worksheets("Invoice Data")
'declare and set the worksheets, amend as required
Dim i As Long, dataRows As Long

    dataRows = ws.Range("Invoice").Columns(1).SpecialCells(xlCellTypeConstants, 23).Count
    'count the number of Invoice lines with data (non-empty)
    ws.Range("Invoice").Copy wsData.Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    'copy invoice lines to Invoice Data
    For i = 1 To dataRows 'loop from 1 to however many lines your named range "Invoice" has
        ws.Range("Customer").Copy wsData.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        ws.Range("Invoice Number").Copy wsData.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
        ws.Range("Invoice Date").Copy wsData.Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
End Sub
Sub foo()
    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    Filen = "C:\Users\Lorenz\Desktop\NewPdf.pdf"
    'amend filename & path to save above
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Filen, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub
Sub InvoiceToRecords()
Dim ws As Worksheet: Set ws = Worksheets("Invoice")
Dim wsData As Worksheet: Set wsData = Worksheets("Invoice Data")
'declare and set the worksheets, amend as required
Dim i As Long, dataRows As Long
'TRANSFER data to Invoice Data
    dataRows = ws.Range("Invoice").Columns(1).SpecialCells(xlCellTypeConstants, 23).Count
    'count the number of Invoice lines with data (non-empty)
    ws.Range("Invoice").Copy wsData.Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    'copy invoice lines to Invoice Data
    For i = 1 To dataRows 'loop from 1 to however many lines your named range "Invoice" has
        ws.Range("Customer").Copy
        wsData.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        ws.Range("Invoice Number").Copy
        wsData.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        ws.Range("Invoice Date").Copy
        wsData.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Next i

'SAVE Invoice as PDF
FilenameValue = ws.Range("Customer") & "_Invoice" & ws.Range("Invoice Number")
FilenameValue = Replace(FilenameValue, " ", "") 'remove spaces
FilenameValue = Replace(FilenameValue, ".", "_") 'replace dots with underscore
Filen = "C:\Users\Lorenz\Desktop\" & FilenameValue & ".pdf"
'amend filename & path to save above
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Filen, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

'CLEAR ranges ready for next invoice
ws.Range("Invoice").ClearContents
ws.Range("Customer").ClearContents
ws.Range("Invoice Number").ClearContents
ws.Range("Invoice Date").ClearContents
End Sub
Has anyone used Kofax Capture API for creating a Importer to create a batch in Kofax

Has anyone used Kofax Capture API for creating a Importer to create a batch in Kofax


By : user3780781
Date : March 29 2020, 07:55 AM
hop of those help? Hmm, I don't know if it's possible to do inside a custom module. When writing a custom module you're typically using the Kofax Capture Optimized Custom Module API (DBLiteOpt.dll). I know you can create an empty batch with a custom module by using BatchCreate method of the RuntimeSession object:
Splitting string with '+' seperator into seperate rows and apply aggregation

Splitting string with '+' seperator into seperate rows and apply aggregation


By : Serj Nefiodov
Date : March 29 2020, 07:55 AM
I wish this help you Like i said the MySQL query is complex..
The general idea is a MySQL number generator which generates 1 to 10000 so it supports 10000 separated values with the + sign in the group column.
code :
SELECT 
   Table1_unique_groups.`group`
 , SUM(Table1.val)
FROM (

SELECT 
 DISTINCT
   SUBSTRING_INDEX(SUBSTRING_INDEX(Table1.`group`, '+', number_generator.number), '+', -1) AS `group`

FROM (
  SELECT 
   @row := @row + 1 AS number
  FROM (
    SELECT 0 UNION SELECT 1 UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION SELECT 9
  ) record_1
  CROSS JOIN (
    SELECT 0 UNION SELECT 1 UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION SELECT 9
  ) record_2    
  CROSS JOIN (
    SELECT 0 UNION SELECT 1 UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION SELECT 9
  ) record_4
  CROSS JOIN (
    SELECT 0 UNION SELECT 1 UNION SELECT 2 UNION SELECT 3 UNION SELECT 4 UNION SELECT 5 UNION SELECT 6 UNION SELECT 7 UNION SELECT 8 UNION SELECT 9
  ) record_5     
  CROSS JOIN (
    SELECT @row := 0 
  ) AS init_user_params
) AS number_generator
CROSS JOIN 
 Table1 

) AS Table1_unique_groups

INNER JOIN 
  Table1
ON
  FIND_IN_SET(Table1_unique_groups.`group`, REPLACE(Table1.group, '+', ','))

GROUP BY 
 Table1_unique_groups.`group`
| group | SUM(Table1.val) |
| ----- | --------------- |
| a     | 15              |
| b     | 28              |
| c     | 24              |
| d     | 37              |
shadow
Privacy Policy - Terms - Contact Us © ourworld-yourmove.org