25 lines
1.1 KiB
Markdown
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;
|
||
|
|
```
|
||
|
|
-
|