Unassigned Code dans un Procédure

Version imprimable

09/08/2008, 11h19
JP.NUAGE

Unassigned Code dans un Procédure

:salut:

Bonjour à tous

J'ai depuis un certain temps un message bizarre. Dans un application j'utilise une procédure enregistrée. (J'utilise Firebird). Lorsque je l'execute, j'ai le message

Code:

unassigned code

Par IBExpert, je visualise ma procédure et je n'en garde que le début, le reste étant mis entre /* */. Je lance l'appli et tout fonctionne

Je revisualise la procédure et je déplace le premier /* pour avoir un peu plus de code actif. Je lance : tout fonctionne.

Je répère l'opération j'usqu'à avoir à nouveau toute la procédure active et là tout fonctionne. Je précise que lors de ces opérations je n'ai RIEN modifié dans le procédure NI dans l'appli.

????????????? :?:?:?:?:?

Quid ?
13/08/2008, 08h32
popo

De quel procédure parles-tu :
- procédure stockée ?
- procédure dans le sens de programmation procédurale ?

Avec un peu de code ce serait plus facile de t'aider

Il s'agit d'une procédure stocké (donc créée avec IBExpert)

Je veux bien envoyer du code, mais alors, j'envoie toutes mes procédures, car le problème n'est pas lié à UNE procédure. Je viens de l'avoir avec une procédure différente de celle qui m'embétait lors du premier post. A toute fin utiles, voici la dernière qui m'a embété :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 begin
 /* Procedure Text */
  total_ttc = :prix * :quantite * (1-:remise/100);
  mois = extract(month from current_date);
  if (:taillec = 'G') then
    execute procedure get_taille_simple(:entree,:PALETTE,:RANG)
       returning_values(:code_article_vendu);
---- 1111
   if (:taillec = 'N') then
    execute procedure get_taillen_simple(:entree,:TAILLE)
       returning_values(:code_article_vendu,qte);
 
   EXECUTE PROCEDURE get_code_vente (:ENTREE)
        RETURNING_VALUES (:CODE_ARTICLE_VENDU,:LIB_ART,:PRIX_VENTE, :QTE_RESTANTE,
        :PRIX_HT,:FAMILLE,:FOURNIS, :CD_TVA);
---- 2222
  if (:QTE_RESTANTE < 1) then EXCEPTION DETAIL_VENTE_ART_EPUISE;
 
  Select av.SEUIL_ALARME
    from ART_VENTE av
    where av.CODE_ART_VEN = :CODE_ARTICLE_VENDU
    into :QTESEUIL;
---- 3333
 
  ID_DETAIL_VENTE = GEN_ID(gen_id_detail_vente,1);
 
----  4444
  INSERT INTO detail_vente (
    id_detail_vente,
    id_entete,
    code_art_ven,
    libelle_article,
    couleur_ven,
    TAILLEGR_VEN,
    etat_ligne_ven,
    code_hto,
    code_vendeur,
    taillen,
    taillec,
    quantite_ligne_vente,
    MONT_UNITAIRE_VENTE,
    palette_ven,
    rang_ven,
    username,
    dossier,
    mont_rem_pourc)
    VALUES (
    :ID_DETAIL_VENTE,
    :ID_ENTETE,
    :CODE_ARTICLE_VENDU,
    :LIB_ART,
    :couleur,
    :taillegr,
    NULLIF(:ETAT,''), -- renvoie NULL si ETATS = ''.
    COALESCE(nullif(:HTO,''),(SELECT e.hto_entete FROM entete_dossier_encours e WHERE e.id_entete=:ID_ENTETE)),
    NULLIF(:VENDEUR,''),
    :taille,
    :taillec,
    COALESCE(NULLIF(:QUANTITE,0),1), 
    :PRIX,
    :palette,
    :rang, 
    COALESCE(nullif(:USERNAME,''),USER),
    :DOSSIER,
    :remise);
---- 5555
    update art_vente a
      set a.ca_saison_ven = a.ca_saison_ven + :total_ttc
      where a.code_art_ven = :code_article_vendu;
  suspend;
----  */
end

les ---- xxxx sont les endroits où j'ai mis, petit bout par petit bout, des /* pour désactiver la suite

26/11/2009, 11h27
ON1LLI

Unassigned code

Bonjour, j'ai actuellement le même problème lorsque j'appelle des procédures stockées depuis delphi 2006.
Sous IBExpert, mes procédures fonctionnent correctement, mais lorsque je les appelle depuis Delphi, un message unassigned code est systématiquement retourné.

Avez-vous une idée ?