- $exchangerate .= qq|<input type="hidden" name="forex_$i" value="$form->{"forex_$i"}">|;
-
- $column_data{"paid_$i"} =
- qq|<td align="center"><input name="paid_$i" size="11" value="$form->{"paid_$i"}" onBlur=\"check_right_number_format(this)\"></td>|;
- $column_data{"exchangerate_$i"} = qq|<td align="center">$exchangerate</td>|;
- $column_data{"AR_paid_$i"} =
- qq|<td align="center"><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
- $column_data{"datepaid_$i"} =
- qq|<td align="center"><input id="datepaid_$i" name="datepaid_$i" size="11" title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}" onBlur=\"check_right_date_format(this)\">
- <input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|;
- $column_data{"source_$i"} =
- qq|<td align=center><input name="source_$i" size="11" value="$form->{"source_$i"}"></td>|;
- $column_data{"memo_$i"} =
- qq|<td align="center"><input name="memo_$i" size="11" value="$form->{"memo_$i"}"></td>|;
-
- map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
- print "
- </tr>\n";
- push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i");
- }
-
- my $paid_missing = $form->{oldinvtotal} - $totalpaid;
-
- print qq|
- <tr>
- <td></td>
- <td></td>
- <td align="center">| . $locale->text('Total') . qq|</td>
- <td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td>
- </tr>
- <tr>
- <td></td>
- <td></td>
- <td align="center">| . $locale->text('Missing amount') . qq|</td>
- <td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td>
- </tr>
-|;
-
- map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } qw(paidaccounts selectAR_paid oldinvtotal));
- print qq|<input type="hidden" name="oldtotalpaid" value="$totalpaid">
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size="3" noshade></td>
- </tr>
- <tr>
- <td>
-|;
-
- print_options();
-
- print qq|
- </td>
- </tr>
-</table>
-|;
-
- $invdate = $form->datetonum($form->{invdate}, \%myconfig);
- $closedto = $form->datetonum($form->{closedto}, \%myconfig);
-
- if ($form->{id}) {
- my $show_storno = !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar");
-
- print qq|
- <input class="submit" type="submit" accesskey="u" name="action" id="update_button" value="|
- . $locale->text('Update') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Ship to') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Print') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('E-mail') . qq|"> |;
- print qq|<input class="submit" type="submit" name="action" value="|
- . $locale->text('Storno') . qq|"> | if ($show_storno);
- print qq|<input class="submit" type="submit" name="action" value="|
- . $locale->text('Post Payment') . qq|">
-|;
- print qq|<input class="submit" type="submit" name="action" value="|
- . $locale->text('Use As Template') . qq|">
-|;
- if ($form->{id} && !($form->{type} eq "credit_note")) {
- print qq|
- <input class="submit" type="submit" name="action" value="|
- . $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) {
- print qq|
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Order') . qq|">
-|;
- }
-
- print qq|
- <input type="button" class="submit" onclick="follow_up_window()" value="|
- . $locale->text('Follow-Up')
- . qq|">|;
-
- } else {
- if ($invdate > $closedto) {
- print qq|<input class="submit" type="submit" name="action" id="update_button" value="|
- . $locale->text('Update') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Ship to') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Preview') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('E-mail') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Print and Post') . qq|">
- <input class="submit" type="submit" name="action" value="|
- . $locale->text('Post') . qq|"> | .
- NTI($cgi->submit('-name' => 'action', '-value' => $locale->text('Save draft'),
- '-class' => 'submit'));