REVELAR

Fórum SQLStoredProc1: TSQLStoredProc X SQL Server 2000 #337436

06/02/2007

0

Crio os parametros.

Quando executo List index(0) bounds.

Por favor que resolver isto...??
QryNum.Close;
QryNum.StoredProcName := ´sp_Numeracao´;
QryNum.Params.CreateParam(ftString,´tipodoc´,ptInput);
QryNum.Params.CreateParam(ftInteger,´empresa´,ptInput);
QryNum.Params.CreateParam(ftInteger,´filial´,ptInput);
QryNum.Params.CreateParam(ftInteger,´carteira´,ptInput);
QryNum.Params.CreateParam(ftInteger,´codigo´,ptOutput);
QryNum.ParamByName(´tipodoc´).AsString := ´DEVEDOR´;
QryNum.ParamByName(´empresa´).AsInteger := 1;
QryNum.ParamByName(´filial´).AsInteger := 1;
QryNum.ParamByName(´carteira´).AsInteger := 1;
QryNum.Prepared := True;
QryNum.ExecProc;
Result := QryNum.FieldByName(´codigo´).AsInteger;}


Marcus Cesar


Marcusco

Marcusco

Responder

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

Aceitar