diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 7ad60a01..87d73fa7 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -50,8 +50,6 @@ type
     function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
-
-    procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
 
@@ -115,7 +113,6 @@ type
 
     procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
 
-    procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
   end;
 
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index 8dc44a0e..3a0f24f8 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas	
@@ -276,8 +276,9 @@ begin
     bEsNuevo := FFactura.EsNuevo;
 
     {$IFDEF CONTABILIDAD}
+      FFactura.Edit;
+      FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
       FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
-      FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
     {$ENDIF}
 
     FController.Guardar(FFactura);