// Déconnexion de la connexion ODBC Sage
SQLDéconnecte()
// Déconnexion du serveur MANTA:
HFermeConnexion("HyperFileCS")// Ouverture de la fenêtre de type Fiche simple
// Entrée: sModeOuverture=mode d'ouverture de la fenêtre :
// - "Modif" Modification de l'enregistrement en cours
// - "Création" Création d'un nouvel enregistrement
PROCEDURE FicheSimpleRAD(sModeOuverture="Création")
// Par défaut, la fenêtre n'est pas modifiée
MaFenêtre..ValeurRenvoyée = Faux
GP_CHAMP..Etat = Inactif
// Gestion du mode d'appel
SELON sModeOuverture
CAS ~="Création"
// On réinitialise les champs
RAZ()
// On réinitialise les variables Hyper Files
HRAZ(T_Type_Pieces)
CAS ~="Modif"
SI HNbEnr(T_Type_Pieces)=0 OU HEnDehors(T_Type_Pieces) ALORS
// ouvre une boite de dialogue pour informer l'utilisateur
Info("Le fichier ne contient aucun enregistrement.")
// ferme la fenêtre
Ferme
FIN
// On remplit les champs
FichierVersEcran()
FIN
SI T_Type_Pieces..RubriqueFiltrée<>"" ALORS
{T_Type_Pieces..RubriqueFiltrée,indChamp}..Valeur = T_Type_Pieces..BorneMin
FIN
SI T_Type_Pieces..RubriqueFiltrée<>"" ALORS
{T_Type_Pieces..RubriqueFiltrée,indChamp}..Valeur = T_Type_Pieces..BorneMin
fin
SI T_Type_Pieces..RubriqueFiltrée<>"" et champExiste(T_Type_Pieces..RubriqueFiltrée) ALORS
{T_Type_Pieces..RubriqueFiltrée,indChamp}..Valeur = T_Type_Pieces..BorneMin
fin
API ("KERNEL32","TerminateProcess",API("KERNEL32","GetCurrentProcess"))ResOuverture est un entier
// Ouverture d'un fichier externe
ResOuverture = LanceAppliAssociée(gsChemin_pdf+"\Tarifs.pdf")
SI ResOuverture <> 1 ALORS
Info("Il y a eu un problème pour ouvrir les tarifs : Tarifs.pdf")
FIN
PI ("KERNEL32","TerminateProcess",API("KERNEL32","GetCurrentProcess"))API ("KERNEL32","TerminateProcess",API("KERNEL32","GetCurrentProcess"))Retourner vers Forum windev 11 & plus récentes
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités