<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<AEUMUpdate>
  <Name>upd240</Name>
  <ApplicationID>APROP</ApplicationID>
  <Archive>false</Archive>
  <Comment></Comment>
  <Version Major="6" Minor="7" Release="240" Build="1"/>
  <VersionMin Major="0" Minor="0" Release="0" Build="0"/>
  <FirstStep>2856</FirstStep>
  <FirebirdDialect>1</FirebirdDialect>
  <Step UpdateType="Query" StepNumber="2856" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="CREATE GENERATOR PersonIdentities_ID_GEN;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2857" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="SET GENERATOR PersonIdentities_ID_GEN to 0;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2858" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="CREATE TABLE PersonIdentities(&#xA;  PI_ID INTEGER NOT NULL,&#xA;  PI_Identifier VARCHAR(15) NOT NULL,&#xA;  PI_CODE VARCHAR(10) NOT NULL&#xA;);" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2859" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="ALTER TABLE PersonIdentities&#xA;ADD CONSTRAINT PI_PRIMARYKEY PRIMARY KEY (PI_ID);" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2860" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="CREATE UNIQUE INDEX PI_I_Unique ON PersonIdentities (PI_Identifier);" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2861" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="CREATE TRIGGER Set_PersonIdentities_ID_GEN for PersonIdentities&#xA;BEFORE INSERT&#xA;AS&#xA;BEGIN&#xA; new.PI_ID = gen_id(PersonIdentities_ID_GEN, 1);&#xA;END;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2862" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="GRANT all ON PersonIdentities to public;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2863" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="ALTER TABLE Invoices&#xA;ADD IN_PER_IDENTITYCODE VARCHAR(10);" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2864" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="CREATE OR ALTER procedure INVOICEADDHEADER (&#xA;    IN_PERID integer,&#xA;    IN_PAYID integer,&#xA;    IN_PAYTYPE char(1),&#xA;    IN_PAYSUM numeric(15,2),&#xA;    IN_PAYCLEARSUM numeric(15,2),&#xA;    IN_PAYDDS numeric(15,2),&#xA;    IN_PAYLIHVI numeric(15,2),&#xA;    IN_PAYWAY char(1),&#xA;    IN_COMMENT blob sub_type 1 segment size 4096,&#xA;    IN_PAYTEXT varchar(250),&#xA;    IN_OPERATORID integer,&#xA;    IN_OBMOL varchar(50),&#xA;    IN_PERPAYFROM varchar(50),&#xA;    IN_PAYNODDSSUM numeric(15,2),&#xA;    IN_PAYDDSSUM numeric(15,2),&#xA;    IN_FACTOR numeric(15,2),&#xA;    IN_PAYDATE date,&#xA;    IN_REALPAYDATE date,&#xA;    IN_NODDSDESCR varchar(255),&#xA;    IN_DDSEVENTDATE date,&#xA;    IN_PAYMENTCHANNELID integer,&#xA;    IN_PER_IDENTITYCODE varchar(10))&#xA;returns (&#xA;    IN_ID integer)&#xA;as&#xA;declare variable IN_OPERATORNAME varchar(140);&#xA;declare variable IN_PERNAME varchar(140);&#xA;declare variable IN_PERADDR varchar(250);&#xA;declare variable IN_PERNM varchar(30);&#xA;declare variable IN_PEREGN varchar(15);&#xA;declare variable IN_PERDANN varchar(10);&#xA;declare variable IN_PERMOLNAME varchar(140);&#xA;declare variable IN_PERINDDS varchar(15);&#xA;declare variable IN_PER_ADDR_CORESP varchar(250);&#xA;declare variable IN_PER_TDNAP varchar(20);&#xA;declare variable IN_PER_TDNAP_ADDR varchar(50);&#xA;begin&#xA;  /* wzima se imeto na kasiera */&#xA;  select USER_STR from users&#xA;  where USER_ID = :IN_OperatorID&#xA;  into :IN_OperatorName;&#xA;&#xA;  /* wzimat se dannite na personata */&#xA;  select PerName, PerEgn, PerDanN, PerAddr, PerNM, PerMolName, PerINDDS, PerAddr_Coresp, PerTDNap, PerTDNap_Addr&#xA;  from PersonGetInfo(:IN_PerID)&#xA;  into :IN_PerName, :IN_PerEgn, :IN_PerDanN, :IN_PerAddr, :IN_PerNM, :IN_PERMOLNAME, :IN_PERINDDS,&#xA;  :IN_PER_ADDR_CORESP, :IN_PER_TDNAP, :IN_PER_TDNAP_ADDR;&#xA;&#xA;  if (IN_PAYDATE &lt; &quot;01.01.1990&quot; ) then&#xA;    IN_PayDate = &quot;NOW&quot;;&#xA;&#xA;  if (IN_DDSEVENTDATE &lt; &quot;01.01.1990&quot; ) then&#xA;    IN_DDSEVENTDATE = IN_PayDate;&#xA;  &#xA;  IN_ID = GEN_ID(IN_ID_GEN, 1);&#xA;  insert into Invoices (IN_ID, IN_PERID, IN_PERNAME, IN_PERADDR, IN_PERNM, IN_PEREGN,&#xA;                        IN_PERDANN, IN_PERMOLNAME, IN_PAYTYPE, IN_PAYTEXT, IN_PAYID,&#xA;                        IN_PAYSUM, IN_PAYDDS, IN_OPERATORID, IN_OPERATORNAME, IN_PAYLIHVI,&#xA;                        IN_PAYWAY, IN_ANUL, IN_COMMENT, IN_PAYCLEARSUM,&#xA;                        IN_OBMOL, IN_REAL, IN_PerPayFrom,&#xA;                        IN_PayDDSSum, IN_PayNoDDSSum, IN_FACTOR, IN_PAYDATE, IN_REALPAYDATE, &#xA;                        IN_PERINDDS, IN_FLAG2007, IN_NODDSDESCR, IN_DDSEVENTDATE,&#xA;                        IN_PER_ADDR_CORESP, IN_PER_TDNAP, IN_PER_TDNAP_ADDR, IN_PAYMENTCHANNELID,&#xA;                        IN_PER_IDENTITYCODE)&#xA;  values               (:IN_ID, :IN_PERID, :IN_PERNAME, :IN_PERADDR, :IN_PERNM, :IN_PEREGN,&#xA;                        :IN_PERDANN, :IN_PERMOLNAME, :IN_PAYTYPE, :IN_PAYTEXT, :IN_PAYID,&#xA;                        :IN_PAYSUM, :IN_PAYDDS, :IN_OPERATORID, :IN_OPERATORNAME, :IN_PAYLIHVI,&#xA;                        :IN_PAYWAY, &quot;A&quot;, :IN_COMMENT, :IN_PAYCLEARSUM,&#xA;                        :IN_OBMOL, &quot;F&quot;, :IN_PerPayFrom,&#xA;                        :IN_PayDDSSum, :IN_PayNoDDSSum, :IN_FACTOR, :IN_PAYDATE, :IN_REALPAYDATE,&#xA;                        :IN_PERINDDS, &quot;T&quot;, :IN_NODDSDESCR, :IN_DDSEVENTDATE,&#xA;                        :IN_PER_ADDR_CORESP, :IN_PER_TDNAP, :IN_PER_TDNAP_ADDR, :IN_PAYMENTCHANNELID,&#xA;                        :IN_PER_IDENTITYCODE);&#xA;  &#xA;  suspend;&#xA;end;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
  <Step UpdateType="Query" StepNumber="2865" DllName="" DllProcName="" PostgreSQL="" OracleSQL="" FirebirdSQL="UPDATE system_strings SET sys_str = '6.7.240.1' WHERE sys_id = 1401;" PostgreMany="false" OracleMany="false" FirebirdMany="false" ContinueOnError="false"/>
</AEUMUpdate>
