<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>
<th align=right>| . $locale->text('Tax Number / SSN') . qq|</th>
<td><input name=taxnumber size=20 value="$form->{taxnumber}"></td>
<th align=right>| . $locale->text('USt-IdNr.') . qq|</th>
- <td><input name="ustid" maxlength="12" size="20" value="$form->{ustid}"></td>
+ <td><input name="ustid" maxlength="14" size="20" value="$form->{ustid}"></td>
$customer
</tr>
<tr>
<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>
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);
+
+ my $res = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
+
+ if (3 == $res) {
+ if ($form->{"db"} eq "customer") {
+ $form->error($locale->text('This customer number is already in use.'));
+ } else {
+ $form->error($locale->text('This vendor number is already in use.'));
+ }
+ }
&edit;
exit;