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
This commit is contained in:
parent
6b79b9ef76
commit
966daf4251
Binary file not shown.
@ -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" />
|
||||
|
||||
Binary file not shown.
@ -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.
|
||||
@ -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);
|
||||
|
||||
@ -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>
|
||||
@ -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.
|
||||
|
||||
@ -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="..\Model\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\Model\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Model\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Model\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Model\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Model\dsnap.dcp" />
|
||||
<DCCReference Include="..\Model\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Model\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Model\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Model\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Model\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Model\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\Model\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Model\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\Model\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Model\PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\Model\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Model\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Model\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Model\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="adortl.dcp" />
|
||||
<DCCReference Include="AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.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
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
@ -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.
|
||||
@ -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 = <
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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');
|
||||
|
||||
@ -51,6 +51,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TBizPresupuestosClienteServer.BeforeProcessDelta(
|
||||
|
||||
Loading…
Reference in New Issue
Block a user