-
-
-
-$jsscript
-
-
-
- {rowcount}>
-|;
+ $transaction->{selectAR_amount} =
+ NTI($cgi->popup_menu('-name' => "AR_amount_$i",
+ '-id' => "AR_amount_$i",
+ '-style' => 'width:400px',
+ '-onChange' => "setTaxkey(this, $i)",
+ '-values' => \@AR_amount_values,
+ '-labels' => \%chart_labels,
+ '-default' => $selected_accno_full))
+ . $cgi->hidden('-name' => "previous_AR_amount_$i",
+ '-default' => $selected_accno_full);
+
+ $transaction->{tax} =
+ NTI($cgi->popup_menu('-name' => "taxchart_$i",
+ '-id' => "taxchart_$i",
+ '-style' => 'width:200px',
+ '-values' => \@taxchart_values,
+ '-labels' => \%taxchart_labels,
+ '-default' => $selected_taxchart));
+
+ push @transactions, $transaction;
+ }
- $form->{"tax"} = $form->format_amount(\%myconfig, $form->{"tax"}, 2);
+ $form->{invtotal_unformatted} = $form->{invtotal};
- $amount = $locale->text('Amount');
- $project = $locale->text('Project');
+ $ARselected =
+ NTI($cgi->popup_menu('-name' => "ARselected", '-id' => "ARselected",
+ '-style' => 'width:400px',
+ '-values' => \@AR_values, '-labels' => \%chart_labels,
+ '-default' => $form->{ARselected}));
- for $i (1 .. 1) {
- # format amounts
- $form->{"amount_$i"} =
- $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
+ $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
- print qq|
-
- $amount |
- {"amount_$i"}> |
- $project |
-
- {"project_id_$i"}>
- |
- |
-
-|;
- $amount = "";
- $project = "";
+ my $now = $form->current_date(\%myconfig);
+
+ my @payments;
+ for my $i (1 .. $form->{paidaccounts}) {
+ my $payment = {
+ paid => $form->{"paid_$i"},
+ exchangerate => $form->{"exchangerate_$i"} || '',
+ gldate => $form->{"gldate_$i"},
+ acc_trans_id => $form->{"acc_trans_id_$i"},
+ source => $form->{"source_$i"},
+ memo => $form->{"memo_$i"},
+ AR_paid => $form->{"AR_paid_$i"},
+ forex => $form->{"forex_$i"},
+ datepaid => $form->{"datepaid_$i"},
+ paid_project_id => $form->{"paid_project_id_$i"},
+ gldate => $form->{"gldate_$i"},
+ };
+
+ $payment->{selectAR_paid} =
+ NTI($cgi->popup_menu('-name' => "AR_paid_$i",
+ '-id' => "AR_paid_$i",
+ '-values' => \@AR_paid_values,
+ '-labels' => \%chart_labels,
+ '-default' => $payment->{AR_paid}));
+
+
+
+ $payment->{changeable} =
+ $::lx_office_conf{features}->{payments_changeable} == 0 ? !$payment->{acc_trans_id} # never
+ : $::lx_office_conf{features}->{payments_changeable} == 2 ? $payment->{gldate} eq '' || $payment->{gldate} eq $now
+ : 1;
+
+ push @payments, $payment;
}
- $taxlabel =
- ($form->{taxincluded})
- ? $locale->text('Tax Included')
- : $locale->text('Tax');
-
- print qq|
-
- $taxlabel |
- {"tax"}> |
- |
- |
- |
-
-|;
+ $form->{totalpaid} = sum map { $_->{paid} } @payments;
- $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);
+ $form->header;
+ print $::form->parse_html_template('ar/form_header', {
+ paid_missing => $::form->{invtotal} - $::form->{totalpaid},
+ show_exch => ($::form->{defaultcurrency} && ($::form->{currency} ne $::form->{defaultcurrency})),
+ payments => \@payments,
+ transactions => \@transactions,
+ project_labels => \%project_labels,
+ rows => $rows,
+ ARselected => $ARselected,
+ onload => $onload,
+ title_str => $title,
+ follow_up_trans_info => $follow_up_trans_info,
+ });
+
+ $main::lxdebug->leave_sub();
+}
- print qq|
-
-
- | . $locale->text('Total') . qq| |
- $form->{invtotal} |
-
- {oldinvtotal}>
- {oldtotalpaid}>
-
-
-
- |
- |
-
-
-
-
- | . $locale->text('Notes') . qq| |
- $notes |
-
-
- |
-
-