Merged SL-POS.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@185 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 20 insertions, 1 deletions

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 3e238609..9a83675a 100755
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -83,7 +83,23 @@ require "$form->{path}/arap.pl";
 # $locale->text('Nov')
 # $locale->text('Dec')
 
+sub pos_adjust {
+   $form->{rowcount} = 3;
+   require "pos.conf.pl";
+   $form->{accno_1} = $pos_config{'close_cash_accno'};
+   $form->{accno_2} = $pos_config{'coa_prefix'};
+   $form->{accno_3} = $pos_config{'coa_prefix'};
+}
 
+sub add_pos_adjust {
+   $form->{pos_adjust} = 1;
+   $form->{reference} = $locale->text("Adjusting Till: (till) Source: (source)");
+   $form->{description} = 
+             $locale->text("Adjusting till due to data entry error.");
+  $form->{callback} = "$form->{script}?action=add_pos_adjust&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
+   &add;
+}
+ 
 sub add {
 
   $form->{title} = "Add";
@@ -93,6 +109,9 @@ sub add {
   &create_links;
 
   $form->{rowcount} = ($form->{transfer}) ? 3 : 9;
+  if ($form->{pos_adjust}){
+    &pos_adjust;
+  }
   $form->{oldtransdate} = $form->{transdate};
   $form->{focus} = "reference";
 
@@ -856,7 +875,7 @@ sub display_rows {
   |;
   }
 
-  $form->hide_form(qw(rowcount selectaccno));
+  $form->hide_form(qw(rowcount selectaccno pos_adjust));
   
   print qq|
 <input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">|;