CREATE OR REPLACE PROCEDURE sp_fdt_alta_emb_tipo_nom  
(  
    pch_compania      char,  
    pch_trabajador    char,  
    psi_concepto      NUMBER,
    pti_secuencia     NUMBER,
    pch_tipo_nom	   char,
    pti_alta          NUMBER
)  
/*********************************************************************/  
/*** Modulo:      Módulo Fiscal ADAM V.3 - Embargos                ***/  
/*** Descripcion: Crea o Actualiza los tipos de nomina del embargo ***/  
/*** Autor:   Laura A. Guzmán                                      ***/  
/*** Fecha:   Junio 28 de 2006                                     ***/  
/*** Motor:   SQL Server 7.0 Version interna: 1.00                 ***/  
/*********************************************************************/  
AS  
BEGIN  
    DELETE FROM fdt_embargos_tipo_nom
    WHERE compania = pch_compania And   
    trabajador = pch_trabajador And  
    concepto = psi_concepto And  
    secuencia = pti_secuencia and
    tipo_nomina = pch_tipo_nom;

    IF pti_alta = 1 THEN
        INSERT INTO fdt_embargos_tipo_nom
            (compania,  
             trabajador,  
             concepto,  
             secuencia,  
             tipo_nomina)  
        VALUES  
            (pch_compania,  
             pch_trabajador,  
             psi_concepto,  
             pti_secuencia,  
             pch_tipo_nom);
    END IF;
    COMMIT;

END;
/
CREATE PUBLIC SYNONYM sp_fdt_alta_emb_tipo_nom FOR ADAM.sp_fdt_alta_emb_tipo_nom;
GRANT EXECUTE ON sp_fdt_alta_emb_tipo_nom TO ADAMA;
