Files
d.velop/Kleeberg/migration/migration_akte_kreditorenakte.groovy
2024-06-19 16:54:31 +02:00

528 lines
16 KiB
Groovy

import com.dvelop.d3.server.Document
import com.dvelop.d3.server.core.D3Interface
import com.dvelop.d3.server.exceptions.SQLException
import com.dvelop.d3.server.exceptions.D3Exception
import groovy.transform.Field
D3Interface d3 = getProperty("d3");
def prg = "migration_akte.groovy";
def version = "0.1";
def kunde = "Dr. Kleeberg & Partner GmbH";
/////////////////////////////////////////////////////////////////////////
// debug = 0 => es finden Änderungen am Datenbestand statt
// debug = 1 => es finden keine Änderungen am Datenbestand statt
@Field debug = 0;
// In welcher Tabelle soll nach den zu erstellenden Akten gesucht werden?
@Field zieltabelle = "mig_kreditorenakte";
// Konfiguration der Aktenartkürzel
@Field dokuart_sammelakte = "";
@Field dokuart_hauptakte = "AKRED";
@Field dokuart_oberregisterakte = "AKROR";
@Field dokuart_registerakte = "AKRER";
// der hier konfigurierte Wert wird verwendet, wenn kein sonstiger Hauptaktenname gefunden wird.
@Field standard_hauptaktenname = "Kreditorakte";
// DDF 1 / ADM_Aktentyp aus der Aktenart ADM_Verwaltung Mandantenakte (AVMNT) - mit diesem Schlüssel werden die benötigten (Ober-)Register aus den Stammdaten in der Aktenart AVMNT ermittelt.
@Field aktenschluessel = "Kreditorenakte";
/////////////////////////////////////////////////////////////////////////
def debugtext;
switch (debug)
{
case 0:
debugtext = "ausgeschaltet";
break;
default:
debugtext = "eingeschaltet (keine Aenderungen am Datenbestand)";
break;
}
xlog( d3, 4, "************************************************" );
xlog( d3, 4, "* Programm : " + prg );
xlog( d3, 4, "* Version : " + version );
xlog( d3, 4, "* Kunde : " + kunde );
xlog( d3, 4, "* geschrieben von : calb / d.velop AG" );
xlog( d3, 4, "* (c) d.velop AG" );
xlog( d3, 4, "************************************************" );
xlog( d3, 4, "Parameter: " );
xlog( d3, 4, "* DEBUG : " + debugtext );
xlog( d3, 4, "* Aktenart Sammelakte : " + dokuart_sammelakte );
xlog( d3, 4, "* Aktenart Hauptakte : " + dokuart_hauptakte );
xlog( d3, 4, "* Aktenart Oberregisterakte : " + dokuart_oberregisterakte );
xlog( d3, 4, "* Aktenart Registerakte : " + dokuart_registerakte );
xlog( d3, 4, "* Zieltabelle : " + zieltabelle );
xlog( d3, 4, "* Standard-Hauptaktenname : " + standard_hauptaktenname );
xlog( d3, 4, "* Aktenschluessel : " + aktenschluessel );
xlog( d3, 4, "************************************************" );
def sqlQuery = "select top (100) id,ddf48,ddf10,ddf20,ddf19,ddf22,ddf62,ddf69 from " + zieltabelle + " where fehler is null and doku_id is null";
treffer = d3.sql.executeAndGet( (String) sqlQuery );
xlog( d3, 4, " Es wurden " + treffer.size() + " Treffer gefunden." );
xlog( d3, 4, "************************************************" );
if ( treffer.size() > 0 )
{
for ( i = 0; i < treffer.size(); i++ )
{
// Prüfung, ob die Mandantnummer in der Aktennummer zu der Mandantnummer aus der Tabelle passt - andernfalls Fehler.
def mandantnr_aus_aktennr = treffer[ i ].ddf10.substring( 0, 5 );
if ( mandantnr_aus_aktennr == treffer[ i ].ddf19 )
{
// Es wird eine neue Hauptakte erstellt
def newDocfield_19, newDocfield_10, newDocfield_20, newDocfield_22, newDocfield_48, newDocfield_62 = [ ], newDocfield_69 = [ ];
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": setze Aktennummer DDF10 : [" + treffer[ i ].ddf10 + "]" );
newDocfield_10 = treffer[ i ].ddf10;
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": setze Kreditornummer DDF19 : [" + treffer[ i ].ddf19 + "]" );
newDocfield_19 = treffer[ i ].ddf19;
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": setze Kreditorname DDF20 : [" + treffer[ i ].ddf20 + "]" );
newDocfield_20 = treffer[ i ].ddf20;
def dddf22 = "Digital";
if ( ( ! treffer[ i ].ddf22 ) || ( treffer[ i ].ddf22 == 'null' ) )
{
xlog( d3, 3, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": physischer Aufbewahrungsort DDF22 wurde nicht angegeben, default: [" + dddf22 + "]" );
}
else
{
dddf22 = treffer[ i ].ddf22;
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": setze physischer Aufbewahrungsort DDF22 : [" + dddf22 + "]" );
newDocfield_22 = dddf22;
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": setze Unique-ID Migration DDF48 : [" + treffer[ i ].ddf48 + "]" );
newDocfield_48 = treffer[ i ].ddf48;
// Freigeber
if ( treffer[ i ].ddf62 )
{
def splitted_str_array = treffer[ i ].ddf62.split( ';' );
for ( int j = 0; j < splitted_str_array.length; j++ )
{
def filler = " ";
if ( j >= 10 )
{
filler = "";
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Setze Postempfaenger DDF62 / " + filler + j + " : [" + splitted_str_array[ j ] + "]" );
newDocfield_62[ j ] = splitted_str_array[ j ];
}
}
// Berechtigter:
if ( treffer[ i ].ddf69 )
{
def splitted_str_array = treffer[ i ].ddf69.split( ';' );
for ( int j = 0; j < splitted_str_array.length; j++ )
{
def filler = " ";
if ( j >= 10 )
{
filler = "";
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Setze Berechtigter DDF69 / " + filler + j + " : [" + splitted_str_array[ j ] + "]" );
newDocfield_69[ j ] = splitted_str_array[ j ];
}
}
// Prüfung, ob zu dieser Hauptakte eine passende Sammelakte existiert
// Falls ja: Übernahme der Mandantenstammdaten der entsprechenden Akte
// Falls nein: Fehler in DB eintragen und Abbruch der Verarbeitung dieses Treffers
//sqlQuery = "select doku_id, dok_dat_feld_1, dok_dat_feld_2, dok_dat_feld_13 from firmen_spezifisch where kue_dokuart = '" + dokuart_sammelakte + "' and dok_dat_feld_1 = '" + treffer[ i ].ddf1 + "'";
//ergebnis = d3.sql.executeAndGet( (String) sqlQuery );
if ( true )
{
// Akte mit Stammdaten und Infos aus der Tabelle "zieltabelle" erstellen
// Registerstruktur unterhalb ebenfalls erstellen
Document newDoc = d3.archive.newDocument();
newDoc.type = dokuart_hauptakte;
newDoc.status = Document.DocStatus.DOC_STAT_RELEASE;
//newDoc.editor = "dvelop";
newDoc.field[ 10 ] = newDocfield_10;
newDoc.field[ 19 ] = newDocfield_19;
newDoc.field[ 20 ] = newDocfield_20;
newDoc.field[ 22 ] = newDocfield_22;
newDoc.field[ 48 ] = newDocfield_48;
for ( int i = 0; i < newDocfield_62.size(); i++ )
{
newDoc.field[ 62 ][ i + 1 ] = newDocfield_62[ i ];
}
for ( int i = 0; i < newDocfield_69.size(); i++ )
{
newDoc.field[ 69 ][ i + 1 ] = newDocfield_69[ i ];
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": =============================" );
//Pruefung ob die anzulegende Akte ggf. schon im System angelegt wurde
sqlQuery = "select doku_id from firmen_spezifisch where kue_dokuart = '" + dokuart_hauptakte + "' and dok_dat_feld_19 = '" + newDocfield_19 + "' AND dok_dat_feld_10 = '" + newDocfield_10 + "'";
ergebnis = d3.sql.executeAndGet( (String) sqlQuery );
if ( ergebnis.size() > 0 ) {
//xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage [" + newDoc.field[ 10 ] + "] nicht durchgefuehrt da die Akte bereits existiert, doku_id: [" + ergebnis[ 0 ].doku_id + "]" );
fehler( d3, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage [" + newDoc.field[ 10 ] + "] nicht durchgefuehrt da die Akte bereits existiert. doku_id: [" + ergebnis[ 0 ].doku_id + "]", (int) treffer[ i ].id );
xlog( d3, 4, "************************************************" );
continue;
}
def aktenanlage_erfolgreich = true;
if ( debug == 0 )
{
try
{
newDoc = d3.archive.importDocument( newDoc );
}
catch ( D3Exception e )
{
fehler( d3, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Akte [" + newDoc.field[ 10 ] + "] konnte nicht erzeugt werden: " + e.message, (int) treffer[ i ].id );
aktenanlage_erfolgreich = false;
}
if ( aktenanlage_erfolgreich )
{
// sichern der erzeugten Doku-ID
if ( debug == 0 )
{
sqlQuery = "update " + zieltabelle + " set doku_id = '" + newDoc.id + "' where id = " + treffer[ i ].id;
d3.sql.execute( sqlQuery );
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage [" + newDoc.field[ 10 ] + "] erfolgreich, doku_id: [" + newDoc.id + "]" );
}
}
}
else
{
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Keine Aktenanlage fuer [" + newDoc.field[ 10 ] + "] (Debug-Modus eingeschaltet)." );
}
if ( aktenanlage_erfolgreich )
{
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": =============================" );
//////////////////////////////////////////
// Ebene unterhalb der Hauptakte anlegen
// Dokumentart: Hauptakten-Oberregisterakte, darin alle in den Stammdaten angelegten Oberregister
sqlQuery = "select distinct dok_dat_feld_2 from firmen_spezifisch where kue_dokuart = 'AVMNT' and dok_dat_feld_1 = '" + aktenschluessel + "'";
def resultRows = d3.sql.executeAndGet( (String) sqlQuery );
if ( resultRows.size() > 0 )
{
resultRows.each
{
//xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": erstelle Oberregister-Akte: [" + it.dok_dat_feld_2 + "]" );
Document newDocOReg = d3.archive.newDocument();
newDocOReg.type = dokuart_oberregisterakte;
newDocOReg.status = Document.DocStatus.DOC_STAT_RELEASE;
//newDocOReg.editor = "dvelop";
newDocOReg.field[ 10 ] = newDocfield_10;
newDocOReg.field[ 19 ] = newDocfield_19;
newDocOReg.field[ 3 ] = it.dok_dat_feld_2; // Oberregister
newDocOReg.field[ 20 ] = newDocfield_20;
newDocOReg.field[ 22 ] = newDocfield_22;
for ( int i = 0; i < newDocfield_69.size(); i++ )
{
newDocOReg.field[ 69 ][ i + 1 ] = newDocfield_69[ i ];
}
if ( debug == 0 )
{
try
{
newDocOReg = d3.archive.importDocument( newDocOReg );
}
catch ( D3Exception e )
{
xlog( d3, 2, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Akte [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "] konnte nicht erzeugt werden: " + e.message );
aktenanlage_erfolgreich = false;
}
}
else
{
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Keine Aktenanlage fuer [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "] (Debug-Modus eingeschaltet)." );
}
if ( ( aktenanlage_erfolgreich ) && ( debug == 0 ) )
{
//xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage erfolgreich, doku_id: [" + newDoc.id + "][" + newDocOReg.id + "]" );
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage erfolgreich, doku_id: [" + newDoc.id + "][" + newDocOReg.id + "] Register: [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "]" );
}
}
}
}
else
{
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Weitere Akten werden wegen Fehler nicht angelegt." );
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": =============================" );
if ( aktenanlage_erfolgreich )
{
//////////////////////////////////////////
// Ebene unterhalb der Hauptakten-Oberregisterakte anlegen
// Dokumentart: Hauptakten-Registerakte, darin alle in den Stammdaten angelegten Register
sqlQuery = "select distinct dok_dat_feld_2, dok_dat_feld_3 from firmen_spezifisch where kue_dokuart = 'AVMNT' and dok_dat_feld_1 = '" + aktenschluessel + "' and dok_dat_feld_3 != ''";
def resultRows = d3.sql.executeAndGet( (String) sqlQuery );
if ( resultRows.size() > 0 )
{
resultRows.each
{
//xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": erstelle Register-Akte: [" + it.dok_dat_feld_2 + "][" + it.dok_dat_feld_3 + "]" );
Document newDocReg = d3.archive.newDocument();
newDocReg.type = dokuart_registerakte;
newDocReg.status = Document.DocStatus.DOC_STAT_RELEASE;
//newDocReg.editor = "dvelop";
newDocReg.field[ 10 ] = newDocfield_10;
newDocReg.field[ 19 ] = newDocfield_19;
newDocReg.field[ 3 ] = it.dok_dat_feld_2; // Oberregister
newDocReg.field[ 20 ] = newDocfield_20;
newDocReg.field[ 22 ] = newDocfield_22;
newDocReg.field[ 4 ] = it.dok_dat_feld_4; // Register
if ( debug == 0 )
{
try
{
newDocReg = d3.archive.importDocument( newDocReg );
}
catch ( D3Exception e )
{
xlog( d3, 2, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Akte [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "][" + it.dok_dat_feld_3 + "] konnte nicht erzeugt werden: " + e.message );
aktenanlage_erfolgreich = false;
}
}
else
{
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Keine Aktenanlage fuer [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "][" + it.dok_dat_feld_3 + "] (Debug-Modus eingeschaltet)." );
}
if ( ( aktenanlage_erfolgreich ) && ( debug == 0 ) )
{
sqlQuery = "select doku_id from firmen_spezifisch where kue_dokuart = '" + dokuart_oberregisterakte + "' and dok_dat_feld_10 = '" + newDoc.field[ 10 ] + "' and dok_dat_feld_3 = '" + it.dok_dat_feld_2 + "'";
//xlog( d3, 3, sqlQuery );
e = d3.sql.executeAndGet( sqlQuery );
def oregdokuid;
if ( e.size() > 0 )
{
oregdokuid = e[0].doku_id;
}
xlog( d3, 4, treffer[ i ].ddf10 + " / " + treffer[ i ].id + ": Aktenanlage erfolgreich, doku_id: [" + newDoc.id + "][" + oregdokuid + "][" + newDocReg.id + "] Register: [" + newDoc.field[ 10 ] + "][" + it.dok_dat_feld_2 + "][" + it.dok_dat_feld_3 + "]" );
}
}
}
}
}
else
{
fehler( d3, "Es wurde keine passende Sammelakte gefunden. [" + treffer[ i ].ddf10 + "]", (int) treffer[ i ].id );
}
xlog( d3, 4, "************************************************" );
}
else
{
// Fehler
fehler( d3, "Kreditornummer in Tabelle und in Aktennummer unterscheiden sich.", (int) treffer[ i ].id );
}
}
}
def fehler( D3Interface d3, String meldung, int id )
{
def meldung_db;
if ( meldung.length() > 250 )
{
meldung_db = meldung.substring( 0, 249 );
}
else
{
meldung_db = meldung;
}
if ( debug == 0 )
{
sql = "update " + zieltabelle + " set fehler = '" + meldung_db + "' where id = " + id;
d3.sql.execute( sql );
}
xlog( d3, 2, meldung );
}
def xlog( D3Interface d3, int loglevel, String logtext )
{
def logdatei = "d:\\d3\\apps\\" + zieltabelle + ".txt";
def g_loglevel = 5;
def g_logdirect = "BEIDE"; // BEIDE oder D3LOG oder DATEI
def date = new Date();
def zeitstempel = date.format( "yyyy.MM.dd HH:mm:ss", TimeZone.getTimeZone('CET') );
def loglevel_lang = "[INFO ]";
if ( loglevel <= g_loglevel )
{
switch ( loglevel )
{
case 1:
loglevel_lang = "[FATAL]";
if ( ( g_logdirect == "D3LOG" ) || ( g_logdirect == "BEIDE" ) )
{
d3.log.critical( logtext );
}
break;
case 2:
loglevel_lang = "[ERROR]";
if ( ( g_logdirect == "D3LOG" ) || ( g_logdirect == "BEIDE" ) )
{
d3.log.error( logtext );
}
break;
case 3:
loglevel_lang = "[WARN ]";
if ( ( g_logdirect == "D3LOG" ) || ( g_logdirect == "BEIDE" ) )
{
d3.log.warn( logtext );
}
break;
case 4:
loglevel_lang = "[INFO ]";
if ( ( g_logdirect == "D3LOG" ) || ( g_logdirect == "BEIDE" ) )
{
d3.log.info( logtext );
}
break;
case 5:
loglevel_lang = "[DEBUG]";
// Da die d.3 Server i.d.R. nicht im Debug-Modus laufen, erscheinen DEBUG-Meldungen nicht im Log.
if ( ( g_logdirect == "D3LOG" ) || ( g_logdirect == "BEIDE" ) )
{
d3.log.debug( logtext );
}
break;
}
}
if ( ( g_logdirect == "DATEI" ) || ( g_logdirect == "BEIDE" ) )
{
new File( logdatei ).append( zeitstempel + " " + loglevel_lang + " " + logtext + "\n", "UTF8" );
}
return 0;
}