![\"\"](\"https:\/\/archivista.ch\/cms\/wp-content\/uploads\/2018\/12\/kreditoren.jpg\")
<\/a><\/p>\nSchritt 1: Skript aktivieren<\/h2>\n
Im Rahmen eines neuen Projektes ging es darum, dass alle eingehenden Kreditoren-Rechnungen elektronisch verarbeitet werden k\u00f6nnen. Dabei gab es mehrere Rechtestufen zu implementieren. Das Sekretariat erfasst die Rechnungen (Scannen oder Datei-Upload) und weist diese den Abteilungen zu. Dort k\u00f6nnen diese begutachten und elektronisch visiert werden. Die Gesch\u00e4ftsleitung sieht beim Anmelden alle visierten Posten und autorisiert diese f\u00fcr die Buchhaltung, womit die Rechnungen zur Zahlung freigegeben sind.<\/p>\n
T\u00f6nt einfach, und ist es auch. Mit dem nachfolgenden Code wird ArchivistaDMS um ein komplettes Kreditoren-Management erweitert:<\/p>\n
#!\/usr\/bin\/perl\r\n\r\nuse lib qw(\/home\/cvs\/archivista\/jobs);\r\nuse AVJobs;\r\nmy $host = shift;\r\nmy $db = shift;\r\nmy $user = shift;\r\nmy $pw = shift;\r\nmy $doc = shift;\r\nmy $dbh=MySQLOpen($host,$db,$user,$pw);\r\ncheckChange($dbh,$doc,$user);\r\n$dbh->disconnect();\r\n\r\nsub checkChange {\r\n my ($dbh,$doc,$user) = @_;\r\n my $docit = \"where Laufnummer=$doc \".\r\n \"and DokTyp2Nr=4 and (Gesperrt='' or Gesperrt is null)\";\r\n my $sql = \"select Laufnummer from archiv $docit\";\r\n my ($lnr)=$dbh->selectrow_array($sql);\r\n if ($lnr>0) { \r\n if ($user eq \"buha\") {\r\n $sql = \"select Sachbearbeiter,SachbearbeiterHidden,\".\r\n \"GeschaeftsleitungVisum from archiv $docit\";\r\n my ($sach,$hidden,$visum) = $dbh->selectrow_array($sql);\r\n if ($visum==0) {\r\n if ($sach ne $hidden) {\r\n $sql = \"update $db.archiv set Sachbearbeiter=\".$dbh->quote($sach).\r\n \",SachbearbeiterHidden=\".$dbh->quote($sach).\r\n \",SachbearbeiterVisum=0,SachbearbeiterDatum=Null \".\r\n \"where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n } else {\r\n if ($sach ne $hidden) {\r\n $sql=\"update archiv set Sachbearbeiter=\".$dbh->quote($hidden).\" $docit\";\r\n $dbh->do($sql);\r\n }\r\n }\r\n $sql = \"select BuchhaltungVisum,BuchhaltungDatum,\".\r\n \"GeschaeftsleitungVisum from archiv $docit\";\r\n my ($vis,$dat,$gl) = $dbh->selectrow_array($sql);\r\n if ($gl==1) {\r\n if ($vis==1 && $dat==0) {\r\n $sql = \"update archiv set BuchhaltungDatum='\".SQLStamp1().\r\n \"' where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n } elsif ($vis==0 && $dat>0) {\r\n $sql = \"update archiv set BuchhaltungVisum=1 where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n } else {\r\n if ($vis==1) {\r\n $sql = \"update archiv set BuchhaltungVisum=0 where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n }\r\n } elsif ($user eq \"gl\") {\r\n my $sql = \"select GeschaeftsleitungDatum from archiv $docit\".\r\n \" and GeschaeftsleitungVisum=1 and BuchhaltungVisum=0\";\r\n my @row = $dbh->selectrow_array($sql);\r\n if (int($row[0])==0) { \r\n $sql = \"update archiv set GeschaeftsleitungDatum='\".SQLStamp1().\r\n \"' where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n } else { # Sachbearbeiter\r\n my $sql = \"select Sachbearbeiter from archiv $docit\";\r\n my @row = $dbh->selectrow_array($sql);\r\n if ($row[0] eq \"$user\") {\r\n my $sql = \"select SachbearbeiterVisum,SachbearbeiterDatum \".\r\n \"from archiv $docit and GeschaeftsleitungVisum=0 and \".\r\n \"BuchhaltungVisum=0\";\r\n my ($vis,$dat) = $dbh->selectrow_array($sql);\r\n if ($vis==1 && $dat==0) {\r\n $sql = \"update archiv set SachbearbeiterDatum='\".SQLStamp1().\r\n \"' where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n } elsif ($vis==0 && $dat>0) {\r\n $sql=\"update archiv set SachbearbeiterVisum=1 where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n } else {\r\n $sql=\"update archiv set SachbearbeiterVisum=0 where Laufnummer=$doc\";\r\n $dbh->do($sql);\r\n }\r\n }\r\n }\r\n}\r\n\r\nsub SQLStamp1 {\r\n my @t = localtime( time() );\r\n my ( $stamp, $y, $m, $d, $h, $mi, $s );\r\n $y = $t[5] + 1900;\r\n $m = $t[4] + 1;\r\n $m = sprintf( \"%02d\", $m );\r\n $d = sprintf( \"%02d\", $t[3] );\r\n $stamp = $y . \"-\" . $m . \"-\" . $d . \" 00:00:00\";\r\n return $stamp;\r\n}<\/pre>\nDas Skript ist unter dem Namen der Datenbank (z.B. archivista.pl) in WebAdmin unter ‚Jobs administrieren zu aktivieren. Damit das Skript arbeitet, ist plus\/minus die folgende Maske zu erstellen:<\/p>\n
Schritt 2: Maske anpassen<\/h2>\n
![](\"https:\/\/archivista.ch\/cms\/wp-content\/uploads\/2018\/12\/kreditoren.png\")
<\/a><\/p>\nSchritt 3: SQL-Definitionen erstellen und zuweisen<\/h2>\n
Damit die einzelnen Benutzer\/innen beim Einstieg in ArchivistaDMS die korrekten Dokumente vorfinden, m\u00fcssen in WebAdmin entsprechende SQL-Definitionen erfasst werden:<\/p>\n
Sekretariat\/Buchhaltung:<\/strong> DokTyp2Nr=4 and BuchhaltungVisum=0 and (((Sachbearbeiter is Null or Sachbearbeiter=“) or (GeschaeftsleitungVisum=1 and BuchhaltungVisum=0))) order by Datum desc, Laufnummer desc<\/p>\nSachbearbeiter:<\/strong> DokTyp2Nr=4 and SachbearbeiterVisum=0 and GeschaeftsleitungVisum=0 and Sachbearbeiter='[user}‘ order by Datum asc<\/p>\nGesch\u00e4ftsleitung:<\/strong> DokTyp2Nr=4 and ((Sachbearbeiter<>““ and GeschaeftsleitungVisum=0)) order by Datum asc<\/p>\nDie entsprechenden SQL-Definitionen sind den Benutzer\/innen zuzuweisen — und schon ist ArchivistaDMS um ein vollwertiges Kreditoren-Management erweitert.<\/p>\n
Fazit: Automatisierung leicht gemacht<\/h2>\n
ArchivistaDMS l\u00e4sst sich mit ‚Jobs administrieren‘ einfach \u00fcber WebAdmin automatisieren. Im obenstehendem Beispiel wurde die Programmiersprache Perl verwendet. Ebenfalls verwendet werden k\u00f6nnen die Skriptsprachen PHP und Python. Weitere Sprachen k\u00f6nnen optional ebenfalls eingebunden werden.<\/p>\n
Wem die obenstehenden Zeilen ’spanisch‘ vorkommen, darf sich gerne an uns wenden, entsprechende Module werden f\u00fcr Kunden gerne auf jeder ArchivistaBox implementiert.<\/p>\n\n\n\n\t