Array en class(TRemotable)

[Miguel Galarza]

Gracias por contestar y tomarte el trabajo de tratar de entender esto, muy buena la explicacion, Lo de clonar me quedo claro, pero lo que necesito y no puedo hacer es
1) dar dimension a Items (que es un Arrayofitem)
el error es "incompatible Types.
2) Dar valor a cada elemento de item

Código Delphi [-]
setlength(BFERequest.items,9)

Código Delphi [-]
BFERequest.items[0].cada_uno_de_los_elementos_de_Item:=xxxxx

Intente esto otro, asignar valor a cada elemento de Item y luego asignar este al Arrayofitem

Código Delphi [-]
        par3.Pro_codigo_ncm:=Valor_Pro_codigo_ncm;
        [....]
        par3.Iva_id:=Valor_'Iva_id;
        par4.Items[0]:=par3 as TRemotable;

Pero el xml me queda asi de malo

<?xml version="1.0"?>
      [......]
     <Items xmlns="" xsi:type="NS3:Array" NS3:arrayType="NS1:Item[9]">
      <item href="#5"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
      <item xsi:nil="true"/>
    </Items>
  </NS1:ClsBFERequest>
  <NS1:Item id="5" xsi:type="NS1:Item">
    <Pro_codigo_ncm xmlns="" xsi:type="NS2:string">87.16.40.00</Pro_codigo_ncm>
    <Pro_codigo_sec xmlns="" xsi:type="NS2:string">47</Pro_codigo_sec>
    <Pro_ds xmlns="" xsi:type="NS2:string">descripcion articulo</Pro_ds>
    <Pro_qty xmlns="" xsi:type="NS2:double">1</Pro_qty>
    <Pro_umed xmlns="" xsi:type="NS2:int">7</Pro_umed>
    <Pro_precio_uni xmlns="" xsi:type="NS2:double">98751.13</Pro_precio_uni>
    <Imp_bonif xmlns="" xsi:type="NS2:double">0</Imp_bonif>
    <Imp_total xmlns="" xsi:type="NS2:double">109120</Imp_total>
    <Iva_id xmlns="" xsi:type="NS2:short">10</Iva_id>
  </NS1:Item>
</BFEAuthorize>

O sea que Items xmlns queda vacio y se agrega un nodo mal.
Gracias de nuevo!

[Lord Delfos]

Hmmm... Habría que ver cómo generás el XML, porque haciendo un SetLength(BFERequest.Fitems, 9) te da un arreglo de 0..8... Cómo uno le meta valores debería ser irrelevante, siempre y cuando sea en el rango 0..8.

[Miguel Galarza]

Esto es solo para cerrar y por si a algun despistado como yo le pasa algo parecido.
Aclaro que estas clases fueron generadas por wsdl importer de la paleta webservices, y solo se puede acceder a las propiedades publicadas.
El tema esta en el orden de la creacion de las clases.
para crearlas.

Código Delphi [-]
   par3:=item.Create; //crear la clase item
   setlength(par4,Fact.RecNo);//dimensionar Arrayofitem
   par1 :=ClsBFEAuthRequest.Create;//crear BFEResponseAuthorize
   par2:=ClsBFERequest.Create; //crear cslBFERequest
   par2.Items:=par4;//igualar dimension de par2.Items que es un arrayofitem

Ahora la asignacion de valores que me traia problemas

Código Delphi [-]
      par2.fecha_cbte:=formatDateTime('d/mm/yyyy',ValorCampo(fact,'fecha_cbte'));
      fact.First;
      while not fact.Eof do
      begin
        par3.Pro_precio_uni:=ValorCampo(fact,'Pro_precio_uni');
        par3.Imp_bonif:=0;
[...]
        par3.Imp_total:=ValorCampo(fact,'Imp_total');
        par3.Iva_id:=ValorCampo(fact,'Iva_id');    
        par4[Fact.RecNo-1]:=par3 as TRemotable; //ponemos el valor del item en Arrayofitem
        fact.Next;
      end;
      for i := 0 to Fact.RecNo-1 do
      begin
        par2.Items[Fact.RecNo-1]:=par4[Fact.RecNo-1];//asignamos cada arrayofitem a items de par2
      end;

y listo ... gracias Lord siempre tan atento vos ... un abrazo