
//Declaracion  variables
lListaProductos: ArrayOfBonusProductList;
RenglonListaProductos:BonusProductList;
lRespuestaPromociones:ArrayOfResponseBonusList;

//Declarar longitud de Array 1 a N
SetLength(lListaProductos,1);

//Inicializar el array 1..N
i := 0;
lListaProductos[i]:= BonusProductList.Create;

//Valores de componente
RenglonListaProductos:=BonusProductList.Create;
RenglonListaProductos.Sku := '7506200700021';
RenglonListaProductos.Piezas := 10;

//Asignar al Array    
lListaProductos[i]:=RenglonListaProductos;
   
//Invocar WS   
lRespuestaPromociones:=GetWSCirculodelaSaludSoap.GetBonusProductList(lRepuestaLogin.Sesion,'9981321250996',lListaProductos);


//OK - :)
