PC World 2004 October/PCWorld_2004-10_cd.bin/software/komercni/spravce/SprFree804b.exe/%MAINDIR%/SPRAVCE8/CREADBC.krt

Text File | 2004-09-08 | 439.9 KB | 11,824 lines

*** WARNING *** DO NOT MODIFY THIS FILE IN ANY WAY! *** WARNING ***

**__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER**
procedure RIDELETE
** verze = 8.04a
local llRetVal
llRetVal=.t.
 IF (ISRLOCKED() and !deleted()) OR !RLOCK()
    llRetVal=.F.
  ELSE
    IF !deleted()
      DELETE
      IF CURSORGETPROP('BUFFERING') > 1
          =TABLEUPDATE()
      ENDIF
      llRetVal=pnerror=0
    ENDIF not already deleted
  ENDIF
  UNLOCK RECORD (RECNO())
RETURN llRetVal

procedure rierror
parameters tnErrNo,tcMessage,tcCode,tcProgram
local lnErrorRows,lnXX
lnErrorRows=alen(gaErrors,1)
if type('gaErrors[lnErrorRows,1]')<>"L"
  dimension gaErrors[lnErrorRows+1,alen(gaErrors,2)]
  lnErrorRows=lnErrorRows+1
endif
gaErrors[lnErrorRows,1]=tnErrNo
gaErrors[lnErrorRows,2]=tcMessage
gaErrors[lnErrorRows,3]=tcCode
gaErrors[lnErrorRows,4]=""
lnXX=1
do while !empty(program(lnXX))
  gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
  program(lnXX)
  lnXX=lnXX+1
enddo
gaErrors[lnErrorRows,5]=pcParentDBF
gaErrors[lnErrorRows,6]=pnParentRec
gaErrors[lnErrorRows,7]=pcParentID
gaErrors[lnErrorRows,8]=pcParentExpr
gaErrors[lnErrorRows,9]=pcChildDBF
gaErrors[lnErrorRows,10]=pnChildRec
gaErrors[lnErrorRows,11]=pcChildID
gaErrors[lnErrorRows,12]=pcChildExpr
return tnErrNo

PROCEDURE riend
PARAMETERS tlSuccess
local lnXX,lnSpot,lcWorkArea
IF tlSuccess
  END TRANSACTION
ELSE
  SET DELETED OFF
  ROLLBACK
  SET DELETED ON
ENDIF
IF EMPTY(pcRIolderror)
  ON ERROR
ELSE
  ON ERROR &pcRIolderror.
ENDIF
FOR lnXX=1 TO occurs("*",pcRIcursors)
  lnSpot=atc("*",pcRIcursors,lnXX)+1
  USE IN (VAL(substr(pcRIcursors,lnSpot,5)))
ENDFOR
IF pcOldCompat = "ON"
    SET COMPATIBLE ON
ENDIF
IF pcOldDele="OFF"
  SET DELETED OFF
ENDIF
IF pcOldExact="ON"
  SET EXACT ON
ENDIF
IF pcOldTalk="ON"
  SET TALK ON
ENDIF
do case
  case empty(pcOldDBC)
    set data to
  case pcOldDBC<>DBC()
    set data to (pcOldDBC)
endcase
RETURN .T.


PROCEDURE rireuse
* rireuse.prg
PARAMETERS tcTableName,tcWkArea
pcRIcursors = strtran(pcRIcursors,upper(tcTableName)+"?"+str(tcWkArea,5),;
  upper(tcTableName)+"*"+str(tcWkArea,5))
RETURN .t.

********************************************************************************
procedure __RI_UPDATE_cis_hpou
** "Referential integrity update trigger for" cis_hpou
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR POUZITI=lcOldParentID
    pnChildRec=recno()
    pcChildID=POUZITI
    pcChildExpr="POUZITI"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("POUZITI",lcParentID,"CIS_HPOU")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmenu promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR POUZITI=lcOldParentID
    pnChildRec=recno()
    pcChildID=POUZITI
    pcChildExpr="POUZITI"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("POUZITI",lcParentID,"CIS_HPOU")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_hpou
********************************************************************************
procedure __RI_UPDATE_POZADAV
** "Referential integrity update trigger for" pozadav
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("pozarekl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"POZADAV")
  ENDSCAN get all of the pozarekl records
  =rireuse("pozarekl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" pozadav
********************************************************************************
procedure __RI_UPDATE_cis_hzna
** "Referential integrity update trigger for" cis_hzna
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ZNACKA=lcOldParentID
    pnChildRec=recno()
    pcChildID=ZNACKA
    pcChildExpr="ZNACKA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ZNACKA",lcParentID,"CIS_HZNA")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmenu promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ZNACKA=lcOldParentID
    pnChildRec=recno()
    pcChildID=ZNACKA
    pcChildExpr="ZNACKA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ZNACKA",lcParentID,"CIS_HZNA")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_hzna
********************************************************************************
********************************************************************************
procedure __RI_UPDATE_sw_sablo
** "Referential integrity update trigger for" sw_sablo
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("sw_sabsw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR nazev=lcOldParentID
    pnChildRec=recno()
    pcChildID=NAZEV
    pcChildExpr="NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("NAZEV",lcParentID,"SW_SABLO")
  ENDSCAN get all of the SW_SABLO records
  =rireuse("SW_SABLO",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF



ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" SW_SABLO
********************************************************************************
********************************************************************************
procedure __RI_UPDATE_cis_orga
** "Referential integrity update trigger for" cis_orga
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
LOCAL lcOldNazev, lcNazev
*** zmena cisla
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID = OLDVAL("CISLO")
lcOldNazev    = OLDVAL("NAZEV")
lcOldParentIDNazev = Cislo + OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID = CISLO
lcNazev    = NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dokument")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the dokument records
  =rireuse("dokument",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("soft_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the soft_pri records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_osob")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=ORG_CS
    pcChildExpr="ORG_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_CS",lcParentID,"CIS_ORGA")
  ENDSCAN get all of the cis_osob records
  =rireuse("cis_osob",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed

*** zmena nazvu
SELECT (lcParentWkArea)
pcParentID   = lcParentId + lcOldNazev
pcParentExpr = "NAZEV"

IF !(lcNazev == lcOldNazev)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Org_Cs + Org_Nazev = lcParentID + lcOldNazev
    pnChildRec  = recno()
    pcChildID   = ORG_Nazev
    pcChildExpr = "ORG_Nazev"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_Nazev",lcNazev,"CIS_ORGA")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR ORG_CS + Org_Nazev = lcParentID + lcOldNazev
    pnChildRec=recno()
    pcChildID=ORG_Nazev
    pcChildExpr="ORG_Nazev"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ORG_Nazev",lcNazev,"CIS_ORGA")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_orga
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_oshw
** "Referential integrity update trigger for" cis_oshw
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR OS=lcOldParentID
    pnChildRec=recno()
    pcChildID=OS
    pcChildExpr="OS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OS",lcParentID,"CIS_OSHW")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR OS=lcOldParentID
    pnChildRec=recno()
    pcChildID=OS
    pcChildExpr="OS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OS",lcParentID,"CIS_OSHW")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_oshw
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_osob
** "Referential integrity update trigger for" cis_osob
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
LOCAL lcIdCisloParent && SOB 24.2.2004 hodnota pro v²b∞r v∞t pro p°epsßnφ zm∞n∞nΘ OSOBA
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("OSOBA")
pcParentID=lcOldParentID
pcParentExpr="OSOBA"
lcParentID=OSOBA
lcIdCisloParent = IDCISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDSPRAVCE=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=SPRAVCE
    pcChildExpr="SPRAVCE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SPRAVCE",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet (osoba)
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet (spravce)
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDSPRAVCE=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=SPRAVCE
    pcChildExpr="SPRAVCE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SPRAVCE",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dokument")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the dokument records
  =rireuse("dokument",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dokument")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDZAPUJCIL=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA_ZAP
    pcChildExpr="OSOBA_ZAP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA_ZAP",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the dokument records
  =rireuse("dokument",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDSPRAVCE=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=SPRAVCE
    pcChildExpr="SPRAVCE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SPRAVCE",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet (osoba)
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet (spravce)
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDSPRAVCE=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=SPRAVCE
    pcChildExpr="SPRAVCE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SPRAVCE",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDZADATEL=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=ZADATEL
    pcChildExpr="ZADATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("ZADATEL",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDRESITEL=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=RESITEL
    pcChildExpr="RESITEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("RESITEL",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF


  lcChildWkArea=riopen("soft_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the soft_pri records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("sit_hesl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the sit_hesl records
  =rireuse("sit_hesl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("apli_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("apli_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_hw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_hw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_pl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pv")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_pv",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR IDOSOBA=lcIdCisloParent
    pnChildRec=recno()
    pcChildID=OSOBA
    pcChildExpr="OSOBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OSOBA",lcParentID,"CIS_OSOB")
  ENDSCAN get all of the site records
  =rireuse("opr_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_osob
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_ossw
** "Referential integrity update trigger for" cis_ossw
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SW_SYS=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_SYS
    pcChildExpr="SW_SYS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_SYS",lcParentID,"CIS_OSSW")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SW_SYS=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_SYS
    pcChildExpr="SW_SYS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_SYS",lcParentID,"CIS_OSSW")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_ossw
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_umis
** "Referential integrity update trigger for" cis_umis
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dokument")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the dokument records
  =rireuse("dokument",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("soft_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the soft_pri records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_osob")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR MISTO_CS=lcOldParentID
    pnChildRec=recno()
    pcChildID=MISTO_CS
    pcChildExpr="MISTO_CS"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("MISTO_CS",lcParentID,"CIS_UMIS")
  ENDSCAN get all of the cis_osob records
  =rireuse("cis_osob",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_umis
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_vyr
** "Referential integrity update trigger for" cis_vyr
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("cis_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VYROBCE=lcOldParentID
    pnChildRec=recno()
    pcChildID=VYROBCE
    pcChildExpr="VYROBCE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VYROBCE",lcParentID,"CIS_VYR")
  ENDSCAN get all of the cis_soft records
  =rireuse("cis_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_vyr
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_dokument
** "Referential integrity update trigger for" dokument
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_hw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_hw records
  =rireuse("dok_hw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_sw records
  =rireuse("dok_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_pr records
  =rireuse("dok_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
  lcChildWkArea=riopen("dok_prl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_prll records
  =rireuse("dok_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
  lcChildWkArea=riopen("dok_prv")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_prv records
  =rireuse("dok_prv",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"DOKUMENT")
  ENDSCAN get all of the dok_ln records
  =rireuse("dok_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" dokument
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_firmy
** "Referential integrity update trigger for" firmy
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny provest i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("licence")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the licence records
  =rireuse("licence",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dokument")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the dokument records
  =rireuse("dokument",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL
    pcChildExpr="DODAVATEL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("DODAVATEL",lcParentID,"FIRMY")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_hw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_hw records
  =rireuse("opr_hw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_sw records
  =rireuse("opr_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_pr records
  =rireuse("opr_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_pl records
  =rireuse("opr_pl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pv")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_pv records
  =rireuse("opr_pv",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR DODAVATEL+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=DODAVATEL+CISLO
    pcChildExpr="DODAVATEL+CISLO"
    llRetVal=riupdate("DODAVATEL",substr(lcParentID,1,30),"firmy")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the opr_ln records
  =rireuse("opr_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" firmy
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_prisluse
** "Referential integrity update trigger for" prisluse
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"PRISLUSE")
  ENDSCAN get all of the dok_pr records
  =rireuse("dok_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("opr_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRISLUSE")
  ENDSCAN get all of the opr_pr records
  =rireuse("opr_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH == "P "
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRISLUSE")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" prisluse
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_site
** "Referential integrity update trigger for" site
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"SITE")
  ENDSCAN get all of the dok_ln records
  =rireuse("dok_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SITE")
  ENDSCAN get all of the opr_ln records
  =rireuse("opr_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=SITE+CISLO
    pcChildExpr="SITE+CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny provest i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=SITE+CISLO
    pcChildExpr="SITE+CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SITE = lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    llRetVal=riupdate("SITE",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("sit_hesl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SIT=lcOldParentID
    pnChildRec=recno()
    pcChildID=SIT+OSOBA
    pcChildExpr="SIT+OSOBA"
    llRetVal=riupdate("SIT",lcParentID,"site")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the sit_hesl records
  =rireuse("sit_hesl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH = "L "
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SITE")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" site
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_software
** "Referential integrity update trigger for" software
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"SOFTWARE")
  ENDSCAN get all of the dok_sw records
  =rireuse("dok_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("opr_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the opr_sw records
  =rireuse("opr_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("soft_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR SOFTWARE+CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=SOFTWARE+CISLO
    pcChildExpr="SOFTWARE+CISLO"
    llRetVal=riupdate("SOFTWARE",substr(lcParentID,1,8),"software")
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
  ENDSCAN get all of the soft_pri records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
*** zmena cislo v LICENCE
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("licence")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the licence records
  =rireuse("licence",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
*** zmena cislo v UPGRADE
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("upgrade")                && Cislo v UPGRADE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the upgrade records
  =rireuse("upgrade",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("upg_kusy")                && Cislo v UPG_KUSY
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the upg_kusy records

  SCAN FOR CISLO=lcOldParentID                    && PuvCislo v UPG_KUSY
    pnChildRec=recno()
    pcChildID=PUVCISLO
    pcChildExpr="PUVCISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("PUVCISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the upg_kusy records

  =rireuse("upg_kusy",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH = "S "
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"SOFTWARE")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
*** zm∞ny v souborech SW-SCANu
IF TYPE("lSwScan") <> "U"
    *** zmena cislo v SW_LICSW
    SELECT (lcParentWkArea)
    pcParentDBF=dbf()
    pnParentRec=recno()
    lcOldParentID=OLDVAL("CISLO")
    pcParentID=lcOldParentID
    pcParentExpr="CISLO"
    lcParentID=CISLO
    IF !(lcParentID==lcOldParentID)
      lcChildWkArea=riopen("SW_LICSW")
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR CisloLic=lcOldParentID
        pnChildRec=recno()
        pcChildID=CisloLic
        pcChildExpr="CISLOLIC"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("CISLOLIC",lcParentID,"SOFTWARE")
      ENDSCAN get all of the SW_LICSW records
      =rireuse("SW_LICSW",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF
    ENDIF this parent id changed
    *** zmena cislo v SW_SOUB
    SELECT (lcParentWkArea)
    pcParentDBF=dbf()
    pnParentRec=recno()
    lcOldParentID=OLDVAL("CISLO")
    pcParentID=lcOldParentID
    pcParentExpr="CISLO"
    lcParentID=CISLO
    IF !(lcParentID==lcOldParentID)
      lcChildWkArea=riopen("sw_soub")
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR CisloLic=lcOldParentID
        pnChildRec=recno()
        pcChildID=CisloLic
        pcChildExpr="CISLOLIC"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("CISLOLIC",lcParentID,"SOFTWARE")
      ENDSCAN get all of the sw_soub records
      =rireuse("sw_soub",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF
    ENDIF this parent id changed
    *** zmena cislo v SW_SABSW
    SELECT (lcParentWkArea)
    pcParentDBF=dbf()
    pnParentRec=recno()
    lcOldParentID=OLDVAL("CISLO")
    pcParentID=lcOldParentID
    pcParentExpr="CISLO"
    lcParentID=CISLO
    IF !(lcParentID==lcOldParentID)
      lcChildWkArea=riopen("sw_sabsw")
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR software=lcOldParentID
        pnChildRec=recno()
        pcChildID=software
        pcChildExpr="software"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("software",lcParentID,"SOFTWARE")
      ENDSCAN get all of the sw_sabsw records
      =rireuse("sw_sabsw",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF
    ENDIF this parent id changed
ENDIF
*** konec vÜech zm∞n
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" software
********************************************************************************

********************************************************************************
PROCEDURE RIUPDATE
lparameters tcFieldName,tcNewValue, tcPar

local llRetVal, lnStart, lnPocet, lnKonec, xx, lcJmenoPole, lnPozice, lnDelka
llRetVal=.t.
 IF ISRLOCKED() OR !RLOCK()
    llRetVal=.F.
  ELSE
    IF !(EVALUATE(tcFieldName)==tcNewValue)
        lnPocet = OCCURS("+",tcFieldName)+1
        IF lnPocet = 1
          REPLACE (tcFieldName) WITH tcNewValue
        ELSE
            lnStart = 1
            lnPOzice = 1
            FOR xx = 1 TO lnPocet
                lnKonec = AT("+",tcFieldName,xx)
                lnKonec = IIF(lnKonec=0,LEN(tcFieldName)+1,lnKonec)
                lcJmenoPole = SUBSTR(tcFieldName, lnStart, lnKonec-lnStart)
                lnDelka = LEN(EVAL(lcJmenoPole))
                REPLACE (lcJmenoPole) WITH SUBSTR(tcNewValue, lnPozice, lnDelka)
                lnStart = lnStart + lnKonec
                lnPozice = lnPozice + lnDelka
            ENDFOR
        ENDIF
        IF CURSORGETPROP('BUFFERING') > 1
               =TABLEUPDATE()
          ENDIF
          llRetVal=pnerror=0
    ENDIF values don't already match
  ENDIF it's locked already, or I was able to lock it
  UNLOCK RECORD (RECNO())
return llRetVal
**********************************************************************************************

**********************************************************************************************
PROCEDURE riopen
PARAMETERS tcTable,tcOrder
local lcCurWkArea,lcNewWkArea,lnInUseSpot, lcPomPath
lnInUseSpot=atc(tcTable+"*",pcRIcursors)

lcPomPath = SYS(5) + SYS(2003)
IF lnInUseSpot=0
  IF TYPE("cUniv") == "U"
      cUniv = ""
  ENDIF
  DO CASE
      CASE cUniv = "KSPRAVCE"
          IF INLIST(tcTable,"SK_HW", "SK_PR", "SK_SW", "SK_FIRMY", "SK_OPRAV", "SK_ORGA",;
          "CIS_PROJ", "OBJEDNAV", "PR_PRI", "SK_SETUP", "SW_PRI", "VZOR_HW", "VZOR_PR",;
          "VZOR_SPR", "VZOR_SW", "SK_OPRHW", "SK_OPRPR")
              lcPomPath = PathSklad
          ENDIF
      OTHERWISE
          lcPomPath = Path
  ENDCASE
  lcCurWkArea=select()
  SELECT 0
  lcNewWkArea=select()
  IF NOT EMPTY(tcOrder)
    USE '&lcPomPath\&tcTable' AGAIN ORDER (tcOrder) ;
      ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
  ELSE
    USE '&lcPomPath\&tcTable' AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
  ENDIF
  if pnerror=0
    pcRIcursors=pcRIcursors+upper(tcTable)+"?"+STR(SELECT(),5)
  else
    lcNewWkArea=0
  endif something bad happened while attempting to open the file
ELSE
  lcNewWkArea=val(substr(pcRIcursors,lnInUseSpot+len(tcTable)+1,5))
  pcRIcursors = strtran(pcRIcursors,upper(tcTable)+"*"+str(lcNewWkArea,5),;
    upper(tcTable)+"?"+str(lcNewWkArea,5))
  IF NOT EMPTY(tcOrder)
    SET ORDER TO (tcOrder) IN (lcNewWkArea)
  ENDIF sent an order
  if pnerror<>0
    lcNewWkArea=0
  endif something bad happened while setting order
ENDIF
RETURN (lcNewWkArea)
**********************************************************************************************

**********************************************************************************************
procedure __RI_UPDATE_cis_ptyp
** "Referential integrity update trigger for" cis_ptyp
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
LOCAL lcNazev, lcOldNazev

*** zmena cisla typu
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID = OLDVAL("CISLO")
lcOldNazev    = OLDVAL("NAZEV")
pcParentID    = lcOldParentID
pcParentExpr  = "CISLO"
lcParentID    = CISLO
lcNazev       = NAZEV

LOCAL lcAlias1, lcAlias2
DO CASE
    CASE INLIST(LEFT(lcOldParentId,1), "K", "O")
        lcAlias1 = "prisluse"
        lcAlias2 = "lik_pris"
    CASE INLIST(LEFT(lcOldParentId, 1), "S", "L")
        lcAlias1 = "pris_lan"
        lcAlias2 = "lik_plan"
    CASE INLIST(LEFT(lcOldParentId, 1), "D", "V")
        lcAlias1 = "pris_vol"
        lcAlias2 = "lik_pvol"
ENDCASE

IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen(lcAlias1)
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_PTYP")
  ENDSCAN get all of the prisluse records
  =rireuse(lcAlias1,lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny provest i do zlikvidovanych vet
  lcChildWkArea=riopen(lcAlias2)
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_PTYP")
  ENDSCAN get all of the lik_pris records
  =rireuse(lcAlias2,lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_pob1")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_PTYP")
  ENDSCAN get all of the cis_pob1 records
  =rireuse("cis_pob1",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_pob2")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_PTYP")
  ENDSCAN get all of the cis_pob2 records
  =rireuse("cis_pob2",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_pnaz")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_PTYP")
  ENDSCAN get all of the cis_pnaz records
  =rireuse("cis_pnaz",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed

*** zmena nazvu
SELECT (lcParentWkArea)
pcParentID   = lcParentId + lcOldNazev
pcParentExpr = "NAZEV"

IF !(lcNazev == lcOldNazev)
  lcChildWkArea=riopen(lcAlias1)
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Typ + TypNaz = lcParentID + lcOldNazev
    pnChildRec  = recno()
    pcChildID   = TypNaz
    pcChildExpr = "Typ_Naz"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TypNaz",lcNazev,"CIS_PTYP")
  ENDSCAN get all of the hardware records
  =rireuse(lcAlias1,lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen(lcAlias2)
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Typ + TypNaz = lcParentID + lcOldNazev
    pnChildRec=recno()
    pcChildID=TypNaz
    pcChildExpr="TypNaz"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TypNaz",lcNazev,"CIS_PTYP")
  ENDSCAN get all of the lik_hard records
  =rireuse(lcAlias2,lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_ptyp
********************************************************************************

PROCEDURE __RI_UPDATE_CIS_OBLA

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID         && parent's value to be sought in child
LOCAL lcOldParentID     && previous parent id value
LOCAL lcChildWkArea     && child work area handle returned by riopen
LOCAL lcChildID         && child's value to be sought in parent
LOCAL lcOldChildID         && old child id value
LOCAL lcParentWkArea    && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
**------ ZMENA NAZVU oblast a podoblasti
lcOldParentID=OLDVAL("NAZEV")+OLDVAL("PODOBLAST")
pcParentID=lcOldParentID
pcParentExpr="NAZEV+PODOBLAST"
lcParentID=NAZEV+PODOBLAST
IF !(lcParentID==lcOldParentID)            && pokud se zm∞nφ nazev oblasti nebo podoblast
  lcChildWkArea=riopen("cis_soft")        && 1) zm∞nit v CIS_SOFT
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR OBLAST+PODOBLAST=lcOldParentID
    pnChildRec=recno()
    pcChildID=OBLAST+PODOBLAST
    pcChildExpr="OBLAST+PODOBLAST"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OBLAST+PODOBLAST",lcParentID,"OBLAST+PODOBLAST")
  ENDSCAN get all of the soft_pri records
  =rireuse("cis_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

PROCEDURE __RI_UPDATE_CIS_SOFT

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID         && parent's value to be sought in child
LOCAL lcOldParentID     && previous parent id value
LOCAL lcChildWkArea     && child work area handle returned by riopen
LOCAL lcChildID         && child's value to be sought in parent
LOCAL lcOldChildID         && old child id value
LOCAL lcParentWkArea    && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
**------ ZMENA NAZVU A VERZE software
lcOldParentID = OLDVAL("NAZEV")+OLDVAL("VERZE")
OldNazev      = ALLTRIM(OLDVAL("NAZEV"))+" "+OLDVAL("VERZE")
pcParentID    = lcOldParentID
pcParentExpr  = "NAZEV+VERZE"
lcParentID    = NAZEV+VERZE
cNewNazev     = ALLTRIM(NAZEV)+" "+VERZE
IF !(lcParentID==lcOldParentID)            && pokud se zm∞nφ nazev oblasti nebo podoblast
  lcChildWkArea=riopen("software")        && 1) zm∞nit v SOFTWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)

  SCAN FOR NAZEV+VERZE=lcOldParentID
    pnChildRec=recno()
    pcChildID=NAZEV+VERZE
    pcChildExpr="NAZEV+VERZE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
  ENDSCAN get all of the software records

  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR NAZEV+VERZE=lcOldParentID
    pnChildRec=recno()
    pcChildID=NAZEV+VERZE
    pcChildExpr="NAZEV+VERZE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("soft_pri")        &&
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Sof_Nazev+Verze = lcOldParentId
    pnChildRec = recno()
    pcChildID  = Sof_Nazev+Verze
    pcChildExpr="Sof_Nazev+Verze"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("Sof_Nazev+Verze",lcParentID,"Sof_Nazev+Verze")
  ENDSCAN get all of the software records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dok_sw")        && 1) zm∞nit nazev v dok_sw
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBANAZEV = OldNazev
    pnChildRec = recno()
    pcChildID  = VAZBANAZEV
    pcChildExpr="VAZBANAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBANAZEV",cNewNazev,"VAZBANAZEV")
  ENDSCAN get all of the software records
  =rireuse("dok_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  IF TYPE("lSwScan") <> "U"
    IF lSwScan
        *** SW_LIST
          lcChildWkArea=riopen("sw_list")        && 1) zm∞nit v SW_LIST
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_list records
          =rireuse("sw_list",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

        *** SW_NALEZ
          lcChildWkArea=riopen("sw_nalez")        && 1) zm∞nit v SW_NALEZ
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_nalez records
          =rireuse("sw_nalez",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_BEZLI
          lcChildWkArea=riopen("sw_bezli")        && 1) zm∞nit v SW_BEZLI
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_bezli records
          =rireuse("sw_bezli",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_LICSW
          lcChildWkArea=riopen("SW_LICSW")        && 1) zm∞nit v SW_LICSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the SW_LICSW records
          =rireuse("SW_LICSW",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_SOUB
          lcChildWkArea=riopen("sw_soub")        && 1) zm∞nit v SW_SOUB
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_soub records
          =rireuse("sw_soub",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_PORSW
          lcChildWkArea=riopen("sw_porsw")        && 1) zm∞nit v SW_PORSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_porsw records
          =rireuse("sw_porsw",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_CISSW
          lcChildWkArea=riopen("SW_CISSW")        && 1) zm∞nit v SW_CISSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_cissw records
          =rireuse("SW_CISSW",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_NEVED
          lcChildWkArea=riopen("sw_neved")        && 1) zm∞nit v SW_NEVED
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_neved records
          =rireuse("sw_neved",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_NSOUB
          lcChildWkArea=riopen("sw_nsoub")        && 1) zm∞nit v SW_NSOUB
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_nsoub records
          =rireuse("sw_nsoub",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF
        *** SW_BALIK
          lcChildWkArea=riopen("sw_balik")        && 1) zm∞nit v SW_BALIK
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR NAZEV+VERZE = lcOldParentId
            pnChildRec = recno()
            pcChildID  = NAZEV+VERZE
            pcChildExpr="NAZEV+VERZE"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
          ENDSCAN get all of the sw_balik records
          =rireuse("sw_balik",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

        IF cMult = "A"
              lcChildWkArea=riopen("sw_docas")        && 1) zm∞nit v SW_DOCAS
              IF lcChildWkArea<=0
                IF _triggerlevel=1
                  DO riend WITH .F.
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN .F.
              ENDIF not able to open the child work area
              pcChildDBF=dbf(lcChildWkArea)
              SELECT (lcChildWkArea)
              SCAN FOR NAZEV+VERZE = lcOldParentId
                pnChildRec = recno()
                pcChildID  = NAZEV+VERZE
                pcChildExpr="NAZEV+VERZE"
                IF NOT llRetVal
                  EXIT
                ENDIF && not llretval
                llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
              ENDSCAN get all of the sw_list records
              =rireuse("sw_docas",lcChildWkArea)
              IF NOT llRetVal
                IF _triggerlevel=1
                  DO riend WITH llRetVal
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN llRetVal
              ENDIF

              lcChildWkArea=riopen("sw_docsw")        && 1) zm∞nit v SW_DOCSW
              IF lcChildWkArea<=0
                IF _triggerlevel=1
                  DO riend WITH .F.
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN .F.
              ENDIF not able to open the child work area
              pcChildDBF=dbf(lcChildWkArea)
              SELECT (lcChildWkArea)
              SCAN FOR NAZEV+VERZE = lcOldParentId
                pnChildRec = recno()
                pcChildID  = NAZEV+VERZE
                pcChildExpr="NAZEV+VERZE"
                IF NOT llRetVal
                  EXIT
                ENDIF && not llretval
                llRetVal=riupdate("NAZEV+VERZE",lcParentID,"NAZEV+VERZE")
              ENDSCAN get all of the sw_docsw records
              =rireuse("sw_docsw",lcChildWkArea)
              IF NOT llRetVal
                IF _triggerlevel=1
                  DO riend WITH llRetVal
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN llRetVal
              ENDIF


        ENDIF
      ENDIF
    ENDIF
ENDIF

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

**********************************************************************************************
PROCEDURE __RI_UPDATE_CIS_PNAZ

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID         && parent's value to be sought in child
LOCAL lcOldParentID     && previous parent id value
LOCAL lcChildWkArea     && child work area handle returned by riopen
LOCAL lcChildID         && child's value to be sought in parent
LOCAL lcOldChildID         && old child id value
LOCAL lcParentWkArea    && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
**------ ZMENA NAZVU prislusenstvi
lcOldParentID=OLDVAL("TYP")+OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="TYP+NAZEV"
lcParentID=TYP+NAZEV
IF !(lcParentID==lcOldParentID)            && pokud se zm∞nφ nazev oblasti nebo podoblast
  lcChildWkArea=riopen("prisluse")        && 1) zm∞nit v PRISLUSE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the software records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i di zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+NAZEV=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+NAZEV
    pcChildExpr="TYP+NAZEV"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+NAZEV",lcParentID,"TYP+NAZEV")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed

**------ zmena nazvu procesoru a provedeni se musi zobrazit v HW
SELECT (lcStartArea)
IF INLIST(TYP,"K002","K013")
    cTyp = TYP
    lcOldParentID=OLDVAL("NAZEV")
    pcParentID=lcOldParentID
    pcParentExpr="NAZEV"
    lcParentID=NAZEV
    IF !(lcParentID==lcOldParentID)
      lcChildWkArea=riopen("hardware")
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      IF cTyp = "K002"
          SCAN FOR TYP =lcOldParentID
            pnChildRec=recno()
            pcChildID=TYP
            pcChildExpr="TYP"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("TYP",lcParentID,"TYP")
            ENDSCAN get all of the software records
      ELSE
          SCAN FOR PROVEDENI =lcOldParentID
            pnChildRec=recno()
            pcChildID=PROVEDENI
            pcChildExpr="PROVEDENI"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("PROVEDENI",lcParentID,"TYP")
            ENDSCAN get all of the software records
      ENDIF
      =rireuse("hardware",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

    *** zmeny je treba promitnout i do zlikvidovanych vet
      lcChildWkArea=riopen("lik_hard")
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      IF cTyp = "K002"
          SCAN FOR TYP =lcOldParentID
            pnChildRec=recno()
            pcChildID=TYP
            pcChildExpr="TYP"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("TYP",lcParentID,"TYP")
            ENDSCAN get all of the lik_hard records
      ELSE
          SCAN FOR PROVEDENI =lcOldParentID
            pnChildRec=recno()
            pcChildID=PROVEDENI
            pcChildExpr="PROVEDENI"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("PROVEDENI",lcParentID,"TYP")
            ENDSCAN get all of the lik_hard records
      ENDIF
      =rireuse("lik_hard",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF
    ENDIF this parent id changed
ENDIF
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

**********************************************************************************************
PROCEDURE __RI_UPDATE_CIS_POB1

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID         && parent's value to be sought in child
LOCAL lcOldParentID     && previous parent id value
LOCAL lcChildWkArea     && child work area handle returned by riopen
LOCAL lcChildID         && child's value to be sought in parent
LOCAL lcOldChildID         && old child id value
LOCAL lcParentWkArea    && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
**------ ZMENA OBLASTI1 v prislusenstvi
lcOldParentID=OLDVAL("TYP")+OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="TYP+NAZEV"
lcParentID=TYP+NAZEV
IF !(lcParentID==lcOldParentID)            && pokud se zm∞nφ nazev oblasti nebo podoblast
  lcChildWkArea=riopen("prisluse")        && 1) zm∞nit v PRISLUSE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the software records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST1
    pcChildExpr="TYP+OBLAST1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST1",lcParentID,"TYP+OBLAST1")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

**********************************************************************************************
PROCEDURE __RI_UPDATE_CIS_POB2

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID         && parent's value to be sought in child
LOCAL lcOldParentID     && previous parent id value
LOCAL lcChildWkArea     && child work area handle returned by riopen
LOCAL lcChildID         && child's value to be sought in parent
LOCAL lcOldChildID         && old child id value
LOCAL lcParentWkArea    && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
**------ ZMENA OBLASTI2 v prislusenstvi
lcOldParentID=OLDVAL("TYP")+OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="TYP+NAZEV"
lcParentID=TYP+NAZEV
IF !(lcParentID==lcOldParentID)            && pokud se zm∞nφ nazev oblasti nebo podoblast
  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the software records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny primitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP+OBLAST2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP+OBLAST2
    pcChildExpr="TYP+OBLAST2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP+OBLAST2",lcParentID,"TYP+OBLAST2")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

**********************************************************************************************
PROCEDURE  __RI_UPDATE_hardware

LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)                && zmena v PRISLUSE
  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR PRIRAD=lcOldParentID
    pnChildRec=recno()
    pcChildID=PRIRAD
    pcChildExpr="PRIRAD"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("PRIRAD",lcParentID,"HARDWARE")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR PRIRAD=lcOldParentID
    pnChildRec=recno()
    pcChildID=PRIRAD
    pcChildExpr="PRIRAD"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("PRIRAD",lcParentID,"HARDWARE")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("OPR_HW")            && zmena v OPRAVY
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID                && AND TYP="H"      SOB
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"HARDWARE")
  ENDSCAN get all of the opr_hw records
  =rireuse("OPR_HW",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("soft_pri")                && zmena v soft_pri
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the soft_pri records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("dok_hw")            && zm∞nit v DOK_HW
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"VAZBA")
  ENDSCAN get all of the dok_hw records
  =rireuse("dok_hw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")            && zm∞nit v SOFTWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR OEM=lcOldParentID AND LEFT(Lic_Zariz,2) = "HW"
    pnChildRec=recno()
    pcChildID=OEM
    pcChildExpr="OEM"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OEM",lcParentID,"OEM")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeyn provest do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR OEM=lcOldParentID AND LEFT(Lic_Zariz,2) = "HW"
    pnChildRec=recno()
    pcChildID=OEM
    pcChildExpr="OEM"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("OEM",lcParentID,"OEM")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pozadav")                && zm∞nit v POZADAV
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"VAZBA")
  ENDSCAN get all of the pozadav records
  =rireuse("pozadav",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hh_loghd")            && zm∞nit v hh_loghd
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the hh_loghd records
  =rireuse("hh_loghd",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH = "H "
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"HARDWARE")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("HH_ZMENY")            && zm∞nit v HH_ZMENY
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the hh_zmeny records
  =rireuse("hh_zmeny",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("HH_NEURC")            && zm∞nit v HH_NEURC
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the hh_neurc records
  =rireuse("hh_neurc",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("HH_SLOTY")            && zm∞nit v HH_SLOTY
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the hh_sloty records
  =rireuse("hh_sloty",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("HH_KONEK")            && zm∞nit v HH_KONEK
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"CISLO")
  ENDSCAN get all of the hh_konek records
  =rireuse("hh_konek",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  IF TYPE("lSwScan") <> "U"
      IF lSwScan
          lcChildWkArea=riopen("sw_nalez")                && zm∞nit v SW_NALEZ
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_nalez records
          =rireuse("sw_nalez",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_BEZLI")                && zm∞nit v SW_BEZLI
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_BEZLI records
          =rireuse("SW_BEZLI",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_LICSW")                && zm∞nit v SW_LICSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_LICSW records
          =rireuse("SW_LICSW",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_PORSW")                && zm∞nit v SW_PORSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_PORSW records
          =rireuse("SW_PORSW",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_CISSW")                && zm∞nit v SW_CISSW
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_CISSW records
          =rireuse("SW_CISSW",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_PORSO")                && zm∞nit v SW_PORSO
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_PORSO records
          =rireuse("SW_PORSO",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("SW_CISSO")                && zm∞nit v SW_CISSO
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the SW_CISSO records
          =rireuse("SW_CISSO",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF


          lcChildWkArea=riopen("sw_neurc")                && zm∞nit v SW_NEURC
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_neurc records
          =rireuse("sw_neurc",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("sw_reg")                && zm∞nit v SW_REG
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_reg records
          =rireuse("sw_reg",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("sw_soub")                && zm∞nit v SW_SOUB
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_soub records
          =rireuse("sw_soub",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("sw_zrus")                && zm∞nit v SW_ZRUS
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_zrus records
          =rireuse("sw_zrus",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("sw_arch")                && zm∞nit v SW_ARCH
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR CISLO=lcOldParentID
            pnChildRec=recno()
            pcChildID=CISLO
            pcChildExpr="CISLO"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("CISLO",lcParentID,"CISLO")
          ENDSCAN get all of the sw_arch records
          =rireuse("sw_arch",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

            IF cMult = "A"
              lcChildWkArea=riopen("sw_dsoub")                && zm∞nit v sw_dsoub
              IF lcChildWkArea<=0
                IF _triggerlevel=1
                  DO riend WITH .F.
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN .F.
              ENDIF not able to open the child work area
              pcChildDBF=dbf(lcChildWkArea)
              SELECT (lcChildWkArea)
              SCAN FOR CISLO=lcOldParentID
                pnChildRec=recno()
                pcChildID=CISLO
                pcChildExpr="CISLO"
                IF NOT llRetVal
                  EXIT
                ENDIF && not llretval
                llRetVal=riupdate("CISLO",lcParentID,"CISLO")
              ENDSCAN get all of the sw_dsoub records
              =rireuse("sw_dsoub",lcChildWkArea)
              IF NOT llRetVal
                IF _triggerlevel=1
                  DO riend WITH llRetVal
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN llRetVal
              ENDIF

              lcChildWkArea=riopen("sw_docsw")                && zm∞nit v sw_docsw
              IF lcChildWkArea<=0
                IF _triggerlevel=1
                  DO riend WITH .F.
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN .F.
              ENDIF not able to open the child work area
              pcChildDBF=dbf(lcChildWkArea)
              SELECT (lcChildWkArea)
              SCAN FOR CISLO=lcOldParentID
                pnChildRec=recno()
                pcChildID=CISLO
                pcChildExpr="CISLO"
                IF NOT llRetVal
                  EXIT
                ENDIF && not llretval
                llRetVal=riupdate("CISLO",lcParentID,"CISLO")
              ENDSCAN get all of the sw_docsw records
              =rireuse("sw_docsw",lcChildWkArea)
              IF NOT llRetVal
                IF _triggerlevel=1
                  DO riend WITH llRetVal
                ENDIF at the end of the highest trigger level
                SELECT (lcStartArea)
                RETURN llRetVal
              ENDIF

            ENDIF
      ENDIF
  ENDIF

  **** prejmenovßnφ nascanovan²ch soubor∙
  IF TYPE("i_PathHW") <> "U"
      cPom    = ALLTRIM(lcOldParentId) + ".*"
      cSouOld = SYS(2000,"&i_PathHW\&cPom")
      IF !EMPTY(cSouOld)
          DO WHILE !EMPTY(cSouOld)
            cSouNew = ALLTRIM(lcParentId) + RIGHT(cSouOld,4)
              RENAME '&i_PathHW\&cSouOld' TO '&i_PathHW\&cSouNew'
              cSouOld = SYS(2000,"&i_PathHW\&cPom",1)
          ENDDO
      ENDIF
  ENDIF
ENDIF

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
**********************************************************************************************

**********************************************************************************************
procedure __RI_UPDATE_cis_serv
** "Referential integrity update trigger for" cis_serv
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("TYP_SERVC")
pcParentID=lcOldParentID
pcParentExpr="TYP_SERVC"
lcParentID=TYP_SERVC
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout i do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_hard records
  = rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do likvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("hardware")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny je treba promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny je treba promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny je treba promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny je treba zapsat do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny je treba promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV1=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV1
    pcChildExpr="TYP_SERV1"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV1",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV2=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV2
    pcChildExpr="TYP_SERV2"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV2",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV3=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV3
    pcChildExpr="TYP_SERV3"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV3",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERV4=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP_SERV4
    pcChildExpr="TYP_SERV4"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERV4",lcParentID,"CIS_SERV")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_hw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERVC=lcOldParentID AND STAV = 5
    pnChildRec=recno()
    pcChildID=TYP_SERVC
    pcChildExpr="TYP_SERVC"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERVC",lcParentID,"CIS_SERV")
  ENDSCAN get all of the opr_hw records
  =rireuse("opr_hw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_sw")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERVC=lcOldParentID AND STAV = 5
    pnChildRec=recno()
    pcChildID=TYP_SERVC
    pcChildExpr="TYP_SERVC"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERVC",lcParentID,"CIS_SERV")
  ENDSCAN get all of the opr_sw records
  =rireuse("opr_sw",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_pr")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERVC=lcOldParentID AND STAV = 5
    pnChildRec=recno()
    pcChildID=TYP_SERVC
    pcChildExpr="TYP_SERVC"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERVC",lcParentID,"CIS_SERV")
  ENDSCAN get all of the opr_pr records
  =rireuse("opr_pr",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("opr_ln")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR TYP_SERVC=lcOldParentID AND STAV = 5
    pnChildRec=recno()
    pcChildID=TYP_SERVC
    pcChildExpr="TYP_SERVC"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP_SERVC",lcParentID,"CIS_SERV")
  ENDSCAN get all of the opr_ln records
  =rireuse("opr_ln",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_serv
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_voln
** "Referential integrity update trigger for" cis_voln
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("hardware")                    && HARDWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the hardware records
  =rireuse("hardware",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_hard")                    && HARDWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_hard records
  =rireuse("lik_hard",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("software")                    && SOFTWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_soft")                    && SOFTWARE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("prisluse")                    && PRISLUSE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the prisluse records
  =rireuse("prisluse",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pris")                    && PRISLUSE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_pris records
  =rireuse("lik_pris",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_lan")                    && PRIS_LAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the pris_lan records
  =rireuse("pris_lan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_plan")                    && PRIS_LAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_plan records
  =rireuse("lik_plan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("pris_vol")                    && PRIS_VOL
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the pris_vol records
  =rireuse("pris_vol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_pvol")                    && PRIS_VOL
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_pvol records
  =rireuse("lik_pvol",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("site")                        && SITE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the site records
  =rireuse("site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikvidovanych vet
  lcChildWkArea=riopen("lik_site")                        && SITE
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISVOLNY=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISVOLNY
    pcChildExpr="CISVOLNY"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISVOLNY",lcParentID,"CIS_VOLN")
  ENDSCAN get all of the lik_site records
  =rireuse("lik_site",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_hpou
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_apli
** "Referential integrity update trigger for" cis_apli
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("apli_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR APLIKACE=lcOldParentID
    pnChildRec=recno()
    pcChildID=APLIKACE
    pcChildExpr="APLIKACE"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("APLIKACE",lcParentID,"CIS_APLI")
  ENDSCAN get all of the software records
  =rireuse("apli_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_apli
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_pris_lan
** "Referential integrity update trigger for" pris_lan
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_prl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"PRIS_LAN")
  ENDSCAN get all of the dok_prl records
  =rireuse("dok_prl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("opr_pl")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRIS_LAN")
  ENDSCAN get all of the opr_pl records
  =rireuse("opr_pl",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH = "PL"
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRIS_LAN")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" pris_lan
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_pris_vol
** "Referential integrity update trigger for" pris_vol
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dok_prv")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR VAZBA=lcOldParentID
    pnChildRec=recno()
    pcChildID=VAZBA
    pcChildExpr="VAZBA"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("VAZBA",lcParentID,"PRIS_VOL")
  ENDSCAN get all of the dok_prv records
  =rireuse("dok_prv",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("CISLO")
pcParentID=lcOldParentID
pcParentExpr="CISLO"
lcParentID=CISLO
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("opr_pv")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRIS_VOL")
  ENDSCAN get all of the opr_pv records
  =rireuse("opr_pv",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("DOKUSCAN")            && zmena v DOKUSCAN
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR CISLO=lcOldParentID    AND DRUH = "PV"
    pnChildRec=recno()
    pcChildID=CISLO
    pcChildExpr="CISLO"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("CISLO",lcParentID,"PRIS_VOL")
  ENDSCAN get all of the dokuscan records
  =rireuse("DOKUSCAN",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" prisluse
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_doku
** "Referential integrity update trigger for" cis_doku
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("NAZEV")
pcParentID=lcOldParentID
pcParentExpr="NAZEV"
lcParentID=NAZEV
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("dokuscan")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Typ=lcOldParentID
    pnChildRec=recno()
    pcChildID=TYP
    pcChildExpr="TYP"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("TYP",lcParentID,"CIS_DOKU")
  ENDSCAN get all of the dokuscan records
  =rireuse("dokuscan",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_doku
********************************************************************************

********************************************************************************
procedure __RI_UPDATE_cis_loka
** "Referential integrity update trigger for" cis_loka
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
  BEGIN TRANSACTION
  PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
  pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
  pcOldTalk=SET("TALK")
  SET TALK OFF
  pcOldDele=SET("DELETED")
  pcOldExact=SET("EXACT")
  pcOldCompat=SET("COMPATIBLE")
  SET COMPATIBLE OFF
  SET DELETED ON
  SET EXACT OFF
  pcRIcursors=""
  pcRIwkareas=""
  pcRIolderror=ON("error")
  pnerror=0
  ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
  IF TYPE('gaErrors(1)')<>"U"
    release gaErrors
  ENDIF
  PUBLIC gaErrors(1,12)
  pcOldDBC=DBC()
  SET DATA TO ("SPRAVCE")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("KOD")
pcParentID=lcOldParentID
pcParentExpr="KOD"
lcParentID=KOD
IF !(lcParentID==lcOldParentID)
  lcChildWkArea=riopen("software")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Sw_Lokal=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_LOKAL
    pcChildExpr="SW_LOKAL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
  ENDSCAN get all of the software records
  =rireuse("software",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  *** zmeny promitnout do zlikkvidovanych vet
  lcChildWkArea=riopen("lik_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Sw_Lokal=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_LOKAL
    pcChildExpr="SW_LOKAL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
  ENDSCAN get all of the lik_soft records
  =rireuse("lik_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("soft_pri")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Sw_Lokal=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_LOKAL
    pcChildExpr="SW_LOKAL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
  ENDSCAN get all of the software records
  =rireuse("soft_pri",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF

  lcChildWkArea=riopen("cis_soft")
  IF lcChildWkArea<=0
    IF _triggerlevel=1
      DO riend WITH .F.
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN .F.
  ENDIF not able to open the child work area
  pcChildDBF=dbf(lcChildWkArea)
  SELECT (lcChildWkArea)
  SCAN FOR Sw_Lokal=lcOldParentID
    pnChildRec=recno()
    pcChildID=SW_LOKAL
    pcChildExpr="SW_LOKAL"
    IF NOT llRetVal
      EXIT
    ENDIF && not llretval
    llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
  ENDSCAN get all of the software records
  =rireuse("cis_soft",lcChildWkArea)
  IF NOT llRetVal
    IF _triggerlevel=1
      DO riend WITH llRetVal
    ENDIF at the end of the highest trigger level
    SELECT (lcStartArea)
    RETURN llRetVal
  ENDIF


  *************************************************
  IF TYPE("lSwScan") <> "U"
      lcChildWkArea=riopen("sw_nalez")            && sw_nalez
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the sw_nalez records
      =rireuse("sw_nalez",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

      lcChildWkArea=riopen("sw_bezli")            && sw_bezli
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the sw_bezli records
      =rireuse("sw_bezli",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

      lcChildWkArea=riopen("SW_LICSW")            && SW_LICSW
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the SW_LICSW records
      =rireuse("SW_LICSW",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

      lcChildWkArea=riopen("sw_porsw")            && sw_porsw
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the sw_porsw records
      =rireuse("sw_porsw",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

      lcChildWkArea=riopen("sw_cissw")            && sw_cissw
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the sw_cissw records
      =rireuse("sw_cissw",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF


      lcChildWkArea=riopen("sw_neved")            && sw_neved
      IF lcChildWkArea<=0
        IF _triggerlevel=1
          DO riend WITH .F.
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN .F.
      ENDIF not able to open the child work area
      pcChildDBF=dbf(lcChildWkArea)
      SELECT (lcChildWkArea)
      SCAN FOR Sw_Lokal=lcOldParentID
        pnChildRec=recno()
        pcChildID=SW_LOKAL
        pcChildExpr="SW_LOKAL"
        IF NOT llRetVal
          EXIT
        ENDIF && not llretval
        llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
      ENDSCAN get all of the sw_neved records
      =rireuse("sw_neved",lcChildWkArea)
      IF NOT llRetVal
        IF _triggerlevel=1
          DO riend WITH llRetVal
        ENDIF at the end of the highest trigger level
        SELECT (lcStartArea)
        RETURN llRetVal
      ENDIF

      IF cMult = "A"
          lcChildWkArea=riopen("sw_docas")            && sw_docas
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR Sw_Lokal=lcOldParentID
            pnChildRec=recno()
            pcChildID=SW_LOKAL
            pcChildExpr="SW_LOKAL"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
          ENDSCAN get all of the sw_docas records
          =rireuse("sw_docas",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

          lcChildWkArea=riopen("sw_docsw")            && sw_docsw
          IF lcChildWkArea<=0
            IF _triggerlevel=1
              DO riend WITH .F.
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN .F.
          ENDIF not able to open the child work area
          pcChildDBF=dbf(lcChildWkArea)
          SELECT (lcChildWkArea)
          SCAN FOR Sw_Lokal=lcOldParentID
            pnChildRec=recno()
            pcChildID=SW_LOKAL
            pcChildExpr="SW_LOKAL"
            IF NOT llRetVal
              EXIT
            ENDIF && not llretval
            llRetVal=riupdate("SW_LOKAL",lcParentID,"CIS_LOKA")
          ENDSCAN get all of the sw_docsw records
          =rireuse("sw_docsw",lcChildWkArea)
          IF NOT llRetVal
            IF _triggerlevel=1
              DO riend WITH llRetVal
            ENDIF at the end of the highest trigger level
            SELECT (lcStartArea)
            RETURN llRetVal
          ENDIF

      ENDIF
  ENDIF
  *************************************************

ENDIF this parent id changed

IF _triggerlevel=1
  do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "End of Referential integrity Update trigger for" cis_loka
********************************************************************************

**__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**
■≥  
x[x[4r#%ßY╢$ú7U½«≈■T≈ⁿa²■%ⁿCΩ┬≡C'
    ±CS
²∙9■T≈ⁿ-²■∙æ■%ⁿC'
²∙ì■■%ⁿC√    BUFFERINGΩë°

²∙x■    åⁿCΩô²■■T≈ⁿ≈
°
²■■■
Z#ⁿCO²■    Bⁿ≈²■ULLRETVALPNERROR'4≈≈
≈≈■«≈≈■T≈ⁿCδ≈°

═²■+%ⁿC√gaErrors[lnErrorRows,1]b┘
L²∙è■÷ⁿ≈°

²ⁿCδ≈°
═²■T≈ⁿ≈°

²■■T÷ⁿ≈²ⁿ°

²ⁿ≈²■T÷ⁿ≈²ⁿ°
²ⁿ≈
²■T÷ⁿ≈²ⁿ°
²ⁿ≈²■T÷ⁿ≈²ⁿ°
²ⁿ┘²■T≈ⁿ°

²■+ⁿCC≈tí
²∙O
■,T÷ⁿ≈²ⁿ°
²ⁿC≈°
÷┘
,C≈t²■T≈ⁿ≈°

²■■T÷ⁿ≈²ⁿ°
²ⁿ≈²■T÷ⁿ≈²ⁿ°
²ⁿ≈²■T÷ⁿ≈²ⁿ°
²ⁿ≈    ²■T÷ⁿ≈²ⁿ°
²ⁿ≈
²■T÷ⁿ≈²ⁿ°
    ²ⁿ≈²■T÷ⁿ≈²ⁿ°
²ⁿ≈²■T÷ⁿ≈²ⁿ°²ⁿ≈²■T÷ⁿ≈²ⁿ°²ⁿ≈²■    Bⁿ≈²■UTNERRNO    TCMESSAGETCCODE    TCPROGRAMLNERRORROWSLNXXGAERRORSPCPARENTDBFPNPARENTREC
PCPARENTIDPCPARENTEXPR
PCCHILDDBF
PNCHILDREC    PCCHILDIDPCCHILDEXPRö
4≈■«≈
≈≈■%ⁿ≈²∙(■¥╜■∙@■G■£■G ■■%ⁿC≈í²∙[■{√■∙~■
ON ERROR &pcRIolderror.
■ä≈
ⁿ°

²(ⁿC┘
*≈»²∙╬■T≈ⁿC┘
*≈≈
╕°

²■QⁿCC≈≈°
\g²■à■%ⁿ≈┘ON²∙δ■GA ■■%ⁿ≈┘OFF²∙    
■G■■%ⁿ≈┘ON²∙&
■G ■■%ⁿ≈    ┘ON²∙C
■G2 ■■H∙T
∙å
■ⁿC≈
í²∙i
■G(■ⁿ≈
CΩû²∙å
■G(ⁿ≈
²■■Bⁿa²■U    TLSUCCESSLNXXLNSPOT
LCWORKAREAPCRIOLDERRORPCRICURSORSPCOLDCOMPAT    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDDBCJ4≈≈
■5T≈ⁿC≈C≈f┘
?C≈
°
ZC≈f┘
*C≈
°
Z¿²■Bⁿa²■UTCTABLENAMETCWKAREAPCRICURSORS¢«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙b■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘POUZITI²■%ⁿ≈
²∙é■!■■'T≈ⁿC┘POUZITI≈┘CIS_HPOU÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙
■%ⁿφ=°

²∙≤■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙h■%ⁿφ=°

²∙S■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘POUZITI²■%ⁿ≈
²∙╓■!■■'T≈ⁿC┘POUZITI≈┘CIS_HPOU÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙^■%ⁿφ=°

²∙G■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙ü■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDPOUZITIRIUPDATERIREUSEB«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙    ■T≈ⁿC┘pozarekl÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¿■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙Ç■!■■$T≈ⁿC┘CISLO≈┘POZADAV÷²■■åⁿC┘pozarekl≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙ε■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙(■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■ULLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDRIUPDATERIREUSEù«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙^■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙½■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘ZNACKA²■%ⁿ≈
²∙ü■!■■&T≈ⁿC┘ZNACKA≈┘CIS_HZNA÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙±■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙f■%ⁿφ=°

²∙Q■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙²■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘ZNACKA²■%ⁿ≈
²∙╙■!■■&T≈ⁿC┘ZNACKA≈┘CIS_HZNA÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙Z■%ⁿφ=°

²∙C■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙}■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDZNACKARIUPDATERIREUSEC«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙
■T≈ⁿC┘sw_sabsw÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌐■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■%ⁿ≈
²∙Ç■!■■%T≈ⁿC┘NAZEV≈┘SW_SABLO÷²■■åⁿC┘SW_SABLO≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙∩■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙)■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■ULLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDRIUPDATERIREUSE»«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■«≈≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈C┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■T≈ⁿ≈²■%ⁿ≈≈
²∙r■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙Z■%ⁿφ=°

²∙E■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙±■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙╟■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘hardware≈÷#²■%ⁿ≈
²∙N■%ⁿφ=°

²∙7■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙¼■%ⁿφ=°

²∙ù■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙C■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘lik_hard≈÷#²■%ⁿ≈
²∙á■%ⁿφ=°

²∙ë■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙■■%ⁿφ=°

²∙Θ■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙ò■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙k■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘prisluse≈÷#²■%ⁿ≈
²∙≥■%ⁿφ=°

²∙█■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙P■%ⁿφ=°

²∙;■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙τ■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙╜■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘lik_pris≈÷#²■%ⁿ≈
²∙D■%ⁿφ=°

²∙-■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙ó■%ⁿφ=°

²∙ì■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙9    ■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙    ■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘pris_lan≈÷#²■%ⁿ≈
²∙û    ■%ⁿφ=°

²∙    ■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙⌠    ■%ⁿφ=°

²∙▀    ■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙ï
■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙a
■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘lik_plan≈÷#²■%ⁿ≈
²∙Φ
■%ⁿφ=°

²∙╤
■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙F■%ⁿφ=°

²∙1■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙▌■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙│■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘pris_vol≈÷#²■%ⁿ≈
²∙:■%ⁿφ=°

²∙#■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙ÿ■%ⁿφ=°

²∙â■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙/■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘lik_pvol≈÷#²■%ⁿ≈
²∙î■%ⁿφ=°

²∙u■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dokument÷²■%ⁿ≈°
²∙Ω■%ⁿφ=°

²∙╒■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙ü■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙W■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘dokument≈÷#²■%ⁿ≈
²∙▐■%ⁿφ=°

²∙╟■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙8■%ⁿφ=°

²∙#■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙╧■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙Ñ■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘site≈÷#²■%ⁿ≈
²∙(■%ⁿφ=°

²∙■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙å■%ⁿφ=°

²∙q■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙≤■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘lik_site≈÷#²■%ⁿ≈
²∙z■%ⁿφ=°

²∙c■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙╫■%ⁿφ=°

²∙┬■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙n■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙D■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘pozadav≈÷#²■%ⁿ≈
²∙╩■%ⁿφ=°

²∙│■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙┐■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙ò■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘soft_pri≈÷#²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_osob÷²■%ⁿ≈°
²∙z■%ⁿφ=°

²∙e■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘ORG_CS²■%ⁿ≈
²∙τ■!■■&T≈ⁿC┘ORG_CS≈┘CIS_ORGA÷"²■■åⁿC┘cis_osob≈÷#²■%ⁿ≈
²∙n■%ⁿφ=°

²∙W■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV²■%ⁿ≈≈
²∙v■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙√■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈$≈≈²∙╡■T≈ⁿCO²■T≈ⁿ≈$²■T≈ⁿ┘    ORG_Nazev²■%ⁿ≈
²∙ê■!■■)T≈ⁿC┘    ORG_Nazev≈┘CIS_ORGA÷"²■■åⁿC┘hardware≈÷#²■%ⁿ≈
²∙■%ⁿφ=°

²∙√■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙p■%ⁿφ=°

²∙[■≈ ╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈$≈≈²∙■T≈ⁿCO²■T≈ⁿ≈$²■T≈ⁿ┘    ORG_Nazev²■%ⁿ≈
²∙Φ■!■■)T≈ⁿC┘    ORG_Nazev≈┘CIS_ORGA÷"²■■åⁿC┘lik_hard≈÷#²■%ⁿ≈
²∙r■%ⁿφ=°

²∙[■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙ò■≈ ╤≈■■
Fⁿ≈²■    Bⁿ≈²■U%LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREA
LCOLDNAZEVLCNAZEVLCOLDPARENTIDNAZEVCISLONAZEVRIOPENRIENDORG_CSRIUPDATERIREUSE    ORG_NAZEVç«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙N■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ú■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OS²■%ⁿ≈
²∙}■!■■"T≈ⁿC┘OS≈┘CIS_OSHW÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙Θ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙^■%ⁿφ=°

²∙I■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙φ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OS²■%ⁿ≈
²∙╟■!■■"T≈ⁿC┘OS≈┘CIS_OSHW÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙J■%ⁿφ=°

²∙3■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙m■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDOSRIUPDATERIREUSE)«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘OSOBAΩ_²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■T≈ⁿ≈²■T≈ⁿ≈²■%ⁿ≈≈
²∙╥(■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╜■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙ö■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘hardware≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙x■%ⁿφ=°

²∙c■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘SPRAVCE²■%ⁿ≈
²∙µ■!■■'T≈ⁿC┘SPRAVCE≈┘CIS_OSOB÷ ²■■åⁿC┘hardware≈÷!²■%ⁿ≈
²∙n■%ⁿφ=°

²∙W■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙╠■%ⁿφ=°

²∙╖■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙a■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙8■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_hard≈÷!²■%ⁿ≈
²∙╛■%ⁿφ=°

²∙º■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙╡■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘SPRAVCE²■%ⁿ≈
²∙è■!■■'T≈ⁿC┘SPRAVCE≈┘CIS_OSOB÷ ²■■åⁿC┘lik_hard≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙√■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙p■%ⁿφ=°

²∙[■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙▄■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘software≈÷!²■%ⁿ≈
²∙b    ■%ⁿφ=°

²∙K    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙└    ■%ⁿφ=°

²∙½    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙U
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙,
■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_soft≈÷!²■%ⁿ≈
²∙▓
■%ⁿφ=°

²∙¢
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙√
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Ñ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙|■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘prisluse≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙δ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙`■%ⁿφ=°

²∙K■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙╠■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_pris≈÷!²■%ⁿ≈
²∙R■%ⁿφ=°

²∙;■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙░■%ⁿφ=°

²∙¢■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙E■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘pris_lan≈÷!²■%ⁿ≈
²∙ó■%ⁿφ=°

²∙ï■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙δ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ò■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙l■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_plan≈÷!²■%ⁿ≈
²∙≥■%ⁿφ=°

²∙█■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙P■%ⁿφ=°

²∙;■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙σ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙╝■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘pris_vol≈÷!²■%ⁿ≈
²∙B■%ⁿφ=°

²∙+■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙á■%ⁿφ=°

²∙ï■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙5■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_pvol≈÷!²■%ⁿ≈
²∙Æ■%ⁿφ=°

²∙{■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dokument÷²■%ⁿ≈°
²∙≡■%ⁿφ=°

²∙█■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙à■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙\■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘dokument≈÷!²■%ⁿ≈
²∙Γ■%ⁿφ=°

²∙╦■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dokument÷²■%ⁿ≈°
²∙@■%ⁿφ=°

²∙+■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈$≈²∙▌■T≈ⁿCO²■T≈ⁿ≈%²■T≈ⁿ┘    OSOBA_ZAP²■%ⁿ≈
²∙░■!■■)T≈ⁿC┘    OSOBA_ZAP≈┘CIS_OSOB÷ ²■■åⁿC┘dokument≈÷!²■%ⁿ≈
²∙:■%ⁿφ=°

²∙#■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙ö■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙)■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘site≈÷!²■%ⁿ≈
²∙é■%ⁿφ=°

²∙k■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙▄■%ⁿφ=°

²∙╟■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙u■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘SPRAVCE²■%ⁿ≈
²∙J■!■■'T≈ⁿC┘SPRAVCE≈┘CIS_OSOB÷ ²■■åⁿC┘site≈÷!²■%ⁿ≈
²∙╬■%ⁿφ=°

²∙╖■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙,■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙┴■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙ÿ■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘lik_site≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙|■%ⁿφ=°

²∙g■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘SPRAVCE²■%ⁿ≈
²∙Ω■!■■'T≈ⁿC┘SPRAVCE≈┘CIS_OSOB÷ ²■■åⁿC┘lik_site≈÷!²■%ⁿ≈
²∙r■%ⁿφ=°

²∙[■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙╧■%ⁿφ=°

²∙║■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈&≈²∙h■T≈ⁿCO²■T≈ⁿ≈'²■T≈ⁿ┘ZADATEL²■%ⁿ≈
²∙=■!■■'T≈ⁿC┘ZADATEL≈┘CIS_OSOB÷ ²■■åⁿC┘pozadav≈÷!²■%ⁿ≈
²∙─■%ⁿφ=°

²∙¡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙!■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈(≈²∙║■T≈ⁿCO²■T≈ⁿ≈)²■T≈ⁿ┘RESITEL²■%ⁿ≈
²∙Å■!■■'T≈ⁿC┘RESITEL≈┘CIS_OSOB÷ ²■■åⁿC┘pozadav≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙ ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙t■%ⁿφ=°

²∙_■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙α■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘soft_pri≈÷!²■%ⁿ≈
²∙f■%ⁿφ=°

²∙O■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sit_hesl÷²■%ⁿ≈°
²∙─■%ⁿφ=°

²∙»■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Y■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙0■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘sit_hesl≈÷!²■%ⁿ≈
²∙╢■%ⁿφ=°

²∙ƒ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘apli_pri÷²■%ⁿ≈°
²∙ ■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌐ ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙Ç ■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘apli_pri≈÷!²■%ⁿ≈
²∙!■%ⁿφ=°

²∙∩ ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_hw÷²■%ⁿ≈°
²∙b!■%ⁿφ=°

²∙M!■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙≈!■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙╬!■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_hw≈÷!²■%ⁿ≈
²∙R"■%ⁿφ=°

²∙;"■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_sw÷²■%ⁿ≈°
²∙«"■%ⁿφ=°

²∙Ö"■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙C#■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙#■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_sw≈÷!²■%ⁿ≈
²∙₧#■%ⁿφ=°

²∙ç#■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pr÷²■%ⁿ≈°
²∙·#■%ⁿφ=°

²∙σ#■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Å$■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙f$■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_pr≈÷!²■%ⁿ≈
²∙Ω$■%ⁿφ=°

²∙╙$■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pl÷²■%ⁿ≈°
²∙F%■%ⁿφ=°

²∙1%■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙█%■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙▓%■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_pl≈÷!²■%ⁿ≈
²∙6&■%ⁿφ=°

²∙&■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pv÷²■%ⁿ≈°
²∙Æ&■%ⁿφ=°

²∙}&■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙''■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙■&■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_pv≈÷!²■%ⁿ≈
²∙é'■%ⁿφ=°

²∙k'■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_ln÷²■%ⁿ≈°
²∙▐'■%ⁿφ=°

²∙╔'■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙s(■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘OSOBA²■%ⁿ≈
²∙J(■!■■%T≈ⁿC┘OSOBA≈┘CIS_OSOB÷ ²■■åⁿC┘opr_ln≈÷!²■%ⁿ≈
²∙╬(■%ⁿφ=°

²∙╖(■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙±(■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U*LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREALCIDCISLOPARENTOSOBAIDCISLORIOPENRIENDIDOSOBARIUPDATERIREUSE    IDSPRAVCESPRAVCE
IDZAPUJCIL    OSOBA_ZAP    IDZADATELZADATEL    IDRESITELRESITELù«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙^■T≈ⁿC┘software÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙½■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_SYS²■%ⁿ≈
²∙ü■!■■&T≈ⁿC┘SW_SYS≈┘CIS_OSSW÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙±■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙f■%ⁿφ=°

²∙Q■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙²■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_SYS²■%ⁿ≈
²∙╙■!■■&T≈ⁿC┘SW_SYS≈┘CIS_OSSW÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙Z■%ⁿφ=°

²∙C■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙}■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDSW_SYSRIUPDATERIREUSE¥«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙d■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙»■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙â■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙⌡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙j■%ⁿφ=°

²∙U■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙┘■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙b■%ⁿφ=°

²∙K■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙└■%ⁿφ=°

²∙½■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙[■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙/■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙╕■%ⁿφ=°

²∙í■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙▒■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙à■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙≈■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙l■%ⁿφ=°

²∙W■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙█■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙d    ■%ⁿφ=°

²∙M    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙┬    ■%ⁿφ=°

²∙¡    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙]
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙1
■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙║
■%ⁿφ=°

²∙ú
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙│■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙ç■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙n■%ⁿφ=°

²∙Y■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙▌■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙f■%ⁿφ=°

²∙O■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dokument÷²■%ⁿ≈°
²∙─■%ⁿφ=°

²∙»■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙_■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙3■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘dokument≈÷²■%ⁿ≈
²∙╝■%ⁿφ=°

²∙Ñ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙▒■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙à■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙
■%ⁿφ=°

²∙≤■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙h■%ⁿφ=°

²∙S■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙╫■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙`■%ⁿφ=°

²∙I■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙╜■%ⁿφ=°

²∙¿■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙X■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙,■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘pozadav≈÷²■%ⁿ≈
²∙┤■%ⁿφ=°

²∙¥■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙ü■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘soft_pri≈÷²■%ⁿ≈
²∙
■%ⁿφ=°

²∙≤■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_osob÷²■%ⁿ≈°
²∙h■%ⁿφ=°

²∙S■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘MISTO_CS²■%ⁿ≈
²∙╫■!■■(T≈ⁿC┘MISTO_CS≈┘CIS_UMIS÷²■■åⁿC┘cis_osob≈÷²■%ⁿ≈
²∙`■%ⁿφ=°

²∙I■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙â■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDMISTO_CSRIUPDATERIREUSEF«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘cis_soft÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¼■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VYROBCE²■%ⁿ≈
²∙é■!■■&T≈ⁿC┘VYROBCE≈┘CIS_VYR÷²■■åⁿC┘cis_soft≈÷²■%ⁿ≈
²∙    ■%ⁿφ=°

²∙≥■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙,■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDVYROBCERIUPDATERIREUSE,«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dok_hw÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙º■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙~■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_hw≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙δ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙╠■T≈ⁿC┘dok_sw÷²■%ⁿ≈°
²∙╪■%ⁿφ=°

²∙├■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙m■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙D■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_sw≈÷²■%ⁿ≈
²∙╚■%ⁿφ=°

²∙▒■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙-
■T≈ⁿC┘dok_pr÷²■%ⁿ≈°
²∙₧■%ⁿφ=°

²∙ë■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙3■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙
■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_pr≈÷²■%ⁿ≈
²∙Ä■%ⁿφ=°

²∙w■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dok_prl÷²■%ⁿ≈°
²∙δ■%ⁿφ=°

²∙╓■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Ç■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙W■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_pr≈÷²■%ⁿ≈
²∙█■%ⁿφ=°

²∙─■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dok_prv÷²■%ⁿ≈°
²∙8    ■%ⁿφ=°

²∙#    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙═    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙ñ    ■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_prv≈÷²■%ⁿ≈
²∙)
■%ⁿφ=°

²∙
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙≤■T≈ⁿC┘dok_ln÷²■%ⁿ≈°
²∙
■%ⁿφ=°

²∙Ω
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ö■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙k■!■■%T≈ⁿC┘CISLO≈┘DOKUMENT÷²■■åⁿC┘dok_ln≈÷²■%ⁿ≈
²∙∩■%ⁿφ=°

²∙╪■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■ULLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDRIUPDATERIREUSEF«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙«■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙ä■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙⌠■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙i■%ⁿφ=°

²∙T■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙┘■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙`■%ⁿφ=°

²∙I■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙╛■%ⁿφ=°

²∙⌐■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙X■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙.■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙╡■%ⁿφ=°

²∙₧■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙â■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙
■%ⁿφ=°

²∙≤■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘licence÷²■%ⁿ≈°
²∙g■%ⁿφ=°

²∙R■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙
    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙╫■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘licence≈÷²■%ⁿ≈
²∙]    ■%ⁿφ=°

²∙F    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙╗    ■%ⁿφ=°

²∙ª    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙U
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙+
■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙▓
■%ⁿφ=°

²∙¢
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙√
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¬■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙Ç■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙≡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙e■%ⁿφ=°

²∙P■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙╒■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙\■%ⁿφ=°

²∙E■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙║■%ⁿφ=°

²∙Ñ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙T■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙*■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙▒■%ⁿφ=°

²∙Ü■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙·■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌐■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙∩■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙d■%ⁿφ=°

²∙O■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙╘■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙[■%ⁿφ=°

²∙D■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dokument÷²■%ⁿ≈°
²∙╣■%ⁿφ=°

²∙ñ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙S■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙)■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘dokument≈÷²■%ⁿ≈
²∙░■%ⁿφ=°

²∙Ö■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙
■%ⁿφ=°

²∙⌡■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ñ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙z■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙²■%ⁿφ=°

²∙µ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙[■%ⁿφ=°

²∙F■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙╦■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙R■%ⁿφ=°

²∙;■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙»■%ⁿφ=°

²∙Ü■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙I■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    DODAVATEL²■%ⁿ≈
²∙■!■■&T≈ⁿC┘    DODAVATEL≈┘FIRMY÷²■■åⁿC┘pozadav≈÷²■%ⁿ≈
²∙Ñ■%ⁿφ=°

²∙Ä■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_hw÷²■%ⁿ≈°
²∙
■%ⁿφ=°

²∙∞■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙░■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙¼■!■■■åⁿC┘opr_hw≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙⌠■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_sw÷²■%ⁿ≈°
²∙g■%ⁿφ=°

²∙R■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙■!■■■åⁿC┘opr_sw≈÷²■%ⁿ≈
²∙q■%ⁿφ=°

²∙Z■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pr÷²■%ⁿ≈°
²∙═■%ⁿφ=°

²∙╕■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙|■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙x■!■■■åⁿC┘opr_pr≈÷²■%ⁿ≈
²∙╫■%ⁿφ=°

²∙└■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pl÷²■%ⁿ≈°
²∙3■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙Γ■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙▐■!■■■åⁿC┘opr_pl≈÷²■%ⁿ≈
²∙=■%ⁿφ=°

²∙&■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pv÷²■%ⁿ≈°
²∙Ö■%ⁿφ=°

²∙ä■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙H■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙D■!■■■åⁿC┘opr_pv≈÷²■%ⁿ≈
²∙ú■%ⁿφ=°

²∙î■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_ln÷²■%ⁿ≈°
²∙ ■%ⁿφ=°

²∙Ω■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈ ≈²∙«■T≈ⁿCO²■T≈ⁿ≈≈ ²■T≈ⁿ┘DODAVATEL+CISLO²■-T≈ⁿC┘    DODAVATELC≈°

°\┘firmy÷²■%ⁿ≈
²∙¬■!■■■åⁿC┘opr_ln≈÷²■%ⁿ≈
²∙    ■%ⁿφ=°

²∙≥■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙,■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIEND    DODAVATELRIUPDATERIREUSECISLOb«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dok_pr÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙º■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙~■!■■%T≈ⁿC┘VAZBA≈┘PRISLUSE÷²■■åⁿC┘dok_pr≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙δ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙)■T≈ⁿC┘opr_pr÷²■%ⁿ≈°
²∙╪■%ⁿφ=°

²∙├■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙m■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙D■!■■%T≈ⁿC┘CISLO≈┘PRISLUSE÷²■■åⁿC┘opr_pr≈÷²■%ⁿ≈
²∙╚■%ⁿφ=°

²∙▒■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙&■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈ ┘P     ²∙╚■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙ƒ■!■■%T≈ⁿC┘CISLO≈┘PRISLUSE÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙%■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙H■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDVAZBARIUPDATERIREUSEDRUH«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙╔■T≈ⁿC┘dok_ln÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ú■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙~■!■■!T≈ⁿC┘VAZBA≈┘SITE÷²■■åⁿC┘dok_ln≈÷²■%ⁿ≈
²∙■■%ⁿφ=°

²∙τ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_ln÷²■%ⁿ≈°
²∙Z■%ⁿφ=°

²∙E■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙δ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙╞■!■■!T≈ⁿC┘CISLO≈┘SITE÷²■■åⁿC┘opr_ln≈÷²■%ⁿ≈
²∙F■%ⁿφ=°

²∙/■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙ñ■%ⁿφ=°

²∙Å■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙=■T≈ⁿCO²■T≈ⁿ≈ ≈²■T≈ⁿ┘
SITE+CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙9■!■■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙Ü■%ⁿφ=°

²∙â■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙°■%ⁿφ=°

²∙π■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙æ■T≈ⁿCO²■T≈ⁿ≈ ≈²■T≈ⁿ┘
SITE+CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙ì■!■■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙ε■%ⁿφ=°

²∙╫■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙L■%ⁿφ=°

²∙7■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙▄■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙╪■!■■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙9    ■%ⁿφ=°

²∙"    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙ù    ■%ⁿφ=°

²∙é    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙'
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙#
■!■■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙ä
■%ⁿφ=°

²∙m
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙Γ
■%ⁿφ=°

²∙═
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙r■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙n■!■■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙╧■%ⁿφ=°

²∙╕■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙-■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙╜■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■ T≈ⁿC┘SITE≈┘site÷²■%ⁿ≈
²∙╣■!■■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sit_hesl÷²■%ⁿ≈°
²∙x■%ⁿφ=°

²∙c■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙■T≈ⁿCO²■T≈ⁿ≈!≈"²■T≈ⁿ┘    SIT+OSOBA²■T≈ⁿC┘SIT≈┘site÷²■%ⁿ≈
²∙■!■■■åⁿC┘sit_hesl≈÷²■%ⁿ≈
²∙l■%ⁿφ=°

²∙U■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙╩■%ⁿφ=°

²∙╡■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈#┘L     ²∙h■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙C■!■■!T≈ⁿC┘CISLO≈┘SITE÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙┼■%ⁿφ=°

²∙«■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙Φ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U$LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDVAZBARIUPDATERIREUSESITESITOSOBADRUH6«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dok_sw÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙º■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙~■!■■%T≈ⁿC┘VAZBA≈┘SOFTWARE÷²■■åⁿC┘dok_sw≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙δ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙╠■T≈ⁿC┘opr_sw÷²■%ⁿ≈°
²∙╪■%ⁿφ=°

²∙├■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙m■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙D■!■■%T≈ⁿC┘CISLO≈┘SOFTWARE÷²■■åⁿC┘opr_sw≈÷²■%ⁿ≈
²∙╚■%ⁿφ=°

²∙▒■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙▒■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙á■%ⁿφ=°

²∙ï■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈≈²∙P■T≈ⁿCO²■T≈ⁿ≈ ≈²■T≈ⁿ┘SOFTWARE+CISLO²■/T≈ⁿC┘SOFTWAREC≈°

°
\┘software÷²■%ⁿ≈
²∙L■!■■■åⁿC┘soft_pri≈÷²■%ⁿ≈
²∙¡■%ⁿφ=°

²∙û■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙y    ■T≈ⁿC┘licence÷²■%ⁿ≈°
²∙ä■%ⁿφ=°

²∙o■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙≡■!■■%T≈ⁿC┘CISLO≈┘SOFTWARE÷²■■åⁿC┘licence≈÷²■%ⁿ≈
²∙u    ■%ⁿφ=°

²∙^    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙p■T≈ⁿC┘upgrade÷²■%ⁿ≈°
²∙L
■%ⁿφ=°

²∙7
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ß
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙╕
■!■■%T≈ⁿC┘CISLO≈┘SOFTWARE÷²■■åⁿC┘upgrade≈÷²■%ⁿ≈
²∙=■%ⁿφ=°

²∙&■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘upg_kusy÷²■%ⁿ≈°
²∙¢■%ⁿφ=°

²∙å■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙0■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙■!■■%T≈ⁿC┘CISLO≈┘SOFTWARE÷²■■~ⁿ≈≈²∙▓■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘PUVCISLO²■%ⁿ≈
²∙å■!■■(T≈ⁿC┘PUVCISLO≈┘SOFTWARE÷²■■åⁿC┘upg_kusy≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙°■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙m■%ⁿφ=°

²∙X■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈"┘S     ²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙µ■!■■%T≈ⁿC┘CISLO≈┘SOFTWARE÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙l■%ⁿφ=°

²∙U■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿC┘lSwScanb┘
U²∙²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙[■T≈ⁿC┘SW_LICSW÷²■%ⁿ≈°
²∙_■%ⁿφ=°

²∙J■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈#≈²∙·■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘CISLOLIC²■%ⁿ≈
²∙╬■!■■(T≈ⁿC┘CISLOLIC≈┘SOFTWARE÷²■■åⁿC┘SW_LICSW≈÷²■%ⁿ≈
²∙W■%ⁿφ=°

²∙@■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙)■T≈ⁿC┘sw_soub÷²■%ⁿ≈°
²∙.■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈#≈²∙╔■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘CISLOLIC²■%ⁿ≈
²∙¥■!■■(T≈ⁿC┘CISLOLIC≈┘SOFTWARE÷²■■åⁿC┘sw_soub≈÷²■%ⁿ≈
²∙%■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙∙■T≈ⁿC┘sw_sabsw÷²■%ⁿ≈°
²∙²■%ⁿφ=°

²∙Φ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙ÿ■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘software²■%ⁿ≈
²∙l■!■■(T≈ⁿC┘software≈┘SOFTWARE÷²■■åⁿC┘sw_sabsw≈÷²■%ⁿ≈
²∙⌡■%ⁿφ=°

²∙▐■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U$LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDVAZBARIUPDATERIREUSESOFTWAREPUVCISLODRUHCISLOLICΩ
»≈≈
≈■#«≈≈≈≈≈≈≈    ≈
■T≈ⁿa²■%ⁿCΩ┬±CS
²∙\■T≈ⁿ-²■∙╨
■%ⁿC≈╬≈

²∙╠
■T≈ⁿC┘
+≈»°

²■%ⁿ≈°

²∙▒■>ⁿ≈²╤ⁿ≈
²■∙ì
■T≈ⁿ°

²■T≈    ⁿ°

²■ä≈ⁿ°

²(ⁿ≈²∙ë
■T≈ⁿC┘
+≈≈²■%T≈ⁿC≈°
≥C≈>°

≤≈6²■T≈ⁿC≈≈≈≈\²■T≈
ⁿCC≈╬>²■>ⁿ≈²╤ⁿC≈
≈    ≈
\²■T≈ⁿ≈≈²■T≈    ⁿ≈    ≈
²■à■■%ⁿC√    BUFFERINGΩë°

²∙╖
■    åⁿCΩô²■■T≈ⁿ≈°
²■■■
Z#ⁿCO²■    Bⁿ≈²■UTCFIELDNAME
TCNEWVALUETCPARLLRETVALLNSTARTLNPOCETLNKONECXXLCJMENOPOLELNPOZICELNDELKAPNERRORx4≈≈
■«≈≈≈≈■T≈ⁿC≈┘
*≈╕²■T≈ⁿC°
]C∙╙]²■%ⁿ≈°
²∙└■%ⁿC┘cUnivb┘
U²∙é■T≈ⁿ┘²■■H∙ô∙ï
■ⁿ≈┘KSPRAVCE²∙v
■╣%ⁿC≈┘SK_HW┘SK_PR┘SK_SW┘SK_FIRMY┘SK_OPRAV┘SK_ORGA┘CIS_PROJ┘OBJEDNAV┘PR_PRI┘SK_SETUP┘SW_PRI┘VZOR_HW┘VZOR_PR┘VZOR_SPR┘VZOR_SW┘SK_OPRHW┘SK_OPRPR¡²∙r
■T≈ⁿ≈²■■2∙ï
■T≈ⁿ≈    ²■■T≈ⁿCW²■F∙
■T≈ⁿCW²■%ⁿC≈
í
²∙■^
USE '&lcPomPath\&tcTable' AGAIN ORDER (tcOrder)  ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
∙r■M
USE '&lcPomPath\&tcTable' AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
■%ⁿ≈
°
²∙º■ T≈ⁿ≈C≈f┘
?CCW°
Z²■∙╝■T≈ⁿ°
²■■∙g■!T≈ⁿCC≈≈C≈>°

°
\g²■5T≈ⁿC≈C≈f┘
*Cš
ZC≈f┘
?Cš
Z¿²■%ⁿC≈
í
²∙A■G(ⁿ≈²(ⁿ≈
²■■%ⁿ≈
°
²∙c■T≈ⁿ°
²■■■
Bⁿ≈²■UTCTABLETCORDERLCCURWKAREALCNEWWKAREALNINUSESPOT    LCPOMPATHPCRICURSORSCUNIV    PATHSKLADPATHPNERRORK«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■«≈≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■T≈ⁿ≈²■«≈≈■H∙∞∙╛■ⁿCC≈°

=┘
K┘
O¡²∙2■T≈ⁿ┘prisluse²■T≈ⁿ┘lik_pris²■ⁿCC≈°

=┘
S┘
L¡²∙x■T≈ⁿ┘pris_lan²■T≈ⁿ┘lik_plan²■ⁿCC≈°

=┘
D┘
V¡²∙╛■T≈ⁿ┘pris_vol²■T≈ⁿ┘lik_pvol²■■%ⁿ≈≈
²∙5
■T≈ⁿC≈÷ ²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙╣■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘TYP²■%ⁿ≈
²∙Æ■!■■#T≈ⁿC┘TYP≈┘CIS_PTYP÷#²■■åⁿC≈≈÷$²■%ⁿ≈
²∙■%ⁿφ=°

²∙°■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC≈÷ ²■%ⁿ≈°
²∙f■%ⁿφ=°

²∙Q■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙≈■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘TYP²■%ⁿ≈
²∙╨■!■■#T≈ⁿC┘TYP≈┘CIS_PTYP÷#²■■åⁿC≈≈÷$²■%ⁿ≈
²∙M■%ⁿφ=°

²∙6■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_pob1÷ ²■%ⁿ≈°
²∙½■%ⁿφ=°

²∙û■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙<■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘TYP²■%ⁿ≈
²∙■!■■#T≈ⁿC┘TYP≈┘CIS_PTYP÷#²■■åⁿC┘cis_pob1≈÷$²■%ⁿ≈
²∙Ö■%ⁿφ=°

²∙é■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_pob2÷ ²■%ⁿ≈°
²∙≈■%ⁿφ=°

²∙Γ■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙ê■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘TYP²■%ⁿ≈
²∙a■!■■#T≈ⁿC┘TYP≈┘CIS_PTYP÷#²■■åⁿC┘cis_pob2≈÷$²■%ⁿ≈
²∙σ■%ⁿφ=°

²∙╬■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_pnaz÷ ²■%ⁿ≈°
²∙C    ■%ⁿφ=°

²∙.    ■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙╘    ■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘TYP²■%ⁿ≈
²∙¡    ■!■■#T≈ⁿC┘TYP≈┘CIS_PTYP÷#²■■åⁿC┘cis_pnaz≈÷$²■%ⁿ≈
²∙1
■%ⁿφ=°

²∙
■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV²■%ⁿ≈≈
²∙■T≈ⁿC≈÷ ²■%ⁿ≈°
²∙╠
■%ⁿφ=°

²∙╖
■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈%≈≈²∙l■T≈ⁿCO²■T≈ⁿ≈%²■T≈ⁿ┘Typ_Naz²■%ⁿ≈
²∙B■!■■&T≈ⁿC┘TypNaz≈┘CIS_PTYP÷#²■■åⁿC≈≈÷$²■%ⁿ≈
²∙┬■%ⁿφ=°

²∙½■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC≈÷ ²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈!╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈%≈≈²∙╕■T≈ⁿCO²■T≈ⁿ≈%²■T≈ⁿ┘TypNaz²■%ⁿ≈
²∙Ä■!■■&T≈ⁿC┘TypNaz≈┘CIS_PTYP÷#²■■åⁿC≈≈÷$²■%ⁿ≈
²∙■%ⁿφ=°

²∙≈■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙1■≈!╤≈■■
Fⁿ≈²■    Bⁿ≈²■U&LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREALCNAZEV
LCOLDNAZEVCISLONAZEVLCALIAS1LCALIAS2RIOPENRIENDTYPRIUPDATERIREUSETYPNAZç«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■%T≈ⁿC┘NAZEVΩ_C┘    PODOBLASTΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV+PODOBLAST²■T≈ⁿ≈≈²■%ⁿ≈≈
²∙N■T≈ⁿC┘cis_soft÷²■%ⁿ≈°
²∙2■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙φ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘OBLAST+PODOBLAST²■%ⁿ≈
²∙▒■!■■8T≈ⁿC┘OBLAST+PODOBLAST≈┘OBLAST+PODOBLAST÷²■■åⁿC┘cis_soft≈÷ ²■%ⁿ≈
²∙J■%ⁿφ=°

²∙3■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙m■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEV    PODOBLASTRIOPENRIENDOBLASTRIUPDATERIREUSE°«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■!T≈ⁿC┘NAZEVΩ_C┘VERZEΩ_²■(T≈ⁿCC┘NAZEVΩ_¢┘
 C┘VERZEΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV+VERZE²■T≈ⁿ≈≈²■T≈ⁿC≈¢┘
 ≈²■%ⁿ≈≈
²∙┐■T≈ⁿC┘software÷²■%ⁿ≈°
²∙j■%ⁿφ=°

²∙U■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙Σ■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘software≈÷!²■%ⁿ≈
²∙s■%ⁿφ=°

²∙\■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙╤■%ⁿφ=°

²∙╝■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙}■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙K■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘lik_soft≈÷!²■%ⁿ≈
²∙┌■%ⁿφ=°

²∙├■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙8■%ⁿφ=°

²∙#■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈≈²∙≡■T≈ⁿCO²■T≈ⁿ≈"≈²■T≈ⁿ┘Sof_Nazev+Verze²■%ⁿ≈
²∙╢■!■■6T≈ⁿC┘Sof_Nazev+Verze≈┘Sof_Nazev+Verze÷ ²■■åⁿC┘soft_pri≈÷!²■%ⁿ≈
²∙M■%ⁿφ=°

²∙6■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dok_sw÷²■%ⁿ≈°
²∙⌐■%ⁿφ=°

²∙ö■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈#≈²∙J■T≈ⁿCO²■T≈ⁿ≈#²■T≈ⁿ┘
VAZBANAZEV²■%ⁿ≈
²∙■!■■,T≈ⁿC┘
VAZBANAZEV≈┘
VAZBANAZEV÷ ²■■åⁿC┘dok_sw≈÷!²■%ⁿ≈
²∙Ñ■%ⁿφ=°

²∙Ä■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿC┘lSwScanb┘
U²∙╗■%ⁿ≈$²∙╖■T≈ⁿC┘sw_list÷²■%ⁿ≈°
²∙*    ■%ⁿφ=°

²∙    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╓    ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙ñ    ■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_list≈÷!²■%ⁿ≈
²∙2
■%ⁿφ=°

²∙
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_nalez÷²■%ⁿ≈°
²∙É
■%ⁿφ=°

²∙{
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙<■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙
■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_nalez≈÷!²■%ⁿ≈
²∙Ö■%ⁿφ=°

²∙é■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_bezli÷²■%ⁿ≈°
²∙≈■%ⁿφ=°

²∙Γ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙ú■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙q■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_bezli≈÷!²■%ⁿ≈
²∙■%ⁿφ=°

²∙Θ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_LICSW÷²■%ⁿ≈°
²∙^■%ⁿφ=°

²∙I■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙
■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙╪■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘SW_LICSW≈÷!²■%ⁿ≈
²∙g■%ⁿφ=°

²∙P■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_soub÷²■%ⁿ≈°
²∙─■%ⁿφ=°

²∙»■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙p■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙>■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_soub≈÷!²■%ⁿ≈
²∙╠■%ⁿφ=°

²∙╡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_porsw÷²■%ⁿ≈°
²∙*■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╓■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙ñ■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_porsw≈÷!²■%ⁿ≈
²∙3■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_CISSW÷²■%ⁿ≈°
²∙æ■%ⁿφ=°

²∙|■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙=■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘SW_CISSW≈÷!²■%ⁿ≈
²∙Ü■%ⁿφ=°

²∙â■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_neved÷²■%ⁿ≈°
²∙°■%ⁿφ=°

²∙π■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙ñ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙r■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_neved≈÷!²■%ⁿ≈
²∙
■%ⁿφ=°

²∙Ω■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_nsoub÷²■%ⁿ≈°
²∙_■%ⁿφ=°

²∙J■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙┘■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_nsoub≈÷!²■%ⁿ≈
²∙h■%ⁿφ=°

²∙Q■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_balik÷²■%ⁿ≈°
²∙╞■%ⁿφ=°

²∙▒■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙r■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙@■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_balik≈÷!²■%ⁿ≈
²∙╧■%ⁿφ=°

²∙╕■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿ≈%┘
A²∙│■T≈ⁿC┘sw_docas÷²■%ⁿ≈°
²∙?■%ⁿφ=°

²∙*■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙δ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙╣■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_docas≈÷!²■%ⁿ≈
²∙H■%ⁿφ=°

²∙1■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_docsw÷²■%ⁿ≈°
²∙ª■%ⁿφ=°

²∙æ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙R■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘NAZEV+VERZE²■%ⁿ≈
²∙ ■!■■.T≈ⁿC┘NAZEV+VERZE≈┘NAZEV+VERZE÷ ²■■åⁿC┘sw_docsw≈÷!²■%ⁿ≈
²∙»■%ⁿφ=°

²∙ÿ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■■■■%ⁿφ=°

²∙▐■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U&LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREAOLDNAZEVNAZEVVERZE    CNEWNAZEVRIOPENRIENDRIUPDATERIREUSE    SOF_NAZEV
VAZBANAZEVLSWSCANCMULT⌐«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘TYPΩ_C┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘    TYP+NAZEV²■T≈ⁿ≈≈²■%ⁿ≈≈
²∙■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙&■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╠■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙₧■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙)■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙ç■%ⁿφ=°

²∙r■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙-■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙ ■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙è■%ⁿφ=°

²∙s■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙Φ■%ⁿφ=°

²∙╙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙Ä■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙`■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙δ■%ⁿφ=°

²∙╘■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙I■%ⁿφ=°

²∙4■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙∩■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙┴■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙L■%ⁿφ=°

²∙5■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙¬■%ⁿφ=°

²∙ò■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙P    ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙"    ■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙¡    ■%ⁿφ=°

²∙û    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙
■%ⁿφ=°

²∙÷    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙▒
■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘    TYP+NAZEV²■%ⁿ≈
²∙â
■!■■*T≈ⁿC┘    TYP+NAZEV≈┘    TYP+NAZEV÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙≈
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■%ⁿC≈┘K002┘K013¡²∙p■T≈ ⁿ≈²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙l■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙°■%ⁿφ=°

²∙π■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■%ⁿ≈ ┘K002²∙¥■~ⁿ≈≈²∙Ö■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘TYP²■%ⁿ≈
²∙w■!■■T≈ⁿC┘TYP≈┘TYP÷²■■∙$■~ⁿ≈!≈²∙ ■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    PROVEDENI²■%ⁿ≈
²∙°■!■■$T≈ⁿC┘    PROVEDENI≈┘TYP÷²■■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙ü■%ⁿφ=°

²∙j■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙▀■%ⁿφ=°

²∙╩■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■%ⁿ≈ ┘K002²∙ä■~ⁿ≈≈²∙Ç■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘TYP²■%ⁿ≈
²∙^■!■■T≈ⁿC┘TYP≈┘TYP÷²■■∙■~ⁿ≈!≈²∙■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    PROVEDENI²■%ⁿ≈
²∙▀■!■■$T≈ⁿC┘    PROVEDENI≈┘TYP÷²■■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙h■%ⁿφ=°

²∙Q■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■■%ⁿφ=°

²∙Å■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U"LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREATYPNAZEVRIOPENRIENDRIUPDATERIREUSECTYP    PROVEDENIo«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘TYPΩ_C┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘    TYP+NAZEV²■T≈ⁿ≈≈²■%ⁿ≈≈
²∙6■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙&■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╥■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙á■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘prisluse≈÷ ²■%ⁿ≈
²∙/■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙ì■%ⁿφ=°

²∙x■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙9■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘lik_pris≈÷ ²■%ⁿ≈
²∙û■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙⌠■%ⁿφ=°

²∙▀■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙á■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙n■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘pris_lan≈÷ ²■%ⁿ≈
²∙²■%ⁿφ=°

²∙µ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙[■%ⁿφ=°

²∙F■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙╒■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘lik_plan≈÷ ²■%ⁿ≈
²∙d■%ⁿφ=°

²∙M■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙┬■%ⁿφ=°

²∙¡■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙n    ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙<    ■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘pris_vol≈÷ ²■%ⁿ≈
²∙╦    ■%ⁿφ=°

²∙┤    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙)
■%ⁿφ=°

²∙
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╒
■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST1²■%ⁿ≈
²∙ú
■!■■.T≈ⁿC┘TYP+OBLAST1≈┘TYP+OBLAST1÷²■■åⁿC┘lik_pvol≈÷ ²■%ⁿ≈
²∙2■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙U■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREATYPNAZEVRIOPENRIENDOBLAST1RIUPDATERIREUSEo«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘TYPΩ_C┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘    TYP+NAZEV²■T≈ⁿ≈≈²■%ⁿ≈≈
²∙6■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙&■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╥■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙á■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘prisluse≈÷ ²■%ⁿ≈
²∙/■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙ì■%ⁿφ=°

²∙x■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙9■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘lik_pris≈÷ ²■%ⁿ≈
²∙û■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙⌠■%ⁿφ=°

²∙▀■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙á■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙n■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘pris_lan≈÷ ²■%ⁿ≈
²∙²■%ⁿφ=°

²∙µ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙[■%ⁿφ=°

²∙F■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙╒■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘lik_plan≈÷ ²■%ⁿ≈
²∙d■%ⁿφ=°

²∙M■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙┬■%ⁿφ=°

²∙¡■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙n    ■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙<    ■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘pris_vol≈÷ ²■%ⁿ≈
²∙╦    ■%ⁿφ=°

²∙┤    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙)
■%ⁿφ=°

²∙
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≈²∙╒
■T≈ⁿCO²■T≈ⁿ≈≈²■T≈ⁿ┘TYP+OBLAST2²■%ⁿ≈
²∙ú
■!■■.T≈ⁿC┘TYP+OBLAST2≈┘TYP+OBLAST2÷²■■åⁿC┘lik_pvol≈÷ ²■%ⁿ≈
²∙2■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙U■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREATYPNAZEVRIOPENRIENDOBLAST2RIUPDATERIREUSE╟(«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙Ä(■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙½■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘PRIRAD²■%ⁿ≈
²∙ü■!■■&T≈ⁿC┘PRIRAD≈┘HARDWARE÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙±■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙f■%ⁿφ=°

²∙Q■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙²■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘PRIRAD²■%ⁿ≈
²∙╙■!■■&T≈ⁿC┘PRIRAD≈┘HARDWARE÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙Z■%ⁿφ=°

²∙C■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘OPR_HW÷²■%ⁿ≈°
²∙╢■%ⁿφ=°

²∙í■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙K■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙"■!■■%T≈ⁿC┘CISLO≈┘HARDWARE÷²■■åⁿC┘OPR_HW≈÷²■%ⁿ≈
²∙ª■%ⁿφ=°

²∙Å■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙∩■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙û■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙p■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘soft_pri≈÷²■%ⁿ≈
²∙≤■%ⁿφ=°

²∙▄■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘dok_hw÷²■%ⁿ≈°
²∙O■%ⁿφ=°

²∙:■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙ß■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙╗■!■■"T≈ⁿC┘VAZBA≈┘VAZBA÷²■■åⁿC┘dok_hw≈÷²■%ⁿ≈
²∙<    ■%ⁿφ=°

²∙%    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙Ü    ■%ⁿφ=°

²∙à    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■$~ⁿ≈!≈≡C≈"°
=┘HW    ²∙8
■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘OEM²■%ⁿ≈
²∙
■!■■T≈ⁿC┘OEM≈┘OEM÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙ò
■%ⁿφ=°

²∙~
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙≤
■%ⁿφ=°

²∙▐
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■$~ⁿ≈!≈≡C≈"°
=┘HW    ²∙æ■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘OEM²■%ⁿ≈
²∙o■!■■T≈ⁿC┘OEM≈┘OEM÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙ε■%ⁿφ=°

²∙╫■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pozadav÷²■%ⁿ≈°
²∙K■%ⁿφ=°

²∙6■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙▌■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙╖■!■■"T≈ⁿC┘VAZBA≈┘VAZBA÷²■■åⁿC┘pozadav≈÷²■%ⁿ≈
²∙9■%ⁿφ=°

²∙"■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hh_loghd÷²■%ⁿ≈°
²∙ù■%ⁿφ=°

²∙é■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙)■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘hh_loghd≈÷²■%ⁿ≈
²∙å■%ⁿφ=°

²∙o■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙Σ■%ⁿφ=°

²∙╧■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈#┘H     ²∙å■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙]■!■■%T≈ⁿC┘CISLO≈┘HARDWARE÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙π■%ⁿφ=°

²∙╠■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘HH_ZMENY÷²■%ⁿ≈°
²∙A■%ⁿφ=°

²∙,■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙¡■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘hh_zmeny≈÷²■%ⁿ≈
²∙0■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘HH_NEURC÷²■%ⁿ≈°
²∙Ä■%ⁿφ=°

²∙y■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙·■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘hh_neurc≈÷²■%ⁿ≈
²∙}■%ⁿφ=°

²∙f■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘HH_SLOTY÷²■%ⁿ≈°
²∙█■%ⁿφ=°

²∙╞■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙m■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙G■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘hh_sloty≈÷²■%ⁿ≈
²∙╩■%ⁿφ=°

²∙│■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘HH_KONEK÷²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙║■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙ö■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘hh_konek≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿC┘lSwScanb┘
U²∙ë'■%ⁿ≈$²∙à'■T≈ⁿC┘sw_nalez÷²■%ⁿ≈°
²∙¥■%ⁿφ=°

²∙ê■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙/■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙    ■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_nalez≈÷²■%ⁿ≈
²∙î■%ⁿφ=°

²∙u■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_BEZLI÷²■%ⁿ≈°
²∙Ω■%ⁿφ=°

²∙╒■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙|■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙V■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_BEZLI≈÷²■%ⁿ≈
²∙┘■%ⁿφ=°

²∙┬■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_LICSW÷²■%ⁿ≈°
²∙7■%ⁿφ=°

²∙"■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╔■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙ú■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_LICSW≈÷²■%ⁿ≈
²∙&■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_PORSW÷²■%ⁿ≈°
²∙ä■%ⁿφ=°

²∙o■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙≡■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_PORSW≈÷²■%ⁿ≈
²∙s■%ⁿφ=°

²∙\■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_CISSW÷²■%ⁿ≈°
²∙╤■%ⁿφ=°

²∙╝■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙c■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙=■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_CISSW≈÷²■%ⁿ≈
²∙└■%ⁿφ=°

²∙⌐■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_PORSO÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙░■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙è■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_PORSO≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙÷■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_CISSO÷²■%ⁿ≈°
²∙k■%ⁿφ=°

²∙V■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙²■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙╫■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘SW_CISSO≈÷²■%ⁿ≈
²∙Z■%ⁿφ=°

²∙C■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_neurc÷²■%ⁿ≈°
²∙╕■%ⁿφ=°

²∙ú■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙J■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙$■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_neurc≈÷²■%ⁿ≈
²∙º■%ⁿφ=°

²∙É■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_reg÷²■%ⁿ≈°
²∙ ■%ⁿφ=°

²∙ε■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ò ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙o ■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_reg≈÷²■%ⁿ≈
²∙≡ ■%ⁿφ=°

²∙┘ ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_soub÷²■%ⁿ≈°
²∙M!■%ⁿφ=°

²∙8!■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙▀!■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙╣!■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_soub≈÷²■%ⁿ≈
²∙;"■%ⁿφ=°

²∙$"■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_zrus÷²■%ⁿ≈°
²∙ÿ"■%ⁿφ=°

²∙â"■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙*#■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙#■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_zrus≈÷²■%ⁿ≈
²∙å#■%ⁿφ=°

²∙o#■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_arch÷²■%ⁿ≈°
²∙π#■%ⁿφ=°

²∙╬#■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙u$■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙O$■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_arch≈÷²■%ⁿ≈
²∙╤$■%ⁿφ=°

²∙║$■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿ≈%┘
A²∙ü'■T≈ⁿC┘sw_dsoub÷²■%ⁿ≈°
²∙A%■%ⁿφ=°

²∙,%■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╙%■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙¡%■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_dsoub≈÷²■%ⁿ≈
²∙0&■%ⁿφ=°

²∙&■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_docsw÷²■%ⁿ≈°
²∙Ä&■%ⁿφ=°

²∙y&■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ '■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙·&■!■■"T≈ⁿC┘CISLO≈┘CISLO÷²■■åⁿC┘sw_docsw≈÷²■%ⁿ≈
²∙}'■%ⁿφ=°

²∙f'■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■■■%ⁿC┘i_PathHWb┘
U²∙è(■T≈&ⁿC≈¢┘.*²■)
cSouOld = SYS(2000,"&i_PathHW\&cPom")
%ⁿC≈'í
²∙å(■+ⁿC≈'í
²∙é(■T≈(ⁿC≈¢C≈'°
R²■7
RENAME '&i_PathHW\&cSouOld' TO '&i_PathHW\&cSouNew'
+
cSouOld = SYS(2000,"&i_PathHW\&cPom",1)
■■■■%ⁿφ=°

²∙¡(■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U)LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDPRIRADRIUPDATERIREUSEVAZBAOEM    LIC_ZARIZDRUHLSWSCANCMULTCPOMCSOUOLDCSOUNEW█H«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘    TYP_SERVCΩ_²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERVC²■T≈ⁿ≈²■%ⁿ≈≈
²∙óH■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╣■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙î■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙ ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙t■%ⁿφ=°

²∙_■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙Σ■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙n■%ⁿφ=°

²∙W■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙╠■%ⁿφ=°

²∙╖■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙i■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙<■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙╞■%ⁿφ=°

²∙»■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙$■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙┴■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙ö■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙|■%ⁿφ=°

²∙g■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙    ■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙∞■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙v    ■%ⁿφ=°

²∙_    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙╘    ■%ⁿφ=°

²∙┐    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙q
■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙D
■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙╬
■%ⁿφ=°

²∙╖
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙,■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙╔■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙£■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙&■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙ä■%ⁿφ=°

²∙o■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙!■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙⌠■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙~■%ⁿφ=°

²∙g■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙▄■%ⁿφ=°

²∙╟■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙y■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙L■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙╓■%ⁿφ=°

²∙┐■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙4■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╤■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙ñ■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙.■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙î■%ⁿφ=°

²∙w■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙)■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙ⁿ■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙å■%ⁿφ=°

²∙o■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙Σ■%ⁿφ=°

²∙╧■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙ü■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙T■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙▐■%ⁿφ=°

²∙╟■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙<■%ⁿφ=°

²∙'■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙┘■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙¼■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙6■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙ö■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙1■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_software≈÷²■%ⁿ≈
²∙Æ■%ⁿφ=°

²∙{■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙≡■%ⁿφ=°

²∙█■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙ì■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙`■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙Ω■%ⁿφ=°

²∙╙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙H■%ⁿφ=°

²∙3■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙σ■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙╕■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙B■%ⁿφ=°

²∙+■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙á■%ⁿφ=°

²∙ï■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙=■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙Ü■%ⁿφ=°

²∙â■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙°■%ⁿφ=°

²∙π■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ò■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙h■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙≥■%ⁿφ=°

²∙█■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙P■%ⁿφ=°

²∙;■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙φ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙└■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙J■%ⁿφ=°

²∙3■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙¿■%ⁿφ=°

²∙ô■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙E■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙ó■%ⁿφ=°

²∙ï■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙δ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¥■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙p■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙·■%ⁿφ=°

²∙π■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙X■%ⁿφ=°

²∙C■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙⌡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙╚■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙R ■%ⁿφ=°

²∙; ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙░ ■%ⁿφ=°

²∙¢ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙M!■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙ !■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙¬!■%ⁿφ=°

²∙ô!■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙"■%ⁿφ=°

²∙≤!■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙Ñ"■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙x"■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙#■%ⁿφ=°

²∙δ"■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙`#■%ⁿφ=°

²∙K#■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙²#■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙╨#■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙Z$■%ⁿφ=°

²∙C$■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙╕$■%ⁿφ=°

²∙ú$■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙U%■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙(%■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙▓%■%ⁿφ=°

²∙¢%■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙&■%ⁿφ=°

²∙√%■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙¡&■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙Ç&■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙
'■%ⁿφ=°

²∙≤&■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙h'■%ⁿφ=°

²∙S'■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙(■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙╪'■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙b(■%ⁿφ=°

²∙K(■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙└(■%ⁿφ=°

²∙½(■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙])■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙0)■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙║)■%ⁿφ=°

²∙ú)■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙*■%ⁿφ=°

²∙*■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙╡*■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙ê*■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙+■%ⁿφ=°

²∙√*■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙p+■%ⁿφ=°

²∙[+■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙,■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙α+■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙j,■%ⁿφ=°

²∙S,■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙╚,■%ⁿφ=°

²∙│,■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙e-■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙8-■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙┬-■%ⁿφ=°

²∙½-■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙ .■%ⁿφ=°

²∙.■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙╜.■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙É.■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙/■%ⁿφ=°

²∙/■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙x/■%ⁿφ=°

²∙c/■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙0■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙Φ/■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙r0■%ⁿφ=°

²∙[0■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙╨0■%ⁿφ=°

²∙╗0■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙m1■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙@1■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙╩1■%ⁿφ=°

²∙│1■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙(2■%ⁿφ=°

²∙2■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙┼2■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙ÿ2■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙"3■%ⁿφ=°

²∙3■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙Ç3■%ⁿφ=°

²∙k3■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙4■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙≡3■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙z4■%ⁿφ=°

²∙c4■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙╪4■%ⁿφ=°

²∙├4■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙u5■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙H5■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙╥5■%ⁿφ=°

²∙╗5■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙06■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙═6■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙á6■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙*7■%ⁿφ=°

²∙7■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙ê7■%ⁿφ=°

²∙s7■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙%8■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙°7■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙é8■%ⁿφ=°

²∙k8■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙▄8■%ⁿφ=°

²∙╟8■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙y9■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙L9■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙╥9■%ⁿφ=°

²∙╗9■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙0:■%ⁿφ=°

²∙:■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙═:■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERV1²■%ⁿ≈
²∙á:■!■■)T≈ⁿC┘    TYP_SERV1≈┘CIS_SERV÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙*;■%ⁿφ=°

²∙;■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙ä;■%ⁿφ=°

²∙o;■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙!<■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙⌠;■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙z<■%ⁿφ=°

²∙c<■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙╪<■%ⁿφ=°

²∙├<■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈ ≈²∙u=■T≈ⁿCO²■T≈ⁿ≈ ²■T≈ⁿ┘    TYP_SERV2²■%ⁿ≈
²∙H=■!■■)T≈ⁿC┘    TYP_SERV2≈┘CIS_SERV÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙╥=■%ⁿφ=°

²∙╗=■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙,>■%ⁿφ=°

²∙>■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙╔>■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙£>■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙"?■%ⁿφ=°

²∙?■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙Ç?■%ⁿφ=°

²∙k?■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈!≈²∙@■T≈ⁿCO²■T≈ⁿ≈!²■T≈ⁿ┘    TYP_SERV3²■%ⁿ≈
²∙≡?■!■■)T≈ⁿC┘    TYP_SERV3≈┘CIS_SERV÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙z@■%ⁿφ=°

²∙c@■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙╘@■%ⁿφ=°

²∙┐@■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙qA■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙DA■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙╩A■%ⁿφ=°

²∙│A■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙(B■%ⁿφ=°

²∙B■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈"≈²∙┼B■T≈ⁿCO²■T≈ⁿ≈"²■T≈ⁿ┘    TYP_SERV4²■%ⁿ≈
²∙ÿB■!■■)T≈ⁿC┘    TYP_SERV4≈┘CIS_SERV÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙"C■%ⁿφ=°

²∙C■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_hw÷²■%ⁿ≈°
²∙~C■%ⁿφ=°

²∙iC■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡≈#°
    ²∙&D■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERVC²■%ⁿ≈
²∙∙C■!■■)T≈ⁿC┘    TYP_SERVC≈┘CIS_SERV÷²■■åⁿC┘opr_hw≈÷²■%ⁿ≈
²∙üD■%ⁿφ=°

²∙jD■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_sw÷²■%ⁿ≈°
²∙▌D■%ⁿφ=°

²∙╚D■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡≈#°
    ²∙àE■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERVC²■%ⁿ≈
²∙XE■!■■)T≈ⁿC┘    TYP_SERVC≈┘CIS_SERV÷²■■åⁿC┘opr_sw≈÷²■%ⁿ≈
²∙αE■%ⁿφ=°

²∙╔E■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_pr÷²■%ⁿ≈°
²∙<F■%ⁿφ=°

²∙'F■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡≈#°
    ²∙ΣF■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERVC²■%ⁿ≈
²∙╖F■!■■)T≈ⁿC┘    TYP_SERVC≈┘CIS_SERV÷²■■åⁿC┘opr_pr≈÷²■%ⁿ≈
²∙?G■%ⁿφ=°

²∙(G■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘opr_ln÷²■%ⁿ≈°
²∙¢G■%ⁿφ=°

²∙åG■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡≈#°
    ²∙CH■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘    TYP_SERVC²■%ⁿ≈
²∙H■!■■)T≈ⁿC┘    TYP_SERVC≈┘CIS_SERV÷²■■åⁿC┘opr_ln≈÷²■%ⁿ≈
²∙₧H■%ⁿφ=°

²∙çH■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙┴H■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U$LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREA    TYP_SERVCRIOPENRIEND    TYP_SERV1RIUPDATERIREUSE    TYP_SERV2    TYP_SERV3    TYP_SERV4STAV≤«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙║■T≈ⁿC┘hardware÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙»■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙â■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘hardware≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙⌡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_hard÷²■%ⁿ≈°
²∙j■%ⁿφ=°

²∙U■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙┘■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_hard≈÷²■%ⁿ≈
²∙b■%ⁿφ=°

²∙K■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘software÷²■%ⁿ≈°
²∙└■%ⁿφ=°

²∙½■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙[■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙/■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙╕■%ⁿφ=°

²∙í■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙
■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙▒■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙à■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙≈■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘prisluse÷²■%ⁿ≈°
²∙l■%ⁿφ=°

²∙W■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙█■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘prisluse≈÷²■%ⁿ≈
²∙d    ■%ⁿφ=°

²∙M    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pris÷²■%ⁿ≈°
²∙┬    ■%ⁿφ=°

²∙¡    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙]
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙1
■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_pris≈÷²■%ⁿ≈
²∙║
■%ⁿφ=°

²∙ú
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_lan÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙│■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙ç■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘pris_lan≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_plan÷²■%ⁿ≈°
²∙n■%ⁿφ=°

²∙Y■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙▌■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_plan≈÷²■%ⁿ≈
²∙f■%ⁿφ=°

²∙O■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘pris_vol÷²■%ⁿ≈°
²∙─■%ⁿφ=°

²∙»■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙_■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙3■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘pris_vol≈÷²■%ⁿ≈
²∙╝■%ⁿφ=°

²∙Ñ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_pvol÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙ë■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_pvol≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙√■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘site÷²■%ⁿ≈°
²∙l■%ⁿφ=°

²∙W■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙█■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘site≈÷²■%ⁿ≈
²∙`■%ⁿφ=°

²∙I■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_site÷²■%ⁿ≈°
²∙╛■%ⁿφ=°

²∙⌐■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Y■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISVOLNY²■%ⁿ≈
²∙-■!■■(T≈ⁿC┘CISVOLNY≈┘CIS_VOLN÷²■■åⁿC┘lik_site≈÷²■%ⁿ≈
²∙╢■%ⁿφ=°

²∙ƒ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙┘■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDCISVOLNYRIUPDATERIREUSEI«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘apli_pri÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙»■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘APLIKACE²■%ⁿ≈
²∙â■!■■(T≈ⁿC┘APLIKACE≈┘CIS_APLI÷²■■åⁿC┘apli_pri≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙⌡■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙/■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDAPLIKACERIUPDATERIREUSEd«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dok_prl÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¿■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙■!■■%T≈ⁿC┘VAZBA≈┘PRIS_LAN÷²■■åⁿC┘dok_prl≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙φ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙+■T≈ⁿC┘opr_pl÷²■%ⁿ≈°
²∙┌■%ⁿφ=°

²∙┼■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙o■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙F■!■■%T≈ⁿC┘CISLO≈┘PRIS_LAN÷²■■åⁿC┘opr_pl≈÷²■%ⁿ≈
²∙╩■%ⁿφ=°

²∙│■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈ ┘PL    ²∙╩■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙í■!■■%T≈ⁿC┘CISLO≈┘PRIS_LAN÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙'■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙J■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDVAZBARIUPDATERIREUSEDRUHd«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dok_prv÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙■■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¿■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘VAZBA²■%ⁿ≈
²∙■!■■%T≈ⁿC┘VAZBA≈┘PRIS_VOL÷²■■åⁿC┘dok_prv≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙φ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘CISLOΩ_²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■T≈ⁿ≈²■%ⁿ≈≈
²∙+■T≈ⁿC┘opr_pv÷²■%ⁿ≈°
²∙┌■%ⁿφ=°

²∙┼■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙o■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙F■!■■%T≈ⁿC┘CISLO≈┘PRIS_VOL÷²■■åⁿC┘opr_pv≈÷²■%ⁿ≈
²∙╩■%ⁿφ=°

²∙│■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘DOKUSCAN÷²■%ⁿ≈°
²∙(■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈≡
≈ ┘PV    ²∙╩■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘CISLO²■%ⁿ≈
²∙í■!■■%T≈ⁿC┘CISLO≈┘PRIS_VOL÷²■■åⁿC┘DOKUSCAN≈÷²■%ⁿ≈
²∙'■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙J■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREACISLORIOPENRIENDVAZBARIUPDATERIREUSEDRUH?«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘NAZEVΩ_²■T≈ⁿ≈²■T≈ⁿ┘NAZEV²■T≈ⁿ≈²■%ⁿ≈≈
²∙■T≈ⁿC┘dokuscan÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙ ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙Ñ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘TYP²■%ⁿ≈
²∙~■!■■#T≈ⁿC┘TYP≈┘CIS_DOKU÷²■■åⁿC┘dokuscan≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙δ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■%ⁿφ=°

²∙%■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREANAZEVRIOPENRIENDTYPRIUPDATERIREUSE,«≈■T≈ⁿa²■5≈
≈≈≈≈≈■5≈≈■!Jⁿ┘²(≈
≈≈≈≈≈■Jⁿ°
²(≈≈■%ⁿφ=°

²∙∞
■¢╜■'5≈    ≈
≈≈≈≈≈≈≈■T≈ⁿC┘TALKv²■G2■T≈ⁿC┘DELETEDv²■T≈ⁿC┘EXACTv²■T≈ⁿC┘
COMPATIBLEv²■GA■G ■G■T≈    ⁿ┘²■T≈
ⁿ┘²■T≈ⁿC┘errorΩ²■T≈ⁿ°
²■?1√7pnerror=rierror(ERROR(),message(),message(1),program())■%ⁿC√gaErrors(1)b┘
U²∙╡
■<≈■■7÷ⁿ°

²ⁿ°²■T≈ⁿCΩû²■G(ⁿ┘SPRAVCE²■■«≈■«≈■«≈■«≈■«≈■«≈■«≈■T≈ⁿCW²■T≈ⁿa²■T≈ⁿCW²■
Fⁿ≈²■T≈
ⁿC&²■T≈ⁿCO²■T≈ⁿC┘KODΩ_²■T≈ⁿ≈²■T≈ⁿ┘KOD²■T≈ⁿ≈²■%ⁿ≈≈
²∙≤■T≈ⁿC┘software÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙√■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙½■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘software≈÷²■%ⁿ≈
²∙■%ⁿφ=°

²∙±■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘lik_soft÷²■%ⁿ≈°
²∙f■%ⁿφ=°

²∙Q■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙╒■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘lik_soft≈÷²■%ⁿ≈
²∙^■%ⁿφ=°

²∙G■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘soft_pri÷²■%ⁿ≈°
²∙╝■%ⁿφ=°

²∙º■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙W■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙+■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘soft_pri≈÷²■%ⁿ≈
²∙┤■%ⁿφ=°

²∙¥■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘cis_soft÷²■%ⁿ≈°
²∙■%ⁿφ=°

²∙²■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙¡■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙ü■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘cis_soft≈÷²■%ⁿ≈
²∙
■%ⁿφ=°

²∙≤■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿC┘lSwScanb┘
U²∙∩■T≈ⁿC┘sw_nalez÷²■%ⁿ≈°
²∙â■%ⁿφ=°

²∙n■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙    ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙≥■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_nalez≈÷²■%ⁿ≈
²∙{    ■%ⁿφ=°

²∙d    ■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_bezli÷²■%ⁿ≈°
²∙┘    ■%ⁿφ=°

²∙─    ■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙t
■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙H
■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_bezli≈÷²■%ⁿ≈
²∙╤
■%ⁿφ=°

²∙║
■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘SW_LICSW÷²■%ⁿ≈°
²∙/■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╩■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙₧■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘SW_LICSW≈÷²■%ⁿ≈
²∙'■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_porsw÷²■%ⁿ≈°
²∙à■%ⁿφ=°

²∙p■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙ ■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙⌠■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_porsw≈÷²■%ⁿ≈
²∙}■%ⁿφ=°

²∙f■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_cissw÷²■%ⁿ≈°
²∙█■%ⁿφ=°

²∙╞■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙v■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙J■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_cissw≈÷²■%ⁿ≈
²∙╙■%ⁿφ=°

²∙╝■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_neved÷²■%ⁿ≈°
²∙1■%ⁿφ=°

²∙■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙╠■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙á■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_neved≈÷²■%ⁿ≈
²∙)■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■%ⁿ≈ ┘
A²∙δ■T≈ⁿC┘sw_docas÷²■%ⁿ≈°
²∙Ö■%ⁿφ=°

²∙ä■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙4■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_docas≈÷²■%ⁿ≈
²∙æ■%ⁿφ=°

²∙z■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■T≈ⁿC┘sw_docsw÷²■%ⁿ≈°
²∙∩■%ⁿφ=°

²∙┌■≈╤ⁿ-²■■
Fⁿ≈²■Bⁿ-²■■T≈ⁿC≈&²■
Fⁿ≈²■~ⁿ≈≈²∙è■T≈ⁿCO²■T≈ⁿ≈²■T≈ⁿ┘SW_LOKAL²■%ⁿ≈
²∙^■!■■(T≈ⁿC┘SW_LOKAL≈┘CIS_LOKA÷²■■åⁿC┘sw_docsw≈÷²■%ⁿ≈
²∙τ■%ⁿφ=°

²∙╨■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■■■■■%ⁿφ=°

²∙■≈╤≈■■
Fⁿ≈²■    Bⁿ≈²■U!LLRETVALPCPARENTDBFPNPARENTREC
PCCHILDDBF
PNCHILDREC
PCPARENTID    PCCHILDIDPCPARENTEXPRPCCHILDEXPRPCRICURSORSPCRIWKAREASPCRIOLDERRORPNERROR    PCOLDDELE
PCOLDEXACT    PCOLDTALKPCOLDCOMPATPCOLDDBCGAERRORS
LCPARENTIDLCOLDPARENTIDLCCHILDWKAREA    LCCHILDIDLCOLDCHILDIDLCPARENTWKAREALCSTARTAREAKODRIOPENRIENDSW_LOKALRIUPDATERIREUSECMULTRIDELETE,  rierrorε  riend┴  rireuse╥  __RI_UPDATE_cis_hpouD  __RI_UPDATE_POZADAVW  __RI_UPDATE_cis_hzna  __RI_UPDATE_sw_sablo  __RI_UPDATE_cis_orga╚  __RI_UPDATE_cis_oshw):  __RI_UPDATE_cis_osob#A  __RI_UPDATE_cis_osswl  __RI_UPDATE_cis_umis!s  __RI_UPDATE_cis_vyr7è  __RI_UPDATE_dokument⌡Å  __RI_UPDATE_firmyÉ¥  __RI_UPDATE_prisluseW╛  __RI_UPDATE_site5╟  __RI_UPDATE_software┼╪  RIUPDATEòε  riopen⌡≡  __RI_UPDATE_cis_ptypπ⌠  __RI_UPDATE_CIS_OBLA┌
  __RI_UPDATE_CIS_SOFTπ    
  __RI_UPDATE_CIS_PNAZì%
  __RI_UPDATE_CIS_POB1╗6
  __RI_UPDATE_CIS_POB2ºC
  __RI_UPDATE_hardwareôP
  __RI_UPDATE_cis_serv{
  __RI_UPDATE_cis_volnû┼
  __RI_UPDATE_cis_apli┌
  __RI_UPDATE_pris_lan─▀
  __RI_UPDATE_pris_volñΦ
  __RI_UPDATE_cis_dokuä±
  __RI_UPDATE_cis_loka7≈
  3r▒┴
▒ü╤A╤
æA
AAíæ21
▒1
▒╤

Aæ
æ
æ
æ
╤1
┬
Aæ
æ
æ
æ
æ
æ
æ
æ
æ2q±╤QüaAaA±üü▒
A╤
í
Q
A1
aAA
aA1
aA1
aA╤±a
┴Aq3▓Rq3r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤A
ßAAqAæ
ß

▒AíæAô



▒AíqA±í!
┴╤A
ßAAqAæ
ß

▒AíæAB

▒Aíæ3r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤!
ßAAAAæ
ß

▒AíæAB

▒Aíæ3r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAB

▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAD

▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq▒┬▒┴í┴┴Q
Q
æ
╤!
╤╤1
æ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAR



▒AíqA±í!
┴╤1
ßAAaAQ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAé



▒AíqA±í!
┴╤1
ßAAaAü
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæABú
!
2
æ



▒AíqA±íí
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±íí
┴╤a
ßAAæAæ
ß

▒AíæAB
▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤±ßAA!Aæ
ß

▒AíæAô



▒AíqA±í!
┴╤±ßAA!Aæ
ß

▒AíæAB

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqqq┴▒┴í┴┴Q
╤!
╤╤1
æ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤A
ßAAqAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤A
ßAAqAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAR



▒AíqA±í!
┴╤!
ßAAQAQ
ß

▒AíæAR



▒AíqA±í!
┴╤A
ßAAqAQ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAô



▒AíqA±í!
┴╤A
ßAAqAæ
ß

▒AíæAé



▒AíqA±í!
┴╤A
ßAAqAü
ß

▒AíæAé



▒AíqA±í!
┴╤A
ßAAqAü
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQAæ
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAB

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAR



▒AíqA±í!
┴╤Q
ßAAüAQ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAé



▒AíqA±í!
┴╤Q
ßAAüAü
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤A
ßAAaAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAü



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAü



▒AíqA±í!
┴╤!
ßAAQAü
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAé



▒AíqA±í!
┴╤a
ßAAaAü
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAR



▒AíqA±í!
┴╤a
ßAAaAQ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAaAæ
ß

▒AíæAé



▒AíqA±í!
┴╤a
ßAAaAü
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAr



▒AíqA±ía
┴
┴
╤ßAAAq
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAæ



▒AíqA±í±
┴╤!
ßAAQAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAAq
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAAq
ß

▒AíæAÆ



▒AíqA±í!
┴
q

ßAAAæ
ß

▒AíæAô



▒AíqA±í!
┴
q

ßAAAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!

ßAAAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!

ßAAAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!

ßAAAæ
ß

▒AíæAô



▒AíqA±í!
┴╤!

ßAAAæ
ß

▒AíæAÆ



▒AíqA±í!
┴
a
±
ßAAAæ
ß

▒AíæAÆ



▒AíqA±í±
┴╤!
ßAAAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAAí┴┴Q
╤!
╤1
æ



▒AíqA±ía
┴
▒
±ßAAAæ
ß

▒AíæAAó┴┴Q
╤!
╤1
ü



▒AíqA±í!
┴╤!
ßAAQAü
ß

▒AíæAAó┴┴Q
╤!
╤1
ü



▒AíqA±í!
┴╤!
ßAAQAü
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAAQA"
┴╤Q
ßAAüAÆ
ß

▒AíæAÆ



▒AíqA±í±
┴╤!
ßAAQAæ
ß

▒AíæAA▓
ó┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAAó┴┴Q
╤!
╤1
ü



▒AíqA±í!
┴╤Q
ßAAüAü
ß

▒AíæAAó┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAAA
▒Aíæ5±2▒A
▒üQ
q



ü╤╤q
a
Qæ

ü


AA╤
æA
AAíæ4▒1
q
b

æ
╤A╤æ
ô╤Aü╤A┴ü┴

Γü╤A

ü╤AüR

1
A
╤AAí4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq▒├▒┴í┴┴Q
Q
╤!
╤╤▓╤┴
Q
Q
┴
Q
Q
┴
Q
Q
A2
!



▒AíqA±í!
┴╤

ßAA1A!
ß

▒AíæA#



▒AíqA±í!
┴╤

ßAA1A!
ß

▒AíæAÆ



▒AíqA±í!
┴╤

ßAA1Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤

ßAA1Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤

ßAA1Aæ
ß

▒AíæAAú
!
2
!



▒AíqA±íí
┴╤A
ßAAaA!
ß

▒AíæA#



▒AíqA±íí
┴╤1
ßAAaA!
ß

▒AíæAB
▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴R╤┴

1
æ



▒AíqA±ía
┴
╤
ßAAüAæ
ß

▒AíæAA

▒Aíæ3r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴ü╤ü

ü
1
æ



▒AíqA±íb
┴
ü
ßAAßAÆ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
┴
ßAAaAæ
ß

▒AíæAr



▒AíqA±í!
┴╤q
ßAA┴Aq
ß

▒AíæA▓
т



▒AíqA±ía
┴
ü
ßAAßAü
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAé



▒AíqA±ía
┴
ü
ßAAßAü
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæA"
æ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæACAAA
▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴≥
╤a

1
æ



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAô



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAô



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAô



▒AíqA±ía
┴
a
ßAAíAæ
ß

▒AíæAAú╤
╤Q
╤!
╤1
æ



▒AíqA±íQ
!
┴╤

ßAAß
Aü!
┴╤a
ßAAAAAæ
ß

▒AíæAô



▒AíqA±íQ
!
┴╤

ßAAß
Aü!
┴╤a
ßAAAAAæ
ß

▒AíæAAA

▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴≥
╤a

1
æ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAB

▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴≥
╤a

1
æ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAÆ



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAô



▒AíqA±ía
┴
ü
ßAAßAæ
ß

▒AíæAB
▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAô



▒AíqA±í!
┴╤1
ßAAaAæ
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAA!Aq
ß

▒AíæAÆ



▒AíqA±íA┴╤

ßAAß
Aæ
ß

▒AíæAô



▒AíqA±íA┴╤

ßAAß
Aæ
ß

▒AíæAé



▒AíqA±í!
┴╤!
ßAA!Aü
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í±
┴╤!
ßAAQAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæA▓
ё



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAô



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAr



▒AíqA±í!
┴╤!
ßAA!Aq
ß

▒AíæAé



▒AíqA±í!
┴╤!
ßAA!Aü
ß

▒AíæAé



▒AíqA±í!
┴╤!
ßAA!Aü
ß

▒AíæAé



▒AíqA±í!
┴╤!
ßAA!Aü
ß

▒AíæA"
æ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤!
ßAA!Aæ
ß

▒AíæABAA├
Q
æ


ü
q▒AAAA
▒Aíæ4r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴æ
╤a
╤1
æ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæA╤
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAR



▒AíqA±í!
┴╤a
ßAAæAQ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAR



▒AíqA±í!
┴╤a
ßAAæAQ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAR



▒AíqA±í!
┴╤a
ßAAæAQ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAR



▒AíqA±í!
┴╤a
ßAAæAQ
ß

▒AíæAô



▒AíqA±í!
┴╤a
ßAAæAæ
ß

▒AíæAr



▒AíqA±í╤
┴╤a
ßAAæAq
ß

▒AíæAr



▒AíqA±í╤
┴╤a
ßAAæAq
ß

▒AíæAr



▒AíqA±í╤
┴╤a
ßAAæAq
ß

▒AíæAr



▒AíqA±í╤
┴╤a
ßAAæAq
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAR



▒AíqA±í!
┴╤Q
ßAAüAQ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAB

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
ü



▒AíqA±í!
┴╤!
ßAAQAü
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAÆ



▒AíqA±í±
┴╤!
ßAAQAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
ü



▒AíqA±í!
┴╤!
ßAAQAü
ß

▒AíæAAí┴┴Q
╤!
╤1
q



▒AíqA±í!
┴╤!
ßAAQAq
ß

▒AíæAÆ



▒AíqA±í±
┴╤!
ßAAQAæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴Q
╤!
╤1
æ



▒AíqA±í!
┴╤

ßAA1Aæ
ß

▒AíæAA

▒Aíæ5r▒▒
▒


Qr1
aa
A
æ
aaa╤╤Q
╤±±
qA1
╤1
Aqqqqqqq┴▒┴í┴┴1
╤

╤1
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæA┤
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAô



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæA"
æ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæAÆ



▒AíqA±í!
┴╤Q
ßAAüAæ
ß

▒AíæABAC
▒Aíæ4
]▒
╞
φ+ô1Q¿¡YU╧üa┴ó!╘
"!"/*
~
D/ 9₧
╧
!:»u≈
╛╤u│â*╒âπµ|qτ⌡ε▌%⌡F)
cì    g)
4
+
▐    A4
─P
é
╤
πP
ó¢
{>─¢
æ¡
╬»¡
Ä╘
₧░╘
⌠á3    ô└(    è╖Θ¼G/Φ≡i/;:A]:ⁿzZ/{└áe_ΓáR╝º7t╝╪╫Ä√╫σ<vJ=╘δ╪ⁿ÷δ╕█!v!┌Ö%m#╟!╗%î7─#W"«7I[$τ"íILT≥$8#nTφâI%)x[