Help for debug un package PL/SQL error at line 723 Encountered

Question

create or replace package body SPR_AP_FUSION_EXTRACT_PKG is
PROCEDURE MAIN_FUSION_EXTRACT(
pv_errbuff IN OUT VARCHAR2,
pn_retcode IN OUT NUMBER
IS
lv_ligne VARCHAR2 (500);
lv_rep VARCHAR2 (260); --:= '/usr/tmp';
ln_retcode NUMBER;
vv_separator VARCHAR2 (2) := ';';
ln_compteur_lignes NUMBER := 0; -- nombre de lignes insérées dans le fichier
ln_counteur NUMBER := 0;
vv_buffer VARCHAR2 (32000);
vv_buffer_et VARCHAR2 (32000);
vv_buffer_etold VARCHAR2 (32000);
lt_id UTL_FILE.file_type;
ln_counter NUMBER (24, 0);
lv_seq VARCHAR2 (30);
lv_num_paiement VARCHAR2 (10);
flag_ecriture VARCHAR2 (1);
lv_filler_ligne VARCHAR2 (500);
ln_long_buff NUMBER := 0;
ln_compteur_factures NUMBER := 0;
lv_name VARCHAR2 (500);
vv_entete VARCHAR2 (500);
LV_INVOICE_ID ap_invoices_all.invoice_id%type;
ln_compteur_hold NUMBER := 0;
lv_hode_reason VARCHAR2 (500);
lv_release_reason VARCHAR2 (500);
lv_societe_absorbee VARCHAR2 (500);
lv_societe_absorbante VARCHAR2 (500);
ln_org_id NUMBER := 0;
lv_date_fusion DATE;
err_non_parameter Exception;
err_Soc_sr Exception;
err_file_write Exception;
err_file_invalid_path Exception;
err_ecriture_file Exception;
CURSOR cur_ap_hold_invoices
( LV$invoice_id IN AP_invoices_all.Invoice_Id%TYPE)
IS
SELECT aha.hold_reason, aha.release_reason
from ap_holds_all aha
where aha.invoice_id = LV$invoice_id
rec_ap_hold_invoices cur_ap_hold_invoices%ROWTYPE;
--Enregistrement "DESTINATAIRE"
CURSOR cur_fusion_extract_AP_invoice
( LV$Societe_absorbee IN cgey_parameters.VARCHAR2_VALUE%Type,
LV$Societe_absorbant IN cgey_parameters.VARCHAR2_VALUE%Type,
LV$Date_fusion IN cgey_parameters.DATE_VALUE%Type
IS
SELECT
Aia.Invoice_Id
, Aia.Invoice_Num
, Aia.Invoice_Type_Lookup_Code
, Aia.Invoice_Date
, Pv.Vendor_Id
, Pv.Segment1
, Pv.Vendor_Name
, pvsa.Vendor_Site_Id
, Pvsa.Vendor_Site_Code
, aia.invoice_amount
, aia.amount_paid
-- RG3: Montant repris = valeur restante a regler
, ROUND (NVL(SUM(Apsa.Amount_Remaining),0),2) Amount_Remaining
, Ap_Invoices_Utility_Pkg.get_approval_status(aia.invoice_id,aia.invoice_amount,aia.payment_status_flag,aia.invoice_type_lookup_code) STATUT
, aia.invoice_currency_code
, aia.exchange_rate
, aia.exchange_rate_type
, aia.exchange_date
, Ate.Name Terms_Name
, aia.terms_date
, aia.source
, aia.doc_category_code
, aia.payment_method_lookup_code
, aia.pay_group_lookup_code
, aia.gl_date
, Aia.Doc_Sequence_Id
, aia.accts_pay_code_combination_id
, CGEY_TOOLS_PKG.get_segments_from_ccid(Aia.Accts_Pay_Code_Combination_Id) Cle_Comptable_Founisseur
, aia.org_id
, aia.payment_cross_rate_type
, aia.payment_cross_rate_date
, aia.payment_cross_rate
, aia.payment_currency_code
, aia.attribute_category
, Aia.Attribute1
, Aia.Attribute2
, Aia.Attribute3
, Aia.Attribute4
, Aia.Attribute5
, Aia.Attribute6
, Aia.Attribute7
, Aia.Attribute8
, Aia.Attribute9
, Aia.Attribute10
, Aia.Attribute11
, Aia.Attribute12
, Aia.Attribute13
, Aia.Attribute14
, Aia.Attribute15
, Aia.Global_Attribute_Category
, Aia.Global_Attribute1
, Aia.Global_Attribute2
, Aia.Global_Attribute3
, Aia.Global_Attribute4
, Aia.Global_Attribute5
, Aia.Global_Attribute6
, Aia.Global_Attribute7
, Aia.Global_Attribute8
, Aia.Global_Attribute9
, Aia.Global_Attribute10
, Aia.Global_Attribute11
, Aia.Global_Attribute12
, Aia.Global_Attribute13
, Aia.Global_Attribute14
, Aia.Global_Attribute15
, Aia.Global_Attribute16
, Aia.Global_Attribute17
, Aia.Global_Attribute18
, Aia.Global_Attribute19
, Aia.Global_Attribute20
FROM
Ap_Invoices_All Aia
, Ap_Payment_Schedules_All Apsa
, Po_Vendor_Sites_All Pvsa
, Ap_Terms Ate
, Po_Vendors Pv
WHERE
1=1
-- RG1: Type de la facture
AND Aia.invoice_type_lookup_code IN ('STANDARD', 'CREDIT', 'DEBIT')
AND Apsa.Invoice_Id = Aia.Invoice_Id
AND Pvsa.Vendor_Site_Id = Aia.Vendor_Site_Id
AND Ate.Term_Id = Aia.Terms_Id
AND Pv.Vendor_Id = Aia.Vendor_Id
-- RG 1: pour les factures créées antétieur à la date de fusion
AND Aia.Creation_Date < LV$Date_fusion
-- RG1: Ensemble des lignes de la facture postees
AND NOT EXISTS ( SELECT 'x'
FROM
Ap_Invoice_Distributions_All Aida
WHERE
Aida.Invoice_id = Aia.Invoice_Id
AND NVL(Aida.Accrual_Posted_Flag,'N') <> 'Y' )
-- pour la société absorbée
AND aia.org_id = (select ORGANIZATION_ID from HR_ALL_ORGANIZATION_UNITS HAOU
where HAOU.Name = LV$Societe_absorbee
GROUP BY
Aia.Invoice_Id
, Aia.Invoice_Num
, Aia.Invoice_Type_Lookup_Code
, Aia.Invoice_Date
, Pv.Vendor_Id
, Pv.Segment1
, Pv.Vendor_Name
, pvsa.Vendor_Site_Id
, Pvsa.Vendor_Site_Code
, aia.invoice_amount
, aia.amount_paid
-- RG3: Montant repris = valeur restante a regler
, Apsa.Amount_Remaining
, aia.payment_status_flag
, aia.invoice_currency_code
, aia.exchange_rate
, aia.exchange_rate_type
, aia.exchange_date
, Ate.Name
, aia.terms_date
, aia.source
, aia.doc_category_code
, aia.payment_method_lookup_code
, aia.pay_group_lookup_code
, aia.gl_date
, Aia.Doc_Sequence_Id
, aia.accts_pay_code_combination_id
, aia.org_id
, aia.payment_cross_rate_type
, aia.payment_cross_rate_date
, aia.payment_cross_rate
, aia.payment_currency_code
, aia.attribute_category
, Aia.Attribute1
, Aia.Attribute2
, Aia.Attribute3
, Aia.Attribute4
, Aia.Attribute5
, Aia.Attribute6
, Aia.Attribute7
, Aia.Attribute8
, Aia.Attribute9
, Aia.Attribute10
, Aia.Attribute11
, Aia.Attribute12
, Aia.Attribute13
, Aia.Attribute14
, Aia.Attribute15
, Aia.Global_Attribute_Category
, Aia.Global_Attribute1
, Aia.Global_Attribute2
, Aia.Global_Attribute3
, Aia.Global_Attribute4
, Aia.Global_Attribute5
, Aia.Global_Attribute6
, Aia.Global_Attribute7
, Aia.Global_Attribute8
, Aia.Global_Attribute9
, Aia.Global_Attribute10
, Aia.Global_Attribute11
, Aia.Global_Attribute12
, Aia.Global_Attribute13
, Aia.Global_Attribute14
, Aia.Global_Attribute15
, Aia.Global_Attribute16
, Aia.Global_Attribute17
, Aia.Global_Attribute18
, Aia.Global_Attribute19
, Aia.Global_Attribute20
HAVING NVL(SUM(Apsa.Amount_Remaining),0) <> 0
UNION ALL
SELECT
Aia.Invoice_Id
, Aia.Invoice_Num
, Aia.Invoice_Type_Lookup_Code
, Aia.Invoice_Date
, Pv.Vendor_Id
, Pv.Segment1
, Pv.Vendor_Name
, pvsa.Vendor_Site_Id
, Pvsa.Vendor_Site_Code
, aia.invoice_amount
, aia.amount_paid
-- RG3: Montant repris = valeur restante a regler
, Ap_Invoices_Utility_PKG.get_prepay_amount_remaining (Aia.invoice_Id) "Amount_Remaining"
, Ap_Invoices_Utility_Pkg.get_approval_status(aia.invoice_id,aia.invoice_amount,aia.payment_status_flag,aia.invoice_type_lookup_code) STATUT
, aia.invoice_currency_code
, aia.exchange_rate
, aia.exchange_rate_type
, aia.exchange_date
, Ate.Name Terms_Name
, aia.terms_date
, aia.source
, aia.doc_category_code
, aia.payment_method_lookup_code
, aia.pay_group_lookup_code
, aia.gl_date
, Aia.Doc_Sequence_Id
, aia.accts_pay_code_combination_id
, CGEY_TOOLS_PKG.get_segments_from_ccid(Aia.Accts_Pay_Code_Combination_Id) Cle_Comptable_Founisseur
, aia.org_id
, aia.payment_cross_rate_type
, aia.payment_cross_rate_date
, aia.payment_cross_rate
, aia.payment_currency_code
, aia.attribute_category
, Aia.Attribute1
, Aia.Attribute2
, Aia.Attribute3
, Aia.Attribute4
, Aia.Attribute5
, Aia.Attribute6
, Aia.Attribute7
, Aia.Attribute8
, Aia.Attribute9
, Aia.Attribute10
, Aia.Attribute11
, Aia.Attribute12
, Aia.Attribute13
, Aia.Attribute14
, Aia.Attribute15
, Aia.Global_Attribute_Category
, Aia.Global_Attribute1
, Aia.Global_Attribute2
, Aia.Global_Attribute3
, Aia.Global_Attribute4
, Aia.Global_Attribute5
, Aia.Global_Attribute6
, Aia.Global_Attribute7
, Aia.Global_Attribute8
, Aia.Global_Attribute9
, Aia.Global_Attribute10
, Aia.Global_Attribute11
, Aia.Global_Attribute12
, Aia.Global_Attribute13
, Aia.Global_Attribute14
, Aia.Global_Attribute15
, Aia.Global_Attribute16
, Aia.Global_Attribute17
, Aia.Global_Attribute18
, Aia.Global_Attribute19
, Aia.Global_Attribute20
FROM
Ap_Invoices_All Aia
, Po_Vendor_Sites_All Pvsa
, Ap_Terms Ate
, Po_Vendors Pv
WHERE 1=1
-- RG2: Type de la facture
AND Aia.invoice_type_lookup_code = 'PREPAYMENT'
-- RG2: Amount_Paid <> Invoice_Amount
AND NVL(Aia.Invoice_Amount,0) = NVL(Aia.Amount_Paid,0)
AND Pvsa.Vendor_Site_Id = Aia.Vendor_Site_Id
AND Ate.Term_Id = Aia.Terms_Id
AND Pv.Vendor_Id = Aia.Vendor_Id
-- RG2: Ensemble des lignes de la facture postees
AND NOT EXISTS ( SELECT 'x'
FROM
Ap_Invoice_Distributions_All Aida
WHERE
Aida.Invoice_id = Aia.Invoice_Id
AND NVL(Aida.Accrual_Posted_Flag,'N') <> 'Y' )
-- pour la société absorbée
AND aia.org_id = (select ORGANIZATION_ID from HR_ALL_ORGANIZATION_UNITS HAOU
where HAOU.Name = LV$Societe_absorbee
-- RG 1: pour les factures créées antétieur à la date de fusion
AND Aia.Creation_Date < LV$Date_fusion
GROUP BY
Aia.Invoice_Id
, Aia.Invoice_Num
, Aia.Invoice_Type_Lookup_Code
, Aia.Invoice_Date
, Pv.Vendor_Id
, Pv.Segment1
, Pv.Vendor_Name
, pvsa.Vendor_Site_Id
, Pvsa.Vendor_Site_Code
, aia.invoice_amount
, aia.amount_paid
, aia.payment_status_flag
, aia.invoice_currency_code
, aia.exchange_rate
, aia.exchange_rate_type
, aia.exchange_date
, Ate.Name
, aia.terms_date
, aia.source
, aia.doc_category_code
, aia.payment_method_lookup_code
, aia.pay_group_lookup_code
, aia.gl_date
, Aia.Doc_Sequence_Id
, aia.accts_pay_code_combination_id
, aia.org_id
, aia.payment_cross_rate_type
, aia.payment_cross_rate_date
, aia.payment_cross_rate
, aia.payment_currency_code
, aia.attribute_category
, Aia.Attribute1
, Aia.Attribute2
, Aia.Attribute3
, Aia.Attribute4
, Aia.Attribute5
, Aia.Attribute6
, Aia.Attribute7
, Aia.Attribute8
, Aia.Attribute9
, Aia.Attribute10
, Aia.Attribute11
, Aia.Attribute12
, Aia.Attribute13
, Aia.Attribute14
, Aia.Attribute15
, Aia.Global_Attribute_Category
, Aia.Global_Attribute1
, Aia.Global_Attribute2
, Aia.Global_Attribute3
, Aia.Global_Attribute4
, Aia.Global_Attribute5
, Aia.Global_Attribute6
, Aia.Global_Attribute7
, Aia.Global_Attribute8
, Aia.Global_Attribute9
, Aia.Global_Attribute10
, Aia.Global_Attribute11
, Aia.Global_Attribute12
, Aia.Global_Attribute13
, Aia.Global_Attribute14
, Aia.Global_Attribute15
, Aia.Global_Attribute16
, Aia.Global_Attribute17
, Aia.Global_Attribute18
, Aia.Global_Attribute19
, Aia.Global_Attribute20
HAVING Ap_Invoices_Utility_PKG.get_prepay_amount_remaining (Aia.invoice_Id) <> 0
AND Ap_Invoices_Utility_Pkg.get_approval_status(aia.invoice_id,aia.invoice_amount,aia.payment_status_flag,aia.invoice_type_lookup_code) = 'AVAILABLE'
Rec_fusion_extract_AP_invoice cur_fusion_extract_AP_invoice%ROWTYPE;
BEGIN
---------Initialisation
pn_retcode := 0;
pv_errbuff := NULL;
ln_compteur_lignes := 0;
lv_societe_absorbee := CGEY_TOOLS_PKG.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE', 'SOC_SR');
lv_societe_absorbante :=CGEY_TOOLS_PKG.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE', 'SOC_CB');
lv_date_fusion := CGEY_TOOLS_PKG.get_date_parameter ('SPR_FUSION_AP_SOCIETE', 'DATE_FUSION');
lv_rep := cgey_tools_pkg.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE', 'REPERTOIRE_SORTIE');
----err_non_parameter
IF lv_societe_absorbee is null or lv_societe_absorbante is null or lv_date_fusion is null or lv_rep is null
THEN raise err_non_parameter;
select NVL(ORGANIZATION_ID, 'NULL')
INTO ln_org_id
from HR_ALL_ORGANIZATION_UNITS HAOU
where HAOU.Name = lv_societe_absorbee
----err_Soc_sr
IF ln_org_id ='NULL'
THEN Raise err_Soc_sr;
BEGIN
----Création du fichier sorti
cgey_tools_pkg.put_log_message ('Création et Ouverture du fichier en lecture');
lv_name := 'FUSION_fac_AP_EXTRAIRE' || TO_CHAR(SYSDATE, 'DDMMYYYY_HH24MISS') || '.txt';
cgey_tools_pkg.put_log_message ('Fichier sortie est '|| lv_name );
lt_id := UTL_FILE.FOPEN(lv_rep, lv_name, 'w');
IF UTL_FILE.IS_OPEN(lt_id) THEN
cgey_tools_pkg.put_log_message (cv_line);
cgey_tools_pkg.put_log_message('Creation OK du fichier: ' || lv_name);
ELSE
cgey_tools_pkg.put_log_message(cv_line);
cgey_tools_pkg.put_log_message('Probleme ouverture du fichier ' ||lv_name);
END IF;
----EXCEPTION UTL_FILE.WRITE_ERROR, UTL_FILE.INVALID_PATH
EXCEPTION
WHEN UTL_FILE.WRITE_ERROR
THEN raise err_file_write;
WHEN UTL_FILE.INVALID_PATH
THEN raise err_file_invalid_path;
----Création du fichier sorti
END;
BEGIN
UTL_FILE.PUT_LINE(lt_id, vv_entete);
----CURSOR FACTURE A EXTRAIRE
OPEN cur_fusion_extract_AP_invoice
(lv_societe_absorbee,
lv_societe_absorbante,
lv_date_fusion
LOOP
FETCH cur_fusion_extract_AP_invoice
INTO rec_fusion_extract_AP_invoice;
EXIT WHEN cur_fusion_extract_AP_invoice%NOTFOUND;
LV_INVOICE_ID := rec_fusion_extract_AP_invoice.Invoice_Id;
ln_compteur_hold := 0;
lv_hode_reason := null;
lv_release_reason := null;
OPEN cur_ap_hold_invoices (rec_fusion_extract_AP_invoice.Invoice_Id);
LOOP
FETCH cur_ap_hold_invoices
INTO rec_ap_hold_invoices;
EXIT WHEN cur_ap_hold_invoices%NOTFOUND;
----La première blocage à traiter
IF ln_compteur_hold =0 THEN
lv_hode_reason := nvl(rec_ap_hold_invoices.hold_reason, ' ') ;
lv_release_reason := nvl(rec_ap_hold_invoices.release_reason, ' ');
----concatener des autres blocages suivants pour la même facture
Else
lv_hode_reason := lv_hode_reason||nvl(rec_ap_hold_invoices.hold_reason, ' ');
lv_release_reason := lv_release_reason||nvl(rec_ap_hold_invoices.release_reason, ' ');
END IF;
ln_compteur_hold := ln_compteur_hold +1;
END LOOP;
CLOSE cur_ap_hold_invoices;
vv_buffer :=
NVL(lv_societe_absorbee, ' ') ||vv_separator||
NVL(lv_societe_absorbante, ' ') ||vv_separator||
NVL(to_char(lv_date_fusion,'dd/mm/yyyy' ), ' ') ||vv_separator||
NVL(to_char(rec_fusion_extract_AP_invoice.Invoice_Id), ' ') ||vv_separator
UTL_FILE.PUT_LINE(lt_id, vv_buffer);
ln_compteur_lignes := ln_compteur_lignes + 1;
END LOOP;
cgey_tools_pkg.put_log_message(to_char(ln_compteur_lignes) ||
' lignes inserees dans le fichier ' ||lv_rep||'/'
|| lv_name);
CLOSE cur_fusion_extract_AP_invoice;
UTL_FILE.FCLOSE(lt_id);
cgey_tools_pkg.put_log_message(' ');
cgey_tools_pkg.put_log_message(cv_line);
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
Raise err_ecriture_file;
END ;
EXCEPTION_
WHEN err_non_parameter THEN
pn_retcode := SQLCODE;
cgey_tools_pkg.put_log_message ('error'||SQLCODE);
cgey_tools_pkg.put_log_message ('error parameter : Veuillez vous verifier la configuration dans la table CGEY_PARAMETERS!');
WHEN err_Soc_sr THEN
pn_retcode := SQLCODE;
cgey_tools_pkg.put_log_message ('error'||SQLCODE);
cgey_tools_pkg.put_log_message ('error société_absorbée : Veuillez vous verifier le parameter de la société absorbée !');
WHEN err_file_write THEN
UTL_FILE.FCLOSE(lt_id);
pv_errbuff := SQLERRM;
pn_retcode := SQLCODE;
cgey_tools_pkg.put_log_message ('error'||SQLCODE);
cgey_tools_pkg.put_log_message('erreur write_error:'||pv_errbuff);
WHEN err_file_invalid_path THEN
UTL_FILE.FCLOSE(lt_id);
pn_retcode := SQLCODE;
pv_errbuff := SQLERRM;
cgey_tools_pkg.put_log_message ('error'||SQLCODE);
cgey_tools_pkg.put_log_message('erreur invalid_path:'||pv_errbuff);
WHEN err_ecriture_file THEN
UTL_FILE.FCLOSE(lt_id);
pn_retcode := SQLCODE;
pv_errbuff := SQLERRM;
cgey_tools_pkg.put_log_message ('error'||SQLCODE);
cgey_tools_pkg.put_log_message('err_ecriture_file:'||pv_errbuff);
WHEN OTHERS THEN
cgey_tools_pkg.put_log_message ('Une Erreur inconnue arrive lors que l''extraction du FUSION_fac_AP_EXTRAIRE!!');
END MAIN_FUSION_EXTRACT;
END SPR_AP_FUSION_EXTRACT_PKG;
error at line 723 PLS-100103 "EXCEPTION"
when expecting one of the following Error. Please help me!!
Thanks a lot
Edited by: kinkichin on 11 mars 2010 03:19

Answer 1

Hi ,
I have made some changes to the code search for --check condition* and check if the condition is correct.
CREATE OR REPLACE PACKAGE BODY spr_ap_fusion_extract_pkg
IS
   PROCEDURE main_fusion_extract (
      pv_errbuff   IN OUT   VARCHAR2,
      pn_retcode   IN OUT   NUMBER
   IS
      lv_ligne                        VARCHAR2 (500);
      lv_rep                          VARCHAR2 (260);        --:= '/usr/tmp';
      ln_retcode                      NUMBER;
      vv_separator                    VARCHAR2 (2)                     := ';';
      ln_compteur_lignes              NUMBER                             := 0;
                               -- nombre de lignes insérées dans le fichier
      ln_counteur                     NUMBER                             := 0;
      vv_buffer                       VARCHAR2 (32000);
      vv_buffer_et                    VARCHAR2 (32000);
      vv_buffer_etold                 VARCHAR2 (32000);
      lt_id                           UTL_FILE.file_type;
      ln_counter                      NUMBER (24, 0);
      lv_seq                          VARCHAR2 (30);
      lv_num_paiement                 VARCHAR2 (10);
      flag_ecriture                   VARCHAR2 (1);
      lv_filler_ligne                 VARCHAR2 (500);
      ln_long_buff                    NUMBER                             := 0;
      ln_compteur_factures            NUMBER                             := 0;
      lv_name                         VARCHAR2 (500);
      vv_entete                       VARCHAR2 (500);
      lv_invoice_id                   ap_invoices_all.invoice_id%TYPE;
      ln_compteur_hold                NUMBER                             := 0;
      lv_hode_reason                  VARCHAR2 (500);
      lv_release_reason               VARCHAR2 (500);
      lv_societe_absorbee             VARCHAR2 (500);
      lv_societe_absorbante           VARCHAR2 (500);
      ln_org_id                       NUMBER                             := 0;
      lv_date_fusion                  DATE;
      err_non_parameter               EXCEPTION;
      err_soc_sr                      EXCEPTION;
      err_file_write                  EXCEPTION;
      err_file_invalid_path           EXCEPTION;
      err_ecriture_file               EXCEPTION;
      CURSOR cur_ap_hold_invoices (
         lv$invoice_id   IN   ap_invoices_all.invoice_id%TYPE
      IS
         SELECT aha.hold_reason, aha.release_reason
           FROM ap_holds_all aha
          WHERE aha.invoice_id = lv$invoice_id;
      rec_ap_hold_invoices            cur_ap_hold_invoices%ROWTYPE;
      --Enregistrement "DESTINATAIRE"
      CURSOR cur_fusion_extract_ap_invoice (
         lv$societe_absorbee    IN   cgey_parameters.varchar2_value%TYPE,
         lv$societe_absorbant   IN   cgey_parameters.varchar2_value%TYPE,
         lv$date_fusion         IN   cgey_parameters.date_value%TYPE
      IS
         SELECT aia.invoice_id, aia.invoice_num,
                aia.invoice_type_lookup_code, aia.invoice_date, pv.vendor_id,
                pv.segment1, pv.vendor_name, pvsa.vendor_site_id,
                pvsa.vendor_site_code, aia.invoice_amount, aia.amount_paid
                                                                          -- RG3: Montant repris = valeur restante a regler
                ROUND (NVL (SUM (apsa.amount_remaining), 0),
                       2
                      ) amount_remaining,
                ap_invoices_utility_pkg.get_approval_status
                                         (aia.invoice_id,
                                          aia.invoice_amount,
                                          aia.payment_status_flag,
                                          aia.invoice_type_lookup_code
                                         ) statut,
                aia.invoice_currency_code, aia.exchange_rate,
                aia.exchange_rate_type, aia.exchange_date,
                ate.NAME terms_name, aia.terms_date, aia.SOURCE,
                aia.doc_category_code, aia.payment_method_lookup_code,
                aia.pay_group_lookup_code, aia.gl_date, aia.doc_sequence_id,
                aia.accts_pay_code_combination_id,
                cgey_tools_pkg.get_segments_from_ccid
                   (aia.accts_pay_code_combination_id
                   ) cle_comptable_founisseur,
                aia.org_id, aia.payment_cross_rate_type,
                aia.payment_cross_rate_date, aia.payment_cross_rate,
                aia.payment_currency_code, aia.attribute_category,
                aia.attribute1, aia.attribute2, aia.attribute3,
                aia.attribute4, aia.attribute5, aia.attribute6,
                aia.attribute7, aia.attribute8, aia.attribute9,
                aia.attribute10, aia.attribute11, aia.attribute12,
                aia.attribute13, aia.attribute14, aia.attribute15,
                aia.global_attribute_category, aia.global_attribute1,
                aia.global_attribute2, aia.global_attribute3,
                aia.global_attribute4, aia.global_attribute5,
                aia.global_attribute6, aia.global_attribute7,
                aia.global_attribute8, aia.global_attribute9,
                aia.global_attribute10, aia.global_attribute11,
                aia.global_attribute12, aia.global_attribute13,
                aia.global_attribute14, aia.global_attribute15,
                aia.global_attribute16, aia.global_attribute17,
                aia.global_attribute18, aia.global_attribute19,
                aia.global_attribute20
           FROM ap_invoices_all aia,
                ap_payment_schedules_all apsa,
                po_vendor_sites_all pvsa,
                ap_terms ate,
                po_vendors pv
          WHERE 1 = 1
            -- RG1: Type de la facture
            AND aia.invoice_type_lookup_code IN
                                              ('STANDARD', 'CREDIT', 'DEBIT')
            AND apsa.invoice_id = aia.invoice_id
            AND pvsa.vendor_site_id = aia.vendor_site_id
            AND ate.term_id = aia.terms_id
            AND pv.vendor_id = aia.vendor_id
            -- RG 1: pour les factures créées antétieur à la date de fusion
            AND aia.creation_date < lv$date_fusion
            -- RG1: Ensemble des lignes de la facture postees
            AND NOT EXISTS (
                   SELECT   'x'
                       FROM ap_invoice_distributions_all aida
                      WHERE aida.invoice_id = aia.invoice_id
                        AND NVL (aida.accrual_posted_flag, 'N' = 'Y')
                                                             --check condition
                        -- pour la société absorbée
                        AND aia.org_id =
                                      (SELECT organization_id
                                         FROM hr_all_organization_units haou
                                        WHERE haou.NAME = lv$societe_absorbee)
                   GROUP BY aia.invoice_id,
                            aia.invoice_num,
                            aia.invoice_type_lookup_code,
                            aia.invoice_date,
                            pv.vendor_id,
                            pv.segment1,
                            pv.vendor_name,
                            pvsa.vendor_site_id,
                            pvsa.vendor_site_code,
                            aia.invoice_amount,
                            aia.amount_paid
                                           -- RG3: Montant repris = valeur restante a regler
                            apsa.amount_remaining,
                            aia.payment_status_flag,
                            aia.invoice_currency_code,
                            aia.exchange_rate,
                            aia.exchange_rate_type,
                            aia.exchange_date,
                            ate.NAME,
                            aia.terms_date,
                            aia.SOURCE,
                            aia.doc_category_code,
                            aia.payment_method_lookup_code,
                            aia.pay_group_lookup_code,
                            aia.gl_date,
                            aia.doc_sequence_id,
                            aia.accts_pay_code_combination_id,
                            aia.org_id,
                            aia.payment_cross_rate_type,
                            aia.payment_cross_rate_date,
                            aia.payment_cross_rate,
                            aia.payment_currency_code,
                            aia.attribute_category,
                            aia.attribute1,
                            aia.attribute2,
                            aia.attribute3,
                            aia.attribute4,
                            aia.attribute5,
                            aia.attribute6,
                            aia.attribute7,
                            aia.attribute8,
                            aia.attribute9,
                            aia.attribute10,
                            aia.attribute11,
                            aia.attribute12,
                            aia.attribute13,
                            aia.attribute14,
                            aia.attribute15,
                            aia.global_attribute_category,
                            aia.global_attribute1,
                            aia.global_attribute2,
                            aia.global_attribute3,
                            aia.global_attribute4,
                            aia.global_attribute5,
                            aia.global_attribute6,
                            aia.global_attribute7,
                            aia.global_attribute8,
                            aia.global_attribute9,
                            aia.global_attribute10,
                            aia.global_attribute11,
                            aia.global_attribute12,
                            aia.global_attribute13,
                            aia.global_attribute14,
                            aia.global_attribute15,
                            aia.global_attribute16,
                            aia.global_attribute17,
                            aia.global_attribute18,
                            aia.global_attribute19,
                            aia.global_attribute20
                     HAVING NVL (SUM (apsa.amount_remaining), 0) <>
                                                            0
                                                             --check condition
                   UNION ALL
                   SELECT   aia.invoice_id, aia.invoice_num,
                            aia.invoice_type_lookup_code, aia.invoice_date,
                            pv.vendor_id, pv.segment1, pv.vendor_name,
                            pvsa.vendor_site_id, pvsa.vendor_site_code,
                            aia.invoice_amount, aia.amount_paid
                                                               -- RG3: Montant repris = valeur restante a regler
                            ap_invoices_utility_pkg.get_prepay_amount_remaining
                                           (aia.invoice_id)
                                                           "Amount_Remaining",
                            ap_invoices_utility_pkg.get_approval_status
                                         (aia.invoice_id,
                                          aia.invoice_amount,
                                          aia.payment_status_flag,
                                          aia.invoice_type_lookup_code
                                         ) statut,
                            aia.invoice_currency_code, aia.exchange_rate,
                            aia.exchange_rate_type, aia.exchange_date,
                            ate.NAME terms_name, aia.terms_date, aia.SOURCE,
                            aia.doc_category_code,
                            aia.payment_method_lookup_code,
                            aia.pay_group_lookup_code, aia.gl_date,
                            aia.doc_sequence_id,
                            aia.accts_pay_code_combination_id,
                            cgey_tools_pkg.get_segments_from_ccid
                               (aia.accts_pay_code_combination_id
                               ) cle_comptable_founisseur,
                            aia.org_id, aia.payment_cross_rate_type,
                            aia.payment_cross_rate_date,
                            aia.payment_cross_rate, aia.payment_currency_code,
                            aia.attribute_category, aia.attribute1,
                            aia.attribute2, aia.attribute3, aia.attribute4,
                            aia.attribute5, aia.attribute6, aia.attribute7,
                            aia.attribute8, aia.attribute9, aia.attribute10,
                            aia.attribute11, aia.attribute12, aia.attribute13,
                            aia.attribute14, aia.attribute15,
                            aia.global_attribute_category,
                            aia.global_attribute1, aia.global_attribute2,
                            aia.global_attribute3, aia.global_attribute4,
                            aia.global_attribute5, aia.global_attribute6,
                            aia.global_attribute7, aia.global_attribute8,
                            aia.global_attribute9, aia.global_attribute10,
                            aia.global_attribute11, aia.global_attribute12,
                            aia.global_attribute13, aia.global_attribute14,
                            aia.global_attribute15, aia.global_attribute16,
                            aia.global_attribute17, aia.global_attribute18,
                            aia.global_attribute19, aia.global_attribute20
                       FROM ap_invoices_all aia,
                            po_vendor_sites_all pvsa,
                            ap_terms ate,
                            po_vendors pv
                      WHERE 1 = 1
                        -- RG2: Type de la facture
                        AND aia.invoice_type_lookup_code = 'PREPAYMENT'
                        -- RG2: Amount_Paid Invoice_Amount
                        AND NVL (aia.invoice_amount, 0) =
                                                      NVL (aia.amount_paid, 0)
                        AND pvsa.vendor_site_id = aia.vendor_site_id
                        AND ate.term_id = aia.terms_id
                        AND pv.vendor_id = aia.vendor_id
                        -- RG2: Ensemble des lignes de la facture postees
                        AND NOT EXISTS (
                               SELECT 'x'
                                 FROM ap_invoice_distributions_all aida
                                WHERE aida.invoice_id = aia.invoice_id
                                  AND NVL (aida.accrual_posted_flag, 'N') =
                                                                           'Y')
                                                             --check condition
                        -- pour la société absorbée
                        AND aia.org_id =
                                      (SELECT organization_id
                                         FROM hr_all_organization_units haou
                                        WHERE haou.NAME = lv$societe_absorbee)
                        -- RG 1: pour les factures créées antétieur à la date de fusion
                        AND aia.creation_date < lv$date_fusion
                   GROUP BY aia.invoice_id,
                            aia.invoice_num,
                            aia.invoice_type_lookup_code,
                            aia.invoice_date,
                            pv.vendor_id,
                            pv.segment1,
                            pv.vendor_name,
                            pvsa.vendor_site_id,
                            pvsa.vendor_site_code,
                            aia.invoice_amount,
                            aia.amount_paid,
                            aia.payment_status_flag,
                            aia.invoice_currency_code,
                            aia.exchange_rate,
                            aia.exchange_rate_type,
                            aia.exchange_date,
                            ate.NAME,
                            aia.terms_date,
                            aia.SOURCE,
                            aia.doc_category_code,
                            aia.payment_method_lookup_code,
                            aia.pay_group_lookup_code,
                            aia.gl_date,
                            aia.doc_sequence_id,
                            aia.accts_pay_code_combination_id,
                            aia.org_id,
                            aia.payment_cross_rate_type,
                            aia.payment_cross_rate_date,
                            aia.payment_cross_rate,
                            aia.payment_currency_code,
                            aia.attribute_category,
                            aia.attribute1,
                            aia.attribute2,
                            aia.attribute3,
                            aia.attribute4,
                            aia.attribute5,
                            aia.attribute6,
                            aia.attribute7,
                            aia.attribute8,
                            aia.attribute9,
                            aia.attribute10,
                            aia.attribute11,
                            aia.attribute12,
                            aia.attribute13,
                            aia.attribute14,
                            aia.attribute15,
                            aia.global_attribute_category,
                            aia.global_attribute1,
                            aia.global_attribute2,
                            aia.global_attribute3,
                            aia.global_attribute4,
                            aia.global_attribute5,
                            aia.global_attribute6,
                            aia.global_attribute7,
                            aia.global_attribute8,
                            aia.global_attribute9,
                            aia.global_attribute10,
                            aia.global_attribute11,
                            aia.global_attribute12,
                            aia.global_attribute13,
                            aia.global_attribute14,
                            aia.global_attribute15,
                            aia.global_attribute16,
                            aia.global_attribute17,
                            aia.global_attribute18,
                            aia.global_attribute19,
                            aia.global_attribute20
                     HAVING ap_invoices_utility_pkg.get_prepay_amount_remaining
                                                               (aia.invoice_id) <>
                                                                             0
                        AND ap_invoices_utility_pkg.get_approval_status
                                                 (aia.invoice_id,
                                                  aia.invoice_amount,
                                                  aia.payment_status_flag,
                                                  aia.invoice_type_lookup_code
                                                 ) = 'AVAILABLE');
                                                            --check condition;
      rec_fusion_extract_ap_invoice   cur_fusion_extract_ap_invoice%ROWTYPE;
   BEGIN
      ---------Initialisation
      pn_retcode := 0;
      pv_errbuff := NULL;
      ln_compteur_lignes := 0;
      lv_societe_absorbee :=
         cgey_tools_pkg.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE',
                                                'SOC_SR'
      lv_societe_absorbante :=
         cgey_tools_pkg.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE',
                                                'SOC_CB'
      lv_date_fusion :=
         cgey_tools_pkg.get_date_parameter ('SPR_FUSION_AP_SOCIETE',
                                            'DATE_FUSION'
      lv_rep :=
         cgey_tools_pkg.get_varchar2_parameter ('SPR_FUSION_AP_SOCIETE',
                                                'REPERTOIRE_SORTIE'
      ----err_non_parameter
      IF    lv_societe_absorbee IS NULL
         OR lv_societe_absorbante IS NULL
         OR lv_date_fusion IS NULL
         OR lv_rep IS NULL
      THEN
         RAISE err_non_parameter;
      END IF;
      SELECT NVL (organization_id, 'NULL')
        INTO ln_org_id
        FROM hr_all_organization_units haou
       WHERE haou.NAME = lv_societe_absorbee;
      ----err_Soc_sr
      IF ln_org_id = 'NULL'
      THEN
         RAISE err_soc_sr;
      END IF;
      BEGIN
         ----Création du fichier sorti
         cgey_tools_pkg.put_log_message
                               ('Création et Ouverture du fichier en lecture');
         lv_name :=
               'FUSION_fac_AP_EXTRAIRE'
            || TO_CHAR (SYSDATE, 'DDMMYYYY_HH24MISS')
            || '.txt';
         cgey_tools_pkg.put_log_message ('Fichier sortie est ' || lv_name);
         lt_id := UTL_FILE.fopen (lv_rep, lv_name, 'w');
         IF UTL_FILE.is_open (lt_id)
         THEN
            cgey_tools_pkg.put_log_message (cv_line);
            cgey_tools_pkg.put_log_message (   'Creation OK du fichier: '
                                            || lv_name
         ELSE
            cgey_tools_pkg.put_log_message (cv_line);
            cgey_tools_pkg.put_log_message
                                         (   'Probleme ouverture du fichier '
                                          || lv_name
         END IF;
      ----EXCEPTION UTL_FILE.WRITE_ERROR, UTL_FILE.INVALID_PATH
      EXCEPTION
         WHEN UTL_FILE.write_error
         THEN
            RAISE err_file_write;
         WHEN UTL_FILE.invalid_path
         THEN
            RAISE err_file_invalid_path;
      ----Création du fichier sorti
      END;
      BEGIN
         UTL_FILE.put_line (lt_id, vv_entete);
         ----CURSOR FACTURE A EXTRAIRE
         OPEN cur_fusion_extract_ap_invoice (lv_societe_absorbee,
                                             lv_societe_absorbante,
                                             lv_date_fusion
         LOOP
            FETCH cur_fusion_extract_ap_invoice
             INTO rec_fusion_extract_ap_invoice;
            EXIT WHEN cur_fusion_extract_ap_invoice%NOTFOUND;
            lv_invoice_id := rec_fusion_extract_ap_invoice.invoice_id;
            ln_compteur_hold := 0;
            lv_hode_reason := NULL;
            lv_release_reason := NULL;
            OPEN cur_ap_hold_invoices
                                    (rec_fusion_extract_ap_invoice.invoice_id);
            LOOP
               FETCH cur_ap_hold_invoices
                INTO rec_ap_hold_invoices;
               EXIT WHEN cur_ap_hold_invoices%NOTFOUND;
               ----La première blocage à traiter
               IF ln_compteur_hold = 0
               THEN
                  lv_hode_reason :=
                                  NVL (rec_ap_hold_invoices.hold_reason, ' ');
                  lv_release_reason :=
                               NVL (rec_ap_hold_invoices.release_reason, ' ');
               ----concatener des autres blocages suivants pour la même facture
               ELSE
                  lv_hode_reason :=
                        lv_hode_reason
                     || NVL (rec_ap_hold_invoices.hold_reason, ' ');
                  lv_release_reason :=
                        lv_release_reason
                     || NVL (rec_ap_hold_invoices.release_reason, ' ');
               END IF;
               ln_compteur_hold := ln_compteur_hold + 1;
            END LOOP;
            CLOSE cur_ap_hold_invoices;
            vv_buffer :=
                  NVL (lv_societe_absorbee, ' ')
               || vv_separator
               || NVL (lv_societe_absorbante, ' ')
               || vv_separator
               || NVL (TO_CHAR (lv_date_fusion, 'dd/mm/yyyy'), ' ')
               || vv_separator
               || NVL (TO_CHAR (rec_fusion_extract_ap_invoice.invoice_id),
               || vv_separator;
            UTL_FILE.put_line (lt_id, vv_buffer);
            ln_compteur_lignes := ln_compteur_lignes + 1;
         END LOOP;
         cgey_tools_pkg.put_log_message
                                       (   TO_CHAR (ln_compteur_lignes)
                                        || ' lignes inserees dans le fichier '
                                        || lv_rep
                                        || '/'
                                        || lv_name
         CLOSE cur_fusion_extract_ap_invoice;
         UTL_FILE.fclose (lt_id);
         cgey_tools_pkg.put_log_message (' ');
         cgey_tools_pkg.put_log_message (cv_line);
      EXCEPTION
         WHEN OTHERS
         THEN
            ROLLBACK;
            RAISE err_ecriture_file;
      END;
   EXCEPTION
      WHEN err_non_parameter
      THEN
         pn_retcode := SQLCODE;
         cgey_tools_pkg.put_log_message ('error' || SQLCODE);
         cgey_tools_pkg.put_log_message
            ('error parameter : Veuillez vous verifier la configuration dans la table CGEY_PARAMETERS!'
      WHEN err_soc_sr
      THEN
         pn_retcode := SQLCODE;
         cgey_tools_pkg.put_log_message ('error' || SQLCODE);
         cgey_tools_pkg.put_log_message
            ('error société_absorbée : Veuillez vous verifier le parameter de la société absorbée !'
      WHEN err_file_write
      THEN
         UTL_FILE.fclose (lt_id);
         pv_errbuff := SQLERRM;
         pn_retcode := SQLCODE;
         cgey_tools_pkg.put_log_message ('error' || SQLCODE);
         cgey_tools_pkg.put_log_message ('erreur write_error:' || pv_errbuff);
      WHEN err_file_invalid_path
      THEN
         UTL_FILE.fclose (lt_id);
         pn_retcode := SQLCODE;
         pv_errbuff := SQLERRM;
         cgey_tools_pkg.put_log_message ('error' || SQLCODE);
         cgey_tools_pkg.put_log_message ('erreur invalid_path:' || pv_errbuff);
      WHEN err_ecriture_file
      THEN
         UTL_FILE.fclose (lt_id);
         pn_retcode := SQLCODE;
         pv_errbuff := SQLERRM;
         cgey_tools_pkg.put_log_message ('error' || SQLCODE);
         cgey_tools_pkg.put_log_message ('err_ecriture_file:' || pv_errbuff);
      WHEN OTHERS
      THEN
         cgey_tools_pkg.put_log_message
            ('Une Erreur inconnue arrive lors que l''extraction du FUSION_fac_AP_EXTRAIRE!!'
   END main_fusion_extract;
END spr_ap_fusion_extract_pkg;*009*
Edited by: 009 on Mar 11, 2010 3:31 AM