From 91ea86b4c90a12c046c6eb37e0ca9f5b9672b81f Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 8 Jun 2007 14:28:40 +0000
Subject: [PATCH] Setzen des Stornoflags auf "0" anstelle von NULL.

---
 bin/mozilla/ap.pl | 1 +
 bin/mozilla/ar.pl | 3 +++
 bin/mozilla/gl.pl | 3 ++-
 bin/mozilla/ir.pl | 1 +
 bin/mozilla/is.pl | 1 +
 5 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 6f86e90a1..5fa77109e 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -993,6 +993,7 @@ sub post {
   $form->{AP}{amount_1} = $debitaccno;
   $form->{AP}{payables} = $payablesaccno;
   $form->{taxkey}       = $taxkey;
+  $form->{storno}       = 0;
 
   $form->{id} = 0 if $form->{postasnew};
 
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index c653382f7..fbdbbc084 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -1023,8 +1023,11 @@ sub post {
   }
 
   $form->{AR}{receivables} = $form->{ARselected};
+  $form->{storno}          = 0;
 
   $form->{id} = 0 if $form->{postasnew};
+
+
   if (AR->post_transaction(\%myconfig, \%$form)) {
     # saving the history
     if(!exists $form->{addition} && $form->{id} ne "") {
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index ea6708fd9..18e3fa580 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -1760,7 +1760,8 @@ sub post_transaction {
 sub post {
   $lxdebug->enter_sub();
 
-  $form->{title} = $locale->text("$form->{title} General Ledger Transaction");
+  $form->{title}  = $locale->text("$form->{title} General Ledger Transaction");
+  $form->{storno} = 0;
 
   post_transaction();
 
diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 701c91bb4..99ff95863 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -1141,6 +1141,7 @@ sub post {
 
   ($form->{AP})      = split /--/, $form->{AP};
   ($form->{AP_paid}) = split /--/, $form->{AP_paid};
+  $form->{storno}    = 0;
 
   $form->{id} = 0 if $form->{postasnew};
 
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index feb43ace0..fbfabe6d7 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1463,6 +1463,7 @@ sub post {
 
   ($form->{AR})      = split /--/, $form->{AR};
   ($form->{AR_paid}) = split /--/, $form->{AR_paid};
+  $form->{storno}    = 0;
 
   $form->{label} = $locale->text('Invoice');
 
-- 
2.20.1