Revision eebe8e90
Von Sven Schöling vor etwa 10 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 390 | 390 |
# Kunde mit Rabatt 20 -> Rabatt 5,5 i.O. |
| 391 | 391 |
$form->{payment_id} = $payment_id if $form->{payment_id} eq "";
|
| 392 | 392 |
|
| 393 |
# for pricegroups |
|
| 394 | 393 |
my $i = $form->{rowcount};
|
| 395 | 394 |
|
| 396 | 395 |
if ( ($form->{"partnumber_$i"} eq "")
|
| ... | ... | |
| 431 | 430 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"} * (1 - $form->{tradediscount}));
|
| 432 | 431 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
|
| 433 | 432 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
| 434 |
|
|
| 435 |
# get pricegroups for parts |
|
| 436 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 437 |
|
|
| 438 |
# build up html code for prices_$i |
|
| 439 |
&set_pricegroup($i); |
|
| 440 | 433 |
} |
| 441 | 434 |
|
| 442 | 435 |
display_form(); |
| ... | ... | |
| 849 | 842 |
|
| 850 | 843 |
} |
| 851 | 844 |
|
| 852 |
# show pricegroup in newly loaded invoice when creating invoice from delivery order |
|
| 853 |
for my $i (1 .. $form->{rowcount}) {
|
|
| 854 |
$form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 855 |
} |
|
| 856 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 857 |
set_pricegroup($form->{rowcount});
|
|
| 858 |
|
|
| 859 | 845 |
display_form(); |
| 860 | 846 |
|
| 861 | 847 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 957 | 943 |
invoice_links(); |
| 958 | 944 |
prepare_invoice(); |
| 959 | 945 |
|
| 960 |
# show pricegroup in newly loaded invoice when creating invoice from delivery order |
|
| 961 |
for my $i (1 .. $form->{rowcount}) {
|
|
| 962 |
$form->{"sellprice_pg_$i"} = join '--', $form->{"sellprice_$i"}, $form->{"pricegroup_id_$i"};
|
|
| 963 |
} |
|
| 964 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
|
| 965 |
set_pricegroup($_) for 1 .. $form->{rowcount};
|
|
| 966 |
|
|
| 967 | 946 |
display_form(); |
| 968 | 947 |
|
| 969 | 948 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
PriceSource: Erste Version
- Preisgruppen und Stammdaten sind implementiert
- Persistenz in allen Belegen funktioniert
- Rudimentäre Visualisierung funktioniert
- Klassen sind alle da
- Doku fehlt
- Verkauf/Einkaufweiche fehlt
- best_price ungetestet
- Preisgruppen hängen noch nicht von Verkäufer ab
- dependancy system fehlt
- verhalten bei fehlerhaften sources
- pricegroup -> active_source migration