Devart Forums

Code: Select all

PROCEDURE AGREGA_CC_CREDITOS(pfcorteANT IN DATE, pfechafin IN DATE) 
IS
   emesg VARCHAR2 (2500) := 'Testing';
BEGIN
     
    dbms_output.enable(1000000);
    BEGIN
       
                           
           INSERT INTO BURO.PRE_BDSALDOS 
            (FCORTE, STATUS, FUENTEBD, CLNS, CDGCLNS, CICLO, CDGCL, INICICLO, FINCICLO, CANTENTRE, PLAZO, FREQPAGOS, PAGOESP, SALDO, SDOVENCIDO,
                    NUMPAGVEN, MOP, FCIERRECTA, CVEPREVENC, CDGRG, CDGCO)
             (SELECT pfechafin, CC.STATUSCC, CC.FUENTEBD, CC.CLNS, CC.CDGNS, CC.CICLO, CC.CDGCL, CC.INICICLO, CC.FINCICLO, CC.PRCCANTENT, 
                     CC.NUMPAGOS, CC.FREQPAGOS, CC.PAGOPACCL, CC.SALDOCL, CC.SDOVENCL, CC.NUMPAGVEN, CC.PAGOACTUAL, CC.FCIERRECTA, 
                     NULL AS CVEPREVENC, VPRC.CDGRG, VPRC.CDGCO -- null as cdgrg, null as cdgco 
             FROM CIRCRED.SALDOS  CC,
                  ICARO.VW_PRC  VPRC 
             WHERE CC.FCORTE = pfcorteANT AND CC.FUENTEBD = 'ESIACOM' AND CC.STATUSCC NOT IN ('CIERR') 
                   AND CC.CLNS = VPRC.CLNS AND CC.CDGNS = VPRC.CDGCLNS AND CC.CICLO = VPRC.CICLO AND CC.CDGCL = VPRC.CDGCL);  

    EXCEPTION  
        WHEN OTHERS THEN  --  <-- Como indicar que atrapa CUALQUIER EXCEPCION SIN DEJAR QUE LA DETECTE .NET ??
        emesg := 'ERROR: ' || SQLCODE || '-' || SQLERRM ;
        DBMS_OUTPUT.PUT_LINE(emesg);
    END;    
             
END AGREGA_CC_CREDITOS;

Code: Select all

//using System.Data.OracleClient;    //  --> If i use this, runs ok without exceptions!
using Devart.Data.Oracle;


      public void Agrega_CC_Creditos(DateTime pfcmesant, DateTime pffin)  // 02 -- AGREGA CREDITOS DE CC DE MES ANTERIOR
        {
            
            string connectionString = csutils.Varconst.BURO_cnstr;
            
            /* call stored procedure */
            using (OracleConnection cn = new OracleConnection(connectionString))
            {
                OracleCommand cmd = new OracleCommand("BURO.BC_CREDITOS.AGREGA_CC_CREDITOS", cn);
                cmd.CommandType = System.Data.CommandType.StoredProcedure;

                cmd.Parameters.AddWithValue("pfcorteANT", pfcmesant);
                cmd.Parameters.AddWithValue("pfechafin", pffin);
                
                try
                {   cn.Open();
                    cmd.ExecuteNonQuery();
                    
                }
                catch (OracleException ex)
                {
                    /* handles the exception and does not ignore it */
                   string mensaje = string.Empty;
                    mensaje = ex.Message;
                    MessageBox.Show(mensaje);
                }
                finally
                {   
                    cn.Close();
                    if (cmd != null) cmd.Dispose();
                }
            }
        }