Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 93dc3778

Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt

  • ID 93dc3778a97299cd8b9dc4a35a9a927b5ba95306
  • Vorgänger 8b17f06f
  • Nachfolger cc8e9951

Item-Positionen für Rechnungen in DB: Rechnungsmasken honorieren und speichern diese.

Unterschiede anzeigen:

SL/IR.pm
106 106 
  for my $i (1 .. $form->{rowcount}) {
107 107 
    next unless $form->{"id_$i"};
108 108 

  		




  
  109
  
    
    my $position = $i;


  		




  
  110
  
    

  		




  109
  111
  
    
    $form->{"qty_$i"}  = $form->parse_amount($myconfig, $form->{"qty_$i"});


  		




  110
  112
  
    
    $form->{"qty_$i"} *= -1 if $form->{storno};


  		




  111
  113
  
    

  		




  ......




  373
  375
  
    
      my $h_invoice_id = prepare_query($form, $dbh, $q_invoice_id);


  		




  374
  376
  
    
      do_statement($form, $h_invoice_id, $q_invoice_id);


  		




  375
  377
  
    
      $form->{"invoice_id_$i"}  = $h_invoice_id->fetchrow_array();


  		




  376
  
  
    
      my $q_create_invoice_id = qq|INSERT INTO invoice (id, trans_id, parts_id) values (?, ?, ?)|;


  		




  377
  
  
    
      do_query($form, $dbh, $q_create_invoice_id, conv_i($form->{"invoice_id_$i"}), conv_i($form->{id}), conv_i($form->{"id_$i"}));


  		




  
  378
  
    
      my $q_create_invoice_id = qq|INSERT INTO invoice (id, trans_id, position, parts_id) values (?, ?, ?, ?)|;


  		




  
  379
  
    
      do_query($form, $dbh, $q_create_invoice_id, conv_i($form->{"invoice_id_$i"}),


  		




  
  380
  
    
               conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}));


  		




  378
  381
  
    
      $h_invoice_id->finish();


  		




  379
  382
  
    
    }


  		




  380
  383
  
    

  		




  381
  384
  
    
      # save detail record in invoice table


  		




  382
  385
  
    
      $query = <<SQL;


  		




  383
  
  
    
        UPDATE invoice SET trans_id = ?, parts_id = ?, description = ?, longdescription = ?, qty = ?, base_qty = ?,


  		




  
  386
  
    
        UPDATE invoice SET trans_id = ?, position = ?, parts_id = ?, description = ?, longdescription = ?, qty = ?, base_qty = ?,


  		




  384
  387
  
    
                           sellprice = ?, fxsellprice = ?, discount = ?, allocated = ?, unit = ?, deliverydate = ?,


  		




  385
  388
  
    
                           project_id = ?, serialnumber = ?, price_factor_id = ?,


  		




  386
  389
  
    
                           price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?,


  		




  ......




  388
  391
  
    
        WHERE id = ?


  		




  389
  392
  
    
SQL


  		




  390
  393
  
    

  		




  391
  
  
    
    @values = (conv_i($form->{id}), conv_i($form->{"id_$i"}),


  		




  
  394
  
    
    @values = (conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}),


  		




  392
  395
  
    
               $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,


  		




  393
  396
  
    
               $baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,


  		




  394
  397
  
    
               $form->{"unit_$i"}, conv_date($form->{deliverydate}),


  		




  ......




  1018
  1021
  
    

  		




  1019
  1022
  
    
        WHERE i.trans_id = ?


  		




  1020
  1023
  
    

  		




  1021
  
  
    
        ORDER BY i.id|;


  		




  
  1024
  
    
        ORDER BY i.position|;


  		




  1022
  1025
  
    
  $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));


  		




  1023
  1026
  
    

  		




  1024
  1027
  
    
  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {


  		












Auch abrufbar als:  Unified diff