Standard Jet DBnb` Ugr@?~1y0̝cǟFN7]D^(`T{6߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx -{VC S            2c   ct    j    O        IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtrasetni   Id ParentIdName        VCS     2  ObjectIdSIDACM FInheritablebc ObjectIdVC?S             ObjectId AttributeOrderName1Name2 ExpressionFlagilnzjtz ObjectIdAttribute  VCS            szRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumn   szObjectszReferencedObjectszRelationship {qg]SI?5@@o{o{@  d`w`a`vfvufm`wjrpvijsvw`amfvjpjw ov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsvs`u`oov}vdao{ @  {qg]SI?@ T @ @      Qi'jW1@jW1@Initg@ 111%%%%%%%# @FW1@FW1@Param@222&&&&&&&$ @W1@W1@MSysRelationships22222222220 W1@W1@MSysQueries,,,,,,,,,,* W1@W1@MSysACEs))))))))))' W1@W1@MSysObjects,,,,,,,,,,* W1@W1@MSysDb''''''''''% W1@W1@Relationships.........., W1@W1@Databases**********( W1@W1@Tables''''''''''% yj[L=.W1@W1@MSysRelationships22222222220 W1@W1@MSysQueries,,,,,,,,,,* W1@W1@MSysACEs))))))                    VC N     2    TypParamNumParamNomParamVersionData Modifiable TypNumS{qgLVAL ǷL=.FW1@FW1@Param&&&&&&&&&&$ W1@W1@MSysRelationshipsKKD!RequiredAllowZeroLength Version &Logiciel KKD!RequiredAllowZeroLength Version &Logiciel  KKD!AllowZeroLengthRequired&TypParam  NumParam &NomParam   Version  Data  Modifiable  mjauf"FW1@FW1@Param@222&&&&&&&$ @W1@W1@MSysRelationships22222222220 W1@W1@MSysQueries,,,,,,,,,,* W1@W1@MSysACEs))))))))))' W1@W1@MSysObjects,,,,,,,,,,* W1@W1@MSysDb''''''''''% W1@W1@Relationships.........., W1@W1@Databases**********( W1@W1@Tables''''''''''% VCbN   VersionLogiciel     FW1@FW1@Param@222&&&&&&&$ @W1@W1@MSysRelationships22222222220 W1@W1@MSysQueries,,,,,,,,,,* W1@W1@MSysACEs))))))))))' W1@W1@MSysObjects,,,,,,,,,,* W1@W1@MSysDb''''''''''% W1@W1@Relationships.........., W1@W1@Databases**********( W1@W1@Tables''''''''''% {]SI?5@@NjW1@jW1@Init0@111%%%%%%%# @FW1@FW1@Param@222&&&&&&&$ @W1@W1@MSysRelationships22222222220 W1@W1@MSysQueries,,,,,,,,,,* W1@W1@KKD!RequiredAllowZeroLength Version Logiciel KKD!AllowZeroLengthRequired&TypParam  NumParam &NomParam   Version  Data  ModifGESTION8 LVAL ;(' PageDef "HautPage...BasPage" 'Tables utilises TypeTarif = Liste "TypeDeTarif" classee par "Code" Devise = Liste "DeviseE" classee par "Code" Global Etat 'Constantes Vrai = -1 Aucun = "A":Articles = "R" LesDeux = "L":Particuliers = "P" Clients = "C":Fournisseurs = "F" TousCli = "L":TousFou = "U" Tous = "O" Form Demander "Type tiers", TypeTiers,Multi,"Un &client;Un &fournisseur;Tous les c&lients;Tous les fo&urnisseurs;T&ous les tiers;#F" FinForm Si TypeTiers = Clients Alors FORM Demander "Client ", CodeTiers, Text, 8, CLIENT FINFORM FinSi Si TypeTiers = Fournisseurs Alors FORM Demander "Fournisseur ", CodeTiers, Text, 8, FOURNI FINFORM FinSi 'Traitement de mise jour et de conversion des informations '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MsgTiers = "" Si TypeTiers = Tous Alors CodeTiers = "" MsgTiers = MsgTiers & "ATTENTION ! Ce traitement doit tre ralis aprs le 31/12/2001. " & car(13) MsgTiers = MsgTiers & "Il convertit dfinitivement les fiches clients et fournisseurs de Franc Euro" & car(13) MsgTiers = MsgTiers & "Veuillez sauvegarder votre dossier avant de raliser la conversion." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Afin d'automatiser la conversion du plus grand nombre de fiches, vous devez :" & car(13) MsgTiers = MsgTiers & " . Rgler la prfrence d'article : 'Modification lment de base " & car(13) MsgTiers = MsgTiers & " recalcule le' sur 'Rsultat'" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La monnaie des tiers; " & car(13) MsgTiers = MsgTiers & " . Leurs informations montaires (port, frais, etc)." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Utilisez le bouton 'Continuer' si vous avez dj ralis les rglages et la sauvegarde ou 'Arrter' pour interrompre le traitement." LVAL Sinon Si TypeTiers = Clients Alors 'Je court-circuite les informations de dpart pour viter le traitement. Si CodeTiers = "" Alors Voir "Vous n'avez pas saisi de code pour le tiers, aucune modification ne sera effectue !" TypeTiers = "Non dfini" CodeTiers = "Non dfini" FinSi MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires du client en Euro" & car(13) MsgTiers = MsgTiers & "Veuillez sauvegarder votre dossier avant de raliser la conversion." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La monnaie du client; " & car(13) MsgTiers = MsgTiers & " . Ses informations montaires (port, frais, etc)" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Utilisez le bouton 'Continuer' si vous avez dj ralis la sauvegarde ou 'Arrter' pour interrompre le traitement." Sinon Si TypeTiers = TousCli Alors CodeTiers = "" MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires de tous vos clients de Franc en Euro" & car(13) MsgTiers = MsgTiers & "Veuillez sauvegarder votre dossier avant de raliser la conversion." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La monnaie des clients; " & car(13) MsgTiers = MsgTiers & " . Leurs informations montaires (port, frais, etc)" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Utilisez le bouton 'Continuer' si vous avez dj ralis la sauvegarde ou 'Arrter' pour interrompre le traitement." Sinon Si TypeTiers = TousFou Alors CodeTiers = "" MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires de vos fournisseurs de Franc en Euro" & cLVAL ar(13) MsgTiers = MsgTiers & "Veuillez sauvegarder votre dossier avant de raliser la conversion." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La monnaie des fournisseurs; " & car(13) MsgTiers = MsgTiers & " . Leurs informations montaires (port, frais, etc)." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Utilisez le bouton 'Continuer' si vous avez dj ralis la sauvegarde ou 'Arrter' pour interrompre le traitement." Sinon 'Je court-circuite les informations de dpart pour viter le traitement. Si CodeTiers = "" Alors Voir "Vous n'avez pas saisi de code pour le tiers, aucune modification ne sera effectue !" TypeTiers = "Non dfini" CodeTiers = "Non dfini" FinSi MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires du fournisseur en Euro" & car(13) MsgTiers = MsgTiers & "Veuillez sauvegarder votre dossier avant de raliser la conversion." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La monnaie du fournisseur; " & car(13) MsgTiers = MsgTiers & " . Ses informations montaires (port, frais, etc)." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Utilisez le bouton 'Continuer' si vous avez dj ralis la sauvegarde ou 'Arrter' pour interrompre le traitement." Finsi FinSi Finsi FinSi 'Traitement de mise jour et de conversion des informations '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'On affiche le message uniquement si le traitement est correct (saisi d'un code tiers dans la fentre de saisie) Si TypeTiers <> "Non dfini" Alors Voir MsgTiers FinSi AddWhere = "" Si CodeTiers <> "" Alors AddWhere = " Where Code = '" & CodeTiers & "'" FLVAL inSi 'Conversion des clients Si TypeTiers = Clients Ou TypeTiers = Tous Ou TypeTiers = TousCli Alors ListeClient = Liste "Select * From Client " & AddWhere Imprimer "EnteteClient" Pour chaque ListeClient Etat = "Trait, conversion excute." Si Changement(Page) alors imprimer "Dbut Client...FinClient" 'On verifie que la devise ne soit pas une devise Out (On traite que les devises In) Lit Devise, ListeClient.Devise Si Devise.DeviseIn = Vrai ET Devise.Code <> "E" Alors 'On verifie que le type de tarif ne soit pas un type Devise Lit TypeTarif, ListeClient.TypeTarif 'Si la devise du type de tarif est en Euro, on ralise galement le traitement Si TypeTarif.Type <> "D" OU TypeTarif.CodeDevise = "E" Alors 'On converti les montants du client en cours Solde = ConversionDevise(ListeClient.Solde,[Date Edition],Devise.Code,"E") EnCours = ConversionDevise(ListeClient.EnCoursAutorise,[Date Edition],Devise.Code,"E") Port = ConversionDevise(ListeClient.MontantPort,[Date Edition],Devise.Code,"E") Frais = ConversionDevise(ListeClient.FraisFacturation,[Date Edition],Devise.Code,"E") Franco = ConversionDevise(ListeClient.Franco,[Date Edition],Devise.Code,"E") 'on affecte ces montants au client courant EXECUTE "Update Client Set Devise = 'E', Solde = CDbl('" & Solde & "'), EnCoursAutorise = CDbl('" & EnCours & "'), MontantPort = CDbl('" & Port & "'), FraisFacturation = CDbl('" & Frais & "'), Franco = CDbl('" & Franco & "') Where Code = '" & ListeClient.Code & "'" Imprimer LigneClient Sinon 'Ligne de rapport de non traitement sur les clients ayant un tarif en devise Etat = "Non trait, le tarif du client est en devise" Imprimer ClientNonTraite FinSi Sinon Si Devise.Code = "E" Alors Etat = "Non trait, client dj en Euro" Sinon Etat = "Non trait, client en devise 'Out'" FinSi Imprimer ClientNonTraite FinSi Boucler FinSi 'Conversion des fournisseurs SLVAL i TypeTiers = Fournisseurs Ou TypeTiers = Tous Ou TypeTiers = TousFou Alors Imprimer "EnteteFournisseur" ListeFournisseur = Liste "Select * From Fournisseur " & AddWhere Pour chaque ListeFournisseur Etat = "Trait, conversion excute." Si Changement(Page) alors imprimer "Dbut Fournisseur...FinFournisseur" 'On verifie que la devise ne soit pas une devise Out (On traite que les devises In) Lit Devise, ListeFournisseur.Devise Si Devise.DeviseIn = Vrai ET Devise.Code <> "E" Alors 'On converti les montants du fournisseur en cours EnCours = ConversionDevise(ListeFournisseur.MontantEnCours,[Date Edition],Devise.Code,"E") Port = ConversionDevise(ListeFournisseur.MontantPort,[Date Edition],Devise.Code,"E") Frais = ConversionDevise(ListeFournisseur.FraisFacturation,[Date Edition],Devise.Code,"E") Franco = ConversionDevise(ListeFournisseur.SeuilFranco,[Date Edition],Devise.Code,"E") MontantMin = ConversionDevise(ListeFournisseur.MontantMin,[Date Edition],Devise.Code,"E") 'on affecte ces montants au fournisseur courant EXECUTE "Update Fournisseur Set Devise = 'E', MontantEnCours = CDbl('" & EnCours & "'), MontantPort = CDbl('" & Port & "'), FraisFacturation = CDbl('" & Frais & "'), SeuilFranco = CDbl('" & Franco & "'), MontantMin = CDbl('" & MontantMin & "') Where Code = '" & ListeFournisseur.Code & "'" 'On converti l'onglet fournisseurs des articles ListeFournisseurArticle = Liste "Select * From FournisseurArticle Where CodeFournisseur = '" & ListeFournisseur.Code & "'" Pour chaque ListeFournisseurArticle PrixAchat = ConversionDevise(ListeFournisseurArticle.PrixAchat,[Date Edition],Devise.Code,"E") EXECUTE "Update FournisseurArticle Set Devise = 'E', PrixAchat = CDbl('" & PrixAchat & "') Where CompteurArtFour = " & ListeFournisseurArticle.CompteurArtFour & "" Boucler Imprimer LigneFournisseur Sinon Si Devise.Code = "E" Alors Etat = "Non trait, fournisseur en Euro" SinonLVAL ! Etat = "Non trait, fournisseur en devise 'Out'" FinSi Imprimer FournisseurNonTraite FinSi Boucler FinSi Imprimer "Pied"z HautPageHP: EnteteClientECX Dbut ClientDCq LigneClientLCClientNonTraiteCNT FinClientFCEnteteFournisseurEFDbut FournisseurDFLigneFournisseurLFFournisseurNonTraiteFNTFinFournisseurFFPiedPBasPageBP(jConversion des tiers en eurosArial@@$6NomArial Nom@DEFSTẸ[Date Edition]Arial dddd dd mmmm yyyyB]%5 Page [Page]Arial B̚^mNomArial @GWListe des clients convertis :Arial @̆\lEn coursArial B@ CodeArial @̛NomArial @ CodeArial Code@LISTEFOURNISSEURϜ NomArial Nom@LISTEFOURNISSEUR eEtatArial @@"Liste des fournisseurs convertis :Arial @Yq@ ^mCodeArial @̛^mNomArial @Y@ ^enEtatArial @ LVAL sCodeArial Code@ LISTECLIENTϜs NomArial FacNom@ LISTECLIENT CodeArial Code@ LISTECLIENTϜ NomArial FacNom@ LISTECLIENT CodeArial Code@LISTEFOURNISSEURϜ NomArial Nom@LISTEFOURNISSEUR sEtatArial @[Etat] EtatArial @[Etat] EtatArial @[Etat] EtatArial @[Etat]LIBREConversion des tiers2(?