千家信息网

Oracle EBS应付模块批量支付

发表于:2024-09-21 作者:千家信息网编辑
千家信息网最后更新 2024年09月21日,CREATE OR REPLACE Package xxx_STD_AP_AutoPMTs_pkg Is/*==============================================
千家信息网最后更新 2024年09月21日Oracle EBS应付模块批量支付

CREATE OR REPLACE Package xxx_STD_AP_AutoPMTs_pkg Is

/*===============================================================

* Copyright (C) Andy P. Consulting Co., Ltd All rights reserved

* ===============================================================

* Program Name: xxx_STD_AP_AutoPMTs_pkg

* Author : Andy P.@xxxxxx.Com

* Date : 2013-02-28

* Purpose : Pl/Sql Html Report PKG

* To Aotu PMTs The Invoiis.

*

* Update History

* Version Date Name Description

* -------- ---------- ---------------------------------- --------------------

* V1.0 20136-02-28 Andy P.@xxxxxx.Com. Creation

*

===============================================================*/

---- ----

P_FULLPMT_DFlag varchar2(2) := 'P';

L_Check_PName varchar2(50) := 'AutoPMTs@AndyPengYu.Com:';


L_Check_Auto_PPMTs varchar2(30) := 'Auto_PPMTs*';

L_Check_Auto_FOPMTs varchar2(30) := 'Auto_FOPMTs*';

L_Check_Auto_FMPMTs varchar2(30) := 'Auto_FMPMTs*';


P_PMTsTii_FlagM varchar2(2) := 'M';

P_PMTsTii_FlagQ varchar2(2) := 'Q';

P_PMTsTii_FlagR varchar2(2) := 'R';


type DCAmount is table Of Number index by binary_integer;

type DCVarChar is table Of varchar2(30000) index by binary_integer;


P_CPMTsLookup_Code varchar2(20) := 'NEGOTIABLE';

P_WPMTsLookup_Code varchar2(20) := 'ISSUED';


P_STDInvoii_Status varchar2(20) := 'APPROVED';

P_PREInvoii_Status varchar2(20) := 'UNPAID';

/*===========================================================

---- Function Name: get_BankUseID()

---- To get the BankUseID.

=============================================================*/

Function get_BankUseID(P_Org_ID in Number, P_BankAcc_Number in varchar2)

Return Number;


/*===========================================================

---- Function Name: get_BankAccID()

---- To get the get_BankAccID.

=============================================================*/

Function get_BankAccID(P_Org_ID in Number, P_BankAcc_Number in varchar2)

Return Number;


/*===========================================================

---- Function Name: get_BankDocID()

---- To get the get_BankDocID.

=============================================================*/

Function get_BankDocID(P_BankAcc_ID in Number,

P_BankDoc_Name in varchar2) Return Number;


/*===========================================================

---- Function Name: get_xxxRate()

---- To get the get_xxxRate.

=============================================================*/

Function get_xxxRate(P_From_Curr in varchar2,

P_To_Curr in varchar2,

P_xRate_Ti varchar2,

P_Accounting_Date in Date) Return Number;


/*===========================================================

---- Procedure Name: Build_PMTISs()

---- To Build the PMTs Of The Details.

=============================================================*/

Procedure Build_PMTISs(P_Batch_ID Out Number,

P_Org_ID in Number,

P_TPName in varchar2,

P_PMT_Mode in varchar2);


/*===========================================================

---- Procedure Name: Build_InvISs()

---- To Build the Invoices Need to Be Paid Of The Details.

=============================================================*/

Procedure Build_InvISs(P_Batch_ID In Number,

P_Org_ID In Number,

P_TPName in varchar2,

P_PMT_Mode in varchar2);


/*===========================================================

---- Procedure Name: Auto_PPMTs()

=============================================================*/

Procedure Auto_PPMTs(P_Suc_Flag Out Varchar2,

P_Suc_Log Out Varchar2,

P_Batch_ID in Number,

P_Org_ID In Number,

P_TPName in varchar2,

P_PMT_Mode in varchar2);


/*===========================================================

---- Procedure Name: Auto_FOPMTs() Of FullPMTs. For One Installment

=============================================================*/

Procedure Auto_FOPMTs(P_Suc_Flag Out Varchar2,

P_Suc_Log Out Varchar2,

P_Batch_ID In Number,

P_Org_ID In Number,

P_TPName in varchar2,

P_PMT_Mode in varchar2);


/*===========================================================

---- Procedure Name: xxxMain()

---- The Main Procedure Of This pkg.

=============================================================*/

Procedure xxxMain(P_Suc_Flag Out Varchar2,

P_Suc_Log Out Varchar2,

P_Org_ID in Number,

P_TPName in varchar2,

P_PMT_Mode in varchar2,

P_FULLPMT_Flag in varchar2 Default P_FULLPMT_DFlag);


End xxx_STD_AP_AutoPMTs_pkg;


0