WD Annulation d'une transaction en HFCS

Bonjour,
L'annulation des transactions en HH Classic est simple. En HFCS, il arrive qu'une transaction refuse de s'annuler avec les Hannuletransaction ou Htransactionlibere. Pour le faire, je fais sois la maintenance à distance, en arrêtant le serveur Manta, puis je supprime les fichiers .trs
Si le serveur n'est pas en ligne, je dois trouver quelqu'un qui a une expérience Informatique ou donner l'accès au dossier de la BDD contre l'avis de la hiérarchie. C'est complexe. Je me pose toujours cette question, comment annuler une transaction et supprimer le fichier .trs à partir de l'application.(TRSOperation.TRS et
TRSOperationInfoClient.TRS)

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Salut @

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

,
Regarde si ça pourrait t'aider

1- Dans une fenêtre, tu liste les fichier de ta base de données

​

Code (Text):

s_Liste_fichier est une chaîne
s_Sousfichier est une chaîne
_sImg_Etat est une chaîne
nCptTab est un entier
_bIs_Selected est un booléen
_bIs_Selected=Faux
TableSupprimeTout(Table_Liste_fichiers)
s_Liste_fichier = HListeFichier(hLstTriée)
s_Sousfichier = ExtraitChaîne(s_Liste_fichier,rangPremier,RC)
TANTQUE s_Sousfichier <> EOT
    nCptTab++
    TableAjouteLigne(Table_Liste_fichiers,_bIs_Selected,nCptTab,s_Sousfichier,_sBD_Rep+["\"]+s_Sousfichier+".FIC",_sImg_Etat,0)
    s_Sousfichier = ExtraitChaîne(s_Liste_fichier,rangSuivant,RC)
FIN

2- Dans un Bouton {BTN_Transaction_Annul}

Code (Text):

SI TableOccurrence(Table_Liste_fichiers)=0 ALORS
    RETOUR
FIN
_sFilCibl est une chaîne
_bIs_Selected est un booléen
_nTemoin est un entier
_nTot est un entier
_sRaportMsg est une chaîne="Libérer le(s) fichier(s) selectionné(s)?"

TitreSuivant("Confirmation")
SI      OuiNon(0,_sRaportMsg)=Faux ALORS
    RETOUR
FIN

POUR i=1 _À_ TableOccurrence(Table_Liste_fichiers)
    _bIs_Selected=Table_Liste_fichiers.Is_Selected
[I]    _sFilCibl=Table_Liste_fichiers.Fich_Design
[I]
    SI _bIs_Selected=Vrai ALORS
        _nTot++
   
        HDébloqueFichier(_sFilCibl)
   
        SI HTransactionLibère(_sFilCibl)=Vrai ALORS
            _nTemoin++
        FIN
    FIN
FIN

SI _nTemoin=_nTot ALORS
    TitreSuivant("Info")
    Info("Opération effectuée avec succès.")
SINON
    TitreSuivant("Info")
    Erreur("Echec de l'opération de libération des enregistrements","Veuillezz réessayer SVP.")
FIN

Tu peux te référer à la discussion de Marcel - Tisane Fouché

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Lis ses deux message, la solution proposée s'y trouve.

C'est mon code et j'ai trouvé confirmation de sa validité en lisant ce Marcel - Tisane Fouché

Cliquez pour agrandir...