1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

Besoin d'aide sur procedure windev 24

Discussion dans 'Windev' créé par yooseetim, Mar 22, 2021.

  1. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Bonjour la communaute j ai besoin de votre aide
    je travaille sur une base de donnée Gestion de mutuelle avec windev 24
    je souhaite faire une procedure ou quand tu as moins de 50 ans
    tu as une période de carence de 5 mois a partir de ta date d'adhésion
    et si tu as plus de 50 ans ta periode de carence est de 10 mois
    j arrive a declarer le mois effet pour +5mois
    Moisef = DateAdh..mois+5
    Comment dois je ajouter pour +10mois
    Voici ma procedure
    je rappelle que j ai un champs Age qui affiche l'age de type numerique

    Dateadh est une Date
    dDateeff est une Date
    nAnneeef est un entier
    Moisadh est un entier
    nMoisef est un entier
    sJouref est une chaîne
    sMachaine est une chaîne
    Dateadh=SAI_Date
    Moisadh=Dateadh..Mois
    nMoisef=Dateadh..Mois+5
    nAnneeef=Dateadh..Année

    SI nMoisef<=12 ALORS
    nAnneeef=Dateadh..Année
    SINON
    nAnneeef=Dateadh..Année+1
    nMoisef=nMoisef-12
    FIN
    sMachaine=nAnneeef
    sJouref=+Droite(Dateadh,2)
    SI Taille(nMoisef)>2 ALORS
    sMachaine=sMachaine+(nMoisef+sJouref)
    SINON
    sMachaine=sMachaine+("0"+nMoisef+sJouref)
    FIN

    dDateeff=sMachaine


    TANTQUE PAS DateValide(dDateeff)

    sJouref=Val(sJouref)-1
    sMachaine=nAnneeef

    SI Taille(nMoisef)>2 ALORS
    sMachaine=sMachaine+(nMoisef+sJouref)
    SINON
    sMachaine=sMachaine+("0"+nMoisef+sJouref)
    FIN

    dDateeff=sMachaine
     
    Tags:
  2. Dandypunk

    Dandypunk Well-Known Member

    Inscrit:
    Nov 28, 2019
    Messages:
    550
    J'aime reçus:
    302
    Bonjour,
    Code (Windev):

    FONCTION DateEffective(dNaissance est date, dAdhésion est date) : Date
    duCarence est durée
    dAge est date

    dAge=

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

    (dNaissance,dAdhésion)

    SELON dAge..Année
         CAS >50
              duCarence..Mois=10
         CAS<=50
              duCarence..Mois=5
    FIN

    RENVOYER dAdhésion+duCarence
     
     
  3. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Merci frère je test je te reviens
     
  4. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    svp je ne comprend comment tu recupère le mois sur duCarence est durée
    duCarence..Mois=10
    ca ne marche pas
    en fait mon code passe mais ne calcule que un seul cas ..mois+5
    je souhaiterais juste le modifier pour ajouter le cas ..mois+10
     
  5. Dandypunk

    Dandypunk Well-Known Member

    Inscrit:
    Nov 28, 2019
    Messages:
    550
    J'aime reçus:
    302
    Je suis en effet allé trop vite.
    Le code exact est :
    Code (Windev):
    FONCTION CalculerDateAffective(nAge est entier, dAdhésion est Date):Date
    dAge est Date
    dEffective est Date

    SELON nAge
        CAS >50
            dEffective..Mois+=10
        AUTRE CAS
            dEffective..Mois+=5
    FIN

    RENVOYER dEffective
    Utilisation :
    Code (Windev):

    dAdh est date

    dAdh=SAI_Date

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

    (CalculerDateAffective(SAI_Age,dAdh))
     
     
  6. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Merci Dandypunk j apprecie beaucoup ton coup de main .Je teste et je te reviens des que possible
     
  7. yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Bonsoir Dandy je suis un peu nouveau sur windev je ne me retrouve pas dans le code .je poste la fenêtre de calcule de ma base pour plus de visibilité
    La date de Naissance donne l'Age ici il n'y a pas de problème.
    La date d'adhésion donne la date d effet si l'Age est inferieur ou égale a 50 ton droit est de
    12 000 sinon plus de 50 ton droit d'adhésion est de 52 000.
    Donc seul sont saisies la date de naissance et la date d adhésion. Merci déjà
     

    Fichiers attachés:

    #7 yooseetim, Mar 23, 2021
    Dernière édition: Mar 23, 2021
  8. Dandypunk

    Dandypunk Well-Known Member

    Inscrit:
    Nov 28, 2019
    Messages:
    550
    J'aime reçus:
    302

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

    je poste la fenêtre de calcule de ma base pour plus de visibilité
    Cliquez pour agrandir...
    Une copie écran serait plus utile. Je ne télécharge pas. Qui plus est, le jour où il y aura un nettoyage, le lien sera brisé. Donc le post sera inutile.

    A priori, il faut faire un mix des deux fonctions :
    Code (Windev):
    FONCTION DateEffective(dNaissance est date, dAdhésion est date) : Date
    dAge est date
    moMontant est monetaire

    dAge=

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

    (dNaissance,dAdhésion)

    SELON dAge..Année
        CAS >50
            dEffective..Mois+=10
            moMontant=52000
        AUTRE CAS
            dEffective..Mois+=5
            moMontant=12000
    FIN

    RENVOYER (dEffective,moMontant)
     
    Utilisation
    Code (Windev):

    dNais est date
    dDateCarence est date
    moCoti est monétaire

    dNais=SAI_Naissance
    (dDateCarence,moCoti)=DateEffective(dNaissance,dAdhésion)
     
    #8 Dandypunk, Mar 24, 2021
    Dernière édition: Mar 24, 2021
  • yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    je teste mais voici la copie

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

     
  • yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    windev renvoie des erreurs sur des parametres d ela procedure

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

     
  • Dandypunk

    Dandypunk Well-Known Member

    Inscrit:
    Nov 28, 2019
    Messages:
    550
    J'aime reçus:
    302
    C'est logique,
    Tu n'as pas déclaré DateEffective, tu fais des déclaration de fonction à l'intérieur de ta procédure etc...
    Relis la doc concernant les fonctions et procédures
     
  • yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Merci toujours je prend acte.
     
  • yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    Merci toujours je prend acte.
     
  • yooseetim

    yooseetim New Member

    Inscrit:
    Déc 3, 2020
    Messages:
    27
    J'aime reçus:
    0
    merci beaucoup Dandy
     
  • Partager cette page

    Chargement...