USE [Sis2000]
GO

-- Crear SP para insertar cliente faltante en maclient
IF OBJECT_ID('sp_TarjetaCrearClienteFaltante', 'P') IS NOT NULL
    DROP PROCEDURE sp_TarjetaCrearClienteFaltante;
GO

CREATE PROCEDURE sp_TarjetaCrearClienteFaltante
    @p_cci_rif NUMERIC(20, 0),
    @p_xcliente VARCHAR(200),
    @p_itipopers CHAR(1) = 'J'
AS
BEGIN
    SET NOCOUNT ON;
    
    DECLARE @v_existe INT;
    
    -- Verificar si ya existe el cliente
    SELECT @v_existe = COUNT(*) 
    FROM maclient 
    WHERE cci_rif = @p_cci_rif;
    
    IF @v_existe = 0
    BEGIN
        -- Insertar el cliente faltante
        INSERT INTO maclient (
            cci_rif,
            xcliente,
            itipopers,
            iestado,
            fingreso,
            cusuario,
            fultmod,
            cusuariomod
        ) VALUES (
            @p_cci_rif,
            @p_xcliente,
            @p_itipopers,
            'V',
            GETDATE(),
            'admin',
            GETDATE(),
            'admin'
        );
        
        SELECT 1 as resultado, 'Cliente creado exitosamente' as mensaje;
    END
    ELSE
    BEGIN
        SELECT 0 as resultado, 'El cliente ya existe' as mensaje;
    END
END
GO

PRINT 'SP sp_TarjetaCrearClienteFaltante creado exitosamente'
GO
