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 3ebae9653489c9e9104b09e5f121e571c45a030d..d79e0fd5d9a10ebe68bc3c04111df7059358bf50 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"};
     }
     
       $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
 
       # get item baseunit
       $query = qq|SELECT p.unit

diff --git a/SL/IS.pm b/SL/IS.pm
index 1a36e2c9acf1a6aabcb075e7a16e508000a15380..68989b372068c1b057a9bcbaaa76d3058492e185 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"});
 
 
     $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) {
 
       # 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;
     }
 
       $form->{"qty_$i"} *= -1;
     }
 

-    if ($form->{"qty_$i"} != 0) {
+    if ($form->{"id_$i"}) {

 
       # get item baseunit
       $query = qq|SELECT p.unit
 
       # get item baseunit
       $query = qq|SELECT p.unit

diff --git a/SL/OE.pm b/SL/OE.pm
index 200eeae9d4985ed17096bfdccaf8f1cd1a62b468..7bd3853ca2ec6042f3e490571677adec3c1519f9 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);
 
         $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
 
       # 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"});
 
 
     $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}, ....
 
 
       # add number, description and qty to $form->{number}, ....