# check if debit and credit balances
if ($form->{storno}) {
- $debit = $debit * -1;
- $credit = $credit * -1;
- $tax = $tax * -1;
$form->{reference} = "Storno-" . $form->{reference};
$form->{description} = "Storno-" . $form->{description};
}
AND ac.chart_id = c.id
AND a.vendor_id = ct.id
AND a.id = ac.trans_id
- ORDER BY $sortorder transdate,acoid, trans_id, taxkey DESC|;
+ ORDER BY $sortorder transdate, trans_id, acoid, taxkey DESC|;
# Show all $query in Debuglevel LXDebug::QUERY
$callingdetails = (caller (0))[3];
$ref->{debit}{$k} = $ref->{amount} * -1;
$ref->{debit_accno}{$k} = $ref->{accno};
$ref->{debit_taxkey}{$k} = $ref->{taxkey};
- $ref->{transdate}{$k} = $ref->{transdate};
+ $ref->{ac_transdate}{$k} = $ref->{transdate};
} else {
$ref->{credit}{$l} = $ref->{amount} * 1;
$ref->{credit_accno}{$l} = $ref->{accno};
$ref->{credit_taxkey}{$l} = $ref->{taxkey};
- $ref->{transdate}{$l} = $ref->{transdate};
+ $ref->{ac_transdate}{$l} = $ref->{transdate};
}
$ref->{debit}{$k} = $ref2->{amount} * - 1;
$ref->{debit_accno}{$k} = $ref2->{accno};
$ref->{debit_taxkey}{$k} = $ref2->{taxkey};
- $ref->{transdate}{$k} = $ref2->{transdate};
+ $ref->{ac_transdate}{$k} = $ref2->{transdate};
} else {
if ($ref->{credit_accno}{$l} ne "") {
$l++;
$ref->{credit}{$l} = $ref2->{amount};
$ref->{credit_accno}{$l} = $ref2->{accno};
$ref->{credit_taxkey}{$l} = $ref2->{taxkey};
- $ref->{transdate}{$l} = $ref2->{transdate};
+ $ref->{ac_transdate}{$l} = $ref2->{transdate};
}
}
}