Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 4.4.6

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@243 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2015-11-06 10:46:29 +00:00
parent 1983c0c468
commit b5508059d2
26 changed files with 396 additions and 192 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Views\Base.dcp" /> <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Views\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

130
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -125,115 +125,115 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitTop = 267 ExplicitTop = 267
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294
ExplicitWidth = 234
Width = 234
end
inherited eCodigoPostal: TcxDBTextEdit
Top = 321 Top = 321
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 234
Width = 234
end
inherited eCodigoPostal: TcxDBTextEdit
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 508 Left = 515
Top = 216 Top = 216
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 508 Left = 515
Top = 189 Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 508 Left = 515
Top = 162 Top = 162
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited cxDBMemo1: TcxDBMemo inherited cxDBMemo1: TcxDBMemo
Top = 399 Top = 426
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 399 ExplicitTop = 426
ExplicitWidth = 329 ExplicitWidth = 329
ExplicitHeight = 64 ExplicitHeight = 64
Height = 64 Height = 64
Width = 329 Width = 329
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 508 Left = 515
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 508 Left = 515
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 508 Left = 515
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 508 Left = 515
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 508 ExplicitLeft = 515
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
@ -269,13 +269,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 234 Width = 234
end end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 413 Left = 420
Top = 267 Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 413 ExplicitLeft = 420
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 230 ExplicitWidth = 230
ExplicitHeight = 142 ExplicitHeight = 142
@ -283,43 +283,53 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 230 Width = 230
end end
inherited eParamMargen: TcxDBSpinEdit inherited eParamMargen: TcxDBSpinEdit
Top = 243 Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 270
end end
inherited eParamTiempo: TcxDBCurrencyEdit inherited eParamTiempo: TcxDBCurrencyEdit
Top = 243 Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 270
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321
ExplicitWidth = 91
Width = 91
end
inherited cbPoblacion: TcxDBComboBox
Top = 348 Top = 348
Properties.OnInitPopup = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 91
Width = 91
end
inherited cbPoblacion: TcxDBComboBox
Top = 375
Properties.OnInitPopup = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited cbFormaPago: TcxComboBox inherited cbFormaPago: TcxComboBox
Top = 192
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 192
ExplicitWidth = 202
Width = 202
end
inherited cbTipoIVA: TcxComboBox
Top = 165 Top = 165
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -329,23 +339,23 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 202 ExplicitWidth = 202
Width = 202 Width = 202
end end
inherited cbTipoIVA: TcxComboBox inherited cbAlmacen: TcxComboBox
Top = 219
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 219
end
inherited eValidez: TcxDBSpinEdit
Top = 138 Top = 138
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 202 ExplicitWidth = 60
Width = 202 Width = 60
end
inherited cbAlmacen: TcxComboBox
Top = 192
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 192
end end
end end
end end
@ -378,6 +388,18 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 660 Width = 660
ExplicitWidth = 660 ExplicitWidth = 660
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

1
Source/ApplicationBase/Usuarios/Views/uEditorCambiarPassword.dfm
View File

@ -15,6 +15,7 @@ object fEditorCambiarPassword: TfEditorCambiarPassword
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Bevel4: TBevel object Bevel4: TBevel

8
Source/ApplicationBase/Usuarios/Views/uEditorCambiarPassword.pas
View File

@ -25,6 +25,7 @@ type
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
public public
Usuario : IBizUsuario; Usuario : IBizUsuario;
Controller : IUsuariosController; Controller : IUsuariosController;
@ -36,7 +37,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDialogUtils; uDialogUtils, uDisplayUtils;
procedure TfEditorCambiarPassword.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfEditorCambiarPassword.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -98,4 +99,9 @@ begin
end; end;
end; end;
procedure TfEditorCambiarPassword.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
end. end.

3
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

@ -44,7 +44,7 @@ type
implementation implementation
uses uses
uFactuGES_App, uDataModuleConexion; uFactuGES_App, uDataModuleConexion, uDisplayUtils;
{$R *.dfm} {$R *.dfm}
@ -110,6 +110,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject); procedure TfEditorLogin.FormShow(Sender: TObject);
begin begin
ScaleFormFont(Self);
Self.Caption := AppFactuGES.AppFullName; Self.Caption := AppFactuGES.AppFullName;
// JvFormStorage1.RestoreFormPlacement; Que se meta usuario y contraseña siempre // JvFormStorage1.RestoreFormPlacement; Que se meta usuario y contraseña siempre

3
Source/Base/Base.dpk
View File

@ -122,6 +122,7 @@ contains
RegExpr in 'Utiles\RegExpr.pas', RegExpr in 'Utiles\RegExpr.pas',
IBANMetrics in 'Utiles\TIBAN\IBANMetrics.pas', IBANMetrics in 'Utiles\TIBAN\IBANMetrics.pas',
IBAN in 'Utiles\TIBAN\IBAN.pas', IBAN in 'Utiles\TIBAN\IBAN.pas',
uIBANUtils in 'Utiles\uIBANUtils.pas'; uIBANUtils in 'Utiles\uIBANUtils.pas',
uDisplayUtils in 'Utiles\uDisplayUtils.pas';
end. end.

105
Source/Base/Base.dproj
View File

@ -54,58 +54,6 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas"> <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -138,14 +86,59 @@
<Form>dmBase</Form> <Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\ClipboardUtils.pas" /> <DCCReference Include="Utiles\ClipboardUtils.pas" />
<DCCReference Include="Utiles\Ctltortf.pas" /> <DCCReference Include="Utiles\Ctltortf.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExportD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxCoreD11.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\TB2k_D10.dcp" />
<DCCReference Include="Utiles\tbx_d10.dcp" />
<DCCReference Include="Utiles\TIBAN\IBAN.pas" /> <DCCReference Include="Utiles\TIBAN\IBAN.pas" />
<DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" /> <DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" /> <DCCReference Include="Utiles\uAppInfoUtils.pas" />
@ -154,6 +147,7 @@
<DCCReference Include="Utiles\uDateUtils.pas" /> <DCCReference Include="Utiles\uDateUtils.pas" />
<DCCReference Include="Utiles\uDBSelectionListUtils.pas" /> <DCCReference Include="Utiles\uDBSelectionListUtils.pas" />
<DCCReference Include="Utiles\uDialogUtils.pas" /> <DCCReference Include="Utiles\uDialogUtils.pas" />
<DCCReference Include="Utiles\uDisplayUtils.pas" />
<DCCReference Include="Utiles\uEMailUtils.pas" /> <DCCReference Include="Utiles\uEMailUtils.pas" />
<DCCReference Include="Utiles\uGridClipboardUtils.pas" /> <DCCReference Include="Utiles\uGridClipboardUtils.pas" />
<DCCReference Include="Utiles\uGridStatusUtils.pas" /> <DCCReference Include="Utiles\uGridStatusUtils.pas" />
@ -169,6 +163,13 @@
<DCCReference Include="Utiles\uSistemaFunc.pas" /> <DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" /> <DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\uValidacionUtils.pas" /> <DCCReference Include="Utiles\uValidacionUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

1
Source/Base/Conexion/uConfigurarConexion.dfm
View File

@ -14,6 +14,7 @@ object fConfigurarConexion: TfConfigurarConexion
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
Scaled = False Scaled = False
OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object bProbar: TButton object bProbar: TButton

8
Source/Base/Conexion/uConfigurarConexion.pas
View File

@ -18,6 +18,7 @@ type
bAceptar: TButton; bAceptar: TButton;
bCancelar: TButton; bCancelar: TButton;
procedure bProbarClick(Sender: TObject); procedure bProbarClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private private
function GetTargetURL: String; function GetTargetURL: String;
procedure SetTargetURL(const Value: String); procedure SetTargetURL(const Value: String);
@ -32,12 +33,17 @@ var
implementation implementation
uses uses
StrUtils, JclStrings, uDataModuleConexion, uDialogUtils; StrUtils, JclStrings, uDataModuleConexion, uDialogUtils, uDisplayUtils;
{$R *.dfm} {$R *.dfm}
{ TfConfigurarConexion } { TfConfigurarConexion }
procedure TfConfigurarConexion.FormShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
function TfConfigurarConexion.GetTargetURL: String; function TfConfigurarConexion.GetTargetURL: String;
begin begin
Result := 'http://' + edtServer.Text + ':' + edtPort.Text + '/bin'; Result := 'http://' + edtServer.Text + ':' + edtPort.Text + '/bin';

71
Source/Base/Utiles/uGridStatusUtils.pas
View File

@ -54,6 +54,8 @@ type
procedure SeleccionarFilasDesdeGrid(const AView : TcxGridDBTableView; procedure SeleccionarFilasDesdeGrid(const AView : TcxGridDBTableView;
ASelectedRowList : TSelectedRecords); ASelectedRowList : TSelectedRecords);
procedure AsignarAnchosPrefijadosAColumnas(const AView : TcxGridDBTableView);
implementation implementation
uses uses
@ -302,4 +304,73 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
procedure AsignarAnchosPrefijadosAColumnas(const AView : TcxGridDBTableView);
var
DefAnchos : TStringList;
AColumn: TcxGridDBColumn;
AIndex, i : Integer;
begin
if not Assigned(AView) then
raise Exception.Create('No hay vista asignada (AsignarAnchosPrefijadosAColumnas)');
DefAnchos := TStringList.Create;
with DefAnchos do begin
CaseSensitive := False;
Sorted := False;
CommaText := 'CONCEPTO=600,' +
'NOMBRE=600,' +
'CANTIDAD=40,' +
'VISIBLE=20,' +
'VISIBLE2=20,' +
'DESCUENTO=60,' +
'IVA=60,' +
'RE=60,' +
'IMPORTE_UNIDAD=80' +
'REFERENCIA=100,' +
'REF_PEDIDO=100,' +
'REF_CONTRATO=100,' +
'REF_FACTURA=100,' +
'REFERENCIA_CLIENTE=100,' +
'REFERENCIA_PROVEEDOR=100,' +
'SITUACION=100,' +
'IMPORTE_NETO=80,' +
'IMPORTE_PORTE=80,' +
'IMPORTE_IVA=80,' +
'IMPORTE_RE=80,' +
'IMPORTE_TOTAL=150,' +
'TIPO=80,' +
'TIPO_CONTRATO=80,' +
'TIPO_PRESUPUESTO=80,' +
'VENDEDOR=60,' +
'TIENDA=60,' +
'NIF_CIF=60,' +
'FECHA_FACTURA=80,' +
'FECHA_VENCIMIENTO=80,' +
'FECHA_CONTRATO=80,' +
'FECHA_ALBARAN=80,' +
'FECHA_RECEPCION=80,' +
'FECHA_ENVIO=80,' +
'FECHA_VIGENCIA=80';
end;
ShowHourglassCursor;
AView.BeginUpdate;
try
for i := 0 to (AView.ColumnCount - 1) do
begin
AColumn := AView.Columns[i];
AColumn.BestFitMaxWidth := StrToIntDef(DefAnchos.Values[AColumn.DataBinding.FieldName], 60);
Acolumn.MinWidth := 10;
if AColumn.Width > AColumn.BestFitMaxWidth then
AColumn.Width := AColumn.BestFitMaxWidth;
end;
finally
AView.EndUpdate;
HideHourglassCursor;
FreeAndNil(DefAnchos);
end;
end;
end. end.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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.4.4.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.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></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">4</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.4.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.4.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,4,4,0 FILEVERSION 4,4,6,0
PRODUCTVERSION 4,4,4,0 PRODUCTVERSION 4,4,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.4.4.0\0" VALUE "FileVersion", "4.4.6.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.4.4.0\0" VALUE "ProductVersion", "4.4.6.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

54
Source/Cliente/uPantallaPrincipal.pas
View File

@ -150,7 +150,7 @@ uses
uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas, uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas,
uFactuGES_App, uDMBase, uDataModuleConexion, uFactuGES_App, uDMBase, uDataModuleConexion,
uModuleController, uMainMenuController, uNavPaneController, uModuleController, uMainMenuController, uNavPaneController,
uDialogUtils, cxControls; uDialogUtils, cxControls, uDisplayUtils;
{$R *.dfm} {$R *.dfm}
@ -332,38 +332,40 @@ var
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do ScaleFormFont(Self);
MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
MainMenuController.SortMenuByTag; for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
MainMenuController.InitMainMenu; MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do MainMenuController.SortMenuByTag;
NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); MainMenuController.InitMainMenu;
NavPaneController.InitNavPane; for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
try NavPaneController.InitNavPane;
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then try
begin AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
AListaEmpresas.Active := True; if Assigned(AListaEmpresas) then
if AListaEmpresas.RecordCount = 1 then
begin begin
// Oculto la página de inicio para que no parezca AListaEmpresas.Active := True;
// que se pueden manejar varias empresas. if AListaEmpresas.RecordCount = 1 then
JvNavigationPane.ActivePageIndex := 1; begin
pagInicio.PageList := NIL; // Oculto la página de inicio para que no parezca
pagInicio.Visible := False; // que se pueden manejar varias empresas.
JvNavigationPane.ActivePageIndex := 1;
pagInicio.PageList := NIL;
pagInicio.Visible := False;
end;
end; end;
finally
AListaEmpresas.Close;
AListaEmpresas := NIL;
end; end;
finally RefrescarUI;
AListaEmpresas.Close;
AListaEmpresas := NIL;
end;
RefrescarUI;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -453,6 +455,8 @@ begin
BorderIcons := []; BorderIcons := [];
BorderStyle := bsNone; BorderStyle := bsNone;
Parent := WorkPanel; Parent := WorkPanel;
ScaleFormFont(FContenido);
FContenido.Show; FContenido.Show;
Align := alClient; Align := alClient;
FContenido.SetFocus; FContenido.SetFocus;

3
Source/GUIBase/uDialogBase.pas
View File

@ -32,10 +32,11 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDMBase; uDMBase, uDisplayUtils;
procedure TfDialogBase.FormShow(Sender: TObject); procedure TfDialogBase.FormShow(Sender: TObject);
begin begin
ScaleFormFont(Self);
lblInstruccion.Font.Color := dmBase.StyleManager.Colors.HeaderColorTo; lblInstruccion.Font.Color := dmBase.StyleManager.Colors.HeaderColorTo;
end; end;

3
Source/GUIBase/uEditorBase.pas
View File

@ -170,7 +170,7 @@ implementation
uses uses
Menus, uDMBase, cxControls, uDialogUtils, Menus, uDMBase, cxControls, uDialogUtils,
uStringsUtils, cxEdit; uStringsUtils, cxEdit, uDisplayUtils;
{Método que coge el componente editor que tenga el foco y le fuerza a hacer post para que la tabla se entere {Método que coge el componente editor que tenga el foco y le fuerza a hacer post para que la tabla se entere
@ -402,6 +402,7 @@ end;
procedure TfEditorBase.FormShow(Sender: TObject); procedure TfEditorBase.FormShow(Sender: TObject);
begin begin
ScaleFormFont(Self);
ActualizarEstadoEditor; ActualizarEstadoEditor;
if Assigned(Parent) then if Assigned(Parent) then
begin begin

1
Source/GUIBase/uEditorBasico.dfm
View File

@ -11,6 +11,7 @@ object fEditorBasico: TfEditorBasico
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
OnShow = CustomEditorShow
InstanceID = 0 InstanceID = 0
ReadOnly = False ReadOnly = False
PixelsPerInch = 96 PixelsPerInch = 96

9
Source/GUIBase/uEditorBasico.pas
View File

@ -13,11 +13,20 @@ type
end; end;
TfEditorBasico = class(TCustomEditor, IEditorBasico) TfEditorBasico = class(TCustomEditor, IEditorBasico)
procedure CustomEditorShow(Sender: TObject);
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses
uDisplayUtils;
procedure TfEditorBasico.CustomEditorShow(Sender: TObject);
begin
ScaleFormFont(Self);
end;
initialization initialization
RegisterClass(TfEditorBasico); RegisterClass(TfEditorBasico);

51
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 68 Height = 73
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -42,24 +42,23 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Top = 0 Top = 0
Action = actSubir Action = actSubir
AutoSize = True AutoSize = True
Wrap = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 184
Top = 22 Top = 0
Action = actBajar Action = actBajar
AutoSize = True AutoSize = True
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 56 Left = 240
Top = 22 Top = 0
Action = FontEdit1 Action = FontEdit1
AutoSize = True AutoSize = True
Wrap = True Wrap = True
end end
object FontName: TJvFontComboBox object FontName: TJvFontComboBox
Left = 0 Left = 0
Top = 44 Top = 22
Width = 145 Width = 145
Height = 22 Height = 22
DroppedDownWidth = 145 DroppedDownWidth = 145
@ -75,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object FontSize: TEdit object FontSize: TEdit
Left = 145 Left = 145
Top = 44 Top = 22
Width = 26 Width = 26
Height = 22 Height = 22
Hint = 'Font Size|Select font size' Hint = 'Font Size|Select font size'
@ -86,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object UpDown1: TUpDown object UpDown1: TUpDown
Left = 171 Left = 171
Top = 44 Top = 22
Width = 16 Width = 16
Height = 22 Height = 22
Associate = FontSize Associate = FontSize
@ -95,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 187 Left = 187
Top = 44 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton13' Caption = 'ToolButton13'
ImageIndex = 10 ImageIndex = 10
@ -103,54 +102,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 195 Left = 195
Top = 44 Top = 22
Action = RichEditBold1 Action = RichEditBold1
AutoSize = True AutoSize = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 261 Left = 261
Top = 44 Top = 22
Action = RichEditItalic1 Action = RichEditItalic1
AutoSize = True AutoSize = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 328 Left = 328
Top = 44 Top = 22
Action = RichEditUnderline1 Action = RichEditUnderline1
AutoSize = True AutoSize = True
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 411 Left = 0
Top = 44 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton12' Caption = 'ToolButton12'
ImageIndex = 10 ImageIndex = 10
Wrap = True
Style = tbsSeparator Style = tbsSeparator
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 419 Left = 0
Top = 44 Top = 49
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 564 Left = 145
Top = 44 Top = 49
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 689 Left = 270
Top = 44 Top = 49
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end
end end
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 94 Top = 99
Width = 451 Width = 451
Height = 210 Height = 205
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -161,8 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 99
ExplicitHeight = 205
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -346,12 +344,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 68 Top = 73
Width = 451 Width = 451
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitTop = 73
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0

84
Source/GUIBase/uViewDetallesBase.pas
View File

@ -28,6 +28,9 @@ type
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure SeleccionarTodo; procedure SeleccionarTodo;
procedure BeginUpdate; procedure BeginUpdate;
@ -219,6 +222,7 @@ type
procedure DoPasteText(Sender: TObject; AText: string); procedure DoPasteText(Sender: TObject; AText: string);
procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil); procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil);
procedure BestFitAllColumns;
protected protected
function DarListaSeleccionados: TIntegerArray; function DarListaSeleccionados: TIntegerArray;
@ -237,6 +241,8 @@ type
procedure EndUpdate; procedure EndUpdate;
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure ExpandirTodo; procedure ExpandirTodo;
procedure ContraerTodo; procedure ContraerTodo;
procedure AjustarAncho; procedure AjustarAncho;
@ -253,8 +259,8 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDMBase, uCalculosUtils, dxOffice11, uSistemaFunc, uGridClipboardUtils, uDMBase, uCalculosUtils, SHFolder, dxOffice11, uSistemaFunc, uGridClipboardUtils,
Clipbrd, cxGridExportLink; Clipbrd, cxGridExportLink, uAppInfoUtils;
type type
TOnPaste = procedure(Sender: TObject; AText: string) of object; TOnPaste = procedure(Sender: TObject; AText: string) of object;
@ -530,10 +536,37 @@ begin
and (not _FocusedView.Controller.FocusedRow.IsFirst) and (not _FocusedView.Controller.FocusedRow.IsFirst)
end; end;
procedure TfrViewDetallesBase.BestFitAllColumns;
var
i : Integer ;
begin
ShowHourglassCursor;
_FocusedView.BeginUpdate;
try
AsignarAnchosPrefijadosAColumnas(_FocusedView);
for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin
_FocusedView.VisibleColumns[i].ApplyBestFit;
if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
(_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
end;
finally
_FocusedView.EndUpdate;
HideHourglassCursor;
end;
end;
procedure TfrViewDetallesBase.AjustarAncho; procedure TfrViewDetallesBase.AjustarAncho;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin
BestFitAllColumns;
_FocusedView.ApplyBestFit; _FocusedView.ApplyBestFit;
end;
end; end;
procedure TfrViewDetallesBase.BeginUpdate; procedure TfrViewDetallesBase.BeginUpdate;
@ -601,6 +634,7 @@ procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
CurEdit := Nil; CurEdit := Nil;
StoreToIniFile;
end; end;
procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView; procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView;
@ -958,6 +992,44 @@ begin
end; end;
end;} end;}
procedure TfrViewDetallesBase.RestoreFromIniFile;
var
AIniFile : String;
begin
inherited;
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end;
end;
procedure TfrViewDetallesBase.StoreToIniFile;
var
AIniFile : String;
begin
inherited;
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
// _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end;
end;
procedure TfrViewDetallesBase.RestoreGridStatus; procedure TfrViewDetallesBase.RestoreGridStatus;
begin begin
if Assigned(FGridStatus) and (not IsEmpty) then if Assigned(FGridStatus) and (not IsEmpty) then
@ -1030,11 +1102,17 @@ begin
end; end;
end; end;
procedure TfrViewDetallesBase.SetDetalles(const Value: IDAStronglyTypedDataTable); procedure TfrViewDetallesBase.SetDetalles(const Value: IDAStronglyTypedDataTable);
begin begin
FDetalles := Value; FDetalles := Value;
if Assigned(FDetalles) then if Assigned(FDetalles) then
DADataSource.DataTable := FDetalles.DataTable begin
DADataSource.DataTable := FDetalles.DataTable;
RestoreFromIniFile; // la restauración de las columnas s?lo funciona cuando hay datos.
AjustarAncho;
end
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;

3
Source/GUIBase/uViewGrid.dfm
View File

@ -42,7 +42,6 @@ inherited frViewGrid: TfrViewGrid
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>' OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True OptionsView.ColumnAutoWidth = True
OptionsView.DataRowHeight = 22
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GridLineColor = cl3DLight OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
@ -198,7 +197,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 42284.521152384260000000 ReportDocument.CreationDate = 42306.739922685180000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsFormatting.SuppressBackgroundBitmaps = True OptionsFormatting.SuppressBackgroundBitmaps = True

12
Source/GUIBase/uViewGridBase.pas
View File

@ -96,7 +96,8 @@ type
FFilter: string; FFilter: string;
FOnFilterChanged : TNotifyEvent; FOnFilterChanged : TNotifyEvent;
FGridStatus : TcxGridStatus; FGridStatus : TcxGridStatus;
// procedure BestFitAllColumns; procedure BestFitAllColumns;
protected protected
FOnDblClick: TNotifyEvent; FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu; FPopupMenu: TPopupMenu;
@ -202,7 +203,7 @@ end;
{ TfrViewGrid } { TfrViewGrid }
{procedure TfrViewGridBase.BestFitAllColumns; procedure TfrViewGridBase.BestFitAllColumns;
var var
i : Integer ; i : Integer ;
@ -211,6 +212,7 @@ begin
_FocusedView.BeginUpdate; _FocusedView.BeginUpdate;
try try
AsignarAnchosPrefijadosAColumnas(_FocusedView);
for i := 0 to _FocusedView.VisibleColumnCount-1 do for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin begin
_FocusedView.VisibleColumns[i].ApplyBestFit; _FocusedView.VisibleColumns[i].ApplyBestFit;
@ -222,13 +224,14 @@ begin
_FocusedView.EndUpdate; _FocusedView.EndUpdate;
HideHourglassCursor; HideHourglassCursor;
end; end;
end;} end;
procedure TfrViewGridBase.AjustarAncho; procedure TfrViewGridBase.AjustarAncho;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
//BestFitAllColumns; BestFitAllColumns;
_FocusedView.ApplyBestFit(nil, True, False); _FocusedView.ApplyBestFit(nil, True, False);
end; end;
end; end;
@ -434,6 +437,7 @@ var
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
// AjustarAncho; <- No activar porque pisa los anchos que ha puesto el usuario.
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim; AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">4.4.4.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">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 22 de abril de 2015 17:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.6.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">4.4.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 06 de noviembre de 2015 11:28</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,4,4,0 FILEVERSION 4,4,6,0
PRODUCTVERSION 4,4,4,0 PRODUCTVERSION 4,4,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.4.4.0\0" VALUE "FileVersion", "4.4.6.0\0"
VALUE "ProductVersion", "4.4.4.0\0" VALUE "ProductVersion", "4.4.6.0\0"
VALUE "CompileDate", "miércoles, 07 de octubre de 2015 12:30\0" VALUE "CompileDate", "viernes, 06 de noviembre de 2015 11:40\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

2
Source/Servidor/uAcercaDe.pas
View File

@ -36,7 +36,7 @@ begin
memModulos.Lines.Add(CompanyName); memModulos.Lines.Add(CompanyName);
memModulos.Lines.Add(''); memModulos.Lines.Add('');
memModulos.Lines.Add('Se autoriza el uso de este programa a:'); memModulos.Lines.Add('Se autoriza el uso de este programa a:');
memModulos.Lines.Add('TECSITEL S.L.'); memModulos.Lines.Add('LUIS LEON REPRESENTACIONES');
end; end;
finally finally
FreeAndNil(Obj); FreeAndNil(Obj);