diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
index e03544e..1137e49 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
@@ -94,7 +94,7 @@ end;
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
begin
- if not Assigned(AComision) then
+{ if not Assigned(AComision) then
raise Exception.Create ('Comision no asignado');
AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo);
@@ -105,11 +105,12 @@ begin
AComision.ID := IDNuevo;
AComision.Post;
end;
+}
end;
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
begin
- with AFacturasComision do
+{ with AFacturasComision do
begin
DataTable.DisableControls;
try
@@ -141,7 +142,7 @@ begin
total de las tuplas de detalle.
}
- if AEsNuevo then
+ { if AEsNuevo then
begin
while RecordCount > 0 do
begin
@@ -170,6 +171,7 @@ begin
DataTable.EnableControls;
end;
end;
+}
end;
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
@@ -504,6 +506,8 @@ begin
ShowHourglassCursor;
try
AComision.DataTable.ApplyUpdates;
+ AComision.Facturas.DataTable.ApplyUpdates;
+ AComision.Facturas.DataTable.Refresh;
//Si todo ha ido bien, asignamos la comision a las facturas asociadas
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
// RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID);
diff --git a/Source/Modulos/Comisiones/Model/uBizComisiones.pas b/Source/Modulos/Comisiones/Model/uBizComisiones.pas
index ae38f40..c08306b 100644
--- a/Source/Modulos/Comisiones/Model/uBizComisiones.pas
+++ b/Source/Modulos/Comisiones/Model/uBizComisiones.pas
@@ -90,7 +90,7 @@ end;
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
begin
inherited;
- ID := GetRecNo; // -1, -2, -3...
+// ID := GetRecNo; // -1, -2, -3...
IniciarValoresComisionLiquidacionNuevo;
end;
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.dproj b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
index 67910f7..4cf93c2 100644
--- a/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
+++ b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
@@ -38,52 +38,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -94,7 +100,7 @@
TfEditorComisiones
-
+
TfEditorComisiones
@@ -109,12 +115,6 @@
TFrame
-
-
-
-
-
-