diff options
-rw-r--r-- | FS/FS/Schema.pm | 2 | ||||
-rw-r--r-- | FS/FS/TaxEngine/compliance_solutions.pm | 1 | ||||
-rw-r--r-- | httemplate/view/cust_bill-taxengine_request.html | 14 | ||||
-rwxr-xr-x | httemplate/view/cust_bill.cgi | 12 |
4 files changed, 29 insertions, 0 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index dfb5ce4..ecdfd0a 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -694,6 +694,7 @@ sub tables_hashref { 'statementnum', 'int', 'NULL', '', '', '', #invoice aggregate statements 'agent_invid', 'int', 'NULL', '', '', '', #(varchar?) importing legacy 'promised_date', @date_type, '', '', + 'taxengine_request', 'text', 'NULL', '', '', '', 'pending', 'char', 'NULL', 1, '', '', ], @@ -731,6 +732,7 @@ sub tables_hashref { 'statementnum', 'int', 'NULL', '', '', '', #invoice aggregate statements 'agent_invid', 'int', 'NULL', '', '', '', #(varchar?) importing legacy 'promised_date', @date_type, '', '', + 'taxengine_request', 'text', 'NULL', '', '', '', #void fields 'void_date', @date_type, '', '', diff --git a/FS/FS/TaxEngine/compliance_solutions.pm b/FS/FS/TaxEngine/compliance_solutions.pm index 1f0c166..33b6a3e 100644 --- a/FS/FS/TaxEngine/compliance_solutions.pm +++ b/FS/FS/TaxEngine/compliance_solutions.pm @@ -226,6 +226,7 @@ sub make_taxlines { } ); warn $request_json if $DEBUG > 1; + $cust_bill->taxengine_request($request_json); my $soap = SOAP::Lite->service("http://tcms1.csilongwood.com/cgi-bin/taxcalc.wsdl"); diff --git a/httemplate/view/cust_bill-taxengine_request.html b/httemplate/view/cust_bill-taxengine_request.html new file mode 100644 index 0000000..991e65f --- /dev/null +++ b/httemplate/view/cust_bill-taxengine_request.html @@ -0,0 +1,14 @@ +<& /elements/header-popup.html &> +<% $cust_bill->taxengine_request |h %> +<& /elements/footer-popup.html &> +<%init> + +my $curuser = $FS::CurrentUser::CurrentUser; + +die "access denied" + unless $curuser->access_right('View invoices'); + +my $invnum = $cgi->param('invnum'); +my $cust_bill = qsearchs('cust_bill', { invnum=>$invnum }); + +</%init> diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi index e35d7f1..762eec0 100755 --- a/httemplate/view/cust_bill.cgi +++ b/httemplate/view/cust_bill.cgi @@ -171,6 +171,18 @@ function change_invoice_mode(obj) { &> % $br++; % } +% if ( $cust_bill->taxengine_request ) { # inefficient +<% $br ? '|' : '' %> +<& /elements/popup_link.html, + 'action' => 'cust_bill-taxengine_request.html?invnum=' . $cust_bill->invnum, + 'label' => mt('View raw tax engine request'), + 'actionlabel' => mt('Tax engine request'), + 'width' => 1050, + 'height' => 600, + 'title' => emt('Tax engine request'), +&> +% $br++; +% } <BR><BR> |