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'1.1@1.1@Initg@ 111%%%%%%%# @,1@,1@Param@222&&&&&&&$ @gO*1@gO*1@MSysRelationships22222222220 gO*1@gO*1@MSysQueries,,,,,,,,,,* gO*1@gO*1@MSysACEs))))))))))' gO*1@gO*1@MSysObjects,,,,,,,,,,* gO*1@gO*1@MSysDb''''''''''% gO*1@gO*1@Relationships.........., gO*1@gO*1@Databases**********( gO*1@gO*1@Tables''''''''''% yj[L=.gO*1@gO*1@MSysRelationships22222222220 gO*1@gO*1@MSysQueries,,,,,,,,,,* gO*1@gO*1@MSysACEs))))))                    VC N     2    TypParamNumParamNomParamVersionData Modifiable TypNumS{qgLVAL ǷL=.,1@,1@Param&&&&&&&&&&$ gO*1@gO*1@MSysRelationshipsKKD!RequiredAllowZeroLength Version &Logiciel KKD!RequiredAllowZeroLength Version &Logiciel  KKD!AllowZeroLengthRequired&TypParam  NumParam &NomParam   Version  Data  Modifiable  mjauf $,1@,1@Param@222&&&&&&&$ @gO*1@gO*1@MSysRelationships22222222220 gO*1@gO*1@MSysQueries,,,,,,,,,,* gO*1@gO*1@MSysACEs))))))))))' gO*1@gO*1@MSysObjects,,,,,,,,,,* gO*1@gO*1@MSysDb''''''''''% gO*1@gO*1@Relationships.........., gO*1@gO*1@Databases**********( gO*1@gO*1@Tables''''''''''% VCbN   VersionLogiciel     ,1@,1@Param@222&&&&&&&$ @gO*1@gO*1@MSysRelationships22222222220 gO*1@gO*1@MSysQueries,,,,,,,,,,* gO*1@gO*1@MSysACEs))))))))))' gO*1@gO*1@MSysObjects,,,,,,,,,,* gO*1@gO*1@MSysDb''''''''''% gO*1@gO*1@Relationships.........., gO*1@gO*1@Databases**********( gO*1@gO*1@Tables''''''''''% {]SI?5@@N1.1@1.1@Init0@111%%%%%%%# @,1@,1@Param@222&&&&&&&$ @gO*1@gO*1@MSysRelationships22222222220 gO*1@gO*1@MSysQueries,,,,,,,,,,* gO*1@gO*1@KKD!RequiredAllowZeroLength Version Logiciel KKD!AllowZeroLengthRequired&TypParam  NumParam &NomParam   Version  Data  ModifiGESTION LVAL 1' 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 Demander "Recalcul des tarifs", Recalc,Multi,"&Aucun;A&rticles;&Particuliers;&Les deux;#F" 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 = "" Recalc = LesDeux 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 devise 'In' l'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 & " . Passer manuellement les Types de tarif de devise 'In' Euro" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La devise des tiers; " & car(13) MsgTiers = MsgTiers & " . Leurs informations moLVAL ntaires (port, frais, etc);" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Les tarifs gnraux des articles et les tarifs particuliers clients seront recalculs." & 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." 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" Recalc = Aucun 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 devise du client; " & car(13) MsgTiers = MsgTiers & " . Ses informations montaires (port, frais, etc)" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Selon votre choix, le traitement : " & car(13) Si Recalc=LesDeux Ou Recalc=Articles alors MsgTiers = MsgTiers & " . Recalculera les tarifs gnraux de tous les articles" & car(13) Si Recalc=Aucun Ou (Recalc<>LesDeux et Recalc <> Articles) alors MsgTiers = MsgTiers & " . Ne recalculera pas les tarifs gnraux des articles" & car(13) Si Recalc=LesDeux Ou Recalc=Particuliers alors MsgTiers = MsgTiers & " . Recalculera tous les tarifs particuliers du logiciel" & car(13) Si Recalc=Aucun Ou (Recalc<>LesDeux et Recalc <> Particuliers) alors MsgTiers = MsgTiers & " . Ne recalculera pas les tarifs particuliers du logiciel" & car(13) MsgTiers = MsgTiers & car(13)LVAL  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 = "" Recalc = LesDeux MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires de tous vos clients 'In' en 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 & " . Passer manuellement les Types de tarif de devise 'In' Euro" & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "La conversion consiste passer en euro : " & car(13) MsgTiers = MsgTiers & " . La devise des clients; " & car(13) MsgTiers = MsgTiers & " . Leurs informations montaires (port, frais, etc)." & car(13) MsgTiers = MsgTiers & car(13) MsgTiers = MsgTiers & "Les tarifs gnraux des articles et les tarifs particuliers clients seront recalculs." & 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 Recalc = Aucun Si TypeTiers = TousFou Alors CodeTiers = "" MsgTiers = MsgTiers & "ATTENTION ! Ce traitement va convertir dfinitivement les informations montaires de vos fournisseurs 'In' 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 LVAL passer en euro : " & car(13) MsgTiers = MsgTiers & " . Les devises 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" Recalc = Aucun 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 devise 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 & "'" FinSi 'Conversion des clients Si TypeTiers = Clients Ou TypeTiers = Tous Ou TypeTiers = TousCli Alors ListeClient = Liste "Select * From Client " & AddWhere Imprimer "EnteteClLVAL ient" 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 Si TypeTiers = Fournisseurs Ou TypeTiers = Tous Ou TypeTiers = TousFou Alors Imprimer "EnteteFournisseur" ListeFournisseur = Liste "Select * From Fournisseur " & AddWhere Pour chaLVAL !que 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" Sinon Etat = "Non trait, fournisseur en devise 'Out'" FinSi Imprimer FournisseurNonTraite FinSi Boucler FinSi Si Recalc <> Aucun Alors Si Recalc = Articles OU RLVAL "ecalc = LesDeux Alors Requete = "Select * From Article Order By Article.Code" Imprimer EnteteArticle Article = Liste Requete Pour chaque Article CodeArticle = Article.Code Si Changement(Page) alors imprimer "DbutArticle...FinArticle" Retour = _RECALCTARIFS(CodeArticle, 100, 0) Imprimer "page" Boucler FinSi Si Recalc = Particuliers OU Recalc = LesDeux Alors Req = _RECALCTARIFPART Imprimer MAJTarifPart FinSi FinSi Imprimer "Pied"zHautPageHP: EnteteClientECX Dbut ClientDCq LigneClientLCClientNonTraiteCNT FinClientFCEnteteFournisseurEFDbut FournisseurDFLigneFournisseurLFFournisseurNonTraiteFNTFinFournisseurFF EnteteArticleEA  DbutArticleDA<pagePO FinArticleFAc MAJTarifPartMAJTPxPiedP}BasPageBP,j4Recalcul des tarifs et conversion des tiers en eurosArial@@$6NomArial Nom@DEFSTẸ[Date Edition]Arial dddd dd mmmm yyyyB]%5 Page [Page]Arial B >NCodeArial Code@ARTICLEϝ>NLibellArial Nom@ARTICLEk>N Prix base HTArial {P} PrixBaseHTBARTICLEϺ>NMargeArial {P} MargeFrancsBARTICLE>jN CoefficientArial 0.00000;;# CoefficientBARTICLE!<@ &6CodeLVAL #Arial @̝&6libellArial @&j6 CoefficientArial Bk&6Base HTArial B̺&6MargeArial B̀fvALa mise jour des tarifs particuliers a t ralise avec succsArial A̚^mNomArial @GWListe des clients convertis :Arial @̆\lEn coursArial B!R@@ CodeArial @̛NomArial @ CodeArial Code@LISTEFOURNISSEURϜ NomArial Nom@LISTEFOURNISSEUR eEtatArial @@"Liste des fournisseurs convertis :Arial @Yq@ ^mCodeArial @̛^mNomArial @Y@ ^enEtatArial @ sCodeArial Code@ LISTECLIENTϜs NomArial FacNom@ LISTECLIENT CodeArial Code@ LISTECLIENTϜ NomArial FacNom@ LISTECLIENT CodeArial Code@LISTEFOURNISSEURϜ NomArial Nom@LISTEFOURNISSEUR sEtatArial @[Etat]LVAL EtatArial @[Etat] EtatArial @[Etat] EtatArial @[Etat] Liste des articles traits :Arial @ LIBRERecalcul des tarifs et conversion des tiers@?3?