Revision 1c181c11
Von Bernd Bleßmann vor etwa 9 Jahren hinzugefügt
| SL/DB/Helper/FlattenToForm.pm | ||
|---|---|---|
|
$form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|Order)};
|
||
|
|
||
|
my @vc_fields = (qw(account_number bank bank_code bic business city contact country creditlimit
|
||
|
department_1 department_2 discount email fax homepage iban language name
|
||
|
department_1 department_2 discount email fax gln homepage iban language name
|
||
|
payment_terms phone street taxnumber ustid zipcode),
|
||
|
"${vc}number",
|
||
|
($vc eq 'customer')? 'c_vendor_id': 'v_customer_id');
|
||
| SL/DB/Manager/Customer.pm | ||
|---|---|---|
|
sub _sort_spec {
|
||
|
return ( default => [ 'name', 1 ],
|
||
|
columns => { SIMPLE => 'ALL',
|
||
|
map { ( $_ => "lower(customer.$_)" ) } qw(customernumber vendornumber name contact phone fax email street taxnumber business invnumber ordnumber quonumber)
|
||
|
map { ( $_ => "lower(customer.$_)" ) } qw(customernumber vendornumber name contact phone fax email street gln taxnumber business invnumber ordnumber quonumber)
|
||
|
});
|
||
|
}
|
||
|
|
||
| SL/DB/Manager/Vendor.pm | ||
|---|---|---|
|
default => [ 'name', 1 ],
|
||
|
columns => {
|
||
|
SIMPLE => 'ALL',
|
||
|
map { ( $_ => "lower(vendor.$_)" ) } qw(account_number bank bank_code bcc bic cc city contact country department_1 department_2 depositor email fax greeting homepage iban language
|
||
|
map { ( $_ => "lower(vendor.$_)" ) } qw(account_number bank bank_code bcc bic cc city contact country department_1 department_2 depositor email fax gln greeting homepage iban language
|
||
|
name notes phone street taxnumber user_password username ustid v_customer_id vendornumber zipcode)
|
||
|
});
|
||
|
}
|
||
| SL/Form.pm | ||
|---|---|---|
|
my $shipto;
|
||
|
my @values;
|
||
|
|
||
|
foreach my $item (qw(name department_1 department_2 street zipcode city country
|
||
|
foreach my $item (qw(name department_1 department_2 street zipcode city country gln
|
||
|
contact cp_gender phone fax email)) {
|
||
|
if ($self->{"shipto$item"}) {
|
||
|
$shipto = 1 if ($self->{$item} ne $self->{"shipto$item"});
|
||
| ... | ... | |
|
shiptozipcode = ?,
|
||
|
shiptocity = ?,
|
||
|
shiptocountry = ?,
|
||
|
shiptogln = ?,
|
||
|
shiptocontact = ?,
|
||
|
shiptocp_gender = ?,
|
||
|
shiptophone = ?,
|
||
| ... | ... | |
|
shiptozipcode = ? AND
|
||
|
shiptocity = ? AND
|
||
|
shiptocountry = ? AND
|
||
|
shiptogln = ? AND
|
||
|
shiptocontact = ? AND
|
||
|
shiptocp_gender = ? AND
|
||
|
shiptophone = ? AND
|
||
| ... | ... | |
|
if(!$insert_check){
|
||
|
$query =
|
||
|
qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2,
|
||
|
shiptostreet, shiptozipcode, shiptocity, shiptocountry,
|
||
|
shiptostreet, shiptozipcode, shiptocity, shiptocountry, shiptogln,
|
||
|
shiptocontact, shiptocp_gender, shiptophone, shiptofax, shiptoemail, module)
|
||
|
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
|
||
|
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
|
||
|
do_query($self, $dbh, $query, $id, @values, $module);
|
||
|
}
|
||
|
}
|
||
| SL/IS.pm | ||
|---|---|---|
|
$ref->{street} = $customer->street;
|
||
|
$ref->{zipcode} = $customer->zipcode;
|
||
|
$ref->{country} = $customer->country;
|
||
|
$ref->{gln} = $customer->gln;
|
||
|
}
|
||
|
my $contact = SL::DB::Manager::Contact->find_by(cp_id => $::form->{cp_id});
|
||
|
if ($contact) {
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
map { $::form->{$_} = $::form->parse_amount(\%::myconfig, $::form->{$_}) } qw(exchangerate creditlimit creditremaining);
|
||
|
|
||
|
# get details for customer/vendor
|
||
|
call_sub($::form->{vc} . "_details", qw(name department_1 department_2 street zipcode city country contact email phone fax), $::form->{vc} . "number");
|
||
|
|
||
|
call_sub($::form->{vc} . "_details", qw(name department_1 department_2 street zipcode city country gln contact email phone fax), $::form->{vc} . "number");
|
||
|
$::form->{rowcount}--;
|
||
|
|
||
|
my @shipto_vars = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry
|
||
|
my @shipto_vars = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln
|
||
|
shiptocontact shiptocp_gender shiptophone shiptofax shiptoemail
|
||
|
shiptodepartment_1 shiptodepartment_2);
|
||
|
my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id) ]);
|
||
| bin/mozilla/ir.pl | ||
|---|---|---|
|
id action type media format queued printed emailed title vc discount
|
||
|
title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id
|
||
|
max_dunning_level dunning_amount
|
||
|
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax
|
||
|
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax
|
||
|
shiptoemail shiptodepartment_1 shiptodepartment_2 message email subject cc bcc taxaccounts cursor_fokus
|
||
|
convert_from_do_ids convert_from_oe_ids show_details gldate useasnew
|
||
|
), @custom_hiddens,
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
id action type media format queued printed emailed title vc discount
|
||
|
title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id
|
||
|
max_dunning_level dunning_amount dunning_description
|
||
|
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax
|
||
|
shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax
|
||
|
shiptoemail shiptodepartment_1 shiptodepartment_2 shiptocp_gender message email subject cc bcc taxaccounts cursor_fokus
|
||
|
convert_from_do_ids convert_from_oe_ids convert_from_ar_ids useasnew
|
||
|
invoice_id
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
qw(id action type vc formname media format proforma queued printed emailed
|
||
|
title creditlimit creditremaining tradediscount business
|
||
|
max_dunning_level dunning_amount shiptoname shiptostreet shiptozipcode
|
||
|
CFDD_shipto CFDD_shipto_id shiptocity shiptocountry shiptocontact shiptophone shiptofax
|
||
|
CFDD_shipto CFDD_shipto_id shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax
|
||
|
shiptodepartment_1 shiptodepartment_2 shiptoemail shiptocp_gender
|
||
|
message email subject cc bcc taxpart taxservice taxaccounts cursor_fokus
|
||
|
show_details useasnew),
|
||
| templates/webpages/common/show_vc_details.html | ||
|---|---|---|
|
<td>[% HTML.escape(country) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td align="right">[% 'GLN' | $T8 %]</td>
|
||
|
<td>[% HTML.escape(gln) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td align="right">[% 'Contact Person' | $T8 %]</td>
|
||
|
<td>[% IF greeting %][% HTML.escape(greeting) %] [% END %][% HTML.escape(contact) %]</td>
|
||
| ... | ... | |
|
<td>[% HTML.escape(row.shiptocountry) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td align="right">[% 'GLN' | $T8 %]</td>
|
||
|
<td>[% HTML.escape(row.shiptogln) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<td align="right">[% 'Contact Person' | $T8 %]</td>
|
||
|
<td>[% HTML.escape(row.shiptocontact) %]</td>
|
||
| templates/webpages/do/form_header.html | ||
|---|---|---|
|
<input type="hidden" name="shiptocontact" value="[% HTML.escape(shiptocontact) %]">
|
||
|
<input type="hidden" name="shiptocp_gender" value="[% HTML.escape(shiptocp_gender) %]">
|
||
|
<input type="hidden" name="shiptocountry" value="[% HTML.escape(shiptocountry) %]">
|
||
|
<input type="hidden" name="shiptogln" value="[% HTML.escape(shiptogln) %]">
|
||
|
<input type="hidden" name="shiptodepartment_1" value="[% HTML.escape(shiptodepartment_1) %]">
|
||
|
<input type="hidden" name="shiptodepartment_2" value="[% HTML.escape(shiptodepartment_2) %]">
|
||
|
<input type="hidden" name="shiptoemail" value="[% HTML.escape(shiptoemail) %]">
|
||
| templates/webpages/io/ship_to.html | ||
|---|---|---|
|
shiptozipcode: "[% JavaScript.escape(vc_obj.zipcode) %]",
|
||
|
shiptocity: "[% JavaScript.escape(vc_obj.city) %]",
|
||
|
shiptocountry: "[% JavaScript.escape(vc_obj.country) %]",
|
||
|
shiptogln: "[% JavaScript.escape(vc_obj.gln) %]",
|
||
|
shiptocontact: "[% JavaScript.escape(vc_obj.contact) %]",
|
||
|
shiptocp_gender: "[% JavaScript.escape(vc_obj.cp_gender) %]",
|
||
|
shiptophone: "[% JavaScript.escape(vc_obj.phone) %]",
|
||
| ... | ... | |
|
shiptozipcode: "[% JavaScript.escape(shipto.shiptozipcode) %]",
|
||
|
shiptocity: "[% JavaScript.escape(shipto.shiptocity) %]",
|
||
|
shiptocountry: "[% JavaScript.escape(shipto.shiptocountry) %]",
|
||
|
shiptogln: "[% JavaScript.escape(shipto.shiptogln) %]",
|
||
|
shiptocontact: "[% JavaScript.escape(shipto.shiptocontact) %]",
|
||
|
shiptocp_gender: "[% JavaScript.escape(shipto.shiptocp_gender) %]",
|
||
|
shiptophone: "[% JavaScript.escape(shipto.shiptophone) %]",
|
||
| ... | ... | |
|
<td>[% HTML.escape(country) %]</td>
|
||
|
<td>[% L.input_tag("shiptocountry", shiptocountry, "size", "35") %]</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<th align="right" nowrap>[% LxERP.t8('GLN') %]</th>
|
||
|
<td>[% HTML.escape(gln) %]</td>
|
||
|
<td>[% L.input_tag("shiptogln", shiptogln, "size", "35") %]</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<th align="right" nowrap>[% LxERP.t8('Contact') %]</th>
|
||
|
<td>[% HTML.escape(contact) %]</td>
|
||
| templates/webpages/oe/check_for_direct_delivery.html | ||
|---|---|---|
|
<td valign="top">[% HTML.escape(CFDD_shiptocountry) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<th align="right" valign="top">[% 'GLN' | $T8 %]:</th>
|
||
|
<td valign="top">[% HTML.escape(CFDD_shiptogln) %]</td>
|
||
|
</tr>
|
||
|
|
||
|
<tr>
|
||
|
<th align="right" valign="top">[% 'Contact' | $T8 %]:</th>
|
||
|
<td valign="top">[% HTML.escape(CFDD_shiptocontact) %]</td>
|
||
Auch abrufbar als: Unified diff
GLN: Berücksichtigung in Belegmasken