<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<AEUMUpdate>
  <Name>upd056</Name>
  <ApplicationID>ATARGOVIA</ApplicationID>
  <Archive>false</Archive>
  <Comment></Comment>
  <Version Major="1" Minor="5" Release="56" Build="1"/>
  <VersionMin Major="1" Minor="5" Release="55" Build="1"/>
  <FirstStep>1049</FirstStep>
  <Step UpdateType="Query" StepNumber="1049" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="create or alter procedure ADDCOMPDESCR (&#xA;    CDESCR varchar(250))&#xA;returns (&#xA;    CDID integer)&#xA;as&#xA;declare variable W_CDID integer;&#xA;Begin&#xA;  select CD_ID from CompDescr&#xA;  where  AClearStr(:CDescr) = AClearSTR(CD_STR)&#xA;  into   :W_CDID ;&#xA;&#xA;  if( W_CDID is  null) then&#xA;    begin&#xA;      select max(CD_ID) from CompDescr&#xA;      into :W_CDID;&#xA;      if (W_CDID is null) then&#xA;      begin&#xA;        W_CDID = 0;&#xA;      end&#xA;      W_CDId = W_CDID+1;&#xA;      insert into CompDescr (CD_ID,CD_Str) Values(:W_CDID,:CDescr);&#xA;    end&#xA;  CDID = W_CDID;&#xA;  suspend;&#xA;end" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="1050" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="delete from system_strings where SYS_ID = 0" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="1051" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="insert into system_strings (SYS_ID,SYS_STR) values (0,'1.5.56.1')" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
</AEUMUpdate>
