SQLStoredProc1: TSQLStoredProc X SQL Server 2000
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
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
Curtidas 0