<CHECK chmode="0" stationcode="5" restaurantcode="722500001" cashservername="RLSERV"  generateddatetime="2012-04-15T21:32:00" locale="1049" shiftdate="xmldate" shiftnum="int" >
    <EXTINFO>
         <INTERFACES current="12348">
              <INTERFACE type="PDS" id="12348" mode="3" interface="8"> 
                     <HOLDERS>
                         <ITEM cardcode="11301867"/>
                     </HOLDERS>            
              </INTERFACE>      
         </INTERFACES>   
    </EXTINFO>
</CHECK >

<?xml version="1.0" encoding="utf-8"?>
<--
possible variation:
<?xml version="1.0" encoding="IBM866"?>
-->
<CHECK chmode="4" stationcode="5" restaurantcode="722500001" cashservername="RLSERV"  generateddatetime="2012-04-15T21:32:00"  shiftdate="xmldate" shiftnum="int">
    <EXTINFO reservation="49">
         <EXTDATA select="12,123" clientinfoinput="123412" tag="AUTHCODE"/>       
         <INTERFACES current="12348">
              <INTERFACE type="PDS" id="12348" mode="3" interface="8" cardcode="11307"> 
                     <HOLDERS>
                         <ITEM cardcode="11307"/>          
                     </HOLDERS>            
                     <ALLCARDS>
                         <ITEM cardcode="-999999999"/>  
                         <ITEM cardcode="ucs1"/>  
                         <ITEM cardcode="9511234567"/>  
                     </ALLCARDS>
              </INTERFACE>      
              <INTERFACE type="VIDEO" id="1"/> 
              <INTERFACE type="KDS" posid="132"  id="3"/> 
         </INTERFACES>   
    </EXTINFO>
 
    <CHECKDATA checknum="102628" guests="2" tablename="1028" startservice="2012-04-15T20:32:00" closedatetime="2012-04-15T21:30:00" ordernum="2944804.1" >
 
            <CHECKPERSONS count="2">
                        <PERSON role="K" name="Вдовин Б.А." code="1234" />
                        <PERSON role="W" name="Вдовина А.А." code="3654" />
            </CHECKPERSONS>
 
            <CHECKLINES count="3">
                        <LINE id="432" type="dish" name="Сельдь с гарниром" code="7644" quantity="2.00" price="23.60"  sum="27.20" servprint="bar" categ="bar2" stored="1">
                            <ATTRS>
                              <ATTR type_id="{338D933D-B332-3339-8334-33B733B3733B}" type_name="some_type" key_id="{D38D99CD-BBE2-4939-8414-DFB78FB3776B}" key_name="some name" value="424rfwer5" />
                              <ATTR type_id="{344D9344-4432-3444-4444-33B73443733B}" type_name="other_type" key_id="{228229CD-B222-4229-8224-D2278223226B}" key_name="other name" value="rsdfsdfwer5" />
 
 
                </ATTRS>                          
                            <LINETAXES count="2">
                            <TAX id="2" char="A" sum="3" />
                            <TAX id="5" char="B" sum="89" />
                            </LINETAXES>
                        </LINE>  
                        <LINE id="433242" type="dish" name="Сельдь без гарнира" code="8644" quantity="2.00" price="23.60" sum="27.20" servprint="bar" categ="bar2" last="1" stored="0">                                           
                            <LINETAXES count="2">
                            <TAX id="{4DDEC90E-709B-4962-935D-F36B8FBB5B8D};1800" sum="3" />
                            <TAX id="{1B38B63A-60D9-4162-BFD6-B765CE7E05D5};1000" sum="89" />
                            </LINETAXES>
                            <DISCOUNTS count="2">
                            <DISCOUNTPART id="{0A021EF0-5ED6-45A4-934E-29C8A779B3C2}" sum="-20.00" disclineuni="21214"/>
                            </DISCOUNTS>
                        </LINE>
                        <LINE id="442" parent_line="433242" type="modify" name="без гарнира" code="844" quantity="2.00" price="0" sum="0" servprint="bar" categ="bar2" last="1" stored="0"/>                                           
 
                        <LINE id="412" type="ticket" name="Мега фильм" code="84" quantity="1.00" price="23.60" sum="27.20" categ="боевик" ticketkind="простой"  stored="0"     >                                           
 <LINEPROPS custom="values"/>                       
 </LINE>
            </CHECKLINES>
 
            <CHECKCATEGS count="2">
                        <CATEG id="42" code="3" sum="1.17" discsum="0.99" name="FOOD" />
                        <CATEG id="2" code="3" sum="1.17" discsum="0.99" name="FOOD" />
            </CHECKCATEGS>
 
 
            <CHECKDISCOUNTS count="1">
                        <DISCOUNT id="4" code="19" sum="-0.18" name="15%" interface="8" cardcode="11301867" account="2312312312" uni="21214"/>
            </CHECKDISCOUNTS>
 
            <CHECKBONUSES count="1">
                        <BONUS id="2" code="12" sum="3" name="2%" interface="9" cardcode="11867" account="2312312312" />
            </CHECKBONUSES>
 
            <CHECKPAYMENTS count="2">
                        <PAYMENT id="32" code="HRCP" paytype="3" sum="0.990" name="Купон HR" interface="8" cardcode="11301867" account="2312312312" ownerinfo="Прибытков Роман Михайлович" extTransactionInfo="12" />
                        <PAYMENT id="2" code="RUR" paytype="1" sum="200" name="Рубли" />
            </CHECKPAYMENTS>
            <CHECKTAXES count="2">
                        <TAX id="2" char="A" code="12" rate="10.00" sum="3" name="НДС"  />
                      <TAX id="2" char="B" code="12" rate="18.00" sum="10" name="НДС"  />
                        <TAX id="5" char="B" code="02" rate="9.00" sum="89" name="НСП"  />
            </CHECKTAXES>
    </CHECKDATA>
 
</CHECK>

function tSailPlayProcessor.CurrentInterfaceID(XML: IXmlDocument):Integer;
var
    interfaces:IXmlNodeList;
    i:integer;
begin
  Result:=XML.DocumentElement.NeedChild('EXTINFO').NeedChild('INTERFACES').GetIntAttr('current');
  interfaces:=XML.DocumentElement.NeedChild('EXTINFO').NeedChild('INTERFACES').SelectNodes('INTERFACE');
  for i:=0 to interfaces.Count-1 do
    if (interfaces[i].GetIntAttr('id',Result)=Result) or (Result=0) then begin
      Result:=interfaces[i].GetIntAttr('interface',Result);
      Break;
    end;
end;

function tSailPlayProcessor.GiftExists(XML: IXmlDocument; sku:string):boolean;
var Discount:IXmlNode;
    Lines,Discounts:IXmlNodeList;
    i,j,CurrentIntf:integer;
begin
  CurrentIntf:=CurrentInterfaceID(XML);
  Lines:=XML.DocumentElement.NeedChild('CHECKDATA').NeedChild('CHECKLINES').SelectNodes('LINE');
  Discounts:=XML.DocumentElement.NeedChild('CHECKDATA').EnsureChild('CHECKDISCOUNTS').SelectNodes('DISCOUNT');
  Result:=False;
  for i:=0 to Discounts.Count-1 do begin
    Discount:=Discounts[i];
    if (Discount.GetIntAttr('interface')=CurrentIntf) and (Discount.GetAttr('objectuni')<>'') then
      for j:=0 to Lines.Count-1 do begin
        if (Lines[j].GetAttr('uni')=Discount.GetAttr('objectuni')) and (Lines[j].GetAttr('code')=sku) then begin
          Result:=True;
          exit;
        end;
      end;
  end;
end;

procedure tSailPlayProcessor.ProcessGifts(XML: IXmlDocument; return: boolean; Connect: ISailPlayLow);
var Discount:IXmlNode;
    Lines,Discounts:IXmlNodeList;
    i,j,CurrentIntf:integer;
begin
  CurrentIntf:=CurrentInterfaceID(XML);
  Lines:=XML.DocumentElement.NeedChild('CHECKDATA').NeedChild('CHECKLINES').SelectNodes('LINE');
  Discounts:=XML.DocumentElement.NeedChild('CHECKDATA').EnsureChild('CHECKDISCOUNTS').SelectNodes('DISCOUNT');
  for i:=0 to Discounts.Count-1 do begin
    Discount:=Discounts[i];
    if (Discount.GetIntAttr('interface')=CurrentIntf) and (Discount.GetAttr('objectuni')<>'') and
       (Discount.GetIntAttr('code')=GiftDiscountCode) then
      for j:=0 to Lines.Count-1 do begin
        if Lines[j].GetAttr('uni')=Discount.GetAttr('objectuni') then
          Connect.GiftTransaction(Discount.GetAttr('cardcode'),
              XML.DocumentElement.NeedChild('CHECKDATA').GetAttr('checkguid'),
              Lines[j].GetAttr('code'),
              return);
      end;
  end;
end;