Vor mehr als einem Jahrzehnt war es nicht un\u00fcblich, dass Bestellungen per Post eintrafen. Die eingehenden Belege wurden mit einem Barcode best\u00fcckt und anschliessend gescannt. Der erfasste Code auf den Belegen wurde in der ERP-Software mittels Lesepistole an diese \u00fcbermittelt. Ab diesem Zeitpunkt konnte die Beschlagwortung automatisch erfolgen.<\/p>\n \u00dcber die Jahre verlagerten sich die Eing\u00e4nge vom Papier hin zur digitalen Welt. Der gr\u00f6sste Teil des Bestelleinganges erfolgt aktuell per Mail bzw. mit entsprechend angeh\u00e4ngten PDF-Dateien. Dies f\u00fchrte dazu, dass immer mehr PDF-Dateien ausgedruckt wurden, nur um diese mit einem Barcode-Kleber best\u00fccken zu k\u00f6nnen und diese dem Scanner zuzuf\u00fchren.<\/p>\n Diesen manuellen Vorgang galt es m\u00f6glichst zu optimieren. In einem ca. einst\u00fcndigen Gespr\u00e4ch wurden zusammen mit dem Kunden die Optionen besprochen. Dabei kristallisierten sich zwei L\u00f6sungswege heraus: Erstens, bei jedem eingehenden Dokument wird eine Haftnotiz mit einem Barcode angebracht oder zweitens, der gew\u00fcnschte Barcode wird oberhalb der ersten Seite „reingepixelt“.<\/p>\n Die erste Variante h\u00e4tte den Vorteil gehabt, dass die Belege nicht „angefasst“ h\u00e4tten werden m\u00fcssen. Jedoch, um Haftnotizen mit Barcodes erstellen zu k\u00f6nnen, h\u00e4tte auf s\u00e4mtlichen Clients der entsprechende Barcode-Zeichensatz (Code39) zur Verf\u00fcgung gestellt werden m\u00fcssen. Der Webserver h\u00e4tte zusammen mit der Webseite einfach auch den entsprechenden Zeichensatz ausgeliefert. Jedoch, die Haftnotiz muss ja irgendwo auf dem Beleg platziert werden und k\u00f6nnte unter Umst\u00e4nden einen Bereich „\u00fcberdecken“, der zentrale Informationen enth\u00e4lt.<\/p>\n Bei der zweiten Variante wird der Barcode oberhalb der ersten Seite angebracht. Dadurch erh\u00e4lt die erste Seite einer Akte ca. 200 Pixel mehr in der H\u00f6he. Damit aber ist sichergestellt, dass der Barcode-Kleber zu keiner Zeit einen anderen Inhalt auf den Belegen \u00fcberdeckt. Zusammen mit dem Kunden wurde die zweite Variante gew\u00e4hlt.<\/p>\n Nachfolgend wird die f\u00fcr den Kunden realisierte L\u00f6sung pr\u00e4sentiert:<\/p>\n Dieses Skript ist im folgenden Ordner mit dem Namen ‚bcadd‘ zu platzieren:<\/p>\n Damit das Skript nach jeder erfassten Seite aufgerufen wird, wird in WebAdmin bei ‚Scannen‘ eine entsprechende Definition ben\u00f6tigt. Konkret zu unserem Beispiel ist eine Scan-Definition mit dem Namen ‚bcadd‘ zu erstellen. Weiter wird im Verarbeitungsordner ein entsprechender Ordner ben\u00f6tigt:<\/p>\n Damit ist sichergestellt, dass beim Erfassen der Belege \u00fcber den Ordner ‚bcadd‘ immer passend dazu die Scan-Definition ‚bcadd‘ verwendet wird. Damit beim Verarbeiten das entsprechende Skript jeweils gestartet wird, ist bei der Scan-Definition bei Vorgabefelder das Skript ‚bcadd.pl‘ einzutragen. Damit ist der Prozess aktiviert.<\/p>\n![\"\"](\"https:\/\/archivista.ch\/cms\/wp-content\/uploads\/2023\/10\/mare1.jpg\")
<\/a><\/p>\nDie Vorgeschichte: Drucken, Kleben, Scannen…<\/h2>\n
Automatisierung mit virtuellen Barcodes<\/h2>\n
<\/a><\/p>\nImplementierung mit Skript<\/h2>\n
#!\/usr\/bin\/perl\r\nuse lib qw(\/home\/cvs\/archivista\/jobs);\r\nuse AVJobs;\r\nuse GD::Barcode::Code39;\r\nmy $start = 5000000;\r\nmy $field = \"Titel\";\r\nmy ($host,$db,$user,$pw,$doc) = @ARGV;\r\nmy $dbh = MySQLOpen($host,$db,$user,$pw);\r\nif (HostIsSlave($dbh)==0) {\r\n my $sql = \"use $db\";\r\n $dbh->do($sql);\r\n $sql = \"select Laufnummer,Seiten,Archiviert,ArchivArt from archiv \".\r\n \"where Laufnummer=$doc && ($field is null or $field='' or $field=0)\";\r\n my ($lnr,$seiten,$arch,$art) = $dbh->selectrow_array($sql);\r\n my $ext = \"png\";\r\n $ext = \"jpg\" if $art==3;\r\n $ext = \"tif\" if $art==1;\r\n if ($lnr==$doc && $seiten>0 && $arch==0) {\r\n my $bc = getUnique($dbh,$start);\r\n if ($bc>=$start) {\r\n my $seite = ($doc*1000)+1;\r\n $sql = \"select BildInput from archivbilder where Seite=$seite\";\r\n my ($pimg) = $dbh->selectrow_array($sql);\r\n my $fin = \"\/tmp\/$db-$lnr-1.$ext\";\r\n my $fbc1 = \"\/tmp\/$db-$lnr-$bc-1.png\";\r\n my $fbc2 = \"\/tmp\/$db-$lnr-$bc-2.png\";\r\n my $fbc3 = \"\/tmp\/$db-$lnr-$bc-3.png\";\r\n my $ftmp = \"\/tmp\/$db-$lnr-2.$ext\";\r\n my $fout = \"\/tmp\/$db-$lnr-3.$ext\";\r\n deleteFiles($fin,$fbc1,$fbc2,$fbc3,$ftmp,$fout);\r\n writeFile($fin,\\$pimg);\r\n my $bco=GD::Barcode::Code39->new('*'.$bc.'*');\r\n my $img=$bco->plot();\r\n writeFile($fbc1,\\$img->png());\r\n my $res=system(\"econvert -i $fbc1 --scale 2 -o $fbc2\");\r\n $res=system(\"convert $fbc2 -bordercolor White -border 50 $fbc3\");\r\n $res=system(\"convert -append $fbc3 $fin $ftmp\");\r\n $res=`edentify $fin`;\r\n $res =~ \/([0-9]+)(x)([0-9]+)(dpi)\/;\r\n if ($1>0 && $2 eq \"x\" && $3>0 && $4 eq \"dpi\") {\r\n $res=system(\"econvert -i $ftmp --resolution $1x$3 -o $fout\");\r\n } else {\r\n $res=system(\"mv $ftmp $fout\");\r\n }\r\n my $cont=\"\";\r\n readFile2($fout,\\$cont);\r\n if ($cont ne \"\") {\r\n $sql = \"update archivbilder set BildInput=\".$dbh->quote($cont).\r\n \",Bild='' where Seite=$seite\";\r\n $dbh->do($sql);\r\n deleteFiles($fin,$fbc1,$fbc2,$fbc3,$ftmp,$fout);\r\n $sql = \"update archiv set $field=\".$dbh->quote($bc).\" where \".\r\n \"Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n logit(\"stamp $bc sucessfully to $db and doc $doc added!\");\r\n }\r\n }\r\n }\r\n}\r\n\r\nsub deleteFiles {\r\n my @files = @_;\r\n foreach my $file (@files) {\r\n unlink $file if -e $file;\r\n }\r\n}\r\n\r\nsub getUnique {\r\n my ($dbh,$start) = @_;\r\n my $bc=0;\r\n my $plus=\"Name='BarcodeStamp' and Art='parameter' and Tabelle='parameter'\";\r\n my $sql0 = \"select Inhalt from parameter where $plus\";\r\n for (my $c=1;$c<=10;$c++) {\r\n ($bc) = $dbh->selectrow_array($sql0);\r\n if ($bc>0) {\r\n $bc++;\r\n my $bc2 = int($bc-(2*$bc));\r\n my $sql = \"update parameter set Inhalt=\".$dbh->quote($bc2).\" where \".\r\n \"$plus and Inhalt>0\";\r\n $dbh->do($sql);\r\n my ($bc3) = $dbh->selectrow_array($sql0);\r\n if ($bc3==$bc2) {\r\n my $sql = \"update parameter set Inhalt=\".$dbh->quote($bc).\" where \".\r\n \"$plus and Inhalt<0\";\r\n $dbh->do($sql);\r\n\tlast;\r\n }\r\n } elsif ($bc==0) {\r\n my $sql = \"insert parameter set Inhalt=\".$dbh->quote($start).\",\".\r\n \"Name='BarcodeStamp',Art='parameter',Tabelle='parameter'\";\r\n $dbh->do($sql);\r\n my ($bc) = $dbh->selectrow_array($sql0);\r\n last $bc==$start;\r\n }\r\n sleep $c;\r\n }\r\n return $bc;\r\n}\r\n<\/strong><\/pre>\n\/home\/data\/archivista\/cust\/autofields<\/strong><\/pre>\n
cd \/home\/data\/archivista\/ftp\/office\/dbname<\/strong>\r\nmkdir bcadd<\/strong>\r\nchown -R ftp.users bcadd<\/strong><\/pre>\n
<\/a><\/p>\nFazit: Wenig Aufwand f\u00fcr hohe Ersparnis<\/h2>\n