Hola buenas tardes, les quiero pedir si me pueden ayudar con este error que tengo ya que no lo he podido soluccionar aun. Estoy haciendo un sistema para autorizar factura electronicas y al querer asignar un valor al array me sale un error
"Access violation at address 00531246 in module 'Project1.exe'. Read of address 00000000"
aca dejo la forma como cargo un dato al array:
Código Delphi
[-]var
prueba: ArrayOfFEDetalleRequest;
begin
prueba[0].tipo_doc := 80;
end;
Y aca dejo parte del WebService:
Código Delphi
[-]ArrayOfFEDetalleRequest = array of FEDetalleRequest;
FERequest = class(TRemotable)
private
FFecr: FECabeceraRequest;
FFecr_Specified: boolean;
FFedr: ArrayOfFEDetalleRequest;
FFedr_Specified: boolean;
procedure SetFecr(Index: Integer; const AFECabeceraRequest: FECabeceraRequest);
function Fecr_Specified(Index: Integer): boolean;
procedure SetFedr(Index: Integer; const AArrayOfFEDetalleRequest: ArrayOfFEDetalleRequest);
function Fedr_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property Fecr: FECabeceraRequest Index (IS_OPTN) read FFecr write SetFecr stored Fecr_Specified;
property Fedr: ArrayOfFEDetalleRequest Index (IS_OPTN) read FFedr write SetFedr stored Fedr_Specified;
end;
FEDetalleRequest = class(TRemotable)
private
Ftipo_doc: Integer;
Fnro_doc: Int64;
Ftipo_cbte: Integer;
Fpunto_vta: Integer;
Fcbt_desde: Int64;
Fcbt_hasta: Int64;
Fimp_total: Double;
Fimp_tot_conc: Double;
Fimp_neto: Double;
Fimpto_liq: Double;
Fimpto_liq_rni: Double;
Fimp_op_ex: Double;
Ffecha_cbte: string;
Ffecha_cbte_Specified: boolean;
Ffecha_serv_desde: string;
Ffecha_serv_desde_Specified: boolean;
Ffecha_serv_hasta: string;
Ffecha_serv_hasta_Specified: boolean;
Ffecha_venc_pago: string;
Ffecha_venc_pago_Specified: boolean;
procedure Setfecha_cbte(Index: Integer; const Astring: string);
function fecha_cbte_Specified(Index: Integer): boolean;
procedure Setfecha_serv_desde(Index: Integer; const Astring: string);
function fecha_serv_desde_Specified(Index: Integer): boolean;
procedure Setfecha_serv_hasta(Index: Integer; const Astring: string);
function fecha_serv_hasta_Specified(Index: Integer): boolean;
procedure Setfecha_venc_pago(Index: Integer; const Astring: string);
function fecha_venc_pago_Specified(Index: Integer): boolean;
published
property tipo_doc: Integer read Ftipo_doc write Ftipo_doc;
property nro_doc: Int64 read Fnro_doc write Fnro_doc;
property tipo_cbte: Integer read Ftipo_cbte write Ftipo_cbte;
property punto_vta: Integer read Fpunto_vta write Fpunto_vta;
property cbt_desde: Int64 read Fcbt_desde write Fcbt_desde;
property cbt_hasta: Int64 read Fcbt_hasta write Fcbt_hasta;
property imp_total: Double read Fimp_total write Fimp_total;
property imp_tot_conc: Double read Fimp_tot_conc write Fimp_tot_conc;
property imp_neto: Double read Fimp_neto write Fimp_neto;
property impto_liq: Double read Fimpto_liq write Fimpto_liq;
property impto_liq_rni: Double read Fimpto_liq_rni write Fimpto_liq_rni;
property imp_op_ex: Double read Fimp_op_ex write Fimp_op_ex;
property fecha_cbte: string Index (IS_OPTN) read Ffecha_cbte write Setfecha_cbte stored fecha_cbte_Specified;
property fecha_serv_desde: string Index (IS_OPTN) read Ffecha_serv_desde write Setfecha_serv_desde stored fecha_serv_desde_Specified;
property fecha_serv_hasta: string Index (IS_OPTN) read Ffecha_serv_hasta write Setfecha_serv_hasta stored fecha_serv_hasta_Specified;
property fecha_venc_pago: string Index (IS_OPTN) read Ffecha_venc_pago write Setfecha_venc_pago stored fecha_venc_pago_Specified;
end;
Bueno desde ya muchas gracias por su tiempo.
saludos