#=====================================================================
# LedgerSMB Small Medium Business Accounting
# http://www.ledgersmb.org/
#
# Copyright (C) 2006
# This work contains copyrighted information from a number of sources all used
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
# under the GNU General Public License version 2 or, at your option, any later
# version. For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (c) 2001
#
# Author: DWS Systems Inc.
# Web: http://www.sql-ledger.org
#
# Contributors:
#
#
# Author: DWS Systems Inc.
# Web: http://www.ledgersmb.org/
#
# Contributors:
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
#
# Genereal Ledger
#
#======================================================================
use LedgerSMB::GL;
use LedgerSMB::PE;
use LedgerSMB::Template;
require "bin/arap.pl";
$form->{login} = 'test';
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 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 edit_and_approve {
use LedgerSMB::DBObject::Draft;
use LedgerSMB;
my $lsmb = LedgerSMB->new();
$lsmb->merge($form);
my $draft = LedgerSMB::DBObject::Draft->new({base => $lsmb});
$draft->delete();
GL->post_transaction( \%myconfig, \%$form );
approve();
}
sub approve {
use LedgerSMB::DBObject::Draft;
use LedgerSMB;
my $lsmb = LedgerSMB->new();
$lsmb->merge($form);
my $draft = LedgerSMB::DBObject::Draft->new({base => $lsmb});
$draft->approve();
if ($form->{callback}){
print "Location: $form->{callback}\n";
print "Status: 302 Found\n\n";
print "";
my $url = $form->{callback};
print qq|If you are not redirected automatically, click |
. qq|here.|;
} else {
$form->info($locale->text('Draft Posted'));
}
}
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";
$form->{callback} =
"$form->{script}?action=add&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"
unless $form->{callback};
&create_links;
$form->{reference} = $form->update_defaults(\%myconfig, 'glnumber');
$form->{rowcount} = ( $form->{transfer} ) ? 3 : 9;
if ( $form->{pos_adjust} ) {
&pos_adjust;
}
$form->{oldtransdate} = $form->{transdate};
$form->{focus} = "reference";
# departments
if ( @{ $form->{all_department} } ) {
$form->{selectdepartment} = "|;
}
if ( @{ $form->{all_years} } ) {
# accounting years
$form->{selectaccountingyear} = "