DavidRiquelme
Level-1
- Beiträge
- 16
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo!
Ich muss mit die rezepturverwaltung daten laden, speichern und neu machen.
Neu machen ist nicht mein problem, ich habe geschaft daten neu machen, aber wenn ich will laden die daten oder schreiben die daten schaffe das nicht.
Eigentlicht soll klappen, weil das befehl ist fast das gleiche nur mann muss ein teil ändern, kann mir bitte jemanden helfen? ich habe in die forums und so gesucht aber ich erkläre mich nicht warum klappt das nicht. Ich habe es auch durch die verschieden befehle laden oder schreiben ohne erfolg.
Das code es ist das nächste:
RecipeManCommands:RecipeManCommands;
RECIPEDEF:STRING:='zeit_recipe';
RECIPE_1:STRING:='PROG_1';
RECIPENAME_1:STRING:='PROG_1.zeit_recipe.csv';
RECIPE_2:STRING:='PROG_2';
RECIPENAME_2:STRING:='PROG_2.zeit_recipe.csv';
RECIPE_3:STRING:='PROG_3';
RECIPENAME_3:STRING:='PROG_3.zeit_recipe.csv';
RECIPE_4:STRING:='PROG_4';
RECIPENAME_4:STRING:='PROG_4.zeit_recipe.csv';
------------------------------------------------------------------------------------------------------------
IF PROG_1
THEN RecipeManCommands.WriteRecipe(RECIPEDEF, RECIPE_1);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_2
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_2, RECIPENAME_2);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_3
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_3, RECIPENAME_3);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_4
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_4, RECIPENAME_4);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
Danke sehr!!
Ich muss mit die rezepturverwaltung daten laden, speichern und neu machen.
Neu machen ist nicht mein problem, ich habe geschaft daten neu machen, aber wenn ich will laden die daten oder schreiben die daten schaffe das nicht.
Eigentlicht soll klappen, weil das befehl ist fast das gleiche nur mann muss ein teil ändern, kann mir bitte jemanden helfen? ich habe in die forums und so gesucht aber ich erkläre mich nicht warum klappt das nicht. Ich habe es auch durch die verschieden befehle laden oder schreiben ohne erfolg.
Das code es ist das nächste:
RecipeManCommands:RecipeManCommands;
RECIPEDEF:STRING:='zeit_recipe';
RECIPE_1:STRING:='PROG_1';
RECIPENAME_1:STRING:='PROG_1.zeit_recipe.csv';
RECIPE_2:STRING:='PROG_2';
RECIPENAME_2:STRING:='PROG_2.zeit_recipe.csv';
RECIPE_3:STRING:='PROG_3';
RECIPENAME_3:STRING:='PROG_3.zeit_recipe.csv';
RECIPE_4:STRING:='PROG_4';
RECIPENAME_4:STRING:='PROG_4.zeit_recipe.csv';
------------------------------------------------------------------------------------------------------------
IF PROG_1
THEN RecipeManCommands.WriteRecipe(RECIPEDEF, RECIPE_1);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_2
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_2, RECIPENAME_2);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_3
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_3, RECIPENAME_3);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
IF PROG_4
THEN RecipeManCommands.LoadFromAndWriteRecipe(RECIPEDEF, RECIPE_4, RECIPENAME_4);
T_POS_1:=(POS_1_TIME*1000);
T_POS_2:=(POS_2_TIME*1000);
T_POS_3:=(POS_3_TIME*1000);
END_IF
Danke sehr!!