Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 7933b6bd

Von Udo Spallek vor etwa 19 Jahren hinzugefügt

  • ID 7933b6bd762c5bac0f0a6bc401ede33c30ece67b
  • Vorgänger 4a095dc9
  • Nachfolger 58b14f96

Bugfix: svn 639 - Auch die entsprechenden Buchungen sind falsch gewesen.

Angepasst für Verkauf: Rechnungen, Aufträge, Angebote und
Einkauf: Einkaufsrechnung, Lieferantenauftrag, Preisanfrage.

Unterschiede anzeigen:

bin/mozilla/ir.pl
176 176 
      $form->{"sellprice_$i"} =
177 177 
        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
178 178 
                             $decimalplaces);
179
180 
      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
181 
      $dec_qty      = length $dec_qty;
182
179 183 
      $form->{"qty_$i"} =
180 
        $form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1));
184 
        $form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1), $dec_qty);
181 185 

  		




  182
  186
  
    
      $form->{rowcount} = $i;


  		




  183
  187
  
    
    }


  		




  ......




  823
  827
  
    
          $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  824
  828
  
    
                               $decimalplaces);


  		




  825
  829
  
    
        $form->{"qty_$i"} =


  		




  826
  
  
    
          $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  830
  
    
          $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);


  		




  827
  831
  
    
      }


  		




  828
  832
  
    

  		




  829
  833
  
    
      &display_form;


  		












  

    
      bin/mozilla/is.pl
    
  





  210
  210
  
    
      $form->{"sellprice_$i"} =


  		




  211
  211
  
    
        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  212
  212
  
    
                             $decimalplaces);


  		




  213
  
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  213
  
    
      


  		




  
  214
  
    
      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);


  		




  
  215
  
    
      $dec_qty      = length $dec_qty;


  		




  
  216
  
    
      


  		




  
  217
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"},


  		




  
  218
  
    
        $dec_qty);


  		




  214
  219
  
    

  		




  215
  220
  
    
      map { $form->{"${_}_$i"} =~ s/\"/"/g }


  		




  216
  221
  
    
        qw(partnumber description unit partnotes);


  		












  

    
      bin/mozilla/oe.pl
    
  





  215
  215
  
    
      $form->{"sellprice_$i"} =


  		




  216
  216
  
    
        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  217
  217
  
    
                             $decimalplaces);


  		




  218
  
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  218
  
    

  		




  
  219
  
    
      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);


  		




  
  220
  
    
      $dec_qty      = length $dec_qty;


  		




  
  221
  
    

  		




  
  222
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);


  		




  219
  223
  
    

  		




  220
  224
  
    
      map { $form->{"${_}_$i"} =~ s/\"/"/g }


  		




  221
  225
  
    
        qw(partnumber description unit);


  		




  ......




  233
  237
  
    
      $form->{"sellprice_$i"} =


  		




  234
  238
  
    
        $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  235
  239
  
    
                             $decimalplaces);


  		




  236
  
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  240
  
    
      


  		




  
  241
  
    
      (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);


  		




  
  242
  
    
      $dec_qty      = length $dec_qty;


  		




  
  243
  
    
      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);


  		




  237
  244
  
    

  		




  238
  245
  
    
      map { $form->{"${_}_$i"} =~ s/\"/"/g }


  		




  239
  246
  
    
        qw(partnumber description unit);


  		




  ......




  973
  980
  
    
          $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  974
  981
  
    
                               $decimalplaces);


  		




  975
  982
  
    
        $form->{"qty_$i"} =


  		




  976
  
  
    
          $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  983
  
    
          $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);


  		




  977
  984
  
    

  		




  978
  985
  
    
        # get pricegroups for parts


  		




  979
  986
  
    
        IS->get_pricegroups_for_parts(\%myconfig, \%$form);


  		




  ......




  1857
  1864
  
    
    $form->{"sellprice_$i"} =


  		




  1858
  1865
  
    
      $form->format_amount(\%myconfig, $form->{"sellprice_$i"},


  		




  1859
  1866
  
    
                           $decimalplaces);


  		




  1860
  
  
    
    $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});


  		




  
  1867
  
    
    


  		




  
  1868
  
    
    (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);


  		




  
  1869
  
    
      $dec_qty      = length $dec_qty;


  		




  
  1870
  
    
    $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);


  		




  1861
  1871
  
    

  		




  1862
  1872
  
    
    map { $form->{"${_}_$i"} =~ s/\"/"/g }


  		




  1863
  1873
  
    
      qw(partnumber description unit);


  		




  ......




  2356
  2366
  
    
      qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;


  		




  2357
  2367
  
    
    $column_data{qty} =


  		




  2358
  2368
  
    
        qq|<td align=right>|


  		




  2359
  
  
    
      . $form->format_amount(\%myconfig, $form->{"qty_$i"})


  		




  
  2369
  
    
      . $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty)


  		




  2360
  2370
  
    
      . qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;


  		




  2361
  2371
  
    
    $column_data{ship} =


  		




  2362
  2372
  
    
        qq|<td align=right><input name="ship_$i" size=5 value=|


  		




  ......




  2667
  2677
  
    
      qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse}&nbsp;</td>|;


  		




  2668
  2678
  
    
    $column_data{qty} =


  		




  2669
  2679
  
    
        qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|


  		




  2670
  
  
    
      . $form->format_amount(\%myconfig, $ref->{qty})


  		




  
  2680
  
    
      . $form->format_amount(\%myconfig, $ref->{qty}, $dec_qty)


  		




  2671
  2681
  
    
      . qq|</td>|;


  		




  2672
  2682
  
    
    $column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;


  		




  2673
  2683
  
    

  		












Auch abrufbar als:  Unified diff