SE añade la posibilidad de cambiar la fecha de vencimiento de las facturas de proveedor que estén pendientes, mismo funcionamiento que asignar cuenta bancaria. solicitado por Maribel el 10/01/2019

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1164 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj

@@ -63,6 +63,7 @@
     <DCCReference Include="View\RecibosProveedor_controller.dcp" />
     <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorElegirDomiciliacion.pas" />
+    <DCCReference Include="View\uIEditorElegirFechaVencimiento.pas" />
     <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />

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.

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);

Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj

@@ -131,15 +131,6 @@
   <Target Name="PedProv_AlbProv_relation:Make">
     <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
   </Target>
-  <Target Name="PedProv_FacProv_relation">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
-  </Target>
-  <Target Name="PedProv_FacProv_relation:Clean">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="PedProv_FacProv_relation:Make">
-    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
-  </Target>
   <Target Name="FacturasProveedor_view">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
   </Target>
@@ -149,6 +140,15 @@
   <Target Name="FacturasProveedor_view:Make">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedProv_FacProv_relation">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="PedProv_FacProv_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedProv_FacProv_relation:Make">
+    <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasProveedor_plugin">
     <MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
   </Target>
@@ -312,13 +312,13 @@
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;FacturasProveedor_view;PedProv_FacProv_relation;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_view:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_view:Make;PedProv_FacProv_relation:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

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.

Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj

@@ -41,10 +41,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -53,38 +49,33 @@
     <DelphiCompile Include="FacturasProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Model\adortl.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\Model\AlbProv_FacProv_relation.dcp" />
+    <DCCReference Include="AlbProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\Model\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="..\Model\cxDataD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\Model\cxEditorsD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="..\Model\cxExportD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="..\Model\cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Model\cxGridD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="..\Model\cxLibraryD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="..\Model\cxPageControlD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Model\dbrtl.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\Model\dsnap.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="..\Model\dxComnD11.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="..\Model\dxCoreD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="..\Model\dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Model\dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Model\dxThemeD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="..\Model\FacturasProveedor_controller.dcp" />
+    <DCCReference Include="FacturasProveedor_controller.dcp" />
-    <DCCReference Include="..\Model\FacturasProveedor_model.dcp" />
+    <DCCReference Include="FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\Model\GestorInformes_controller.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="..\Model\GUIBase.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="..\Model\PedProv_FacProv_relation.dcp" />
+    <DCCReference Include="PedProv_FacProv_relation.dcp" />
-    <DCCReference Include="..\Model\PngComponentsD10.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="..\Model\PNG_D10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Model\rtl.dcp" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="..\Model\vcl.dcp" />
-    <DCCReference Include="..\Model\vclactnband.dcp" />
-    <DCCReference Include="..\Model\vcldb.dcp" />
-    <DCCReference Include="..\Model\vcljpg.dcp" />
-    <DCCReference Include="..\Model\vclx.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
       <Form>fEditorElegirArticulosFacturaProveedor</Form>
       <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@@ -93,6 +84,7 @@
       <Form>fEditorElegirDomiciliacion</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirFechaVencimiento.pas" />
     <DCCReference Include="uEditorFacturaProveedor.pas">
       <Form>fEditorFacturaProveedor</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
@@ -130,6 +122,11 @@
       <Form>frViewTotalesVariosIVA</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm

@@ -0,0 +1,91 @@
+object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'Domiciliaci'#243'n bancaria'
+  ClientHeight = 152
+  ClientWidth = 565
+  Color = clWindow
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 21
+    Top = 16
+    Width = 417
+    Height = 13
+    Caption = 
+      'Seleccione la fecha de vencimiento que desea establecer a la/s f' +
+      'actura/s seleccionadas'
+  end
+  object Label2: TLabel
+    Left = 21
+    Top = 45
+    Width = 33
+    Height = 13
+    Alignment = taRightJustify
+    Caption = 'Fecha:'
+  end
+  object Label3: TLabel
+    Left = 21
+    Top = 80
+    Width = 512
+    Height = 13
+    Caption = 
+      '* Todos los recibos de las facturas ser'#225'n generados nuevamente c' +
+      'on la fecha de vencimiento seleccionada'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 111
+    Width = 565
+    Height = 41
+    Align = alBottom
+    TabOrder = 0
+    ExplicitWidth = 500
+    DesignSize = (
+      565
+      41)
+    object bAceptar: TButton
+      Left = 401
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Aceptar'
+      ModalResult = 1
+      TabOrder = 0
+      ExplicitLeft = 336
+    end
+    object bCancelar: TButton
+      Left = 482
+      Top = 8
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Cancelar'
+      ModalResult = 2
+      TabOrder = 1
+      ExplicitLeft = 417
+    end
+  end
+  object cbFechaVencimiento: TcxDateEdit
+    Left = 60
+    Top = 42
+    TabOrder = 1
+    Width = 183
+  end
+end

Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas

@@ -0,0 +1,52 @@
+unit uEditorElegirFechaVencimiento;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirFechaVencimiento,
+  cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uEmpresasController;
+
+type
+  TfEditorElegirFechaVencimiento = class(TfEditorBasico, IEditorElegirFechaVencimiento)
+    Label1: TLabel;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label2: TLabel;
+    Panel1: TPanel;
+    Label3: TLabel;
+    cbFechaVencimiento: TcxDateEdit;
+    procedure FormShow(Sender: TObject);
+
+  private
+    FFechaVencimiento: datetime;
+    function GetFechaVencimiento: datetime;
+    procedure SetFechaVencimiento(const Value: datetime);
+
+  public
+    property FechaVencimiento: datetime Read GetFechaVencimiento write SetFechaVencimiento;
+  end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+procedure TfEditorElegirFechaVencimiento.FormShow(Sender: TObject);
+begin
+//
+end;
+
+function TfEditorElegirFechaVencimiento.GetFechaVencimiento: datetime;
+begin
+  Result := cbFechaVencimiento.EditValue;
+end;
+
+procedure TfEditorElegirFechaVencimiento.SetFechaVencimiento(const Value: datetime);
+begin
+  cbFechaVencimiento.EditValue := Value;
+end;
+
+
+end.

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm

@@ -77,10 +77,13 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 179
+      ExplicitWidth = 285
       object TBXItem41: TTBXItem
         Action = actDomiciliacion
       end
+      object TBXItem42: TTBXItem
+        Action = actVencimiento
+      end
       object TBXSeparatorItem17: TTBXSeparatorItem
       end
       object TBXItem40: TTBXItem
@@ -286,6 +289,11 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       OnExecute = actDomiciliacionExecute
       OnUpdate = actDomiciliacionUpdate
     end
+    object actVencimiento: TAction
+      Caption = 'Asignar vencimiento'
+      OnExecute = actVencimientoExecute
+      OnUpdate = actVencimientoUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas

@@ -38,6 +38,8 @@ type
     TBXItem41: TTBXItem;
     TBXSeparatorItem17: TTBXSeparatorItem;
     JsListaFacturasNoModificables: TJSDialog;
+    actVencimiento: TAction;
+    TBXItem42: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
@@ -46,6 +48,8 @@ type
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure actDomiciliacionExecute(Sender: TObject);
     procedure actDomiciliacionUpdate(Sender: TObject);
+    procedure actVencimientoExecute(Sender: TObject);
+    procedure actVencimientoUpdate(Sender: TObject);
 
   private
     FFacturas: IBizFacturaProveedor;
@@ -204,6 +208,50 @@ begin
     end;
 end;
 
+procedure TfEditorFacturasProveedor.actVencimientoExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaProveedor;
+  AListaFacturasNoModificadas: TStringList;
+  i: integer;
+
+begin
+  inherited;
+
+  ViewGrid.SaveGridStatus;
+  try
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+  finally
+    ViewGrid.RestoreGridStatus;
+  end;
+
+  AListaFacturasNoModificadas := Controller.AsignarVencimiento(AFacturas);
+
+  JsListaFacturasNoModificables.Content.Clear;
+  for i := 0 to AListaFacturasNoModificadas.Count - 1 do
+      JsListaFacturasNoModificables.Content.Add('Ref. factura: ' + AListaFacturasNoModificadas.Names[i] + '  ' + AListaFacturasNoModificadas.Values[AListaFacturasNoModificadas.Names[i]]);
+  if AListaFacturasNoModificadas.Count > 0 then
+     JsListaFacturasNoModificables.Execute;
+
+  FreeAndNil(AListaFacturasNoModificadas);
+  RefrescarInterno;
+end;
+
+procedure TfEditorFacturasProveedor.actVencimientoUpdate(Sender: TObject);
+begin
+  inherited;
+
+  if HayDatos and Assigned(ViewGrid) then
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and ViewGrid.esSeleccionCeldaDatos
+      and (ViewGrid.NumSeleccionados > 0)
+  else
+    (Sender as TAction).Enabled := False;
+
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := (FFacturas.SITUACION = CTE_PENDIENTE);
+end;
+
 constructor TfEditorFacturasProveedor.Create(AOwner: TComponent);
 begin
   inherited;

Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas

@@ -9,11 +9,12 @@ implementation
 
 uses
   uEditorRegistryUtils, uEditorFacturasProveedor,  uEditorFacturaProveedor,
-  uEditorElegirDomiciliacion, uEditorElegirArticulosFacturaProveedor,
+  uEditorElegirDomiciliacion, uEditorElegirFechaVencimiento, uEditorElegirArticulosFacturaProveedor,
   uEditorFacturasProveedorReport;
 
 procedure RegisterViews;
 begin
+  EditorRegistry.RegisterClass(TfEditorElegirFechaVencimiento, 'EditorElegirFechaVencimiento');
   EditorRegistry.RegisterClass(TfEditorElegirDomiciliacion, 'EditorElegirDomiciliacion');
   EditorRegistry.RegisterClass(TfEditorFacturasProveedor, 'EditorFacturasProveedor');
   EditorRegistry.RegisterClass(TfEditorFacturaProveedor, 'EditorFacturaProveedor');

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas

@@ -51,6 +51,8 @@ begin
                           end;
                         end;
   end;
+
+
 end;
 
 procedure TBizPresupuestosClienteServer.BeforeProcessDelta(