Skip to content

B
business-java
Commit b2a42c75 authored by manohar's avatar manohar
Browse files
Options

This commit was generated by cvs2svn to compensate for changes in r436, 

which included commits to RCS files with non-trunk default branches.

git-svn-id: http://15.206.35.175/svn/proteus/business-java/trunk@91501 ce508802-f39f-4f6c-b175-0d175dae99d5
parent 99ff27d7
Show whitespace changes
Inline Side-by-side
Showing with 2098 additions and 0 deletions
webitm-fin/ibase/webitm/ejb/fin/CreatePoRcpVoucher.java 0 → 100755
View file @ b2a42c75
package ibase.webitm.ejb.fin;
import java.sql.*;
import java.text.*;
import ibase.utility.CommonConstants;
import ibase.webitm.ejb.ITMDBAccessEJB;
import ibase.webitm.utility.TransIDGenerator;
import ibase.webitm.utility.GenericUtility;
import ibase.webitm.utility.ITMException;
import java.text.SimpleDateFormat;
import java.util.*;
import ibase.webitm.utility.*;
import java.util.HashMap;
import ibase.webitm.ejb.*;
import org.w3c.dom.*;
import ibase.webitm.ejb.fin.FinCommon;
import ibase.webitm.ejb.dis.DistCommon;
import ibase.webitm.ejb.sys.UtilMethods;
public class CreatePoRcpVoucher
{
public String createPoRcpVoucher(String tranId,String xtraParams, Connection conn) throws ITMException
{
////////////////////////////////////////////////////////////////////////////////////////////////////
//gbf_porcp_voucher(as_tran_id, ai_commit, as_warning)
////////////////////////////////////////////////////////////////////////////////////////////////////
/*
string ls_site,ls_po,ls_supp,ls_tran_code,ls_curr,ls_errcode, ls_pay_mode,ls_acct_ap_item,ls_cctr_ap_item, &
ls_bank,ls_cr_term, ls_fin_ent,ls_anal,ls_proj,ls_emp,ls_emp_aprv,ls_key,ls_win,ls_vouch_id,&
ls_rcp_line,ls_po_rcp,ls_po_line,ls_rcp_item, ls_rcp_unit,ls_taxclass,ls_taxchap,ls_taxenv,&
ls_itemser,ls_acct_diff,ls_cctr_diff,ls_rcp,ls_acct_ph,ls_cctr_ph,ls_item,ls_retid,ls_sqlerr,&
ls_transer,ls_acct_ap, ls_cctr_ap,ls_refno, ls_acctcode, ls_cctrcode,ls_curradv,ls_stype,ls_scode,&
ls_refser, ls_remarks, ls_item_ser, ls_ledg_post_conf, ls_bankcode, ls_rndoff, ls_rndstr, ls_type,&
ls_ret_opt,ls_tax_var ,li_line_pick, ls_msg_type, ls_tax_var1, ls_tax_var2, ls_conf_fin, ls_confirmed, &
ls_inv_online, ls_porcp_online, ls_cctr_pr, ls_acct_pr, ls_invno, ls_dcno,&
ls_tran_type, ls_convert, ls_advtype, ls_supp_code__pay, ls_post_prov, ls_acct_pdr,ls_cctr_pdr,&
ls_acct_pcr,ls_cctr_pcr, ls_bankcd_pay, ls_acct_dr,ls_cctr_dr,ls_acct_cr,ls_cctr_cr
integer li_line = 0 , li_cnt = 0 , li_ln, li_rndto
decimal{6} lc_exch, lc_exchadv, lc_amt
datetime ldt_trandt, ldt_effdt, ldt_taxdt, chgDate, ld_duedate, ld_rcpdt, ld_dcdate, ld_invdate, &
ldt_rec_date
long lc_qc, ll_cnt, ll_relafter
boolean lb_qc_reqd
decimal{3} lc_amount,lc_discount,lc_tax,lc_net_amt,lc_net_amt_base,&
lc_ord_amt,lc_tax_amt,lc_tot_amt,lc_rcp_quantity, lc_var1, lc_var3, &
lc_rcp_discount,lc_rcp_tax,lc_rcp_net,lc_rcp_qty_std,lc_advtot,&
lc_rcp_amount,lc_rcp_disc_amt,lc_vouch_amount, lc_tax_np, lc_rcptax_np, &
lc_vouch_quantity, lc_totamt, lc_advamt, lc_diffexch,lc_difftot, lc_taxmult, &
lc_porcp_tax, lc_rate_clg, lc_purc_rate, lc_purc_rate_std, lc_purc_disc, &
lc_rate__clg, lc_std_rate, ld_advperc, lc_reten_amt,lc_netamt_adj , lc_advadj, lc_netamt_bc
dec{4} lc_rcp_rate_std,lc_rcp_rate
// Arif 09-04-03
string ls_acct_code__cf,ls_acct_code__cf_ap,ls_cctr_code__cf,ls_cctr_code__cf_ap,&
ls_posttype, LS_TRAN_SER, ls_dept_code
// End Arif 09-04-03
*/
PreparedStatement pstmt = null, pstmt1 = null, pstmtUpd = null;
ResultSet rs = null, rs1 = null;
java.sql.Timestamp today = null, chgDate = null, tranDate = null, effectiveDate = null, taxDate = null;
java.sql.Timestamp invoiceDate = null, DcDate = null, receiptDate = null, hdrRcpDate = null, dueDate = null;
String errCode = "", errString = "", winName = "", roundString = "",roundOff = "", confFinVar = "N", autoConfirm = "N";
double diffTotal = 0, advTotal = 0, amount = 0, discount = 0, taxAmt = 0, exchRate = 0, suppBillAmount = 0;
int roundTo = 0, lineCount = 0;
String tranType = "", purcOrder = "", suppCode = "", tranCode = "", currCode = "", tranSer = "";
String remarks = "", siteCode = "", invoiceNo = "", DcNo = "", retOpt = "", postType = "", itemSer = "";
String invOnLine = "", poRcpOnLine = "", postProv = "", crTerm = "", projCode = "", pordType = "";
String analCode = "", bankCodePay = "", acctCodePur = "", cctrCodePur = "", payMode = "", profileId = "";
String finEntity = "", bankCode = "", keyString = "", ledgPostConf = "",whetherToConvert = "N", userId = "SYSTEM";
java.text.SimpleDateFormat sdf = null;
String acctCodeCF = "", acctCodeCFAP = "", cctrCodeCF = "", cctrCodeCFAP = "", suppCodePay = "";
String rcpLine = "", purcOrderDet = "", lineNoOrd = "", rcpItemCode = "", rcpUnit = "";
String acctCodeDR = "", cctrCodeDR = "", deptCode = "", acctCodeCR = "", cctrCodeCR = "";
String acctCodeProvDR = "", cctrCodeProvDR = "", acctCodeProvCR = "", cctrCodeProvCR = "";
double rcpQuantity = 0, rcpRate = 0, rcpDiscount = 0, rcpTaxAmount = 0, rcpNetAmount = 0, rcpQtyStd = 0;
double rcpRateStd = 0,purcRate = 0, purcDisc = 0, rateDiscount[];
String acctCodePH = "", ccrtCodePH = "", taxVar = "", acctCodePPV = "", cctrCodePPV = "", returnId = "";
double rcpDiscAmt = = 0, rcpAmount = 0, vouchQuantity = 0, vouchAmount = 0, taxMultiplier = 1;
try
{
userId = genericUtility.getValueFromXTRA_PARAMS(xtraParams,"loginCode");
sql = "SELECT PROFILE_ID FROM USERS WHERE CODE = ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,userId);
rs = pstmt.executeQuery();
if(rs.next())
{
profileId = rs.getString("PROFILE_ID");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
today = new java.sql.Timestamp(System.currentTimeMillis());
sdf = new java.text.SimpleDateFormat(genericUtility.getDBDateTimeFormat());
chgDate = sdf.parse(today.toString());
winName = 'w_voucher';
diffTotal = 0;
advTotal = 0;
roundString = "VOUCH-RND";
roundOff = finCommon.getFinparams("999999", roundString);
if (!"NULLFOUND".equals(roundOff))
{
roundString = "VOUCH-RNDTO";
roundString = finCommon.getFinparams("999999", roundString);
}
if (!"NULLFOUND".equals(roundString))
{
roundTo = Integer.parseInt(roundString);
}
// added by deepali 18/03/04
confFinVar = finCommon.getFinparams("999999", "AUTO_CONF_VOUCH");
if (!"NULLFOUND".equals(confFinVar))
{
if ("Y".equals(confFinVar))
{
autoConfirm = "Y";
}
else // for no variable value
{
autoConfirm = "N";
}
}
else // for null variable value
{
autoConfirm = "N";
}
////
//Converted nvl(porcp.discount,0) to case by Archiman 12/08/08
//Converted nvl(ret_opt,' ') to case by Archiman 12/08/08
//In below sql rec_date is added by jasmina 09/04/09-FI89SUN026
sql = "SELECT TRAN_DATE, TRAN_TYPE, EFF_DATE, PURC_ORDER, SUPP_CODE, "
+ " TRAN_CODE, AMOUNT, (CASE WHEN DISCOUNT IS NULL THEN 0 ELSE DISCOUNT END) AS DISCOUNT, "
+ " TAX, CURR_CODE, EXCH_RATE, TAX_DATE, TRAN_SER, REMARKS, SITE_CODE, "
+ " INVOICE_NO, INVOICE_DATE, DC_NO, DC_DATE,(CASE WHEN RET_OPT IS NULL THEN '' ELSE RET_OPT END ) AS RET_OPT, "
+ " POST_TYPE, ITEM_SER, ACCT_INV_ONLINE, ACCT_PORCP_ONLINE, POST_PROV, REC_DATE "
+ " FROM PORCP WHERE TRAN_ID = ? " //
+ " AND CONFIRMED = 'Y' AND (VOUCH_CREATED IS NULL OR VOUCH_CREATED = 'N') ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
tranDate = rs.getTimestamp("TRAN_DATE");
tranType = rs.getString("TRAN_TYPE");
effectiveDate = rs.getTimestamp("EFF_DATE");
purcOrder = rs.getString("PURC_ORDER");
suppCode = rs.getString("SUPP_CODE");
tranCode = rs.getString("TRAN_CODE");
amount = rs.getDouble("AMOUNT");
discount = rs.getDouble("DISCOUNT");
taxAmt = rs.getDouble("TAX");
currCode = rs.getString("CURR_CODE");
exchRate = rs.getDouble("EXCH_RATE");
taxDate = rs.getTimestamp("TAX_DATE");
tranSer = rs.getString("TRAN_SER");
remarks = rs.getString("REMARKS");
siteCode = rs.getString("SITE_CODE");
invoiceNo = rs.getString("INVOICE_NO");
invoiceDate = rs.getTimestamp("INVOICE_DATE");
DcNo = rs.getString("DC_NO");
DcDate = rs.getTimestamp("DC_DATE");
retOpt = rs.getString("RET_OPT");
postType = rs.getString("POST_TYPE");
itemSer = rs.getString("ITEM_SER");
invOnLine = rs.getString("ACCT_INV_ONLINE");
poRcpOnLine = rs.getString("ACCT_PORCP_ONLINE");
postProv = rs.getString("POST_PROV");
hdrRcpDate = rs.getTimestamp("REC_DATE");
}
else
{
rs.close();
rs = null;
pstmt.close();
pstmt = null;
errCode = "VTPORCP2";
errString = itmDBAccessEJB.getErrorString("",errCode,"","",conn);
errString = addTraceMsg(errString, "Purchase receipt not found for " + tranId, "Check transaction Id");
return errString;
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (hdrRcpDate == null)
{
hdrRcpDate = tranDate;
}
// tranType added by sheetal 12/10/02
if (retOpt == null || retOpt.trim().length() == 0 )
{
retOpt = " "; // Added By Archiman 09.08.08
}
/// added by sachin 15-11-2002 for not creating voucher for replacment type return
/// no voucher for ret_option = 'R'
if ("P-RET".equals(tranSer) && "R".equals(retOpt))
{
errCode = "VTREPL";
errString = itmDBAccessEJB.getErrorString("",errCode,"","",conn);
errString = addTraceMsg(errString, "Invalid Voucher Creation for Replacement", "Check return option");
return errString;
}
// neelam - added a variable to set amount from the porcp in the voucher to print in the report
suppBillAmount = amount;
// shiri 22/04/02 changed sql to include pord_type
// shiri 09/05/02 moved sql from down, as ls_type is required first
// In below select statement, bank_code__pay added by fatema-31/01/2008-FI78SUN034
sql = "SELECT CR_TERM, PROJ_CODE, PORD_TYPE, ANAL_CODE, BANK_CODE__PAY "
+ " FROM PORDER WHERE PURC_ORDER = ? " //
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,purcOrder);
rs = pstmt.executeQuery();
if(rs.next())
{
crTerm = rs.geString("CR_TERM");
projCode = rs.geString("PROJ_CODE");
pordType = rs.geString("PORD_TYPE");
analCode = rs.geString("ANAL_CODE");
bankCodePay = rs.geString("BANK_CODE__PAY");
}
hdrRcpDate = tranDate;
// added by shiri 20/12/01 as tax should not contain the non_payable = 'Y'
// Changed by amit - 4-3-02 - to take sum of amt. rounded linewise.
//Removed TABLE keyword --Not work in DB2 ISeries -- Supreme --Prince --17-05-06
// TABLE( select tran_id, line_no, round(sum(nvl(tax_amt,0)),2) tot_tax //prince --17-05-06
if ("db2".equalsIgnoreCase(CommonConstants.DB_NAME ))
{
sql = "SELECT SUM(TOT_TAX) AS TAXAMT FROM "
+ " ( SELECT TRAN_ID, LINE_NO, ROUND(SUM(CASE WHEN TAX_AMT IS NULL THEN 0 ELSE TAX_AMT END ),2) TOT_TAX "
+ " FROM TAXTRAN A, TAX B "
+ " WHERE A.TAX_CODE = B.TAX_CODE "
+ " AND A.TRAN_CODE = ? "
+ " AND A.TRAN_ID = ? "
+ " AND B.EFFECT <> 'N' "
+ " AND (CASE WHEN B.NON_PAYABLE IS NULL THEN 'N' ELSE B.NON_PAYABLE END ) <> 'Y' "
+ " GROUP BY TRAN_ID, LINE_NO ) MANOHAR ";
}
else
{
sql = "SELECT SUM(TOT_TAX) AS TAXAMT FROM "
+ " ( SELECT TRAN_ID, LINE_NO, ROUND(SUM(CASE WHEN TAX_AMT IS NULL THEN 0 ELSE TAX_AMT END ),2) TOT_TAX "
+ " FROM TAXTRAN A, TAX B "
+ " WHERE A.TAX_CODE = B.TAX_CODE "
+ " AND A.TRAN_CODE = ? "
+ " AND A.TRAN_ID = ? "
+ " AND B.EFFECT <> 'N' "
+ " AND (CASE WHEN B.NON_PAYABLE IS NULL THEN 'N' ELSE B.NON_PAYABLE END ) <> 'Y' "
+ " GROUP BY TRAN_ID, LINE_NO ) ARCHIMAN ";
}
//// end.
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
pstmt.setString(2, tranSer);
rs = pstmt.executeQuery();
if(rs.next())
{
taxAmt = rs.getDouble("TAXAMT");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
amount = amount - taxAmt;
//Commented n shifted above- for sql optimization -jasmina-09/04/09-FI89SUN026
//// In below select-Added post_prov - By fatema - 04/04/2007 - DI7SUN0018
//select item_ser, acct_inv_online, acct_porcp_online, post_prov
// into :itemSer, :invOnLine, :poRcpOnLine, :postProv
// from porcp
// where tran_id = :as_tran_id;
//if get_sqlcode() < 0 then
// ls_errcode = 'DS000' + trim(string(sqlca.sqldbcode)) + ' ~t ' + sqlca.sqlerrtext
// exit
//elseif get_sqlcode() = 100 then
// ls_errcode = 'VTPORCP2' + ' ~t' + ' for po rcp. :' + as_tran_id
// exit
//end if
//End, Commented n shifted above- for sql optimization -jasmina-09/04/09-FI89SUN026
if (invOnLine == null || invOnLine.trim().length() == 0)
{
invOnLine = "N";
}
if (poRcpOnLine == null || poRcpOnLine.trim().length() == 0)
{
poRcpOnLine = "N";
}
if (postProv == null || postProv.trim().length() == 0)
{
postProv = "N";
}
// shiri modified and put the else to take a diff. credit account in case the inventory accounting is on 28/11/01
if ("Y".equals(invOnLine) && "N".equals(postProv)) // Condn to check for postProv = 'N' Added by fatema-20/06/2007-DI7SUN0018
{
// shiri 22/04/02 changed func call from gbf_acct_detr to gbf_acct_detr_type for a/cing on tran type
cctrCodePur = finCommon.getAcctDetrTtype("", itemSer, "PORCP", pordType, conn);
if (cctrCodePur != null && cctrCodePur.trim().length() > 0)
{
acctCodePur = cctrCodePur.substring(0,cctrCodePur.indexOf(","));
cctrCodePur = cctrCodePur.substring(cctrCodePur.indexOf(",")+1);
}
sql = "SELECT ACCT_CODE__AP, CCTR_CODE__AP "
+ " FROM SUPPLIER WHERE SUPP_CODE = ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, suppCode);
rs = pstmt.executeQuery();
if(rs.next())
{
acctCodeAP = rs.getString("ACCT_CODE__AP");
ccrtCodeAP = rs.getString("CCTR_CODE__AP");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (acctCodeAP == null || acctCodeAP.trim().length() == 0)
{
// shiri 22/04/02 changed func call from gbf_acct_detr to gbf_acct_detr_type for a/cing on tran type
ccrtCodeAP = finCommon.getAcctDetrTtype("",itemSer,"POVOU", pordType, conn);
if (ccrtCodeAP != null && ccrtCodeAP.trim().length() > 0)
{
acctCodeAP = ccrtCodeAP.substring(0,ccrtCodeAP.indexOf(","));
ccrtCodeAP = ccrtCodeAP.substring(ccrtCodeAP.indexOf(",")+1);
}
}
}
else
{
sql = "SELECT COUNT(DISTINCT ACCT_CODE__CR) LINE_NO "
+ " FROM PORCPDET WHERE TRAN_ID = ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
lineCount = rs.getInt("LINE_NO");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (lineCount == 1)
{
sql = "SELECT ACCT_CODE__CR, CCTR_CODE__CR "
+ "FROM PORCPDET WHERE TRAN_ID = ? "
+ " AND LINE_NO = ( SELECT MIN(LINE_NO) FROM PORCPDET WHERE TRAN_ID = ? ) ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
pstmt.setString(2, tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
acctCodeAP = rs.getString("ACCT_CODE__CR");
ccrtCodeAP = rs.getString("CCTR_CODE__CR");
}
else
{
rs.close();
rs = null;
pstmt.close();
pstmt = null;
errCode = "VTPORCP2";
errString = itmDBAccessEJB.getErrorString("",errCode,"","",conn);
//errString = addTraceMsg(errString, "Invalid Voucher Creation for Replacement", "Check return option");
return errString;
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (acctCodeAP == null)
{
lineCount = 2;
}
}
if (lineCount > 1)
{
// shiri 22/04/02 changed func call from gbf_acct_detr to gbf_acct_detr_type for a/cing on tran type
ccrtCodeAP = finCommon.getAcctDetrTtype("",itemSer,"POVOU", pordType, conn);
if (ccrtCodeAP != null && ccrtCodeAP.trim().length() > 0)
{
acctCodeAP = ccrtCodeAP.substring(0,ccrtCodeAP.indexOf(","));
ccrtCodeAP = ccrtCodeAP.substring(ccrtCodeAP.indexOf(",")+1);
}
}
lineCount = 0;
}
// Changes end
if (acctCodeAP == null || acctCodeAP.trim().length() == 0)
{
errCode = "VMACCT1";
errString = itmDBAccessEJB.getErrorString("",errCode,"","",conn);
errString = addTraceMsg(errString, "AP account not defined", "Check AP A/c");
return errString;
}
// shiri 01/01/02 cost centre was blank
if (ccrtCodeAP == null || ccrtCodeAP.trim().length() == 0)
{
sql = "SELECT CCTR_CODE__CR "
+ "FROM PORCPDET WHERE TRAN_ID = ? "
+ " AND LINE_NO = ( SELECT MIN(LINE_NO) FROM PORCPDET WHERE TRAN_ID = ? ) ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
pstmt.setString(2, tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
ccrtCodeAP = rs.getString("CCTR_CODE__CR");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
}
if (ccrtCodeAP == null)
{
ccrtCodeAP = " ";
}
sql = "SELECT PAY_MODE, SUPP_CODE__PAY FROM SUPPLIER WHERE SUPP_CODE = ?" ;
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, suppCode);
rs = pstmt.executeQuery();
if(rs.next())
{
payMode = rs.getString("PAY_MODE");
suppCodePay = rs.getString("SUPP_CODE__PAY");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
sql = "SELECT FIN_ENTITY, BANK_CODE FROM SITE WHERE SITE_CODE = ?" ;
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, siteCode);
rs = pstmt.executeQuery();
if(rs.next())
{
finEntity = rs.getString("PAY_MODE");
bankCode = rs.getString("PAY_MODE");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
sql = "SELECT KEY_STRING, LEDG_POST_CONF FROM TRANSETUP WHERE TRAN_WINDOW = ?" ;
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, winName);
rs = pstmt.executeQuery();
if(rs.next())
{
keyString = rs.getString("KEY_STRING");
ledgPostConf = rs.getString("LEDG_POST_CONF");
}
else
{
rs.close();
rs = null;
pstmt.close();
pstmt = null;
sql = "SELECT KEY_STRING, LEDG_POST_CONF FROM TRANSETUP WHERE TRAN_WINDOW = 'GENERAL'" ;
pstmt = conn.prepareStatement(sql);
rs = pstmt.executeQuery();
if(rs.next())
{
keyString = rs.getString("KEY_STRING");
ledgPostConf = rs.getString("LEDG_POST_CONF");
}
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
// if the posting is on conf. date then set tran date to today
if "Y".equals(ledgPostConf)
{
sdf = new java.text.SimpleDateFormat(genericUtility.getDBDateFormat());
tranDate = sdf.parse(today.toString());
}
//Updating voucher header
if ("P-RET".equals(tranSer)
{
amount = 0 - amount;
taxAmt = 0 - taxAmt;
discount = 0 - discount;
ld_duedate = tranDate;
}
else
{
//Due date = rec_date + crdays iff start_from is receipt in crterm master,
//for this Commented & added jasmina 09/04/09-FI89SUN026
//ld_duedate = gbf_calc_duedate(crTerm, receiptDate, effectiveDate, invoiceDate)
if (receiptDate == null)
{
receiptDate = hdrRcpDate;
}
dueDate = calcDueDate(crTerm, receiptDate, effectiveDate, invoiceDate, conn);
//Commented & added ended jasmina 09/04/09-FI89SUN026
}
if (remarks == null || remarks.trim().length() == 0)
{
remarks = "Against purchase receipt no. : " + tranId;
}
totAmount = amount; //tot_amount = bill_amount+tax_amt-discount
netAmount = totAmount;
netAmountBase = totAmount * exchRate;
//jyoti
// shiri modified to insert inv no/ dc no and inv date / dc date from porcp into voucher bill no and bill date - 04/12/01
// if isnull(invoiceNo) then invoiceNo = DcNo
// if isnull(invoiceDate) then invoiceDate = DcDate
// remarks = trim(remarks)
//added by jyoti 20/9/04.
//If 'Y' only then the DC_NO will be set
whetherToConvert = distCommon.getDisparams("999999","INV_TO_DC",conn);
if (".equals(whetherToConvert))
{
whetherToConvert = "N";
}
if ("Y".equals(whetherToConvert))
{
// shiri modified to insert inv no/ dc no and inv date / dc date from porcp into voucher bill no and bill date - 04/12/01
if (invoiceNo == null)
{
invoiceNo = DcNo;
}
if (invoiceDate == null)
{
invoiceDate = DcDate;
}
}
////
//***************************************************************************************
// Start Block
//Added by Nilesh to check for duplicate bill no - 04/04/03.
//***************************************************************************************
//from bill_no ltrim is removed by Tushar 20/03/09
sql = "SELECT COUNT(1) FROM VOUCHER "
+ " WHERE SUPP_CODE = ? "
+ " AND BILL_NO = ? "
+ " AND BILL_DATE = ? "
+ " AND TRAN_ID <> ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, suppCode);
pstmt.setString(2, invoiceNo);
pstmt.setTimestamp(3, invoiceDate);
pstmt.setString(4, tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
count = rs.getInt(1);
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
//added by rajesh FI89SUN001 -23/04/2008
if (count == 0)
{
//from bill_no ltrim is removed by Tushar 20/03/09
sql = "SELECT COUNT(1) FROM MISC_VOUCHER "
+ " WHERE SUNDRY_CODE = ? "
+ " AND BILL_NO = ? "
+ " AND BILL_DATE = ? "
+ " AND TRAN_ID <> ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, suppCode);
pstmt.setString(2, invoiceNo);
pstmt.setTimestamp(3, invoiceDate);
pstmt.setString(4, tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
count = rs.getInt(1);
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
}
//end by rajesh FI89SUN001
if (count > 0 )
{
//Check if message is defined at messages level, if not then check in messages,
//if not in messages then return message type as 'Error'.
sql = "SELECT MSG_TYPE FROM MESSAGES_LEVEL "
+ " PROFILE_ID = ? " //
+ " AND MSG_NO = 'VTBILL1' "
+ " AND WIN_NAME = ? " ;
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, profileId);
pstmt.setString(2, winName);
rs = pstmt.executeQuery();
if(rs.next())
{
msgType = rs.getString(1);
}
else
{
rs.close();
rs = null;
pstmt.close();
pstmt = null;
sql = "SELECT MSG_TYPE FROM MESSAGES "
+ " AND MSG_NO = 'VTBILL1' ";
pstmt = conn.prepareStatement(sql);
rs = pstmt.executeQuery();
if(rs.next())
{
msgType = rs.getString(1);
}
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if ("E".equals(msgType))
{
errCode = "VTBILL1";
errString = itmDBAccessEJB.getErrorString("",errCode,"","",conn);
errString = addTraceMsg(errString, "Duplicate Bill NUmber", "Check Bill Number");
return errString;
}
}
//***************************************************************************************
// End Block
//***************************************************************************************
// Arif 09-04-03
sql = "SELECT ACCT_CODE__CF, ACCT_CODE__CF_AP, CCTR_CODE__CF, CCTR_CODE__CF_AP "
+ " FROM BANK WHERE BANK_CODE = ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, bankCode);
rs = pstmt.executeQuery();
if(rs.next())
{
acctCodeCF = rs.getString("ACCT_CODE__CF");
acctCodeCFAP = rs.getString("ACCT_CODE__CF_AP");
cctrCodeCF = rs.getString("CCTR_CODE__CF");
cctrCodeCFAP = rs.getString("CCTR_CODE__CF_AP");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (acctCodeCFAP == null || acctCodeCFAP.trim().length() == 0)
{
acctCodeCFAP = acctCodeCF;
}
if (cctrCodeCFAP == null || cctrCodeCFAP.trim().length() == 0)
{
cctrCodeCFAP = cctrCodeCF;
}
// End Arif 09-04-03
// Arif 09-04-03 .. added acct_code__cf & cctr_code__cf in insert statement
// insert into voucher
// ( tran_id, tran_date, tran_type, eff_date, supp_code, bill_no, bill_date, purc_order,
// curr_code, exch_rate, acct_code, cctr_code, bank_code, auto_pay,
// adv_amt, cr_term, due_date, chg_date, chg_user, chg_term, site_code,
// fin_entity, bill_amt, tax_amt, tot_amt, tax_date, vouch_type, anal_code,
// proj_code, confirmed, pay_mode, net_amt, net_amt__bc, diff_amt__exch,
// supp_bill_amt, remarks, rnd_off, rnd_to, tran_mode,
// acct_code__cf, cctr_code__cf)
// values ( :ls_vouch_id, :tranDate, :tranType, :receiptDate, :suppCode, :invoiceNo, :invoiceDate, :purcOrder,
// :currCode, :exchRate, :acctCodeAP, :ccrtCodeAP, :bankCode, 'Y',
// 0, :crTerm, :dueDate, :chgDate, :userid, :termid, :siteCode,
// :finEntity, :amount, :taxAmt, :totAmount, :taxDate, 'P', :analCode,
// :projCode, 'N', :payMode, :netAmount, :netAmountBase, 0,
// :totAmount, :remarks, :roundOff, :roundTo, 'A',
// :acctCodeCFAP,:cctrCodeCFAP) ;
if (analCode.trim().length() == 0)
{
analCode = null;
}
//added by prince --18-01-07
if (suppCodePay == null || suppCodePay.trim().length() == 0)
{
suppCodePay = suppCode;
}
//ended by prince
// prince --18-01-07--suppCode -- changed to suppCodePay --if supp_code_pay is existing in supplier master
// then voucher supplier code should come supp_code_pay
// In below insert statement, bank_code__pay added by fatema-31/01/2008-FI78SUN034
StringBuffer xmlBuff = new StringBuffer();
String xmlString = null;
xmlBuff.append("<?xml version='1.0' encoding='ISO-8859-1'?>\n");
xmlBuff.append("<DocumentRoot>");
xmlBuff.append("<description>").append("Datawindow Root").append("</description>");
xmlBuff.append("<group0>");
xmlBuff.append("<description>").append("Group0 description").append("</description>");
xmlBuff.append("<Header0>");
xmlBuff.append("<objName><![CDATA[").append("voucher").append("]]></objName>");
xmlBuff.append("<pageContext><![CDATA[").append("1").append("]]></pageContext>");
xmlBuff.append("<objContext><![CDATA[").append("1").append("]]></objContext>");
xmlBuff.append("<editFlag><![CDATA[").append("A").append("]]></editFlag>");
xmlBuff.append("<focusedColumn><![CDATA[").append("").append("]]></focusedColumn>");
xmlBuff.append("<action><![CDATA[").append("SAVE").append("]]></action>");
xmlBuff.append("<elementName><![CDATA[").append("").append("]]></elementName>");
xmlBuff.append("<keyValue><![CDATA[").append("1").append("]]></keyValue>");
xmlBuff.append("<taxKeyValue><![CDATA[").append("").append("]]></taxKeyValue>");
xmlBuff.append("<saveLevel><![CDATA[").append("1").append("]]></saveLevel>");
xmlBuff.append("<forcedSave><![CDATA[").append(true).append("]]></forcedSave>");
xmlBuff.append("<taxInFocus><![CDATA[").append(false).append("]]></taxInFocus>");
xmlBuff.append("<description>").append("Header0 members").append("</description>");
xmlBuff.append("<Detail1 dbID=\"\" domID=\"1\" objName=\"voucher\" objContext=\"1\">");
xmlBuff.append("<attribute selected=\"N\" updateFlag=\"A\" status=\"N\" pkNames=\"\"/>");
xmlBuff.append("<tran_id/>");
today = new java.sql.Timestamp(System.currentTimeMillis());
sdf = new java.text.SimpleDateFormat(genericUtility.getApplDateFormat());
xmlBuff.append("<tran_date><![CDATA[" + sdf.parse(today.toString()) + "]]></tran_date>");
xmlBuff.append("<tran_type><![CDATA[" + tranType + "]]></tran_type>");
xmlBuff.append("<eff_date><![CDATA[" + sdf.parse(receiptDate.toString()) + "]]></eff_date>");
xmlBuff.append("<supp_code><![CDATA[" + suppCodePay + "]]></supp_code>");
xmlBuff.append("<bill_no><![CDATA[" + invoiceNo + "]]></bill_no>");
xmlBuff.append("<bill_date><![CDATA[" + sdf.parse(invoiceDate.toString()) + "]]></bill_date>");
xmlBuff.append("<purc_order><![CDATA[" + purcOrder + "]]></purc_order>");
xmlBuff.append("<curr_code><![CDATA[" + currCode + "]]></curr_code>");
xmlBuff.append("<exch_rate><![CDATA[" + exchRate + "]]></exch_rate>");
xmlBuff.append("<acct_code><![CDATA[" + acctCodeAP + "]]></acct_code>");
xmlBuff.append("<cctr_code><![CDATA[" + ccrtCodeAP + "]]></cctr_code>");
xmlBuff.append("<bank_code><![CDATA[" + bankCode + "]]></bank_code>");
xmlBuff.append("<auto_pay><![CDATA[" + "Y" + "]]></auto_pay>");
xmlBuff.append("<adv_amt><![CDATA[0]]></adv_amt>");
xmlBuff.append("<cr_term><![CDATA[" + crTerm + "]]></cr_term>");
xmlBuff.append("<due_date><![CDATA[" + sdf.parse(dueDate.toString()) + "]]></due_date>");
xmlBuff.append("<site_code><![CDATA[" + siteCode + "]]></site_code>");
xmlBuff.append("<fin_entity><![CDATA[" + finEntity + "]]></fin_entity>");
xmlBuff.append("<tax_date><![CDATA[" + sdf.parse(taxDate.toString()) + "]]></tax_date>");
xmlBuff.append("<vouch_type><![CDATA[P]]></vouch_type>");
xmlBuff.append("<anal_code><![CDATA[" + analCode + "]]></anal_code>");
xmlBuff.append("<proj_code><![CDATA[" + projCode + "]]></proj_code>");
xmlBuff.append("<confirmed><![CDATA[N]]></confirmed>");
xmlBuff.append("<pay_mode><![CDATA[" + payMode + "]]></pay_mode>");
xmlBuff.append("<rnd_off><![CDATA[" + roundOff + "]]></rnd_off>");
xmlBuff.append("<rnd_to><![CDATA[" + roundTo + "]]></rnd_to>");
xmlBuff.append("<tran_mode><![CDATA[A]]></tran_mode>");
xmlBuff.append("<acct_code__cf><![CDATA[" + acctCodeCFAP + "]]></acct_code__cf>");
xmlBuff.append("<cctr_code__cf><![CDATA[" + cctrCodeCFAP + "]]></cctr_code__cf>");
xmlBuff.append("<tran_id__rcp><![CDATA[" + tranId + "]]></tran_id__rcp>");
xmlBuff.append("<bank_code__pay><![CDATA[" + bankCodePay + "]]></bank_code__pay>");
xmlBuff.append("<bill_amt><![CDATA[" + amount + "]]></bill_amt>");
xmlBuff.append("<tax_amt><![CDATA[" + taxAmt + "]]></tax_amt>");
xmlBuff.append("<tot_amt><![CDATA[" + totAmount + "]]></tot_amt>");
xmlBuff.append("<net_amt><![CDATA[" + netAmount + "]]></net_amt>");
xmlBuff.append("<net_amt__bc><![CDATA[" + netAmountBase + "]]></net_amt__bc>");
xmlBuff.append("<diff_amt__exch><![CDATA[0]]></diff_amt__exch>");
xmlBuff.append("<supp_bill_amt><![CDATA[" + suppBillAmount + "]]></supp_bill_amt>");
xmlBuff.append("<chg_user><![CDATA[" + userid + "]]></chg_user>");
xmlBuff.append("<chg_term><![CDATA[" + termid + "]]></chg_term>");
sdf = new java.text.SimpleDateFormat(genericUtility.getApplDateTimeFormat());
xmlBuff.append("<chg_date><![CDATA[" + sdf.parse(today.toString()) + "]]></chg_date>");
xmlBuff.append("</Detail1>");
sql = "SELECT LINE_NO,PURC_ORDER,LINE_NO__ORD,ITEM_CODE,QUANTITY,UNIT,RATE, "
+ "(CASE WHEN DISCOUNT IS NULL THEN 0 ELSE DISCOUNT END ) AS DISCOUNT, " // CONVERTED NVL(DISCOUNT,0) TO CASE BY ARCHIMAN 09.08.08
+ " TAX_AMT,NET_AMT,QUANTITY__STDUOM,RATE__STDUOM, "
+ " ACCT_CODE__DR,CCTR_CODE__DR,DEPT_CODE,ACCT_CODE__CR,CCTR_CODE__CR, " //DEPT CODE ADDED FOR BUDGET CALC. SANDIP 23/07/05
+ " ACCT_CODE__PROV_DR,CCTR_CODE__PROV_DR,ACCT_CODE__PROV_CR,CCTR_CODE__PROV_CR "
+ " FROM PORCPDET WHERE TRAN_ID = ? ";
// In below fetch-ls_acct_pdr,ls_cctr_pdr,ls_acct_pcr,ls_cctr_pcr-Added By fatema - 04/04/2007 - DI7SUN0018
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
rs = pstmt.executeQuery();
ctr = 0;
while(rs.next())
{
rcpLine = rs.getString("LINE_NO");
purcOrderDet = rs.getString("PURC_ORDER");
lineNoOrd = rs.getString("LINE_NO__ORD");
rcpItemCode = rs.getString("ITEM_CODE");
rcpQuantity = rs.getDouble("QUANTITY");
rcpUnit = rs.getString("UNIT");
rcpRate = rs.getDouble("RATE");
rcpDiscount = rs.getDouble("DISCOUNT");
rcpTaxAmount = rs.getDouble("TAX_AMT");
rcpNetAmount = rs.getDouble("NET_AMT");
rcpQtyStd = rs.getDouble("QUANTITY__STDUOM");
rcpRateStd = rs.getDouble("RATE__STDUOM");
acctCodeDR = rs.getString("");
cctrCodeDR = rs.getString("");
deptCode = rs.getString("");
acctCodeCR = rs.getString("");
cctrCodeCR = rs.getString("");
acctCodeProvDR = rs.getString("");
cctrCodeProvDR = rs.getString("");
acctCodeProvCR = rs.getString("");
cctrCodeProvCR = rs.getString("");
// amit - 27/08/02
rateDiscount = getPurcRate(purcOrderDet, rcpItemCode,purcRate,purcDisc, conn);
purcRate = rateDiscount[0];
purcDisc = rateDiscount[1];
if (purcRate != -999)
{
purcRateStd = rcpRateStd * purcRate / rcpRate;
rcpRate = purcRate;
rcpRateStd = purcRateStd;
rcpDiscount = purcDisc;
}
// end - amit - 27/08/02
// added by shiri 20/12/01 as tax should not contain the non_payable = 'Y'
//Converted nvl to case when by Archiman
//Commented select nvl(sum(nvl(a.tax_amt,0)),0) into :rcpTaxAmount by Archiman 12/08/08
//Converted nvl(b.non_payable, 'N') to case when statement by Archiman 12/08/08
//and nvl(b.non_payable, 'N') <> 'Y'
sql = "select sum(case when a.tax_amt is null then 0 else a.tax_amt end) as tax_amt "
+ " from taxtran a, tax b "
+ " where a.tax_code = b.tax_code "
+ " and a.tran_code = ? "
+ " and a.tran_id = ? "
+ " and a.line_no = ? ";
+ " and (case when b.non_payable is null then 'N' else b.non_payable end) <> 'Y' "
+ " and b.effect <> 'N'";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, tranSer);
pstmt1.setString(2, tranId);
pstmt1.setString(3, rcpLine);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
rcpTaxAmount = rs1.getDouble("tax_amt");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
taxVar1 = rcpTaxAmount; //amit-13/08/02
// to get the tax with non_payable = 'Y' as to subtract from the net amt
//Converted nvl to case by Archiman 12/08/08
// Commented select nvl(sum(nvl(a.tax_amt,0)),0) into :rcpTaxNP by Archiman
//Converted nvl(b.non_payable, 'N') to case when statement by Archiman 12/08/08
//and nvl(b.non_payable, 'N') = 'Y';
sql = "select sum(case when a.tax_amt is null then 0 else a.tax_amt end) as tax_amt "
+ " from taxtran a, tax b "
+ " where a.tax_code = b.tax_code "
+ " and a.tran_code = ? "
+ " and a.tran_id = ? "
+ " and a.line_no = ? ";
+ " and (case when b.non_payable is null then 'N' else b.non_payable end) = 'Y' ";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, tranSer);
pstmt1.setString(2, tranId);
pstmt1.setString(3, rcpLine);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
rcpTaxNP = rs1.getDouble("tax_amt");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
rcpNetAmount = rcpNetAmount - rcpTaxNP;
// end shiri
// if invOnLine = 'Y' then
// ls_acct_ph = acctCodePur
// // below commented by arif on 21-OCT-2002 as liability a/c cost center code
// // should be same as in purchase receipt.
// // below comment removed by shiri 07/10/03 as cctr code is becoming blank
// // as it is not defined in item acct detr
// if (isnull(ls_cctr_ph) or len(trim(ls_cctr_ph)) = 0) and not isnull(cctrCodePur) and len(trim(cctrCodePur)) > 0 then
// ls_cctr_ph = cctrCodePur
// end if
// end if
if ("Y".equals(invOnLine))
{
// Added by fatema - 04/04/2007 - DI7SUN0018
if ("Y".equals(postProv))
{
acctCodePH = acctCodeProvCR;
ccrtCodePH = cctrCodeProvCR;
}
else // Ended by fatema - 04/04/2007 - DI7SUN0018
{
acctCodePH = acctCodeCR;
ccrtCodePH = cctrCodeCR;
} // Added by fatema - 04/04/2007 - DI7SUN0018
}
else
{
acctCodePH = acctCodeDR;
ccrtCodePH = cctrCodeDR;
}
/// changes done by sachin 22-11-02 checking for the taking tax detail as per variable defined .
taxVar = distCommon.getDisparams("999999","TA_VOUCH",conn);
//jyoti
//the tax settings for purchase receipt/purchase return should be based on
if (!"NULLFOUND".equals(taxVar))
{
if (taxVar.indexOf("P-RCP") > -1)
{
taxVar2 = "P-RCP";
}
if (taxVar.indexOf("P-RET") > -1)
{
taxVar1 = "P-RET";
}
}
if (("P-RCP".equals(taxVar2) && "P-RCP".equals(tranSer)) || ("P-RET".equals(taxVar1) && "P-RET".equals(tranSer)) )//or taxVar1 = 'P-RET' then
{
sql = "SELECT TAX_CLASS,TAX_CHAP,TAX_ENV, RATE__CLG, STD_RATE "
+ " FROM PORCPDET "
+ " WHERE TRAN_ID = ? "
+ " AND LINE_NO = ? ";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, tranId);
pstmt1.setString(2, rcpLine);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
taxClass = rs1.getString("TAX_CLASS");
taxChap = rs1.getString("TAX_CHAP");
taxEnv = rs1.getString("TAX_ENV");
rateClg = rs1.getDouble("RATE__CLG");
stdRate = rs1.getDouble("STD_RATE");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
//Added by Shahid 21/11/2007 FI78BAS014
sql = "SELECT PROJ_CODE "
+ " FROM PORDDET "
+ " WHERE PURC_ORDER = ? "
+ " AND LINE_NO = ? ";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, purcOrderDet);
pstmt1.setString(2, lineNoOrd);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
projCode = rs1.getString("PROJ_CODE");
}
rs1.close();
rs1 = null;
pstmt1.close();
//Ended by Shahid 21/11/20007 FI78BAS014
}
else
{
sql = "SELECT TAX_CLASS,TAX_CHAP,TAX_ENV, RATE__CLG, STD_RATE,PROJ_CODE " //Proj_code Added by Shahid 21/11/2007 FI78BAS014
+ " FROM PORDDET "
+ " WHERE PURC_ORDER = ? "
+ " AND LINE_NO = ? ";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, purcOrderDet);
pstmt1.setString(2, lineNoOrd);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
taxClass = rs1.getString("TAX_CLASS");
taxChap = rs1.getString("TAX_CHAP");
taxEnv = rs1.getString("TAX_ENV");
rateClg = rs1.getDouble("RATE__CLG");
stdRate = rs1.getDouble("STD_RATE");
projCode = rs1.getString("PROJ_CODE");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
}
rcpDiscAmt = (rcpQtyStd * rcpRateStd * rcpDiscount)/100;
rcpAmount = ((rcpQtyStd * rcpRateStd) - rcpDiscAmt);
vouchQuantity = rcpQuantity;
vouchAmount = rcpQtyStd * rcpRateStd ;
taxMultiplier = 1;
if ("P-RET".equals(tranSer))
{
rcpDiscAmt = -1 * rcpDiscAmt ;
rcpTaxAmount = -1 * rcpTaxAmount;
rcpNetAmount = -1 * rcpNetAmount;
vouchQuantity = -1 * vouchQuantity;
vouchAmount = -1 * vouchAmount;
taxMultiplier = -1;
rcpQtyStd = -1 * rcpQtyStd;
// 07-06-04 sign of amount to be changed
rcpAmount = -1 * rcpAmount;
// end 07-06-04
}
/// amish 19-03-04 // if posting is standard then paste acct code and cctr code
/// from item acct detr. PPV A/C
if ( "S".equals(postType))
{
sql = "SELECT ITEM_SER FROM ITEM WHERE ITEM_CODE = ? ";
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, rcpItemCode);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
itemSer = rs1.getString("ITEM_SER");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
ls_cctr_diff = finCommon.getAcctDetrTtype(rcpItemCode, itemSer, "PPV", pordType, conn);
if (ls_cctr_diff != null && ls_cctr_diff.trim().length() > 0)
{
acctCodePPV = ls_cctr_diff.substring(0,ls_cctr_diff.indexOf(","));
cctrCodePPV = cctrCodePPV.substring(cctrCodePPV.indexOf(",")+1);
}
}
/*// 08/this part is not possible in RCP so commented
// changes done by sachin 22-11-02 to pick up minimun line no istead of 1
Select min(line_no) into :lineCount_pick from porcpdet where tran_id = :as_tran_id;
// 1 Added by Vilas as on 14-03-02
//if trim(rcpLine) <> '1' then
if trim(rcpLine) <> trim(lineCount_pick) or tranSer <> 'P-RCP' then
li_ln = lds_vouchdet.insertrow(0)
lds_vouchdet.setitem(li_ln,'tran_id',ls_vouch_id)
lds_vouchdet.setitem(li_ln,'line_no',lineCount)
lds_vouchdet.setitem(li_ln,'item_code',rcpItemCode )
lds_vouchdet.setitem(li_ln,'unit',rcpUnit)
lds_vouchdet.setitem(li_ln,'vouch_qty',vouchQuantity)
//lds_vouchdet.setitem(li_ln,'quantity',vouchQuantity)//Commented by Shahid 28-06-2007
lds_vouchdet.setitem(li_ln,'rcp_qty',vouchQuantity)//Added by Shahid 28-06-2007
lds_vouchdet.setitem(li_ln,'vouch_rate',rcpRate )
lds_vouchdet.setitem(li_ln,'vouch_amt',vouchAmount)
lds_vouchdet.setitem(li_ln,'tax_class', taxClass )
lds_vouchdet.setitem(li_ln,'tax_chap',taxChap )
lds_vouchdet.setitem(li_ln,'tax_env',taxEnv )
lds_vouchdet.setitem(li_ln,'discount',rcpDiscount) // amit - 26/08/02
lds_vouchdet.setitem(li_ln,'rate__clg',rateClg)//jyoti 23/2/03
// lds_vouchdet.setitem(li_ln,'std_rate',stdRate)//rajesh nair 15/03/04
//amit-19-06-02
lds_vouchdet.setitem(li_ln,'purc_order',purcOrderDet)
lds_vouchdet.setitem(li_ln,'line_no__pord',lineNoOrd)
lds_vouchdet.setitem(li_ln,'prcp_id',as_tran_id)
lds_vouchdet.setitem(li_ln,'line_no__rcp',rcpLine)
lds_vouchdet.setitem(li_ln,'acct_code__diff',acctCodePPV)
lds_vouchdet.setitem(li_ln,'cctr_code__diff',cctrCodePPV)
lds_vouchdet.setitem(li_ln,'dept_code',deptCode) //dept code added for budget calc. sandip 23/07/05
// end - amit-19-06-02
lds_vouchdet.setrow(li_ln)
// 20-08-04 manoharan like in window instead of vouch_rate, vouch_qty
// columns vouch_rate__stduom, vouch_qty__stduom columns passed
rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate","vouch_qty" ,0, currCode)
//committed and modified by prince james on 28-09-04
//ls_errcode = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate","vouch_qty" ,0, currCode)
//rcpTaxAmount = dec(f_get_token(ls_errcode,'~t'))
//ended by prince james on 28-09-04
lds_vouchdet.setitem(li_ln,'vouch_rate__stduom',rcpRateStd )
lds_vouchdet.setitem(li_ln,'vouch_qty__stduom',rcpQtyStd)
//committed and modified by prince james on 28-09-04
rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//ls_errcode = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//rcpTaxAmount = dec(f_get_token(ls_errcode,'~t'))
//ended by prince james on 28-09-04
// end 20-08-04 manoharan
if rcpTaxAmount = -999999999 then
ls_errcode = "Error calculating tax amount"
exit
else
if lds_taxdet.update() <> 1 then
ls_errcode = "Error calculating tax amount"
exit
end if
end if
else
rcpTaxAmount = 0;
end if
if isnull(rcpTaxAmount) then rcpTaxAmount = 0
//rcpNetAmount = rcpNetAmount + rcpTaxAmount - taxVar1 //amit-13/08/02
rcpNetAmount = rcpAmount + rcpTaxAmount
*/
if len(trim(cctrCodePPV)) = 0 then setnull(cctrCodePPV)//added by zahid 10/06/04
if len(trim(acctCodePPV)) = 0 then setnull(acctCodePPV)//added by zahid 10/06/04
// 1 Added by Vilas as on 14-03-02
ctr++;
xmlBuff.append("<Detail3 dbID='' domID=\"1\" objName=\"voucher\" objContext=\"2\">");
xmlBuff.append("<attribute pkNames=\"\" selected=\"N\" updateFlag=\"A\" status=\"N\" />");
xmlBuff.append("<tran_id/>");
xmlBuff.append("<line_no>"+(ctr)+"</line_no>");
xmlBuff.append("<prcp_id><![CDATA[" + tranId + "]]></prcp_id>");
xmlBuff.append("<line_no__rcp><![CDATA[" + rcpLine + "]]></line_no__rcp>");
xmlBuff.append("<item_code><![CDATA[" + rcpItemCode + "]]></item_code>");
xmlBuff.append("<unit><![CDATA[" + rcpUnit + "]]></unit>");
xmlBuff.append("<rcp_qty><![CDATA[" + rcpQuantity + "]]></rcp_qty>");
xmlBuff.append("<vouch_qty><![CDATA[" + vouchQuantity + "]]></vouch_qty>");
xmlBuff.append("<rcp_rate><![CDATA[" + rcpRate + "]]></rcp_rate>");
xmlBuff.append("<vouch_rate><![CDATA[" + rcpRate + "]]></vouch_rate>");
xmlBuff.append("<purc_order><![CDATA[" + purcOrderDet + "]]></purc_order>");
xmlBuff.append("<line_no__pord><![CDATA[" + lineNoOrd + "]]></line_no__pord>");
xmlBuff.append("<vouch_amt><![CDATA[" + vouchAmount + "]]></vouch_amt>");
xmlBuff.append("<rcp_amt><![CDATA[" + rcpAmount + "]]></rcp_amt>");
xmlBuff.append("<tax_class><![CDATA[" + taxClass + "]]></tax_class>");
xmlBuff.append("<tax_chap><![CDATA[" + taxChap + "]]></tax_chap>");
xmlBuff.append("<tax_env><![CDATA[" + taxEnv + "]]></tax_env>");
xmlBuff.append("<discount><![CDATA[" + rcpDiscount + "]]></discount>");
xmlBuff.append("<disc_amt><![CDATA[" + rcpDiscAmt + "]]></disc_amt>");
xmlBuff.append("<tax_amt><![CDATA[" + rcpTaxAmount + "]]></tax_amt>");
xmlBuff.append("<net_amt><![CDATA[" + rcpNetAmount + "]]></net_amt>");
xmlBuff.append("<post_diff><![CDATA[I]]></post_diff>");
xmlBuff.append("<chg_date><![CDATA[" + chgDate + "]]></chg_date>");
xmlBuff.append("<chg_user><![CDATA[" + userid + "]]></chg_user>");
xmlBuff.append("<chg_term><![CDATA[" + termid + "]]></chg_term>");
xmlBuff.append("<item_ser><![CDATA[" + itemSer + "]]></item_ser>");
xmlBuff.append("<vouch_qty__stduom><![CDATA[" + rcpQtyStd + "]]></vouch_qty__stduom>");
xmlBuff.append("<vouch_rate__stduom><![CDATA[" + rcpRateStd + "]]></vouch_rate__stduom>");
xmlBuff.append("<acct_code><![CDATA[" + acctCodePH + "]]></acct_code>");
xmlBuff.append("<cctr_code><![CDATA[" + ccrtCodePH + "]]></cctr_code>");
xmlBuff.append("<rate__clg><![CDATA[" + rateClg + "]]></rate__clg>");
xmlBuff.append("<std_rate><![CDATA[" + stdRate + "]]></std_rate>");
xmlBuff.append("<acct_code__diff><![CDATA[" + acctCodePPV + "]]></acct_code__diff>");
xmlBuff.append("<cctr_code__diff><![CDATA[" + cctrCodePPV + "]]></cctr_code__diff>");
xmlBuff.append("<dept_code><![CDATA[" + deptCode + "]]></dept_code>");
xmlBuff.append("<anal_code><![CDATA[" + analCode + "]]></anal_code>");
xmlBuff.append("<proj_code><![CDATA[" + projCode + "]]></proj_code>");
xmlBuff.append("</Detail3>");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (errString != null && errString.trim().length() > 0)
{
return errString;
}
if ("P-RCP".equals(tranSer.trim()))
{
//Updating voucher detail for return
// select porcpdet.tran_id,line_no,porcpdet.purc_order,line_no__ord,item_code,quantity,
// unit,rate,nvl(porcpdet.discount,0),porcpdet.tax_amt,net_amt,quantity__stduom,rate__stduom,
// acct_code__dr,cctr_code__dr,ret_opt
// from porcp, porcpdet
// where porcp.tran_id = porcpdet.tran_id and
// tran_id__ref = :as_tran_id and porcp.tran_ser = 'P-RET' and
// confirmed = 'Y' and (vouch_created = 'N' or vouch_created is null) ;
// shiri 07/10/03 changed acct_code__dr and cctr_code__dr to acct_code__cr and cctr_code__cr
// as the wrong a/c ie inventory account was getting affected instead of the po receipt a/c
// In below select-acct_code__prov_dr,cctr_code__prov_dr,acct_code__prov_cr,cctr_code__prov_cr-Added By fatema - 04/04/2007 - DI7SUN0018
//Converted nvl to case when by Archiman 12/08/08
//Commented nvl(porcpdet.discount,0) by Archiman 12/08/08
sql = "select porcpdet.tran_id,line_no,porcpdet.purc_order,line_no__ord,item_code,quantity, "
+ " unit,rate,(case when porcpdet.discount is null then 0 else porcpdet.discount end) as discount, "
+ " porcpdet.tax_amt,net_amt,quantity__stduom,rate__stduom, "
+ " acct_code__dr,cctr_code__dr,ret_opt,dept_code, acct_code__cr,cctr_code__cr, "
+ " acct_code__prov_dr,cctr_code__prov_dr,acct_code__prov_cr,cctr_code__prov_cr "
+ " from porcp, porcpdet "
+ " where porcp.tran_id = porcpdet.tran_id "
+ " and tran_id__ref = ? "
+ " and porcp.tran_ser = 'P-RET' "
+ " and confirmed = 'Y' and (vouch_created = 'N' or vouch_created is null)" ;
// In below fetch-acctCodeProvDR,cctrCodeProvDR,acctCodeProvCR,cctrCodeProvCR-Added By fatema - 04/04/2007 - DI7SUN0018
pstmt = conn.prepareStatement(sql);
pstmt.setString(1, tranId);
rs = pstmt.executeQuery();
while(rs.next())
{
returnId = rs.getString("TRAN_ID");
rcpLine = rs.getString("LINE_NO");
purcOrderDet = rs.getString("PURC_ORDER");
lineNoOrd = rs.getString("LINE_NO__ORD");
rcpItemCode = rs.getString("ITEM_CODE");
rcpQuantity = rs.getDouble("QUANTITY");
rcpUnit = rs.getString("UNIT");
rcpRate = rs.getDouble("RATE");
rcpDiscount = rs.getDouble("DISCOUNT");
rcpTaxAmount = rs.getDouble("TAX_AMT");
rcpNetAmount = rs.getDouble("NET_AMT");
rcpQtyStd = rs.getDouble("QUANTITY__STDUOM");
rcpRateStd = rs.getDouble("RATE__STDUOM");
acctCodeDR = rs.getString("");
cctrCodeDR = rs.getString("");
deptCode = rs.getString("");
acctCodeCR = rs.getString("");
cctrCodeCR = rs.getString("");
acctCodeProvDR = rs.getString("");
cctrCodeProvDR = rs.getString("");
acctCodeProvCR = rs.getString("");
cctrCodeProvCR = rs.getString("");
if ("R".equals(retOpt))
{
continue;
}
//amish 06-08-05 if inv online then
if ("Y".equals(invOnLine))
{
// Added by fatema - 04/04/2007 - DI7SUN0018
if ("Y".equals(postProv))
{
acctCodePH = acctCodeProvCR;
ccrtCodePH = cctrCodeProvCR;
}
else // Ended by fatema - 04/04/2007 - DI7SUN0018
{
acctCodePH = acctCodeCR;
ccrtCodePH = cctrCodeCR;
} // Added by fatema - 04/04/2007 - DI7SUN0018
}
else
{
acctCodePH = acctCodeDR;
ccrtCodePH = cctrCodeDR;
}
// amit - 27/08/02
rateDiscount = getPurcRate(purcOrderDet,rcpItemCode,purcRate,purcDisc, conn);
purcRate = rateDiscount[0];
purcDisc = rateDiscount[1];
if (purcRate != -999)
{
purcRateStd = rcpRateStd * purcRate / rcpRate;
rcpRate = purcRate;
rcpRateStd = purcRateStd;
rcpDiscount = purcDisc;
}
/* // manoharan this part is not required in RCP
// end - amit - 27/08/02
// added by shiri 20/12/01 as tax should not contain the non_payable = 'Y'
//Converted nvl to case by Archiman 12/08/08
//Commented select nvl(sum(nvl(a.tax_amt,0)),0) into :rcpTaxAmount by Archiman 13/08/08
sql = "select sum(case when a.tax_amt is null then 0 else a.tax_amt end) as rcpTaxAmount " //into :rcpTaxAmount
+ " from taxtran a, tax b "
+ " where a.tax_code = b.tax_code "
+ " and a.tran_code = 'P-RET' "
+ " and a.tran_id = ? "
+ " and a.line_no = ? "
+ " and (case when b.non_payable is null then 'N' else b.non_payable end) <>'Y' "
+ " and b.effect <> 'N' ";
// start 08/10/11
pstmt1 = conn.prepareStatement(sql);
pstmt1.setString(1, returnId);
pstmt1.setString(2, rcpLine);
rs1 = pstmt1.executeQuery();
if(rs1.next())
{
rcpTaxAmount = rs1.getDouble("rcpTaxAmount");
}
rs1.close();
rs1 = null;
pstmt1.close();
pstmt1 = null;
lc_var3 = rcpTaxAmount // amit-13/08/02
// to get the tax with non_payable = 'Y' as to subtract from the net amt
//Converted nvl to case by Archiman 12/08/08
//Commented select nvl(sum(nvl(a.tax_amt,0)),0) into :rcpTaxNP by Archiman 12/08/08
//Commented select nvl(sum(nvl(a.tax_amt,0)),0) into :rcpTaxNP by Archiman 12/08/08
select sum(case when a.tax_amt is null then 0 else a.tax_amt end) into :rcpTaxNP
from taxtran a, tax b
where a.tax_code = b.tax_code
and a.tran_code = 'P-RET'
and a.tran_id = :returnId
and a.line_no = :rcpLine
and (case when b.non_payable is null then 'N' else b.non_payable end) ='Y';
if get_sqlcode() <> 0 then
ls_errcode = 'DS000' + string(sqlca.sqldbcode) + '~t' + sqlca.sqlerrtext
exit
end if
rcpNetAmount = rcpNetAmount - rcpTaxNP
ctr++;
/// changes done by sachin 22-11-02 checking for the taking tax detail as per variable defined .
///jyoti 27/1/04
if taxVar1 = 'P-RET' then
select tax_class,tax_chap,tax_env, rate__clg
into :taxClass,:taxChap,:taxEnv, :lc_rate__clg
from porcpdet
where tran_id = :returnId and line_no = :rcpLine;
// else
// select tax_class,tax_chap,tax_env
// into :taxClass,:taxChap,:taxEnv
// from porddet
// where purc_order = :purcOrderDet and line_no = :lineNoOrd;
end if
// rcpDiscAmt = 0 - (rcpQtyStd * rcpRateStd * rcpDiscount)/100
// rcpTaxAmount = 0 - rcpTaxAmount
// rcpAmount = ((rcpQtyStd * rcpRateStd) - rcpDiscAmt)
// vouchAmount = 0 - (rcpQtyStd * rcpRateStd)
// vouchQuantity = 0 - rcpQuantity
// rcpNetAmount = 0 - rcpNetAmount
// totAmount = totAmount + vouchAmount + rcpTaxAmount + rcpDiscAmt
// netAmount = totAmount
// netAmountBase = totAmount * exchRate
// taxAmt = taxAmt + rcpTaxAmount
// rcpQtyStd = 0 - rcpQtyStd
//// amish 04-08-05
rcpQtyStd = 0 - rcpQtyStd
rcpDiscAmt = (rcpQtyStd * rcpRateStd * rcpDiscount)/100
rcpTaxAmount = 0 - rcpTaxAmount
rcpAmount = ((rcpQtyStd * rcpRateStd) - rcpDiscAmt)
vouchAmount = (rcpQtyStd * rcpRateStd)
vouchQuantity = 0 - rcpQuantity
rcpNetAmount = 0 - rcpNetAmount
totAmount = totAmount + vouchAmount + rcpTaxAmount + rcpDiscAmt
netAmount = totAmount
netAmountBase = totAmount * exchRate
taxAmt = taxAmt + rcpTaxAmount
/// commented by amish 04-08-05
// 2 Added by Vilas as on 14-03-02
//jyoti 25/1/04
//if trim(rcpLine) <> '1' then
li_ln = lds_vouchdet.insertrow(0)
lds_vouchdet.setitem(li_ln,'tran_id',ls_vouch_id)
lds_vouchdet.setitem(li_ln,'line_no',lineCount)
lds_vouchdet.setitem(li_ln,'item_code',rcpItemCode )
lds_vouchdet.setitem(li_ln,'unit',rcpUnit)
lds_vouchdet.setitem(li_ln,'vouch_qty',vouchQuantity)
//lds_vouchdet.setitem(li_ln,'quantity',vouchQuantity)//Commented by Shahid--28-06-2007
lds_vouchdet.setitem(li_ln,'rcp_qty',vouchQuantity)//Added by Shahid -28-06-2007
lds_vouchdet.setitem(li_ln,'vouch_rate',rcpRate )
lds_vouchdet.setitem(li_ln,'vouch_amt',vouchAmount)
lds_vouchdet.setitem(li_ln,'tax_class', taxClass )
lds_vouchdet.setitem(li_ln,'tax_chap',taxChap )
lds_vouchdet.setitem(li_ln,'tax_env',taxEnv )
lds_vouchdet.setitem(li_ln,'discount',rcpDiscount)
lds_vouchdet.setitem(li_ln,'rate__clg',lc_rate__clg)
lds_vouchdet.setitem(li_ln,'dept_code',deptCode) //dept code added for budget calc. sandip 23/07/05
// amit - 26/08/02
//jyoti 27/1/04
if taxVar1 = 'P-RET' then
lds_vouchdet.setitem(li_ln,'prcp_id',returnId)
lds_vouchdet.setitem(li_ln,'line_no__rcp',rcpLine)
end if
///////
lds_vouchdet.setrow(li_ln)
// 20-08-04 manoharan like in window instead of vouch_rate, vouch_qty
// columns vouch_rate__stduom, vouch_qty__stduom columns passed
/// commented by amish 04-08-05
//rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate","vouch_qty" ,0, currCode)
//committed and modified by prince james on 28-09-04
//ls_errcode = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate","vouch_qty" ,0, currCode)
//rcpTaxAmount = dec(f_get_token(ls_errcode,'~t'))
//ended by prince james on 28-09-04
lds_vouchdet.setitem(li_ln,'vouch_rate__stduom',rcpRateStd )
lds_vouchdet.setitem(li_ln,'vouch_qty__stduom',rcpQtyStd)
rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//committed and modified by prince james on 28-09-04
//ls_errcode = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//taxAmt = dec(f_get_token(ls_errcode,'~t'))
//ended by prince james on 28-09-04
// end 20-08-04 manoharan
if rcpTaxAmount = -999999999 then
ls_errcode = "Error calculating tax amount"
exit
else
if lds_taxdet.update() <> 1 then
ls_errcode = "Error calculating tax amount"
exit
end if
end if
// else
// rcpTaxAmount = 0
// end if
if isnull(rcpTaxAmount) then rcpTaxAmount = 0
// rcpNetAmount = rcpNetAmount + rcpTaxAmount - lc_var3 // amit-13/08/02
// rcpNetAmount = rcpAmount + rcpTaxAmount
//rcpNetAmount = 0 - (rcpAmount + rcpTaxAmount) // sachin 21-01-03
/// amish 04-08-05
rcpNetAmount = (rcpAmount + rcpTaxAmount) // sachin 21-01-03
// 2 Added by Vilas as on 14-03-02
//in below sql Anal_code is added by jasmina 24/09/07 -FI78MJB003
*/ // not required in RCP
ctr++;
xmlBuff.append("<Detail3 dbID='' domID=\"1\" objName=\"voucher\" objContext=\"2\">");
xmlBuff.append("<attribute pkNames=\"\" selected=\"N\" updateFlag=\"A\" status=\"N\" />");
xmlBuff.append("<tran_id/>");
xmlBuff.append("<line_no>"+(ctr)+"</line_no>");
xmlBuff.append("<prcp_id><![CDATA[" + returnId + "]]></prcp_id>");
xmlBuff.append("<line_no__rcp><![CDATA[" + rcpLine + "]]></line_no__rcp>");
xmlBuff.append("<item_code><![CDATA[" + rcpItemCode + "]]></item_code>");
xmlBuff.append("<unit><![CDATA[" + rcpUnit + "]]></unit>");
xmlBuff.append("<rcp_qty><![CDATA[" + rcpQuantity + "]]></rcp_qty>");
xmlBuff.append("<vouch_qty><![CDATA[" + vouchQuantity + "]]></vouch_qty>");
xmlBuff.append("<rcp_rate><![CDATA[" + rcpRate + "]]></rcp_rate>");
xmlBuff.append("<vouch_rate><![CDATA[" + rcpRate + "]]></vouch_rate>");
xmlBuff.append("<purc_order><![CDATA[" + purcOrderDet + "]]></purc_order>");
xmlBuff.append("<line_no__pord><![CDATA[" + lineNoOrd + "]]></line_no__pord>");
xmlBuff.append("<vouch_amt><![CDATA[" + vouchAmount + "]]></vouch_amt>");
xmlBuff.append("<rcp_amt><![CDATA[" + rcpAmount + "]]></rcp_amt>");
xmlBuff.append("<tax_class><![CDATA[" + taxClass + "]]></tax_class>");
xmlBuff.append("<tax_chap><![CDATA[" + taxChap + "]]></tax_chap>");
xmlBuff.append("<tax_env><![CDATA[" + taxEnv + "]]></tax_env>");
xmlBuff.append("<discount><![CDATA[" + rcpDiscount + "]]></discount>");
xmlBuff.append("<disc_amt><![CDATA[" + rcpDiscAmt + "]]></disc_amt>");
xmlBuff.append("<tax_amt><![CDATA[" + rcpTaxAmount + "]]></tax_amt>");
xmlBuff.append("<net_amt><![CDATA[" + rcpNetAmount + "]]></net_amt>");
xmlBuff.append("<post_diff><![CDATA[I]]></post_diff>");
xmlBuff.append("<chg_date><![CDATA[" + chgDate + "]]></chg_date>");
xmlBuff.append("<chg_user><![CDATA[" + userid + "]]></chg_user>");
xmlBuff.append("<chg_term><![CDATA[" + termid + "]]></chg_term>");
xmlBuff.append("<item_ser><![CDATA[" + itemSer + "]]></item_ser>");
xmlBuff.append("<vouch_qty__stduom><![CDATA[" + rcpQtyStd + "]]></vouch_qty__stduom>");
xmlBuff.append("<vouch_rate__stduom><![CDATA[" + rcpRateStd + "]]></vouch_rate__stduom>");
xmlBuff.append("<acct_code><![CDATA[" + acctCodePH + "]]></acct_code>");
xmlBuff.append("<cctr_code><![CDATA[" + ccrtCodePH + "]]></cctr_code>");
xmlBuff.append("<rate__clg><![CDATA[" + rateClg + "]]></rate__clg>");
xmlBuff.append("<std_rate><![CDATA[" + stdRate + "]]></std_rate>");
//xmlBuff.append("<acct_code__diff><![CDATA[" + acctCodePPV + "]]></acct_code__diff>");
//xmlBuff.append("<cctr_code__diff><![CDATA[" + cctrCodePPV + "]]></cctr_code__diff>");
xmlBuff.append("<dept_code><![CDATA[" + deptCode + "]]></dept_code>");
xmlBuff.append("<anal_code><![CDATA[" + analCode + "]]></anal_code>");
//xmlBuff.append("<proj_code><![CDATA[" + projCode + "]]></proj_code>");
xmlBuff.append("</Detail3>");
taxMultiplier = -1;
sql = "update porcp set vouch_created = 'Y' where tran_id = ? "; //:;
pstmtUpd = conn.prepareStatement(sql);
pstmtUpd.setString(1, returnId);
pstmtUpd.executeUpdate();
} // return details
rs.close();
rs = null;
pstmt.close();
pstmt = null;
} // P-RCP
if (errString != null && errString.trim().length() > 0)
{
return errString;
}
/* //
// 3 Added by Vilas
lds_vouchdet.reset()
li_cnt = lds_vouchdet.retrieve(ls_vouch_id,1)
if li_cnt = 1 then
rcpTaxAmount = 0
lds_vouchdet.setrow(lineCount)
if isnull(advTotal) then advTotal = 0
lds_vouchdet.setitem(1,'tax_adv_amt',-advTotal)
// 20-08-04 manoharan like in window instead of vouch_rate, vouch_qty
// columns vouch_rate__stduom, vouch_qty__stduom columns passed
//rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate","vouch_qty" ,0, currCode)
rcpTaxAmount = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//committed and modified by prince james on 28-09-04
//ls_errcode = gf_calc_tax_ds(lds_vouchdet, lds_taxdet,'VOUCH',ls_vouch_id,tranDate,"vouch_rate__stduom","vouch_qty__stduom" ,0, currCode)
//rcpTaxAmount = dec(f_get_token(ls_errcode,'~t'))
//ended by prince james on 28-09-04
// end 20-08-04 manoharan
if rcpTaxAmount = -999999999 then
ls_errcode = "Error calculating tax amount"
exit
else
decimal {3} lc_var2
lc_var2 = lds_vouchdet.getitemnumber(1,'vouch_amt')
// amit - 26/08/02
rcpDiscount = lds_vouchdet.getitemnumber(1,'disc_amt')
if isnull(rcpDiscount) then rcpDiscount = 0
lc_var2 = lc_var2 - rcpDiscount
// end - amit - 26/08/02
lds_vouchdet.setitem(1,'tax_amt',rcpTaxAmount)
lds_vouchdet.setitem(1,'net_amt',lc_var2 + rcpTaxAmount)
if lds_vouchdet.update() <> 1 then
ls_errcode = 'DS000'+string(Sqlca.sqlcode)+' ~t'+sqlca.sqlerrtext
exit
else
if lds_taxdet.update() <> 1 then
ls_errcode = "Error calculating tax amount"
exit
end if
end if
end if
else
rcpTaxAmount = 0
end if
//amish 31-8-05 pickup the net amount for advance adjustment.
select sum(tax_amt), sum( vouch_amt - (case when disc_amt is null then 0 else disc_amt end) ), sum(net_amt)
into :taxAmt, :vouchAmount, :netAmount
from vouchrcp
where tran_id = :ls_vouch_id ;
if get_sqlcode() < 0 then
ls_errcode = 'DS000'+string(sqlca.sqlcode)+sqlca.sqlerrtext
exit
elseif get_sqlcode() = 100 then
ls_errcode = 'DS000'+string(sqlca.sqlcode)+sqlca.sqlerrtext
exit
end if
lc_netamt_adj = vouchAmount + taxAmt
// amish
//amish 31-8-05 pickup the net amount for advance adjustment.
/// added or ( tran_ser like 'P-IBC%' ref_ser__org in ('P-ADV', 'LC-ADV', 'M-ADV') )
if lc_netamt_adj > 0 then
declare c_adv cursor for
select tran_ser, ref_no, curr_code, exch_rate, acct_code,
cctr_code, tot_amt, tot_amt - adj_amt, sundry_type, sundry_code
from misc_payables
where ( tran_ser in ('P-ADV', 'LC-ADV', 'M-ADV') or ( tran_ser like 'P-IBC%' and ref_ser__org in ('P-ADV', 'LC-ADV', 'M-ADV') ) )
and purc_order = :purcOrder
and tot_amt - adj_amt <> 0 and site_code = :siteCode ;
open c_adv;
if get_sqlcode() <> 0 then
ls_errcode = 'DS000' + trim(string(sqlca.sqldbcode)) + ' ~t ' + sqlca.sqlerrtext
exit
end if
fetch c_adv into :ls_refser, :ls_refno, :ls_curradv, :lc_exchadv, :ls_acctcode,
:ls_cctrcode, :lc_totamt, :lc_advamt, :ls_stype, :ls_scode;
do while sqlca.sqlcode = 0 and netAmount > 0
if trim(currCode) <> trim(ls_curradv) then
ls_errcode = 'VTCURRMIS' + ' ~t' + ' curr. : ' + currCode + ' and adv. curr. :' + ls_curradv
exit
end if
if ls_stype <> 'S' or trim(ls_scode) <> trim(suppCode) then
ls_errcode = 'VTSUPPMIS' + ' ~t' + ' suppliers : ' + suppCode + ' and adv. suppl.:' + ls_scode
exit
end if
///amish 01-08-05 for ad
/// consider the amount automatically adjyusted and
/// but voucher not confirmed.
select sum(adj_amt)
into :lc_advadj
from voucher a, vouchadv b
where a.tran_id = b.tran_id
and b.ref_ser = :ls_refser
and b.ref_no = :ls_refno
and a.confirmed = 'N'
and a.tran_mode = 'A' ;
if get_sqlcode() <> 0 then
ls_errcode = 'DS000' + trim(string(sqlca.sqldbcode)) + ' ~t ' + sqlca.sqlerrtext
exit
end if
if isnull(lc_advadj) then lc_advadj = 0
lc_advamt = lc_advamt - lc_advadj
if lc_advamt <> 0 then
ls_refno = trim(ls_refno)
if abs(lc_advamt) > netAmount then lc_advamt = 0 - netAmount
lc_diffexch = 0
lc_diffexch = (lc_advamt * lc_exchadv) - (lc_advamt * exchRate)
diffTotal = diffTotal + lc_diffexch
advTotal = advTotal + lc_advamt
insert into vouchadv
(tran_id, ref_ser, ref_no, adj_amt, tot_amt, curr_code,
exch_rate__vouch, diff_amt__exch, acct_code, cctr_code,auto_generated)
values
(:ls_vouch_id, :ls_refser, :ls_refno, :lc_advamt, :lc_totamt, :ls_curradv,
:lc_exchadv, :lc_diffexch, :ls_acctcode, :ls_cctrcode,'A'); //zahid 08/04/04 for auto_generated voucher advance);
if get_sqlcode() <> 0 then
ls_errcode = 'DS000' + string(sqlca.sqldbcode) + ' ~t' + sqlca.sqlerrtext
exit
end if
netAmount = netAmount + lc_advamt
lc_netamt_adj = lc_netamt_adj + lc_advamt //amish 31-08-05
end if
fetch c_adv into :ls_refser, :ls_refno, :ls_curradv, :lc_exchadv, :ls_acctcode,
:ls_cctrcode, :lc_totamt, :lc_advamt, :ls_stype, :ls_scode;
loop
close c_adv;
if not isnull(ls_errcode) and len(trim(ls_errcode)) > 0 then
exit
end if
end if
end if // 07-06-04 moved from below
//Added by Vilas
//Converted nvl to case when by Archiman 12/08/08
//Commented nvl(disc_amt,0)
if isnull(taxAmt) then taxAmt = 0
select sum(tax_amt), sum( vouch_amt - (case when disc_amt is null then 0 else disc_amt end) ), sum(net_amt)
into :taxAmt, :vouchAmount, :netAmount
from vouchrcp
where tran_id = :ls_vouch_id ;
if get_sqlcode() < 0 then
ls_errcode = 'DS000'+string(sqlca.sqlcode)+sqlca.sqlerrtext
exit
elseif get_sqlcode() = 100 then
ls_errcode = 'DS000'+string(sqlca.sqlcode)+sqlca.sqlerrtext
exit
end if
netAmountBase = netAmount * exchRate
/// amish 24-12-05 calculation for reteintion amount
//Commented nvl(rel_amt,0) , nvl(rel_after,0) by Archiman 12/08/08
//Converted nvl to case by Archiman 12/08/08
if len(ls_errcode) > 0 then exit
if gs_database = 'db2' then
//select amt_type , nvl(rel_amt,0) , nvl(rel_after,0)
select amt_type , (case when rel_amt is null then 0 else rel_amt end ), (case when rel_after is null then 0 else rel_after end )
into :ls_advtype, :ld_advperc, :ll_relafter
from pord_pay_term
where purc_order = :purcOrder
and rel_agnst = '04'
fetch first row only ;
else
//select amt_type , nvl(rel_amt,0) , nvl(rel_after,0)
select amt_type , (case when rel_amt is null then 0 else rel_amt end ), (case when rel_after is null then 0 else rel_after end )
into :ls_advtype, :ld_advperc, :ll_relafter
from pord_pay_term
where purc_order = :purcOrder
and rel_agnst = '04'
and rownum = 1 ;
end if
if get_sqlcode() < 0 then
ls_errcode = 'DS000'+string(sqlca.sqlcode)+sqlca.sqlerrtext
exit
end if
if ls_advtype = '01' then // 'Base'
//ls_advtype = 'B'
lc_reten_amt = vouchAmount * ld_advperc / 100
elseif ls_advtype = '02' then //'Net'
//ls_advtype = 'P'
lc_reten_amt = ( vouchAmount + taxAmt ) * ld_advperc / 100
elseif ls_advtype = '03' then //'Fixed amt.'
//ls_advtype = 'F'
//lc_reten_amt = lc_reten_amt
end if
lc_netamt_bc = (vouchAmount + taxAmt + advTotal ) * exchRate // Added by fatema - 04/01/2007 -to avoid decimal difference error - Req FI6CHT0034
netAmount = vouchAmount + taxAmt + advTotal // Added by fatema-25/06/2007-FI78CHT004-To avoid error in db2.
totAmount = vouchAmount + taxAmt // Added by fatema-25/06/2007-FI78CHT004-To avoid error in db2.
update voucher
set bill_amt = :vouchAmount,
tax_amt = :taxAmt,
// tot_amt = :vouchAmount + :taxAmt // Commented by fatema-25/06/2007-FI78CHT004-Expression moved above update stat To avoid error in db2.
// net_amt = :vouchAmount + :taxAmt + :advTotal // Commented by fatema-25/06/2007-FI78CHT004-Expression moved above update stat To avoid error in db2.
tot_amt = :totAmount, // Added by fatema-25/06/2007-FI78CHT004
net_amt = :netAmount, // Added by fatema-25/06/2007-FI78CHT004
adv_amt = :advTotal,
// net_amt__bc = ( :vouchAmount + :taxAmt + :advTotal ) * :exchRate, // Commented by fatema - 04/01/2007 - Expression moved above update stat to store in dec3 variab
net_amt__bc = :lc_netamt_bc, // Added by fatema - 04/01/2007
diff_amt__exch = :diffTotal ,
retention_amt = :lc_reten_amt ,
retention_days = :ll_relafter
where tran_id = :ls_vouch_id;
if get_sqlcode() < 0 then
ls_errcode = 'DS000' + string(sqlca.sqldbcode) + ' ~t' + sqlca.sqlerrtext
exit
elseif sqlca.sqlnrows <> 1 then
ls_errcode = 'DS000NR'
exit
end if
//end if // 07-06-04
////// added by deepali 19/03/04
if autoConfirm = 'Y' then
//Commented and Added by shahid 12/11/2008 for FI6SUP0047
// ls_errcode = nvo_voucher.gbf_retrieve_purc_vou(ls_vouch_id, ls_vouch_id,'Y', 1, as_warning)
ls_errcode = nvo_voucher.gbf_retrieve_purc_vou(ls_vouch_id, ls_vouch_id,'Y', 1, as_warning,siteCode)
if len(trim(ls_errcode)) > 0 then
rollback ; // if error then roll back
// openwithparm(w_msg, ls_errcode) //commented by prasant on 09/07/05 as per monoharanji
exit
else
commit; // commit if error not found
// openwithparm(w_msg, 'VTMCONF2') //commented by prasant on 09/07/05 as per monoharanji
end if
end if
////// end
update porcp set vouch_created = 'Y' where tran_id = :as_tran_id;
if get_sqlcode() < 0 then
ls_errcode = 'DS000' + string(sqlca.sqldbcode) + ' ~t' + sqlca.sqlerrtext
exit
elseif sqlca.sqlnrows <> 1 then
ls_errcode = 'DS000NR'
exit
end if
ls_errcode = checkVoucherValidity(ls_vouch_id, conn);
if ai_commit = 2 then
if len(trim(ls_errcode)) = 0 then
commit;
else
ls_sqlerr = sqlca.sqlerrtext
rollback;
sqlca.sqlerrtext = ls_sqlerr
end if
end if
*/// cannot be done in script should be through cross update
}//try
catch(Exception exception)
{
exception.printStackTrace();
throw new ITMException(exception);
}
finally
{
try
{
if (rs != null)
{
rs.close(); rs = null;
}
if (pstmt != null)
{
pstmt.close(); pstmt = null;
}
}
catch(Exception e)
{
e.printStackTrace();
}
}
return (errString);
}
private String addTraceMsg(String errString, String mainMsg, String subMsg) throws ITMException, Exception
{
String begPart = "", begDesc = "", endDesc = "";
try
{
begPart = errString.substring(0,errString.indexOf("<message>")+9);
begDesc = errString.substring(0,errString.indexOf("<description>")+13);
endDesc = errString.substring(errString.indexOf("</description>"));
}
catch(Exception e)
{
throw new ITMException(e);
}
return begPart + mainMsg + "</message><description>" + subMsg + endDesc;
}
public java.sql.Timestamp calcDueDate(String crTerm, java.sql.Timestamp recDate, java.sql.Timestamp effDate, java.sql.Timestamp billDate, Connection conn) throws ITMException
{
PreparedStatement pstmt = null;
ResultSet rs = null;
int noOfDays = 0;
java.sql.Timestamp dueDate = null;
String calcDueFrom = "", sql = "";
UtilMethods utilMethods = UtilMethods.getInstance();
try
{
sql = " select cr_days, start_from from crterm where cr_term = ?";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,crTerm);
rs = pstmt.executeQuery();
if(rs.next())
{
noOfDays = rs.getInt("cr_days");
calcDueFrom = rs.getString("start_from");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if ("R".equals(calcDueFrom))
{
dueDate = utilMethods.RelativeDate(recDate, noOfDays);
}
else if ("D".equals(calcDueFrom) || "Q".equals(calcDueFrom)) // 'D','Q' //,'Q' added by zahid 16/07/04 for QC approval date
{
dueDate = utilMethods.RelativeDate(effDate, noOfDays);
}
else if ("B".equals(calcDueFrom))
{
dueDate = utilMethods.RelativeDate(billDate, noOfDays);
}
} // try
catch(Exception e)
{
throw new ITMException(e);
}
finally
{
try
{
if(rs != null){rs.close();rs = null;}
if(pstmt != null){pstmt.close();pstmt = null;}
}
catch(Exception e)
{
throw new ITMException(e);
}
}
return dueDate;
}
public double[] getPurcRate(String purcOrder,String itemCode,double poRate,double poDisc, Connection conn) throws ITMException
{
PreparedStatement pstmt = null;
ResultSet rs = null;
String sql = "";
String porderNo "", provNo "";
double rateDiscount[];
try
{
sql = " select purc_order, (case when provi_tran_id is null then '' else provi_tran_id end) as provi_tran_id"
+ " from porder where purc_order = ?"; //: ;
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,as_pord);
rs = pstmt.executeQuery();
if(rs.next())
{
porderNo = rs.getString("purc_order");
provNo = rs.getString("provi_tran_id");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (porderNo.equals(provNo))
{
sql = " select rate, discount "
+ " from porder a, porddet b "
+ " where a.purc_order = b.purc_order "
+ " and a.purc_order <> ? "
+ " and a.provi_tran_id = ? "
+ " and b.item_code = ? "
+ " and a.confirmed = 'Y' ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,purcOrder);
pstmt.setString(2,purcOrder);
pstmt.setString(3,itemCode);
rs = pstmt.executeQuery();
if(rs.next())
{
poRate = rs.getDouble("rate");
poDisc = rs.getDouble("discount");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
}
else
{
poRate = -999;
poDisc = -999;
}
rateDiscount[0] = poRate;
rateDiscount[1] = poDisc;
} // try
catch(Exception e)
{
throw new ITMException(e);
}
finally
{
try
{
if(rs != null){rs.close();rs = null;}
if(pstmt != null){pstmt.close();pstmt = null;}
}
catch(Exception e)
{
throw new ITMException(e);
}
}
return rateDiscount;
}
private String checkVoucherValidity(String tranId, Connection conn) throws ITMException
{
PreparedStatement pstmt = null;
ResultSet rs = null;
String sql = "";
String errCode = "",varValue = "";
double billAmount = 0, advAmount = 0, taxAmount = 0, netAmount = 0, netAmountBC = 0;
double taxTranAmount = 0, totAmount = 0, checkValue = 0, checkNetAmountBC = 0, exchRate = 0;
int count = 0;
DistCommon distCommon = new DistCommon();
try
{
sql = "SELECT BILL_AMT, ADV_AMT, TAX_AMT, TOT_AMT, NET_AMT, NET_AMT__BC, EXCH_RATE "
+ " FROM VOUCHER WHERE TRAN_ID = ? ";
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
billAmount = rs.getDouble("BILL_AMT");
advAmount = rs.getDouble("ADV_AMT");
taxAmount = rs.getDouble("TAX_AMT");
totAmount = rs.getDouble("TOT_AMT");
netAmount = rs.getDouble("NET_AMT");
netAmountBC = rs.getDouble("NET_AMT__BC");
exchRate = rs.getDouble("EXCH_RATE");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
// vilas round to 3 of netamt*exchrate
checkNetAmountBC = netAmount * exchRate; // Added by fatema - 03/01/2007
//In below if stateme,In 3 condn,Replaced round((netAmount * exchRate),3)
//with checkNetAmountBC by fatema-03/01/2007 to avoid decimal difference error - Req FI6CHT0034
if (billAmount + taxAmount != totAmount || totAmount + advAmount != netAmount || checkNetAmountBC != netAmountBC || isnull(totAmount) )
{
errCode = "VTVOUCAMT";
return errCode;
}
// to take linewise total of the taxes - amit 20-11-01
// shiri 20/12/01 to take only for effect <> 'N'
//Removed TABLE keyword --Not work in DB2 ISeries -- Supreme --Prince --20-05-06
// TABLE( select tran_id, line_no, round(sum(nvl(tax_amt,0)),3) tot_tax
if ("db2".equalsIgnoreCase(CommonConstants.DB_NAME ))
{
sql = "select SUM(tot_tax) as taxTranAmount from "
+ " ( select tran_id, line_no, round(sum(nvl(tax_amt,0)),3) tot_tax "
+ " from taxtran a, tax b "
+ " where a.tax_code = b.tax_code "
+ " and tran_code = 'VOUCH' "
+ " and tran_id = ? " //:as_tranid
+ " and b.effect <> 'N' "
+ " group by tran_id, line_no ) MANOHAR ";
}
else
{
sql = "select SUM(tot_tax) as taxTranAmount from "
+ " ( select tran_id, line_no, round(sum(nvl(tax_amt,0)),3) tot_tax "
+ " from taxtran a, tax b "
+ " where a.tax_code = b.tax_code "
+ " and tran_code = 'VOUCH' "
+ " and tran_id = ? " //:as_tranid
+ " and b.effect <> 'N' "
+ " group by tran_id, line_no ) ";
}
//// end.
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,tranId);
rs = pstmt.executeQuery();
if(rs.next())
{
taxTranAmount = rs.getDouble("taxTranAmount");
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (taxTranAmount != taxAmount)
{
errCode = "VTVOUCAMT";
return errCode;
}
// Ashok on 7/1/03 to get the variance defined in the variable
DistCommon distCommon = new DistCommon();
varValue = distCommon.getDisparams("999999","RCP_UOM_VARIANCE",conn);
if ("NULLFOUND".equals(varValue))
{
errCode = "VTUOMVARPARM";
return errCode;
}
checkValue = Double.parseDouble(varValue);
sql = "select count(1) from vouchrcp where tran_id = ? "
+ " and abs( (vouch_qty__stduom * vouch_rate__stduom - vouch_qty * vouch_rate) ) > ? ";
// End of changes on 7/1/03
pstmt = conn.prepareStatement(sql);
pstmt.setString(1,tranId);
pstmt.setDouble(2,checkValue);
rs = pstmt.executeQuery();
if(rs.next())
{
count = rs.getInt(1);
}
rs.close();
rs = null;
pstmt.close();
pstmt = null;
if (count > 0)
{
errCode = "VTVOUCQTY1";
return errCode;
}
} // try
catch(Exception e)
{
throw new ITMException(e);
}
finally
{
try
{
if(rs != null){rs.close();rs = null;}
if(pstmt != null){pstmt.close();pstmt = null;}
}
catch(Exception e)
{
throw new ITMException(e);
}
}
return errCode;
}
}
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment