-- Start of DDL Script for Procedure NOVA.PR_CREATE_EXPORT_IC_ALL
-- Generated 16-mars-2022 8:15:03 from NOVA@smart02

CREATE OR REPLACE 
PROCEDURE pr_create_export_ic_all  (
      idu_p        VARCHAR2,
      prg_p        VARCHAR2,
      dat_p        NUMBER,
      hre_p        NUMBER,
      pas_p        NUMBER
      ) is 
      begin
      
      declare
v_per number;
v_ann number;
inbr number;
begin
v_per :=to_char(ADD_MONTHS(sysdate,-1),'MM');
v_ann :=to_char(ADD_MONTHS(sysdate,-1),'yyyy');


INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'PAS',pas_p,NULL,'JCPT',0,0,NULL);
                
                
 INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'PER_DE',v_per,NULL,'JCPT',0,0,NULL);
                
 INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'DATE_REF',to_char(sysdate,'yyyyMMdd'),NULL,'JCPT',0,0,NULL);   
                
                
                 
                
 INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'DAT_REF',to_char(sysdate,'yyyyMMdd'),NULL,'JCPT',0,0,NULL); 
                
                INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'ParamDe0',to_char(sysdate,'yyyyMMdd'),NULL,'JCPT',0,0,NULL); 
                
                                             
                
 INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'ANN_DE',v_ann,NULL,'JCPT',0,0,NULL);

       /* INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'COMPTA_OK','0',NULL,'JCPT',0,0,NULL);
                */
        
        INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'SAUT_PAGE','0',NULL,'JCPT',0,0,NULL);
        INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'JUSTIF_RUB','1',NULL,'JCPT',0,0,NULL);
        INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'JUSTIF_CT','1',NULL,'JCPT',0,0,NULL);
        INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'DAT_VAL',NULL,NULL,'JCPT',0,0,to_char(sysdate,'dd.mm.yyyy'));
        INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'MON',NULL,NULL,'JCPT',0,0,NULL);
              
            
            INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'MAT_DE',1,NULL,'JCPT',0,0,NULL);
                
                
                      
            INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'MAT_A',999999999,NULL,'JCPT',0,0,NULL);
            
            INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'TYP_PER','12',NULL,'JCPT',0,0,NULL);
                
                       INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'SELECT','0',NULL,'JCPT',0,0,NULL);
            
                
                  INSERT INTO slstp
                (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,
                LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,
                LSTP_FLTS,LSTP_TXT)
            VALUES
                (idu_p,dat_p,hre_p,'LANG_DOC','F',NULL,'JCPT',0,0,NULL);
                
                
           INSERT INTO slstp (LSTP_IDU,LSTP_DAT,LSTP_HRE,LSTP_TYP,LSTP_PAR,LSTP_CAT_NUM,LSTP_PRG,LSTP_TMP,LSTP_FLTS,LSTP_TXT,LSTP_LOC)
            select idu_p,dat_p,hre_p,'SRED_LET',srub_let,srub_num,'JCPT',0,1,NULL,NULL from  srub  where srub_pas=pas_p and srub_let in ('B','E', 'G', 'I');

       
     
        
     
 
 
 


INSERT INTO scivs (sciv_idu,sciv_dat,sciv_hre,sciv_pas,sciv_mat, sciv_prg)
                select distinct idu_p,dat_p,hre_p,SCIV_PAS,SCIV_MAT,'JCPT'
                    from sciv where
                       sciv_pas=pas_p and sciv_mil=1
                    ;
              



                    
         PR_INSERT_PRINTJOBPARAM(pas_p, idu_p, prg_p,dat_p, hre_p, 'F');
         pa_sb_compta.effacer( idu_p,0,0, prg_p);
  

        pa_sb_compta.initialiseretpiloter(idu_p,'JCPT',dat_p,hre_p,pas_p);
        
        
        
    pr_create_export_ic  (idu_p,'JCPT',dat_p,hre_p,pas_p);
    
    
    commit;
   
 

   
 
 exception  when others then null;

    end ;
    end;
/



-- End of DDL Script for Procedure NOVA.PR_CREATE_EXPORT_IC_ALL

