Revision 07d71c33
Von Stephan Köhler vor fast 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
Merge von 599-602,605,614,615 aus unstable: Preisgruppen Teil 1
--Preisgruppenerweiterung auf Basis von Andres Patch - Thanks
-Preisgruppenverwaltung
-Preiseingabe der Preisgruppen in Masken Waren,etc.
-Auswahl der Preisgruppen in den Verkaufsmasken
-Erweiterung Datenbankschema
-Übersetzungen für Preisgruppen
-Bugfix Preisgruppen, in der Warenmaske zeigte er eine Preisgruppe a
"Gruppe 1" als "Gruppe" an
-Anpassung locale
--Fehler bei negativen Umsaetzen behoben
--Fehler beim Speichern von Rechnungen und Angeboten/Auftraegen wenn keine Preisgruppen vorhanden
--Fehler bei Drucken und Buchen und Preisgruppen behoben, Preisgruppen Quelltext ein wenig modifiziert