Revision 33c46114
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
686 | 686 |
# get pricegroup_id and save it |
687 | 687 |
($null, my $pricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"}); |
688 | 688 |
$pricegroup_id *= 1; |
689 |
my $subtotal = $form->{"subtotal_$i"} * 1; |
|
690 | 689 |
|
691 | 690 |
# save detail record in invoice table |
692 | 691 |
$query = |
... | ... | |
704 | 703 |
$form->{"unit_$i"}, conv_date($form->{"deliverydate_$i"}), conv_i($form->{"project_id_$i"}), |
705 | 704 |
$form->{"serialnumber_$i"}, conv_i($pricegroup_id), |
706 | 705 |
$form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}), |
707 |
$form->{"cusordnumber_$i"}, $baseqty, $subtotal,
|
|
706 |
$form->{"cusordnumber_$i"}, $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',
|
|
708 | 707 |
$form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"}, |
709 | 708 |
$form->{"lastcost_$i"}); |
710 | 709 |
do_query($form, $dbh, $query, @values); |
Auch abrufbar als: Unified diff
subtotal ist eine Boolean-Spalte; ältere DBI-Versionen mögen's nicht, wenn man ihnen dort Integer unterschiebt.