Subversion Repositories Actemium.ccr-dmv

createdAt: "2019-06-06T10:59:15.276Z"
updatedAt: "2019-06-06T12:15:58.562Z"
type: "MARKDOWN_NOTE"
folder: "190358859eb9e5485ab2"
title: "WCONFIG Schermconfiguratie"
tags: []
content: '''
  # WCONFIG Schermconfiguratie
  De hier opgegeven info is geldig voor de applicatie **A01C1**.
  ## Scherm configuratie WebClient
  De scherm configuratie voor de standaard gebruiker op een server en iedere webclient wordt opgeslagen in een xls bestand (excel)
  Op iedere FactoryL:ink server is Microsoft Office 2003 geinstalleerd, en op deze kunnen dus xls bestanden geopend worden. In het wconfig.xls is voor ieder client de scherm configuratie vastgelegd.
  
  !!! note Let op
  In onderstaande afbeelding van de excel file geven de kolommen size***n*** de hoogte van de windows weer.
  !!!
  
  ![b1d4a439.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\b1d4a439.png)
  In de eerste kolom PC staan de systeem namen van de clients.
  
  ## Inlezen scherm configuratie in FactoryLink
  De configuratie uit wconfig.xls dient (handmatig) overgezet te worden vanuit het excel bestand naar SQL server. Om handmatig over tikken van de instellingen te voorkomen wordt er een dtsx package aangemaakt, welke de excel file importeert in SQL server.
  Het excel bestand is opgeslagen in D:\\fl\\a01c1\\net.
  De package voor automatisch importeren van de configuratie wordt als volgt aaangemaakt, start als eerste de wizard voor importeren van data. Gebruik hiervoor SQL Server Management Studio.
  
  ![25050aa0.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\25050aa0.png)
  
  ![cb0bc6ec.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\cb0bc6ec.png)
  
  ![1894aeec.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\1894aeec.png)
  
  ![4ef8c9cb.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\4ef8c9cb.png)
  
  ![40c69e9f.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\40c69e9f.png)
  In deze stap dient een $-teken aan het einde van de destination tabel verwijderd te worden!
  Ga vervolgens naar: Edit Mappings
  
  ![2a7bbec5.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\2a7bbec5.png)
  Vink in deze stap de opties Drop 7 recreate en Enable identity aan.
  Sluit vervolgens deze popup en ga verder met d ewizard.
  
  ![54b779d3.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\54b779d3.png)
  In deze stap van de wizard kun je de opdracht direct uitvoeren of opslaan.
  Kies voor Save SISS Package, en vervolgens voor File system.
  
  ![bbc4ecd9.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\bbc4ecd9.png)
  Sla package als wconfig.dts op in de applicatie: d:\\fl\\a01c1\\wconfig.dts
  
  ![47e65375.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\47e65375.png)
  Package is nu klaar voor gebruik, en start deze voor de eerste keer.
  
  ![336a0e93.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\336a0e93.png)
  Als dit de allereerste keer is volgt een fout melding: Drop van table wconfig is niet gelukt. Klopt tabel was nog niet aanwezig, controleer na afloop of de tabel nu wel bestaat en of deze gevuld is!
  
  !!! note Job wconfig
  Om de package eenvoudig te kunnen uitvoeren maken we een job aan, welke we vervolgens als nodig is kunnen starten.
  !!!
  ![a15c73a5.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\a15c73a5.png)
  
  Voeg nu 1 stap toe:
  ![ba191e97.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\ba191e97.png)
  
  ![a1795893.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\a1795893.png)
  Deze job kun je nu handmatig starten, en zal de import van het wconfig.xls bestand uitvoeren.
  
  !!! note Wanneer is configuratie overgenomen
  De configuratie is overgenomen direct nadata de job voltooid is, uiteraard met success!
  Effectief wordt een nieuwe configuratie pas als de client zich opnieuw bij de server aanmeldt. Afsluiten webclient en opnieuw laten verbinden is dus voldoende.
  !!!
  
  ![c203d82a.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\c203d82a.png)
  Met rechter muis toets op job klikken en dan 'Start job at step' kiezen. Wacht tot de actie voltooid is, en klik popup weg
  ![4d5bb493.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\4d5bb493.png)
  
  
  ## Configuratie in FactoryLink inlezen
  Om de scherm configuratie in Fl in te lezen hoeft er in een bestaande applicatie minimaal gewijzigd te worden. Er dient niet meer gebruik gemaakt te worden van DB4, maar van MSSQl.
  Volgende gemarkeerde regels dienen in ODBC historian (shared domain) aangemaakt te worden, en de vergelijkbare regels worden bij DBiV historian verwijderd. Is de configuratie van de DBIV historian leeg, dan kan in de systeem table de run flag weggehaald worden!
  
  ![96582e78.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\96582e78.png)
  
  ![11371b7f.png](:storage\\404722ee-6c39-4e28-a0a6-3433dc0e2ca4\\11371b7f.png)
  
  ## Webclient goed opstarten bij RDP
  De verwerking van de schermconfiguratie in een FL applicatie vindt plaats in splash.g
  Achter de 'knop' 'Delay 5 seconds' is PVB code geprogammeerd, vervange de drawload event routine door het volgende om deze RDP aware te maken:
  
  ```vbscript
  sub splash_g1018_DrawLoad
  
    This.Left = -32000 ' hide object
    Dim my_fluser as string
  
    'reset browser actie voor lezen window info
    ReadDB = 0
  
    'bepaal eerst of de user een webclient of local user is
    'fluser naam is geheel in lower case, 
    'bewaar alleen de eerste 10 karakters
    my_fluser = Lcase( left( FLUSER_U.value, 10))
  
    'default waarde is de (lokale) computernaam  
    MYPCNAME.value = environ("COMPUTERNAME")
  
    'Controleer op de user naam, is dit webclient of lokale user
    if (my_fluser = "fldatasrvc") then
  
      'Webclient user, naam start altijd met FLDATASRVC
    'Lees nu de client naam van het station in, deze bstaat en heeft
    'een naam voor een RDP sessie
      MYPCNAME.value = environ("CLIENTNAME")
    
    'Geen RDP sessie? Val dan terug op de lokale computer naam
    if (len(MYPCNAME.value) = 0) then
        MYPCNAME.value = environ("COMPUTERNAME")
      else
    
      'CLIENTNAME bestaat en heeft een naam, controleer voor uitzondering
        if (Lcase(environ("CLIENTNAME")) = "console") then
      
        'CLIENTNAME is console, dit komt voor bij client op w2k3 systeem
      'Er is dan een lokale gebruiker op de (client) server ingelogd,
      'Windows geeft deze altijd de naam console, en nu moeten we terugvallen
      'op de eigenlijke PC-naam.
          MYPCNAME.value = environ("COMPUTERNAME")
        end if
    end if
    end if
  
    'De tag MYPCNAME heeft nu een string, welke een unieke client naam vertegenwoordigt,
    'dit is de naam die in %FLAPP%/net/wconfig.xls gebruikt kan worden om de scherm 
    'layout vast te leggen
    
    'Start browser actie voor lezen window info
    LockRTDB
    read_screen_compl.value = 0
    read_screen.force 1
    UnLockRTDB
  end sub
  ```
  
  
  
  
  
'''
linesHighlighted: []
isStarred: false
isTrashed: false