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>
<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>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,54 +58,54 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dclIndyCore.dcp" />
<DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\IndyCore.dcp" />
<DCCReference Include="$(SystemRoot)\system32\IndyProtocols.dcp" />
<DCCReference Include="$(SystemRoot)\system32\IndySystem.dcp" />
<DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCmpD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvDlgsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvNetD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\pckMD5.dcp" />
<DCCReference Include="$(SystemRoot)\system32\pckUCDataConnector.dcp" />
<DCCReference Include="$(SystemRoot)\system32\pckUserControl_RT.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PluginSDK_D11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\TB2k_D10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="$(SystemRoot)\system32\VclSmp.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

11
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,16 @@
<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">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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<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="$(SystemRoot)\system32\Base.dcp" />
<DCCReference Include="$(SystemRoot)\system32\ccpackD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\frx11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\frxe11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\fs11.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvAppFrmD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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
object JvNavPanelHeader: TJvNavPanelHeader
Left = 0
Top = 49
Top = 51
Width = 946
Align = alTop
Caption = 'Editor'
@ -37,6 +37,7 @@ object fEditorBase: TfEditorBase
ImageIndex = 0
StyleManager = dmBase.StyleManager
ParentStyleManager = False
ExplicitTop = 49
object Image1: TImage
Left = 919
Top = 0
@ -71,10 +72,10 @@ object fEditorBase: TfEditorBase
Left = 0
Top = 0
Width = 946
Height = 49
Height = 51
object tbxMain: TTBXToolbar
Left = 0
Top = 23
Top = 25
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks

15
Source/GUIBase/uEditorBase.pas
View File

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

2
Source/GUIBase/uEditorDBBase.dfm
View File

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

48
Source/GUIBase/uEditorDBItem.dfm
View File

@ -4,24 +4,57 @@ inherited fEditorDBItem: TfEditorDBItem
Caption = 'fEditorDBItem'
ClientHeight = 459
ClientWidth = 650
ExplicitWidth = 658
ExplicitHeight = 493
ExplicitWidth = 666
ExplicitHeight = 497
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 650
ExplicitTop = 51
ExplicitWidth = 650
inherited Image1: TImage
Left = 623
ExplicitLeft = 627
ExplicitHeight = 19
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
inherited TBXDock: TTBXDock
Width = 650
ExplicitWidth = 650
inherited tbxMain: TTBXToolbar
ExplicitWidth = 650
ExplicitWidth = 647
inherited TBXItem26: TTBXItem
Visible = False
end
@ -77,14 +110,12 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3]
AlignWithMargins = True
Left = 3
Top = 112
Top = 111
Width = 644
Height = 325
Height = 326
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
@ -95,7 +126,7 @@ inherited fEditorDBItem: TfEditorDBItem
end
object PnlComentario: TPanel [4]
Left = 0
Top = 79
Top = 78
Width = 650
Height = 30
Align = alTop
@ -105,7 +136,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False
TabOrder = 4
VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel
AlignWithMargins = True
Left = 6

23
Source/GUIBase/uEditorDBItem.pas
View File

@ -9,7 +9,8 @@ uses
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
uViewBase, JvAppStorage, JvAppRegistryStorage, ExtCtrls, uDAInterfaces,
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage;
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage,
cxControls, cxContainer, cxEdit, cxLabel;
type
IEditorDBItem = interface(IEditorDBBase)
@ -25,6 +26,8 @@ type
imgStatus: TImage;
PnlComentario: TPanel;
lbComentario: TLabel;
lblDesbloquear: TcxLabel;
procedure lblDesbloquearClick(Sender: TObject);
protected
FComentario: Variant;
@ -42,7 +45,7 @@ type
implementation
uses
uEditorBase, uDialogUtils;
uEditorBase, uDialogUtils, uDataTableUtils;
{$R *.dfm}
@ -80,6 +83,22 @@ begin
Result := FComentario;
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);
begin
FComentario := Value;

19
Source/GUIBase/uViewBase.pas
View File

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

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

@ -24,17 +24,17 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited tbxMain: TTBXToolbar
Align = alLeft
DockPos = -6
ExplicitWidth = 142
ExplicitWidth = 139
inherited TBXItem36: TTBXItem
Action = actAnchoAuto2
end
end
inherited tbxFiltro: TTBXToolbar
Left = 84
Left = 101
Align = alLeft
DockPos = 101
DockRow = 1
ExplicitLeft = 84
ExplicitLeft = 101
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
end
@ -43,11 +43,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 656
end
inherited TBXTMain2: TTBXToolbar
Left = 304
Left = 317
DockPos = 536
DockRow = 1
Visible = False
ExplicitLeft = 304
ExplicitLeft = 317
end
end
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;
var
AContratoFabrica : IBizContratoCliente;
AFormasPago : IBizFormaPago;
AFormasPagoController : IFormasPagoController;
begin
Result := false;
AFormasPagoController := TFormasPagoController.Create;
ShowHourglassCursor;
try
@ -1622,9 +1626,16 @@ begin
TELEFONO := AContratoFabrica.Cliente.TELEFONO_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;
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.IDIOMA_ISO := AContratoFabrica.Cliente.IDIOMA_ISO;
AContratoFabrica.IDIOMA := AContratoFabrica.Cliente.IDIOMA;
@ -1651,6 +1662,8 @@ begin
end;
finally
AFormasPago:= Nil;
AFormasPagoController := Nil;
HideHourglassCursor;
end;
end;

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

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

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

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

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

@ -263,6 +263,18 @@ begin
if not Assigned(Contrato) then
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;
//PRECIO_PUNTO EVENTOS

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

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

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

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

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

@ -60,8 +60,8 @@ type
frxDBInforme347FacturasProveedor: TfrxDBDataset;
DADSInforme347FacturasProveedor: TDADataSource;
tbl_Informe347FacturasProveedor: TDAMemDataTable;
schReport: TDASchema;
frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
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.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">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.