Fórum Retorno True/False para Stored Procedure #55062

begin
    SELECT COUNT(*) AS QTD FROM CONTROLE_VERSAO
    WHERE (CONTROLE_VERSAO.ID_PAI = :ID_L) AND
          (CONTROLE_VERSAO.TIPO_ARQUIVO = :TIPO_ARQ) INTO :QTD;

    if (QTD = 0) then
    begin
        INSERT INTO CONTROLE_VERSAO
            (ID_PAI, TIPO_ARQUIVO, CRC, DATA_HORA)
        VALUES
            (:ID_L, :TIPO_ARQ, :CRC, :DTHR);
    end
    else
    begin
        UPDATE CONTROLE_VERSAO SET
            ID_PAI = :ID_L,
            TIPO_ARQUIVO = :TIPO_ARQ ,
            CRC = :CRC,
            DATA_HORA = :DTHR
        WHERE CONTROLE_VERSAO.ID_PAI = :ID_L AND
              CONTROLE_VERSAO.TIPO_ARQUIVO = :TIPO_ARQ;
    end

    suspend;
end