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

Version 2.7.2

Browse Source 
SE incluye gestión de precio punto en presupuestos de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@130 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2018-03-26 16:26:46 +00:00
parent 1a2ea3924a
commit 3dbab1c701
35 changed files with 949 additions and 419 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.

96
Source/Base/Base.dproj
View File

@ -65,55 +65,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Tipos de IVA\adortl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\designide.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dsnap.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\Jcl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\rtl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\vcl.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\vcldb.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\vclx.dcp" />
<DCCReference Include="..\Modulos\Tipos de IVA\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <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="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <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">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.7.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.7.1.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">7</VersionInfo><VersionInfo Name="Release">2</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.2.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.2.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 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> </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.

56
Source/GUIBase/GUIBase.dproj
View File

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

1
Source/Modulos/Articulos/Controller/View/uIEditorElegirArticulos.pas
View File

@ -18,7 +18,6 @@ type
procedure SetMensaje (const AValue: String); procedure SetMensaje (const AValue: String);
function GetMensaje: String; function GetMensaje: String;
property Mensaje : String read GetMensaje write SetMensaje; property Mensaje : String read GetMensaje write SetMensaje;
end; end;

21
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -41,10 +41,15 @@ type
function GetProveedoresController: IProveedoresController; function GetProveedoresController: IProveedoresController;
property ProveedoresController: IProveedoresController read GetProveedoresController; property ProveedoresController: IProveedoresController read GetProveedoresController;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
TArticulosController = class(TControllerBase, IArticulosController) TArticulosController = class(TControllerBase, IArticulosController)
protected protected
FPrecioPunto: Currency;
FDataModule : IDataModuleArticulos; FDataModule : IDataModuleArticulos;
FProveedoresController: IProveedoresController; FProveedoresController: IProveedoresController;
function GetProveedoresController: IProveedoresController; function GetProveedoresController: IProveedoresController;
@ -59,6 +64,9 @@ type
procedure RecuperarObjetos(AArticulo: IBizArticulo); virtual; procedure RecuperarObjetos(AArticulo: IBizArticulo); virtual;
procedure AsignarDataModule; virtual; procedure AsignarDataModule; virtual;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
public public
property ProveedoresController: IProveedoresController read GetProveedoresController; property ProveedoresController: IProveedoresController read GetProveedoresController;
@ -92,6 +100,8 @@ type
procedure ElegirProveedor(AArticulo : IBizArticulo); procedure ElegirProveedor(AArticulo : IBizArticulo);
procedure AnadirProveedor(AArticulo : IBizArticulo); procedure AnadirProveedor(AArticulo : IBizArticulo);
procedure VerProveedor(AArticulo : IBizArticulo); procedure VerProveedor(AArticulo : IBizArticulo);
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
implementation implementation
@ -318,6 +328,7 @@ end;
constructor TArticulosController.Create; constructor TArticulosController.Create;
begin begin
inherited; inherited;
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
AsignarDataModule; AsignarDataModule;
end; end;
@ -542,6 +553,11 @@ begin
// //
end; end;
procedure TArticulosController.SetPrecioPunto(const AValue: Currency);
begin
FPrecioPunto := AValue;
end;
function TArticulosController.Existe(const ID: Integer): Boolean; function TArticulosController.Existe(const ID: Integer): Boolean;
var var
AArticulo : IBizArticulo; AArticulo : IBizArticulo;
@ -583,6 +599,11 @@ begin
end; end;
end; end;
function TArticulosController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
function TArticulosController.GetProveedoresController: IProveedoresController; function TArticulosController.GetProveedoresController: IProveedoresController;
begin begin
Result := FProveedoresController; Result := FProveedoresController;

12
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -54,12 +54,12 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\SubFamilias_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\SubFamilias_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

30
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Caption = 'Seleccionar art'#237'culos' Caption = 'Seleccionar art'#237'culos'
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -20,14 +19,15 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 91 Top = 91
Width = 656 Width = 656
Height = 49 Height = 53
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49 ExplicitHeight = 53
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alLeft Align = alLeft
DockPos = -6 DockPos = -6
ExplicitWidth = 126 ExplicitWidth = 142
ExplicitHeight = 27
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -45,13 +45,13 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 126 Left = 142
Top = 23 Top = 26
Align = alLeft Align = alLeft
DockPos = 101 DockPos = 101
DockRow = 1 DockRow = 1
ExplicitLeft = 126 ExplicitLeft = 142
ExplicitTop = 23 ExplicitTop = 26
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
@ -61,11 +61,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 536 Left = 536
Top = 23 Top = 26
DockPos = 536 DockPos = 536
DockRow = 1 DockRow = 1
ExplicitLeft = 536 ExplicitLeft = 536
ExplicitTop = 23 ExplicitTop = 26
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -127,12 +127,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = -37
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
Top = 8 Top = 8
Width = 131 Width = 606
Height = 13 Height = 13
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -146,17 +145,20 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ExplicitWidth = 131
end end
object lblComments: TLabel object lblComments: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
Top = 29 Top = 29
Width = 3 Width = 581
Height = 13 Height = 27
Margins.Left = 25 Margins.Left = 25
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
Align = alClient Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end end
end end
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]

3
Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
View File

@ -36,6 +36,7 @@ type
procedure SetViewGrid(const Value: IViewGridBase); override; procedure SetViewGrid(const Value: IViewGridBase); override;
procedure SetMensaje (const AValue: String); procedure SetMensaje (const AValue: String);
function GetMensaje: String; function GetMensaje: String;
public public
property Mensaje : String read GetMensaje write SetMensaje; property Mensaje : String read GetMensaje write SetMensaje;
property ArticulosSeleccionados: IBizArticulo read GetArticulosSeleccionados; property ArticulosSeleccionados: IBizArticulo read GetArticulosSeleccionados;
@ -68,6 +69,8 @@ procedure TfEditorElegirArticulos.FormShow(Sender: TObject);
begin begin
inherited; inherited;
EditorActionList.State := asSuspended; EditorActionList.State := asSuspended;
if Assigned(ViewGrid) then
(ViewGrid as IViewArticulos).PrecioPunto := Controller.PrecioPunto;
end; end;
procedure TfEditorElegirArticulos.frViewBarraSeleccion1actCancelarExecute( procedure TfEditorElegirArticulos.frViewBarraSeleccion1actCancelarExecute(

22
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 451 Width = 981
Height = 304 Height = 459
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,19 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 981
Height = 393 Height = 393
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 869 ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 981
393) 393)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 546 Left = 917
Top = 28 Top = 28
Width = 23 Width = 23
Height = 22 Height = 22
@ -49,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 546 Left = 917
Top = 56 Top = 56
Width = 23 Width = 23
Height = 22 Height = 22
@ -123,7 +123,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144 Width = 144
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 447 Left = 722
Top = 28 Top = 28
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -169,7 +169,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70 Width = 70
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219 Left = 590
Top = 193 Top = 193
Width = 350 Width = 350
Height = 202 Height = 202
@ -182,7 +182,7 @@ inherited frViewArticulo: TfrViewArticulo
ParentFont = False ParentFont = False
TabOrder = 14 TabOrder = 14
ReadOnly = False ReadOnly = False
ExplicitLeft = 219 ExplicitLeft = 590
ExplicitTop = 193 ExplicitTop = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
@ -314,7 +314,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 86 Width = 86
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 265 Left = 433
Top = 136 Top = 136
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'

42
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -1,5 +1,14 @@
inherited frViewArticulos: TfrViewArticulos inherited frViewArticulos: TfrViewArticulos
Width = 896
Height = 680
OnCreate = CustomViewCreate
ExplicitWidth = 896
ExplicitHeight = 680
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 896
Height = 552
ExplicitWidth = 896
ExplicitHeight = 552
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
@ -76,25 +85,25 @@ inherited frViewArticulos: TfrViewArticulos
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 60 BestFitMaxWidth = 60
Width = 60 Width = 121
end end
object cxGridViewFAMILIA: TcxGridDBColumn object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia' Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA' DataBinding.FieldName = 'FAMILIA'
BestFitMaxWidth = 60 BestFitMaxWidth = 60
Width = 60 Width = 120
end end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Subfamilia' Caption = 'Subfamilia'
DataBinding.FieldName = 'REFERENCIA_PROV' DataBinding.FieldName = 'REFERENCIA_PROV'
BestFitMaxWidth = 60 BestFitMaxWidth = 60
Width = 60 Width = 121
end end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n' Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION' DataBinding.FieldName = 'DESCRIPCION'
BestFitMaxWidth = 120 BestFitMaxWidth = 120
Width = 120 Width = 210
end end
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
@ -112,6 +121,7 @@ inherited frViewArticulos: TfrViewArticulos
Properties.AssignedValues.DisplayFormat = True Properties.AssignedValues.DisplayFormat = True
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 130
end end
object cxGridViewDESCUENTO: TcxGridDBColumn object cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Descuento' Caption = 'Descuento'
@ -160,12 +170,18 @@ inherited frViewArticulos: TfrViewArticulos
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
OnGetDisplayText = cxGridViewPRECIOPVP2GetDisplayText OnGetDisplayText = cxGridViewPRECIOPVP2GetDisplayText
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 158
end end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 896
ExplicitWidth = 896
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 896
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 896
ExplicitWidth = 896
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -179,19 +195,35 @@ inherited frViewArticulos: TfrViewArticulos
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 549
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 549
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 896
ExplicitWidth = 896
inherited tbxBotones: TTBXToolbar
Width = 886
ExplicitWidth = 886
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 654
Visible = True Visible = True
ExplicitWidth = 128 ExplicitTop = 654
ExplicitWidth = 896
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 896
ExplicitWidth = 896
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 886
ExplicitWidth = 886
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem

31
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -22,6 +22,9 @@ type
function GetArticulos: IBizArticulo; function GetArticulos: IBizArticulo;
procedure SetArticulos(const Value: IBizArticulo); procedure SetArticulos(const Value: IBizArticulo);
property Articulos: IBizArticulo read GetArticulos write SetArticulos; property Articulos: IBizArticulo read GetArticulos write SetArticulos;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
TfrViewArticulos = class(TfrViewGrid, IViewArticulos) TfrViewArticulos = class(TfrViewGrid, IViewArticulos)
@ -50,12 +53,18 @@ type
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure cxGridViewPRECIOPVP2GetDisplayText(Sender: TcxCustomGridTableItem; procedure cxGridViewPRECIOPVP2GetDisplayText(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; var AText: string); ARecord: TcxCustomGridRecord; var AText: string);
procedure CustomViewCreate(Sender: TObject);
protected protected
FPrecioPunto: Currency;
FArticulos: IBizArticulo; FArticulos: IBizArticulo;
function GetArticulos: IBizArticulo; virtual; function GetArticulos: IBizArticulo; virtual;
procedure SetArticulos(const Value: IBizArticulo); virtual; procedure SetArticulos(const Value: IBizArticulo); virtual;
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
public public
property Articulos: IBizArticulo read GetArticulos write SetArticulos; property Articulos: IBizArticulo read GetArticulos write SetArticulos;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
implementation implementation
@ -76,6 +85,11 @@ begin
Result := FArticulos; Result := FArticulos;
end; end;
function TfrViewArticulos.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TfrViewArticulos.SetArticulos(const Value: IBizArticulo); procedure TfrViewArticulos.SetArticulos(const Value: IBizArticulo);
begin begin
FArticulos := Value; FArticulos := Value;
@ -84,6 +98,12 @@ begin
end; end;
procedure TfrViewArticulos.SetPrecioPunto(const AValue: Currency);
begin
FPrecioPunto := AValue;
cxGridViewPRECIOPVP2.Caption := '(' + CurrToStr(FPrecioPunto) + '€) Precio PVP';
end;
procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject); procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject);
begin begin
if (cxGridViewFAMILIA.GroupIndex < 0) then if (cxGridViewFAMILIA.GroupIndex < 0) then
@ -125,6 +145,12 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0);
end; end;
procedure TfrViewArticulos.CustomViewCreate(Sender: TObject);
begin
inherited;
PrecioPunto := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end;
procedure TfrViewArticulos.cxGridViewIDCustomDrawCell( procedure TfrViewArticulos.cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@ -186,9 +212,8 @@ begin
ImportePVP := -1; ImportePVP := -1;
if not VarIsNull(ARecord.Values[cxGridViewPRECIO_COSTE.Index]) then if not VarIsNull(ARecord.Values[cxGridViewPRECIO_COSTE.Index]) then
if not VarIsNull(AppFactuGES.EmpresaActiva.PRECIO_PUNTO) then if not VarIsNull(FPrecioPunto) then
ImportePVP := RoundCurrency(ARecord.Values[cxGridViewPRECIO_COSTE.Index] * FPrecioPunto)
ImportePVP := RoundCurrency(ARecord.Values[cxGridViewPRECIO_COSTE.Index] * AppFactuGES.EmpresaActiva.PRECIO_PUNTO)
else else
ImportePVP := 0; ImportePVP := 0;

4
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -335,6 +335,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'FACTURA_ASOCIADA' Name = 'FACTURA_ASOCIADA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

63
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{9AD797AA-D46B-4AE9-9DD1-6BAC6654143D}'; RID_Valores = '{39510FE4-7F74-401D-869E-CFB507479067}';
RID_Propiedades = '{09573259-D2FE-4AB6-A029-AC941F33783C}'; RID_Propiedades = '{949B514D-468F-4D4D-B429-C68FC2863BD6}';
RID_ListaAnosContratos = '{3285A04A-70B8-4A60-A13F-F7D07D7E7225}'; RID_ListaAnosContratos = '{572F77CB-74C7-4CC7-B2C7-AB76992CC0D9}';
RID_ContratosClienteBeneficios = '{E0BAE351-BBAD-4095-93FB-18C3A4BECCA0}'; RID_ContratosClienteBeneficios = '{BC4D5A2E-FD5F-4BB9-BCDF-D54933C6255C}';
RID_ContratosCliente = '{36DCC1AC-A433-4CD3-B597-F8599DDEBEE5}'; RID_ContratosCliente = '{F7738525-8BBC-463A-A369-81EA51C10BE0}';
RID_TiposCapitulos = '{B2D4D441-CBF5-4C00-8D77-C97B1B99524B}'; RID_TiposCapitulos = '{A72F947C-5A9B-49F6-9378-B3D4AB9960DD}';
RID_ContratosCliente_Detalles = '{873F4990-695B-4AEE-9DB2-AA2EB812982A}'; RID_ContratosCliente_Detalles = '{5D8BC29D-E34D-4E9F-B9A2-A7F2BC896C6C}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -135,6 +135,7 @@ const
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO'; fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA'; fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
fld_ContratosClientePRECIO_PUNTO = 'PRECIO_PUNTO';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -185,6 +186,7 @@ const
idx_ContratosClienteTIPO_CONTRATO = 45; idx_ContratosClienteTIPO_CONTRATO = 45;
idx_ContratosClienteREFERENCIA_CLIENTE = 46; idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47; idx_ContratosClienteFACTURA_ASOCIADA = 47;
idx_ContratosClientePRECIO_PUNTO = 48;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -243,7 +245,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{6E74F489-85F3-46DC-AC2E-4B4AE491D53B}'] ['{DACA7BC8-C413-4082-886E-6F0C503F6132}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -302,7 +304,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{2DB5F8D6-C637-46EE-AA32-88BEAA1E914B}'] ['{F590BA10-8F0F-4365-9A7E-DF735A6D7F37}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -361,7 +363,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{7EF2538F-7F91-41F2-BBA5-8E90D546307F}'] ['{5BA2BF07-C795-41F5-9D37-F256F7453892}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -396,7 +398,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{175DC6DA-9682-4343-A2AD-311257C2692A}'] ['{A9D1988D-0E6E-4C26-8A9D-B4FAC07DF3B3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -599,7 +601,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{EE4BBA7B-8F6D-4221-9573-423F0D44B0A1}'] ['{3B5E86A1-8DC4-4855-B315-0FBCF8D81EC3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -789,6 +791,10 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String); procedure SetFACTURA_ASOCIADAValue(const aValue: String);
function GetFACTURA_ASOCIADAIsNull: Boolean; function GetFACTURA_ASOCIADAIsNull: Boolean;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean);
function GetPRECIO_PUNTOValue: Currency;
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -888,6 +894,8 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue; property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1091,6 +1099,10 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual; procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
function GetFACTURA_ASOCIADAIsNull: Boolean; virtual; function GetFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual; procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PUNTOValue: Currency; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1189,6 +1201,8 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue; property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1201,7 +1215,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{2B50B74F-8959-47A2-BED3-7B4812D6187A}'] ['{F5C50F18-6FCD-4CFB-B113-37B7E7DF49EA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1296,7 +1310,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7CDC601E-7E87-402A-8C14-0C92B0C123E9}'] ['{F97E04B7-9F8E-4D8B-A7ED-A52270F5EA78}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3076,6 +3090,27 @@ begin
DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null; DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetPRECIO_PUNTOValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsCurrency;
end;
procedure TContratosClienteDataTableRules.SetPRECIO_PUNTOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsCurrency := aValue;
end;
function TContratosClienteDataTableRules.GetPRECIO_PUNTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetPRECIO_PUNTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

71
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}'; RID_ValoresDelta = '{36B2FC47-3E94-4865-ADC3-F178179AAB85}';
RID_PropiedadesDelta = '{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}'; RID_PropiedadesDelta = '{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}';
RID_ListaAnosContratosDelta = '{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}'; RID_ListaAnosContratosDelta = '{FEA3D163-003E-4AC2-80A1-C033004D4731}';
RID_ContratosClienteBeneficiosDelta = '{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}'; RID_ContratosClienteBeneficiosDelta = '{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}';
RID_ContratosClienteDelta = '{5F703D9D-DB14-4081-A55C-18940FC569D1}'; RID_ContratosClienteDelta = '{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}';
RID_TiposCapitulosDelta = '{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}'; RID_TiposCapitulosDelta = '{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}';
RID_ContratosCliente_DetallesDelta = '{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}'; RID_ContratosCliente_DetallesDelta = '{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}'] ['{36B2FC47-3E94-4865-ADC3-F178179AAB85}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}'] ['{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}'] ['{FEA3D163-003E-4AC2-80A1-C033004D4731}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}'] ['{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{5F703D9D-DB14-4081-A55C-18940FC569D1}'] ['{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -422,6 +422,7 @@ type
function GetOldTIPO_CONTRATOValue : String; function GetOldTIPO_CONTRATOValue : String;
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFACTURA_ASOCIADAValue : String; function GetOldFACTURA_ASOCIADAValue : String;
function GetOldPRECIO_PUNTOValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -472,6 +473,7 @@ type
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue; property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue; property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -771,6 +773,12 @@ type
function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual; function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual; procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual; procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PUNTOValue: Currency; virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
function GetOldPRECIO_PUNTOValue: Currency; virtual;
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -965,6 +973,10 @@ type
property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue; property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldFACTURA_ASOCIADAIsNull : Boolean read GetOldFACTURA_ASOCIADAIsNull; property OldFACTURA_ASOCIADAIsNull : Boolean read GetOldFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO : Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -974,7 +986,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}'] ['{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1068,7 +1080,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}'] ['{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3552,6 +3564,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetPRECIO_PUNTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO];
end;
function TContratosClienteBusinessProcessorRules.GetPRECIO_PUNTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldPRECIO_PUNTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePRECIO_PUNTO];
end;
function TContratosClienteBusinessProcessorRules.GetOldPRECIO_PUNTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePRECIO_PUNTO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetPRECIO_PUNTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetPRECIO_PUNTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

1
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -256,6 +256,7 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
// ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; //En abeto la forma de pago por defecto la da la configuración de tipo de documento // ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; //En abeto la forma de pago por defecto la da la configuración de tipo de documento
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_CONTRATO := DateOf(Date); FECHA_CONTRATO := DateOf(Date);

41
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -473,6 +473,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'PROCEDENCIA_CLIENTE' DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'PRECIO_PUNTO'
TableField = 'PRECIO_PUNTO'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -740,6 +744,10 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FACTURA_ASOCIADA' Name = 'FACTURA_ASOCIADA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end> end>
end end
item item
@ -1199,6 +1207,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1215,16 +1228,16 @@ object srvContratosCliente: TsrvContratosCliente
'IVA, IMPORTE_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ' + 'IVA, IMPORTE_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ' +
'ID_VENDEDOR, PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUI' + 'ID_VENDEDOR, PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUI' +
'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' + 'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
'E)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF_CIF, :NOMBR' + 'E, PRECIO_PUNTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :N' +
'E, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_P' + 'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 +
'OSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' + ' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' +
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_AC' + 'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' +
'TIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE' + 'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' +
'_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :I' + 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
'D_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10 + '_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' +
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_' + 'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' +
'RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRAT' + ':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' +
'O, :REFERENCIA_CLIENTE)'#10#10 ' :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1459,6 +1472,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1488,7 +1506,8 @@ object srvContratosCliente: TsrvContratosCliente
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' + 'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA,'#10' TELEFONO = :TELEFONO,'#10' MOVIL = :MOVIL' + 'CARGO_EQUIVALENCIA,'#10' TELEFONO = :TELEFONO,'#10' MOVIL = :MOVIL' +
','#10' TIPO_CONTRATO = :TIPO_CONTRATO,'#10' REFERENCIA_CLIENTE = :' + ','#10' TIPO_CONTRATO = :TIPO_CONTRATO,'#10' REFERENCIA_CLIENTE = :' +
'REFERENCIA_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'REFERENCIA_CLIENTE,'#10' PRECIO_PUNTO = :PRECIO_PUNTO'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

63
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -14,15 +14,21 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function PedirDescuento: Variant; function PedirDescuento: Variant;
procedure RecalcularPrecioPuntoDetalles(PrecioPunto: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo; function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController) TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
private private
FPrecioPunto: Currency;
FDataModule : IDataModulePresupuestosCliente; FDataModule : IDataModulePresupuestosCliente;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
@ -37,6 +43,10 @@ type
procedure ValidarCampos(DataTable: TDADataTable); override; procedure ValidarCampos(DataTable: TDADataTable); override;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure RecalcularPrecioPuntoDetalles(PrecioPunto: Currency; ADetalles: IDAStronglyTypedDataTable);
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
public public
function PedirDescuento: Variant; function PedirDescuento: Variant;
@ -53,6 +63,7 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end; end;
implementation implementation
@ -98,6 +109,7 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure TDetallesPresupuestoClienteController.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
var var
ACapitulo: IBizCapitulo; ACapitulo: IBizCapitulo;
@ -199,6 +211,7 @@ end;
constructor TDetallesPresupuestoClienteController.Create; constructor TDetallesPresupuestoClienteController.Create;
begin begin
inherited; inherited;
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FDataModule := TDataModulePresupuestosCliente.Create(Nil); FDataModule := TDataModulePresupuestosCliente.Create(Nil);
end; end;
@ -229,6 +242,11 @@ begin
inherited; inherited;
end; end;
function TDetallesPresupuestoClienteController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var var
ACadena : String; ACadena : String;
@ -247,6 +265,12 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0; ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end; end;
procedure TDetallesPresupuestoClienteController.SetPrecioPunto(const AValue: Currency);
begin
FPrecioPunto := AValue;
FArticulosController.PrecioPunto := FPrecioPunto;
end;
procedure TDetallesPresupuestoClienteController.SetTipoArticulo( procedure TDetallesPresupuestoClienteController.SetTipoArticulo(
ADetalles: IDAStronglyTypedDataTable; ATipo: String); ADetalles: IDAStronglyTypedDataTable; ATipo: String);
begin begin
@ -305,11 +329,48 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.RecalcularPrecioPuntoDetalles(PrecioPunto: Currency; ADetalles: IDAStronglyTypedDataTable);
var
AArticulo: IBizArticulo;
ABookmark : TBookmark;
begin
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
ADetalles.DataTable.DisableEventHandlers;
ADetalles.DataTable.First;
while not ADetalles.DataTable.eof do
begin
if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
begin
AArticulo := (FArticulosController.Buscar(ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger) as IBizArticulo);
AArticulo.DataTable.Open;
//Buscamos el punto del articulo y lo recalculamos
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsCurrency := AArticulo.PRECIO_COSTE * PrecioPunto;
ADetalles.DataTable.Post;
AArticulo := Nil;
end;
ADetalles.DataTable.Next;
end;
finally
ADetalles.DataTable.EnableEventHandlers;
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
ActualizarTotales(ADetalles);
end;
procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO) ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := RoundCurrency(AArticulos.PRECIO_COSTE * FPrecioPunto)
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
View File

@ -49,7 +49,7 @@
<DelphiCompile Include="PresupuestosCliente_data.dpk"> <DelphiCompile Include="PresupuestosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Tipos de IVA\PresupuestosCliente_model.dcp" />
<DCCReference Include="uDataModulePresupuestosCliente.pas"> <DCCReference Include="uDataModulePresupuestosCliente.pas">
<Form>DataModulePresupuestosCliente</Form> <Form>DataModulePresupuestosCliente</Form>
</DCCReference> </DCCReference>

4
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -270,6 +270,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Size = 255 Size = 255
DisplayLabel = 'Tipo' DisplayLabel = 'Tipo'
DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

59
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{0834AA93-E35A-49DC-AF94-E773B6A9CA62}'; RID_Valores = '{5F56032E-EEAF-4F35-807F-339687DA4C3D}';
RID_Propiedades = '{17AE7480-03AB-4A41-8EF3-E69A56680E19}'; RID_Propiedades = '{6DAF74B6-95E2-40ED-B7C7-DB4009DB3D03}';
RID_ListaAnosPresupuestos = '{70FAE6E3-983F-4DE6-B1E1-413CF42FDF31}'; RID_ListaAnosPresupuestos = '{3FA6E704-A7C6-491C-9C3B-0999E740BC70}';
RID_PresupuestosCliente = '{1A1E5F0C-CE49-4D41-A724-1983AB59CBDC}'; RID_PresupuestosCliente = '{139F3889-639B-4A29-BB2A-4B71E8FDF8C6}';
RID_CapitulosPresupuesto = '{6661C54C-E40A-4951-B048-96586EE3AA6B}'; RID_CapitulosPresupuesto = '{514AC745-5BE2-4BE9-BE2D-1ED90C3E2EAB}';
RID_PresupuestosCliente_Detalles = '{97D6EAE0-93C9-4BF4-8E35-B51AB572428B}'; RID_PresupuestosCliente_Detalles = '{C3BFA4AA-E2D0-422C-9719-A60174F14E88}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -99,6 +99,7 @@ const
fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO'; fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO';
fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO'; fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO';
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO'; fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
fld_PresupuestosClientePRECIO_PUNTO = 'PRECIO_PUNTO';
{ PresupuestosCliente field indexes } { PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0; idx_PresupuestosClienteID = 0;
@ -145,6 +146,7 @@ const
idx_PresupuestosClienteREF_CONTRATO = 41; idx_PresupuestosClienteREF_CONTRATO = 41;
idx_PresupuestosClienteNO_VALORADO = 42; idx_PresupuestosClienteNO_VALORADO = 42;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 43; idx_PresupuestosClienteTIPO_PRESUPUESTO = 43;
idx_PresupuestosClientePRECIO_PUNTO = 44;
{ CapitulosPresupuesto fields } { CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID'; fld_CapitulosPresupuestoID = 'ID';
@ -215,7 +217,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{D282ECEC-B93F-4EA3-ABFA-A965C3757F91}'] ['{670D3888-6429-47B8-8455-159086F1ECF7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -310,7 +312,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{E198EC3C-9CF6-49F8-B5C3-249BE63015FA}'] ['{940A23E0-6D21-491D-8E87-88B7883B3C4B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -357,7 +359,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{622A6F88-A7CA-4CEA-BAFD-E442F4381D6B}'] ['{ACB200CC-9FAD-44BE-8B57-22626A61CC99}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -392,7 +394,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{5453A9D9-9D4E-45A0-B568-6230714F144E}'] ['{58114EC0-EC49-4B46-8FB2-F32EB8833AA9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -566,6 +568,10 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); procedure SetTIPO_PRESUPUESTOValue(const aValue: String);
function GetTIPO_PRESUPUESTOIsNull: Boolean; function GetTIPO_PRESUPUESTOIsNull: Boolean;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean);
function GetPRECIO_PUNTOValue: Currency;
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -657,6 +663,8 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
end; end;
{ TPresupuestosClienteDataTableRules } { TPresupuestosClienteDataTableRules }
@ -844,6 +852,10 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual; function GetTIPO_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PUNTOValue: Currency; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -934,6 +946,8 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue; property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull: Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -943,7 +957,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{00C195F2-9264-45E8-BC16-E58B3A124BF4}'] ['{18784E71-D92D-4F74-8EBC-D59F926081B3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1110,7 +1124,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{18A3A177-29EF-45FC-8198-A8BB9F8EAC46}'] ['{8E8B0B14-5D7E-4923-856C-0A805EA8A85D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2521,6 +2535,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null;
end; end;
function TPresupuestosClienteDataTableRules.GetPRECIO_PUNTOValue: Currency;
begin
result := DataTable.Fields[idx_PresupuestosClientePRECIO_PUNTO].AsCurrency;
end;
procedure TPresupuestosClienteDataTableRules.SetPRECIO_PUNTOValue(const aValue: Currency);
begin
DataTable.Fields[idx_PresupuestosClientePRECIO_PUNTO].AsCurrency := aValue;
end;
function TPresupuestosClienteDataTableRules.GetPRECIO_PUNTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClientePRECIO_PUNTO].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetPRECIO_PUNTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClientePRECIO_PUNTO].AsVariant := Null;
end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

67
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}'; RID_ValoresDelta = '{F274CECD-D4A1-4F9E-9984-A9E181EB926C}';
RID_PropiedadesDelta = '{E07D5389-62DE-43D8-BAAE-2F6B04B93095}'; RID_PropiedadesDelta = '{D0789EF0-033D-42C8-9CF4-8A35D110AA2F}';
RID_ListaAnosPresupuestosDelta = '{1E840130-4E9F-4E9D-8029-856D45DB6840}'; RID_ListaAnosPresupuestosDelta = '{B8F35DF9-1BD8-4AA7-85AA-08D9E3DB0A92}';
RID_PresupuestosClienteDelta = '{3AADD78B-C307-4D80-8720-66E9EDBD28E8}'; RID_PresupuestosClienteDelta = '{87557135-9370-434A-8914-DAB7F45D282F}';
RID_CapitulosPresupuestoDelta = '{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}'; RID_CapitulosPresupuestoDelta = '{CAE568BC-6540-432A-854F-547D862130B6}';
RID_PresupuestosCliente_DetallesDelta = '{B1775824-481D-4B82-9DC5-4FC61FE98E4B}'; RID_PresupuestosCliente_DetallesDelta = '{6FD0E65A-FEB4-434C-9DDC-0CBC150DE5BD}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}'] ['{F274CECD-D4A1-4F9E-9984-A9E181EB926C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{E07D5389-62DE-43D8-BAAE-2F6B04B93095}'] ['{D0789EF0-033D-42C8-9CF4-8A35D110AA2F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{1E840130-4E9F-4E9D-8029-856D45DB6840}'] ['{B8F35DF9-1BD8-4AA7-85AA-08D9E3DB0A92}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{3AADD78B-C307-4D80-8720-66E9EDBD28E8}'] ['{87557135-9370-434A-8914-DAB7F45D282F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -239,6 +239,7 @@ type
function GetOldREF_CONTRATOValue : String; function GetOldREF_CONTRATOValue : String;
function GetOldNO_VALORADOValue : SmallInt; function GetOldNO_VALORADOValue : SmallInt;
function GetOldTIPO_PRESUPUESTOValue : String; function GetOldTIPO_PRESUPUESTOValue : String;
function GetOldPRECIO_PUNTOValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -285,6 +286,7 @@ type
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue; property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
end; end;
{ TPresupuestosClienteBusinessProcessorRules } { TPresupuestosClienteBusinessProcessorRules }
@ -560,6 +562,12 @@ type
function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual; function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual; procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PUNTOValue: Currency; virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
function GetOldPRECIO_PUNTOValue: Currency; virtual;
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -738,6 +746,10 @@ type
property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull; property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue; property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull; property OldTIPO_PRESUPUESTOIsNull : Boolean read GetOldTIPO_PRESUPUESTOIsNull;
property PRECIO_PUNTO : Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -747,7 +759,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}'] ['{CAE568BC-6540-432A-854F-547D862130B6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -913,7 +925,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{B1775824-481D-4B82-9DC5-4FC61FE98E4B}'] ['{6FD0E65A-FEB4-434C-9DDC-0CBC150DE5BD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -2858,6 +2870,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetPRECIO_PUNTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRECIO_PUNTO];
end;
function TPresupuestosClienteBusinessProcessorRules.GetPRECIO_PUNTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRECIO_PUNTO]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPRECIO_PUNTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRECIO_PUNTO];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPRECIO_PUNTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRECIO_PUNTO]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPRECIO_PUNTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRECIO_PUNTO] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPRECIO_PUNTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRECIO_PUNTO] := Null;
end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TCapitulosPresupuestoBusinessProcessorRules }
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

1
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -262,6 +262,7 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
// ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; //En abeto la forma de pago por defecto la da la configuración de tipo de documento // ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; //En abeto la forma de pago por defecto la da la configuración de tipo de documento
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_PRESUPUESTO := DateOf(Date); FECHA_PRESUPUESTO := DateOf(Date);
FECHA_VIGENCIA := IncMonth(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS); FECHA_VIGENCIA := IncMonth(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS);

43
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -328,6 +328,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'PROCEDENCIA_CLIENTE' DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'PRECIO_PUNTO'
TableField = 'PRECIO_PUNTO'
end> end>
end> end>
Name = 'PresupuestosCliente' Name = 'PresupuestosCliente'
@ -550,6 +554,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end> end>
end end
item item
@ -1054,6 +1062,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1069,17 +1082,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'ETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPO' + 'ETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPO' +
'NIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECAR' + 'NIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECAR' +
'GO_EQUIVALENCIA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VEN' + 'GO_EQUIVALENCIA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VEN' +
'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES' + 'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO, PRECIO_P' +
#10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA' + 'UNTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :' +
', :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENTE,'#10' :SITUA' + 'FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENT' +
'CION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA' + 'E,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACT' +
'_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCID' + 'O,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' +
'ENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMP' + 'S,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPO' +
'ORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE' + 'RTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :' +
', :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECA' + 'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMP' +
'RGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :I' + 'ORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, ' +
'D_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10 + ':ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO' +
' '#10#10#10#10#10 '_PRESUPUESTO, :PRECIO_PUNTO)'#10' '#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1283,6 +1296,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1311,7 +1329,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'E_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :I' + 'E_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :I' +
'D_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_' + 'D_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_' +
'CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' TIPO_PRESUPUESTO =' + 'CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' TIPO_PRESUPUESTO =' +
' :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 ' :TIPO_PRESUPUESTO,'#10' PRECIO_PUNTO = :PRECIO_PUNTO'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

9
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirArticulosPresupuestoCliente.dfm
View File

@ -2,13 +2,4 @@ inherited fEditorElegirArticulosPresupuestoCliente: TfEditorElegirArticulosPresu
Caption = 'fEditorElegirArticulosPresupuestoCliente' Caption = 'fEditorElegirArticulosPresupuestoCliente'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited pnlHeader: TPanel
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 27
end
end
end end

294
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -3,19 +3,19 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 147 Top = 147
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ClientHeight = 676 ClientHeight = 676
ClientWidth = 848 ClientWidth = 1003
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 856 ExplicitWidth = 1011
ExplicitHeight = 714 ExplicitHeight = 714
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 848 Width = 1003
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 848 ExplicitWidth = 1003
inherited Image1: TImage inherited Image1: TImage
Left = 821 Left = 976
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -127,8 +127,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 848 Width = 1003
ExplicitWidth = 848 ExplicitWidth = 1003
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 551 ExplicitWidth = 551
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -156,7 +156,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 848 ExplicitWidth = 1003
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
@ -167,31 +167,32 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 657 Top = 657
Width = 848 Width = 1003
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 657 ExplicitTop = 657
ExplicitWidth = 848 ExplicitWidth = 1003
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 842 Width = 997
Height = 314 Height = 314
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 842 ExplicitWidth = 997
ExplicitHeight = 314 ExplicitHeight = 314
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inline frViewPresupuestoCliente1: TfrViewPresupuestoCliente inline frViewPresupuestoCliente1: TfrViewPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 989
Height = 286 Height = 286
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -202,83 +203,52 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 834 Width = 989
Height = 286 Height = 286
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inherited edtFechaPresupuesto: TcxDBDateEdit
ExplicitWidth = 187
Width = 187
end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Left = 399 Left = 471
ExplicitLeft = 399 ExplicitLeft = 471
ExplicitWidth = 793
Width = 793
end
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 122
Width = 122
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 122
Width = 122
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 237 Left = 309
ExplicitLeft = 237 ExplicitLeft = 309
end end
inherited edtFechaDecision: TcxDBDateEdit inherited edtFechaDecision: TcxDBDateEdit
Left = 281 Left = 318
ExplicitLeft = 281 ExplicitLeft = 318
ExplicitWidth = 260
Width = 260
end
inherited edtFechaVigencia: TcxDBDateEdit
ExplicitWidth = 260
Width = 260
end
inherited cbSituacion: TcxDBImageComboBox
ExplicitWidth = 260
Width = 260
end end
inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
Left = 399 Left = 471
Width = 320 ExplicitLeft = 471
ExplicitLeft = 399
ExplicitWidth = 320
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 320
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 202 ExplicitWidth = 202
Width = 202 Width = 202
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 281 Left = 364
ExplicitLeft = 281 ExplicitLeft = 364
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 192 Left = 275
ExplicitLeft = 192 ExplicitLeft = 275
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 329 ExplicitWidth = 329
Width = 329 Width = 329
end end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton inherited Button4: TButton
Left = 361 Left = 444
ExplicitLeft = 361 ExplicitLeft = 444
end end
inherited Button5: TButton inherited Button5: TButton
Left = 361 Left = 444
ExplicitLeft = 361 ExplicitLeft = 444
end end
inherited edtTelefonos: TcxTextEdit inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193 ExplicitWidth = 193
@ -286,33 +256,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
end end
inherited memFormaPago: TcxDBMemo
ExplicitWidth = 475
ExplicitHeight = 44
Height = 44
Width = 475
end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 303 Top = 303
ExplicitTop = 303 ExplicitTop = 303
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited cbVendedor: TcxDBLookupComboBox
ExplicitWidth = 27
Width = 27
end end
inherited cbTipoPresupuesto: TcxDBComboBox inherited cbTipoPresupuesto: TcxDBComboBox
Left = 276 Left = 314
ExplicitLeft = 276 ExplicitLeft = 314
ExplicitWidth = 186
Width = 186
end
inherited edtlReferenciaCliente: TcxDBTextEdit
ExplicitWidth = 204
Width = 204
end end
end end
end end
@ -323,7 +273,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 989
Height = 286 Height = 286
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -336,16 +286,22 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 834 Width = 989
Height = 24 Height = 24
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 24 ExplicitHeight = 24
inherited ToolButton14: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368 Left = 368
Top = 0 Top = 0
@ -417,10 +373,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 834 Width = 989
Height = 236 Height = 236
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 236 ExplicitHeight = 236
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPROPIEDAD: TcxGridDBColumn inherited cxGridViewPROPIEDAD: TcxGridDBColumn
@ -430,12 +386,19 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
Width = 834 Width = 989
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 989
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 753 ExplicitWidth = 753
end end
inherited edtPrecioPunto: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Style.IsFontAssigned = True
end
inherited bRecalcularPrecioPunto: TButton
Action = actRecalcularPrecioPunto
end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -454,7 +417,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 989
Height = 286 Height = 286
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -465,25 +428,25 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 834 Width = 989
ExplicitWidth = 834 ExplicitWidth = 989
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 834 Width = 989
Height = 258 Height = 258
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 258 ExplicitHeight = 258
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830 ExplicitWidth = 985
ExplicitHeight = 241 ExplicitHeight = 241
Height = 241 Height = 241
Width = 830 Width = 985
end end
end end
end end
@ -494,7 +457,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 989
Height = 286 Height = 286
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -505,17 +468,17 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 286 ExplicitHeight = 286
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 834 Width = 989
ExplicitWidth = 834 ExplicitWidth = 989
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 834 Width = 989
Height = 260 Height = 260
ExplicitTop = 26 ExplicitTop = 26
ExplicitWidth = 834 ExplicitWidth = 989
ExplicitHeight = 260 ExplicitHeight = 260
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
@ -526,18 +489,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 848 Width = 1003
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 848 ExplicitWidth = 1003
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 838 Width = 993
Height = 25 Height = 25
end end
end end
inline frViewTotales1: TfrViewTotalesPresupuesto [5] inline frViewTotales1: TfrViewTotalesPresupuesto [5]
Left = 0 Left = 0
Top = 429 Top = 429
Width = 848 Width = 1003
Height = 228 Height = 228
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -549,43 +512,53 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 429 ExplicitTop = 429
ExplicitWidth = 848 ExplicitWidth = 1003
ExplicitHeight = 228 ExplicitHeight = 228
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 848 Width = 1003
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 848 ExplicitWidth = 1003
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 304 Left = 379
Top = 57 Top = 57
ExplicitLeft = 304 ExplicitLeft = 379
ExplicitTop = 57 ExplicitTop = 57
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 416 Left = 491
Top = 88 Top = 88
Width = 342 Width = 342
ExplicitLeft = 416 ExplicitLeft = 491
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 342 ExplicitWidth = 342
end end
inherited Bevel2: TBevel
Top = 242
ExplicitTop = 242
end
inherited Bevel1: TBevel
Left = 398
Top = 216
ExplicitLeft = 398
ExplicitTop = 216
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 487 Left = 562
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 487 ExplicitLeft = 562
ExplicitTop = 108 ExplicitTop = 108
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 417 Left = 492
Top = 189 Top = 189
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 417 ExplicitLeft = 492
ExplicitTop = 189 ExplicitTop = 189
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
@ -594,45 +567,45 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84 ExplicitTop = 84
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 416 Left = 491
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 416 ExplicitLeft = 491
ExplicitTop = 108 ExplicitTop = 108
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 416 Left = 491
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 416 ExplicitLeft = 491
ExplicitTop = 57 ExplicitTop = 57
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 416 Left = 491
Top = 162 Top = 162
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 416 ExplicitLeft = 491
ExplicitTop = 162 ExplicitTop = 162
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 416 Left = 491
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 416 ExplicitLeft = 491
ExplicitTop = 135 ExplicitTop = 135
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 487 Left = 562
Top = 162 Top = 162
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 487 ExplicitLeft = 562
ExplicitTop = 162 ExplicitTop = 162
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 487 Left = 562
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 487 ExplicitLeft = 562
ExplicitTop = 135 ExplicitTop = 135
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
@ -640,15 +613,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ePorte: TcxDBCurrencyEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
end
inherited cbValorado: TcxDBCheckBox inherited cbValorado: TcxDBCheckBox
Left = 11 Left = 11
Top = 11 Top = 11
@ -658,17 +622,48 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 455 ExplicitWidth = 455
Width = 455 Width = 455
end end
inherited ePorte: TcxDBCurrencyEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 156 Left = 231
Top = 138 Top = 138
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 156 ExplicitLeft = 231
ExplicitTop = 138 ExplicitTop = 138
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165 Top = 165
ExplicitTop = 165 ExplicitTop = 165
end end
inherited edtRetencion: TcxDBSpinEdit
Left = 491
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitTop = 231
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 562
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 562
ExplicitTop = 231
end
inherited edtFechaRetencion: TcxDBDateEdit
Top = 257
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 257
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited cxValorado: TdxLayoutItem inherited cxValorado: TdxLayoutItem
Enabled = False Enabled = False
@ -2044,6 +2039,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
OnExecute = actEnviarPorEMailExecute OnExecute = actEnviarPorEMailExecute
OnUpdate = actEnviarPorEMailUpdate OnUpdate = actEnviarPorEMailUpdate
end end
object actRecalcularPrecioPunto: TAction
Category = 'Acciones'
Caption = 'Recalcular precio punto'
OnExecute = actRecalcularPrecioPuntoExecute
end
end end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
Left = 40 Left = 40

58
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -20,7 +20,7 @@ uses
uViewDocumentos, uViewDocumentos,
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto, uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls, cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls,
cxGraphics, cxMaskEdit, cxDropDownEdit; cxGraphics, cxMaskEdit, cxDropDownEdit, cxCurrencyEdit;
type type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente) TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@ -40,6 +40,7 @@ type
frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente; frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
frViewTotales1: TfrViewTotalesPresupuesto; frViewTotales1: TfrViewTotalesPresupuesto;
frViewPresupuestoCliente1: TfrViewPresupuestoCliente; frViewPresupuestoCliente1: TfrViewPresupuestoCliente;
actRecalcularPrecioPunto: TAction;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -53,10 +54,16 @@ type
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject; procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor. var Error: Boolean);
procedure actRecalcularPrecioPuntoExecute(Sender: TObject);
procedure OnPrecioPuntoPropertiesEditValueChanged(Sender: TObject);
procedure onPrecioPuntoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private private
procedure RecalcularPortePorUnidad; procedure RecalcularPortePorUnidad;
procedure frViewDetallesPresupuestoCliente1edtPrecioPuntoPropertiesEditValueChanged(
Sender: TObject);
protected protected
FPresupuesto: IBizPresupuestoCliente; FPresupuesto: IBizPresupuestoCliente;
@ -103,7 +110,7 @@ type
implementation implementation
uses uses
uDialogOpcionesImpresionPresupuestosCliente, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, Dialogs, uDialogOpcionesImpresionPresupuestosCliente, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils; uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
{$R *.dfm} {$R *.dfm}
@ -132,6 +139,21 @@ begin
(Sender as TAction).Enabled := HayDatos; (Sender as TAction).Enabled := HayDatos;
end; end;
procedure TfEditorPresupuestoCliente.actRecalcularPrecioPuntoExecute(Sender: TObject);
begin
inherited;
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento
//no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor.
if (Presupuesto.Detalles.Datatable.State <> dsInactive)
and (not Presupuesto.Detalles.DataTable.IsEmpty)
and Assigned(Controller)
and Assigned(Controller.DetallesController) then
begin
Controller.DetallesController.PrecioPunto := FPresupuesto.PRECIO_PUNTO;
Controller.DetallesController.RecalcularPrecioPuntoDetalles(FPresupuesto.PRECIO_PUNTO, FPresupuesto.Detalles)
end;
end;
constructor TfEditorPresupuestoCliente.Create(AOwner: TComponent); constructor TfEditorPresupuestoCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -144,6 +166,10 @@ procedure TfEditorPresupuestoCliente.CustomEditorClose(Sender: TObject;
var Action: TCloseAction); var Action: TCloseAction);
begin begin
inherited; inherited;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado //Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute; frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
@ -181,10 +207,29 @@ begin
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate; frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := onPrecioPuntoPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := OnPrecioPuntoPropertiesEditValueChanged;
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
Presupuesto.DataTable.Active := True; Presupuesto.DataTable.Active := True;
end; end;
procedure TfEditorPresupuestoCliente.frViewDetallesPresupuestoCliente1edtPrecioPuntoPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
end;
procedure TfEditorPresupuestoCliente.onPrecioPuntoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if (ShowConfirmMessage('Va ha cambiar el precio punto, esto ocasionará el recalculo de todos los artículos del presupuesto que estén en el catálogo, los conceptos libres no se verán afectados', '¿Desea actualizar los importes de todos los articulos del presupuesto, que estén en el catálogo?') = IDNO) then
DisplayValue := frViewDetallesPresupuestoCliente1.edtPrecioPunto.Value;
end;
procedure TfEditorPresupuestoCliente.frViewTotales1bTiposIVAClick( procedure TfEditorPresupuestoCliente.frViewTotales1bTiposIVAClick(
Sender: TObject); Sender: TObject);
begin begin
@ -315,6 +360,12 @@ begin
end; end;
end; end;
procedure TfEditorPresupuestoCliente.OnPrecioPuntoPropertiesEditValueChanged(Sender: TObject);
begin
actRecalcularPrecioPunto.Execute;
end;
procedure TfEditorPresupuestoCliente.OnRecargoEquivalenciaPropertiesValidate( procedure TfEditorPresupuestoCliente.OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
@ -437,6 +488,7 @@ begin
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL; ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
try try
FViewPresupuesto.Presupuesto := FPresupuesto; FViewPresupuesto.Presupuesto := FPresupuesto;
Controller.DetallesController.PrecioPunto := FPresupuesto.PRECIO_PUNTO;
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles; frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado

112
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -1,61 +1,89 @@
inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 1056
Height = 588
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 1056
Height = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 0 Left = 368
ExplicitLeft = 0 Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 145 Left = 513
ExplicitLeft = 145 Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 187 Left = 555
ExplicitLeft = 187 Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 204 Left = 572
ExplicitLeft = 204 Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 212 Left = 580
ExplicitLeft = 212 Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 246 Left = 614
ExplicitLeft = 246 Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 280 Left = 648
ExplicitLeft = 280 Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 314 Left = 682
ExplicitLeft = 314 Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 322 Left = 690
ExplicitLeft = 322 Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 356 Left = 724
ExplicitLeft = 356 Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 390 Left = 758
ExplicitLeft = 390 Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50
Width = 1056
Height = 538
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False VisibleForCustomization = False
@ -125,8 +153,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24
Width = 1056
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 753
object TBXSubmenuItem1: TTBXSubmenuItem [0] object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo' Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -171,6 +202,41 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Action = actAsignarDescuento Action = actAsignarDescuento
end end
end end
object edtPrecioPunto: TcxDBCurrencyEdit
Left = 755
Top = 5
AutoSize = False
DataBinding.DataField = 'PRECIO_PUNTO'
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 21
Width = 80
end
object bRecalcularPrecioPunto: TButton
Left = 837
Top = 5
Width = 130
Height = 21
TabOrder = 2
end
end end
object cxLookupComboBox1: TcxLookupComboBox [3] object cxLookupComboBox1: TcxLookupComboBox [3]
Left = 78 Left = 78

4
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -15,7 +15,7 @@ uses
Mask, DBCtrls, cxButtonEdit, cxDropDownEdit, Menus, cxGridCustomPopupMenu, Mask, DBCtrls, cxButtonEdit, cxDropDownEdit, Menus, cxGridCustomPopupMenu,
cxGridPopupMenu, cxDBLookupComboBox, cxCalc, cxEditRepositoryItems, cxGridPopupMenu, cxDBLookupComboBox, cxCalc, cxEditRepositoryItems,
cxContainer, cxLookupEdit, cxDBLookupEdit, uBizDetallesPresupuestoCliente, cxContainer, cxLookupEdit, cxDBLookupEdit, uBizDetallesPresupuestoCliente,
cxMemo; cxMemo, cxDBEdit;
type type
IViewDetallesPresupuestoCliente = interface(IViewDetallesArticulos) IViewDetallesPresupuestoCliente = interface(IViewDetallesArticulos)
@ -56,6 +56,8 @@ type
TBXSeparatorItem11: TTBXSeparatorItem; TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem21: TTBXItem; TBXItem21: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox; cxLookupComboBox2: TcxLookupComboBox;
edtPrecioPunto: TcxDBCurrencyEdit;
bRecalcularPrecioPunto: TButton;
procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);

138
Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.dfm
View File

@ -1,18 +1,41 @@
inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
Height = 247 Width = 861
ExplicitHeight = 247 Height = 446
ExplicitWidth = 861
ExplicitHeight = 446
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 861
ExplicitWidth = 451 ExplicitWidth = 451
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 405
Top = 55 Top = 55
Height = 122
ExplicitLeft = 405
ExplicitTop = 55 ExplicitTop = 55
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 517
Top = 86 Top = 86
Width = 210 Width = 210
ExplicitLeft = 517
ExplicitTop = 86 ExplicitTop = 86
ExplicitWidth = 210 ExplicitWidth = 210
end end
inherited Bevel2: TBevel
Top = 214
Width = 333
ExplicitTop = 214
ExplicitWidth = 333
end
inherited Bevel1: TBevel
Left = 424
Top = 214
Width = 332
ExplicitLeft = 424
ExplicitTop = 214
ExplicitWidth = 332
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 82 Top = 82
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -22,17 +45,21 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 588
Top = 106 Top = 106
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 10 TabOrder = 11
ExplicitLeft = 588
ExplicitTop = 106 ExplicitTop = 106
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 518
Top = 187 Top = 187
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 15 TabOrder = 16
ExplicitLeft = 518
ExplicitTop = 187 ExplicitTop = 187
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -44,40 +71,56 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitTop = 82 ExplicitTop = 82
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 517
Top = 106 Top = 106
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 9 TabOrder = 10
ExplicitLeft = 517
ExplicitTop = 106 ExplicitTop = 106
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 517
Top = 55 Top = 55
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 8 TabOrder = 9
ExplicitLeft = 517
ExplicitTop = 55 ExplicitTop = 55
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Top = 160 Left = 517
Style.IsFontAssigned = True
TabOrder = 13
ExplicitTop = 160
end
inherited edtIRPF: TcxDBSpinEdit
Style.IsFontAssigned = True
TabOrder = 11
end
inherited ImporteRE: TcxDBCurrencyEdit
Top = 160 Top = 160
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 14 TabOrder = 14
ExplicitLeft = 517
ExplicitTop = 160
end
inherited edtIRPF: TcxDBSpinEdit
Left = 517
Top = 133
Style.IsFontAssigned = True
TabOrder = 12
ExplicitLeft = 517
ExplicitTop = 133
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 588
Top = 160
Style.IsFontAssigned = True
TabOrder = 15
ExplicitLeft = 588
ExplicitTop = 160 ExplicitTop = 160
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 588
Top = 133
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 12 TabOrder = 13
ExplicitLeft = 588
ExplicitTop = 133
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
@ -89,21 +132,6 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit
Top = 109
Style.IsFontAssigned = True
TabOrder = 4
ExplicitTop = 109
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 136
TabOrder = 5
ExplicitTop = 136
ExplicitWidth = 81
Width = 81
end
object cbValorado: TcxDBCheckBox [15] object cbValorado: TcxDBCheckBox [15]
Left = 10 Left = 10
Top = 10 Top = 10
@ -130,9 +158,26 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
TabOrder = 0 TabOrder = 0
Width = 207 Width = 207
end end
inherited ePorte: TcxDBCurrencyEdit
Top = 109
Style.IsFontAssigned = True
TabOrder = 4
ExplicitTop = 109
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 136
TabOrder = 5
ExplicitTop = 136
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 257
Top = 136 Top = 136
TabOrder = 6 TabOrder = 6
ExplicitLeft = 257
ExplicitTop = 136 ExplicitTop = 136
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -142,6 +187,35 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited edtRetencion: TcxDBSpinEdit
Left = 517
Top = 229
Style.IsFontAssigned = True
TabOrder = 17
ExplicitLeft = 517
ExplicitTop = 229
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 588
Top = 229
Style.IsFontAssigned = True
TabOrder = 18
ExplicitLeft = 588
ExplicitTop = 229
ExplicitWidth = 342
Width = 342
end
inherited edtFechaRetencion: TcxDBDateEdit
Top = 229
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitTop = 229
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object cxValorado: TdxLayoutItem [0] object cxValorado: TdxLayoutItem [0]
ShowCaption = False ShowCaption = False

3
Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces, Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
uDADataTable, dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit, uDADataTable, dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit,
cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls; cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls,
cxCalendar;
type type
TfrViewTotalesPresupuesto = class(TfrViewTotales) TfrViewTotalesPresupuesto = class(TfrViewTotales)

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -135,15 +135,15 @@ uses
uNumUtils in '..\Base\Utiles\uNumUtils.pas', uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
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',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uBizReferenciasServer in '..\Modulos\Referencias\Model\uBizReferenciasServer.pas'; uBizReferenciasServer in '..\Modulos\Referencias\Model\uBizReferenciasServer.pas',
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';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,10 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <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">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.7.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.7.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 23 de marzo de 2017 13:09</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">7</VersionInfo><VersionInfo Name="Release">2</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.2.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.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 26 de marzo de 2018 17:23</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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.