Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Que se puedan cambiar la situación de las facturas de proveedor y hacer recibos libres, el informe de contratos que ponga confirmación de pedido

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@146 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2020-02-25 18:05:39 +00:00
parent 8a2e48e40d
commit 82a71bdc78
27 changed files with 821 additions and 229 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

3
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -9,7 +9,8 @@ uses
const
CTE_PERFIL_ADMINISTRADOR = 3;
CTE_PERFIL_VENDEDOR = 7;
CTE_PERFIL_VENDEDOR = 7;
CTE_PERFIL_USUARIO = 5;
type
TAppFactuGES_Event = procedure;

103
Source/Base/Base.dproj
View File

@ -51,13 +51,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -73,54 +66,54 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

8
Source/Cliente/uPantallaPrincipal.pas
View File

@ -198,11 +198,17 @@ begin
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR) then
begin
Informes1.Enabled := False;
Informes1.Visible := False;
Informes1.Visible := False;
Contabilidad1.Enabled := False;
Contabilidad1.Visible := False;
Compras1.Enabled := False;
Compras1.Visible := False;
end
//El usuario normal de uecko solo no verá los bancos
else if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_USUARIO) then
begin
Contabilidad1.Enabled := False;
Contabilidad1.Visible := False;
end;
InicializarUI;

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

6
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

76
Source/Informes/1/InfFacturaCliente_original.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

2
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

47
Source/Informes/4/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

86
Source/Informes/4/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

86
Source/Informes/4/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

64
Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1386,7 +1386,6 @@ begin
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := RoundCurrency(RoundCurrency(AImporteTotal) * (AFormaPago.Plazos.PORCENTAJE / 100));
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
@ -1396,7 +1395,6 @@ begin
ARecibos.IMPORTE := ARecibos.IMPORTE + (RoundCurrency(AImporteTotal) - AImporteAcumulado)
else if (AImporteAcumulado > RoundCurrency(AImporteTotal)) then
ARecibos.IMPORTE := ARecibos.IMPORTE - (AImporteAcumulado - RoundCurrency(AImporteTotal));
end;
end;

16
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -18,6 +18,7 @@
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
@ -291,14 +292,23 @@
<Target Name="PresupuestosCliente_controller:Make">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller;FacturasProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;FacturasProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;FacturasProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

155
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -701,7 +701,9 @@ begin
//De esta forma obligaremos siempre a tener un recibo asociado a la factura,
//porque si la forma de pago no tiene plazos es obligatorio la fecha de vencimiento
with TFormasPagoController.Create do
//OJO-----En facturas de proveedor para uecko no es obligatorio porque deben de poder generar facturas sin recibos asociados
//solicitado por Mónica el 23/01/2020
{ with TFormasPagoController.Create do
begin
try
AFormaPago := Buscar(AFactura.ID_FORMA_PAGO);
@ -714,6 +716,8 @@ begin
Free;
end;
end;
}
//En caso de ser un Abono no podra tener un importe total positivo
if (AFactura.TIPO = CTE_TIPO_ABONO) then
@ -1255,6 +1259,8 @@ var
ADiaVencimiento: Integer;
ADiasMas: Integer;
BSemaforo: Boolean;
AImporteAcumulado : Double;
AImporteTotal: Double;
begin
if not Assigned(AFactura) then
@ -1271,82 +1277,127 @@ begin
ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
ARecibosProveedorController.EliminarTodo(ARecibos);
//Si hay retención, se generará un recibo por ese importe, y el resto se generarán recibos
//según forma de pago
AImporteTotal := AFactura.IMPORTE_TOTAL; // - AFactura.IMPORTE_RETENCION;
//Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento,
//los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento
//de la factura.
With AFormaPago.Plazos.DataTable do
begin
i := 1;
AImporteAcumulado := 0;
First;
repeat
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibos.CALLE := AFactura.CALLE;
ARecibos.NIF_CIF := AFactura.NIF_CIF;
ARecibos.POBLACION := AFactura.POBLACION;
ARecibos.PROVINCIA := AFactura.PROVINCIA;
ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
//SOLO PARA ACANA (Leer comentario anterior
if (AFormaPago.Plazos.RecordCount > 0)
or (AFactura.FECHA_VENCIMIENTO <> 0) then
begin
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibos.CALLE := AFactura.CALLE;
ARecibos.NIF_CIF := AFactura.NIF_CIF;
ARecibos.POBLACION := AFactura.POBLACION;
ARecibos.PROVINCIA := AFactura.PROVINCIA;
ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
if AFormaPago.Plazos.RecordCount < 1 then
begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
end
else
begin
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ADiasMas := 0;
BSemaforo := False;
if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0)
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0)
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then
if AFormaPago.Plazos.RecordCount < 1 then
begin
ADiaVencimiento := DayOf(AFechaVencimiento);
while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1)
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AImporteTotal;
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
end
else
begin
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ADiasMas := 0;
BSemaforo := False;
if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0)
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0)
or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then
begin
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
ADiaVencimiento := DayOf(AFechaVencimiento);
while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1)
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
begin
ADiaVencimiento := 1;
//Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
//intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
//asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
//tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
if BSemaforo then
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
begin
ADiasMas := 0;
Break
ADiaVencimiento := 1;
//Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
//intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
//asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
//tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
if BSemaforo then
begin
ADiasMas := 0;
Break
end
else
BSemaforo := True;
end
else
BSemaforo := True;
end
else
Inc(ADiaVencimiento);
Inc(ADiasMas);
Inc(ADiaVencimiento);
Inc(ADiasMas);
end;
end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := RoundCurrency(RoundCurrency(AImporteTotal) * (AFormaPago.Plazos.PORCENTAJE / 100));
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
if (i = AFormaPago.Plazos.RecordCount) then
begin
if (AImporteAcumulado < RoundCurrency(AImporteTotal)) then
ARecibos.IMPORTE := ARecibos.IMPORTE + (RoundCurrency(AImporteTotal) - AImporteAcumulado)
else if (AImporteAcumulado > RoundCurrency(AImporteTotal)) then
ARecibos.IMPORTE := ARecibos.IMPORTE - (AImporteAcumulado - RoundCurrency(AImporteTotal));
end;
end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos);
end;
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos);
Inc(i);
Next;
until (eof);
end;
//Si hay retención generaremos un recibo para dicha retención
{ if AFactura.IMPORTE_RETENCION > 0 then
begin
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibos.CALLE := AFactura.CALLE;
ARecibos.NIF_CIF := AFactura.NIF_CIF;
ARecibos.POBLACION := AFactura.POBLACION;
ARecibos.PROVINCIA := AFactura.PROVINCIA;
ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_RETENCION;
ARecibos.IMPORTE := AFactura.IMPORTE_RETENCION;
ARecibos.DESCRIPCION := 'Pago de factura de retención ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos);
end;
}
//Liberamos
AFormasPagoController := Nil;
AFormaPago := Nil;

5
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -156,6 +156,11 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end
item
Name = 'REF_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString

105
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{FC5567A2-A1E2-4B04-80E1-78F054593A8A}';
RID_FacturasProveedor_Contratos = '{29528EAE-BE56-4F11-9BA7-4D564DFB73A2}';
RID_TiposFacturaProveedor = '{EBFAFA25-E1DF-41CC-9478-0D55BDAF4A29}';
RID_FacturasProveedor = '{05571997-AE29-4125-AC89-464BD8B0CF1A}';
RID_FacturasProveedor_Detalles = '{B58D95A3-885C-4D7C-BE98-F1BA7442318B}';
RID_ListaAnosFacturas = '{6729E1E3-4265-4D49-8B12-2F81677B2886}';
RID_FacturasProveedor_Contratos = '{72EAC8B4-A97E-401A-B9EB-5469F8E5993D}';
RID_TiposFacturaProveedor = '{54279454-FCC8-49A0-BC1A-31BE6343211F}';
RID_FacturasProveedor = '{1C34D37D-89CF-434B-8655-E53A59A68925}';
RID_FacturasProveedor_Detalles = '{A62BB94E-C5AF-41B8-B551-E948FB99B43E}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -75,6 +75,7 @@ const
fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasProveedorOBSERVACIONES = 'OBSERVACIONES';
fld_FacturasProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_FacturasProveedorREF_PROVEEDOR = 'REF_PROVEEDOR';
fld_FacturasProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 'NOMBRE_COMERCIAL_PROVEEDOR';
fld_FacturasProveedorNIF_CIF = 'NIF_CIF';
@ -122,31 +123,32 @@ const
idx_FacturasProveedorIMPORTE_TOTAL = 17;
idx_FacturasProveedorOBSERVACIONES = 18;
idx_FacturasProveedorID_PROVEEDOR = 19;
idx_FacturasProveedorNOMBRE_PROVEEDOR = 20;
idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 21;
idx_FacturasProveedorNIF_CIF = 22;
idx_FacturasProveedorNOMBRE = 23;
idx_FacturasProveedorCALLE = 24;
idx_FacturasProveedorPOBLACION = 25;
idx_FacturasProveedorPROVINCIA = 26;
idx_FacturasProveedorCODIGO_POSTAL = 27;
idx_FacturasProveedorFECHA_ALTA = 28;
idx_FacturasProveedorFECHA_MODIFICACION = 29;
idx_FacturasProveedorUSUARIO = 30;
idx_FacturasProveedorID_FORMA_PAGO = 31;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 32;
idx_FacturasProveedorID_TIPO_IVA = 33;
idx_FacturasProveedorIMPORTE_NETO = 34;
idx_FacturasProveedorIMPORTE_PORTE = 35;
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 36;
idx_FacturasProveedorID_TIENDA = 37;
idx_FacturasProveedorTIENDA = 38;
idx_FacturasProveedorID_SUBCUENTA = 39;
idx_FacturasProveedorSUBCUENTA = 40;
idx_FacturasProveedorID_EJERCICIO = 41;
idx_FacturasProveedorESTADO_EJERCICIO = 42;
idx_FacturasProveedorASIENTO_PUNTEADO = 43;
idx_FacturasProveedorID_TIPO_FACTURA = 44;
idx_FacturasProveedorREF_PROVEEDOR = 20;
idx_FacturasProveedorNOMBRE_PROVEEDOR = 21;
idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 22;
idx_FacturasProveedorNIF_CIF = 23;
idx_FacturasProveedorNOMBRE = 24;
idx_FacturasProveedorCALLE = 25;
idx_FacturasProveedorPOBLACION = 26;
idx_FacturasProveedorPROVINCIA = 27;
idx_FacturasProveedorCODIGO_POSTAL = 28;
idx_FacturasProveedorFECHA_ALTA = 29;
idx_FacturasProveedorFECHA_MODIFICACION = 30;
idx_FacturasProveedorUSUARIO = 31;
idx_FacturasProveedorID_FORMA_PAGO = 32;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 33;
idx_FacturasProveedorID_TIPO_IVA = 34;
idx_FacturasProveedorIMPORTE_NETO = 35;
idx_FacturasProveedorIMPORTE_PORTE = 36;
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 37;
idx_FacturasProveedorID_TIENDA = 38;
idx_FacturasProveedorTIENDA = 39;
idx_FacturasProveedorID_SUBCUENTA = 40;
idx_FacturasProveedorSUBCUENTA = 41;
idx_FacturasProveedorID_EJERCICIO = 42;
idx_FacturasProveedorESTADO_EJERCICIO = 43;
idx_FacturasProveedorASIENTO_PUNTEADO = 44;
idx_FacturasProveedorID_TIPO_FACTURA = 45;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@ -185,7 +187,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{1B98F922-02A4-4E37-A61E-97750DAEEE50}']
['{B930F995-B70F-4766-AE7C-1A2E37882B9B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -220,7 +222,7 @@ type
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
['{C52F44CF-0329-48CB-B738-0BB46696BA62}']
['{7646879D-719F-4F5A-B27F-5B6339AC373A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -327,7 +329,7 @@ type
{ ITiposFacturaProveedor }
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
['{67E81F9E-6FB3-4D91-B33A-0A8664936D2A}']
['{BAFD0788-669F-481A-962A-F42B69A07D64}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -374,7 +376,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{8553E2B5-4113-4209-96F6-131CC708C68F}']
['{94749DDD-49E7-4D75-9C30-E581CE1939F3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -455,6 +457,10 @@ type
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetREF_PROVEEDORValue: String;
procedure SetREF_PROVEEDORValue(const aValue: String);
function GetREF_PROVEEDORIsNull: Boolean;
procedure SetREF_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean;
@ -598,6 +604,8 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property REF_PROVEEDOR: String read GetREF_PROVEEDORValue write SetREF_PROVEEDORValue;
property REF_PROVEEDORIsNull: Boolean read GetREF_PROVEEDORIsNull write SetREF_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NOMBRE_COMERCIAL_PROVEEDOR: String read GetNOMBRE_COMERCIAL_PROVEEDORValue write SetNOMBRE_COMERCIAL_PROVEEDORValue;
@ -736,6 +744,10 @@ type
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREF_PROVEEDORValue: String; virtual;
procedure SetREF_PROVEEDORValue(const aValue: String); virtual;
function GetREF_PROVEEDORIsNull: Boolean; virtual;
procedure SetREF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
@ -878,6 +890,8 @@ type
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property REF_PROVEEDOR: String read GetREF_PROVEEDORValue write SetREF_PROVEEDORValue;
property REF_PROVEEDORIsNull: Boolean read GetREF_PROVEEDORIsNull write SetREF_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NOMBRE_COMERCIAL_PROVEEDOR: String read GetNOMBRE_COMERCIAL_PROVEEDORValue write SetNOMBRE_COMERCIAL_PROVEEDORValue;
@ -937,7 +951,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{C2B60CD9-57CA-4576-BC3B-BDCECACA9F4C}']
['{E8E40975-C09C-44C0-B140-68139EB1A46E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1826,6 +1840,27 @@ begin
DataTable.Fields[idx_FacturasProveedorID_PROVEEDOR].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetREF_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorREF_PROVEEDOR].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetREF_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorREF_PROVEEDOR].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetREF_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorREF_PROVEEDOR].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetREF_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorREF_PROVEEDOR].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorNOMBRE_PROVEEDOR].AsString;

63
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{F5649B1E-4A25-441C-A312-E5EB8EB2F301}';
RID_FacturasProveedor_ContratosDelta = '{BB34419C-F523-4089-BD9A-6540AD02B8D7}';
RID_TiposFacturaProveedorDelta = '{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}';
RID_FacturasProveedorDelta = '{BA0CE5CA-E565-449C-92F0-1DF87535AE38}';
RID_FacturasProveedor_DetallesDelta = '{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}';
RID_ListaAnosFacturasDelta = '{2EBFBEFA-3152-434B-B39C-9807F3626155}';
RID_FacturasProveedor_ContratosDelta = '{E613D2E5-9C7A-430B-AE2A-FEFA37FB16FE}';
RID_TiposFacturaProveedorDelta = '{016DF570-B13F-4802-9031-41E0276CAB8F}';
RID_FacturasProveedorDelta = '{550969B3-4ED0-475E-A866-523730801CF9}';
RID_FacturasProveedor_DetallesDelta = '{BA59804D-CC7B-43AA-BBF5-7C5ADA3DA67B}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{F5649B1E-4A25-441C-A312-E5EB8EB2F301}']
['{2EBFBEFA-3152-434B-B39C-9807F3626155}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -52,7 +52,7 @@ type
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
['{BB34419C-F523-4089-BD9A-6540AD02B8D7}']
['{E613D2E5-9C7A-430B-AE2A-FEFA37FB16FE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -158,7 +158,7 @@ type
{ ITiposFacturaProveedorDelta }
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
['{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}']
['{016DF570-B13F-4802-9031-41E0276CAB8F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -204,7 +204,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{BA0CE5CA-E565-449C-92F0-1DF87535AE38}']
['{550969B3-4ED0-475E-A866-523730801CF9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -226,6 +226,7 @@ type
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_PROVEEDORValue : Integer;
function GetOldREF_PROVEEDORValue : String;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_PROVEEDORValue : String;
function GetOldNIF_CIFValue : String;
@ -273,6 +274,7 @@ type
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldREF_PROVEEDOR : String read GetOldREF_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_COMERCIAL_PROVEEDOR : String read GetOldNOMBRE_COMERCIAL_PROVEEDORValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -426,6 +428,12 @@ type
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREF_PROVEEDORValue: String; virtual;
function GetREF_PROVEEDORIsNull: Boolean; virtual;
function GetOldREF_PROVEEDORValue: String; virtual;
function GetOldREF_PROVEEDORIsNull: Boolean; virtual;
procedure SetREF_PROVEEDORValue(const aValue: String); virtual;
procedure SetREF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
@ -658,6 +666,10 @@ type
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property REF_PROVEEDOR : String read GetREF_PROVEEDORValue write SetREF_PROVEEDORValue;
property REF_PROVEEDORIsNull : Boolean read GetREF_PROVEEDORIsNull write SetREF_PROVEEDORIsNull;
property OldREF_PROVEEDOR : String read GetOldREF_PROVEEDORValue;
property OldREF_PROVEEDORIsNull : Boolean read GetOldREF_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@ -767,7 +779,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}']
['{BA59804D-CC7B-43AA-BBF5-7C5ADA3DA67B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1957,6 +1969,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PROVEEDOR] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetREF_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREF_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetREF_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREF_PROVEEDOR]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldREF_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREF_PROVEEDOR];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldREF_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREF_PROVEEDOR]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetREF_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREF_PROVEEDOR] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetREF_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREF_PROVEEDOR] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNOMBRE_PROVEEDOR];

3
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -299,9 +299,10 @@ begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now);
FECHA_VENCIMIENTO := DateOf(Now);
// FECHA_VENCIMIENTO := DateOf(Now);
ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA;
SITUACION := CTE_PENDIENTE;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;

43
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -355,6 +355,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'ID_TIPO_FACTURA'
TableField = 'ID_TIPO_FACTURA'
end
item
DatasetField = 'REF_PROVEEDOR'
TableField = 'REF_PROVEEDOR'
end>
end>
Name = 'FacturasProveedor'
@ -465,6 +469,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end
item
Name = 'REF_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
@ -1008,6 +1017,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'ID_TIPO_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -1023,15 +1038,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_' +
'PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' +
'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA, ID_TIPO_FACTURA' +
')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' +
'EDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, ' +
':DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IRPF, ' +
':IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSERVACI' +
'ONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLACION,' +
' :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, ' +
':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPOR' +
'TE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA' +
', :ID_TIPO_FACTURA)'#10' '#10' '#10#10
', SITUACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' +
'ENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_' +
'IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_I' +
'VA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL,' +
' :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, ' +
':POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP,' +
' :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_' +
'IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD,' +
' :ID_TIENDA, :ID_TIPO_FACTURA, :SITUACION)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1232,6 +1247,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger
Value = ''
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1259,8 +1280,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'LENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,' +
' '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORT' +
'E_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' I' +
'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10' ' +
'WHERE'#10' (ID = :OLD_ID)'#10
'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' ' +
' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

51
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -63,7 +63,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object cbFormaPago: TcxDBLookupComboBox
Left = 124
Top = 162
Top = 189
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@ -90,16 +90,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 169
end
object bFormasPago: TButton
Left = 150
Top = 162
Top = 189
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
TabOrder = 5
TabOrder = 6
OnClick = bFormasPagoClick
end
object eReferenciaProveedor: TcxDBTextEdit
@ -124,7 +124,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
inline frViewTienda1: TfrViewTienda
Left = 22
Top = 242
Top = 269
Width = 320
Height = 36
Enabled = False
@ -134,15 +134,15 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 242
ExplicitTop = 269
ExplicitWidth = 320
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl
Width = 320
ExplicitWidth = 320
ExplicitWidth = 260
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
@ -151,10 +151,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 124
Top = 191
Top = 218
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
@ -167,7 +168,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
@ -181,7 +182,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
TabOrder = 9
ReadOnly = False
ExplicitLeft = 310
ExplicitTop = 30
@ -230,7 +231,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 320
Top = 335
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
@ -239,15 +240,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 10
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 320
ExplicitTop = 335
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitHeight = 228
ExplicitWidth = 600
ExplicitHeight = 20
Height = 228
end
end
@ -284,6 +286,20 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
TabOrder = 3
Width = 209
end
object edtSituacion: TcxDBComboBox
Left = 124
Top = 138
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.Items.Strings = (
'PENDIENTE'
'PARCIALMENTE PAGADA'
'PAGADA')
TabOrder = 4
Width = 294
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -324,6 +340,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = cbTipoFactura
ControlOptions.ShowBorder = False
end
object ledtSituacion: TdxLayoutItem
Caption = 'Situaci'#243'n:'
Control = edtSituacion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
Caption = 'Forma de pago'

60
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -63,6 +63,8 @@ type
dxLayoutControl1Item8: TdxLayoutItem;
cbTipoFactura: TcxDBLookupComboBox;
dsTiposFactura: TDADataSource;
ledtSituacion: TdxLayoutItem;
edtSituacion: TcxDBComboBox;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
@ -71,6 +73,7 @@ type
procedure actElegirDireccionExecute(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject);
procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject);
protected
FFactura : IBizFacturaProveedor;
FFormasPago : IBizFormaPago;
@ -145,14 +148,18 @@ begin
if Assigned(FFormasPago) then
if (FFormasPago.Plazos.RecordCount = 0) then
begin
edtFechaVencimiento.EditValue := DateOf(Now);
ledtFechaVencimiento.Enabled := True
// edtFechaVencimiento.EditValue := DateOf(Now);
ledtFechaVencimiento.Enabled := True;
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := True;
end
else
begin
Application.MessageBox('Ha elegido una forma de pago con plazos asignados, los vencimientos se regiran por dichos plazos', 'Atención', MB_OK);
Application.MessageBox('Ha elegido una forma de pago con plazos asignados, la situación de la factura vendrá dada por la situación de los recibos generados según los plazos', 'Atención', MB_OK);
edtFechaVencimiento.EditValue := Null;
ledtFechaVencimiento.Enabled := False;
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := False;
end;
end;
end;
@ -176,6 +183,36 @@ begin
inherited;
end;
procedure TfrViewFacturaProveedor.edtFechaVencimientoPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then
begin
if (edtFechaVencimiento.EditValue <> null) then
begin
if (edtFechaVencimiento.EditValue = 0) then
begin
Factura.DataTable.DisableEventHandlers;
try
Factura.DataTable.FieldByName(fld_FacturasProveedorFECHA_VENCIMIENTO).Clear;
finally
Factura.DataTable.EnableEventHandlers;
end;
end
else begin
Application.MessageBox('Ha elegido una fecha de vencimiento, la situación de la factura vendrá dada por la situación del recibo generado con el vencimiento dado', 'Atención', MB_OK);
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := False;
end;
end
else begin
// edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := True;
end;
end;
end;
procedure TfrViewFacturaProveedor.frViewProveedorFacturaButton1Click(Sender: TObject);
begin
if Assigned(Factura) and Assigned(Factura.Proveedor) and
@ -231,10 +268,21 @@ begin
//Posicionamos la tabla en la forma de pago que tiene la factura ya que no lo hace el componente por si solo
FFormasPago.DataTable.Locate(fld_FacturasProveedorID, FFactura.ID_FORMA_PAGO, []);
if (FFormasPago.Plazos.RecordCount = 0) then
ledtFechaVencimiento.Enabled := True
if ((not FFactura.FECHA_VENCIMIENTOIsNull) or (FFormasPago.Plazos.RecordCount > 0)) then
begin
if (edtFechaVencimiento.EditingValue <> null) then
ledtSituacion.Enabled := False;
if (FFormasPago.Plazos.RecordCount > 0) then
ledtFechaVencimiento.Enabled := False
else
ledtFechaVencimiento.Enabled := true;
end
else
ledtFechaVencimiento.Enabled := False;
begin
ledtFechaVencimiento.Enabled := True;
ledtSituacion.Enabled := True;
end;
FTiposFacturaProveedor := FController.darTiposFacturaProveedor;
dsTiposFactura.DataTable := FTiposFacturaProveedor.DataTable;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -115,8 +115,6 @@ uses
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
srvSubfamilias_Impl in '..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas' {srvSubfamilias: TDataAbstractService},
@ -143,7 +141,9 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 16 de septiembre de 2019 16:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 14 de febrero de 2020 13:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.