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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor @@ -93,6 +84,7 @@
fEditorElegirDomiciliacion
TfEditorFacturaProveedor
+
fEditorFacturaProveedor
TfEditorFacturaProveedor @@ -130,6 +122,11 @@
frViewTotalesVariosIVA
TfEditorFacturaProveedor
+ + + + +