Markieren von Dialogbuchungen als Eroeffnungs- oder Schlussbilanzbuchungen
authorPhilip Reetz <p.reetz@linet-services.de>
Wed, 19 Mar 2008 19:01:50 +0000 (19:01 +0000)
committerPhilip Reetz <p.reetz@linet-services.de>
Wed, 19 Mar 2008 19:01:50 +0000 (19:01 +0000)
SL/GL.pm
bin/mozilla/gl.pl
locale/de/all
locale/de/gl
sql/Pg-upgrade2/cb_ob_transaction.sql [new file with mode: 0644]

index 8d68624..28c5030 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -109,16 +109,19 @@ sub post_transaction {
   my ($null, $department_id) = split(/--/, $form->{department});
   $department_id *= 1;
 
+  $form->{ob_transaction} *= 1;
+  $form->{cb_transaction} *= 1;
+
   $query =
     qq|UPDATE gl SET
          reference = ?, description = ?, notes = ?,
          transdate = ?, department_id = ?, taxincluded = ?,
-         storno = ?, storno_id = ?
+         storno = ?, storno_id = ?, ob_transaction = ?, cb_transaction = ?
        WHERE id = ?|;
 
   @values = ($form->{reference}, $form->{description}, $form->{notes},
              conv_date($form->{transdate}), $department_id, $form->{taxincluded},
-             $form->{storno} ? 't' : 'f', conv_i($form->{storno_id}),
+             $form->{storno} ? 't' : 'f', conv_i($form->{storno_id}), $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f',
              conv_i($form->{id}));
   do_query($form, $dbh, $query, @values);
 
@@ -153,11 +156,11 @@ sub post_transaction {
     if ($amount != 0) {
       $query =
         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
-                                  source, memo, project_id, taxkey)
+                                  source, memo, project_id, taxkey, ob_transaction, cb_transaction)
            VALUES (?, (SELECT id FROM chart WHERE accno = ?),
-                   ?, ?, ?, ?, ?, ?)|;
+                   ?, ?, ?, ?, ?, ?, ?, ?)|;
       @values = (conv_i($form->{id}), $accno, $amount, conv_date($form->{transdate}),
-                 $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $taxkey);
+                 $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $taxkey, $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f');
       do_query($form, $dbh, $query, @values);
     }
 
@@ -563,7 +566,8 @@ sub transaction {
   if ($form->{id}) {
     $query =
       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,
-           d.description AS department, e.name AS employee, g.taxincluded, g.gldate
+           d.description AS department, e.name AS employee, g.taxincluded, g.gldate, 
+         g.ob_transaction, g.cb_transaction
          FROM gl g
          LEFT JOIN department d ON (d.id = g.department_id)
          LEFT JOIN employee e ON (e.id = g.employee_id)
index f7dba95..c386de5 100644 (file)
@@ -962,6 +962,9 @@ sub form_header {
 
   $show_details_checked = "checked" if $form->{show_details};
 
+  $ob_transaction_checked = "checked" if $form->{ob_transaction};
+  $cb_transaction_checked = "checked" if $form->{cb_transaction};
+
   # $locale->text('Add General Ledger Transaction')
   # $locale->text('Edit General Ledger Transaction')
 
@@ -1155,7 +1158,17 @@ sub form_header {
        </tr>|;
   }
 
-  print qq|<tr>
+  print qq|
+      <tr>
+      <tr><td colspan=4><table><tr>
+       <td>
+        | . $locale->text('OB Transaction') . qq|<input type="checkbox" name="ob_transaction" value="1" $ob_transaction_checked>
+       </td>
+       <td>
+        | . $locale->text('CB Transaction') . qq|<input type="checkbox" name="cb_transaction" value="1" $cb_transaction_checked>
+       </td>
+      </tr></table></td></tr>
+      <tr>
        <td width="1%" align="right" nowrap>| . $locale->text('Show details') . qq|</td>
        <td width="1%"><input type="checkbox" onclick="show_form_details();" name="show_details" value="1" $show_details_checked></td>
       </tr>|;
@@ -1260,11 +1273,9 @@ $follow_ups_block
       . qq|"> |;
 
   } else {
-    if ($transdate > $closedto) {
       print qq|
         <input class=submit type=submit name=action id=update_button value="| . $locale->text('Update') . qq|">
         <input class=submit type=submit name=action value="| . $locale->text('Post') . qq|">|;
-    }
   }
 
   print "
index 4889ad4..584a85d 100644 (file)
@@ -250,6 +250,7 @@ aktualisieren wollen?',
   'Business deleted!'           => 'Firma gelöscht.',
   'Business saved!'             => 'Firma gespeichert.',
   'CANCELED'                    => 'Storniert',
+  'CB Transaction'              => 'SB-Buchung',
   'CSV export -- options'       => 'CSV-Export -- Optionen',
   'Calculate'                   => 'Berechnen',
   'Cancel'                      => 'Abbrechen',
@@ -951,6 +952,7 @@ aktualisieren wollen?',
   'Number of new bins'          => 'Anzahl neuer Lagerpl&auml;tze',
   'Number pages'                => 'Seiten nummerieren',
   'Number variables: \'PRECISION=n\' forces numbers to be shown with exactly n decimal places.' => 'Zahlenvariablen: Mit \'PRECISION=n\' erzwingt man, dass Zahlen mit n Nachkommastellen formatiert werden.',
+  'OB Transaction'              => 'EB-Buchung',
   'OBE-Export erfolgreich!'     => 'OBE-Export erfolgreich!',
   'Obsolete'                    => 'Ungültig',
   'Oct'                         => 'Okt',
index 8900507..3245ba0 100644 (file)
@@ -28,6 +28,7 @@ $self->{texts} = {
   'Buchungsdatum'               => 'Buchungsdatum',
   'Buchungsnummer'              => 'Buchungsnummer',
   'CANCELED'                    => 'Storniert',
+  'CB Transaction'              => 'SB-Buchung',
   'CSV export -- options'       => 'CSV-Export -- Optionen',
   'Cancel Accounts Receivables Transaction' => 'Debitorenbuchung stornieren',
   'Cannot delete transaction!'  => 'Buchung kann nicht gelöscht werden!',
@@ -144,6 +145,7 @@ $self->{texts} = {
   'Notes'                       => 'Bemerkungen',
   'Nov'                         => 'Nov',
   'November'                    => 'November',
+  'OB Transaction'              => 'EB-Buchung',
   'Oct'                         => 'Okt',
   'October'                     => 'Oktober',
   'Others'                      => 'Andere',
diff --git a/sql/Pg-upgrade2/cb_ob_transaction.sql b/sql/Pg-upgrade2/cb_ob_transaction.sql
new file mode 100644 (file)
index 0000000..d1f4747
--- /dev/null
@@ -0,0 +1,7 @@
+-- @tag: cb_ob_transaction
+-- @description: Spalten f&uuml;r Er&ouml;ffnungs- und Schlussbilanzbuchungen
+-- @depends: release_2_4_2
+ALTER TABLE gl ADD COLUMN ob_transaction boolean;
+ALTER TABLE gl ADD COLUMN cb_transaction boolean;
+ALTER TABLE acc_trans ADD COLUMN ob_transaction boolean;
+ALTER TABLE acc_trans ADD COLUMN cb_transaction boolean;
\ No newline at end of file