$self->_setup;
- $self->tester->plan(tests => 29);
+ $self->tester->plan(tests => 32);
$self->check_konten_mit_saldo_nicht_in_guv;
$self->check_bilanzkonten_mit_pos_eur;
$self->check_orphaned_reconciliated_links;
$self->check_recommended_client_settings;
$self->check_orphaned_bank_transaction_acc_trans_links;
+ $self->check_consistent_itimes;
}
sub _setup {
}
}
+sub check_consistent_itimes {
+ my ($self) = @_;
+ my $query;
+
+ $query = qq|
+ SELECT mtime, itime,gldate, acc_trans_id, trans_id
+ FROM acc_trans a
+ WHERE itime::date <> gldate::date
+ AND a.transdate >= ? and a.transdate <= ?|;
+
+ my $itimes_ac = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
+
+ if ( scalar @{ $itimes_ac } > 0 ) {
+ $self->tester->ok(0, "Inkonsistente Zeitstempel in der acc_trans gefunden. Bei folgenden ids:");
+ for my $bogus_time (@{ $itimes_ac }) {
+ $self->tester->diag("ID: $bogus_time->{trans_id} acc_trans_id: $bogus_time->{acc_trans_id} ");
+ }
+ } else {
+ $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in der acc_trans.");
+ }
+ $query = qq|
+ SELECT amount, itime, gldate, id
+ FROM ap a
+ WHERE itime::date <> gldate::date
+ AND a.transdate >= ? and a.transdate <= ?|;
+
+ my $itimes_ap = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
+
+ if ( scalar @{ $itimes_ap } > 0 ) {
+ $self->tester->ok(0, "Inkonsistente Zeitstempel in ap gefunden. Bei folgenden ids:");
+ for my $bogus_time (@{ $itimes_ap }) {
+ $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
+ }
+ } else {
+ $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in ap.");
+ }
+ $query = qq|
+ SELECT amount, itime, gldate, id
+ FROM ar a
+ WHERE itime::date <> gldate::date
+ AND a.transdate >= ? and a.transdate <= ?|;
+
+ my $itimes_ar = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
+
+ if ( scalar @{ $itimes_ap } > 0 ) {
+ $self->tester->ok(0, "Inkonsistente Zeitstempel in ar gefunden. Bei folgenden ids:");
+ for my $bogus_time (@{ $itimes_ar }) {
+ $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
+ }
+ } else {
+ $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in ar.");
+ }
+ $query = qq|
+ SELECT itime, gldate, id, mtime
+ FROM gl a
+ WHERE itime::date <> gldate::date
+ AND a.transdate >= ? and a.transdate <= ?|;
+
+ my $itimes_gl = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
+
+ if ( scalar @{ $itimes_gl } > 0 ) {
+ $self->tester->ok(0, "Inkonsistente Zeitstempel in gl gefunden. Bei folgenden ids:");
+ for my $bogus_time (@{ $itimes_ar }) {
+ $self->tester->diag("ID: $bogus_time->{id} itime: $bogus_time->{itime} mtime: $bogus_time->{mtime} ");
+ }
+ } else {
+ $self->tester->ok(1, "Keine inkonsistenten Zeitstempel in gl.");
+ }
+}
+
1;
__END__
qty => [ 'qty' ],
ordnumber => [ 'order.ordnumber' ],
customer => [ 'lower(customer.name)', ],
- position => [ 'trans_id', 'runningnumber' ],
+ position => [ 'trans_id', 'position' ],
reqdate => [ 'COALESCE(orderitems.reqdate, order.reqdate)' ],
orddate => [ 'order.orddate' ],
sellprice => [ 'orderitems.sellprice' ],
action => [ t8('Storno'),
submit => [ '#form', { action => 'storno' } ],
confirm => t8('Do you really want to cancel this general ledger transaction?'),
- disabled => !$form->{id} ? t8('This general ledger transaction has not been posted yet.') : undef,
+ disabled => !$form->{id} ? t8('This general ledger transaction has not been posted yet.')
+ : $form->{storno} ? t8('A canceled general ledger transaction cannot be canceled again.')
+ : undef,
],
action => [ t8('Delete'),
submit => [ '#form', { action => 'delete' } ],
: $change_never ? t8('Changing invoices has been disabled in the configuration.')
: $change_on_same_day_only ? t8('Invoices can only be changed on the day they are posted.')
: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')
+ : $form->{storno} ? t8('A canceled general ledger transaction cannot be deleted.')
: undef,
],
], # end of combobox "Storno"
'<b>Automatically create new bins</b> in the following warehouse if not selected in the list above' => '<b>Automatisches Zuweisen der Lagerplätze</b> im folgenden Lager, falls keine andere Zuweisung oben ausgewählt ist. ',
'<b>Default Bins Migration !READ CAREFULLY!</b>' => 'Standardlagerplatz Migration !AUFMERKSAM LESEN!',
'<b>What</b> do you want to look for?' => '<b>Wonach</b> wollen Sie suchen?',
+ 'A canceled general ledger transaction cannot be canceled again.' => 'Eine stornierte Dialogbuchung kann nicht erneut storniert werden.',
+ 'A canceled general ledger transaction cannot be deleted.' => 'Eine stornierte Dialogbuchung kann nicht gelöscht werden.',
'A canceled general ledger transaction cannot be posted.' => 'Eine stornierte Dialogbuchung kann nicht mehr gebucht werden.',
'A canceled invoice cannot be posted.' => 'Eine stornierte Rechnung kann nicht mehr gebucht werden.',
'A digit is required.' => 'Eine Ziffer ist vorgeschrieben.',
'If searching a part from a document and no part is found then offer to create a new part.' => 'Wenn bei der Artikelsuche aus einem Dokument heraus kein Artikel gefunden wird, dann wird ermöglicht, von dort aus einen neuen Artikel anzulegen.',
'If the article type is set to \'mixed\' then a column called \'part_type\' or called \'pclass\' must be present.' => 'Falls der Artikeltyp auf \'mixed\' gesetzt ist muss entweder eine Spalte \'part_type\' oder \'pclass\' im Import vorhanden sein',
'If the automatic creation of invoices for fees and interest is switched on for a dunning level then the following accounts will be used for the invoice.' => 'Wenn das automatische Erstellen einer Rechnung über Mahngebühren und Zinsen für ein Mahnlevel aktiviert ist, so werden die folgenden Konten für die Rechnung benutzt.',
- 'If the counted quantity differs more than this threshold from the quantity in the database, a warning will be shown. Set to 0 to switch of this feature.' => 'Wenn die gezählte Menge mehr als dieser Schwellwert von der Menge in der Datenbank abweicht, wird eine Warnmeldung angezeigt. Setzen Sie den Schwellwert auf 0, um dieses Feature abzuschalten.',
+ 'If the counted quantity differs more than this threshold from the quantity in the database, a warning will be shown. Set to 0 to switch of this feature.' => 'Wenn die gezählte Menge mehr als dieser Schwellenwert von der Menge in der Datenbank abweicht, wird eine Warnmeldung angezeigt. Setzen Sie den Schwellenwert auf 0, um dieses Feature abzuschalten.',
'If the database user listed above does not have the right to create a database then enter the name and password of the superuser below:' => 'Falls der oben genannte Datenbankbenutzer nicht die Berechtigung zum Anlegen neuer Datenbanken hat, so können Sie hier den Namen und das Passwort des Datenbankadministratoraccounts angeben:',
'If the default transfer out always succeed use this bin for negative stock quantity.' => 'Standardlagerplatz für Auslagern ohne Prüfung auf Bestand',
'If yes, delivery order positions are considered "delivered" only if they have been stocked out of the inventory. Otherwise saving the delivery order is considered delivered.' => 'Wenn diese Option aktiviert ist, gelten Lieferscheinpositionen nur dann als geliefert wenn sie im Lieferschein ausgelagert wurden, und die Ware aus dem Lager ausgebucht wurde. Andernfalls gilt das Speichern des Lieferscheins als Lieferung.',
'This will remove the invoice from showing as unpaid even if the unpaid amount does not match the amount. Proceed?' => 'Dies wird die Rechnung nicht mehr als offen anzeigen, auch wenn der unbezahlte Betrag nicht dem Rechnungsbetrag entspricht. Fortfahren?',
'This will set an exact price.' => 'Diese Option setzt einen festen Preis.',
'Three Options:' => 'Drei Optionen:',
- 'Threshold for warning on quantity difference' => 'Schwellwert für Warnung bei Mengenabweichung',
+ 'Threshold for warning on quantity difference' => 'Schwellenwert für Warnung bei Mengenabweichung',
'Time' => 'Zeit',
'Time Format' => 'Uhrzeitformat',
'Time and price estimate' => 'Zeit- und Preisschätzung',
projects / kivitendo-erp.git / commitdiff