Permalink
Browse files

ConvertPDFs made more sophisticated and more appropriately renamed Re…

…namePDFs
  • Loading branch information...
C. Johnson
C. Johnson committed Apr 26, 2018
1 parent c0d4b0a commit 51a41652e61a5fc0d700a74efe37bd688a6734a6
Showing with 186 additions and 112 deletions.
  1. +2 −2 Form_Accessions.cls
  2. +179 −108 ModControlFilesDatabase.bas
  3. +4 −1 Module1.bas
  4. +1 −1 cAccnScanListView.cls
@@ -149,7 +149,7 @@ AttachToRecordCatch:
Dim Fixed As Boolean
Let Fixed = False
If Err.Number = NOHOOK_EXCEPTION Then
If Err.Number = EX_NOHOOK Then
If Me.NewRecord Then
AccnScanListView.View FileName:=sItem
@@ -539,7 +539,7 @@ Private Function regexpIsAccnScanFile() As Object
With oIsAccnFile
.IgnoreCase = True
.pattern = "^([A-Z0-9]+)_([0-9]+)_([0-9]+)_([0-9]{4})([0-9]{2})?([0-9]{2})?.*[.]PDF(|.*)$"
.Pattern = "^([A-Z0-9]+)_([0-9]+)_([0-9]+)_([0-9]{4})([0-9]{2})?([0-9]{2})?.*[.]PDF(|.*)$"
End With
Set regexpIsAccnScanFile = oIsAccnFile
Oops, something went wrong.

0 comments on commit 51a4165

Please sign in to comment.