Revision 1c181c11
Von Bernd Bleßmann vor etwa 9 Jahren hinzugefügt
| 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);
|
||
|
}
|
||
|
}
|
||
Auch abrufbar als: Unified diff
GLN: Berücksichtigung in Belegmasken