Fórum Duvida select case ou stored procedure #58613

select LANCA_CHEQUE, EMITENTE, VALOR, NUMECHEQUE, BANCO, AGENCIA, DATADEPOSITO, OBS, DATAREPASSE,
DATADEPOSITADO, STATUS, ID_CLIENTES, ID_FORNECEDOR, DATADEVOLUCAO, MOTIVODEV, TIPO,
ID_PLANO_CONTAS, ID_CONTA, DATAENTRADA, tipolancamento,
CASE TIPOLANCAMENTO
  when ´C´ then ´CHEQUE´
  when ´D´ then ´DINHEIRO´
  else
      ´campo em branco ou valor incorreto´
  end as tipo_de_lancamento
from T_chequespre

CREATE PROCEDURE SPCHEQUECD 
returns (
    lanca_cheque integer,
    dataentrada date,
    emitente varchar(40),
    valor double precision,
    numecheque varchar(15),
    banco varchar(10),
    agencia varchar(15),
    datadeposito date,
    obs varchar(40),
    datarepasse date,
    datadepositado date,
    status char(1),
    id_clientes integer,
    id_fornecedor integer,
    datadevolucao date,
    motivodev smallint,
    tipo char(1),
    id_plano_contas integer,
    id_conta integer,
    tipolancamento char(1),
    tipodolancamento varchar(100))
as
begin
for
    select LANCA_CHEQUE, EMITENTE, VALOR, NUMECHEQUE,
    BANCO, AGENCIA, DATADEPOSITO, OBS, DATAREPASSE,
    DATADEPOSITADO, STATUS, ID_CLIENTES, ID_FORNECEDOR,
    DATADEVOLUCAO, MOTIVODEV, TIPO,
    ID_PLANO_CONTAS, ID_CONTA, DATAENTRADA, tipolancamento
    from
    T_chequespre
    into :LANCA_CHEQUE, :EMITENTE, :VALOR, :NUMECHEQUE,
    :BANCO, :AGENCIA, :DATADEPOSITO, :OBS, :DATAREPASSE,
    :DATADEPOSITADO, :STATUS, :ID_CLIENTES, :ID_FORNECEDOR,
    :DATADEVOLUCAO, :MOTIVODEV, :TIPO,
    :ID_PLANO_CONTAS, :ID_CONTA, :DATAENTRADA, :tipolancamento
do
begin
    if (tipolancamento = ´C´) then
       tipodolancamento = ´Cheque´;
    else
       tipodolancamento = ´Dinheiro´;
    suspend;
 end
end