Subversion Repositories DMV.werkorder

# standaard     Flecs
# funktie       Route texten in tags zetten aan de hand van gekozen FIFO route               
# versie        September 2019
# Auteur        RLD Automation

#Declaratie IML bestand
PROC p10_rtcx
BEGIN
END

#maximaal 4 regels in fifo
CONST _MAX_FIFO 5

#declaratie route teksten
DECLARE STRING _routetxt[10][25]

#Globale variabelen worden bij start IML op nul gezet
DECLARE SHORT _p10_rtcx_init

# Trigger       Opstart IML

PROC p10_rtcx_init
BEGIN

  IF _p10_rtcx_init = 0 THEN

    #CIP 1 route teksten
    _routetxt[1][0]  = "Geen route gekozen"
    _routetxt[1][1]  = "Melktank O-380"
    _routetxt[1][2]  = "Melktank O-381"
    _routetxt[1][3]  = "route 3"
    _routetxt[1][4]  = "route 4"
    _routetxt[1][5]  = "route 5"
    _routetxt[1][6]  = "route 6"
    _routetxt[1][7]  = "Weirein 1 incl. sec. weitank"
    _routetxt[1][8]  = "Weirein 2 incl. sec. weitank"
    _routetxt[1][9]  = "Weirein 3 incl. sec. weitank"
    _routetxt[1][10] = "Weirein 4 incl. sec. weitank"
    _routetxt[1][11] = "Weirein 5 incl. sec. weitank"
    _routetxt[1][12] = "Restmeklleiding"
    _routetxt[1][13] = "Reserve"
    _routetxt[1][14] = "Sludgetank 1 en circuit"
    _routetxt[1][15] = "Sludgetank 2 en circuit"
    _routetxt[1][16] = "O150 + melktoevoer"
    _routetxt[1][17] = "route 17"
    _routetxt[1][18] = "route 18"
    _routetxt[1][19] = "route 19"
    _routetxt[1][20] = "route 20"

    #CIP 2 route teksten
    _routetxt[2][0]  = "Geen route gekozen"
    _routetxt[2][1]  = "Weibuffertank O912"
    _routetxt[2][2]  = "Weibuffertank O913"
    _routetxt[2][3]  = "Weiaanvoer en retentaat afvoer RO1"
    _routetxt[2][4]  = "Weiaanvoer en retentaat afvoer RO2"
    _routetxt[2][5]  = "Weiaanvoer en retentaat afvoer RO3"
    _routetxt[2][6]  = "Weiaanvoer en retentaat afvoer RO4"
    _routetxt[2][7]  = "Permeaat afvoer RO1"
    _routetxt[2][8]  = "Permeaat afvoer RO2"
    _routetxt[2][9]  = "Permeaat afvoer RO3"
    _routetxt[2][10] = "Permeaat afvoer RO4"
    _routetxt[2][11] = "Permeaat tank O914"
    _routetxt[2][12] = "Permeaat tank O915"
    _routetxt[2][13] = "Retentaat afvoer 1 naar TP2A"
    _routetxt[2][14] = "Retentaat afvoer 2 naar TP2A"
    _routetxt[2][15] = "Standaardisatie leiding 1"
    _routetxt[2][16] = "Standaardisatie leiding 2"
    _routetxt[2][17] = "Flushwater afvoer naar RO units"
    _routetxt[2][18] = "route 18"
    _routetxt[2][19] = "route 19"
    _routetxt[2][20] = "route 20"
  
    #CIP 3 route teksten
    _routetxt[3][0]  = "Geen route gekozen"
    _routetxt[3][1]  = "Smelttank O1050"
    _routetxt[3][2]  = "Smelttank O1051"
    _routetxt[3][3]  = "Afvoer naar E34"
    _routetxt[3][4]  = "Wrongeltrechter 2 naar Smeltlijn 2/E38"
    _routetxt[3][5]  = "Wrongeltrechter 1 naar Walslijn 1"
    _routetxt[3][6]  = "Wrongeltrechter 2 naar Walslijn 2"
    _routetxt[3][7]  = "Wrongeltrechter 3 naar Walslijn 3"
    _routetxt[3][8]  = "Wrongeltrechter 4 naar Smeltlijn 4/E34"
    _routetxt[3][9]  = "Watertank B156"
    _routetxt[3][10] = "Kalkmelktank O275"
    _routetxt[3][11] = "Smelttank O1030"
    _routetxt[3][12] = "Smelttank O1031"
    _routetxt[3][13] = "Afvoer naar E38"
    _routetxt[3][14] = "Reserve"
    _routetxt[3][15] = "Wrongeltrechter 4 naar Smeltlijn 2/E38"
    _routetxt[3][16] = "Manifold naar Walslijn 2"
    _routetxt[3][17] = "Wrongeltrechter 1 naar Walslijn 2"
    _routetxt[3][18] = "Wrongeltrechter 3 naar Walslijn 2"
    _routetxt[3][19] = "??"
    _routetxt[3][20] = "??"

    #CIP 4 route teksten
    _routetxt[4][0]  = "Geen route gekozen"
    _routetxt[4][1]  = "Wrongellijn 1 "
    _routetxt[4][2]  = "Wrongellijn 2 "
    _routetxt[4][3]  = "Wrongellijn 3 "
    _routetxt[4][4]  = "Wrongellijn 4 "
    _routetxt[4][5]  = "Warmtewisselaar en primaire weitank 1 "
    _routetxt[4][6]  = "Warmtewisselaar en primaire weitank 1 "
    _routetxt[4][7]  = "Warmtewisselaar en primaire weitank 1 "
    _routetxt[4][8]  = "Warmtewisselaar en primaire weitank 1 "
    _routetxt[4][9]  = "Warmtewisselaar en primaire weitank 1 "
    _routetxt[4][10] = "??"
    _routetxt[4][11] = "??"
    _routetxt[4][12] = "??"
    _routetxt[4][13] = "??"
    _routetxt[4][14] = "??"
    _routetxt[4][15] = "??"
    _routetxt[4][16] = "??"
    _routetxt[4][17] = "??"
    _routetxt[4][18] = "??"
    _routetxt[4][19] = "??"
    _routetxt[4][20] = "??"

    #CIP 5 route teksten
    _routetxt[5][0]  = "Geen route gekozen"
    _routetxt[5][1]  = "Pasteur H367"
    _routetxt[5][2]  = "Pasteur H368"
    _routetxt[5][3]  = "Pasteur H371"
    _routetxt[5][4]  = "Aanvoer pasteurs UF 1 en afvoer RO5"
    _routetxt[5][5]  = "Diawater UF1"
    _routetxt[5][6]  = "Aanvoer pasteurs UF 2 en afvoer RO6"
    _routetxt[5][7]  = "Diawater UF2"
    _routetxt[5][8]  = "??"
    _routetxt[5][9]  = "??"
    _routetxt[5][10] = "??"
    _routetxt[5][11] = "??"
    _routetxt[5][12] = "??"
    _routetxt[5][13] = "??"
    _routetxt[5][14] = "??"
    _routetxt[5][15] = "??"
    _routetxt[5][16] = "??"
    _routetxt[5][17] = "??"
    _routetxt[5][18] = "??"
    _routetxt[5][19] = "??"
    _routetxt[5][20] = "??"

    #CIP 6 route teksten
    _routetxt[6][0]  = "Geen route gekozen"
    _routetxt[6][1]  = "Enzyminstallatie (D1570 + D1572 + doseerleiding)"
    _routetxt[6][2]  = "Spoelwatertank O1007"
    _routetxt[6][3]  = "Enzyminstallatie (O1014 - Zakkenstort)"
    _routetxt[6][4]  = "Reactor O1000"
    _routetxt[6][5]  = "Reactor O1001"
    _routetxt[6][6]  = "Reactor O1002"
    _routetxt[6][7]  = "Reactor O1003"
    _routetxt[6][8]  = "Reactor O1004"
    _routetxt[6][9]  = "Reactor O1005"
    _routetxt[6][10] = "Afvoerleiding CaseinaatXL + Post reactor + TVL Walslijn 2 en 1"
    _routetxt[6][11] = "??"
    _routetxt[6][12] = "??"
    _routetxt[6][13] = "??"
    _routetxt[6][14] = "??"
    _routetxt[6][15] = "??"
    _routetxt[6][16] = "??"
    _routetxt[6][17] = "??"
    _routetxt[6][18] = "??"
    _routetxt[6][19] = "??"
    _routetxt[6][20] = "??"
  ENDIF

  #initialisatie uitgevoerd
  _p10_rtcx_init = -1
END

  
# standaard     Flecs
# funktie       Route texten in tags zetten aan de hand van gekozen FIFO route               
# versie        Oktober 2019
# Auteur        RLD Automation - Marcel Jordaan 
# Trigger       Completion inlezen DS[10][10]
PROC p10_rtc1
BEGIN
DECLARE SHORT _regel

  #Controleer of alle teksten ingevuld zijn, init gereed
  CALL p10_rtcx_init

  #voer een update uit om de setpoint teksten aan te passen
  _regel = 0
  WHILE _regel < _MAX_FIFO
  
    IF _regel > 0 THEN
      p10_c1_fifo_routetxt[_regel] = _routetxt[1][p10_c1_fifo_routenr_sp[_regel]]
  ELSE
    p10_c1_fifo_routetxt[_regel] = _routetxt[1][p10_c1_fifo_routenr_plc[_regel]]
  ENDIF
  
    _regel = _regel + 1
  WEND
END