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

cambios varios solicitados en reunion

Browse Source
This commit is contained in:
Roberto 2025-02-26 12:43:56 +01:00
parent c0b648df4c
commit cee5e36166
26 changed files with 297 additions and 204 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/ApplicationBase/Idiomas/Controller/uIdiomasController.dcu
View File

Binary file not shown.

BIN
Source/ApplicationBase/Idiomas/Model/uBizIdiomas.dcu
View File

Binary file not shown.

BIN
Source/ApplicationBase/Idiomas/Model/uBizIdiomasServer.dcu
View File

Binary file not shown.

103
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,54 +58,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" /> <DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" /> <DCCReference Include="$(SystemRoot)\system32\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" /> <DCCReference Include="$(SystemRoot)\system32\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" /> <DCCReference Include="$(SystemRoot)\system32\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" /> <DCCReference Include="$(SystemRoot)\system32\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="$(SystemRoot)\system32\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="$(SystemRoot)\system32\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" /> <DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" /> <DCCReference Include="$(SystemRoot)\system32\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" /> <DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" /> <DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

11
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,16 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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">4.7.6.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">4.7.6.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">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

7
Source/GUIBase/uEditorBase.dfm
View File

@ -22,7 +22,7 @@ object fEditorBase: TfEditorBase
TextHeight = 13 TextHeight = 13
object JvNavPanelHeader: TJvNavPanelHeader object JvNavPanelHeader: TJvNavPanelHeader
Left = 0 Left = 0
Top = 49 Top = 51
Width = 946 Width = 946
Align = alTop Align = alTop
Caption = 'Editor' Caption = 'Editor'
@ -37,6 +37,7 @@ object fEditorBase: TfEditorBase
ImageIndex = 0 ImageIndex = 0
StyleManager = dmBase.StyleManager StyleManager = dmBase.StyleManager
ParentStyleManager = False ParentStyleManager = False
ExplicitTop = 49
object Image1: TImage object Image1: TImage
Left = 919 Left = 919
Top = 0 Top = 0
@ -71,10 +72,10 @@ object fEditorBase: TfEditorBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 946 Width = 946
Height = 49 Height = 51
object tbxMain: TTBXToolbar object tbxMain: TTBXToolbar
Left = 0 Left = 0
Top = 23 Top = 25
Caption = 'tbxMain' Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|' ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloatOrChangeDocks

15
Source/GUIBase/uEditorBase.pas
View File

@ -463,13 +463,14 @@ var
i: integer; i: integer;
begin begin
inherited; inherited;
if (csLoading in Self.ComponentState) then
if ReadOnly then Exit;
for i:=0 to Self.ComponentCount-1 do
begin for i:=0 to Self.ComponentCount-1 do
If Self.Components[i] Is TfrViewBase then begin
(Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly if Self.Components[i] is TfrViewBase then
end; (Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly
end
end; end;
procedure TfEditorBase.Show; procedure TfEditorBase.Show;

2
Source/GUIBase/uEditorDBBase.dfm
View File

@ -4,7 +4,7 @@ inherited fEditorDBBase: TfEditorDBBase
Caption = 'fEditorDBBase' Caption = 'fEditorDBBase'
ClientHeight = 454 ClientHeight = 454
ClientWidth = 646 ClientWidth = 646
ExplicitWidth = 654 ExplicitWidth = 662
ExplicitHeight = 492 ExplicitHeight = 492
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13

48
Source/GUIBase/uEditorDBItem.dfm
View File

@ -4,24 +4,57 @@ inherited fEditorDBItem: TfEditorDBItem
Caption = 'fEditorDBItem' Caption = 'fEditorDBItem'
ClientHeight = 459 ClientHeight = 459
ClientWidth = 650 ClientWidth = 650
ExplicitWidth = 658 ExplicitWidth = 666
ExplicitHeight = 493 ExplicitHeight = 497
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 650 Width = 650
ExplicitTop = 51
ExplicitWidth = 650 ExplicitWidth = 650
inherited Image1: TImage inherited Image1: TImage
Left = 623 Left = 623
ExplicitLeft = 627 ExplicitLeft = 627
ExplicitHeight = 19 ExplicitHeight = 19
end end
object lblDesbloquear: TcxLabel
AlignWithMargins = True
Left = 525
Top = 0
Margins.Left = 8
Margins.Top = 0
Margins.Right = 8
Margins.Bottom = 0
Align = alRight
AutoSize = False
Caption = 'Desbloquear'
Enabled = False
ParentFont = False
Style.HotTrack = True
Style.LookAndFeel.NativeStyle = False
Style.TextColor = clWindow
StyleDisabled.LookAndFeel.NativeStyle = False
StyleFocused.BorderStyle = ebsNone
StyleFocused.LookAndFeel.NativeStyle = False
StyleHot.BorderStyle = ebsNone
StyleHot.LookAndFeel.NativeStyle = False
StyleHot.TextStyle = [fsUnderline]
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
Transparent = True
Visible = False
OnClick = lblDesbloquearClick
Height = 27
Width = 90
AnchorX = 570
AnchorY = 14
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 650 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 650 ExplicitWidth = 647
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end
@ -77,14 +110,12 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 112 Top = 111
Width = 644 Width = 644
Height = 325 Height = 326
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -95,7 +126,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
object PnlComentario: TPanel [4] object PnlComentario: TPanel [4]
Left = 0 Left = 0
Top = 79 Top = 78
Width = 650 Width = 650
Height = 30 Height = 30
Align = alTop Align = alTop
@ -105,7 +136,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 Left = 6

23
Source/GUIBase/uEditorDBItem.pas
View File

@ -9,7 +9,8 @@ uses
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
uViewBase, JvAppStorage, JvAppRegistryStorage, ExtCtrls, uDAInterfaces, uViewBase, JvAppStorage, JvAppRegistryStorage, ExtCtrls, uDAInterfaces,
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage; JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage,
cxControls, cxContainer, cxEdit, cxLabel;
type type
IEditorDBItem = interface(IEditorDBBase) IEditorDBItem = interface(IEditorDBBase)
@ -25,6 +26,8 @@ type
imgStatus: TImage; imgStatus: TImage;
PnlComentario: TPanel; PnlComentario: TPanel;
lbComentario: TLabel; lbComentario: TLabel;
lblDesbloquear: TcxLabel;
procedure lblDesbloquearClick(Sender: TObject);
protected protected
FComentario: Variant; FComentario: Variant;
@ -42,7 +45,7 @@ type
implementation implementation
uses uses
uEditorBase, uDialogUtils; uEditorBase, uDialogUtils, uDataTableUtils;
{$R *.dfm} {$R *.dfm}
@ -80,6 +83,22 @@ begin
Result := FComentario; Result := FComentario;
end; end;
procedure TfEditorDBItem.lblDesbloquearClick(Sender: TObject);
begin
inherited;
if (ShowConfirmMessage('¿Desbloquear los datos para permitir cambios?', 'Actualmente, los datos de esta ficha no se pueden modificar.' + #13#10 +
'Temporalmente puede desbloquear la ficha para realizar cambios puntuales. ¿Desea continuar?') = IDYES) then
begin
lblDesbloquear.Visible := False;
lblDesbloquear.Enabled := False;
SetDataTableReadOnly(dsDataTable.DataTable, False);
Self.ReadOnly := False;
ActualizarEstadoEditor;
end;
end;
procedure TfEditorDBItem.SetComentario(const Value: Variant); procedure TfEditorDBItem.SetComentario(const Value: Variant);
begin begin
FComentario := Value; FComentario := Value;

19
Source/GUIBase/uViewBase.pas
View File

@ -40,17 +40,18 @@ var
i: integer; i: integer;
begin begin
inherited; inherited;
if (csLoading in Self.ComponentState) then
Exit;
if ReadOnly then for i:=0 to Self.ComponentCount-1 do
for i:=0 to Self.ComponentCount-1 do begin
begin if (Self.Components[i] is TfrViewBase) then
If (Self.Components[i] Is TfrViewBase) then (Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly;
(Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly;
If (Self.Components[i] Is TcxControl) if (Self.Components[i] is TcxControl)
and (not (Self.Components[i] Is TdxLayoutControl)) then and (not (Self.Components[i] Is TdxLayoutControl)) then
(Self.Components[i] as TcxControl).Enabled := not ReadOnly; (Self.Components[i] as TcxControl).Enabled := not Self.ReadOnly;
end; end;
end; end;
end. end.

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

@ -24,17 +24,17 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alLeft Align = alLeft
DockPos = -6 DockPos = -6
ExplicitWidth = 142 ExplicitWidth = 139
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 84 Left = 101
Align = alLeft Align = alLeft
DockPos = 101 DockPos = 101
DockRow = 1 DockRow = 1
ExplicitLeft = 84 ExplicitLeft = 101
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
@ -43,11 +43,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 304 Left = 317
DockPos = 536 DockPos = 536
DockRow = 1 DockRow = 1
Visible = False Visible = False
ExplicitLeft = 304 ExplicitLeft = 317
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

15
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -1561,9 +1561,13 @@ end;
function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean; function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean;
var var
AContratoFabrica : IBizContratoCliente; AContratoFabrica : IBizContratoCliente;
AFormasPago : IBizFormaPago;
AFormasPagoController : IFormasPagoController;
begin begin
Result := false; Result := false;
AFormasPagoController := TFormasPagoController.Create;
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -1622,9 +1626,16 @@ begin
TELEFONO := AContratoFabrica.Cliente.TELEFONO_1; TELEFONO := AContratoFabrica.Cliente.TELEFONO_1;
MOVIL := AContratoFabrica.Cliente.MOVIL_1; MOVIL := AContratoFabrica.Cliente.MOVIL_1;
//LA DIRECCIÖN DE ENVIO SE MANTIENE LA COPIADA DEL CLIENTE FINAL //FORMA DE PAGO DEL CLIENTE GRADEN/GUNNI Y COMERCIALES ASOCIADOS
AContratoFabrica.ID_AGENTE := AContratoFabrica.Cliente.ID_AGENTE;
AContratoFabrica.NOMBRE_AGENTE := AContratoFabrica.Cliente.AGENTE;
AContratoFabrica.DELEGACION := AContratoFabrica.Cliente.DELEGACION;
AContratoFabrica.ID_FORMA_PAGO := AContratoFabrica.Cliente.ID_FORMA_PAGO; AContratoFabrica.ID_FORMA_PAGO := AContratoFabrica.Cliente.ID_FORMA_PAGO;
AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO);
AFormasPago.Open;
AContratoFabrica.FORMA_PAGO.Add(AFormasPago.DESCRIPCION);
AContratoFabrica.ID_TIPO_IVA := AContratoFabrica.Cliente.ID_TIPO_IVA; AContratoFabrica.ID_TIPO_IVA := AContratoFabrica.Cliente.ID_TIPO_IVA;
AContratoFabrica.IDIOMA_ISO := AContratoFabrica.Cliente.IDIOMA_ISO; AContratoFabrica.IDIOMA_ISO := AContratoFabrica.Cliente.IDIOMA_ISO;
AContratoFabrica.IDIOMA := AContratoFabrica.Cliente.IDIOMA; AContratoFabrica.IDIOMA := AContratoFabrica.Cliente.IDIOMA;
@ -1651,6 +1662,8 @@ begin
end; end;
finally finally
AFormasPago:= Nil;
AFormasPagoController := Nil;
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;

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

@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -319,7 +319,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores) TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -378,7 +378,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -425,7 +425,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -544,7 +544,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1079,7 +1079,7 @@ type
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -1571,7 +1571,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1744,7 +1744,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

136
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -5,14 +5,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ClientHeight = 649 ClientHeight = 649
ClientWidth = 1334 ClientWidth = 1334
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 1342 ExplicitWidth = 1350
ExplicitHeight = 687 ExplicitHeight = 687
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 1334 Width = 1334
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ExplicitTop = 52
ExplicitWidth = 1334 ExplicitWidth = 1334
inherited Image1: TImage inherited Image1: TImage
Left = 1307 Left = 1307
@ -125,12 +124,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
960000000049454E44AE426082} 960000000049454E44AE426082}
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel
Left = 1209
ExplicitLeft = 1209
AnchorX = 1254
AnchorY = 14
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 1334 Width = 1334
ExplicitWidth = 1334 ExplicitWidth = 1334
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 551 ExplicitWidth = 518
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -174,17 +179,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 1328 Width = 1328
Height = 321 Height = 322
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 1328 ExplicitWidth = 1328
ExplicitHeight = 321 ExplicitHeight = 322
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 293 ExplicitHeight = 294
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -193,7 +197,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1320 Width = 1320
Height = 293 Height = 294
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -206,20 +210,33 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 293 ExplicitHeight = 294
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 1320 Width = 1320
Height = 24 Height = 24
ButtonWidth = 110
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 24 ExplicitHeight = 24
inherited ToolButton4: TToolButton inherited ToolButton1: TToolButton
Wrap = False ExplicitWidth = 109
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 109
Top = 0 ExplicitLeft = 109
ExplicitLeft = 334 end
ExplicitTop = 0 inherited ToolButton2: TToolButton
Left = 143
ExplicitLeft = 143
ExplicitWidth = 114
end
inherited ToolButton3: TToolButton
Left = 257
ExplicitLeft = 257
end
inherited ToolButton4: TToolButton
Left = 312
Wrap = False
ExplicitLeft = 312
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368 Left = 368
@ -230,73 +247,73 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 513 Left = 513
Top = 0 Top = 0
Width = 108 Width = 124
ExplicitLeft = 513 ExplicitLeft = 513
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 108 ExplicitWidth = 124
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown [7]
Left = 621 Left = 637
Top = 0 Top = 0
ExplicitLeft = 621 ExplicitLeft = 637
ExplicitTop = 0
end
inherited ToolButton6: TToolButton [8]
Left = 654
Top = 0
ExplicitLeft = 654
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 638 Left = 688
Top = 0 Top = 0
ExplicitLeft = 638 ExplicitLeft = 688
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 646
Top = 0
ExplicitLeft = 646
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 680 Left = 696
Top = 0 Top = 0
ExplicitLeft = 680 ExplicitLeft = 696
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 714 Left = 730
Top = 0 Top = 0
ExplicitLeft = 714 ExplicitLeft = 730
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 748
Top = 0
ExplicitLeft = 748
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 756 Left = 764
Top = 0 Top = 0
ExplicitLeft = 756 ExplicitLeft = 764
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 798
Top = 0
ExplicitLeft = 798
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 790 Left = 806
Top = 0 Top = 0
ExplicitLeft = 790 ExplicitLeft = 806
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 824 Left = 840
Top = 0 Top = 0
ExplicitLeft = 824 ExplicitLeft = 840
ExplicitTop = 0 ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 1320 Width = 1320
Height = 243 Height = 244
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 243 ExplicitHeight = 244
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPROPIEDAD: TcxGridDBColumn inherited cxGridViewPROPIEDAD: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
@ -312,7 +329,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 1042 Left = 1042
DockPos = 1042 DockPos = 1042
ExplicitLeft = 1042 ExplicitLeft = 1042
ExplicitWidth = 130 ExplicitWidth = 122
inherited TBXLabelItem2: TTBXLabelItem inherited TBXLabelItem2: TTBXLabelItem
Caption = ' Descuento cap'#237'tulo' Caption = ' Descuento cap'#237'tulo'
end end
@ -322,7 +339,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
AutoResize = False AutoResize = False
DockPos = 2 DockPos = 2
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitWidth = 839 ExplicitWidth = 799
inherited TBXLabelItem1: TTBXLabelItem inherited TBXLabelItem1: TTBXLabelItem
Caption = ' Precio punto' Caption = ' Precio punto'
end end
@ -388,7 +405,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1320 Width = 1320
Height = 293 Height = 294
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -399,7 +416,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 293 ExplicitHeight = 294
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 1320 Width = 1320
ExplicitWidth = 1320 ExplicitWidth = 1320
@ -409,13 +426,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 1320 Width = 1320
Height = 265 Height = 266
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 265 ExplicitHeight = 266
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 1316 ExplicitWidth = 1316
ExplicitHeight = 248 ExplicitHeight = 249
Height = 248 Height = 249
Width = 1316 Width = 1316
end end
end end
@ -428,7 +445,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1320 Width = 1320
Height = 293 Height = 294
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -439,17 +456,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 293 ExplicitHeight = 294
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 1320 Width = 1320
ExplicitWidth = 1320 ExplicitWidth = 1320
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 1320 Width = 1320
Height = 267 Height = 269
ExplicitTop = 26 ExplicitTop = 25
ExplicitWidth = 1320 ExplicitWidth = 1320
ExplicitHeight = 267 ExplicitHeight = 269
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -460,7 +477,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 1334 Width = 1334
ExplicitTop = 79
ExplicitWidth = 1334 ExplicitWidth = 1334
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 1324 Width = 1324

12
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -263,6 +263,18 @@ begin
if not Assigned(Contrato) then if not Assigned(Contrato) then
raise Exception.Create('No hay ningún Contrato asignado'); raise Exception.Create('No hay ningún Contrato asignado');
//El usuario GERENCIA)
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_GERENCIA)
or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
begin
lblDesbloquear.Visible := True;
if Self.ReadOnly then
lblDesbloquear.Enabled := True
else
lblDesbloquear.Enabled := False;
end;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate; frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
//PRECIO_PUNTO EVENTOS //PRECIO_PUNTO EVENTOS

10
Source/Modulos/Contratos de cliente/Views/uEditorElegirArticulosContratoCliente.dfm
View File

@ -1,14 +1,6 @@
inherited fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosContratoCliente inherited fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosContratoCliente
Caption = 'fEditorElegirArticulosContratoCliente' Caption = 'fEditorElegirArticulosContratoCliente'
ExplicitWidth = 320
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited pnlHeader: TPanel
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 27
end
end
end end

8
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -813,8 +813,8 @@ object RptFacturasCliente: TRptFacturasCliente
SQL = SQL =
'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_PROVE' + 'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_PROVE' +
'EDOR, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SU' + 'EDOR, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SU' +
'M(BASE_IMPONIBLE) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_PROVE' + 'M(IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_PROVEE' +
'EDOR'#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10 'DOR'#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -909,8 +909,8 @@ object RptFacturasCliente: TRptFacturasCliente
SQL = SQL =
'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_CLIEN' + 'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_CLIEN' +
'TE, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SUM(' + 'TE, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SUM(' +
'BASE_IMPONIBLE) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_CLIENTE' + 'IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_CLIENTE'#10 +
#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10 'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

2
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -60,8 +60,8 @@ type
frxDBInforme347FacturasProveedor: TfrxDBDataset; frxDBInforme347FacturasProveedor: TfrxDBDataset;
DADSInforme347FacturasProveedor: TDADataSource; DADSInforme347FacturasProveedor: TDADataSource;
tbl_Informe347FacturasProveedor: TDAMemDataTable; tbl_Informe347FacturasProveedor: TDAMemDataTable;
schReport: TDASchema;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
private private

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,13 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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">4.7.6.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">4.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 16 de octubre de 2024 15:49</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">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 11 de diciembre de 2024 17:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.