Bei Vorgängen auch Positionen speichern und ausdrucken, deren Anzahl = 0 ist (z.B...

diff --git a/SL/IR.pm b/SL/IR.pm
index 3ebae96..d79e0fd 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -112,7 +112,7 @@ sub post_invoice {
       $form->{"inventory_accno_$i"} = $form->{"expense_accno_$i"};
     }
     
-    if ($form->{"qty_$i"} != 0) {
+    if ($form->{"id_$i"}) {
 
       # get item baseunit
       $query = qq|SELECT p.unit

diff --git a/SL/IS.pm b/SL/IS.pm
index 1a36e2c..68989b3 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -103,7 +103,7 @@ sub invoice_details {
 
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
 
-    if ($form->{"qty_$i"} != 0) {
+    if ($form->{"id_$i"} != 0) {
 
       # add number, description and qty to $form->{number},
       if ($form->{"subtotal_$i"} && !$subtotal_header) {
@@ -551,7 +551,7 @@ sub post_invoice {
       $form->{"qty_$i"} *= -1;
     }
 
-    if ($form->{"qty_$i"} != 0) {
+    if ($form->{"id_$i"}) {
 
       # get item baseunit
       $query = qq|SELECT p.unit

diff --git a/SL/OE.pm b/SL/OE.pm
index 200eeae..7bd3853 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -240,7 +240,7 @@ sub save {
         $form->parse_amount($myconfig, $form->{"${_}_$i"})
     } qw(qty ship);
 
-    if ($form->{"qty_$i"}) {
+    if ($form->{"id_$i"}) {
 
       # get item baseunit
       $query = qq|SELECT p.unit
@@ -1028,7 +1028,7 @@ sub order_details {
 
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
 
-    if ($form->{"qty_$i"} != 0) {
+    if ($form->{"id_$i"} != 0) {
 
       # add number, description and qty to $form->{number}, ....