Revision 081a4f97
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 34 | 34 |
|
| 35 | 35 |
package IC; |
| 36 | 36 |
use Data::Dumper; |
| 37 |
|
|
| 37 | 38 |
sub get_part {
|
| 38 | 39 |
$main::lxdebug->enter_sub(); |
| 39 | 40 |
|
| ... | ... | |
| 235 | 236 |
$main::lxdebug->enter_sub(); |
| 236 | 237 |
|
| 237 | 238 |
my ($self, $myconfig, $form) = @_; |
| 238 |
my $dbh = $form->dbconnect($myconfig); |
|
| 239 |
my $i = 1; |
|
| 239 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 240 |
my $i = 1;
|
|
| 240 | 241 |
my @pricegroups_not_used = (); |
| 241 | 242 |
|
| 242 | 243 |
# get pricegroups |
| ... | ... | |
| 276 | 277 |
$main::lxdebug->leave_sub(); |
| 277 | 278 |
} |
| 278 | 279 |
|
| 279 |
|
|
| 280 | 280 |
sub save {
|
| 281 | 281 |
$main::lxdebug->enter_sub(); |
| 282 | 282 |
|
| ... | ... | |
| 456 | 456 |
# insert price records only if different to sellprice |
| 457 | 457 |
for my $i (1 .. $form->{price_rows}) {
|
| 458 | 458 |
if ($form->{"price_$i"} eq "0") {
|
| 459 |
$form->{"price_$i"} = $form->{sellprice};
|
|
| 459 |
$form->{"price_$i"} = $form->{sellprice};
|
|
| 460 | 460 |
} |
| 461 |
if (( $form->{"price_$i"}
|
|
| 462 |
|| $form->{"klass_$i"}
|
|
| 463 |
|| $form->{"pricegroup_id_$i"}) and $form->{"price_$i"} != $form->{sellprice}) {
|
|
| 461 |
if ( |
|
| 462 |
( $form->{"price_$i"}
|
|
| 463 |
|| $form->{"klass_$i"}
|
|
| 464 |
|| $form->{"pricegroup_id_$i"})
|
|
| 465 |
and $form->{"price_$i"} != $form->{sellprice}
|
|
| 466 |
) {
|
|
| 464 | 467 |
$klass = $form->parse_amount($myconfig, $form->{"klass_$i"});
|
| 465 | 468 |
$price = $form->parse_amount($myconfig, $form->{"price_$i"});
|
| 466 | 469 |
$pricegroup_id = |
| ... | ... | |
| 1041 | 1044 |
$ordwhere .= " AND lower(oi.description) LIKE '$var'"; |
| 1042 | 1045 |
} |
| 1043 | 1046 |
|
| 1044 |
$flds = qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1047 |
$flds = |
|
| 1048 |
qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1045 | 1049 |
oi.qty AS onhand, oi.unit, p.bin, oi.sellprice, |
| 1046 | 1050 |
p.listprice, p.lastcost, p.rop, p.weight, |
| 1047 | 1051 |
p.priceupdate, p.image, p.drawing, p.microfiche, |
| ... | ... | |
| 1067 | 1071 |
} |
| 1068 | 1072 |
|
| 1069 | 1073 |
if ($form->{onorder}) {
|
| 1070 |
$flds = qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1074 |
$flds = |
|
| 1075 |
qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1071 | 1076 |
oi.qty * -1 AS onhand, oi.unit, p.bin, oi.sellprice, |
| 1072 | 1077 |
p.listprice, p.lastcost, p.rop, p.weight, |
| 1073 | 1078 |
p.priceupdate, p.image, p.drawing, p.microfiche, |
| ... | ... | |
| 1104 | 1109 |
$quowhere .= " AND lower(oi.description) LIKE '$var'"; |
| 1105 | 1110 |
} |
| 1106 | 1111 |
|
| 1107 |
$flds = qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1112 |
$flds = |
|
| 1113 |
qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1108 | 1114 |
oi.qty AS onhand, oi.unit, p.bin, oi.sellprice, |
| 1109 | 1115 |
p.listprice, p.lastcost, p.rop, p.weight, |
| 1110 | 1116 |
p.priceupdate, p.image, p.drawing, p.microfiche, |
| ... | ... | |
| 1130 | 1136 |
} |
| 1131 | 1137 |
|
| 1132 | 1138 |
if ($form->{rfq}) {
|
| 1133 |
$flds = qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1139 |
$flds = |
|
| 1140 |
qq|p.id, p.partnumber, oi.description, oi.serialnumber AS serialnumber, |
|
| 1134 | 1141 |
oi.qty * -1 AS onhand, oi.unit, p.bin, oi.sellprice, |
| 1135 | 1142 |
p.listprice, p.lastcost, p.rop, p.weight, |
| 1136 | 1143 |
p.priceupdate, p.image, p.drawing, p.microfiche, |
Auch abrufbar als: Unified diff
Kosmetik: Perltidy-Lauf nach den Einstellungen in doc/programmierrichtlinien.txt ueber alle .pl und .pm.