Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 61824c45

Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt

  • ID 61824c4571db7e870e7c9cdc03e4af408fd27702
  • Vorgänger e077b319
  • Nachfolger 6c5272e6

Anpassung der Historienfunktion

Unterschiede anzeigen:

SL/CP.pm
332 332

  
333 333
      $form->{"paid_$i"} =
334 334
        $form->round_amount($form->{"paid_$i"} * $exchangerate, 2);
335

  
336 335
      $pth->execute($form->{"id_$i"}) || $form->dberror;
337 336
      ($amount) = $pth->fetchrow_array;
338 337
      $pth->finish;
......
350 349
      $query = qq|UPDATE $arap SET $paid, datepaid = ? WHERE id = ?|;
351 350
		  @values = (conv_date($form->{datepaid}), conv_i($form->{"id_$i"}));
352 351
      do_query($form, $dbh, $query, @values);
352
      # saving the history
353
      $form->{id} = $form->{"id_$i"};
354
      if(!exists $form->{addition}) {
355
        $form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"};
356
        $form->{addition} = "POSTED";
357
        $form->save_history($form->dbconnect($myconfig));
358
      }
359
      # /saving the history 
353 360
    }
354 361
  }
355 362

  

Auch abrufbar als: Unified diff