Tansformation en ORDA

Bonjour

Voici une méthode transformée en ORDA

C_OBJET($Selection)  // Selection des Enregistrements pour éditer le compte d'exploitation
$Selection:=ds.COMPTA.query("dateAchat >= :1 and dateAchat<= :2 and imputation != 'Revenus' and imputation != 'Divers' and imputation != 'Investissement'";$vDeb;$vFin).orderBy("designation asc")
  //$Selection1:=ds.COMPTA.query("dateAchat >= :1 and dateAchat <= :2 and not(imputation in :3)";$vDeb;$vFin;Créer collection("Revenus";"Divers";"Investissement")).orderBy("designation asc")
$Imputation:=$Selection.distinct("imputation")
$Sel_Imput:=$Selection.imputation.distinct()
$Nb_Imput:=$Selection.distinct("imputation").length

$Designation:=$Selection.distinct("designation")
$Sel_Desig:=$Selection.designation.distinct()
$Nb_Desig:=$Selection.distinct("designation").length

Mais Ici je na sais pas comment faire

//--------------------------------------------------------------------------------
C_OBJET($Enregt)
Pour chaque ($Enregt;$Selection)
CHERCHER([TempPrint];[TempPrint]designation=[COMPTA]designation)// CODE ORDA ???
$Entity:=ds.TempPrint.query(“designation#’’”)
si ($Entity.length=0)
$Entity:=ds.TempPrint.new() // crée un nouvel objet(enregistrement)
$Entity.imputation:=$Imputation[$i+1]
$a:=$Imputation[$i+1]
$Entity.designation:=$Designation[$i+1]
$b:=$Designation[$i+1]
$Entity.save()
CHERCHER([TempPrint];[TempPrint]designation=[COMPTA]designation) // CODE ORDA ???
CHERCHER([TempPrint];[TempPrint]imputation=[COMPTA]imputation) // CODE ORDA ???
//$Entity:=ds.TempPrint.query(“designation=$a and imputation=$b”)
Fin de si
Fin de chaque
//--------------------------------------------------------------------------------

Merci pour vos conseils

Bernard

Bonjour,

Dans l’énoncé suivant

CHERCHER([TempPrint];[TempPrint]designation=[COMPTA]designation)// CODE ORDA ???

Étant donné que c’est une table liée il faut prefixer le designation par son lien tel que nomme dans la structure

$Entity:=ds.TempPrint.query("designation=Le_lien_en_question.designation)

Si la table Compta est liée par deux tables ce pourrait prendre la forme suivante :

$Entity:=ds.TempPrint.query("designation=Le_lien_en_question_table1.Le_lien_table2.designation)

Bonne journée

Bonjour,

En fait, en me relisant, il me manque de l’info. L’exemple donne ne peut pas fonctionner exactement comme ça , mais le principe des liens est correct.

Bonne journée

Bonjour François

La Table TempPrint est une table qui me sert temporairement à stocker

par Mois, par Imputation, et par Designation et cumuler soit les dépenses soit les recettes
pour faire un état

Cette table est vidée au début du traitement

Si je dois mettre un lien c’est de designation Table Compta vers Table TemPrint ??

Merci pour tes conseils

Bernard

[]33888103;“Your comment here…”[/]

Bonjour,

Est-ce ceci répondrait à votre question ?

CHERCHER([TempPrint];[TempPrint]designation=[COMPTA]designation)// CODE ORDA ???

ds.TempPrint.query(“designation = :1”;$Enregt.designation)

Merci de ta patience à m’aider

mais ici je coince sur le Si ($Entity.designation=$Enregt.designation)// si il n’y a pas “designation” dans TempPrint identique à “designation” dans $Selection

Voici ma méthode
$Imputation:=$Selection.distinct(“imputation”)
$Designation:=$Selection.distinct(“designation”)

TOUT SÉLECTIONNER([TempPrint])
SUPPRIMER SÉLECTION([TempPrint])
C_OBJET($Enregt;$Entity)
Pour chaque ($Enregt;$Selection)
	ds.TempPrint.query("designation = :1";$Enregt.designation)
	$Entity:=ds.TempPrint.query("designation#''")
	Si ($Entity.designation=$Enregt.designation)// si il n'y a pas "designation" dans TempPrint  identique à "designation" dans $Selection 
		$Entity:=ds.TempPrint.new()  // crée un nouvel objet(enregistrement)
		$Entity.designation:=$Designation[$i+1]
		$Entity.imputation:=$Imputation[$i+1]
		$Entity.save()
		ds.TempPrint.query("designation = :1";$Enregt.designation)
		ds.TempPrint.query("imputation = :1";$Enregt.imputation)
	Fin de si 
Fin de chaque 

Très cordialement