Revision f9f5330a
Von Stephan Köhler vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 76 | 76 |
|
| 77 | 77 |
$form->create_links("AP", \%myconfig, "vendor");
|
| 78 | 78 |
|
| 79 |
#quote all_vendor Bug 133 |
|
| 80 |
foreach $ref (@{ $form->{all_vendor} }) {
|
|
| 81 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 82 |
} |
|
| 83 |
|
|
| 79 | 84 |
if ($form->{all_vendor}) {
|
| 80 | 85 |
unless ($form->{vendor_id}) {
|
| 81 | 86 |
$form->{vendor_id} = $form->{all_vendor}->[0]->{id};
|
| ... | ... | |
| 200 | 205 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| 201 | 206 |
} |
| 202 | 207 |
|
| 208 |
#quote selectvendor Bug 133 |
|
| 209 |
$form->{"selectvendor"} = $form->quote($form->{"selectvendor"});
|
|
| 210 |
|
|
| 203 | 211 |
$form->{exchangerate} =
|
| 204 | 212 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 205 | 213 |
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 105 | 105 |
$cp_id = $form->{cp_id};
|
| 106 | 106 |
IS->get_customer(\%myconfig, \%$form); |
| 107 | 107 |
|
| 108 |
#quote all_customer Bug 133 |
|
| 109 |
foreach $ref (@{ $form->{all_customer} }) {
|
|
| 110 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 111 |
} |
|
| 112 |
|
|
| 108 | 113 |
IS->retrieve_invoice(\%myconfig, \%$form); |
| 109 | 114 |
$form->{cp_id} = $cp_id;
|
| 110 | 115 |
|
| ... | ... | |
| 239 | 244 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| 240 | 245 |
} |
| 241 | 246 |
|
| 247 |
#quote customer Bug 133 |
|
| 248 |
$form->{selectcustomer} = $form->quote($form->{selectcustomer});
|
|
| 249 |
|
|
| 242 | 250 |
#build contacts |
| 243 | 251 |
if ($form->{all_contacts}) {
|
| 244 | 252 |
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 30 | 30 |
# Order entry module |
| 31 | 31 |
# Quotation module |
| 32 | 32 |
#====================================================================== |
| 33 |
use Data::Dumper; |
|
| 33 | 34 |
|
| 34 | 35 |
use SL::OE; |
| 35 | 36 |
use SL::IR; |
| ... | ... | |
| 167 | 168 |
# get customer / vendor |
| 168 | 169 |
if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/) {
|
| 169 | 170 |
IR->get_vendor(\%myconfig, \%$form); |
| 171 |
|
|
| 172 |
#quote all_vendor Bug 133 |
|
| 173 |
foreach $ref (@{ $form->{all_vendor} }) {
|
|
| 174 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 175 |
} |
|
| 176 |
|
|
| 170 | 177 |
} |
| 171 | 178 |
if ($form->{type} =~ /(sales|ship)_(order|quotation)/) {
|
| 172 | 179 |
IS->get_customer(\%myconfig, \%$form); |
| 180 |
|
|
| 181 |
#quote all_vendor Bug 133 |
|
| 182 |
foreach $ref (@{ $form->{all_customer} }) {
|
|
| 183 |
$ref->{name} = $form->quote($ref->{name});
|
|
| 184 |
} |
|
| 185 |
|
|
| 173 | 186 |
} |
| 174 | 187 |
$form->{cp_id} = $cp_id;
|
| 175 | 188 |
|
| ... | ... | |
| 330 | 343 |
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
| 331 | 344 |
} |
| 332 | 345 |
|
| 346 |
#quote select[customer|vendor] Bug 133 |
|
| 347 |
$form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
|
|
| 348 |
|
|
| 333 | 349 |
#build contacts |
| 334 | 350 |
if ($form->{all_contacts}) {
|
| 335 | 351 |
|
Auch abrufbar als: Unified diff
Bugfix 133, Quoting fuer Kunden und Lieferanten rein, Dequoting wird nicht benoetigt,
Anfuehrungsstriche brachten Verkaufs- und Einkaufsmasken durcheinander