Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je n'ai pas beaucoup de connaissance en DELPHI, néanmoins je souhaiterai ajouter une procédure stockée sur le clic d'un bouton.

La procédure fait appel à un paramètre qui est la RefClient.

En recherchant, j'ai ajouté le code suivant sur mon bouton

procedure AjouterReg_OnClick(Sender);
begin
SysExecNotifyEvent(vAjouterReg_OnClick, AjouterReg);
Buro_NotesFacturesEchues.parambyname('@RefClient').asstring :=dsFacture.Dataset.FieldByName('CLI_CODCLI').AsString;
Buro_NotesFacturesEchues.execproc;
end;

Lorsque je clic sur le bouton de mon écran, j'ai le message suivant suivant qui s'affiche

Symbole Buro_NotesFacturesEchues non trouvé. Position (406)

Pouvez-vous m'aider à règler ce problème.

Merci d'avance

Daniel

[SergioMaster]

Bonjour,
Procédure stockée ok , mais de quel SGBD et renvoie t'elle des données ? et quels composants d'accès a la Base?

Perso , j'utilise Firebird , pour une procédure stockée 2 solutions
- avant , avec le BDE , j'utilisais TStoredProc
avec DBExpress ( peu utilisé)

Maintenant , j'utilise une procédure me renvoyant des données comme une Query 'classique' (Zeos, Firedac)
et ce via une Query

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM PROCEDURE(:Param)

et un Open

[Daniel MOREAU]

Re,

Merci pour la réponse.

C'est une procédure créée sous sql server studio express dont voici le code :

ALTER PROCEDURE [dbo].[IncCompteur]
@compteurID integer,
@newValue varchar(20) output,
@RefClient varchar(20)
AS
Declare @n integer
Declare @mes varchar(50)
Declare @CodeClient varchar(20)
begin transaction

select @n = compteur from compteurs c (tablock) where c.code = @compteurID

update compteurs
set compteur = compteur + 1
where code = @compteurID

select @newValue = convert(varchar(20), @n)
select @RefClient = @CodeClient
commit transaction

Le bouton de mon écran fait appel à cette procédure.

Je l'ai donc modifié (couleur orange) en sorte de pouvoir récupérer le paramètre RefClient utilisé dans la seconde procédure stockée Buro_NotesFacturesEchues.

Le code est-il correct ?
Faut-il procéder différemment ?

Merci pour ton aide.

Daniel

[Rayek]

Quelle est le type du composant Buro_NotesFacturesEchues ? (TStoredProc, TAdoStoredProc, TBiduleStorecProc, TQuery, etc ...)

[ShaiLeTroll]

output affecte-il juste newValue ? ou newValue ET RefClient ?
Je pense qu'il manque output sur RefClient pour indiquer que c'est un paramètre de retour !
@CodeClient n'étant jamais alimenté, cela ne sert à rien !
Tu ne sembles pas du tout savoir ce que tu fais !

Difficile de comprendre le lien entre IncCompteur et Buro_NotesFacturesEchues !
Avec le code fourni, on ne voit pas de lien !

Est-ce le bon utilisateur ?
Peut-être que ton utilisateur DB en cours n'a pas le droit d'utiliser (ou même de connaitre) l'existence de Buro_NotesFacturesEchues dans ta DB SQL Server (je ne connais pas les droits sur le schéma de ce SGBD)

Pourquoi ne pas plutôt faire un CREATE SEQUENCE ?
la SEQUENCE est justement conçu pour gérer un compteur robuste à l'accès
concurrentiel
Cela évitera de calculer soit même le compteur !

[Daniel MOREAU]

Re,

C'est une procédure stockée sous SQL SERVER (.

Je pense que c'est une TStoredProc

Voici le début du code de la procédure

set ANSI_NULLS OFF
set QUOTED_IDENTIFIER OFF
GO

ALTER PROCEDURE [dbo].[Buro_NotesFacturesEchues]
@RefClient char(20)
AS
SET LANGUAGE US_ENGLISH
declare @MaxNum int
declare @NbFEch int
declare @NbFTot int
declare @NomClient char(20)
declare @TotEchu float
declare @TotEncours float
declare @CodeCompta char(10)
declare @CodeCial char(10)
declare @blocage char(20)
declare @MaxDateEch char(10)

SET ANSI_NULL_DFLT_ON ON
SET NOCOUNT OFF



Declare Cur_art insensitive Cursor for
select G.CLI_CODCLI, sum(g.NbFreEchu) as NbFactEchue, sum(g.TotalEchu) as TotEchu, sum(G.totalNonRgl) as totEncours, sum(g.nbfactMOIS) as nbfact, G.ANOMFAC, G.CODE_COMPTABLE, g.REP_CODE, g.blocage, max(g.DepasEch) as MaxdateEch

Merci