<input type=hidden name=password value=$form->{password}>
<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">|;
+ . $locale->text('Add') . qq|">
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
</form>
</body>
my $pjy = new CGI::Ajax( 'get_shipto' => $get_shipto_url );
$form->{selectshipto} = "<option value=0></option>";
+ $form->{selectshipto} .= "<option value=0>Alle</option>";
if (@{ $form->{SHIPTO} }) {
foreach $item (@{ $form->{SHIPTO} }) {
if ($item->{shipto_id} == $form->{shipto_id}) {
# $locale->text('Customer Number')
# $locale->text('Vendor Number')
$form->{fokus} = "ct.greeting";
+ $form->{jsscript} = 1;
$form->header;
print qq|
<tr>
<th align=right>| . $locale->text('Credit Limit') . qq|</th>
<td><input name=creditlimit size=9 value="$form->{creditlimit}"></td>
- <th align=right>| . $locale->text('Terms: Net') . qq|</th>
- <td><input name=terms size=2 value="$form->{terms}">|
- . $locale->text('days') . qq|</td>
+ <input type="hidden" name="terms" value="$form->{terms}">
+ <th align=right>| . $locale->text('Payment Terms') . qq|</th>
+ <td><select name=payment_id>$payment</select></td>
<th align=right>| . $locale->text('Discount') . qq|</th>
<td><input name=discount size=4 value="$form->{discount}">
%</td>
<tr>
<td align=right>| . $locale->text('Obsolete') . qq|</td>
<td><input name=obsolete class=checkbox type=checkbox value=1 $form->{obsolete}></td>
- <th align=right>| . $locale->text('Payment Terms') . qq|</th>
- <td><select name=payment_id>$payment
- </select></td>
</tr>
$taxzone
</table>
$delivery
<tr>
<th align=left nowrap>| . $locale->text('From') . qq|</th>
- <td><input id=from name=from size=10 maxlength=10 value="$form->{from}"></td>
- <th align=left nowrap>| . $locale->text('Bis') . qq|</th>
- <td><input id=to name=to size=10 maxlength=10 value="$form->{to}"></td>
+ <td><input id=from name=from size=10 maxlength=10 value="$form->{from}">
+ <input type="button" name="fromB" id="trigger_from" value="?"></td>
+ <th align=left nowrap>| . $locale->text('To (time)') . qq|</th>
+ <td><input id=to name=to size=10 maxlength=10 value="$form->{to}">
+ <input type="button" name="toB" id="trigger_to" value="?"></td>
</tr>
<tr>
<td colspan=4>
</div>
-|;
+| . $form->write_trigger(\%myconfig, 2, "fromB", "BL", "trigger_from",
+ "toB", "BL", "trigger_to");
$lxdebug->leave_sub();
}
. qq|">\n|;
}
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
print qq|
</form>