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

Se adaptan informes a la LOPD europea

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@133 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2018-05-28 15:36:40 +00:00
parent a8336c59e1
commit faffe612f3
23 changed files with 461 additions and 416 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.

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

14
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

24
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

18
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/3/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

14
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -569,47 +569,59 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 1003
inherited Bevel3: TBevel
Left = 379
Left = 469
Top = 57
ExplicitLeft = 379
Height = 122
ExplicitLeft = 469
ExplicitTop = 57
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 491
Left = 581
Top = 88
Width = 342
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 88
ExplicitWidth = 342
end
inherited Bevel2: TBevel
Top = 242
ExplicitTop = 242
Top = 216
Width = 333
ExplicitTop = 216
ExplicitWidth = 333
end
inherited Bevel1: TBevel
Left = 398
Left = 488
Top = 216
ExplicitLeft = 398
Width = 332
ExplicitLeft = 488
ExplicitTop = 216
ExplicitWidth = 332
end
inherited ImporteDto: TcxDBCurrencyEdit
Top = 84
Style.IsFontAssigned = True
ExplicitTop = 84
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562
Left = 652
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 562
ExplicitLeft = 652
ExplicitTop = 108
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492
Left = 582
Top = 189
Style.IsFontAssigned = True
ExplicitLeft = 492
ExplicitLeft = 582
ExplicitTop = 189
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Top = 84
@ -617,51 +629,59 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84
end
inherited edtIVA: TcxDBSpinEdit
Left = 491
Left = 581
Top = 108
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 108
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 491
Left = 581
Top = 57
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 57
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 491
Left = 581
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
Left = 491
Left = 581
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 135
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 562
Left = 652
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 562
ExplicitLeft = 652
ExplicitTop = 162
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 562
Left = 652
Top = 135
Style.IsFontAssigned = True
ExplicitLeft = 562
ExplicitLeft = 652
ExplicitTop = 135
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57
Style.IsFontAssigned = True
ExplicitTop = 57
ExplicitWidth = 147
Width = 147
end
inherited cbValorado: TcxDBCheckBox
Left = 11
@ -676,43 +696,53 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 231
Left = 321
Top = 138
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 231
ExplicitLeft = 321
ExplicitTop = 138
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 219
Width = 219
end
inherited edtRetencion: TcxDBSpinEdit
Left = 491
Left = 581
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 491
ExplicitLeft = 581
ExplicitTop = 231
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 562
Left = 652
Top = 231
Style.IsFontAssigned = True
ExplicitLeft = 562
ExplicitLeft = 652
ExplicitTop = 231
ExplicitWidth = 342
Width = 342
end
inherited edtFechaRetencion: TcxDBDateEdit
Top = 257
Top = 231
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 257
ExplicitTop = 231
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited cxValorado: TdxLayoutItem

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

@ -86,6 +86,7 @@ type
procedure ImprimirInterno; override;
procedure GuardarInterno; override;
procedure EliminarInterno; override;
procedure RefrescarInterno; override;
property ViewPresupuesto: IViewPresupuestoCliente read GetViewPresupuesto write SetViewPresupuesto;
@ -468,6 +469,20 @@ begin
Controller.DetallesController.DesglosarPorteDetalles(FPresupuesto.IMPORTE_PORTE, FPresupuesto.Detalles)
end;
procedure TfEditorPresupuestoCliente.RefrescarInterno;
begin
//PRECIO_PUNTO EVENTOS
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
inherited;
//PRECIO_PUNTO EVENTOS
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := onPrecioPuntoPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := OnPrecioPuntoPropertiesEditValueChanged;
end;
procedure TfEditorPresupuestoCliente.SetController(const Value: IPresupuestosClienteController);
begin
FController := Value;

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

@ -402,7 +402,8 @@ begin
inherited;
APresupuesto := FController.Duplicar(Presupuestos);
//Recalculamos el presupuesto copiado con el precio punto actual
// FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
if (ShowConfirmMessage('Desea cambiar el precio punto por el actual, 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?') = IDYES) then
FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
FController.Ver(APresupuesto);
finally
HideHourglassCursor;

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,7 +29,6 @@
<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">3</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.3.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.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de abril de 2018 17:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.