ASuministroLRFacturasRecibidas := BajaLRFacturasRecibidas.Create;
ASuministroLRFacturasRecibidas.Cabecera := CabeceraSiiBaja.Create;
ASuministroLRFacturasRecibidas.Cabecera.IDVersionSii:=VersionSiiType(0); ASuministroLRFacturasRecibidas.Cabecera.titular := PersonaFisicaJuridicaESType.Create;
ASuministroLRFacturasRecibidas.Cabecera.Titular.NombreRazon:=Bd.BuscaValor('DATOSEMPRESA','NOMBRE',' ',''); ASuministroLRFacturasRecibidas.Cabecera.Titular.NIF:=Bd.BuscaValor('DATOSEMPRESA','MNIF','','');
SetLength(ARegistroLRFacturasRecibidas, M);
for N := 0 to M do begin
FormSII.PBProceso.Position := FormSII.PBProceso.Position+1;
If Grid.ValorCeldaPorCampoYFila('ENVIAR',N+1)='X' then begin
FormSII.Label5.Caption := 'Factura: '+Grid.ValorCeldaPorCampoYFila('FACTURA',N+1);
Application.ProcessMessages;
Tabla.FindKey([Grid.ValorCeldaPorCampoYFila('CODIGO',N+1)]);
TablaCuentas.FindKey([Tabla.FieldByName('CUENTA').AsString]);
ARegistroLRFacturasRecibidas[N]:=LRBajaRecibidasType.Create;
ARegistroLRFacturasRecibidas[N].IDFactura:=IDFacturaRecibidaNombreBCType.create;
ARegistroLRFacturasRecibidas[N].IDFactura.NumSerieFacturaEmisor:=Grid.ValorCeldaPorCampoYFila('FACTURA',N+1); ARegistroLRFacturasRecibidas[N].PeriodoImpositivo:=PeriodoImpositivo.Create;
ARegistroLRFacturasRecibidas[N].PeriodoImpositivo.Ejercicio:=Bd.BuscaValor('DATOSEMPRESA','MEJERCICIO','',''); ARegistroLRFacturasRecibidas[N].IDFactura.FechaExpedicionFacturaEmisor:=Grid.ValorCeldaPorCampoYFila('FECHA',N+1); ARegistroLRFacturasRecibidas[N].IDFactura.IDEmisorFactura:= IDEmisorFactura.Create;
ARegistroLRFacturasRecibidas[N].IDFactura.IDEmisorFactura.NombreRazon := Tabla.FieldByName('NOMBRE').AsString;
ARegistroLRFacturasRecibidas[N].IDFactura.IDEmisorFactura.NIF := Tabla.FieldByName('CIF').AsString;
end;
end;
ASuministroLRFacturasRecibidas.RegistroLRBajaRecibidas :=ARegistroLRFacturasRecibidas;