Ver Mensaje Individual
  #5  
Antiguo 06-04-2010
Miguel Galarza Miguel Galarza is offline
Miembro
 
Registrado: jul 2004
Posts: 16
Reputación: 0
Miguel Galarza Va por buen camino
Solucionado!

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
Responder Con Cita