Revision 195883fd
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 382 | 382 |
$jsscript = qq| |
| 383 | 383 |
<style type="text/css">\@import url(js/jscalendar/calendar-win2k-1.css);</style> |
| 384 | 384 |
<script type="text/javascript" src="js/jscalendar/calendar.js"></script> |
| 385 |
? <script type="text/javascript" src="js/jscalendar/lang/calendar-de.js"></script>
|
|
| 386 |
? <script type="text/javascript" src="js/jscalendar/calendar-setup.js"></script>
|
|
| 385 |
<script type="text/javascript" src="js/jscalendar/lang/calendar-de.js"></script>
|
|
| 386 |
<script type="text/javascript" src="js/jscalendar/calendar-setup.js"></script>
|
|
| 387 | 387 |
$self->{javascript}
|
| 388 | 388 |
|; |
| 389 | 389 |
} |
| ... | ... | |
| 450 | 450 |
|
| 451 | 451 |
$trigger_1 = qq| |
| 452 | 452 |
Calendar.setup( |
| 453 |
? {
|
|
| 454 |
??? inputField ?: "$inputField_1",
|
|
| 455 |
??? ifFormat ???:"$ifFormat",
|
|
| 456 |
???align ???: "$align_1", ????
|
|
| 457 |
??? button ?????: "$button_1"
|
|
| 458 |
? }
|
|
| 459 |
? );
|
|
| 453 |
{
|
|
| 454 |
inputField : "$inputField_1",
|
|
| 455 |
ifFormat :"$ifFormat",
|
|
| 456 |
align : "$align_1",
|
|
| 457 |
button : "$button_1"
|
|
| 458 |
} |
|
| 459 |
); |
|
| 460 | 460 |
|; |
| 461 | 461 |
|
| 462 | 462 |
if ($qty == 2) {
|
| 463 | 463 |
$trigger_2 = qq| |
| 464 | 464 |
Calendar.setup( |
| 465 | 465 |
{
|
| 466 |
??? inputField ?: "$inputField_2",
|
|
| 467 |
?? ? ifFormat ???:"$ifFormat",
|
|
| 468 |
??? align ???: "$align_2", ????
|
|
| 469 |
??? button ?????: "$button_2"
|
|
| 470 |
? }
|
|
| 471 |
? );
|
|
| 466 |
inputField : "$inputField_2",
|
|
| 467 |
ifFormat :"$ifFormat",
|
|
| 468 |
align : "$align_2",
|
|
| 469 |
button : "$button_2"
|
|
| 470 |
} |
|
| 471 |
); |
|
| 472 | 472 |
|; |
| 473 | 473 |
} |
| 474 | 474 |
$jsscript = qq| |
| ... | ... | |
| 2120 | 2120 |
} |
| 2121 | 2121 |
|
| 2122 | 2122 |
|
| 2123 |
sub get_pricegroup {
|
|
| 2124 |
$main::lxdebug->enter_sub(); |
|
| 2125 |
|
|
| 2126 |
my ($self, $myconfig, $p) = @_; |
|
| 2127 |
|
|
| 2128 |
my $dbh = $self->dbconnect($myconfig); |
|
| 2129 |
|
|
| 2130 |
my $query = qq|SELECT p.id, p.pricegroup |
|
| 2131 |
FROM pricegroup p|; |
|
| 2132 |
|
|
| 2133 |
$query .= qq| |
|
| 2134 |
ORDER BY pricegroup|; |
|
| 2135 |
|
|
| 2136 |
if ($p->{all}) {
|
|
| 2137 |
$query = qq|SELECT id, pricegroup FROM pricegroup |
|
| 2138 |
ORDER BY pricegroup|; |
|
| 2139 |
} |
|
| 2140 |
|
|
| 2141 |
my $sth = $dbh->prepare($query); |
|
| 2142 |
$sth->execute || $self->dberror($query); |
|
| 2143 |
|
|
| 2144 |
$self->{all_pricegroup} = ();
|
|
| 2145 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 2146 |
push @{ $self->{all_pricegroup} }, $ref;
|
|
| 2147 |
} |
|
| 2148 |
$sth->finish; |
|
| 2149 |
$dbh->disconnect; |
|
| 2150 |
|
|
| 2151 |
$main::lxdebug->leave_sub(); |
|
| 2152 |
} |
|
| 2153 |
|
|
| 2154 |
|
|
| 2123 | 2155 |
sub audittrail {
|
| 2124 | 2156 |
my ($self, $dbh, $myconfig, $audittrail) = @_; |
| 2125 | 2157 |
|
Auch abrufbar als: Unified diff
Preisgruppenerweiterung auf Basis von Andres Patch - Thanks
Preisgruppenverwaltung
...-Preiseingabe der Preisgruppen in Masken Waren,etc.
-Auswahl der Preisgruppen in den Verkaufsmasken
Erweiterung Datenbankschema