Obsidean_VM/03-VM/HENKEL/93040 - HENKEL - BowlingGreen/Description/HENKEL - ALPLA - AUTEFA - B.../HENKEL - ALPLA - AUTEFA - B...

104 lines
3.9 KiB
Markdown
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

- **_AV_**  _(must be forwared to Autefa, must be shown on your HMIs)_
- **_AV Desc_**  _(must be shown on you HMIs)_
- **_Product Family_** _(must be used by Vetro to select right Recipe)_
- **_Customer article Number_** _(used by Vetro to find matching AV)_
### Identifier Explanations
| Prefix | Meaning | Usage |
| ------ | ------------------ | ---------------------------------------- |
| AB | Actual Batch | Current production batch being processed |
| NB | Next Batch | Next scheduled production batch |
| IDH | Internal Henkel ID | Unique identifier used by HENKEL |
| BTL | Bottle | Relates to bottle specifications |
| CON | Container | Relates to container specifications |
| PO | Production Order | Order number for batch tracking |
PO_NUMBER : Batch IDH_CON ( 12 char )
IDH_BTL : Article Number ( 12 char )
### Line index:
| 0 | Fill_TL21_L23 |
| --- | ------------- |
| 1 | Fill_TL22_L25 |
| 2 | Fill_TL23_L43 |
| 3 | Fill_TL25_L41 |
| 4 | Fill_TL26_L42 |
| 5 | Fill_TL27_L40 |
```pascal
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Filling_Line := 23;
REGION //actual batch
Strg_TO_Chars(Strg := "TL21_ToAlplaStatusLine_D".St.BatchActual.BatchNumber,
pChars := 0,
Cnt => #uiCnt,
Chars := "DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Batch_ID);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Target_1000 :=
DINT_TO_INT("TL21_ReadData_D".FromQ1.ToAutefa.TG10_ProductionInfo / 1000);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Target_Units :=
DINT_TO_INT("TL21_ReadData_D".FromQ1.ToAutefa.TG10_ProductionInfo MOD 1000);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Article_Variant_ID :=
"TL21_WriteData_D".ToQ1.FromAlpla.ActualSku.Av;
END_REGION
REGION //next batch
// Strg_TO_Chars(Strg := "TL21_WriteData_D".ToQ1.FromAlpla.NextSku.CustomArticleNum,
// pChars := 0,
// Cnt => #uiCnt,
// Chars := "DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Batch_ID);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Target_1000 :=
DINT_TO_INT("TL21_ReadData_D".FromQ1.FromHenkel.NBBottlesNumber / 1000);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Target_Units :=
DINT_TO_INT("TL21_ReadData_D".FromQ1.FromHenkel.NBBottlesNumber MOD 1000);
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Article_Variant_ID :=
"TL21_WriteData_D".ToQ1.FromAlpla.NextSku.Av;
END_REGION
REGION // trigger
#tg10_Line_send :=
("DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Article_Variant_ID <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Active_Batch_Article_Variant_ID
OR
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Article_Variant_ID <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Next_Batch_Article_Variant_ID
OR
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Target_1000 <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Active_Batch_Target_1000
OR
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Active_Batch_Target_Units <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Active_Batch_Target_Units
OR
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Target_1000 <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Next_Batch_Target_1000
OR
"DB2019_COM_VETRO_global_data_L23".TG10_send.DATA.Next_Batch_Target_Units <>
"DB2019_COM_VETRO_global_data_L23".TG10_Bk_send.DATA.Next_Batch_Target_Units)
AND NOT "99_HMI_Manage_D".AlarmsGen[0].x[11];
END_REGION
```
"TL22_WriteData_D".ToQ1.FromAlpla.NextSku.Av