Bonjour,

je travaille sur une application en windev et j ai un problème de suppression sur une table de la base de données
quand je teste la suppression sur la table indépendamment du projet la suppression est effective, mais quand j intègre le code dans le projet elle ne marche plus...

Qui saurait m aider?

ps: c est un travail de pisteur car c est pas moi qui ai initié le projet.
Et ce n'est pas un problème d'intégrité de clés puisque c est avec la meme base que j'ai fait la suppression hors du projet.
C'est une base de données hyperfilesql

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
PROCEDURE Fen_emplacement(gpallee,gpzone,gCodeallee,gpidallee,gpmode="C")
 
remplirtableaucodetarif()
 
remplirlistetarif()
HLitRecherchePremier(Emplacement,cleemplacement,[gMysalle:IDSalle,gpidallee,gpzone])
HModifie(Bloc)
SI HTrouve(Emplacement) ALORS
// FichierVersEcran("",Emplacement)
 
HLitRecherchePremier(Bloc,IDEmplacement,Emplacement.IDEmplacement)
Info("emplacement"+Emplacement.IDEmplacement)
TANTQUE HTrouve(Bloc)
HLitRecherchePremier(CodeTarif,CodeTarif,Bloc.CodeBloc)
TableAjouteLigne(TABLE_Bloc,Bloc.CodeBloc,Bloc.LibelleBloc,Bloc.CodeTarif,Bloc.Quantité,Bloc.longueur,Bloc.IDBloc)
HLitSuivant(Bloc)
FIN
 
SINON
HRAZ(Emplacement)
 
FIN
 
 
FichierVersEcran()
SEL_TYPEemplacement=1
INT_AvecGestion=1
 
SAI_Allee=gpidallee
SAI_Code_Allée=gCodeallee
SAI_Emplacement=gpzone
SAI_NomEmplacement=gMysalle:CodeSalle+"_"+SAI_Code_Allée+"_"+SAI_Emplacement
SAI_IDSalle=gMysalle:IDSalle
 
SAI_Code_local=gMysalle:CodeSalle
SAI_Libelle=gMysalle:libelle
LIB_site_etage="( "+gmyetage:CodeEtage+" Site "+gMysite:NomSite+" )"
 
 
SI _EVE.wParam=32 ALORS
_EVE.Retour=False
FIN
SAI_Quantité_maxi=TABLE_Bloc.COL_Quantité[ligneTotal]
 
 
SAI_Quantité_maxi=TABLE_Bloc.COL_Quantité[ligneTotal]
SI COL_IDTarif=0 ET COL_CodeBloc<>"" ALORS
Info("Vous devez saisir un code tarif")
RepriseSaisie(COL_IDTarif)
FIN
MoiMême=Remplace(COL_CodeBloc," ","")
 
 
SI COL_IDTarif..Valeur=0 ALORS
HRAZ(CodeTarif)
SI Ouvre(FEN_Fiche_Code_Tarif) ALORS
scodetarif est une chaîne=CodeTarif.CodeTarif
remplirtableaucodetarif()
remplirlistetarif()
MoiMême=scodetarif
FIN
FIN
SI TABLE_Bloc..Occurrence>15 ALORS
Info("nombre de box maximun est de 15")
RepriseSaisie(TABLE_Bloc)
FIN
SI SAI_Surface_totale=0 ALORS
Erreur("Vous devez saisir la surface totale de l'emplacement")
RepriseSaisie(SAI_Surface_totale)
FIN
//Emplacement.IDSalle=gMysalle:IDSalle
//EcranVersFichier()
//Emplacement.Quantité_maxi=SAI_Quantité_maxi
//Emplacement.surface_totale=SAI_Surface_totale
//Emplacement.nbBox=TABLE_Bloc..Occurrence
//SI Emplacement..NouvelEnregistrement ALORS
// HAjoute(Emplacement)
//SINON
// HModifie(Emplacement)
 
//FIN
//HRAZ(Bloc)
 
//POUR TOUTE LIGNE DE TABLE_Bloc
// HLitRecherchePremier(Bloc,IDBloc,TABLE_Bloc.col_idbloc)
// si pas htrouve(Bloc) alors
// Bloc.IDEmplacement=Emplacement.IDEmplacement
// Bloc.Quantité=TABLE_Bloc.COL_Quantité
// Bloc.CodeTarif=TABLE_Bloc.COL_IDTarif
// Bloc.longueur=TABLE_Bloc.COL_Longueur
// Bloc.CodeBloc=TABLE_Bloc.COL_CodeBloc
// bloc.LibelleBloc=TABLE_Bloc.COl_libelle
// HAjoute(Bloc)
// sinon
// Bloc.Quantité=TABLE_Bloc.COL_Quantité
// Bloc.CodeTarif=TABLE_Bloc.COL_IDTarif
// Bloc.longueur=TABLE_Bloc.COL_Longueur
// Bloc.CodeBloc=TABLE_Bloc.COL_CodeBloc
// Bloc.LibelleBloc=TABLE_Bloc.COl_libelle
// HModifie(Bloc)
// fin
//FIN
Ferme("",Emplacement.IDEmplacement)
 
 
 
Ferme("",0)
SI OuiNon(Non,"Voulez-vous supprimer ce box ?") ALORS
TableSupprime(TABLE_Bloc)
SI ErreurDétectée ALORS
Info("erreur de suppression de la table memoire")
SINON
Info("suppression bien effectuee dans la table memoire")
SI HSupprime(Bloc) ALORS
Info("suppression bien effectuee dans la base de donnee")
ExécuteTraitement(TABLE_Bloc,trtSortieLigne)
SINON
Info("erreur de suppression dans la base de donnee") 
Info(HErreurInfo()) 
FIN 
FIN
FIN
 
EcranVersFichier(Fen_emplacement,Bloc)