Fórum Erro Stored Procedure Oracle #220684

17/03/2004

0

TENHO UMA PROCEDURE NO ORACLE COM A SEGUINTE ASSINATURA:

CREATE OR REPLACE PROCEDURE LOGINPMS
(E_CDEMP IN EMP.CDEMP¬TYPE, --CODIGO DA EMPRESA
E_CDSIS IN SIS.CDSIS¬TYPE, --CODIGO DO SISTEMA
E_IDUSU IN USU.IDUSU¬TYPE, --IDENTIFICACAO DO USUARIO
E_CDSNHATUAL IN USU.CDSNHATUAL¬TYPE, --SENHA DIGITADA
E_NUACS IN SISUSU.NUACS¬TYPE, --NUMERO DO ACESSO
S_SYSDATE OUT VARCHAR2, --DATA DO SISTEMA
S_CDPFL OUT PFL.CDPFL¬TYPE, --CODIGO DO PERFIL
S_NMFTSEMP OUT EMP.NMFTSEMP¬TYPE, --NOME FANTASIA DA EMPRESA
S_CDERRO OUT NUMBER, --CODIGO DE ERRO
S_DEERRO OUT VARCHAR2) --DESCRICAO DO ERRO

ONDE:
CDEMP NOT NULL NUMBER(5)
CDSIS NOT NULL VARCHAR2(3)
IDUSU NOT NULL VARCHAR2(20)
CDSNHATUAL VARCHAR2(10)
NUACS NUMBER(18)
CDPFL NOT NULL NUMBER(5)
NMFTSEMP NOT NULL VARCHAR2(12)


ESTOU FAZENDO A SEGUINTE CHAMADA A STORED PROCEDURE:

with SQLDataSetLogin do begin
try
CommandText := ´LOGINPMS´;
ParamByname(´E_CDEMP´).AsInteger := 1;
ParamByname(´E_CDSIS´).AsString := ´E_C´;
ParamByname(´E_IDUSU´).AsString := txtCdUsu.Text;
ParamByname(´E_CDSNHATUAL´).AsString := txtCdSnh.Text;
ParamByname(´E_NUACS´).AsBCD := 1;
ExecSql;
txtSysdate.Text := ParamByname(´S_SYSDATE´).AsString;
txtCdPfl.Text := ParamByname(´S_CDPFL´).AsString;
txtDeErro.Text := ParamByname(´S_DEERRO´).AsString;
txtCdErro.Text := ParamByname(´S_CDERRO´).AsString;
except
on E: Exception do txtDeErro.Text := E.Message;
end;
end;

E OBTENDO O SEGUINTE ERRO:
Project menu.exe raised exception class EDatabaseError with message
´dbExpress Error: Invalid Parameter´. Process stopped or Run to continue.


Orlandodias

Orlandodias

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar