Cita:
Empezado por pablog2k
creo que te falta crear el nodo de prestación de servicios y sujeta :
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios := TipoSinDesglosePrestacionType.Create;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta := SujetaPrestacionType.Create;
|
Yo tengo el mismo error despues de trastear un buen rato, el codigo ya compila y no da error en ejecución, aunque no estoy seguro que sea correcto.
A ver si os sirve para avanzar
Código Delphi
[-]
var
mExenta: DetalleExentaType;
mExenta := DetalleExentaType.Create;
mExenta.CausaExencion := causaexenciontype(valorenum2(dm.TFEMBASESUJETAEXENTACLAVE.asstring));
mExenta.baseimponible := dm.tfemBASESUJETAEXENTAIMPORTE.asstring;
ARegistroLRFacturasEmitidas[mcon].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta := Exenta.Create(nil);
ARegistroLRFacturasEmitidas[mcon].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta[0] :=mexenta;