Revision 7a59817e
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| sql/Pg-upgrade2/SKR04-3804-addition.pl | ||
|---|---|---|
| 12 | 12 |
my ($self) = @_; |
| 13 | 13 |
|
| 14 | 14 |
# 1. Überprüfen ob Kontenrahmen SKR04 ist, wenn nicht alles überspringen |
| 15 |
my ($kontenrahmen) = $self->dbh->selectrow_array("select coa from defaults");
|
|
| 16 |
|
|
| 17 |
unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) {
|
|
| 18 |
print "Kontenrahmen ist nicht SKR04, überspringen<br>"; |
|
| 15 |
if (!$self->check_coa('Germany-DATEV-SKR04EU')) {
|
|
| 16 |
print qq|Nichts zu tun in diesem Kontenrahmen.|; |
|
| 19 | 17 |
return 1; |
| 20 |
};
|
|
| 18 |
} |
|
| 21 | 19 |
|
| 22 | 20 |
# Mandant hat SKR04, erst prüfen wir, ob in der Vergangenheit Buchungen mit |
| 23 | 21 |
# taxkey 13 erfolgt sind (Fall "EU ohne USt. ID), diese sind wahrscheinlich |
Auch abrufbar als: Unified diff
Methode SL::DBUpgrade2::Base::check_coa anstelle von manuellem SELECT nutzen