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">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">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><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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.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\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

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

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

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

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

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

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

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

@ -2,7 +2,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Caption = 'Seleccionar art'#237'culos'
ClientWidth = 656
ExplicitWidth = 664
ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -20,14 +19,15 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited TBXDock: TTBXDock
Top = 91
Width = 656
Height = 49
Height = 53
ExplicitTop = 91
ExplicitWidth = 656
ExplicitHeight = 49
ExplicitHeight = 53
inherited tbxMain: TTBXToolbar
Align = alLeft
DockPos = -6
ExplicitWidth = 126
ExplicitWidth = 142
ExplicitHeight = 27
inherited TBXItem2: TTBXItem
Visible = False
end
@ -45,13 +45,13 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end
end
inherited tbxFiltro: TTBXToolbar
Left = 126
Top = 23
Left = 142
Top = 26
Align = alLeft
DockPos = 101
DockRow = 1
ExplicitLeft = 126
ExplicitTop = 23
ExplicitLeft = 142
ExplicitTop = 26
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
end
@ -61,11 +61,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end
inherited TBXTMain2: TTBXToolbar
Left = 536
Top = 23
Top = 26
DockPos = 536
DockRow = 1
ExplicitLeft = 536
ExplicitTop = 23
ExplicitTop = 26
end
end
inherited StatusBar: TJvStatusBar
@ -127,12 +127,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = -37
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 131
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
@ -146,17 +145,20 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 131
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 3
Height = 13
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
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 SetMensaje (const AValue: String);
function GetMensaje: String;
public
property Mensaje : String read GetMensaje write SetMensaje;
property ArticulosSeleccionados: IBizArticulo read GetArticulosSeleccionados;
@ -68,6 +69,8 @@ procedure TfEditorElegirArticulos.FormShow(Sender: TObject);
begin
inherited;
EditorActionList.State := asSuspended;
if Assigned(ViewGrid) then
(ViewGrid as IViewArticulos).PrecioPunto := Controller.PrecioPunto;
end;
procedure TfEditorElegirArticulos.frViewBarraSeleccion1actCancelarExecute(

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

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

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

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

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

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

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

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

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

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{9AD797AA-D46B-4AE9-9DD1-6BAC6654143D}';
RID_Propiedades = '{09573259-D2FE-4AB6-A029-AC941F33783C}';
RID_ListaAnosContratos = '{3285A04A-70B8-4A60-A13F-F7D07D7E7225}';
RID_ContratosClienteBeneficios = '{E0BAE351-BBAD-4095-93FB-18C3A4BECCA0}';
RID_ContratosCliente = '{36DCC1AC-A433-4CD3-B597-F8599DDEBEE5}';
RID_TiposCapitulos = '{B2D4D441-CBF5-4C00-8D77-C97B1B99524B}';
RID_ContratosCliente_Detalles = '{873F4990-695B-4AEE-9DB2-AA2EB812982A}';
RID_Valores = '{39510FE4-7F74-401D-869E-CFB507479067}';
RID_Propiedades = '{949B514D-468F-4D4D-B429-C68FC2863BD6}';
RID_ListaAnosContratos = '{572F77CB-74C7-4CC7-B2C7-AB76992CC0D9}';
RID_ContratosClienteBeneficios = '{BC4D5A2E-FD5F-4BB9-BCDF-D54933C6255C}';
RID_ContratosCliente = '{F7738525-8BBC-463A-A369-81EA51C10BE0}';
RID_TiposCapitulos = '{A72F947C-5A9B-49F6-9378-B3D4AB9960DD}';
RID_ContratosCliente_Detalles = '{5D8BC29D-E34D-4E9F-B9A2-A7F2BC896C6C}';
{ Data table names }
nme_Valores = 'Valores';
@ -135,6 +135,7 @@ const
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
fld_ContratosClientePRECIO_PUNTO = 'PRECIO_PUNTO';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -185,6 +186,7 @@ const
idx_ContratosClienteTIPO_CONTRATO = 45;
idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47;
idx_ContratosClientePRECIO_PUNTO = 48;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -243,7 +245,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{6E74F489-85F3-46DC-AC2E-4B4AE491D53B}']
['{DACA7BC8-C413-4082-886E-6F0C503F6132}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -302,7 +304,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{2DB5F8D6-C637-46EE-AA32-88BEAA1E914B}']
['{F590BA10-8F0F-4365-9A7E-DF735A6D7F37}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -361,7 +363,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{7EF2538F-7F91-41F2-BBA5-8E90D546307F}']
['{5BA2BF07-C795-41F5-9D37-F256F7453892}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -396,7 +398,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{175DC6DA-9682-4343-A2AD-311257C2692A}']
['{A9D1988D-0E6E-4C26-8A9D-B4FAC07DF3B3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -599,7 +601,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{EE4BBA7B-8F6D-4221-9573-423F0D44B0A1}']
['{3B5E86A1-8DC4-4855-B315-0FBCF8D81EC3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -789,6 +791,10 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String);
function GetFACTURA_ASOCIADAIsNull: 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 }
@ -888,6 +894,8 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
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;
{ TContratosClienteDataTableRules }
@ -1091,6 +1099,10 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
function GetFACTURA_ASOCIADAIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -1189,6 +1201,8 @@ type
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -1201,7 +1215,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{2B50B74F-8959-47A2-BED3-7B4812D6187A}']
['{F5C50F18-6FCD-4CFB-B113-37B7E7DF49EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1296,7 +1310,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7CDC601E-7E87-402A-8C14-0C92B0C123E9}']
['{F97E04B7-9F8E-4D8B-A7ED-A52270F5EA78}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3076,6 +3090,27 @@ begin
DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}';
RID_PropiedadesDelta = '{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}';
RID_ListaAnosContratosDelta = '{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}';
RID_ContratosClienteBeneficiosDelta = '{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}';
RID_ContratosClienteDelta = '{5F703D9D-DB14-4081-A55C-18940FC569D1}';
RID_TiposCapitulosDelta = '{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}';
RID_ContratosCliente_DetallesDelta = '{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}';
RID_ValoresDelta = '{36B2FC47-3E94-4865-ADC3-F178179AAB85}';
RID_PropiedadesDelta = '{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}';
RID_ListaAnosContratosDelta = '{FEA3D163-003E-4AC2-80A1-C033004D4731}';
RID_ContratosClienteBeneficiosDelta = '{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}';
RID_ContratosClienteDelta = '{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}';
RID_TiposCapitulosDelta = '{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}';
RID_ContratosCliente_DetallesDelta = '{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}']
['{36B2FC47-3E94-4865-ADC3-F178179AAB85}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}']
['{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}']
['{FEA3D163-003E-4AC2-80A1-C033004D4731}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}']
['{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{5F703D9D-DB14-4081-A55C-18940FC569D1}']
['{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -422,6 +422,7 @@ type
function GetOldTIPO_CONTRATOValue : String;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFACTURA_ASOCIADAValue : String;
function GetOldPRECIO_PUNTOValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -472,6 +473,7 @@ type
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -771,6 +773,12 @@ type
function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -965,6 +973,10 @@ type
property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -974,7 +986,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}']
['{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1068,7 +1080,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}']
['{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -3552,6 +3564,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null;
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 }
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;
// 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;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_CONTRATO := DateOf(Date);

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

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

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

@ -14,15 +14,21 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function PedirDescuento: Variant;
procedure RecalcularPrecioPuntoDetalles(PrecioPunto: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
private
FPrecioPunto: Currency;
FDataModule : IDataModulePresupuestosCliente;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
@ -37,6 +43,10 @@ type
procedure ValidarCampos(DataTable: TDADataTable); override;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure RecalcularPrecioPuntoDetalles(PrecioPunto: Currency; ADetalles: IDAStronglyTypedDataTable);
procedure SetPrecioPunto (const AValue: Currency);
function GetPrecioPunto: Currency;
public
function PedirDescuento: Variant;
@ -53,6 +63,7 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
implementation
@ -98,6 +109,7 @@ begin
end;
end;
procedure TDetallesPresupuestoClienteController.AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
var
ACapitulo: IBizCapitulo;
@ -199,6 +211,7 @@ end;
constructor TDetallesPresupuestoClienteController.Create;
begin
inherited;
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FDataModule := TDataModulePresupuestosCliente.Create(Nil);
end;
@ -229,6 +242,11 @@ begin
inherited;
end;
function TDetallesPresupuestoClienteController.GetPrecioPunto: Currency;
begin
Result := FPrecioPunto;
end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var
ACadena : String;
@ -247,6 +265,12 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end;
procedure TDetallesPresupuestoClienteController.SetPrecioPunto(const AValue: Currency);
begin
FPrecioPunto := AValue;
FArticulosController.PrecioPunto := FPrecioPunto;
end;
procedure TDetallesPresupuestoClienteController.SetTipoArticulo(
ADetalles: IDAStronglyTypedDataTable; ATipo: String);
begin
@ -305,11 +329,48 @@ begin
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);
begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull 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
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;

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

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

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

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

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

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{0834AA93-E35A-49DC-AF94-E773B6A9CA62}';
RID_Propiedades = '{17AE7480-03AB-4A41-8EF3-E69A56680E19}';
RID_ListaAnosPresupuestos = '{70FAE6E3-983F-4DE6-B1E1-413CF42FDF31}';
RID_PresupuestosCliente = '{1A1E5F0C-CE49-4D41-A724-1983AB59CBDC}';
RID_CapitulosPresupuesto = '{6661C54C-E40A-4951-B048-96586EE3AA6B}';
RID_PresupuestosCliente_Detalles = '{97D6EAE0-93C9-4BF4-8E35-B51AB572428B}';
RID_Valores = '{5F56032E-EEAF-4F35-807F-339687DA4C3D}';
RID_Propiedades = '{6DAF74B6-95E2-40ED-B7C7-DB4009DB3D03}';
RID_ListaAnosPresupuestos = '{3FA6E704-A7C6-491C-9C3B-0999E740BC70}';
RID_PresupuestosCliente = '{139F3889-639B-4A29-BB2A-4B71E8FDF8C6}';
RID_CapitulosPresupuesto = '{514AC745-5BE2-4BE9-BE2D-1ED90C3E2EAB}';
RID_PresupuestosCliente_Detalles = '{C3BFA4AA-E2D0-422C-9719-A60174F14E88}';
{ Data table names }
nme_Valores = 'Valores';
@ -99,6 +99,7 @@ const
fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO';
fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO';
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
fld_PresupuestosClientePRECIO_PUNTO = 'PRECIO_PUNTO';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@ -145,6 +146,7 @@ const
idx_PresupuestosClienteREF_CONTRATO = 41;
idx_PresupuestosClienteNO_VALORADO = 42;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 43;
idx_PresupuestosClientePRECIO_PUNTO = 44;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@ -215,7 +217,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{D282ECEC-B93F-4EA3-ABFA-A965C3757F91}']
['{670D3888-6429-47B8-8455-159086F1ECF7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -310,7 +312,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{E198EC3C-9CF6-49F8-B5C3-249BE63015FA}']
['{940A23E0-6D21-491D-8E87-88B7883B3C4B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -357,7 +359,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{622A6F88-A7CA-4CEA-BAFD-E442F4381D6B}']
['{ACB200CC-9FAD-44BE-8B57-22626A61CC99}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -392,7 +394,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{5453A9D9-9D4E-45A0-B568-6230714F144E}']
['{58114EC0-EC49-4B46-8FB2-F32EB8833AA9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -566,6 +568,10 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String);
function GetTIPO_PRESUPUESTOIsNull: 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 }
@ -657,6 +663,8 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
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;
{ TPresupuestosClienteDataTableRules }
@ -844,6 +852,10 @@ type
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); virtual;
function GetTIPO_PRESUPUESTOIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -934,6 +946,8 @@ type
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property TIPO_PRESUPUESTO: String read GetTIPO_PRESUPUESTOValue write SetTIPO_PRESUPUESTOValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -943,7 +957,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{00C195F2-9264-45E8-BC16-E58B3A124BF4}']
['{18784E71-D92D-4F74-8EBC-D59F926081B3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1110,7 +1124,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{18A3A177-29EF-45FC-8198-A8BB9F8EAC46}']
['{8E8B0B14-5D7E-4923-856C-0A805EA8A85D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2521,6 +2535,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteTIPO_PRESUPUESTO].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}';
RID_PropiedadesDelta = '{E07D5389-62DE-43D8-BAAE-2F6B04B93095}';
RID_ListaAnosPresupuestosDelta = '{1E840130-4E9F-4E9D-8029-856D45DB6840}';
RID_PresupuestosClienteDelta = '{3AADD78B-C307-4D80-8720-66E9EDBD28E8}';
RID_CapitulosPresupuestoDelta = '{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}';
RID_PresupuestosCliente_DetallesDelta = '{B1775824-481D-4B82-9DC5-4FC61FE98E4B}';
RID_ValoresDelta = '{F274CECD-D4A1-4F9E-9984-A9E181EB926C}';
RID_PropiedadesDelta = '{D0789EF0-033D-42C8-9CF4-8A35D110AA2F}';
RID_ListaAnosPresupuestosDelta = '{B8F35DF9-1BD8-4AA7-85AA-08D9E3DB0A92}';
RID_PresupuestosClienteDelta = '{87557135-9370-434A-8914-DAB7F45D282F}';
RID_CapitulosPresupuestoDelta = '{CAE568BC-6540-432A-854F-547D862130B6}';
RID_PresupuestosCliente_DetallesDelta = '{6FD0E65A-FEB4-434C-9DDC-0CBC150DE5BD}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}']
['{F274CECD-D4A1-4F9E-9984-A9E181EB926C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{E07D5389-62DE-43D8-BAAE-2F6B04B93095}']
['{D0789EF0-033D-42C8-9CF4-8A35D110AA2F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{1E840130-4E9F-4E9D-8029-856D45DB6840}']
['{B8F35DF9-1BD8-4AA7-85AA-08D9E3DB0A92}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{3AADD78B-C307-4D80-8720-66E9EDBD28E8}']
['{87557135-9370-434A-8914-DAB7F45D282F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -239,6 +239,7 @@ type
function GetOldREF_CONTRATOValue : String;
function GetOldNO_VALORADOValue : SmallInt;
function GetOldTIPO_PRESUPUESTOValue : String;
function GetOldPRECIO_PUNTOValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -285,6 +286,7 @@ type
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@ -560,6 +562,12 @@ type
function GetOldTIPO_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetTIPO_PRESUPUESTOValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -738,6 +746,10 @@ type
property TIPO_PRESUPUESTOIsNull : Boolean read GetTIPO_PRESUPUESTOIsNull write SetTIPO_PRESUPUESTOIsNull;
property OldTIPO_PRESUPUESTO : String read GetOldTIPO_PRESUPUESTOValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -747,7 +759,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}']
['{CAE568BC-6540-432A-854F-547D862130B6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -913,7 +925,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{B1775824-481D-4B82-9DC5-4FC61FE98E4B}']
['{6FD0E65A-FEB4-434C-9DDC-0CBC150DE5BD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -2858,6 +2870,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteTIPO_PRESUPUESTO] := Null;
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 }
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;
// 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;
PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_PRESUPUESTO := DateOf(Date);
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
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'PRECIO_PUNTO'
TableField = 'PRECIO_PUNTO'
end>
end>
Name = 'PresupuestosCliente'
@ -550,6 +554,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end>
end
item
@ -1054,6 +1062,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end>
Statements = <
item
@ -1069,17 +1082,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'ETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPO' +
'NIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECAR' +
'GO_EQUIVALENCIA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VEN' +
'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES' +
#10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA' +
', :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENTE,'#10' :SITUA' +
'CION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA' +
'_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCID' +
'ENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMP' +
'ORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE' +
', :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECA' +
'RGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :I' +
'D_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10 +
' '#10#10#10#10#10
'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO, PRECIO_P' +
'UNTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :' +
'FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENT' +
'E,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACT' +
'O,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' +
'S,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPO' +
'RTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :' +
'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMP' +
'ORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, ' +
':ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO' +
'_PRESUPUESTO, :PRECIO_PUNTO)'#10' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1283,6 +1296,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
Value = ''
end
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1311,7 +1329,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'E_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :I' +
'D_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_' +
'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
ColumnMappings = <>
end>

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

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

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

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

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

@ -20,7 +20,7 @@ uses
uViewDocumentos,
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls,
cxGraphics, cxMaskEdit, cxDropDownEdit;
cxGraphics, cxMaskEdit, cxDropDownEdit, cxCurrencyEdit;
type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@ -40,6 +40,7 @@ type
frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
frViewTotales1: TfrViewTotalesPresupuesto;
frViewPresupuestoCliente1: TfrViewPresupuestoCliente;
actRecalcularPrecioPunto: TAction;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -53,10 +54,16 @@ type
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
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
procedure RecalcularPortePorUnidad;
procedure frViewDetallesPresupuestoCliente1edtPrecioPuntoPropertiesEditValueChanged(
Sender: TObject);
protected
FPresupuesto: IBizPresupuestoCliente;
@ -103,7 +110,7 @@ type
implementation
uses
uDialogOpcionesImpresionPresupuestosCliente, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
Dialogs, uDialogOpcionesImpresionPresupuestosCliente, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
{$R *.dfm}
@ -132,6 +139,21 @@ begin
(Sender as TAction).Enabled := HayDatos;
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);
begin
inherited;
@ -144,6 +166,10 @@ procedure TfEditorPresupuestoCliente.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
//GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
@ -181,10 +207,29 @@ begin
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := onPrecioPuntoPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := OnPrecioPuntoPropertiesEditValueChanged;
pgPaginas.ActivePage := pagGeneral;
Presupuesto.DataTable.Active := True;
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(
Sender: TObject);
begin
@ -315,6 +360,12 @@ begin
end;
end;
procedure TfEditorPresupuestoCliente.OnPrecioPuntoPropertiesEditValueChanged(Sender: TObject);
begin
actRecalcularPrecioPunto.Execute;
end;
procedure TfEditorPresupuestoCliente.OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
@ -437,6 +488,7 @@ begin
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
try
FViewPresupuesto.Presupuesto := FPresupuesto;
Controller.DetallesController.PrecioPunto := FPresupuesto.PRECIO_PUNTO;
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
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
Width = 1056
Height = 588
inherited ToolBar1: TToolBar
Width = 1056
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 145
ExplicitLeft = 145
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 187
ExplicitLeft = 187
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 204
ExplicitLeft = 204
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 212
ExplicitLeft = 212
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 246
ExplicitLeft = 246
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 280
ExplicitLeft = 280
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 314
ExplicitLeft = 314
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 322
ExplicitLeft = 322
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 356
ExplicitLeft = 356
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 390
ExplicitLeft = 390
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 1056
Height = 538
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
@ -125,8 +153,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 1056
inherited TBXToolbar1: TTBXToolbar
DockPos = 0
ExplicitWidth = 753
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText
@ -171,6 +202,41 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Action = actAsignarDescuento
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
object cxLookupComboBox1: TcxLookupComboBox [3]
Left = 78

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

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

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

@ -1,18 +1,41 @@
inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
Height = 247
ExplicitHeight = 247
Width = 861
Height = 446
ExplicitWidth = 861
ExplicitHeight = 446
inherited dxLayoutControl1: TdxLayoutControl
Width = 861
ExplicitWidth = 451
inherited Bevel3: TBevel
Left = 405
Top = 55
Height = 122
ExplicitLeft = 405
ExplicitTop = 55
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 517
Top = 86
Width = 210
ExplicitLeft = 517
ExplicitTop = 86
ExplicitWidth = 210
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
Top = 82
Style.IsFontAssigned = True
@ -22,17 +45,21 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 588
Top = 106
Style.IsFontAssigned = True
TabOrder = 10
TabOrder = 11
ExplicitLeft = 588
ExplicitTop = 106
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 518
Top = 187
Style.IsFontAssigned = True
TabOrder = 15
TabOrder = 16
ExplicitLeft = 518
ExplicitTop = 187
ExplicitWidth = 137
Width = 137
@ -44,40 +71,56 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitTop = 82
end
inherited edtIVA: TcxDBSpinEdit
Left = 517
Top = 106
Style.IsFontAssigned = True
TabOrder = 9
TabOrder = 10
ExplicitLeft = 517
ExplicitTop = 106
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 517
Top = 55
Style.IsFontAssigned = True
TabOrder = 8
TabOrder = 9
ExplicitLeft = 517
ExplicitTop = 55
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Top = 160
Style.IsFontAssigned = True
TabOrder = 13
ExplicitTop = 160
end
inherited edtIRPF: TcxDBSpinEdit
Style.IsFontAssigned = True
TabOrder = 11
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 517
Top = 160
Style.IsFontAssigned = True
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
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 588
Top = 133
Style.IsFontAssigned = True
TabOrder = 12
TabOrder = 13
ExplicitLeft = 588
ExplicitTop = 133
ExplicitWidth = 56
Width = 56
end
@ -89,21 +132,6 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitWidth = 147
Width = 147
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]
Left = 10
Top = 10
@ -130,9 +158,26 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
TabOrder = 0
Width = 207
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
Left = 257
Top = 136
TabOrder = 6
ExplicitLeft = 257
ExplicitTop = 136
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -142,6 +187,35 @@ inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
ExplicitWidth = 219
Width = 219
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
object cxValorado: TdxLayoutItem [0]
ShowCaption = False

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

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

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -135,15 +135,15 @@ uses
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_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 ..\Servicios\RODLFile.res}

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,10 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">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><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.