|
Te pongo un ejemplo:
SetLength(ADatosInmueble, Inmuebles.RowsFetched);
Inmuebles.First;
for L := 0 to Inmuebles.RowsFetched - 1 do
Begin
ADatosInmueble[L]:=DetalleInmueble.Create;
ADatosInmueble[L].SituacionInmueble:=SituacionInmuebleType(InmueblesSITUACION.Value - 1);
ADatosInmueble[L].ReferenciaCatastral:=InmueblesREFCATASTRAL.Value;
Inmuebles.Next;
End;
ARegLRFacturasEmitidas[i].FacturaExpedida.DatosInmueble:=ADatosInmueble;
|