Revision 83e061c0
Von Sven Schöling vor fast 17 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 152 | 152 |
|
| 153 | 153 |
$form->header; |
| 154 | 154 |
|
| 155 |
print qq| |
|
| 156 |
<body> |
|
| 157 |
|
|
| 158 |
<form method=post action=$form->{script}>
|
|
| 159 |
|
|
| 160 |
<input type=hidden name=searchitems value=$form->{searchitems}>
|
|
| 161 |
<input type=hidden name=title value="$form->{title}">
|
|
| 162 |
|
|
| 163 |
<input type=hidden name=revers value="$form->{revers}">
|
|
| 164 |
<input type=hidden name=lastsort value="$form->{lastsort}">|;
|
|
| 165 |
|
|
| 166 |
print qq| |
|
| 167 |
<table> |
|
| 168 |
<tr class=listheading> |
|
| 169 |
<th class=listheading nowrap>| . $locale->text('Part Number') . qq|</th>
|
|
| 170 |
<th class=listheading nowrap>| . $locale->text('Part Description') . qq|</th>
|
|
| 171 |
</tr> |
|
| 172 |
<tr valign=top> |
|
| 173 |
<td><input type=text name=partnumber size=20 value=></td> |
|
| 174 |
<td><input type=text name=description size=30 value=></td> |
|
| 175 |
</tr> |
|
| 176 |
</table> |
|
| 177 |
<br>|; |
|
| 178 |
|
|
| 179 |
print qq| |
|
| 180 |
|
|
| 181 |
<input type=hidden name=login value=$form->{login}>
|
|
| 182 |
<input type=hidden name=password value=$form->{password}>
|
|
| 183 |
|
|
| 184 |
<input type=hidden name=itemstatus value="$form->{itemstatus}">
|
|
| 185 |
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
|
|
| 186 |
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
|
|
| 187 |
<input type=hidden name=l_description value="$form->{l_description}">
|
|
| 188 |
<input type=hidden name=l_onhand value="$form->{l_onhand}">
|
|
| 189 |
<input type=hidden name=l_unit value="$form->{l_unit}">
|
|
| 190 |
<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
|
|
| 191 |
<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
|
|
| 192 |
<input type=hidden name=sort value="$form->{sort}">
|
|
| 193 |
<input type=hidden name=revers value="$form->{revers}">
|
|
| 194 |
<input type=hidden name=lastsort value="$form->{lastsort}">
|
|
| 195 |
|
|
| 196 |
<input type=hidden name=bom value="$form->{bom}">
|
|
| 197 |
<input type=hidden name=titel value="$form->{titel}">
|
|
| 198 |
<input type=hidden name=searchitems value="$form->{searchitems}">
|
|
| 199 |
|
|
| 200 |
<input type=hidden name=row value=$j> |
|
| 201 |
|
|
| 202 |
<input type=hidden name=nextsub value=item_selected> |
|
| 203 |
|
|
| 204 |
<input type=hidden name=test value=item_selected> |
|
| 205 |
|
|
| 206 |
<input name=lastndx type=hidden value=$lastndx> |
|
| 207 |
|
|
| 208 |
<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>
|
|
| 209 |
|
|
| 210 |
<input name=extras type=hidden value=$form->{extras}>|;
|
|
| 155 |
push @custom_hiddens, qw(login password searchitems title bom titel revers lastsort sort ndxs_counter extras); |
|
| 156 |
push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice); |
|
| 157 |
my @HIDDENS = ( |
|
| 158 |
+{ name => 'row', value => $j },
|
|
| 159 |
+{ name => 'nextsub', value => 'item_selected' },
|
|
| 160 |
+{ name => 'test', value => 'item_selected' },
|
|
| 161 |
+{ name => 'lastndx', value => $lastndx },
|
|
| 162 |
map(+{ name => $_, value => $form->{$_} }, @custom_hiddens),
|
|
| 163 |
); |
|
| 211 | 164 |
|
| 212 | 165 |
my ($partnumber, $description, $unit, $sellprice, $soldtotal); |
| 213 | 166 |
# if choice set data |
| ... | ... | |
| 253 | 206 |
} #rof |
| 254 | 207 |
} #fi |
| 255 | 208 |
|
| 256 |
print $totop100; |
|
| 257 |
|
|
| 258 |
print qq| |
|
| 259 |
<input class=submit type=submit name=action value="| |
|
| 260 |
. $locale->text('list') . qq|">
|
|
| 261 |
</form> |
|
| 209 |
print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, totop100 => $totop100 });
|
|
| 262 | 210 |
|
| 263 |
</body> |
|
| 264 |
</html>|; |
|
| 265 | 211 |
$lxdebug->leave_sub(); |
| 266 | 212 |
} #end choice |
| 267 | 213 |
|
| ... | ... | |
| 420 | 366 |
|
| 421 | 367 |
$form->{top100} = "top100";
|
| 422 | 368 |
$form->{l_soldtotal} = "Y";
|
| 423 |
$form->{soldtotal} = "soldtotal";
|
|
| 369 |
# $form->{soldtotal} = "soldtotal";
|
|
| 424 | 370 |
$form->{sort} = "soldtotal";
|
| 425 | 371 |
$form->{l_qty} = "N";
|
| 426 | 372 |
$form->{l_linetotal} = "";
|
Auch abrufbar als: Unified diff
choice umgebaut, und nebenbei den sqlfehler in top100 gefixt