@@ -201,11 +310,6 @@ sub form_header {
- |.$locale->text('Record in').qq| |
- |
-
-
-
|.$locale->text('Vendor').qq| |
$vendor |
@@ -214,6 +318,25 @@ sub form_header {
+ |
+
+
+
+ |.$locale->text('Credit Limit').qq| |
+ |.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq| |
+ |
+ |.$locale->text('Remaining').qq| |
+ |.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq| |
+
+
+ |
+
+ |.$locale->text('Record in').qq| |
+ |
+
+
+ $department
+
|.$locale->text('Currency').qq| |
|
$exchangerate
@@ -224,20 +347,22 @@ sub form_header {
@@ -270,16 +395,22 @@ sub form_footer {
$form->{invtotal} = $form->{invsubtotal};
- if (($rows = $form->numtextrows($form->{notes}, 50, 8)) < 2) {
+ if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
$rows = 2;
}
- $notes = qq||;
-
-
+ if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
+ $introws = 2;
+ }
+ $rows = ($rows > $introws) ? $rows : $introws;
+ $notes = qq||;
+ $intnotes = qq||;
+
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
+
+ $taxincluded = "";
if ($form->{taxaccounts}) {
$taxincluded = qq|
- {taxincluded}> |.$locale->text('Tax Included').qq|
+ {taxincluded}> |.$locale->text('Tax Included').qq|
|;
}
@@ -315,22 +446,25 @@ sub form_footer {
print qq|
-
-
+
+
|.$locale->text('Notes').qq| |
+ |.$locale->text('Internal Notes').qq| |
-
+
$notes |
+ $intnotes |
|
-
+ |
$taxincluded
-
+
+
$subtotal
$tax
@@ -344,17 +478,17 @@ sub form_footer {
-
+ |
- |.$locale->text('Payments').qq| |
+ |.$locale->text('Payments').qq| |
|;
if ($form->{currency} eq $form->{defaultcurrency}) {
- @column_index = qw(datepaid source paid AP_paid);
+ @column_index = qw(datepaid source memo paid AP_paid);
} else {
- @column_index = qw(datepaid source paid exchangerate AP_paid);
+ @column_index = qw(datepaid source memo paid exchangerate AP_paid);
}
$column_data{datepaid} = "".$locale->text('Date')." | ";
@@ -362,6 +496,7 @@ sub form_footer {
$column_data{exchangerate} = "".$locale->text('Exch')." | ";
$column_data{AP_paid} = "".$locale->text('Account')." | ";
$column_data{source} = "".$locale->text('Source')." | ";
+ $column_data{memo} = "".$locale->text('Memo')." | ";
print qq|
@@ -401,7 +536,8 @@ sub form_footer {
$column_data{"exchangerate_$i"} = qq|$exchangerate | |;
$column_data{"AP_paid_$i"} = qq| | |;
$column_data{"datepaid_$i"} = qq|{"datepaid_$i"}> | |;
- $column_data{"source_$i"} = qq|{"source_$i"}> | |;
+ $column_data{"source_$i"} = qq| | |;
+ $column_data{"memo_$i"} = qq|{"memo_$i"}> | |;
map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
@@ -423,36 +559,39 @@ sub form_footer {
|;
- $invdate = $form->datetonum($form->{invdate}, \%myconfig);
+ $transdate = $form->datetonum($form->{transdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
- if ($form->{id}) {
- print qq|
+ if (! $form->{readonly}) {
+ if ($form->{id}) {
+ print qq|
|;
- if (!$form->{revtrans}) {
if (!$form->{locked}) {
print qq|
|;
}
- }
- if ($invdate > $closedto) {
print qq|
-
-
+
+
|;
- }
- } else {
- if ($invdate > $closedto) {
- print qq|
- |;
+ } else {
+ if ($transdate > $closedto) {
+ print qq|
+ |;
+ }
}
}
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
+
print qq|
{rowcount}>
@@ -461,10 +600,12 @@ print qq|
{path}>
{login}>
-{password}>
+{sessionid}>
+
+
| | | | |