Obsidean_VM/01-Documentation/Vetromeccanica/Micromeccanica Guides/Software/PLC Data.md

25 lines
1.1 KiB
Markdown

DB FormatPar ( DB1004 )
- "DB Cycle".nFormat_Actual : is the Actual format
FC1020
```pascal
(************************ Data Update From Recipe ************************)
"rt_RecipeTransfer"(CLK:= ("DB Collegamento HMI".SetData.Status=4));
IF "rt_RecipeTransfer".Q THEN
// Scrittura nome ricetta, dimensione bottiglia e distanza guida/bottiglia da ricetta a parametri zona
"DB FormatPar".sRecipeNameList["DB Collegamento HMI".SetData."Current recipe number" -3] :="DB FormatPar".sRecipeName;
"DB AreaPar".N["DB Collegamento HMI".SetData."Current data set number"].nBottleDimension := "DB FormatPar".nBottleDimension;
"DB AreaPar".N["DB Collegamento HMI".SetData."Current data set number"].nDistBottleGuide := "DB FormatPar".nDistBottleGuide;
// Scrittura offset posizione da ricetta a parametri zona, per ogni attuatore parametrizzato nella zona
FOR #i := 1 TO "DB AreaPar".N["DB Collegamento HMI".SetData."Current data set number"].MotNumber DO
"DB AreaPar".N["DB Collegamento HMI".SetData."Current data set number"].A[#i].PosAdjust := "DB FormatPar".ZonaPos[#i];
END_FOR;
END_IF;
```
-