DROP FUNCTION actualizar_pago(character varying, character varying, character varying, character varying, integer, character varying, double precision, integer, date, integer, double precision, double precision);

CREATE OR REPLACE FUNCTION actualizar_pago(id_solicitud character varying, nit_empresa character varying, usuario_reg character varying, num_doc_usr character varying, id_tipo_doc_fac integer, num_fac character varying, ttl double precision, id_tipo_doc_usr integer, fecha_pag date, id_trans integer, ivapago double precision, subttl double precision)
  RETURNS SETOF record AS
$BODY$
DECLARE
id_ctl_estado_proc INTEGER = 4;
respuestavalidacion CHARACTER VARYING;
numerosolicitud CHARACTER VARYING;
respuestasolicitud CHARACTER VARYING = '0';
parametro_pago_no_valido CHARACTER VARYING = '17';
nitempresa CHARACTER VARYING;
solid INTEGER;
solpagoid INTEGER = 0;
detpagoid INTEGER;
preciounitario REAL;
idpagocreado INTEGER;
iva REAL;
totalprecio REAL;

BEGIN
    SELECT detpago.id, sol.id, solpago.id INTO detpagoid, solid, solpagoid
    FROM alim_solicitud sol left join alim_detalle_solicitud_pago detpago on detpago.id_alim_solicitud = sol.id left join alim_pago_solicitud solpago on solpago.id = detpago.id_alim_solicitud_pago
    WHERE sol.codigo_solicitud = id_solicitud ;
    IF (solpagoid = 0)
        THEN respuestasolicitud := parametro_pago_no_valido;
    ELSE
        UPDATE alim_pago_solicitud SET(usuario_registro, num_documento_usuario, id_tipo_documento_factura, num_factura, total, id_ctl_estado_proceso, id_tipo_documento_usuario, fecha_pago, id_transaccion_bcr, iva, sub_total) = (usuario_reg, num_doc_usr, id_tipo_doc_fac, num_fac, ttl, id_ctl_estado_proc, id_tipo_doc_usr, fecha_pag, id_trans, ivapago, subttl)
        WHERE id = solpagoid;

    END IF;
        RETURN query SELECT id_solicitud, respuestasolicitud;
END ;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100
  ROWS 1000;