Initial commit.
This commit is contained in:
268
lib/perl5/Selima/Checker/AcctTrx.pm
Normal file
268
lib/perl5/Selima/Checker/AcctTrx.pm
Normal file
@@ -0,0 +1,268 @@
|
||||
# Selima Website Content Management System
|
||||
# AcctTrx.pm: The accounting transaction form checker.
|
||||
|
||||
# Copyright (c) 2007-2018 imacat.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
|
||||
# Author: imacat <imacat@mail.imacat.idv.tw>
|
||||
# First written: 2007-09-22
|
||||
|
||||
package Selima::Checker::AcctTrx;
|
||||
use 5.008;
|
||||
use strict;
|
||||
use warnings;
|
||||
use base qw(Selima::Checker);
|
||||
|
||||
use Selima::Accounting;
|
||||
use Selima::CallForm;
|
||||
use Selima::ChkFunc;
|
||||
use Selima::FetchRec;
|
||||
use Selima::ShortCut;
|
||||
use Selima::DataVars qw($DBH :forms);
|
||||
|
||||
use Selima::Checker::AcctRec;
|
||||
|
||||
# new: Initialize the checker
|
||||
sub new : method {
|
||||
local ($_, %_);
|
||||
my ($class, $self);
|
||||
($class, @_) = @_;
|
||||
$_[1] = "accttrx" if scalar(@_) < 2 || !defined $_[1];
|
||||
$self = $class->SUPER::new(@_);
|
||||
# Regularize the form subtype
|
||||
$self->_trim("formsub") if !$self->_missing("formsub");
|
||||
# Record the form subtype
|
||||
$self->{"subtype"} = $self->{"form"}->param("formsub");
|
||||
return $self;
|
||||
}
|
||||
|
||||
# _check_date: Check the date
|
||||
# Use the default date checker
|
||||
|
||||
# _check_ord: Check the order
|
||||
# Use the default order checker
|
||||
|
||||
# _check_recs: Check the records
|
||||
sub _check_recs : method {
|
||||
local ($_, %_);
|
||||
my ($self, $form, $error, $debtcount, $crdtcount);
|
||||
$self = $_[0];
|
||||
$form = $self->{"form"};
|
||||
# Check the subtype
|
||||
# Check if it exists
|
||||
$error = $self->_missing("formsub");
|
||||
return $error if defined $error;
|
||||
# Check the option value
|
||||
return {"msg"=>N_("This form suptype is invalid. Please specify a proper user.")}
|
||||
unless $self->{"subtype"} =~ /^(?:expense|income|trans)$/;
|
||||
# A form to fill in a cash expense transaction
|
||||
if ($self->{"subtype"} eq "expense") {
|
||||
$crdtcount = 0;
|
||||
} else {
|
||||
# Find the last-used credit record
|
||||
for ( $_ = 0;
|
||||
defined $form->param("crdt$_" . "subj")
|
||||
&& defined $form->param("crdt$_" . "summary")
|
||||
&& defined $form->param("crdt$_" . "amount"); $_++) {};
|
||||
if ($_ > 0) {
|
||||
for ( $_--;
|
||||
$_ >= 0
|
||||
&& $form->param("crdt$_" . "subj") eq ""
|
||||
&& $form->param("crdt$_" . "summary") eq ""
|
||||
&& $form->param("crdt$_" . "amount") eq ""; $_--) {};
|
||||
}
|
||||
$crdtcount = $_ + 1;
|
||||
if ($crdtcount == 0) {
|
||||
return {"msg"=>N_("Please fill in the credit side of the accounting transaction.")}
|
||||
if $self->{"subtype"} eq "trans";
|
||||
return {"msg"=>N_("Please fill in the accounting transaction content.")};
|
||||
}
|
||||
}
|
||||
# A form to fill in a cash income transaction
|
||||
if ($self->{"subtype"} eq "income") {
|
||||
$debtcount = 0;
|
||||
} else {
|
||||
# Find the last-used debit record
|
||||
for ( $_ = 0;
|
||||
defined $form->param("debt$_" . "subj")
|
||||
&& defined $form->param("debt$_" . "summary")
|
||||
&& defined $form->param("debt$_" . "amount"); $_++) {};
|
||||
if ($_ > 0) {
|
||||
for ( $_--;
|
||||
$_ >= 0
|
||||
&& $form->param("debt$_" . "subj") eq ""
|
||||
&& $form->param("debt$_" . "summary") eq ""
|
||||
&& $form->param("debt$_" . "amount") eq ""; $_--) {};
|
||||
}
|
||||
$debtcount = $_ + 1;
|
||||
if ($debtcount == 0) {
|
||||
return {"msg"=>N_("Please fill in the debit side of the accounting transaction.")}
|
||||
if $self->{"subtype"} eq "trans";
|
||||
return {"msg"=>N_("Please fill in the accounting transaction content.")};
|
||||
}
|
||||
}
|
||||
# Check the debit records
|
||||
for ($_ = 0; $_ < $debtcount; $_++) {
|
||||
my ($subform, $checker, $error);
|
||||
# Regularize it
|
||||
$self->_trim("debt$_" . "subj");
|
||||
$self->_trim("debt$_" . "summary");
|
||||
$self->_trim("debt$_" . "amount");
|
||||
# Skip if it is not filled
|
||||
next if $form->param("debt$_" . "subj") eq ""
|
||||
&& $form->param("debt$_" . "summary") eq ""
|
||||
&& $form->param("debt$_" . "amount") eq "";
|
||||
# Check with the subform checker
|
||||
$subform = new CGI("");
|
||||
$subform->param("trx", $self->{"sn"}) if $self->{"iscur"};
|
||||
$subform->param("subj", $form->param("debt$_" . "subj"));
|
||||
$subform->param("summary", $form->param("debt$_" . "summary"));
|
||||
$subform->param("amount", $form->param("debt$_" . "amount"));
|
||||
$checker = new Selima::Checker::AcctRec($subform);
|
||||
$error = $checker->check("subj", "summary", "amount");
|
||||
return $error if defined $error;
|
||||
$form->param("debt$_" . "subj", $subform->param("subj"));
|
||||
$form->param("debt$_" . "summary", $subform->param("summary"));
|
||||
$form->param("debt$_" . "amount", $subform->param("amount"));
|
||||
}
|
||||
# Check the credit records
|
||||
for ($_ = 0; $_ < $crdtcount; $_++) {
|
||||
my ($subform, $checker, $error);
|
||||
# Regularize it
|
||||
$self->_trim("crdt$_" . "subj");
|
||||
$self->_trim("crdt$_" . "summary");
|
||||
$self->_trim("crdt$_" . "amount");
|
||||
# Skip if it is not filled
|
||||
next if $form->param("crdt$_" . "subj") eq ""
|
||||
&& $form->param("crdt$_" . "summary") eq ""
|
||||
&& $form->param("crdt$_" . "amount") eq "";
|
||||
# Check with the subform checker
|
||||
$subform = new CGI("");
|
||||
$subform->param("trx", $self->{"sn"}) if $self->{"iscur"};
|
||||
$subform->param("subj", $form->param("crdt$_" . "subj"));
|
||||
$subform->param("summary", $form->param("crdt$_" . "summary"));
|
||||
$subform->param("amount", $form->param("crdt$_" . "amount"));
|
||||
$checker = new Selima::Checker::AcctRec($subform);
|
||||
$error = $checker->check("subj", "summary", "amount");
|
||||
return $error if defined $error;
|
||||
$form->param("crdt$_" . "subj", $subform->param("subj"));
|
||||
$form->param("crdt$_" . "summary", $subform->param("summary"));
|
||||
$form->param("crdt$_" . "amount", $subform->param("amount"));
|
||||
}
|
||||
# Check the balance
|
||||
if ($self->{"subtype"} eq "trans") {
|
||||
my ($sumdebit, $sumcredit);
|
||||
for ($_ = 0, $sumdebit = 0; $_ < $debtcount; $_++) {
|
||||
# Skip if it is not filled
|
||||
next if $form->param("debt$_" . "amount") eq "";
|
||||
$sumdebit += $form->param("debt$_" . "amount");
|
||||
}
|
||||
for ($_ = 0, $sumcredit = 0; $_ < $crdtcount; $_++) {
|
||||
# Skip if it is not filled
|
||||
next if $form->param("crdt$_" . "amount") eq "";
|
||||
$sumcredit += $form->param("crdt$_" . "amount");
|
||||
}
|
||||
return {"msg"=>N_("The total amounts of the debit side and the credit side are not balanced (debit [_1], credit [_2]."),
|
||||
"margs"=>[$sumdebit, $sumcredit]}
|
||||
if $sumdebit != $sumcredit;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
# _check_note: Check the note
|
||||
sub _check_note : method {
|
||||
local ($_, %_);
|
||||
my ($self, $form, $error);
|
||||
$self = $_[0];
|
||||
$form = $self->{"form"};
|
||||
# Check if it exists
|
||||
$error = $self->_missing("note");
|
||||
return $error if defined $error;
|
||||
# Regularize it
|
||||
$self->_trimtext("note");
|
||||
# Skip if it is not filled
|
||||
$form->param("note", "")
|
||||
if $form->param("note") eq C_("Fill in the note here.");
|
||||
return if $form->param("note") eq "";
|
||||
# Check the length
|
||||
return {"msg"=>N_("This note is too long. (Max. length [#,_1])"),
|
||||
"margs"=>[${$self->{"maxlens"}}{"note"}]}
|
||||
if length $form->param("note") > ${$self->{"maxlens"}}{"note"};
|
||||
# OK
|
||||
return;
|
||||
}
|
||||
|
||||
# _redir_cnvttrans: Convert to a transfer transaction
|
||||
sub _redir_cnvttrans : method {
|
||||
local ($_, %_);
|
||||
my ($self, $form, $sum);
|
||||
$self = $_[0];
|
||||
$form = $self->{"form"};
|
||||
# Skip if not requested
|
||||
return if $self->_missing("cnvttrans");
|
||||
# Skip if the form subtype not supplied
|
||||
return if !defined $self->{"subtype"};
|
||||
# Skip if it is not an cash expense/income transaction
|
||||
return if $self->{"subtype"} !~ /^(?:expense|income)$/;
|
||||
# Set to a transfer transaction
|
||||
$form->param("formsub", "trans");
|
||||
# Set the other side
|
||||
# A form to fill in a cash expense transaction
|
||||
if ($self->{"subtype"} eq "expense") {
|
||||
$form->param("crdt0subj", acctsubj_sn(ACCTSUBJ_CASH));
|
||||
$form->param("crdt0summary", undef);
|
||||
$sum = 0;
|
||||
foreach (grep /^debt\d+amount$/, $form->param) {
|
||||
$self->_trim($_);
|
||||
$_ = $form->param($_);
|
||||
s/NT\$ ?//;
|
||||
s/,//g;
|
||||
s/\.0+$//;
|
||||
$sum += $_ if /^\d+$/;
|
||||
}
|
||||
$form->param("crdt0amount", $sum);
|
||||
# A form to fill in a cash income transaction
|
||||
} elsif ($self->{"subtype"} eq "income") {
|
||||
$form->param("debt0subj", acctsubj_sn(ACCTSUBJ_CASH));
|
||||
$form->param("debt0summary", undef);
|
||||
$sum = 0;
|
||||
foreach (grep /^crdt\d+amount$/, $form->param) {
|
||||
$self->_trim($_);
|
||||
$_ = $form->param($_);
|
||||
s/NT\$ ?//;
|
||||
s/,//g;
|
||||
s/\.0+$//;
|
||||
$sum += $_ if /^\d+$/;
|
||||
}
|
||||
$form->param("debt0amount", $sum);
|
||||
}
|
||||
# Show the form again
|
||||
success_redirect undef;
|
||||
}
|
||||
|
||||
# _redir_selsubj: Suspend and move to the accounting subject selection form
|
||||
sub _redir_selsubj : method {
|
||||
local ($_, %_);
|
||||
my $self;
|
||||
$self = $_[0];
|
||||
@_ = sort grep /^sel(?:debt|crdt)\d+subj$/, $self->{"form"}->param;
|
||||
# Skip if not requested
|
||||
return if @_ == 0;
|
||||
# Record the hit button
|
||||
$_[0] =~ /^sel((?:debt|crdt)\d+)subj$/;
|
||||
$self->{"form"}->param("caller_index", $1);
|
||||
call_form FORM_ACCTSUBJ, ["list=lastlv"], "import_selsubj";
|
||||
}
|
||||
|
||||
return 1;
|
||||
Reference in New Issue
Block a user