Revision 3db6a6d9
Von Holger Lindemann vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
|
$form->{selectshipto} = "<option value=0></option>";
|
||
|
if (@{ $form->{SHIPTO} }) {
|
||
|
foreach $item (@{ $form->{SHIPTO} }) {
|
||
|
if ($item->{id} == $form->{shipto_id}) {
|
||
|
if ($item->{shipto_id} == $form->{shipto_id}) {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id} selected>$item->{shiptoname}\n";
|
||
|
"<option value=$item->{shipto_id} selected>$item->{shiptoname} $item->{shiptodepartment_1}\n";
|
||
|
} else {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id}>$item->{shiptoname}\n";
|
||
|
"<option value=$item->{shipto_id}>$item->{shiptoname} $item->{shiptodepartment_1}\n";
|
||
|
}
|
||
|
|
||
|
}
|
||
| ... | ... | |
|
if ($vertreter && $form->{db} eq "customer") {
|
||
|
$form->isblank("salesman_id", $locale->text("Salesman missing!"));
|
||
|
}
|
||
|
print(STDERR "SHIPTO in sub save $form->{shipto_id}\n");
|
||
|
&{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
|
||
|
|
||
|
&edit;
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
if (@{ $form->{SHIPTO} }) {
|
||
|
$form->{selectshipto} = "<option value=0></option>";
|
||
|
foreach $item (@{ $form->{SHIPTO} }) {
|
||
|
if ($item->{id} == $form->{shipto_id}) {
|
||
|
if ($item->{shipto_id} == $form->{shipto_id}) {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id} selected>$item->{shiptoname}</option>";
|
||
|
"<option value=$item->{shipto_id} selected>$item->{shiptoname} $item->{shiptodepartment_1}</option>";
|
||
|
} else {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id}>$item->{shiptoname}</option>";
|
||
|
"<option value=$item->{shipto_id}>$item->{shiptoname} $item->{shiptodepartment}</option>";
|
||
|
}
|
||
|
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
$shipto = qq|
|
||
|
<th align=right>| . $locale->text('Shipping Address') . qq|</th>
|
||
|
<td><select name=shipto_id>$form->{selectshipto}</select></td>
|
||
|
<td><select name=shipto_id style="width:200px;">$form->{selectshipto}</select></td>
|
||
|
<input type=hidden name=selectshipto value="$form->{selectshipto}">|;
|
||
|
|
||
|
|
||
| ... | ... | |
|
$dunning
|
||
|
<tr>
|
||
|
<th align=right nowrap>| . $locale->text('Record in') . qq|</th>
|
||
|
<td colspan=3><select name=AR>$form->{selectAR}</select></td>
|
||
|
<td colspan=3><select name=AR style="width:280px;">$form->{selectAR}</select></td>
|
||
|
<input type=hidden name=selectAR value="$form->{selectAR}">
|
||
|
</tr>
|
||
|
$taxzone
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
if (@{ $form->{SHIPTO} }) {
|
||
|
$form->{selectshipto} = "<option value=0></option>";
|
||
|
foreach $item (@{ $form->{SHIPTO} }) {
|
||
|
if ($item->{id} == $form->{shipto_id}) {
|
||
|
if ($item->{shipto_id} == $form->{shipto_id}) {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id} selected>$item->{shiptoname}</option>";
|
||
|
"<option value=$item->{shipto_id} selected>$item->{shiptoname} $item->{shiptodepartment_1}</option>";
|
||
|
} else {
|
||
|
$form->{selectshipto} .=
|
||
|
"<option value=$item->{id}>$item->{shiptoname}</option>";
|
||
|
"<option value=$item->{shipto_id}>$item->{shiptoname} $item->{shiptodepartment_1}</option>";
|
||
|
}
|
||
|
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Sichern von abweichenden Lieferanschiften:
Kunden ohne trans_id, Lieferanten ohne 'CT', mehrfaches speichern der gleichen Anschrift
shiptodepartment_1 in die Auswahlbox mit übernommen, breite der Selectbox "shipto" und "konto" fixiert
Konflikt mit CRM