Utilisation des dates et modification

**joebar0212** · 09/04/2012, 10h38

Bonjour

J'ai un champ date, j'aimerai changer uniquement le mois et l'année de cette date par celle du jour. J'ai tout essayé, a chaque fois 4d change toute la date. j'utilise la commande ajouter à date mais rien n'y fait

ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaDate:=[Articles]Jour fixé
[table]Date:=Ajouter a date(!00/00/00!;Annee de(Date du jour);Mois de(Date du jour);Jour de(MaDate))

Si quelqu'un peut m'aider

**ZeFiF** · 09/04/2012, 11h07

Salut !

Date est une commande 4D, je suggère de ne pas nommer un champ qui ait la même orthographe qu'une commande.

avec des variables ça fonctionne sans problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$MaDate:=!29/10/2011!
$zedate:=Ajouter a date(!00/00/00!;Annee de(Date du jour(*));Mois de(Date du jour(*));Jour de($MaDate))

**joebar0212** · 09/04/2012, 12h28

Merci pour ta réponse j'ai essayé c'est ok. Par contre dans le même registre tu seras peut être également m'aider j'aimerais rechercher une date avec a chaque fois uniquement le mois d'avant la date du jour, pour pouvoir récupérer des informations de ce mois d'avant.

genre en avril j'appuis sur un bouton qui va chercher un formulaire datant du mois de mars.

merci

**ZeFiF** · 09/04/2012, 15h13

eh bien ? qu'est ce qui te bloque ?

c'est le même principe appliqué à une recherche sur un champ date...

**joebar0212** · 10/04/2012, 17h23

J'avoue que je débute sur 4D, pour la recherche voici ce que je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
$vdMoisAvant:=Ajouter a date(Date du jour;0;-1;0)
$cherche:=CHERCHER DANS SELECTION([Principale];[Principale]Date de création de la fiche=(Mois de($vdMoisAvant)))
[Principale]Resultat:=$cherche

**ZeFiF** · 10/04/2012, 17h39

C'est pas un problème spécifique à 4D tu sais...
tu auras la même réflexion quelque soit le langage...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
$ve_mois:=mois de (date du jour(*))-1
$ve_annee:=annee de (date du jour(*))
CHERCHER par formule DANS SELECTION([Principale];mois de([Principale]Date de création de la fiche)=$ve_mois;*)
CHERCHER par formule DANS SELECTION([Principale];& annee de([Principale]Date de création de la fiche)=$ve_annee)

pour ton affectation de résultat j'ai peur que tu ne renseignes pas le bon enregistrement, en effet ton enregistrement courant est par défaut sur le premier enregistrement issu de la recherche...

P.S : je te suggère de ne pas utiliser de nom de champ trop long ni de mettre des espaces dedans...

**joebar0212** · 14/04/2012, 11h54

Salut ZeFiF

j'ai essayé ce que tu m'as fait et cela fonctionne presque, mais du coup 4D modifie les champs pour afficher les champs de la recherche. moi je veux juste récupérer une valeur et venir la coller dans mon formulaire actuel. J'ai du coup stocké l'enregistrement , chargé l'enregistrement à la fin de la recherche mais rien n'y fait, est ce que c'est bien les commandes Stocker enregistrement et charger enregistrement qu'il faut utiliser dans ce cas là?

Merci

**ZeFiF** · 14/04/2012, 12h34

sans doute parce que tu fais la recherche alors que tu es dans un enregistrement courant donc tu bouges la sélection : casse gueule au possible.

soit tu fais un dialogue soit tu limites la recherche avec fixer destination recherche...

**joebar0212** · 14/04/2012, 14h54

Oui c'est exactement ça, je suis dans un enregistrement courant. Mais il me faut une information du mois d'avant, pour l'instant je le fais à la main mais j'aimerai l'automatiser.

**joebar0212** · 25/04/2012, 15h57

j'ai essayé avec la commande fixer destination recherche, mais cela ne fonctionne pas, par contre je n'ai étrangement pas d'erreur voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
FIXER DESTINATION RECHERCHE(Vers sélection courante)
TOUT SELECTIONNER([Principale])
$ve_mois:=Mois de(Date du jour(*))-1
$ve_annee:=Annee de(Date du jour(*))
CHERCHER PAR FORMULE DANS SELECTION([Principale];Mois de([Principale]Date de création de la fiche)=$ve_mois;*)
CHERCHER PAR FORMULE DANS SELECTION([Principale];Annee de([Principale]Date de création de la fiche)=$ve_annee)
 
 
Vtest:=[Principale]monresultat

**ZeFiF** · 25/04/2012, 17h20

bin vi ça change rien, c'est même le comportement normal.

Relis mieux la doc sur la notion d'enregistrement courant, de sélection courante et sur la commande fixer destination recherche

**runciter** · 25/04/2012, 21h57

Franchement, faut lire la doc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FIXER DESTINATION RECHERCHE(Vers sélection courante)

-> inutile, c'est le comportement par défaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TOUT SELECTIONNER([Principale])

-> inutile à part charger des tonnes de données pour rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$ve_mois:=Mois de(Date du jour(*))-1

-> on fait comment en janvier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CHERCHER PAR FORMULE DANS SELECTION([Principale];Mois de([Principale]Date de création de la fiche)=$ve_mois;*)
CHERCHER PAR FORMULE DANS SELECTION([Principale];Annee de([Principale]Date de création de la fiche)=$ve_annee)

-> utiliser CHERCHER PAR FORMULE, tout simplement, et l'étoile est inutile : cette commande ne se comporte PAS comme les autres CHERCHER.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Vtest:=[Principale]monresultat

-> là je dois dire que je ne comprends pas le champ "monresultat".

Pour avoir la liste d'enregistrements courants, il suffit d'écrire (après avoir calculé les variables) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHERCHER PAR FORMULE([Principale];(Mois de([Principale]Date de création de la fiche)=$ve_mois) & (Annee de([Principale]Date de création de la fiche)=$ve_annee))

4D retourne alors une sélection de fiches qu'il est nécessaire d'afficher ou de traiter.

**ZeFiF** · 25/04/2012, 22h04

Envoyé par runciter

$ve_mois:=Mois de(Date du jour(*))-1
-> on fait comment en janvier ?

finement observé, toutefois je suis partisan de la méthode essai/erreur quand on débute.
A mon humble avis ce n'est pas en mâchant le travail d'un autre qu'il progressera. Donc la méthode essai/erreur est très formatrice.