Revision 195883fd
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 221 | 221 |
|
| 222 | 222 |
my ($self, $myconfig, $form) = @_; |
| 223 | 223 |
|
| 224 |
# set pricegroup to default |
|
| 225 |
if ($form->{klass}) { }
|
|
| 226 |
else { $form->{klass} = 0; }
|
|
| 227 |
|
|
| 224 | 228 |
# connect to database |
| 225 | 229 |
my $dbh = $form->dbconnect($myconfig); |
| 226 | 230 |
##LINET |
| 227 |
map({ $form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
|
|
| 228 |
if ($form->{"selected_cp_${_}"});
|
|
| 231 |
map({
|
|
| 232 |
$form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
|
|
| 233 |
if ($form->{"selected_cp_${_}"});
|
|
| 229 | 234 |
} qw(title greeting)); |
| 230 |
|
|
| 235 |
# |
|
| 231 | 236 |
# escape ' |
| 232 | 237 |
map { $form->{$_} =~ s/\'/\'\'/g }
|
| 233 |
qw(customernumber name street zipcode city country homepage contact notes cp_title cp_greeting language); |
|
| 238 |
qw(customernumber name street zipcode city country homepage contact notes cp_title cp_greeting language pricegroup);
|
|
| 234 | 239 |
##/LINET |
| 235 | 240 |
# assign value discount, terms, creditlimit |
| 236 | 241 |
$form->{discount} = $form->parse_amount($myconfig, $form->{discount});
|
| ... | ... | |
| 314 | 319 |
username = '$form->{username}',
|
| 315 | 320 |
salesman_id = '$form->{salesman_id}',
|
| 316 | 321 |
user_password = '$form->{user_password}',
|
| 317 |
c_vendor_id = '$form->{c_vendor_id}'
|
|
| 322 |
c_vendor_id = '$form->{c_vendor_id}',
|
|
| 323 |
klass = '$form->{klass}'
|
|
| 318 | 324 |
WHERE id = $form->{id}|;
|
| 319 | 325 |
$dbh->do($query) || $form->dberror($query); |
| 320 | 326 |
|
| ... | ... | |
| 362 | 368 |
# connect to database |
| 363 | 369 |
my $dbh = $form->dbconnect($myconfig); |
| 364 | 370 |
##LINET |
| 365 |
map({ $form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
|
|
| 366 |
if ($form->{"selected_cp_${_}"});
|
|
| 371 |
map({
|
|
| 372 |
$form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
|
|
| 373 |
if ($form->{"selected_cp_${_}"});
|
|
| 367 | 374 |
} qw(title greeting)); |
| 368 | 375 |
|
| 369 | 376 |
# escape ' |
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