}
}
+ $form->{radier} =
+ ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
+
$payment = qq|<option value=""></option>|;
foreach $item (@{ $form->{payment_terms} }) {
if ($form->{payment_id} eq $item->{id}) {
$exchangerate .= qq|
<input type=hidden name=forex value=$form->{forex}>
|;
- print(STDERR "$form->{customer} Kunde\n");
$customer =
($form->{selectcustomer})
? qq|<select name=customer>$form->{selectcustomer}</select>\n<input type=hidden name="selectcustomer" value="$form->{selectcustomer}">|
: qq|<input name=customer value="$form->{customer}" size=35>|;
- print(STDERR "$form->{customer} Kunde\n");
#sk
$contact =
. $locale->text('Credit Note') . qq|">
|;
}
+ if ($form->{radier}) {
+ print qq|
+ <input class=submit type=submit name=action value="|
+ . $locale->text('Delete') . qq|">
+|;
+ }
if ($invdate > $closedto) {