diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
index fe125459..610c3f4c 100644
Binary files a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk and b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk differ
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
index 4e1f05f8..1bfaa291 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
+++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
@@ -63,6 +63,7 @@
+
diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res and b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res differ
diff --git a/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas
new file mode 100644
index 00000000..6d247d68
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Controller/View/uIEditorElegirFechaVencimiento.pas
@@ -0,0 +1,18 @@
+unit uIEditorElegirFechaVencimiento;
+
+interface
+
+uses
+ uEditorBasico, uDADataTable;
+
+type
+ IEditorElegirFechaVencimiento = interface(IEditorBasico)
+ ['{221D1E76-B018-4A68-8955-3452211DFEF4}']
+ function GetFechaVencimiento: Datetime;
+ procedure SetFechaVencimiento(const Value: Datetime);
+ property FechaVencimiento: Datetime Read GetFechaVencimiento write SetFechaVencimiento;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index ad8ab699..0e8306c7 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -56,6 +56,7 @@ type
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
+ function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
end;
TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
@@ -125,6 +126,7 @@ type
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
+ function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
end;
implementation
@@ -140,7 +142,7 @@ uses
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
uFormasPagoController, uBizFormasPago, uStringsUtils,
- uIEditorElegirDomiciliacion,
+ uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento,
cxEdit;
@@ -303,6 +305,51 @@ begin
end;
end;
+function TFacturasProveedorController.AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
+//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
+var
+ AEditor : IEditorElegirFechaVencimiento;
+ AFechaVencimiento: Datetime;
+
+begin
+ Result := TStringList.Create;
+
+ if Assigned(AFacturas) then
+ begin
+ CreateEditor('EditorElegirFechaVencimiento', IEditorElegirFechaVencimiento, AEditor);
+ if Assigned(AEditor) then
+ try
+ if (AEditor.ShowModal = mrOk) then
+ AFEchaVencimiento := AEditor.FechaVencimiento;
+ finally
+ AEditor.Release;
+ AEditor := NIL;
+ end;
+
+ with AFacturas.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ if (AFacturas.SITUACION = CTE_PENDIENTE) then
+ begin
+ Edit;
+ AFacturas.FECHA_VENCIMIENTO := AFechaVencimiento;
+ Post;
+
+ //Se generan los recibos automáticamente a partir de la forma de pago
+ GenerarRecibos(AFacturas);
+ end
+ else
+ Result.Add(Format('%s=%s', [AFacturas.REFERENCIA, AFacturas.NOMBRE]));
+ Next;
+ end;
+ ApplyUpdates;
+ end;
+ end;
+
+end;
+
function TFacturasProveedorController.Buscar(const ID: Integer): IBizFacturaProveedor;
begin
Result := (FDataModule as IDataModuleFacturasProveedor).GetItem(ID);
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 7cf941db..a350fc48 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
@@ -131,15 +131,6 @@
-
-
-
-
-
-
-
-
-
@@ -149,6 +140,15 @@
+
+
+
+
+
+
+
+
+
@@ -312,13 +312,13 @@
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
index c6d1e13e..c37ff34c 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
@@ -70,6 +70,7 @@ contains
uEditorFacturasProveedorReport in 'uEditorFacturasProveedorReport.pas' {fEditorFacturasProveedorReport: TfEditorFacturasProveedorReport},
uViewPedidosFacturaProveedor in 'uViewPedidosFacturaProveedor.pas' {frViewPedidosFacturaProveedor: TFrame},
uEditorElegirDomiciliacion in 'uEditorElegirDomiciliacion.pas' {fEditorElegirDomiciliacion: TfEditorFacturaProveedor},
- uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfrViewTotalesVariosIVA};
+ uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfEditorFacturaProveedor},
+ uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento};
end.
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
index 12832ad1..1906ede3 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
@@ -41,10 +41,6 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
-
-
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
FacturasProveedor_view.dpk
@@ -53,38 +49,33 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirArticulosFacturaProveedor
@@ -93,6 +84,7 @@
TfEditorFacturaProveedor
+
TfEditorFacturaProveedor
@@ -130,6 +122,11 @@
TfEditorFacturaProveedor
+
+
+
+
+