#===================================================================== # SQL-Ledger ERP # Copyright (c) 2006 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== # # voucher/batch register # #====================================================================== use SL::VR; 1; # end of main # this is for our long dates # $locale->text('January') # $locale->text('February') # $locale->text('March') # $locale->text('April') # $locale->text('May ') # $locale->text('June') # $locale->text('July') # $locale->text('August') # $locale->text('September') # $locale->text('October') # $locale->text('November') # $locale->text('December') # this is for our short month # $locale->text('Jan') # $locale->text('Feb') # $locale->text('Mar') # $locale->text('Apr') # $locale->text('May') # $locale->text('Jun') # $locale->text('Jul') # $locale->text('Aug') # $locale->text('Sep') # $locale->text('Oct') # $locale->text('Nov') # $locale->text('Dec') sub add_batch { $form->header; $transdate = qq| |.$locale->text('Posting Date').qq||; if ($form->{batchnumber}) { $focus = "batchnumber"; $batchnumber = qq| |.$locale->text('Batch Number').qq| $form->{batchnumber} |; $transdate .= qq| $form->{transdate} | .$form->hide_form(qw(transdate)); } else { $focus = "batchdescription"; $transdate .= qq| {transdate}> |; } print qq|
{script}>
$form->{helpref}$form->{title}
$batchnumber $transdate
|.$locale->text('Description').qq|
|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } $form->hide_form(qw(path login nextsub type batch batchid batchnumber callback)); print qq|
|; } sub add_payable_batch { &payable_batch }; sub payable_batch { $form->{type} = "transaction"; $form->{batch} = "ap"; $form->{title} = $locale->text('Add Payable Batch'); $form->{script} = "ap.pl"; $form->{nextsub} = "add"; $form->helpref("payable_batch", $myconfig{countrycode}); &add_batch; } sub add_general_ledger_batch { &general_ledger_batch }; sub general_ledger_batch { $form->{type} = "transaction"; $form->{batch} = "gl"; $form->{title} = $locale->text('Add General Ledger Batch'); $form->{script} = "gl.pl"; $form->{nextsub} = "add"; $form->helpref("gl_batch", $myconfig{countrycode}); &add_batch; } sub add_payment_batch { &payment_batch }; sub payment_batch { $form->{type} = "check"; $form->{batch} = "payment"; $form->{title} = $locale->text('Add Payment Batch'); $form->{script} = "cp.pl"; $form->{nextsub} = "payment"; $form->helpref("payment_batch", $myconfig{countrycode}); &add_batch; } sub add_payments_batch { &payments_batch }; sub payments_batch { $form->{callback} = "$form->{script}?action=add_payments_batch&batch=payment&path=$form->{path}&login=$form->{login}"; $form->{type} = "check"; $form->{batch} = "payment"; $form->{title} = $locale->text('Add Payments Batch'); $form->{script} = "cp.pl"; $form->{nextsub} = "payments"; $form->helpref("payments_batch", $myconfig{countrycode}); &add_batch; } sub add_payment_reversal_batch { &payment_reversal_batch }; sub payment_reversal_batch { $form->{title} = $locale->text('Add Payment Reversal Batch'); $form->{script} = "vr.pl"; $form->{nextsub} = "edit_payment_reversal"; $form->{batch} = "payment_reversal"; $form->helpref("payment_reversal", $myconfig{countrycode}); &add_batch; } sub edit_payment_reversal { VR->payment_reversal(\%myconfig, \%$form); $form->{memo} ||= $locale->text('Payment Reversal'); if (@{ $form->{all_accounts} }) { for (@{ $form->{all_accounts} }) { $form->{selectaccount} .= qq|$_->{accno}--$_->{description}\n| } } else { $form->error($locale->text('Payment account missing!')); } $form->{source} = $form->quote($form->{source}); $form->{transdate} ||= $form->current_date(\%myconfig); $form->{title} = $locale->text('Payment Reversal Voucher'); if ($form->{batchdescription}) { $form->{title} .= " / $form->{batchdescription}"; } $form->helpref("payment_reversal", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Date').qq| $form->{transdate}
|.$locale->text('Account').qq|
|.$locale->text('Source').qq|
|.$locale->text('Memo').qq|
|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } if (! $form->{id}) { $form->{callback} = "$form->{script}?action=edit_payment_reversal"; for (qw(transdate memo path login batch batchid batchnumber)) { $form->{callback} .= "&$_=$form->{$_}"; $form->{callback} .= "&batchdescription=".$form->escape($form->{batchdescription},1); } } $form->hide_form(qw(id vouchernumber transdate memo path login batch batchid batchnumber batchdescription callback)); %button = ('Delete' => { ndx => 1, key => 'D', value => $locale->text('Delete') }, 'Post' => { ndx => 6, key => 'O', value => $locale->text('Post') }, ); delete $button{'Delete'} unless $form->{id}; for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } print qq|
|; } sub post { $form->isblank("source", $locale->text('Source missing!')); if (VR->post_payment_reversal(\%myconfig, \%$form)) { # add batch to callback $form->{callback} =~ s/(batch|batchid|batchdescription)=.*?&//g; $form->{callback} .= "&batch=$form->{batch}&batchid=$form->{batchid}&batchdescription=".$form->escape($form->{batchdescription},1); $form->redirect($locale->text('Voucher posted!')); } else { $form->error($locale->text('Cannot post voucher!')); } } sub yes { &{ "$form->{nextsub}" } } sub delete { if (VR->delete_payment_reversal(\%myconfig, \%$form)) { $form->redirect($locale->text('Voucher deleted!')); } else { $form->error($locale->text('Cannot delete voucher!')); } } sub delete_batch { $form->{title} = $locale->text('Confirm!'); $form->header; print qq|
{script}> |; $form->{action} = "yes"; $form->{nextsub} = "yes_delete_batch"; delete $form->{callback}; $form->hide_form; print qq|

$form->{title}

|.$locale->text('Are you sure you want to delete Batch').qq| $form->{batchnumber}

|; } sub yes_delete_batch { $form->{callback} = "$form->{script}?action=search"; for (qw(path login batch)) { $form->{callback} .= "&$_=$form->{$_}"; } if (VR->delete_batch(\%myconfig, \%$form, $spool)) { $form->redirect($locale->text('Batch deleted!')); } else { $form->error($locale->text('Cannot delete batch!')); } } sub search { VR->create_links(\%myconfig, \%$form); $form->{nextsub} = "list_batches"; $employeelabel = $locale->text('Employee'); if ($form->{admin}) { if (@{ $form->{all_employee} }) { $form->{selectemployee} = "