Discussion :

[DjmSoftware]

bonjour dans ton code

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
 
void __fastcall TRechercheFrm::OKBtnClick(TObject *Sender)
{
        Currency xpht=0, xpttc=0,xQtmvt=0;
        String xCode=DModule->CompteCODE->Value;
        String xCdart=DModule->ArticlesCDART->Value;
        DModule->VerifPrix->Close();
        DModule->VerifPrix->SQL->Strings[2]="where code=:x and cdart=:y";
        DModule->VerifPrix->SQL->Strings[3]="order by dtmvt desc";
        DModule->VerifPrix->ParamByName("x")->AsString=xCode;
        DModule->VerifPrix->ParamByName("y")->AsString=xCdart;
        DModule->VerifPrix->Open();
        DModule->VerifPrix->First();
        xpht=DModule->VerifPrixPXMVTHT->Value;
        xpttc=DModule->VerifPrixPXMVTTTC->Value;
        DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm
        DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value;
        DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value;
        DModule->MouvTempREF->Value = DModule->ArticlesREF->Value;
        DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value;
        DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value;
        DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value;
        DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value;
        DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value;
        DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value;
        DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value;
        DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value;
        DModule->MouvTempPXMVTHT->Value=xpht;
        DModule->MouvTempPXMVTTTC->Value=xpttc;
        xQtmvt=DModule->MouvTempQTSORT->Value;
        Close();
}

l'appel à Close() ferme la fiche mais ne libère pas la mémoire
Il serait préférable que la fiche TRechercheFrm soit générée automatiquement par l'application

dans le code de

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
 
void __fastcall TAffPieceFrm::DBGridLignesKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 
        if (Key==VK_F10)
                Valider->Click();
        if (Key==VK_F5)
        {
                ;TRechercheFrm *FenRech=NULL;
                ;FenRech = new TRechercheFrm(NULL);
                FenRech->Caption = "Choix d'article";
 
                DModule->Articles->Open();
                FenRech->DataSource->DataSet=DModule->Articles;
                DModule->CountArt->SQL->Strings[1]="";
                DModule->CountArt->Open();
                FenRech->EditRecherche1->Text="";
                FenRech->ShowModal();
             ;  delete FenRech;
	      ;	FenRech=NULL;                
                DBGridLignes->SelectedIndex=4;
        }
}

dans le code

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
 
void __fastcall TRechercheFrm::OKBtnClick(TObject *Sender)
{
        Currency xpht=0, xpttc=0,xQtmvt=0;
        String xCode=DModule->CompteCODE->Value;
        String xCdart=DModule->ArticlesCDART->Value;
        DModule->VerifPrix->Close();
        DModule->VerifPrix->SQL->Strings[2]="where code=:x and cdart=:y";
        DModule->VerifPrix->SQL->Strings[3]="order by dtmvt desc";
        DModule->VerifPrix->ParamByName("x")->AsString=xCode;
        DModule->VerifPrix->ParamByName("y")->AsString=xCdart;
        DModule->VerifPrix->Open();
        DModule->VerifPrix->First();
        xpht=DModule->VerifPrixPXMVTHT->Value;
        xpttc=DModule->VerifPrixPXMVTTTC->Value;
        DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm
        DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value;
        DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value;
        DModule->MouvTempREF->Value = DModule->ArticlesREF->Value;
        DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value;
        DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value;
        DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value;
        DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value;
        DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value;
        DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value;
        DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value;
        DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value;
        DModule->MouvTempPXMVTHT->Value=xpht;
        DModule->MouvTempPXMVTTTC->Value=xpttc;
        xQtmvt=DModule->MouvTempQTSORT->Value;
       ; Close();
       Hide();
}

cordialement

[Socrat]

Merci pour tous ceux qui m'ont répendu.

Pour DjmSoftware :
J'ai déjà essayeé cette solution de Show() et hide(), mais le problème persiste. Voir les messages précédent.

Pour saidus :
Je vais essayer les FibPlus.

Merci encore.

[DjmSoftware]

Que dit CODEGUARD ?

[Socrat]

Bonjour tout le monde,

Alors, un autre problème et survenu...
J'ai installé le contrôle de FIBPLus.
Après certaines modifications sur mon code, le programme se compile normalement sans aucune erreur.

Mais, je pense qu'il y a une certaines différences entre IBDataSet et FIBDataSet.

Lorsque je sélectionne l'article sur la liste, et lorsque je modifie l'enregistrement de la pièce :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm
        =====> ici pas de problème
        DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value;
        =====> ici error
        DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value;
        DModule->MouvTempREF->Value = DModule->ArticlesREF->Value;
        DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value;
        DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value;
        DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value;
        DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value;
        DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value;
        DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value;
        DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value;
        DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value

un message d'erreur de Access Violation error s'affiche !!!

Est-ce qu'il y a une autre manipulation pour les contrôle de FIBPlus ?

[saidus]

Les composant FibPlus sont des pures transactionnel
Essai de garder l'identifiant de la meme transaction au lieu de starter une nouvelle a chaque fois

Pour cela utilise

Code :

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

1
2
3
4
5
6
 
     FibTransaction1->StartTransaction();
     ...
     FibTransaction1->CommitRetaining();
     ou 
     FibTransaction1->RollbackRetaining();