diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/aa.pl | 1 | ||||
-rwxr-xr-x | bin/pos.pl | 8 |
2 files changed, 6 insertions, 3 deletions
@@ -1220,7 +1220,6 @@ sub search { sub transactions { - if ($form->{$form->{vc}}) { $form->{$form->{vc}} = $form->unescape($form->{$form->{vc}}); ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}}); @@ -123,20 +123,24 @@ sub add { sub openinvoices { undef %column_data; undef %column_heading; + $form->{customer} = ""; + $form->{customer_id} = 0; + delete $form->{l_subtotal}; + delete $form->{subtotal}; $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/; $form->{till} = $4; $form->{sort} = 'transdate'; - for (qw(open l_invnumber l_transdate l_name l_amount l_curr l_till l_subtotal)) { $form->{$_} = 'Y'; } + for (qw(open l_invnumber l_transdate l_name l_amount l_curr l_till)) { $form->{$_} = 'Y'; } if ($myconfig{role} ne 'user') { $form->{l_employee} = 'Y'; } $form->{title} = $locale->text('Open'); - transactions; + &transactions; } |