topic Re: Script in Discussions

Script

hcarr01 — Tue, 18 Jul 2023 13:21:46 GMT

Bonjour à tous,

Je dispose d’une base de données dans laquelle j’aimerais créer une nouvelle colonne à partir d’une formule ou d’un script.

Voici un aperçu de la base de données :

- la colonne T représente des opérations à effectuer

- la colonne X_3 représente une particularité

- La colonne op représente des objets

Le but est de créer une colonne « bilan » dans laquelle on ajoute « ko » et le numéro correspondant à « op » lorsque la somme des défauts est différente de 0 d’une ligne à une autre pour un même « obj » (ici valeur égale à A).

Dernière particularité, la colonne bilan doit être remplie pour la numéro des opérations « 3061 ».

Il s’agit ici d’un aperçu de la base de données, la colonne obj vaut « A » mais dans la base de données cette colonne change de valeur.

Merci pour vos réponses !

Re: Script

jthi — Tue, 18 Jul 2023 13:15:09 GMT

Why isn't row 6 op 180 being added to last column? 0 does differ from 1.

(You should use more informative post titles than just one word)

Re: Script

hcarr01 — Tue, 18 Jul 2023 13:20:55 GMT

Car la somme est égale à 0 pour la ligne 6. En fait, c'est plutôt quand la somme des défauts est différente de la valeur 0 alors on renseigne la valeur de "op" dans la colonne "bilan".

Re: Script

jthi — Tue, 18 Jul 2023 13:25:25 GMT

So is there any need to check if the values differ between two rows? Or are you just interested in rows which have :op other than 0?

Re: Script

hcarr01 — Tue, 18 Jul 2023 13:29:35 GMT

je pense que nous pouvons nous intéresser seulement aux lignes où la valeur de :somme défaut est différente de 0. Car quand la valeur de :somme défaut vaut 0 alors on se renseigne rien dans la colonne bilan.

Re: Script

jthi — Wed, 19 Jul 2023 07:02:32 GMT

This script does both and works with the provided example. I strongly suggest you try to understand what it does and ask if there are some parts which you don't.

Names Default To Here(1);

dt = Open("$DOWNLOADS/AAA.jmp");
dt << New Column("bilan2", Character, Nominal);
dt << New Column("bilan3", Character, Nominal);


Summarize(dt, unique_objects = by(:obj));
m_obs = dt[0, "obj"];

/* comparing rows */
For Each({unique_object}, unique_objects,
	object_rows = Loc(m_obs, unique_object);
	values = dt[object_rows, "SOMME DEFAUT"];
	values1 = Remove(values, 1);
	values2 = Remove(values, N Items(values));
	differences = [0] |/ values1 - values2;
	
	ops = dt[object_rows[Loc(differences != 0)], "op"];
	
	result_str = "ko - " || Concat Items(ops, " / ko - ");
	
	input_loc = Loc(dt[object_rows, "T"], "3061");
	If(N Items(input_loc) < 0,
		continue();
	,
		dt[object_rows[input_loc], "bilan2"] = Repeat({result_str}, N Items(input_loc));
	);
 );
 
 
 /* zeros */
For Each({unique_object}, unique_objects,
	object_rows = Loc(m_obs, unique_object);
	values = dt[object_rows, "SOMME DEFAUT"];
	
	ops = dt[object_rows[Loc(values)], "op"];
	
	result_str = "ko - " || Concat Items(ops, " / ko - ");
	
	input_loc = Loc(dt[object_rows, "T"], "3061");
	If(N Items(input_loc) < 1,
		continue();
	,
		dt[object_rows[input_loc], "bilan3"] = Repeat({result_str}, N Items(input_loc));
	);
 );

Edit: Modified if statement If(N Items(input_loc)... from < 0 to < 1

Edit: Fixed line where values are being inputted to column to use object rows instead of rows from whole table

Re: Script

hcarr01 — Tue, 18 Jul 2023 13:56:44 GMT

Merci pour votre réponse !

En comparant les deux méthodes, il me semble que la seconde est préférable pour mon cas de figure.

Je l’ai adapté à ma base de données, les colonnes ont les mêmes formats sur les deux bases de données et j’obtiens ce type d’erreur :

Re: Script

jthi — Tue, 18 Jul 2023 14:03:52 GMT

As the error message is in french I cannot understand it. It could be that the error is in the end telling you that you don't have bilan3 column. (It is saying that there is invalid subscript but that is caused by not having bilan3 column. This is because dt[input_loc, "bilan3"] will return [](1, 0) if you don't have the column and then you try to set some values to it).

Re: Script

hcarr01 — Tue, 18 Jul 2023 14:16:44 GMT

Cela provient du fait que la variable "input_loc" est vide. Donc pour l'affectation des nouvelles cellules dans la colonne "bilan3" c'est impossible.

Re: Script

jthi — Tue, 18 Jul 2023 14:20:29 GMT

Value "3061" (character, not number) is not being found from column "T". Also the check I have implemented to handle empty input_loc is incorrect, you should modify it to < 1 instead of < 0.

Re: Script

hcarr01 — Wed, 19 Jul 2023 06:54:23 GMT

Dans la base de données, les valeurs de la colonne :T ne sont pas forcement rangés dans l'ordre croissant pour un même type d'objet. C'est une autre colonne :OPE qui elle, ses éléments sont rangés dans l'ordre croissant. Les colonnes :T et :OPE sont étroitement liées, elles sont uniques pour chaque type d'objet.

Les :OPE qui sont inférieures aux valeurs :OPE correspondantes à la valeur 3061 on ne doit rien mettre dans la colonne bilan.

Lorsque les valeurs de :OPE sont supérieures aux valeurs :OPE correspondantes à la valeur 3061 alors on réalise l'opération déjà décrite dans les premiers messages.

Voir la BD ci-dessous comme exemple :

Merci pour vos réponses !!

Re: Script

jthi — Wed, 19 Jul 2023 07:07:39 GMT

Add additional checks for :OPE values. If :OPE value for row is lower than the :OPE value for "3061" ignore it. It might be a bit difficult to keep track with different indices and rows, but adding debug prints helps with this. Also if there can be more than one "3061" for one object, the calculation gets more complicated.

Re: Script

hcarr01 — Wed, 19 Jul 2023 10:08:27 GMT

Oui je vois ce que vous voulez dire !

J'imagine quelque chose qui ressemble à cela :

If( col = Loc(dt[Row(), :OPE] < Loc(dt[Row(), :T=="3061")),
	continue();
	,
		script...
);

Par contre il est impossible que le même objet possède 2 fois le numéro 3061.

Re: Script

hcarr01 — Thu, 20 Jul 2023 14:00:24 GMT

Cela ne fonctionne pas, savez vous comment je peux réaliser un tel script @jthi (les dernières vérifications à faire) ?

Merci encore de votre aide !

Re: Script

jthi — Thu, 20 Jul 2023 14:06:53 GMT

Get all :OPE values for unique_object, then get the :OPE value for the 3061 row. After that check from the list of all :OPE values the indices which are higher than the :OPE value for 3061 (Loc() can do this).

Re: Script

hcarr01 — Thu, 20 Jul 2023 14:28:07 GMT

Oui c'est ce que je me suis dis, j'ai pensé à quelque chose comme cela mais la difficulté reste de définir les variables a et b.

dt = current data table();
b = // all values :OPE for unique_object
a = // values :OPE for 3061
test = Loc(dt[Row(), b]) > Loc(dt[Row(),a]);

If( test=0 ,
		continue();
	,
		script...;
);

Re: Script

jthi — Thu, 20 Jul 2023 14:49:34 GMT

Similar method as used for values variable which stores :SOMME DEFAUT values for specific unique object

	values = dt[object_rows, "SOMME DEFAUT"];

add debug prints and try running the script one line at the time by using only one object

Re: Script

hcarr01 — Fri, 21 Jul 2023 07:43:28 GMT

Oui merci j'ai écris un code comme ceci qui me permet d'avoir les infos dont j'ai besoin :

dt = current data table();
For Each({unique_objects}, unique_objects,
	object_rows = Loc(m_obs, unique_objects);
	b = dt[object_rows, "OPE"];
	show(b);
	
	a = dt << Get Rows Where( :T == "3061");
	valeurs_OPE = :OPE[a];
	show(valeurs_OPE);
	valeurs_OPE_3061_obj = dt[unique_objects, "valeurs_OPE"];
	show(valeurs_OPE_3061_obj);
	
);

Cependant je n'arrive pas à avoir les valeurs de OPE correspondantes à la tache 3061 par :obj (variable "valeurs_OPE_3061_obj").

Seulement la variable "valeurs_OPE" regroupe toutes les données de OPE correspondantes à la tache 3061.

Re: Script

jthi — Fri, 21 Jul 2023 12:55:01 GMT

It is easier to test if you just ignore For Each (for now). Start with something like this

Names Default To Here(1);

// dt = Open("$DOWNLOADS/AAA.jmp");
// dt = Current Data Table();

dt = New Table("AAA(1)",
	Add Rows(12),
	Compress File When Saved(1),
	New Column("obj", Character(16), "Nominal", Set Values({"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "C", "C"})),
	New Column("T",	Character(4), "Ordinal", Set Values({"3052", "3061", "3082", "3940", "4012", "5010", "2890", "4060", "3061", "3081", "5010", "3061"})),
	New Column("OPE", Numeric, "Continuous", Format("Best", 12), Set Values([12, 20, 32, 44, 56, 125, 210, 54, 60, 80, 45, 50])),
	New Column("X__3", Character(4), "Nominal", Set Values({"rien", "rien", "incl", "ret", "ret", "rien", "incl", "incl", "ret", "incl", "ret", "rien"})),
	New Column("SOMME DEFAUT", Numeric, "Continuous", Format("Best", 12), Set Values([0, 0, 1, 2, 1, 0, 2, 1, 2, 1, 1, 0])),
	New Column("op", Character(12), "Nominal", Set Values({"40", "32", "55", "212", "510", "180", "2100", "2240", "2100", "500", "", ""})),
	New Column("correct", Character, "Nominal", Set Values({"", "ko - 55 / ko - 212 / ko - 510 / ko - 2100", "", "", "", "", "", "", "ko - 500", "", "", "."}))
);

dt << New Column("bilan", Character, Nominal);

Summarize(dt, unique_objects = by(:obj));
m_obs = dt[0, "obj"];

unique_object = unique_objects[2];
object_rows = Loc(m_obs, unique_object);
input_loc = Loc(dt[object_rows, "T"], "3061"); // location of 3061 for unique_object
show(input_loc); // index within object_rows
show(object_rows[input_loc]); // real row number

opes = dt[object_rows, "OPE"]; // all OPE values for unique_object
valid_ope_idx = Loc(...//

Re: Script

hcarr01 — Mon, 24 Jul 2023 12:24:32 GMT

J'ai continué avec le script suivant :

Names Default To Here(1);

dt = current data table();
dt << New Column("BILAN", Character, Nominal);


Summarize(dt, unique_objects = by(:obj));
m_obs = dt[0, "obj"];



dt = current data table();
For Each({unique_objects}, unique_objects,
	object_rows = Loc(m_obs, unique_objects); // lignes pour chaque obj
	b = dt[object_rows, "OPE"]; // les différentes opé pour chaque obj
	show(b);
	input_loc = Loc(dt[object_rows, "T"], "3061"); // localiser 3061 pour chaque objet
	z = object_rows[input_loc]; // localiser les lignes OPE 3061 pour chaque obj
	value_OPE_3061 = :OPE[z]; // valeur de l'ope 3061 pour chaque obj
	show(value_OPE_3061); 

	//valid_ope_idx = Loc(b > value_OPE_3061);
    //show(valid_ope_idx); 
	
	
	For( i = 1, i <= N Items(b), i++,
		If(N Items(input_loc) < 1 & b[i] <= value_OPE_3061,
			continue();
		,
			values = dt[object_rows, "SOMME DEFAUT"];
			ops = dt[object_rows[Loc(values)], "op"];
			result_str = "ko - " || Concat Items(ops, " / ko - ");
			dt[object_rows[input_loc], "BILAN"] = Repeat({result_str}, N Items(input_loc));
		);
		
	);
);

J'ai d'abord utilisé la fonction Loc() pour déterminer les indices des lignes mais ensuite je ne sais pas comment continuer le script . Alors j'ai essayé avec une boucle "For" et le résultat n'est toujours pas correct. Pouvez-vous m'aider à avancer ?

Merci d'avance pour toute réponse !