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;