made a copy

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/2.4.0@217 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Build/Build.fbv

@@ -0,0 +1 @@
+<variables><DELPHI><![CDATA[C:\Archivos de programa\Borland\Delphi10\bin\dcc32.exe]]></DELPHI></variables>

Installer/librerias.txt

@@ -1,118 +0,0 @@
-adortl100.bpl
-bdertl100.bpl
-dbrtl100.bpl
-dclIndyCore100.bpl
-designide100.bpl
-dsnap100.bpl
-IndyCore100.bpl
-IndyProtocols100.bpl
-IndySystem100.bpl
-rtl100.bpl
-tee7100.bpl
-teeUI7100.bpl
-vcl100.bpl
-vclactnband100.bpl
-vcldb100.bpl
-vcljpg100.bpl
-vclshlctrls100.bpl
-vclsmp100.bpl
-vclx100.bpl
-xmlrtl100.bpl
-GUISDK_D10.bpl
-
-ccpack10.bpl
-cfpack_D10.bpl
-cxDataD10.bpl
-cxEditorsD10.bpl
-cxExportD10.bpl
-cxExtEditorsD10.bpl
-cxGridD10.bpl
-cxIntl6D10.bpl
-cxIntlPrintSys3D10.bpl
-cxLibraryD10.bpl
-cxPageControlD10.bpl
-cxTreeListD10.bpl
-cxVerticalGridD10.bpl
-DataAbstract_Core_D10.bpl
-dclcxLibraryD10.bpl
-dxBarD10.bpl
-dxBarExtItemsD10.bpl
-dxComnD10.bpl
-dxGDIPlusD10.bpl
-dxLayoutControlD10.bpl
-dxPSCoreD10.bpl
-dxPScxCommonD10.bpl
-dxPScxGrid6LnkD10.bpl
-dxPSLnksD10.bpl
-dxPsPrVwAdvD10.bpl
-dxThemeD10.bpl
-frx10.bpl
-frxe10.bpl
-frxTee10.bpl
-fs10.bpl
-fsTee10.bpl
-fqb100.bpl
-tee100.bpl
-teeui100.bpl
-teedb100.bpl
-dbexpress100.bpl
-EasyListviewD10.bpl
-MPCommonLibD10.bpl
-
-midas.dll
-
-
-Jcl100.bpl
-JclVcl100.bpl
-JSDialog100.bpl
-JvAppFrmD10R.bpl
-JvCmpD10R.bpl
-JvCoreD10R.bpl
-JvCtrlsD10R.bpl
-JvCustomD10R.bpl
-JvDlgsD10R.bpl
-JvGlobusD10R.bpl
-JvJansD10R.bpl
-JvMMD10R.bpl
-JvPageCompsD10R.bpl
-JvStdCtrlsD10R.bpl
-JvSystemD10R.bpl
-pckMD5.bpl
-pckUCDataConnector.bpl
-pckUserControl_RT.bpl
-PluginSDK_D10R.bpl
-PngComponentsD10.bpl
-PNG_D10.bpl
-RemObjects_Core_D10.bpl
-tb2k_d10.bpl
-tbx_d10.bpl
-
-dxSkinBlackD10.bpl
-dxSkinBlueD10.bpl
-dxSkinCaramelD10.bpl
-dxSkinCoffeeD10.bpl
-dxSkinGlassOceansD10.bpl
-dxSkiniMaginaryD10.bpl
-dxSkinLilianD10.bpl
-dxSkinLiquidSkyD10.bpl
-dxSkinLondonLiquidSkyD10.bpl
-dxSkinMcSkinD10.bpl
-dxSkinMoneyTwinsD10.bpl
-dxSkinOffice2007BlackD10.bpl
-dxSkinOffice2007BlueD10.bpl
-dxSkinOffice2007GreenD10.bpl
-dxSkinOffice2007PinkD10.bpl
-dxSkinOffice2007SilverD10.bpl
-dxSkinsCoreD10.bpl
-dxSkinscxPCPainterD10.bpl
-dxSkinscxScheduler3PainterD10.bpl
-dxSkinsdxBarPainterD10.bpl
-dxSkinsdxDLPainterD10.bpl
-dxSkinsdxLCPainterD10.bpl
-dxSkinsdxNavBar2PainterD10.bpl
-dxSkinsdxRibbonPainterD10.bpl
-dxSkinSilverD10.bpl
-dxSkinStardustD10.bpl
-dxSkinValentineD10.bpl
-dxSkinXmas2008BlueD10.bpl
-

Source/Base/Base.bdsproj

@@ -214,9 +214,9 @@
       <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages>
   </Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6014
+EurekaLog Version=519
 Activate=1
 Activate Handle=1
 Save Log File=1
@@ -530,190 +530,5 @@ Count mtSend_SuccessMsg=1
 mtSend_SuccessMsg0="The message was sent successfully."
 Count mtSend_FailureMsg=1
 mtSend_FailureMsg0="Sorry, sending the message didn't work."
-ProxyURL=
-ProxyUser=
-ProxyPassword=
-ProxyPort=8080
-TrakerUser=
-TrakerPassword=
-TrakerAssignTo=
-TrakerProject=
-TrakerCategory=
-TrakerTrialID=
-ZipPassword=
-PreBuildEvent=
-PostSuccessfulBuildEvent=
-PostFailureBuildEvent=
-ExceptionDialogType=2
-loSaveModulesAndProcessesSections=1
-loSaveAssemblerAndCPUSections=1
-soAppUpTime=1
-soExcModuleName=1
-soExcModuleVersion=1
-soExcID=1
-soExcCount=1
-soExcStatus=1
-soExcNote=1
-soUserID=1
-soUserName=1
-soUserEmail=1
-soUserPrivileges=1
-soUserCompany=1
-soCmpDisplayDPI=1
-soCmpVideoCard=1
-soCmpPrinter=1
-soOSCharset=1
-soCustomData=1
-sndAddComputerNameInFileName=0
-edoSendErrorReportChecked=1
-edoShowSendErrorReportOption=1
-edoShowAttachScreenshotOption=1
-edoShowCustomButton=0
-csoDoNotStoreProcNames=0
-boHandleSafeCallExceptions=1
-boCallRTLExceptionEvent=0
-boCatchHandledExceptions=0
-loCatchLeaks=0
-loGroupsSonLeaks=1
-loHideBorlandLeaks=1
-loFreeAllLeaks=1
-loCatchLeaksExceptions=1
-cfoReduceFileSize=1
-cfoCheckFileCorruption=0
-Count mtErrorMsgCaption=1
-mtErrorMsgCaption0="Error."
-Count mtDialog_ProcessesCaption=1
-mtDialog_ProcessesCaption0="Processes"
-Count mtDialog_ProcessesHeader=1
-mtDialog_ProcessesHeader0="Processes Information"
-Count mtDialog_AsmCaption=1
-mtDialog_AsmCaption0="Assembler"
-Count mtDialog_AsmHeader=1
-mtDialog_AsmHeader0="Assembler Information"
-Count mtDialog_CustomButtonCaption=1
-mtDialog_CustomButtonCaption0="%26Help"
-Count mtMSDialog_ErrorMsgCaption=1
-mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
-Count mtMSDialog_RestartCaption=1
-mtMSDialog_RestartCaption0="Restart application."
-Count mtMSDialog_TerminateCaption=1
-mtMSDialog_TerminateCaption0="Terminate application."
-Count mtMSDialog_PleaseCaption=1
-mtMSDialog_PleaseCaption0="Please tell us about this problem."
-Count mtMSDialog_DescriptionCaption=1
-mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
-Count mtMSDialog_SeeDetailsCaption=1
-mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
-Count mtMSDialog_SeeClickCaption=1
-mtMSDialog_SeeClickCaption0="click here."
-Count mtMSDialog_HowToReproduceCaption=1
-mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
-Count mtMSDialog_EmailCaption=1
-mtMSDialog_EmailCaption0="Email address (optional):"
-Count mtMSDialog_SendButtonCaption=1
-mtMSDialog_SendButtonCaption0="%26Send Error Report"
-Count mtMSDialog_NoSendButtonCaption=1
-mtMSDialog_NoSendButtonCaption0="%26Don't Send"
-Count mtLog_AppUpTime=1
-mtLog_AppUpTime0="Up Time"
-Count mtLog_ExcModuleName=1
-mtLog_ExcModuleName0="Module Name"
-Count mtLog_ExcModuleVersion=1
-mtLog_ExcModuleVersion0="Module Version"
-Count mtLog_ExcID=1
-mtLog_ExcID0="ID"
-Count mtLog_ExcCount=1
-mtLog_ExcCount0="Count"
-Count mtLog_ExcStatus=1
-mtLog_ExcStatus0="Status"
-Count mtLog_ExcNote=1
-mtLog_ExcNote0="Note"
-Count mtLog_UserHeader=1
-mtLog_UserHeader0="User"
-Count mtLog_UserID=1
-mtLog_UserID0="ID"
-Count mtLog_UserName=1
-mtLog_UserName0="Name"
-Count mtLog_UserEmail=1
-mtLog_UserEmail0="Email"
-Count mtLog_UserCompany=1
-mtLog_UserCompany0="Company"
-Count mtLog_UserPrivileges=1
-mtLog_UserPrivileges0="Privileges"
-Count mtLog_CmpDisplayDPI=1
-mtLog_CmpDisplayDPI0="Display DPI"
-Count mtLog_CmpVideoCard=1
-mtLog_CmpVideoCard0="Video Card"
-Count mtLog_CmpPrinter=1
-mtLog_CmpPrinter0="Printer"
-Count mtLog_OSCharset=1
-mtLog_OSCharset0="Charset"
-Count mtCallStack_LeakCaption=1
-mtCallStack_LeakCaption0="Memory Leak"
-Count mtCallStack_LeakData=1
-mtCallStack_LeakData0="Data"
-Count mtCallStack_LeakType=1
-mtCallStack_LeakType0="Type"
-Count mtCallStack_LeakSize=1
-mtCallStack_LeakSize0="Total size"
-Count mtCallStack_LeakCount=1
-mtCallStack_LeakCount0="Count"
-Count mtSendDialog_Login=1
-mtSendDialog_Login0="Login..."
-Count mtSendDialog_Sent=1
-mtSendDialog_Sent0="Message sent."
-Count mtSendDialog_SelectProject=1
-mtSendDialog_SelectProject0="Select project..."
-Count mtSendDialog_Searching=1
-mtSendDialog_Searching0="Searching..."
-Count mtSendDialog_Modifying=1
-mtSendDialog_Modifying0="Modifying..."
-Count mtSendDialog_Disconnecting=1
-mtSendDialog_Disconnecting0="Disconnecting..."
-Count mtSendDialog_Disconnected=1
-mtSendDialog_Disconnected0="Disconnected."
-Count mtProcesses_ID=1
-mtProcesses_ID0="ID"
-Count mtProcesses_Name=1
-mtProcesses_Name0="Name"
-Count mtProcesses_Description=1
-mtProcesses_Description0="Description"
-Count mtProcesses_Version=1
-mtProcesses_Version0="Version"
-Count mtProcesses_Memory=1
-mtProcesses_Memory0="Memory"
-Count mtProcesses_Priority=1
-mtProcesses_Priority0="Priority"
-Count mtProcesses_Threads=1
-mtProcesses_Threads0="Threads"
-Count mtProcesses_Path=1
-mtProcesses_Path0="Path"
-Count mtSend_BugClosedMsg=2
-mtSend_BugClosedMsg0="These BUG is just closed."
-mtSend_BugClosedMsg1="Contact the program support to obtain an update."
-Count mtSend_UnknownErrorMsg=1
-mtSend_UnknownErrorMsg0="Unknown error."
-Count mtSend_InvalidLoginMsg=1
-mtSend_InvalidLoginMsg0="Invalid login request."
-Count mtSend_InvalidSearchMsg=1
-mtSend_InvalidSearchMsg0="Invalid search request."
-Count mtSend_InvalidSelectionMsg=1
-mtSend_InvalidSelectionMsg0="Invalid selection request."
-Count mtSend_InvalidInsertMsg=1
-mtSend_InvalidInsertMsg0="Invalid insert request."
-Count mtSend_InvalidModifyMsg=1
-mtSend_InvalidModifyMsg0="Invalid modify request."
-Count mtFileCrackedMsg=2
-mtFileCrackedMsg0="This file is cracked."
-mtFileCrackedMsg1="The application will be closed."
-Count mtException_LeakMultiFree=1
-mtException_LeakMultiFree0="Multi Free memory leak."
-Count mtException_LeakMemoryOverrun=1
-mtException_LeakMemoryOverrun0="Memory Overrun leak."
-Count mtException_AntiFreeze=1
-mtException_AntiFreeze0="The application seems to be frozen."
-Count mtInvalidEmailMsg=1
-mtInvalidEmailMsg0="Invalid email."
-TextsCollection=English
 EurekaLog Last Line -->
 </BorlandProject>

Source/Base/Base.dpk

@@ -45,7 +45,7 @@ requires
   cxExportD10,
   tbx_d10,
   tb2k_d10,
-  cxIntl6D10,
+  cxIntl5D10,
   vclactnband,
   designide,
   xmlrtl,
@@ -66,7 +66,7 @@ requires
   dxPScxCommonD10,
   dxPSLnksD10,
   vclshlctrls,
-  dxPScxGrid6LnkD10,
+  dxPScxGridLnkD10,
   dclcxLibraryD10,
   dxPsPrVwAdvD10,
   dxBarExtItemsD10,
@@ -78,8 +78,7 @@ requires
   jsDialog100,
   indy,
   JvDlgsD10R,
-  JvNetD10R,
-  dxGDIPlusD10;
+  JvNetD10R;
 
 contains
   uDataTableUtils in 'Utiles\uDataTableUtils.pas',
@@ -101,10 +100,6 @@ contains
   MD5 in 'Utiles\MD5.pas',
   uPasswordUtils in 'Utiles\uPasswordUtils.pas',
   uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
-  uInformeRegistryUtils in 'ClassRegistry\uInformeRegistryUtils.pas',
-  uStringsUtils in 'Utiles\uStringsUtils.pas',
-  uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {dmImpresiones: TDataModule},
-  uEMailUtils in 'Utiles\uEMailUtils.pas',
-  uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {dmRegistroCorreos: TDataModule};
+  uInformeRegistryUtils in 'ClassRegistry\uInformeRegistryUtils.pas';
 
 end.

Source/Base/ControllerBase/uControllerDetallesBase.pas

@@ -23,8 +23,6 @@ type
     procedure Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant);
     procedure Delete(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray);
     procedure Move(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray; Posiciones: Integer);
-    procedure BeginUpdate(ADataTable: IDAStronglyTypedDataTable);
-    procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable);
 
 //    procedure Copy(SMExport: TSMExportToClipboard);
 //    procedure Paste;
@@ -45,6 +43,8 @@ type
     procedure Renumerar(DataTable: TDADataTable; LocalizaPosicion: Integer);
     function DesplazarNPosiciones(DataTable: TDADataTable; NumOrdenIni: Variant; NPosiciones: Variant): Integer;
     procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer);
+    procedure BeginUpdate(ADataTable: IDAStronglyTypedDataTable);
+    procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable);
 
     //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo
     procedure validarCampos(DataTable: TDADataTable); virtual;
@@ -71,8 +71,6 @@ type
     procedure Add(ADataTable: IDAStronglyTypedDataTable; TipoConcepto: Variant); virtual;
     procedure Delete(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray); virtual;
     procedure Move(ADataTable: IDAStronglyTypedDataTable; Posicion: TIntegerArray; Posiciones: Integer); virtual;
-    procedure BeginUpdate(ADataTable: IDAStronglyTypedDataTable);
-    procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable);
 
 //    procedure Copy(SMExport: TSMExportToClipboard);
 //    procedure Paste;
@@ -350,14 +348,12 @@ end;
 procedure TControllerDetallesBase.EndUpdate(ADataTable: IDAStronglyTypedDataTable);
 begin
   Dec(fUpdateCount);
+  CalcularTotales(True, ADataTable.DataTable);
+  ADataTable.DataTable.EnableControls;
 
   if fUpdateCount = 0 then
-  begin
-    CalcularTotales(True, ADataTable.DataTable);
-    AvisarObservadores(ADataTable);
-  end;
+     AvisarObservadores(ADataTable);
 
-  ADataTable.DataTable.EnableControls;
   HideHourglassCursor;
 end;
 

Source/Base/GUIBase/GUIBase.bdsproj

@@ -181,9 +181,9 @@
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
     </Excluded_Packages>
   </Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6014
+EurekaLog Version=519
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Base/GUIBase/GUIBase.dpk

@@ -65,7 +65,7 @@ requires
   dxPScxCommonD10,
   dxPSLnksD10,
   vclshlctrls,
-  dxPScxGrid6LnkD10,
+  dxPScxGridLnkD10,
   dclcxLibraryD10,
   dxPsPrVwAdvD10,
   dxBarExtItemsD10,
@@ -82,8 +82,7 @@ requires
   PNG_D10,
   PngComponentsD10,
   ControllerBase,
-  cxIntlPrintSys3D10,
-  dxGDIPlusD10;
+  cxIntlPrintSys3D10;
 
 contains
   uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},
@@ -108,8 +107,6 @@ contains
   uEditorBasico in 'uEditorBasico.pas' {fEditorBasico},
   uDialogBase in 'uDialogBase.pas' {fDialogBase},
   uViewFiltroBase in 'uViewFiltroBase.pas' {frViewFiltroBase: TFrame},
-  uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
-  uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
-  uDialogListaEnvioEMail in 'uDialogListaEnvioEMail.pas' {fDialogListaEnvioEMail};
+  uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame};
 
 end.

Source/Base/GUIBase/_uViewGridBase.pas

@@ -18,7 +18,7 @@ uses
   cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
   DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
+  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
   cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils;
 
 type

Source/Base/GUIBase/uDialogElegirEMail.dfm

@@ -1,115 +0,0 @@
-inherited fDialogElegirEMail: TfDialogElegirEMail
-  Caption = 'Elegir direcci'#243'n de correo electr'#243'nico'
-  ClientHeight = 258
-  ClientWidth = 533
-  OnCloseQuery = FormCloseQuery
-  OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  ExplicitWidth = 539
-  ExplicitHeight = 283
-  PixelsPerInch = 96
-  TextHeight = 13
-  inherited pnlBotones: TFlowPanel
-    Top = 202
-    Width = 533
-    ExplicitTop = 202
-    ExplicitWidth = 533
-    inherited Button1: TButton
-      Left = 437
-      ExplicitLeft = 437
-    end
-    inherited Button2: TButton
-      Left = 347
-      ExplicitLeft = 347
-    end
-  end
-  inherited FlowPanel1: TFlowPanel
-    Width = 533
-    Height = 202
-    ExplicitWidth = 533
-    ExplicitHeight = 202
-    inherited lblInstruccion: TLabel
-      Width = 477
-      Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
-      Font.Style = [fsBold]
-      ExplicitWidth = 477
-    end
-    inherited Label2: TLabel
-      Width = 490
-      Height = 45
-      Caption = 
-        'Para enviar el correo, puede usar la direcci'#243'n administrativa (s' +
-        'i el cliente la tiene en su ficha) o indicar otra direcci'#243'n dist' +
-        'inta con la segunda opci'#243'n.'
-      WordWrap = True
-      ExplicitWidth = 490
-      ExplicitHeight = 45
-    end
-    object Panel1: TPanel
-      Left = 31
-      Top = 115
-      Width = 482
-      Height = 80
-      Align = alClient
-      BevelOuter = bvNone
-      ParentColor = True
-      TabOrder = 0
-      object rbCombo: TRadioButton
-        Tag = 1
-        Left = 10
-        Top = 6
-        Width = 170
-        Height = 17
-        Caption = 'Usar la direcci'#243'n administrativa:'
-        TabOrder = 0
-        OnClick = rbComboClick
-      end
-      object cbEMail: TComboBox
-        Left = 211
-        Top = 6
-        Width = 262
-        Height = 21
-        Style = csDropDownList
-        ItemHeight = 13
-        TabOrder = 1
-      end
-      object rbEdit: TRadioButton
-        Tag = 2
-        Left = 10
-        Top = 41
-        Width = 202
-        Height = 17
-        Caption = 'Usar la siguiente direcci'#243'n de correo:'
-        TabOrder = 2
-        OnClick = rbEditClick
-      end
-      object edtEMail: TcxHyperLinkEdit
-        Left = 211
-        Top = 39
-        Properties.UsePrefix = upNever
-        Properties.ValidateOnEnter = True
-        Properties.Prefix = ''
-        Style.LookAndFeel.Kind = lfStandard
-        Style.LookAndFeel.NativeStyle = True
-        StyleDisabled.LookAndFeel.Kind = lfStandard
-        StyleDisabled.LookAndFeel.NativeStyle = True
-        StyleFocused.LookAndFeel.Kind = lfStandard
-        StyleFocused.LookAndFeel.NativeStyle = True
-        StyleHot.LookAndFeel.Kind = lfStandard
-        StyleHot.LookAndFeel.NativeStyle = True
-        TabOrder = 3
-        Width = 262
-      end
-    end
-  end
-  inherited ActionList1: TActionList
-    Left = 8
-    Top = 8
-    inherited actAceptar: TAction
-      OnExecute = actAceptarExecute
-    end
-    inherited actCancelar: TAction
-      OnExecute = actCancelarExecute
-    end
-  end
-end

Source/Base/GUIBase/uDialogElegirEMail.pas

@@ -1,173 +0,0 @@
-unit uDialogElegirEMail;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
-  cxEdit, cxTextEdit, cxHyperLinkEdit;
-
-type
-  TfDialogElegirEMail = class(TfDialogBase)
-    Panel1: TPanel;
-    rbCombo: TRadioButton;
-    cbEMail: TComboBox;
-    rbEdit: TRadioButton;
-    edtEMail: TcxHyperLinkEdit;
-    procedure rbComboClick(Sender: TObject);
-    procedure rbEditClick(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure actAceptarExecute(Sender: TObject);
-    procedure actCancelarExecute(Sender: TObject);
-  private
-    FListaDirecciones: TStringList;
-    function GetEMailElegido: String;
-    procedure ActualizarOpciones;
-  public
-    property EMailElegido: String read GetEMailElegido;
-    property ListaDirecciones : TStringList read FListaDirecciones write FListaDirecciones;
-  end;
-
-
-  function ElegirEMail(const AListaEMails : TStringList; var AEMailElegido : String): Boolean;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  uStringsUtils, uDialogUtils, uEMailUtils;
-
-function ElegirEMail(const AListaEMails : TStringList; var AEMailElegido : String): Boolean;
-var
-  AEditor : TfDialogElegirEMail;
-begin
-  AEditor := TfDialogElegirEMail.Create(NIL);
-  try
-    AEditor.ListaDirecciones := AListaEMails;
-    Result := (AEditor.ShowModal = mrOk);
-    if Result then
-      AEMailElegido := AEditor.EMailElegido;
-  finally
-    AEditor.Release;
-  end;
-end;
-
-
-{ TfDialogElegirEMail }
-
-procedure TfDialogElegirEMail.actAceptarExecute(Sender: TObject);
-begin
-  inherited;
-  ModalResult := mrOk
-end;
-
-procedure TfDialogElegirEMail.actCancelarExecute(Sender: TObject);
-begin
-  inherited;
-  ModalResult := mrCancel;
-end;
-
-procedure TfDialogElegirEMail.ActualizarOpciones;
-begin
-  if rbEdit.Checked then
-  begin
-    edtEMail.Enabled := True;
-    rbCombo.Checked := False;
-    cbEMail.Enabled := False;
-  end
-  else begin
-    if rbCombo.Enabled then
-    begin
-      cbEMail.Enabled := True;
-      edtEMail.Enabled := False;
-      rbEdit.Checked := False;
-    end
-    else
-      rbEdit.Checked := True;
-  end;
-end;
-
-procedure TfDialogElegirEMail.FormCloseQuery(Sender: TObject;
-  var CanClose: Boolean);
-begin
-  inherited;
-
-  if (ModalResult = mrOk) and rbEdit.Checked then
-  begin
-    if not EsCadenaVacia(edtEMail.Text) then
-    begin
-      if not EsDireccionEMailValida(edtEMail.Text) then
-      begin
-        ShowErrorMessage('La dirección de correo electrónica no es válida', 'Para poder continuar, compruebe que ha indicado una dirección de correo y que está bien escrita.');
-        edtEMail.SetFocus;
-        CanClose := False;
-      end;
-    end
-    else begin
-      ShowErrorMessage('Debe indicar una dirección de correo electrónico.', 'Para poder continuar debe elegir o indicar una dirección de correo electrónico.');
-      edtEMail.SetFocus;
-      CanClose := False;
-    end;
-  end;
-end;
-
-procedure TfDialogElegirEMail.FormCreate(Sender: TObject);
-begin
-  inherited;
-  //FListaDirecciones := TStringList.Create; <- La lista se da mediante la propiedad.
-end;
-
-procedure TfDialogElegirEMail.FormDestroy(Sender: TObject);
-begin
-  inherited;
-  //FreeAndNIL(FListaDirecciones) <- La lista se da mediante la propiedad.
-end;
-
-procedure TfDialogElegirEMail.FormShow(Sender: TObject);
-begin
-  inherited;
-  cbEMail.Items.Clear;
-  cbEMail.Items := FListaDirecciones;
-
-  if cbEMail.Items.Count = 0 then
-  begin
-    cbEmail.Items.Add('Sin dirección administrativa');
-    cbEMail.ItemIndex := 0;
-    rbCombo.Enabled := False;
-    rbEdit.Checked;
-  end
-  else begin
-    cbEMail.ItemIndex := 0;
-    rbCombo.Checked := True;
-  end;
-
-  ActualizarOpciones;
-end;
-
-function TfDialogElegirEMail.GetEMailElegido: String;
-begin
-  if rbCombo.Checked then
-    Result := cbEMail.Text
-  else
-    Result := edtEMail.Text;
-end;
-
-procedure TfDialogElegirEMail.rbComboClick(Sender: TObject);
-begin
-  inherited;
-  rbEdit.Checked := False;
-  ActualizarOpciones;
-end;
-
-procedure TfDialogElegirEMail.rbEditClick(Sender: TObject);
-begin
-  inherited;
-  rbEdit.Checked := True;
-  ActualizarOpciones;
-end;
-
-end.

Source/Base/GUIBase/uDialogListaEnvioEMail.dfm

@@ -1,29 +0,0 @@
-inherited fDialogListaEnvioEMail: TfDialogListaEnvioEMail
-  Caption = 'fDialogListaEnvioEMail'
-  PixelsPerInch = 96
-  TextHeight = 13
-  inherited FlowPanel1: TFlowPanel
-    object ListView1: TListView
-      Left = 31
-      Top = 151
-      Width = 571
-      Height = 197
-      Align = alClient
-      Columns = <
-        item
-          Caption = 'Documento'
-        end
-        item
-          Caption = 'Destinatario'
-        end
-        item
-          Caption = 'Direcci'#243'n E-Mail'
-        end
-        item
-          Caption = 'Estado'
-        end>
-      TabOrder = 0
-      ViewStyle = vsReport
-    end
-  end
-end

Source/Base/GUIBase/uDialogListaEnvioEMail.pas

@@ -1,22 +0,0 @@
-unit uDialogListaEnvioEMail;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, ComCtrls;
-
-type
-  TfDialogListaEnvioEMail = class(TfDialogBase)
-    ListView1: TListView;
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-implementation
-
-{$R *.dfm}
-
-end.

Source/Base/GUIBase/uEditorBase.dfm

@@ -1669,7 +1669,7 @@ object fEditorBase: TfEditorBase
   object JvAppRegistryStorage: TJvAppRegistryStorage
     StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
     StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
-    Root = 'Software\FactuGES'
+    Root = 'Software\%APPL_NAME%'
     SubStorages = <>
     Left = 424
     Top = 120

Source/Base/GUIBase/uEditorDBBase.pas

@@ -116,13 +116,6 @@ begin
 
       dsDataTable.DataTable.CancelUpdates;
 
-      //No funciona bien al CancelUpdates para las tablas detalle de esta forma le obligamos
-      dtDetails := dsDataTable.DataTable.GetDetailDataTables;
-      for i := 0 to dtDetails.Count - 1 do
-      begin
-        (TDADataTable(dtDetails.Items[i])).CancelUpdates;
-      end;
-
       { Comprobar si el bookmark no es válido cuando estamos cancelando la
         inserción de una fila nueva.
         CUIDADO!! Si no es válido salta una excepción. NO devuelve false!!!}

Source/Base/GUIBase/uEditorDBItem.dfm

@@ -5,7 +5,7 @@ inherited fEditorDBItem: TfEditorDBItem
   ClientHeight = 461
   ClientWidth = 652
   ExplicitWidth = 660
-  ExplicitHeight = 488
+  ExplicitHeight = 495
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Base/GUIBase/uEditorGridBase.dfm

@@ -4,7 +4,6 @@ inherited fEditorGridBase: TfEditorGridBase
   Caption = 'fEditorGridBase'
   ClientHeight = 444
   ClientWidth = 543
-  OnDestroy = CustomEditorDestroy
   ExplicitWidth = 551
   ExplicitHeight = 471
   PixelsPerInch = 96
@@ -85,16 +84,6 @@ inherited fEditorGridBase: TfEditorGridBase
       ShowHint = True
       ShrinkMode = tbsmNone
       TabOrder = 0
-      object lblAno: TTBXLabelItem
-        Caption = 'A'#241'o:'
-        Visible = False
-      end
-      object cbxListaAnos: TTBXComboBoxItem
-        Visible = False
-      end
-      object sepAno: TTBXSeparatorItem
-        Visible = False
-      end
       object TBXLabelItem1: TTBXLabelItem
         Caption = 'Filtrar:'
       end
@@ -1526,6 +1515,8 @@ inherited fEditorGridBase: TfEditorGridBase
     Bitmap = {}
   end
   inherited JvFormStorage: TJvFormStorage
+    OnSavePlacement = JvFormStorageSavePlacement
+    OnRestorePlacement = JvFormStorageRestorePlacement
     Left = 400
     Top = 160
   end

Source/Base/GUIBase/uEditorGridBase.pas

@@ -57,13 +57,12 @@ type
     actFiltrar: TAction;
     TBXItem37: TTBXItem;
     TBXTMain2: TTBXToolbar;
-    lblAno: TTBXLabelItem;
-    cbxListaAnos: TTBXComboBoxItem;
-    sepAno: TTBXSeparatorItem;
     procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
     procedure FormShow(Sender: TObject); override;
     procedure actQuitarFiltroExecute(Sender: TObject);
     procedure actDuplicarUpdate(Sender: TObject);
+    procedure JvFormStorageSavePlacement(Sender: TObject);
+    procedure JvFormStorageRestorePlacement(Sender: TObject);
     procedure actModificarUpdate(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevoUpdate(Sender: TObject);
@@ -71,17 +70,10 @@ type
     procedure actRefrescarUpdate(Sender: TObject);
     procedure actFiltrarExecute(Sender: TObject);
     procedure actFiltrarUpdate(Sender: TObject);
-    procedure CustomEditorDestroy(Sender: TObject);
   protected
-    FListaAnos: TStringList;
     FViewGrid : IViewGridBase;
-    FWhereDataTable: WideString;
-    function GetListaAnos: TStringList;
-    procedure SetListaAnos(const Value: TStringList);
     procedure SetViewGrid(const Value : IViewGridBase); virtual;
     function GetViewGrid: IViewGridBase;
-    function GetWhereDataTable: String;
-    procedure SetWhereDataTable(const Value: String);
     procedure SetMultiSelect (AValue : Boolean);
     function GetMultiSelect : Boolean;
 
@@ -89,12 +81,8 @@ type
     procedure ConfPaginaInterno; override;
     procedure ImprimirInterno; override;
     procedure RefrescarInterno; override;
-    function GetModified: Boolean; override;
-
   public
-    property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
     property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid;
-    property WhereDataTable: String read GetWhereDataTable write SetWhereDataTable;
     property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
 
     constructor Create(AOwner : TComponent); override;
@@ -114,22 +102,9 @@ uses
 destructor TfEditorGridBase.Destroy;
 begin
   FViewGrid := NIL;
-  FWhereDataTable := '';
-  if Assigned(FListaAnos) then
-     FlistaAnos.Free;
   inherited;
 end;
 
-function TfEditorGridBase.GetListaAnos: TStringList;
-begin
-  Result := FListaAnos;
-end;
-
-function TfEditorGridBase.GetModified: Boolean;
-begin
-  Result := False;
-end;
-
 function TfEditorGridBase.GetMultiSelect: Boolean;
 begin
   Result := False;
@@ -142,53 +117,12 @@ begin
   Result := FViewGrid;
 end;
 
-function TfEditorGridBase.GetWhereDataTable: String;
-begin
-  Result := FWhereDataTable;
-end;
-
 procedure TfEditorGridBase.ImprimirInterno;
 begin
   inherited;
   ViewGrid.Print;
 end;
 
-procedure TfEditorGridBase.SetListaAnos(const Value: TStringList);
-var
-  i: Integer;
-  AStringAnterior: String;
-
-begin
-  AStringAnterior := '';
-  if Assigned(FListaAnos) then
-  begin
-     AStringAnterior := FListaAnos.ValueFromIndex[cbxListaAnos.ItemIndex];
-     FListaAnos.Free;
-  end;
-
-  //Se asigna el nuevo TStringList
-  FListaAnos := Value;
-
-  if Assigned(FListaAnos) then
-  begin
-    cbxListaAnos.Strings.BeginUpdate;
-    cbxListaAnos.Strings.Clear;
-    for i := 0 to FListaAnos.Count - 1 do
-        cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
-
-    //Se posiciona en el elemento que habia anteriormente
-    if Length(AStringAnterior) > 0 then
-    begin
-      if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
-         cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
-      else
-         cbxListaAnos.ItemIndex := 0;
-    end;
-
-    cbxListaAnos.Strings.EndUpdate;
-  end;
-end;
-
 procedure TfEditorGridBase.SetMultiSelect(AValue: Boolean);
 begin
   if Assigned(ViewGrid) then
@@ -205,11 +139,6 @@ begin
   end;
 end;
 
-procedure TfEditorGridBase.SetWhereDataTable(const Value: String);
-begin
-  FWhereDataTable := Value;
-end;
-
 procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
 begin
   if Assigned(ViewGrid) then
@@ -224,14 +153,10 @@ end;
 procedure TfEditorGridBase.FormShow(Sender: TObject);
 begin
   inherited;
-
   if Assigned(ViewGrid) then
-  begin
-    ViewGrid.RestoreFromIniFile;
-    ViewGrid.ShowEmbedded(Self);
-  end;
+     ViewGrid.ShowEmbedded(Self);
+
      
-  cbxListaAnos.ItemIndex := 0;  
 end;
 
 procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@@ -321,14 +246,6 @@ constructor TfEditorGridBase.Create(AOwner: TComponent);
 begin
   inherited;
   actModificar.ShortCut := ShortCut(VK_RETURN, []);
-  FWhereDataTable := '';  
-end;
-
-procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject);
-begin
-  inherited;
-  if Assigned(ViewGrid) then
-    ViewGrid.StoreToIniFile;
 end;
 
 procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject);
@@ -354,6 +271,13 @@ begin
        (Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
 end;
 
+procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
+begin
+  inherited;
+  if Assigned(ViewGrid) then
+    ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
+end;
+
 procedure TfEditorGridBase.PrevisualizarInterno;
 begin
   inherited;
@@ -380,6 +304,13 @@ begin
   end;
 end;
 
+procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
+begin
+  inherited;
+  if Assigned(ViewGrid) then
+    ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
+end;
+
 initialization
   RegisterClass(TfEditorGridBase);
 

Source/Base/GUIBase/uEditorPreview.dfm

@@ -5,15 +5,17 @@ inherited fEditorPreview: TfEditorPreview
   WindowState = wsMaximized
   OnDestroy = FormDestroy
   OnResize = FormResize
-  ExplicitWidth = 803
-  ExplicitHeight = 485
+  ExplicitWidth = 658
+  ExplicitHeight = 492
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
     Top = 75
     Visible = False
     ExplicitTop = 75
+    ExplicitWidth = 650
     inherited Image1: TImage
+      Left = 623
       ExplicitLeft = 623
     end
   end
@@ -25,7 +27,7 @@ inherited fEditorPreview: TfEditorPreview
       DefaultDock = TBXDock
       Visible = False
       ExplicitTop = 49
-      ExplicitWidth = 248
+      ExplicitWidth = 242
     end
     inherited tbxMenu: TTBXToolbar
       DockPos = -24
@@ -173,6 +175,8 @@ inherited fEditorPreview: TfEditorPreview
       item
         Width = 50
       end>
+    ExplicitTop = 439
+    ExplicitWidth = 650
   end
   inherited EditorActionList: TActionList
     Top = 104
@@ -843,14 +847,13 @@ inherited fEditorPreview: TfEditorPreview
     Bitmap = {}
   end
   object frxReport1: TfrxReport
-    Version = '4.3'
+    Version = '3.23.7'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
     PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
-    PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 38658.858023541660000000
     ReportOptions.LastChange = 38658.858023541660000000
     ScriptLanguage = 'PascalScript'
@@ -861,6 +864,9 @@ inherited fEditorPreview: TfEditorPreview
     StoreInDFM = False
     Left = 16
     Top = 200
+    Datasets = <>
+    Variables = <>
+    Style = <>
   end
   object frxBarCodeObject1: TfrxBarCodeObject
     Left = 16

Source/Base/GUIBase/uEditorPreview.pas

@@ -19,15 +19,8 @@ type
     property Report: TfrxReport read GetReport;
     procedure LoadFromStream(AStream : TStream);
     function ExportToFile : String;
-    function Print: Boolean;
+    procedure Print;
     procedure Preview;    
-
-    function GetTablaImpresion: String;
-    function GetIdTablaImpresion: String;
-    procedure SetTablaImpresion (Value: String);
-    procedure SetIdTablaImpresion (Value: String);
-    property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
-    property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
   end;
 
   TfEditorPreview = class(TfEditorBase, IEditorPreview)
@@ -106,28 +99,15 @@ type
     procedure actPrimeraPaginaUpdate(Sender: TObject);
     procedure actPaginaAnteriorUpdate(Sender: TObject);
   private
-    FVariable: Boolean;
     FPreview : TfrViewPreview;
     procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
     procedure UpdateZoom;
-    procedure OnPrint(Sender: Tobject);
-
   protected
-    FTablaImpresion: String;
-    FIdTablaImpresion: String;
-    function GetTablaImpresion: String;
-    function GetIdTablaImpresion: String;
-    procedure SetTablaImpresion (Value: String);
-    procedure SetIdTablaImpresion (Value: String);
-
     function GetReport: TfrxReport; virtual;
   public
-    property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
-    property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
-
     constructor Create(AOwner: TComponent); override;
     property Report: TfrxReport read GetReport;
-    function Print: Boolean;
+    procedure Print;
     procedure Preview;    
     procedure LoadFromStream(AStream : TStream);
     function ExportToFile : String;
@@ -137,29 +117,19 @@ type
 implementation
 
 uses
-  frxRes, frxUtils, frxPrinter, 
-  uCustomEditor, uSistemaFunc, uDataModuleImpresiones;
+  frxRes, frxUtils, frxPrinter, frxFormUtils,
+  uCustomEditor, uSistemaFunc;
 
 {$R *.dfm}
 
 { TfEditorBase1 }
 
-function TfEditorPreview.GetIdTablaImpresion: String;
-begin
-  Result := FIdTablaImpresion;
-end;
-
 function TfEditorPreview.GetReport: TfrxReport;
 begin
   Result := frxReport1;
 end;
 
 
-function TfEditorPreview.GetTablaImpresion: String;
-begin
-  Result := FTablaImpresion;
-end;
-
 procedure TfEditorPreview.FormShow(Sender: TObject);
 begin
   inherited;
@@ -314,13 +284,6 @@ begin
     [PageNo, Sender.PageCount]);
 end;
 
-procedure TfEditorPreview.OnPrint(Sender: Tobject);
-begin
-  FVariable := True;
-  if (FTablaImpresion <> '-1') and (FIdTablaImpresion <> '-1') then
-     dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
-end;
-
 constructor TfEditorPreview.Create(AOwner: TComponent);
 begin
   inherited;
@@ -341,8 +304,6 @@ begin
   FPreview := TfrViewPreview.Create(Self);
   Report.Preview := FPreview.Preview;
   FPreview.Preview.OnPageChanged := OnPageChanged;
-  FTablaImpresion := '-1';
-  FIdTablaImpresion := '-1';
 end;
 
 procedure TfEditorPreview.Preview;
@@ -350,28 +311,13 @@ begin
   Self.ShowModal;
 end;
 
-function TfEditorPreview.Print: Boolean;
+procedure TfEditorPreview.Print;
 begin
-  FVariable := False;
-  FPreview.Preview.Report.OnPrintReport := OnPrint;
-
   if not frxPrinters.HasPhysicalPrinters then
     frxErrorMsg(frxResources.Get('clNoPrinters'))
   else
     FPreview.Preview.Print;
-
   Enabled := True;
-  Result := FVariable;
-end;
-
-procedure TfEditorPreview.SetIdTablaImpresion(Value: String);
-begin
-  FIdTablaImpresion := Value;
-end;
-
-procedure TfEditorPreview.SetTablaImpresion(Value: String);
-begin
-  FTablaImpresion := Value;
 end;
 
 function TfEditorPreview.ExportToFile: String;

Source/Base/GUIBase/uViewFiltroBase.dfm

@@ -1,9 +1,10 @@
-inherited frViewFiltroBase: TfrViewFiltroBase
+object frViewFiltroBase: TfrViewFiltroBase
+  Left = 0
+  Top = 0
   Width = 565
   Height = 102
+  TabOrder = 0
   Visible = False
-  ExplicitWidth = 565
-  ExplicitHeight = 102
   object TBXDockablePanel1: TTBXDockablePanel
     Left = 0
     Top = 0
@@ -19,6 +20,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
     ShowCaptionWhenDocked = False
     SupportedDocks = [dkStandardDock, dkMultiDock]
     TabOrder = 0
+    ExplicitWidth = 128
+    ExplicitHeight = 98
     object dxLayoutControl1: TdxLayoutControl
       Left = 0
       Top = 0
@@ -27,8 +30,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
       Align = alTop
       ParentBackground = True
       TabOrder = 0
-      TabStop = False
       AutoContentSizes = [acsWidth, acsHeight]
+      ExplicitWidth = 128
       object txtFiltroTodo: TcxTextEdit
         Left = 87
         Top = 10
@@ -126,6 +129,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
       Margins.Left = 10
       Align = alTop
       TabOrder = 1
+      ExplicitWidth = 128
       object tbxBotones: TTBXToolbar
         Left = 10
         Top = 0
@@ -143,6 +147,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
         ParentShowHint = False
         ShowHint = True
         TabOrder = 0
+        ExplicitWidth = 118
         object TBXItem2: TTBXItem
           Action = actQuitarFiltro
           DisplayMode = nbdmImageAndText

Source/Base/GUIBase/uViewFiltroBase.pas

@@ -7,10 +7,10 @@ uses
   Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl,
   cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls,
   StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
-  TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, uViewBase;
+  TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList;
 
 type
-  IViewFiltroBase = interface (IViewBase)
+  IViewFiltroBase = interface
   ['{0D0EA630-BF93-4BA1-93C2-FD5A5B0CBEED}']
     function GetFiltrosChange: TNotifyEvent;
     procedure SetFiltrosChange(const Value: TNotifyEvent);
@@ -25,7 +25,7 @@ type
     property Texto: String read GetTexto write SetTexto;
   end;
 
-  TfrViewFiltroBase = class(TfrViewBase , IViewFiltroBase)
+  TfrViewFiltroBase = class(TFrame, IViewFiltroBase)
     dxLayoutControl1Group_Root: TdxLayoutGroup;
     dxLayoutControl1: TdxLayoutControl;
     dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
@@ -59,7 +59,6 @@ type
   protected
     procedure LimpiarCampos; virtual;
     function ValidarCampos: Boolean; virtual;
-    function GetModified: Boolean; override;
 
   public
     property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
@@ -79,11 +78,6 @@ begin
   Result := FOnFiltrosChange;
 end;
 
-function TfrViewFiltroBase.GetModified: Boolean;
-begin
-  Result := False;
-end;
-
 procedure TfrViewFiltroBase.SetFiltrosChange(const Value: TNotifyEvent);
 begin
   FOnFiltrosChange := Value;

Source/Base/GUIBase/uViewGrid.dfm

@@ -47,6 +47,7 @@ inherited frViewGrid: TfrViewGrid
       OptionsView.GridLines = glHorizontal
       OptionsView.GroupByBox = False
       OptionsView.HeaderEndEllipsis = True
+      OptionsView.NewItemRowInfoText = 'Click here to add a new row'
       Styles.Inactive = cxStyleSelection
       Styles.Selection = cxStyleSelection
       Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
@@ -61,15 +62,8 @@ inherited frViewGrid: TfrViewGrid
     Width = 554
     Height = 102
     Align = alTop
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = []
-    ParentFont = False
     TabOrder = 1
     Visible = False
-    ReadOnly = False
     ExplicitWidth = 554
     inherited TBXDockablePanel1: TTBXDockablePanel
       ExplicitWidth = 554
@@ -114,7 +108,6 @@ inherited frViewGrid: TfrViewGrid
     SupportedDocks = [dkStandardDock, dkMultiDock]
     TabOrder = 2
     Visible = False
-    ExplicitWidth = 128
     object TBXAlignmentPanel1: TTBXAlignmentPanel
       Left = 0
       Top = 0
@@ -162,7 +155,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.ScaleMode = smFit
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 40259.515870208340000000
+      ReportDocument.CreationDate = 39449.781622719910000000
       StyleManager = dxPrintStyleManager1
       OptionsCards.Shadow.Depth = 0
       OptionsExpanding.ExpandGroupRows = True
@@ -194,7 +187,6 @@ inherited frViewGrid: TfrViewGrid
   object cxStyleRepository1: TcxStyleRepository
     Left = 296
     Top = 128
-    PixelsPerInch = 96
     object cxStyleEven: TcxStyle
     end
     object cxStyleOdd: TcxStyle
@@ -249,7 +241,6 @@ inherited frViewGrid: TfrViewGrid
   object cxStyleRepositoryInforme: TcxStyleRepository
     Left = 368
     Top = 160
-    PixelsPerInch = 96
     object cxStyleContentInforme: TcxStyle
       AssignedValues = [svColor, svFont, svTextColor]
       Color = clWhite

Source/Base/GUIBase/uViewGrid.pas

@@ -1,6 +1,6 @@
-{*******************************************************}
+{*******************************************************}
 {                                                       }
-{       Administración de puntos de venta               }
+{       Administración de puntos de venta               }
 {                                                       }
 {       Copyright (C) 2006 Rodax Software S.L.          }
 {                                                       }
@@ -18,10 +18,10 @@ uses
   cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
   DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
+  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
   cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
   cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
-  TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView;
+  TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg;
 
 type
   IViewGrid = interface(IViewGridBase)
@@ -139,19 +139,16 @@ end;
 procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject);
 var
   Columna: TcxGridDBColumn;
-  i,j: Integer;
+  i: Integer;
 begin
   inherited;
-  for j := 0 to cxGrid.ViewCount - 1 do
+  for i := 0 to  cxGridView.ColumnCount - 1 do
   begin
-    for i := 0 to  (cxGrid.Views[j] as tcxGridDBTableView).ColumnCount - 1 do
+    Columna := (cxGridView as TcxGridDBTableView).Columns[i];
+    if not (Columna.GroupIndex < 0) then
     begin
-      Columna := (cxGrid.Views[j] as TcxGridDBTableView).Columns[i];
-      if not (Columna.GroupIndex < 0) then
-      begin
-        Columna.GroupIndex := -1;
-        Columna.Visible := True;
-      end;
+      Columna.GroupIndex := -1;
+      Columna.Visible := True;
     end;
   end;
 end;

Source/Base/GUIBase/uViewGrid2Niveles.dfm

@@ -96,7 +96,6 @@ inherited frViewGrid2Niveles: TfrViewGrid2Niveles
   object cxStyleRepository1: TcxStyleRepository
     Left = 296
     Top = 128
-    PixelsPerInch = 96
     object cxStyleEven: TcxStyle
     end
     object cxStyleOdd: TcxStyle

Source/Base/GUIBase/uViewGrid2Niveles.pas

@@ -18,7 +18,7 @@ uses
   cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
   DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
+  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
   cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
   cxGridPopupMenu;
 

Source/Base/GUIBase/uViewGridBase.pas

@@ -18,7 +18,7 @@ uses
   cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
   DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
+  dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
   cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils, uViewFiltroBase;
 
 type
@@ -37,9 +37,6 @@ type
     procedure SaveGridStatus;
     procedure RestoreGridStatus;
 
-    procedure DesactivarGrid;
-    procedure ActivarGrid;
-
     procedure GotoFirst;
     procedure GotoLast;
 
@@ -52,9 +49,6 @@ type
     procedure StoreToRegistry (const Path : String);
     procedure RestoreFromRegistry (const Path : String);
 
-    procedure RestoreFromIniFile;
-    procedure StoreToIniFile;
-
     procedure SetDblClick(const Value: TNotifyEvent);
     function GetDblClick: TNotifyEvent;
     property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
@@ -99,7 +93,6 @@ type
     FFilter: string;
     FOnFilterChanged : TNotifyEvent;
     FGridStatus : TcxGridStatus;
-    procedure BestFitAllColumns;
   protected
     FOnDblClick: TNotifyEvent;
     FPopupMenu: TPopupMenu;
@@ -143,8 +136,6 @@ type
 
     procedure SaveGridStatus;
     procedure RestoreGridStatus;
-    procedure DesactivarGrid;
-    procedure ActivarGrid;
 
     procedure GotoFirst;
     procedure GotoLast;
@@ -152,9 +143,6 @@ type
     procedure StoreToRegistry (const Path : String); virtual;
     procedure RestoreFromRegistry (const Path : String); virtual;
 
-    procedure RestoreFromIniFile;
-    procedure StoreToIniFile;
-
     function Locate(const AItemIndex: Integer; const AValue: String;
       const APartialCompare: Boolean = False) : Boolean;
     
@@ -178,8 +166,7 @@ procedure Register;
 implementation
 
 uses
-  CCReg, uDataModuleBase, uDBSelectionListUtils, cxGridDBDataDefinitions,
-  uSistemaFunc, SHFolder;
+  CCReg, uDataModuleBase, uDBSelectionListUtils;
 
 {$R *.dfm}
 
@@ -190,52 +177,12 @@ end;
 
 { TfrViewGrid }
 
-procedure TfrViewGridBase.ActivarGrid;
-begin
-  if Assigned(_FocusedView) then
-     _FocusedView.EndUpdate;
-end;
-
-procedure TfrViewGridBase.BestFitAllColumns;
-var
-  i : Integer ;
-
-begin
-  ShowHourglassCursor;
-  _FocusedView.BeginUpdate;
-  try
-    for i := 0 to _FocusedView.VisibleColumnCount-1 do
-    begin
-      _FocusedView.VisibleColumns[i].ApplyBestFit;
-      ShowMessage(Format('Width=%d, Min=%d, Max=%d', [_FocusedView.VisibleColumns[i].Width, _FocusedView.VisibleColumns[i].MinWidth, _FocusedView.VisibleColumns[i].BestFitMaxWidth]));
-      if (_FocusedView.VisibleColumns[i].Width < _FocusedView.VisibleColumns[i].MinWidth) then
-        _FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].MinWidth
-      else
-        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 TfrViewGridBase.AjustarAncho;
 begin
   if Assigned(_FocusedView) then
-  begin
-    ShowHourglassCursor;
-    try
-      _FocusedView.ApplyBestFit(nil, True, False);
-      //BestFitAllColumns;
-    finally
-      HideHourglassCursor;
-    end;
-  end;
+    _FocusedView.ApplyBestFit;
 end;
 
-
 procedure TfrViewGridBase.AnadirOtrosFiltros;
 begin
 //
@@ -353,24 +300,6 @@ begin
      Filter := ViewFiltros.Texto;
 end;
 
-procedure TfrViewGridBase.RestoreFromIniFile;
-var
-  AIniFile : String;
-begin
-  if Assigned(_FocusedView) then
-  begin
-
-    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
-    AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
-
-    if not DirectoryExists(AIniFile) then
-      if not ForceDirectories(AIniFile) then
-        raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile])); 
-
-    _FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
-  end;
-end;
-
 procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
 begin
   if Assigned(_FocusedView) then
@@ -458,24 +387,6 @@ begin
   end;
 end;
 
-procedure TfrViewGridBase.StoreToIniFile;
-var
-  AIniFile : String;
-begin
-  if Assigned(_FocusedView) then
-  begin
-
-    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
-    AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
-
-    if not DirectoryExists(AIniFile) then
-      if not ForceDirectories(AIniFile) then
-        raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile])); 
-
-    _FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
-  end;
-end;
-
 procedure TfrViewGridBase.StoreToRegistry(const Path : String);
 begin
   if Assigned(_FocusedView) then
@@ -520,12 +431,6 @@ begin
 //
 end;
 
-procedure TfrViewGridBase.DesactivarGrid;
-begin
-  if Assigned(_FocusedView) then
-    _FocusedView.BeginUpdate;
-end;
-
 destructor TfrViewGridBase.Destroy;
 begin
   FOnFilterChanged := Nil;

Source/Base/Usuarios/uLoginForm.dfm

@@ -1076,7 +1076,7 @@ object fLoginForm: TfLoginForm
     StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
     StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
     StorageOptions.BooleanAsString = False
-    Root = 'Software\FactuGES'
+    Root = 'Software\%APPL_NAME%'
     SubStorages = <>
     Left = 14
     Top = 168

Source/Base/Utiles/uDataTableUtils.pas

@@ -302,17 +302,12 @@ begin
     if ASource.Active then
       ASource.Close;
 
-    //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia
-    if (AObj.SelectedRecords.Count = 0) then
-      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')'
-    //En caso contrario filtramos por los elementos seleccionados
-    else
-      for i := 0 to AObj.SelectedRecords.Count - 1 do
-      begin
-        if (i > 0) then
-          ASource.Filter := ASource.Filter + ' or ';
-        ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
-      end;
+    for i := 0 to AObj.SelectedRecords.Count - 1 do
+    begin
+      if (i > 0) then
+        ASource.Filter := ASource.Filter + ' or ';
+      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
+    end;
 
     ASource.Filtered := True;
   end;

Source/Base/Utiles/uEMailUtils.pas

@@ -1,457 +0,0 @@
-unit uEMailUtils;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
-
-type
-  { Introducing a new Type of Event to get the Errorcode }
-  TMapiErrEvent = procedure(Sender: TObject; ErrCode: Integer) of object;
-
-  TMapiControl = class(TComponent)
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
-  private
-    { Private-Deklarationen }
-    FSubject: string;
-    FMailtext: string;
-    FFromName: string;
-    FFromAdress: string;
-    FTOAdr: TStrings;
-    FCCAdr: TStrings;
-    FBCCAdr: TStrings;
-    FAttachedFileName: TStrings;
-    FDisplayFileName: TStrings;
-    FShowDialog: Boolean;
-    FUseAppHandle: Boolean;
-    { Error Events: }
-{    FOnUserAbort: TNotifyEvent;
-    FOnMapiError: TMapiErrEvent;
-    FOnSuccess: TNotifyEvent;}
-    { +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]}
-    procedure SetToAddr(newValue: TStrings);
-    procedure SetCCAddr(newValue: TStrings);
-    procedure SetBCCAddr(newValue: TStrings);
-    procedure SetAttachedFileName(newValue: TStrings);
-    { +< Changes }
-  protected
-    { Protected-Deklarationen }
-  public
-    { Public-Deklarationen }
-    ApplicationHandle: THandle;
-    function Sendmail: Boolean;
-    procedure Reset;
-  published
-    { Published-Deklarationen }
-    property Subject: string read FSubject write FSubject;
-    property Body: string read FMailText write FMailText;
-    property FromName: string read FFromName write FFromName;
-    property FromAdress: string read FFromAdress write FFromAdress;
-    property Recipients: TStrings read FTOAdr write SetTOAddr;
-    property CopyTo: TStrings read FCCAdr write SetCCAddr;
-    property BlindCopyTo: TStrings read FBCCAdr write SetBCCAddr;
-    property AttachedFiles: TStrings read FAttachedFileName write SetAttachedFileName;
-    property DisplayFileName: TStrings read FDisplayFileName;
-    property ShowDialog: Boolean read FShowDialog write FShowDialog;
-    property UseAppHandle: Boolean read FUseAppHandle write FUseAppHandle;
-
-    { Events: }
-    {property OnUserAbort: TNotifyEvent read FOnUserAbort write FOnUserAbort;
-    property OnMapiError: TMapiErrEvent read FOnMapiError write FOnMapiError;
-    property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess;}
-  end;
-
-function EsDireccionEMailValida(const Value: string): boolean;
-function EnviarEMailMAPI(const AAsunto, ACuerpo, AFicheroAdjunto, ANombreRemitente, AEMailRemitente,
-  ANombreDestinatario, AEMailDestinatario: String; AEnviarDirectamente: Boolean = false) : boolean;
-
-implementation
-
-uses
-  MAPI;
-
-function EsDireccionEMailValida(const Value: string): boolean;
-  function CheckAllowed(const s: string): boolean;
-  var
-    i: integer;
-  begin
-    Result:= false;
-    for i:= 1 to Length(s) do
-    begin
-      // illegal char in s -> no valid address
-      if not (s[i] in ['a'..'z','A'..'Z','0'..'9','_','-','.']) then
-        Exit;
-    end;
-    Result:= true;
-  end;
-var
-  i: integer;
-  namePart, serverPart: string;
-begin // of IsValidEmail
-  Result:= false;
-  i:= Pos('@', Value);
-  if (i = 0) or (pos('..', Value) > 0) then
-    Exit;
-  namePart:= Copy(Value, 1, i - 1);
-  serverPart:= Copy(Value, i + 1, Length(Value));
-  if (Length(namePart) = 0)         // @ or name missing
-    or ((Length(serverPart) < 4))   // name or server missing or
-    then Exit;                      // too short
-  i:= Pos('.', serverPart);
-  // must have dot and at least 3 places from end
-  if (i < 2) or (i > (Length(serverPart) - 2)) then
-    Exit;
-  Result:= CheckAllowed(namePart) and CheckAllowed(serverPart);
-end;
-
-function EnviarEMailMAPI(const AAsunto, ACuerpo, AFicheroAdjunto, ANombreRemitente, AEMailRemitente,
-  ANombreDestinatario, AEMailDestinatario: String; AEnviarDirectamente: Boolean = false) : boolean;
-var
-  AMAPIControl : TMapiControl;
-begin
-  AMAPIControl := TMapiControl.Create(NIL);
-  try
-    with AMAPIControl do
-    begin
-      Subject := AAsunto;
-      Body := ACuerpo;
-      FromName := ANombreRemitente;
-      FromAdress := AEMailRemitente;
-
-      Recipients.Add(AEMailDestinatario);
-      AttachedFiles.Add(AFicheroAdjunto);
-
-      ShowDialog := not AEnviarDirectamente;
-    end;
-    Result := AMAPIControl.Sendmail;
-  finally
-    FreeANDNIL(AMAPIControl);
-  end;
-end;
-
-
-{ TMapiControl }
-
-constructor TMapiControl.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  {FOnUserAbort := nil;
-  FOnMapiError := nil;
-  FOnSuccess := nil;}
-  FSubject := '';
-  FMailtext := '';
-  FFromName := '';
-  FFromAdress := '';
-  FTOAdr := TStringList.Create;
-  FCCAdr := TStringList.Create;
-  FBCCAdr := TStringList.Create;
-  FAttachedFileName := TStringList.Create;
-  FDisplayFileName := TStringList.Create;
-  FShowDialog := False;
-  ApplicationHandle := Application.Handle;
-end;
-
-{ +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]}
-
-procedure TMapiControl.SetToAddr(newValue: TStrings);
-begin
-  FToAdr.Assign(newValue);
-end;
-
-procedure TMapiControl.SetCCAddr(newValue: TStrings);
-begin
-  FCCAdr.Assign(newValue);
-end;
-
-procedure TMapiControl.SetBCCAddr(newValue: TStrings);
-begin
-  FBCCAdr.Assign(newValue);
-end;
-
-procedure TMapiControl.SetAttachedFileName(newValue: TStrings);
-begin
-  FAttachedFileName.Assign(newValue);
-end;
-{ +< Changes }
-
-destructor TMapiControl.Destroy;
-begin
-  FTOAdr.Free;
-  FCCAdr.Free;
-  FBCCAdr.Free;
-  FAttachedFileName.Free;
-  FDisplayFileName.Free;
-  inherited destroy;
-end;
-
-{ Reset the fields for re-use}
-
-procedure TMapiControl.Reset;
-begin
-  FSubject := '';
-  FMailtext := '';
-  FFromName := '';
-  FFromAdress := '';
-  FTOAdr.Clear;
-  FCCAdr.Clear;
-  FBCCAdr.Clear;
-  FAttachedFileName.Clear;
-  FDisplayFileName.Clear;
-end;
-
-{ Send the Mail via the API, this procedure composes and sends
-  the Email }
-
-function TMapiControl.Sendmail: Boolean;
-var
-  MapiMessage: TMapiMessage;
-  MError: Cardinal;
-  Sender: TMapiRecipDesc;
-  PRecip, Recipients: PMapiRecipDesc;
-  PFiles, Attachments: PMapiFileDesc;
-  i: Integer;
-  AppHandle: THandle;
-begin
-  { First we store the Application Handle, if not
-    the Component might fail to send the Email or
-    your calling Program gets locked up. }
-  AppHandle := Application.Handle;
-
-  { Initialize the Attachment Pointer, to keep Delphi quiet }
-  PFiles := nil;
-
-  { We need all recipients to alloc the memory }
-  MapiMessage.nRecipCount := FTOAdr.Count + FCCAdr.Count + FBCCAdr.Count;
-  GetMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));
-
-  try
-    with MapiMessage do
-      begin
-        ulReserved := 0;
-        { Setting the Subject: }
-        lpszSubject := PChar(Self.FSubject);
-
-        { ... the Body: }
-        lpszNoteText := PChar(FMailText);
-
-        lpszMessageType := nil;
-        lpszDateReceived := nil;
-        lpszConversationID := nil;
-        flFlags := 0;
-
-        { and the sender: (MAPI_ORIG) }
-        Sender.ulReserved := 0;
-        Sender.ulRecipClass := MAPI_ORIG;
-        Sender.lpszName := PChar(FromName);
-        Sender.lpszAddress := PChar(FromAdress);
-        Sender.ulEIDSize := 0;
-        Sender.lpEntryID := nil;
-        lpOriginator := @Sender;
-
-        PRecip := Recipients;
-
-        { We have multiple recipients: (MAPI_TO)
-          and setting up each: }
-        if nRecipCount > 0 then
-          begin
-            for i := 1 to FTOAdr.Count do
-              begin
-                PRecip^.ulReserved := 0;
-                PRecip^.ulRecipClass := MAPI_TO;
-                { lpszName should carry the Name like in the
-                  contacts or the adress book, I will take the
-                  email adress to keep it short: }
-                PRecip^.lpszName := PChar(FTOAdr.Strings[i - 1]);
-                { If you use this component with Outlook97 or 2000
-                  and not some of Express versions you will have to set
-                  'SMTP:' in front of each (email-) adress. Otherwise
-                  Outlook/Mapi will try to handle the Email on itself.
-                  Sounds strange, just erease the 'SMTP:', compile, compose
-                  a mail and take a look at the resulting email adresses
-                  (right click).
-                }
-                { +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
-                PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FTOAdr.Strings[i - 1]));
-                { +< Changes  }
-                PRecip^.ulEIDSize := 0;
-                PRecip^.lpEntryID := nil;
-                Inc(PRecip);
-              end;
-
-            { Same with the carbon copy recipients: (CC, MAPI_CC) }
-            for i := 1 to FCCAdr.Count do
-              begin
-                PRecip^.ulReserved := 0;
-                PRecip^.ulRecipClass := MAPI_CC;
-                PRecip^.lpszName := PChar(FCCAdr.Strings[i - 1]);
-                { +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
-                PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FCCAdr.Strings[i - 1]));
-                { +< Changes  }
-                PRecip^.ulEIDSize := 0;
-                PRecip^.lpEntryID := nil;
-                Inc(PRecip);
-              end;
-
-            { ... and the blind copy recipients: (BCC, MAPI_BCC) }
-            for i := 1 to FBCCAdr.Count do
-              begin
-                PRecip^.ulReserved := 0;
-                PRecip^.ulRecipClass := MAPI_BCC;
-                PRecip^.lpszName := PChar(FBCCAdr.Strings[i - 1]);
-                { +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
-                PRecip^.lpszAddress := StrNew(PChar('SMTP:' + FBCCAdr.Strings[i - 1]));
-                { +< Changes  }
-                PRecip^.ulEIDSize := 0;
-                PRecip^.lpEntryID := nil;
-                Inc(PRecip);
-              end;
-          end;
-        lpRecips := Recipients;
-
-        { Now we process the attachments: }
-        nFileCount := FAttachedFileName.Count;
-        if nFileCount > 0 then
-          begin
-            GetMem(Attachments, nFileCount * sizeof(TMapiFileDesc));
-            PFiles := Attachments;
-
-            { Fist setting up the display names (without path): }
-            FDisplayFileName.Clear;
-            for i := 1 to FAttachedFileName.Count do
-              FDisplayFileName.Add(ExtractFileName(FAttachedFileName[i - 1]));
-
-            if nFileCount > 0 then
-              begin
-                { Now we pass the attached file (their paths) to the
-                  structure: }
-                for i := 1 to FAttachedFileName.Count do
-                  begin
-                    { Setting the complete Path }
-                    Attachments^.lpszPathName := PChar(FAttachedFileName.Strings[i - 1]);
-                    { ... and the displayname: }
-                    Attachments^.lpszFileName := PChar(FDisplayFileName.Strings[i - 1]);
-                    Attachments^.ulReserved := 0;
-                    Attachments^.flFlags := 0;
-                    { Position has to be -1, please see the WinApi Help
-                      for details. }
-                    Attachments^.nPosition := Cardinal(-1);
-                    Attachments^.lpFileType := nil;
-                    Inc(Attachments);
-                  end;
-              end;
-            lpFiles := PFiles;
-          end
-        else
-          begin
-            nFileCount := 0;
-            lpFiles := nil;
-          end;
-      end;
-
-    { Send the Mail, silent or verbose:
-      Verbose means in Express a Mail is composed and shown as setup.
-      In non-Express versions we show the Login-Dialog for a new
-      session and after we have choosen the profile to use, the
-      composed email is shown before sending
-
-      Silent does currently not work for non-Express version. We have
-      no Session, no Login Dialog so the system refuses to compose a
-      new email. In Express Versions the email is sent in the
-      background.
-
-      Please Note: It seems that your success on the delivery depends
-      on a combination of MAPI-Flags (MAPI_DIALOG, MAPI_LOGON_UI, ...)
-      and your used OS and Office Version. I am currently using
-      Win2K SP1 and Office 2K SP2 with no problems at all.
-      If you experience problems on another versions, please try
-      a different combination of flags for each purpose (Dialog or not).
-      I would be glad to setup a table with working flags on
-      each OS/Office combination, just drop me a line.
-
-      Possible combinations are also (with Dialog):
-      1. MAPI_DIALOG or MAPI_LOGON_UI MAPI_NEW_SESSION or MAPI_USE_DEFAULT
-      2. MAPI_SIMPLE_DEFAULT
-
-      See MAPI.PAS or MAPI.H (SDK) for more...
-     }
-    if FShowDialog then
-      MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)
-    else
-      MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0);
-
-    { Now we have to process the error messages. There are some
-      defined in the MAPI unit please take a look at the unit to get
-      familiar with it.
-      I decided to handle USER_ABORT and SUCCESS as special and leave
-      the rest to fire the "new" error event defined at the top (as
-      generic error)
-
-      Not treated as special (constants from mapi.pas):
-
-      MAPI_E_FAILURE = 2;
-      MAPI_E_LOGON_FAILURE = 3;
-      MAPI_E_LOGIN_FAILURE = MAPI_E_LOGON_FAILURE;
-      MAPI_E_DISK_FULL = 4;
-      MAPI_E_INSUFFICIENT_MEMORY = 5;
-      MAPI_E_ACCESS_DENIED = 6;
-      MAPI_E_TOO_MANY_SESSIONS = 8;
-      MAPI_E_TOO_MANY_FILES = 9;
-      MAPI_E_TOO_MANY_RECIPIENTS = 10;
-      MAPI_E_ATTACHMENT_NOT_FOUND = 11;
-      MAPI_E_ATTACHMENT_OPEN_FAILURE = 12;
-      MAPI_E_ATTACHMENT_WRITE_FAILURE = 13;
-      MAPI_E_UNKNOWN_RECIPIENT = 14;
-      MAPI_E_BAD_RECIPTYPE = 15;
-      MAPI_E_NO_MESSAGES = 16;
-      MAPI_E_INVALID_MESSAGE = 17;
-      MAPI_E_TEXT_TOO_LARGE = 18;
-      MAPI_E_INVALID_SESSION = 19;
-      MAPI_E_TYPE_NOT_SUPPORTED = 20;
-      MAPI_E_AMBIGUOUS_RECIPIENT = 21;
-      MAPI_E_AMBIG_RECIP = MAPI_E_AMBIGUOUS_RECIPIENT;
-      MAPI_E_MESSAGE_IN_USE = 22;
-      MAPI_E_NETWORK_FAILURE = 23;
-      MAPI_E_INVALID_EDITFIELDS = 24;
-      MAPI_E_INVALID_RECIPS = 25;
-      MAPI_E_NOT_SUPPORTED = 26;
-    }
-
-{    case MError of
-      MAPI_E_USER_ABORT:
-        begin
-          if Assigned(FOnUserAbort) then
-            FOnUserAbort(Self);
-        end;
-      SUCCESS_SUCCESS:
-        begin
-          if Assigned(FOnSuccess) then
-            FOnSuccess(Self);
-        end
-      else
-        begin
-          if Assigned(FOnMapiError) then
-            FOnMapiError(Self, MError);
-        end;
-    end;}
-    Result := (MError = 0);
-
-  finally
-    { Finally we do the cleanups, the message should be on its way }
-    { +> Changes by Andreas Hoerig [mailto:andreas.hoerig@sillner.com] }
-    PRecip := Recipients;
-    for i := 1 to MapiMessage.nRecipCount do
-      begin
-        StrDispose(PRecip^.lpszAddress);
-        Inc(PRecip)
-      end;
-    { +< Changes }
-    FreeMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));
-    { +> Changes due to Ken Halliwell [mailto:kjhalliwell@aol.com] }
-    if Assigned(PFiles) then
-      FreeMem(PFiles, MapiMessage.nFileCount * sizeof(TMapiFileDesc));
-    { +< Changes }
-  end;
-end; 
-
-end.

Source/Base/Utiles/uIntegerListUtils.pas

@@ -3,7 +3,7 @@ unit uIntegerListUtils;
 interface
 
 uses
-  Classes, FactuGES_Intf;
+  Classes;
 
 type
   TIntegerList = class(TList)
@@ -14,15 +14,10 @@ type
     procedure Add(Value: integer); reintroduce;
     function Find(Value: integer; var Index: Integer): Boolean;
     property Integers[index: integer]: integer read GetInteger write SetInteger; default;
-    function ToIntegerArray : TIntegerArray;
-    function ToString : String;
   end;
 
 implementation
 
-uses
-  SysUtils;
-
 function TIntegerList.GetInteger(Index: integer): integer;
 begin
   result := Integer(Items[index]);
@@ -33,30 +28,6 @@ begin
   Items[index] := Pointer(Value);
 end;
 
-function TIntegerList.ToIntegerArray: TIntegerArray;
-var
-  i : Integer;
-begin
-  Result := TIntegerArray.Create;
-  for i := 0 to Count - 1 do
-    Result.Add(Integers[i]);
-end;
-
-function TIntegerList.ToString: String;
-var
-  i : Integer;
-  AList : TStringList;
-begin
-  AList := TStringList.Create;
-  try
-    for i := 0 to Count - 1 do
-      AList.Add(IntToStr(Integers[i]));
-    Result := AList.CommaText;
-  finally
-    FreeANDNIL(AList);
-  end;
-end;
-
 procedure TIntegerList.Add(Value: integer);
 var
   Index: integer;
@@ -88,4 +59,3 @@ begin
 end;
 
 end.
-

Source/Base/Utiles/uSistemaFunc.pas

@@ -20,70 +20,33 @@
     ---------------------------------------------------------------------------
 ===============================================================================
 }
+
 unit uSistemaFunc;
 
 interface
 
-uses SysUtils, Classes;
-
 { Funciones del sistema }
 function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean;
-procedure EscribirEnFichero (NombreFichero, Texto : string);
 function DarRutaTemporal : String;
-function DarDirectorioTemporal : String;
 function DarFicheroTemporal : String;
 function DarFicheroJPGTemporal : String;
 function DarFicheroBMPTemporal : String;
 function DarFicheroTIFFTemporal : String;
-function DarFicheroHTMLTemporal : String;
-function DarFicheroExcelTemporal : String;
-function DarFicheroPDFTemporal : String; overload;
-function DarFicheroPDFTemporal(const AFileName : String) : String; overload;
+function DarFicheroExportar (var Fichero : String) : Boolean;
 function DarVersionFichero (Executable : String) : String;
 function DarFechaFichero (Executable : String) : String;
 procedure CopiarFichero(const Origen, Destino: string);
+procedure DoDelTree( TheDir : String);
 procedure Deltree(DirToKill : String; KillChoosenDir : Boolean);
-function GetSpecialFolderPath(folder : integer) : string;
-function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
-function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
-function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
-function EscapeIllegalChars(AFileName: string): string;
-function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
 
-function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
 
 implementation
 
 uses
-  Windows, Variants, Dialogs, JclFileUtils,
-  Messages, Graphics, Controls, Forms,
-  StdCtrls, SHFolder, cxShellBrowserDialog,
-  cxLookAndFeels, uStringsUtils;
-
-
-function GetSpecialFolderPath(folder : integer) : string;
-const
-  SHGFP_TYPE_CURRENT = 0;
-var
-  path: array [0..MAX_PATH] of char;
-begin
-  if SUCCEEDED(SHGetFolderPath(0, folder, 0, SHGFP_TYPE_CURRENT, @path[0])) then
-    Result := path
-  else
-    Result := '';
-end;
-
-procedure EscribirEnFichero (NombreFichero, Texto : string);
-var
-  FicheroAux : TextFile;
-begin
-  SysUtils.DeleteFile(NombreFichero);
-  AssignFile(FicheroAux, NombreFichero);
-  Rewrite(FicheroAux);
-  WriteLn(FicheroAux, Texto);
-  CloseFile(FicheroAux);
-end;
+  SysUtils, Windows, Dialogs,
 
+  Messages, Classes, Graphics, Controls, Forms, 
+  StdCtrls;
 
 function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean): Boolean;
 var
@@ -149,30 +112,6 @@ begin
   Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'tif';
 end;
 
-function DarFicheroPDFTemporal : String;
-var
-  Cadena : String;
-begin
-  Cadena := DarFicheroTemporal;
-  Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'pdf';
-end;
-
-function DarFicheroPDFTemporal(const AFileName : String) : String;
-var
-  Cadena : String;
-  RutaTmp : string;
-begin
-  if not EsCadenaVacia(AFileName) then
-  begin
-    RutaTmp := DarRutaTemporal;
-    Cadena := ExtractFileName(AFileName);
-    Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
-    Result := RutaTmp + Cadena + '.pdf';
-  end
-  else
-    Result := DarFicheroPDFTemporal;
-end;
-
 function DarFicheroBMPTemporal : String;
 var
   Cadena : String;
@@ -181,22 +120,6 @@ begin
   Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'bmp';
 end;
 
-function DarFicheroExcelTemporal : String;
-var
-  Cadena : String;
-begin
-  Cadena := DarFicheroTemporal;
-  Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'xls';
-end;
-
-function DarFicheroHTMLTemporal : String;
-var
-  Cadena : String;
-begin
-  Cadena := DarFicheroTemporal;
-  Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'html';
-end;
-
 function DarFicheroJPGTemporal : String;
 var
   Cadena : String;
@@ -205,7 +128,7 @@ begin
   Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'jpg';
 end;
 
-function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
+function DarFicheroExportar (var Fichero : String) : Boolean;
 var
   DialogoSalvar : TSaveDialog;
 begin
@@ -226,38 +149,29 @@ begin
   end;
 end;
 
-function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
-var
-  DialogoSalvar : TSaveDialog;
-begin
-  DialogoSalvar := TSaveDialog.Create(NIL);
-  try
-    with DialogoSalvar do
-    begin
-      DefaultExt := 'xls';
-      Filter := 'Documento de Excel (*.xls)|*.xls';
-      FilterIndex := 0;
-      Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing];
-    end;
-    Result := DialogoSalvar.Execute;
-    if Result then
-      Fichero := DialogoSalvar.FileName;
-  finally
-    DialogoSalvar.Free;
-  end;
-end;
-
-
 function DarVersionFichero (Executable : String) : String;
 var
-  Obj : TJclFileVersionInfo;
+  Size, Size2: DWord;
+  Pt, Pt2: Pointer;
 begin
-  Obj := TJclFileVersionInfo.Create(Application.ExeName);
-  try
-    Result := Obj.FileVersion;
-  finally
-    FreeAndNil(Obj);
-  end;
+ Size := GetFileVersionInfoSize(PChar (Executable), Size2);
+ if Size > 0 then
+ begin
+   GetMem (Pt, Size);
+   try
+      GetFileVersionInfo (PChar (Executable), 0, Size, Pt);
+      VerQueryValue (Pt, '\', Pt2, Size2);
+      with TVSFixedFileInfo (Pt2^) do
+      begin
+        Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' +
+                 IntToStr (LoWord (dwFileVersionMS)) + '.' +
+                 IntToStr (HiWord (dwFileVersionLS)) + '.' +
+                 IntToStr (LoWord (dwFileVersionLS));
+     end;
+   finally
+     FreeMem (Pt);
+   end;
+ end;
 end;
 
 function DarFechaFichero (Executable : String) : String;
@@ -337,127 +251,5 @@ begin
 end;
 
 
-function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
-var
-  cxShellBrowserDialog1: TcxShellBrowserDialog;
-begin
-  cxShellBrowserDialog1 := TcxShellBrowserDialog.Create(NIL);
-  try
-    with cxShellBrowserDialog1 do
-    begin
-      Name := 'cxShellBrowserDialog1';
-      FolderLabelCaption := AComentario;
-      LookAndFeel.NativeStyle := True;
-      LookAndFeel.Kind := lfStandard;
-      Title := ATitulo;
-
-      Result := cxShellBrowserDialog1.Execute;
-      ARuta := cxShellBrowserDialog1.Path;
-    end;
-  finally
-    FreeANDNIL(cxShellBrowserDialog1);
-  end;
-end;
-
-
-function EscapeIllegalChars(AFileName: string): string;
-var
-  x: integer;
-const
-  IllegalCharSet: set of char =
-    ['|','<','>','\','^','+','=','?','/','[',']','"',';',',','*'];
-begin
-  for x := 1 to Length(AFileName) do
-    if AFileName[x] in IllegalCharSet then
-      AFileName[x] := '_';
-  Result := AFileName;
-end;
-
-function FindFile(const filespec: TFileName; attributes: integer): TStringList;
-var
-  spec: string;
-  list: TStringList;
-
-procedure RFindFile(const folder: TFileName);
-var
-  SearchRec: TSearchRec;
-begin
-  // Locate all matching files in the current
-  // folder and add their names to the list
-  if FindFirst(folder + spec, attributes, SearchRec) = 0 then begin
-    try
-      repeat
-        if (SearchRec.Attr and faDirectory = 0) or
-           (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
-          list.Add(folder + SearchRec.Name);
-      until FindNext(SearchRec) <> 0;
-    except
-      SysUtils.FindClose(SearchRec);
-      raise;
-    end;
-    SysUtils.FindClose(SearchRec);
-  end;
-  // Now search the subfolders
-  if FindFirst(folder + '*', attributes
-      Or faDirectory, SearchRec) = 0 then
-  begin
-    try
-      repeat
-        if ((SearchRec.Attr and faDirectory) <> 0) and
-           (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
-          RFindFile(folder + SearchRec.Name + '\');
-      until FindNext(SearchRec) <> 0;
-    except
-      SysUtils.FindClose(SearchRec);
-      raise;
-    end;
-    SysUtils.FindClose(SearchRec);
-  end;
-end; // procedure RFindFile inside of FindFile
-
-begin // function FindFile
-  list := TStringList.Create;
-  try
-    spec := ExtractFileName(filespec);
-    RFindFile(ExtractFilePath(filespec));
-    Result := list;
-  except
-    list.Free;
-    raise;
-  end;
-end;
-
-function DarDirectorioTemporal : String;
-var
-  Cadena: String;
-begin
-  Cadena := ExtractFileName(DarFicheroTemporal);
-  Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
-  Result := DarRutaTemporal + Cadena + '\';
-end;
-
-function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
-var
-  ARutaCompleta: String;
-begin
-  Result := Null;
-
-  ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
-  if FileExists(ARutaCompleta) then
-     Result := ARutaCompleta
-  else
-  begin
-    ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
-    if FileExists(ARutaCompleta) then
-       Result := ARutaCompleta
-    else
-    begin
-      ARutaCompleta := ARutaIni + '\' + AFichero;
-      if FileExists(ARutaCompleta) then
-         Result := ARutaCompleta
-    end
-  end
-end;
-
 end.
  

Source/Base/Utiles/uStringsUtils.pas

@@ -1,71 +0,0 @@
-unit uStringsUtils;
-
-interface
-
-uses
-  Classes;
-
-const
-  DISPLAY_EUROS2 = '#,0.00 €';
-
-procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
-function StringsToString(Source:TStrings; Delimiter:char):string;
-function EsCadenaVacia(const S: AnsiString): Boolean; overload;
-function EsCadenaVacia(const S: Variant): Boolean; overload;
-function EsNumerico(Cadena: String) : Boolean;
-function EscaparCadena (Cadena: String): String;
-
-implementation
-
-uses
-  Variants, SysUtils, JclStrings;
-
-{ Convierte una cadena con items separados con un delimitador en un TString }
-procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
-var i: integer;
-begin
-  for i:=1 to length(Source) do
-    if Source[ i ] = Delimiter then Source[ i ]:=#10;
-  Target.Text:=Source;
-end;
-
-{ Convierte un TString en una cadena de items separados con un delimitador }
-function StringsToString(Source:TStrings; Delimiter:char):string;
-var i: integer;
-begin
-  Result:='';
-  for i:=0 to Source.Count-1 do
-    Result:=Result + Delimiter + Source[ i ];
-  if Result<>'' then Delete(Result, 1, 1)
-end;
-
-function EsCadenaVacia(const S: AnsiString): Boolean;
-begin
-  Result := (Length(Trim(S)) = 0)
-end;
-
-function EsCadenaVacia(const S: Variant): Boolean; overload;
-begin
-  Result := True;
-  if VarIsNull(S) then
-    Exit;
-  Result := EsCadenaVacia(VarToStr(S));
-end;
-
-function EsNumerico(Cadena: String) : Boolean;
-var
-  Codigo: Integer;
-  Valor: Double;
-begin
-  Val(Cadena, Valor, Codigo);
-  Result := (Codigo = 0)
-end;
-
-function EscaparCadena (Cadena: String): String;
-begin
-  Result := StringReplace(Cadena, '''', '\\''', []);
-  Result := StrStringToEscaped(Result);
-end;
-
-
-end.

Source/Base/uDataModuleBase.dfm

@@ -193,111 +193,42 @@ object dmBase: TdmBase
   object cxIntl: TcxIntl
     Connected = True
     cxLibrary.CantCreateRegistryKey = 'No se puede crear la llave de registro : \%s'
-    cxLibrary.ConverterCantCreateStyleRepository = 'No se puede crear un almac'#233'n de estilos'
-    PageControl.ImageListIndexError = 'El '#237'ndice (%d) deber'#225' estar entre 0 y %d'
-    PageControl.NoBaseImages = 'BaseImages no est'#225' asignado'
-    PageControl.NoRegisteredStyles = 'No hay estilos registrados'
-    PageControl.PageIndexError = '%d es un valor inv'#225'lido para PageIndex, debe estar entre 0 y %d'
-    PageControl.PainterClassError = 'La clase PCPainter es nula'
-    PageControl.StandardStyleError = '%s es un estilo est'#225'ndar no soportado'
-    PageControl.StyleNameError = '%s es un nombre de estilo no registrado'
-    PageControl.TabCountEqualsZero = 'Tabs.Count = 0'
-    PageControl.TabIndexError = 'El '#237'ndice de la pesta'#241'a (%d) est'#225' fuera de l'#237'mites'
-    PageControl.TabVisibleIndexOutsOfBounds = 'Propiedad TabVisibleIndex (%d) deber'#225' estar entre 0 y %d'
-    PageControl.VisibleTabListEmpty = 'No hay pesta'#241'as visibles'
-    PageControl.PCAllowRotateError = '%s es un estilo que no soporta pesta'#241'as rotatorias'
-    QuantumGrid.GridRecursiveLevels = 'No se pueden crear niveles recursivos'
-    QuantumGrid.GridDeletingConfirmationCaption = 'Confirmar'
-    QuantumGrid.GridDeletingFocusedConfirmationText = #191'Borrar registro?'
-    QuantumGrid.GridDeletingSelectedConfirmationText = #191'Borrar todos los registros seleccionados?'
-    QuantumGrid.GridNoDataInfoText = '<No hay datos a mostrar>'
-    QuantumGrid.GridNewItemRowInfoText = 'Haga click aqu'#237' para agregar una nueva l'#237'nea'
-    QuantumGrid.GridFilterIsEmpty = '<Filtro Vac'#237'o>'
-    QuantumGrid.GridCustomizationFormCaption = 'Personalizaci'#243'n'
-    QuantumGrid.GridCustomizationFormColumnsPageCaption = 'Columnas'
-    QuantumGrid.GridGroupByBoxCaption = 'Arrastre una columna aqu'#237' para agrupar por dicha columna'
-    QuantumGrid.GridFilterCustomizeButtonCaption = 'Personalizar...'
-    QuantumGrid.GridColumnsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las columas visibles'
-    QuantumGrid.GridCustomizationFormBandsPageCaption = 'Bandas'
-    QuantumGrid.GridBandsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las bandas visibles'
-    QuantumGrid.GridCustomizationFormRowsPageCaption = 'Rows'
-    QuantumGrid.GridConverterIntermediaryMissing = 'Omiti'#243' un componente intermediario!'
-    QuantumGrid.GridConverterNotExistGrid = 'cxGrid no existe'
-    QuantumGrid.GridConverterNotExistComponent = 'El componente no existe'
-    QuantumGrid.ImportErrorCaption = 'Error al importar'
-    QuantumGrid.NotExistGridView = 'No existe la vista del grid'
-    QuantumGrid.NotExistGridLevel = 'No existe un nivel de grid activo'
-    QuantumGrid.CantCreateExportOutputFile = 'No se puede crear el archivo de exportaci'#243'n'
-    QuantumGrid.EditRepositoryExtLookupComboBoxItem = 
+    PageControl2.ImageListIndexError = 'El '#237'ndice (%d) deber'#225' estar entre 0 y %d'
+    PageControl2.NoBaseImages = 'BaseImages no est'#225' asignado'
+    PageControl2.NoRegisteredStyles = 'No hay estilos registrados'
+    PageControl2.PageIndexError = '%d es un valor inv'#225'lido para PageIndex, debe estar entre 0 y %d'
+    PageControl2.PainterClassError = 'La clase PCPainter es nula'
+    PageControl2.StandardStyleError = '%s es un estilo est'#225'ndar no soportado'
+    PageControl2.StyleNameError = '%s es un nombre de estilo no registrado'
+    PageControl2.TabCountEqualsZero = 'Tabs.Count = 0'
+    PageControl2.TabIndexError = 'El '#237'ndice de la pesta'#241'a (%d) est'#225' fuera de l'#237'mites'
+    PageControl2.TabVisibleIndexOutsOfBounds = 'Propiedad TabVisibleIndex (%d) deber'#225' estar entre 0 y %d'
+    PageControl2.VisibleTabListEmpty = 'No hay pesta'#241'as visibles'
+    QuantumGrid5.GridRecursiveLevels = 'No se pueden crear niveles recursivos'
+    QuantumGrid5.GridDeletingConfirmationCaption = 'Confirmar'
+    QuantumGrid5.GridDeletingFocusedConfirmationText = #191'Borrar registro?'
+    QuantumGrid5.GridDeletingSelectedConfirmationText = #191'Borrar todos los registros seleccionados?'
+    QuantumGrid5.GridNoDataInfoText = '<No hay datos a mostrar>'
+    QuantumGrid5.GridNewItemRowInfoText = 'Haga click aqu'#237' para agregar una nueva l'#237'nea'
+    QuantumGrid5.GridFilterIsEmpty = '<Filtro Vac'#237'o>'
+    QuantumGrid5.GridCustomizationFormCaption = 'Personalizaci'#243'n'
+    QuantumGrid5.GridCustomizationFormColumnsPageCaption = 'Columnas'
+    QuantumGrid5.GridGroupByBoxCaption = 'Arrastre una columna aqu'#237' para agrupar por dicha columna'
+    QuantumGrid5.GridFilterCustomizeButtonCaption = 'Personalizar...'
+    QuantumGrid5.GridColumnsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las columas visibles'
+    QuantumGrid5.GridCustomizationFormBandsPageCaption = 'Bandas'
+    QuantumGrid5.GridBandsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las bandas visibles'
+    QuantumGrid5.GridCustomizationFormRowsPageCaption = 'Rows'
+    QuantumGrid5.GridConverterIntermediaryMissing = 'Omiti'#243' un componente intermediario!'
+    QuantumGrid5.GridConverterNotExistGrid = 'cxGrid no existe'
+    QuantumGrid5.GridConverterNotExistComponent = 'El componente no existe'
+    QuantumGrid5.ImportErrorCaption = 'Error al importar'
+    QuantumGrid5.NotExistGridView = 'No existe la vista del grid'
+    QuantumGrid5.NotExistGridLevel = 'No existe un nivel de grid activo'
+    QuantumGrid5.CantCreateExportOutputFile = 'No se puede crear el archivo de exportaci'#243'n'
+    QuantumGrid5.EditRepositoryExtLookupComboBoxItem = 
       'ExtLookupComboBox|Representa un ultra avanzado control de busque' +
       'da (lookup) usando el QuantumGrid como su control de despliegue'
-    QuantumGrid.GridFilterRowInfoText = 'Haga clic aqu'#237' para definir un filtro'
-    QuantumGrid.GridFilterApplyButtonCaption = 'Aplicar Filtro'
-    QuantumGrid.GridYesterday = 'Ayer'
-    QuantumGrid.GridToday = 'Hoy'
-    QuantumGrid.GridTomorrow = 'Ma'#241'ana'
-    QuantumGrid.GridLast30Days = #218'ltimos 30 d'#237'as'
-    QuantumGrid.GridLast14Days = #218'ltimos 14 d'#237'as'
-    QuantumGrid.GridLast7Days = #218'ltimos 7 d'#237'as'
-    QuantumGrid.GridNext7Days = 'Pr'#243'ximos 7 d'#237'as'
-    QuantumGrid.GridNext14Days = 'Pr'#243'ximos 14 d'#237'as'
-    QuantumGrid.GridNext30Days = 'Pr'#243'ximos 30 d'#237'as'
-    QuantumGrid.GridLastTwoWeeks = #218'lt. dos semanas'
-    QuantumGrid.GridLastWeek = 'Semana pasada'
-    QuantumGrid.GridThisWeek = #201'sta semana'
-    QuantumGrid.GridNextWeek = 'Pr'#243'xima semana'
-    QuantumGrid.GridNextTwoWeeks = 'Pr'#243'x. dos semanas'
-    QuantumGrid.GridLastMonth = #218'ltimo mes'
-    QuantumGrid.GridThisMonth = #201'ste mes'
-    QuantumGrid.GridNextMonth = 'Pr'#243'ximo mes'
-    QuantumGrid.GridLastYear = 'A'#241'o pasado'
-    QuantumGrid.GridThisYear = #201'ste a'#241'o'
-    QuantumGrid.GridNextYear = 'Pr'#243'ximo a'#241'o'
-    QuantumGrid.GridPast = 'Pasado'
-    QuantumGrid.GridFuture = 'Futuro'
-    QuantumGrid.GridMonthFormat = 'mmmm yyyy'
-    QuantumGrid.GridYearFormat = 'yyyy'
-    QuantumGrid.GridChartCategoriesDisplayText = 'Datos'
-    QuantumGrid.GridChartValueHintFormat = '%s para %s es %s'
-    QuantumGrid.GridChartPercentValueTickMarkLabelFormat = '0%'
-    QuantumGrid.GridChartToolBoxDataLevels = 'Niveles de Datos:'
-    QuantumGrid.GridChartToolBoxDataLevelSelectValue = 'seleccione valor'
-    QuantumGrid.GridChartToolBoxCustomizeButtonCaption = 'Personalizar Gr'#225'fico'
-    QuantumGrid.GridChartNoneDiagramDisplayText = 'Sin Diagrama'
-    QuantumGrid.GridChartColumnDiagramDisplayText = 'Diagrama de Columnas'
-    QuantumGrid.GridChartBarDiagramDisplayText = 'Diagrama de Barras'
-    QuantumGrid.GridChartLineDiagramDisplayText = 'Diagrama de L'#237'neas'
-    QuantumGrid.GridChartAreaDiagramDisplayText = 'Diagrama de '#193'rea'
-    QuantumGrid.GridChartPieDiagramDisplayText = 'Diagrama de Tarta'
-    QuantumGrid.GridChartCustomizationFormSeriesPageCaption = 'Series'
-    QuantumGrid.GridChartCustomizationFormSortBySeries = 'Ordenar Por:'
-    QuantumGrid.GridChartCustomizationFormNoSortedSeries = '<serie nula>'
-    QuantumGrid.GridChartCustomizationFormDataGroupsPageCaption = 'Grupos de Datos'
-    QuantumGrid.GridChartCustomizationFormOptionsPageCaption = 'Opciones'
-    QuantumGrid.GridChartLegend = 'Leyenda'
-    QuantumGrid.GridChartLegendKeyBorder = 'Marco de Clave'
-    QuantumGrid.GridChartPosition = 'Posici'#243'n'
-    QuantumGrid.GridChartPositionDefault = 'Defecto'
-    QuantumGrid.GridChartPositionNone = 'Ninguno'
-    QuantumGrid.GridChartPositionLeft = 'Izquierda'
-    QuantumGrid.GridChartPositionTop = 'Superior'
-    QuantumGrid.GridChartPositionRight = 'Derecha'
-    QuantumGrid.GridChartPositionBottom = 'Inferior'
-    QuantumGrid.GridChartAlignment = 'Alineaci'#243'n'
-    QuantumGrid.GridChartAlignmentDefault = 'Defecto'
-    QuantumGrid.GridChartAlignmentStart = 'Inicio'
-    QuantumGrid.GridChartAlignmentCenter = 'Centro'
-    QuantumGrid.GridChartAlignmentEnd = 'Final'
-    QuantumGrid.GridChartOrientation = 'Orientaci'#243'n'
-    QuantumGrid.GridChartOrientationDefault = 'Defecto'
-    QuantumGrid.GridChartOrientationHorizontal = 'Horizontal'
-    QuantumGrid.GridChartOrientationVertical = 'Vertical'
-    QuantumGrid.GridChartBorder = 'Marco'
-    QuantumGrid.GridChartTitle = 'T'#237'tulo'
-    QuantumGrid.GridChartToolBox = 'Caja de Herramientas'
-    QuantumGrid.GridChartDiagramSelector = 'Selector de Diagramas'
-    QuantumGrid.GridChartOther = 'Otro'
-    QuantumGrid.GridChartValueHints = 'Valores de Ayuda'
     Navigator.NavigatorHint_First = 'Primer registro'
     Navigator.NavigatorHint_Prior = 'Registro anterior'
     Navigator.NavigatorHint_PriorPage = 'P'#225'gina anterior'
@@ -306,7 +237,6 @@ object dmBase: TdmBase
     Navigator.NavigatorHint_Last = #218'ltimo registro'
     Navigator.NavigatorHint_Insert = 'Insertar registro'
     Navigator.NavigatorHint_Delete = 'Borrar registro'
-    Navigator.NavigatorHint_Append = 'Append record'
     Navigator.NavigatorHint_Edit = 'Editar registro'
     Navigator.NavigatorHint_Post = 'Grabar edici'#243'n'
     Navigator.NavigatorHint_Cancel = 'Cancelar edici'#243'n'
@@ -315,167 +245,127 @@ object dmBase: TdmBase
     Navigator.NavigatorHint_GotoBookmark = 'Volver a Marca'
     Navigator.NavigatorHint_Filter = 'Filtrar datos'
     Navigator.Navigator_DeleteRecordQuestion = #191'Desea borrar este el registro?'
-    Editors.EditButtonCancel = 'Cancelar'
-    Editors.EditButtonOK = 'Aceptar'
-    Editors.EditDateConvertError = 'El valor no se puede convertir a fecha'
-    Editors.EditInvalidRepositoryItem = 'Elemento de repositorio no v'#225'lido'
-    Editors.EditNumericValueConvertError = 'No se puede convertir a valor num'#233'rico'
-    Editors.EditPopupCircularReferencingError = 'Referencia circular no permitida'
-    Editors.EditPostError = 'Ocurri'#243' un error durante el grabado del valor de edici'#243'n'
-    Editors.EditTimeConvertError = 'No se puede convertir a valor de tiempo'
-    Editors.EditValidateErrorText = 'Valor inv'#225'lido. Use la tecla de escape para cancelar cambios'
-    Editors.EditValueOutOfBounds = 'Valor fuera de l'#237'mites'
-    Editors.EditCheckBoxChecked = 'True'
-    Editors.EditCheckBoxUnchecked = 'False'
-    Editors.TextTrue = 'True'
-    Editors.TextFalse = 'False'
-    Editors.BlobButtonOK = '&Aceptar'
-    Editors.BlobButtonCancel = '&Cancelar'
-    Editors.BlobButtonClose = '&Cerrar'
-    Editors.BlobMemo = '(MEMO)'
-    Editors.BlobMemoEmpty = '(memo)'
-    Editors.BlobPicture = '(IM'#193'GEN)'
-    Editors.BlobPictureEmpty = '(im'#225'gen)'
-    Editors.MenuItemCaptionCut = 'Cor&tar'
-    Editors.MenuItemCaptionCopy = '&Copiar'
-    Editors.MenuItemCaptionPaste = '&Pegar'
-    Editors.MenuItemCaptionDelete = '&Borrar'
-    Editors.MenuItemCaptionLoad = '&Leer...'
-    Editors.MenuItemCaptionSave = 'Guardar &Como...'
-    Editors.DatePopupClear = 'Limpiar'
-    Editors.DatePopupNow = 'Ahora'
-    Editors.DatePopupOK = 'Aceptar'
-    Editors.DatePopupToday = 'Hoy'
-    Editors.DateError = 'Fecha inv'#225'lida'
-    Editors.DateToday = 'hoy'
-    Editors.DateYesterday = 'ayer'
-    Editors.DateTomorrow = 'ma'#241'ana'
-    Editors.DateSunday = 'Domingo'
-    Editors.DateMonday = 'Lunes'
-    Editors.DateTuesday = 'Martes'
-    Editors.DateWednesday = 'Mi'#233'rcoles'
-    Editors.DateThursday = 'Jueves'
-    Editors.DateFriday = 'Viernes'
-    Editors.DateSaturday = 'S'#225'bado'
-    Editors.DateFirst = 'Primero'
-    Editors.DateSecond = 'segundo'
-    Editors.DateThird = 'tercero'
-    Editors.DateFourth = 'Cuarto'
-    Editors.DateFifth = 'Quinto'
-    Editors.DateSixth = 'sexto'
-    Editors.DateSeventh = 's'#233'ptimo'
-    Editors.DateBOM = 'bom'
-    Editors.DateEOM = 'eom'
-    Editors.DateNow = 'ahora'
-    Editors.CalcError = 'Error'
-    Editors.HyperLinkPrefix = 'http://'
-    Editors.HyperLinkDoubleSlash = '//'
-    Editors.EditRepositoryBlobItem = 'BlobEdit|Representa el editor de BLOB'
-    Editors.EditRepositoryButtonItem = 
+    Editors5.EditDateConvertError = 'El valor no se puede convertir a fecha'
+    Editors5.EditInvalidRepositoryItem = 'Elemento de repositorio no v'#225'lido'
+    Editors5.EditNumericValueConvertError = 'No se puede convertir a valor num'#233'rico'
+    Editors5.EditPopupCircularReferencingError = 'Referencia circular no permitida'
+    Editors5.EditPostError = 'Ocurri'#243' un error durante el grabado del valor de edici'#243'n'
+    Editors5.EditTimeConvertError = 'No se puede convertir a valor de tiempo'
+    Editors5.EditValidateErrorText = 'Valor inv'#225'lido. Use la tecla de escape para cancelar cambios'
+    Editors5.EditValueOutOfBounds = 'Valor fuera de l'#237'mites'
+    Editors5.EditCheckBoxChecked = 'True'
+    Editors5.EditCheckBoxUnchecked = 'False'
+    Editors5.TextTrue = 'True'
+    Editors5.TextFalse = 'False'
+    Editors5.BlobButtonOK = '&Aceptar'
+    Editors5.BlobButtonCancel = '&Cancelar'
+    Editors5.BlobButtonClose = '&Cerrar'
+    Editors5.BlobMemo = '(MEMO)'
+    Editors5.BlobMemoEmpty = '(memo)'
+    Editors5.BlobPicture = '(IM'#193'GEN)'
+    Editors5.BlobPictureEmpty = '(im'#225'gen)'
+    Editors5.MenuItemCaptionCut = 'Cor&tar'
+    Editors5.MenuItemCaptionCopy = '&Copiar'
+    Editors5.MenuItemCaptionPaste = '&Pegar'
+    Editors5.MenuItemCaptionDelete = '&Borrar'
+    Editors5.MenuItemCaptionLoad = '&Leer...'
+    Editors5.MenuItemCaptionSave = 'Guardar &Como...'
+    Editors5.DatePopupClear = 'Limpiar'
+    Editors5.DatePopupNow = 'Ahora'
+    Editors5.DatePopupOK = 'Aceptar'
+    Editors5.DatePopupToday = 'Hoy'
+    Editors5.DateError = 'Fecha inv'#225'lida'
+    Editors5.DateToday = 'hoy'
+    Editors5.DateYesterday = 'ayer'
+    Editors5.DateTomorrow = 'ma'#241'ana'
+    Editors5.DateSunday = 'Domingo'
+    Editors5.DateMonday = 'Lunes'
+    Editors5.DateTuesday = 'Martes'
+    Editors5.DateWednesday = 'Mi'#233'rcoles'
+    Editors5.DateThursday = 'Jueves'
+    Editors5.DateFriday = 'Viernes'
+    Editors5.DateSaturday = 'S'#225'bado'
+    Editors5.DateFirst = 'Primero'
+    Editors5.DateSecond = 'segundo'
+    Editors5.DateThird = 'tercero'
+    Editors5.DateFourth = 'Cuarto'
+    Editors5.DateFifth = 'Quinto'
+    Editors5.DateSixth = 'sexto'
+    Editors5.DateSeventh = 's'#233'ptimo'
+    Editors5.DateBOM = 'bom'
+    Editors5.DateEOM = 'eom'
+    Editors5.DateNow = 'ahora'
+    Editors5.CalcError = 'Error'
+    Editors5.HyperLinkPrefix = 'http://'
+    Editors5.HyperLinkDoubleSlash = '//'
+    Editors5.EditRepositoryBlobItem = 'BlobEdit|Representa el editor de BLOB'
+    Editors5.EditRepositoryButtonItem = 
       'ButtonEdit|Representa un control de edici'#243'n con controles incrus' +
       'tados'
-    Editors.EditRepositoryCalcItem = 
+    Editors5.EditRepositoryCalcItem = 
       'CalcEdit|Representa un control de edici'#243'n con una ventana de cal' +
       'culadora desplegable'
-    Editors.EditRepositoryCheckBoxItem = 
+    Editors5.EditRepositoryCheckBoxItem = 
       'CheckBox|Representa un control de caja de marca que permite sele' +
       'ccionar una opci'#243'n'
-    Editors.EditRepositoryComboBoxItem = 'ComboBox|Representa el editor de la caja combo'
-    Editors.EditRepositoryCurrencyItem = 
+    Editors5.EditRepositoryComboBoxItem = 'ComboBox|Representa el editor de la caja combo'
+    Editors5.EditRepositoryCurrencyItem = 
       'CurrencyEdit|Representa un editor que habilita la edici'#243'n de val' +
       'ores monetarios'
-    Editors.EditRepositoryDateItem = 
+    Editors5.EditRepositoryDateItem = 
       'DateEdit|Representa un control de edici'#243'n con un calendario desp' +
       'legable'
-    Editors.EditRepositoryHyperLinkItem = 'HyperLink|Representa un editor de texto de hiperv'#237'nculos'
-    Editors.EditRepositoryImageComboBoxItem = 
+    Editors5.EditRepositoryHyperLinkItem = 'HyperLink|Representa un editor de texto de hiperv'#237'nculos'
+    Editors5.EditRepositoryImageComboBoxItem = 
       'ImageComboBox|Representa un editor que muestra una lista de im'#225'g' +
       'enes y texto en la ventana desplegable'
-    Editors.EditRepositoryImageItem = 'Image|Representa un editor de im'#225'genes'
-    Editors.EditRepositoryLookupComboBoxItem = 'LookupComboBox|Representa una caja de b'#250'squeda'
-    Editors.EditRepositoryMaskItem = 'MaskEdit|Representa un control de edici'#243'n gen'#233'rico con m'#225'scara'
-    Editors.EditRepositoryMemoItem = 
+    Editors5.EditRepositoryImageItem = 'Image|Representa un editor de im'#225'genes'
+    Editors5.EditRepositoryLookupComboBoxItem = 'LookupComboBox|Representa una caja de b'#250'squeda'
+    Editors5.EditRepositoryMaskItem = 'MaskEdit|Representa un control de edici'#243'n gen'#233'rico con m'#225'scara'
+    Editors5.EditRepositoryMemoItem = 
       'Memo|Representa un control de edici'#243'n que permite editar datos m' +
       'emo'
-    Editors.EditRepositoryMRUItem = 
+    Editors5.EditRepositoryMRUItem = 
       'MRUEdit|Representa un editor de texto mostrando la lista de los ' +
       'elementos m'#225's recientemente usados (MRU) en una ventana desplega' +
       'ble'
-    Editors.EditRepositoryPopupItem = 
+    Editors5.EditRepositoryPopupItem = 
       'PopupEdit|Representa un control de edici'#243'n con una lista despleg' +
       'able'
-    Editors.EditRepositorySpinItem = 'SpinEdit|Representa un editor de incrementos/decrementos (spin)'
-    Editors.EditRepositoryRadioGroupItem = 'RadioGroup|Represents a group of radio buttons'
-    Editors.EditRepositoryTextItem = 'TextEdit|Representa un editor de texto de l'#237'nea sencilla'
-    Editors.EditRepositoryTimeItem = 'TimeEdit|Representa un editor mostrando valores de tiempo'
-    Editors.EditRepositoryColorComboBoxItem = 'ColorComboBox |Represents a editor with color functionality'
-    Editors.EditRepositoryFontNameComboBoxItem = 'FontNameComboBox |Represents a editor with font functionality'
-    Editors.EditRepositoryLabelItem = 'Label|Represents a Label'
-    Editors.EditRepositoryProgressBarItem = 'ProgressBar|Represents a ProgressBar'
-    Editors.EditRepositoryTrackBarItem = 'TrackBar|Represents a TrackBar'
-    Editors.EditRepositorySpinButtonItem = 'SpinButton|Represents a SpinButton'
-    Editors.EditRepositoryCheckComboBox = 'CheckComboBox|Represents a CheckComboBox'
-    Editors.EditRepositoryShellComboBoxItem = 
-      'ShellComboBox|Represents a combo box with a dropdown shell tree ' +
-      'view'
-    Editors.EditRepositoryCheckGroupItem = 'CheckGroup|Represents a group of check boxes'
-    Editors.EditRepositoryRichEditItem = 'RichEdit|RichEdit control'
-    Editors.EditCheckGroupCaptionStateDelimiter = ': '
-    Editors.EditCheckGroupFilterColumnSeparator = '; '
-    Editors.EditCheckGroupChecked = 'Checked'
-    Editors.EditCheckGroupGrayed = 'Grayed'
-    Editors.EditCheckGroupUnchecked = 'Unchecked'
-    Editors.CheckComboBoxStatesItemsPropertyDlgCaption = 'cxCheckComboBox - CheckStates editor'
-    Editors.CheckGroupStatesItemsPropertyDlgCaption = 'cxCheckGroup - CheckStates editor'
-    Editors.CheckComboBoxEmptySelectionText = 'None selected'
-    Editors.ColorComboBoxDefaultDescription = 'Color not selected'
-    Editors.EditRichEditLibraryError = 'Cannot load a RichEdit library'
-    Editors.EditRichEditLineInsertionError = 'RichEdit line insertion error'
-    Editors.EditRichEditLoadFail = 'Failed to Load Stream'
-    Editors.EditRichEditSaveFail = 'Failed to Save Stream'
-    Editors.EditRichEditUndoCaption = '&Undo'
-    Editors.EditRichEditRedoCaption = '&Redo'
-    Editors.EditRichEditCutCaption = 'Cu&t'
-    Editors.EditRichEditCopyCaption = '&Copy'
-    Editors.EditRichEditPasteCaption = '&Paste'
-    Editors.EditRichEditDeleteCaption = '&Delete'
-    Editors.EditRichEditSelectAllCaption = 'Select &All'
-    Editors.RegExprLine = 'L'#237'nea'
-    Editors.RegExprChar = 'Char'
-    Editors.RegExprNotAssignedSourceStream = 'No se ha asignado el stream fuente'
-    Editors.RegExprEmptySourceStream = 'El stream or'#237'gen est'#225' vac'#237'o'
-    Editors.RegExprCantUsePlusQuantifier = 'El cuantificador '#39'+'#39' no puede aplicarse aqu'#237
-    Editors.RegExprCantUseStarQuantifier = 'El cuantificador '#39'*'#39' no puede aplicarse aqu'#237
-    Editors.RegExprCantCreateEmptyAlt = 'La alternativa no debe estar vac'#237'a'
-    Editors.RegExprCantCreateEmptyBlock = 'El bloque no debe estar vac'#237'o'
-    Editors.RegExprIllegalSymbol = 'S'#237'mbolo no permitido '#39'%s'#39
-    Editors.RegExprIllegalQuantifier = 'Cuantificador no permitido '#39'%s'#39
-    Editors.RegExprNotSupportQuantifier = 'El par'#225'metro cuantificador no es soportado'
-    Editors.RegExprIllegalIntegerValue = 'Valor entero no permitido'
-    Editors.RegExprTooBigReferenceNumber = 'N'#250'mero de referencia demasiado grande'
-    Editors.RegExprCantCreateEmptyEnum = 'No puedo crear enumeraci'#243'n vac'#237'a'
-    Editors.RegExprSubrangeOrder = 'El caracter de inicio del subrango debe ser menor al de fin'
-    Editors.RegExprHexNumberExpected0 = 'Se esperaba n'#250'mero Hexadecimal'
-    Editors.RegExprHexNumberExpected = 'N'#250'mero Hexadecimal esperado pero encontr'#243' '#39'%s'#39
-    Editors.RegExprMissing = 'Falta '#39'%s'#39
-    Editors.RegExprUnnecessary = 'Innecesario '#39'%s'#39
-    Editors.RegExprIncorrectSpace = 'Espacio incorrecto despu'#233's de '#39'\'#39
-    Editors.RegExprNotCompiled = 'Expresi'#243'n regular no compila'
-    Editors.RegExprIncorrectParameterQuantifier = 'Cuantificador de par'#225'metros incorrecto'
-    Editors.RegExprCantUseParameterQuantifier = 'The parameter quantifier cannot be applied here'
-    Editors.UDAssociated = ' is already associated with '
-    Editors.HotZoneStyleMediaPlayer9 = 'MediaPlayer9'
-    Editors.HotZoneStyleMediaPlayer8 = 'MediaPlayer8'
-    Editors.HotZoneStyleXPTaskBar = 'XPTaskBar'
-    Editors.HotZoneStyleSimple = 'Simple'
-    Editors.LoadingFonts = 'Loading ...'
-    Editors.MaskEditRegExprError = 'Errores en expresiones regulares:'
-    Editors.MaskEditInvalidEditValue = 'El valor de edici'#243'n es inv'#225'lido'
-    Editors.MaskEditNoMask = 'Ninguno'
-    Editors.MaskEditIllegalFileFormat = 'Formato de archivo ilegal'
-    Editors.MaskEditEmptyMaskCollectionFile = 'El archivo de colecci'#243'n de m'#225'scaras est'#225' vac'#237'o'
-    Editors.MaskEditMaskCollectionFiles = 'Archivos de colecci'#243'n de m'#225'scaras'
-    Editors.SpinEditInvalidNumericValue = 'Valor num'#233'rico no v'#225'lido'
+    Editors5.EditRepositorySpinItem = 'SpinEdit|Representa un editor de incrementos/decrementos (spin)'
+    Editors5.EditRepositoryRadioGroupItem = 'RadioGroup|Represents a group of radio buttons'
+    Editors5.EditRepositoryTextItem = 'TextEdit|Representa un editor de texto de l'#237'nea sencilla'
+    Editors5.EditRepositoryTimeItem = 'TimeEdit|Representa un editor mostrando valores de tiempo'
+    Editors5.RegExprLine = 'L'#237'nea'
+    Editors5.RegExprChar = 'Char'
+    Editors5.RegExprNotAssignedSourceStream = 'No se ha asignado el stream fuente'
+    Editors5.RegExprEmptySourceStream = 'El stream or'#237'gen est'#225' vac'#237'o'
+    Editors5.RegExprCantUsePlusQuantifier = 'El cuantificador '#39'+'#39' no puede aplicarse aqu'#237
+    Editors5.RegExprCantUseStarQuantifier = 'El cuantificador '#39'*'#39' no puede aplicarse aqu'#237
+    Editors5.RegExprCantCreateEmptyAlt = 'La alternativa no debe estar vac'#237'a'
+    Editors5.RegExprCantCreateEmptyBlock = 'El bloque no debe estar vac'#237'o'
+    Editors5.RegExprIllegalSymbol = 'S'#237'mbolo no permitido '#39'%s'#39
+    Editors5.RegExprIllegalQuantifier = 'Cuantificador no permitido '#39'%s'#39
+    Editors5.RegExprNotSupportQuantifier = 'El par'#225'metro cuantificador no es soportado'
+    Editors5.RegExprIllegalIntegerValue = 'Valor entero no permitido'
+    Editors5.RegExprTooBigReferenceNumber = 'N'#250'mero de referencia demasiado grande'
+    Editors5.RegExprCantCreateEmptyEnum = 'No puedo crear enumeraci'#243'n vac'#237'a'
+    Editors5.RegExprSubrangeOrder = 'El caracter de inicio del subrango debe ser menor al de fin'
+    Editors5.RegExprHexNumberExpected0 = 'Se esperaba n'#250'mero Hexadecimal'
+    Editors5.RegExprHexNumberExpected = 'N'#250'mero Hexadecimal esperado pero encontr'#243' '#39'%s'#39
+    Editors5.RegExprMissing = 'Falta '#39'%s'#39
+    Editors5.RegExprUnnecessary = 'Innecesario '#39'%s'#39
+    Editors5.RegExprIncorrectSpace = 'Espacio incorrecto despu'#233's de '#39'\'#39
+    Editors5.RegExprNotCompiled = 'Expresi'#243'n regular no compila'
+    Editors5.RegExprIncorrectParameterQuantifier = 'Cuantificador de par'#225'metros incorrecto'
+    Editors5.RegExprCantUseParameterQuantifier = 'The parameter quantifier cannot be applied here'
+    Editors5.MaskEditRegExprError = 'Errores en expresiones regulares:'
+    Editors5.MaskEditInvalidEditValue = 'El valor de edici'#243'n es inv'#225'lido'
+    Editors5.MaskEditNoMask = 'Ninguno'
+    Editors5.MaskEditIllegalFileFormat = 'Formato de archivo ilegal'
+    Editors5.MaskEditEmptyMaskCollectionFile = 'El archivo de colecci'#243'n de m'#225'scaras est'#225' vac'#237'o'
+    Editors5.MaskEditMaskCollectionFiles = 'Archivos de colecci'#243'n de m'#225'scaras'
+    Editors5.SpinEditInvalidNumericValue = 'Valor num'#233'rico no v'#225'lido'
     Datacontroller.DataReadError = 'Error de lectura en or'#237'gen de datos'
     Datacontroller.DataWriteError = 'Error de escritura en or'#237'gen de datos (stream)'
     Datacontroller.DataItemExistError = 'El elemento ya existe'
@@ -512,16 +402,6 @@ object dmBase: TdmBase
     Filter.FilterOperatorNextWeek = 'es semana siguiente'
     Filter.FilterOperatorNextMonth = 'es mes siguiente'
     Filter.FilterOperatorNextYear = 'es a'#241'o pr'#243'ximo'
-    Filter.FilterOperatorLast7Days = #218'ltimos 7 d'#237'as'
-    Filter.FilterOperatorLast14Days = #218'ltimos 14 d'#237'as'
-    Filter.FilterOperatorLastTwoWeeks = #218'ltimas 2 semanas'
-    Filter.FilterOperatorLast30Days = #218'ltimos 30 d'#237'as'
-    Filter.FilterOperatorPast = 'Pasado'
-    Filter.FilterOperatorNext7Days = 'Pr'#243'ximos 7 d'#237'as'
-    Filter.FilterOperatorNext14Days = 'Pr'#243'ximos 14 d'#237'as'
-    Filter.FilterOperatorNextTwoWeeks = 'Pr'#243'ximas 2 semanas'
-    Filter.FilterOperatorNext30Days = 'Pr'#243'ximos 30 d'#237'as'
-    Filter.FilterOperatorFuture = 'Futuro'
     Filter.FilterAndCaption = 'y'
     Filter.FilterOrCaption = 'o'
     Filter.FilterNotCaption = 'no'
@@ -537,17 +417,17 @@ object dmBase: TdmBase
     Filter.FilterBoxAllCaption = '(Todos)'
     Filter.FilterBoxCustomCaption = '(Personalizado...)'
     Filter.FilterBoxBlanksCaption = '(Vac'#237'os)'
-    Filter.FilterBoxNonBlanksCaption = '(NoVac'#237'os)'
-    Filter.FilterBoolOperatorAnd = 'Y'
-    Filter.FilterBoolOperatorOr = 'O'
-    Filter.FilterBoolOperatorNotAnd = 'NO Y'
-    Filter.FilterBoolOperatorNotOr = 'NO O'
+    Filter.FilterBoxNonBlanksCaption = '(No vac'#237'os)'
+    Filter.FilterBoolOperatorAnd = 'AND'
+    Filter.FilterBoolOperatorOr = 'OR'
+    Filter.FilterBoolOperatorNotAnd = 'NOT AND'
+    Filter.FilterBoolOperatorNotOr = 'NOT OR'
     Filter.FilterRootButtonCaption = 'Filtro'
     Filter.FilterAddCondition = 'Agregar &Condici'#243'n'
     Filter.FilterAddGroup = 'Agregar &Grupo'
     Filter.FilterRemoveRow = '&Remover Fila'
     Filter.FilterClearAll = 'Limpiar &Todo'
-    Filter.FilterFooterAddCondition = 'presione el bot'#243'n para agregar una nueva condici'#243'n'
+    Filter.FilterFooterAddCondition = 'Agregar una nueva condici'#243'n'
     Filter.FilterGroupCaption = 'aplica a las siguientes condiciones'
     Filter.FilterRootGroupCaption = '<ra'#237'z>'
     Filter.FilterControlNullString = '<vac'#237'o>'
@@ -574,7 +454,7 @@ object dmBase: TdmBase
     GridPopupMenu.GridNone = 'Ninguno'
     GridPopupMenu.GridSortColumnAsc = 'Ordenar Ascendente'
     GridPopupMenu.GridSortColumnDesc = 'Ordenar Descendente'
-    GridPopupMenu.GridClearSorting = 'Eliminar Ordenaci'#243'n'
+    GridPopupMenu.GridClearSorting = 'Clear Sorting'
     GridPopupMenu.GridGroupByThisField = 'Agrupar por este campo'
     GridPopupMenu.GridRemoveThisGroupItem = 'Remover del grupo'
     GridPopupMenu.GridGroupByBox = 'Panel "Agrupar por"'
@@ -594,9 +474,6 @@ object dmBase: TdmBase
     GridPopupMenu.GridCountMenuItem = 'Contar'
     GridPopupMenu.GridAvgMenuItem = 'Promedio'
     GridPopupMenu.GridNoneMenuItem = 'Ninguno'
-    GridPopupMenu.GridSortByGroupValues = 'Sort by Group Value'
-    GridPopupMenu.GridSortBySummaryCaption = 'Sort by Group Summary:'
-    GridPopupMenu.GridSortBySummary = '%s for %s'
     GridExport.UnsupportedExport = 'Tipo de exportaci'#243'n no soportado: %1'
     GridExport.StyleManagerKill = 
       'El administrador de estilo esta siendo utilizado y no puede ser ' +
@@ -619,15 +496,15 @@ object dmBase: TdmBase
     GridExport.BoolTrue = 'True'
     GridExport.BoolFalse = 'False'
     Translate.cxLibrary = True
-    Translate.PageControl = False
-    Translate.QuantumGrid = False
-    Translate.Editors = False
+    Translate.PageControl2 = False
+    Translate.QuantumGrid5 = True
+    Translate.Editors5 = True
     Translate.Datacontroller = True
     Translate.Filter = True
     Translate.GridPopupMenu = True
     Translate.GridExport = True
     Translate.Navigator = True
-    Version = '6.29'
+    Version = '5.0'
     Left = 104
     Top = 16
   end
@@ -1740,7 +1617,7 @@ object dmBase: TdmBase
     KiloBytes = 'KB'
     MegaBytes = 'MB'
     GigaBytes = 'GB'
-    Left = 184
+    Left = 224
     Top = 16
   end
 end

Source/Base/uDataModuleBase.pas

@@ -38,8 +38,7 @@ implementation
 
 uses
   uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
-  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion,
-  uDataModuleImpresiones;
+  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
 
 {
 *********************************** TdmBase ************************************
@@ -48,7 +47,6 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
 begin
   dmConexion := TdmConexion.Create(NIL);
   dmConfiguracion := TdmConfiguracion.Create(NIL);
-  dmImpresiones := TDataModuleImpresiones.Create(NIL);  
 
   TBXSwitcher.OnThemeChange := OnTBXThemeChange;
   TBXSetTheme('Office2003');
@@ -116,7 +114,6 @@ procedure TdmBase.DataModuleDestroy(Sender: TObject);
 begin
   FreeANDNIL(dmConfiguracion);
   FreeAndNil(dmConexion);
-  FreeAndNil(dmImpresiones);  
 end;
 
 initialization

Source/Cliente/FactuGES.bdsproj

@@ -126,7 +126,7 @@
 			<Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories>
 			<Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories>
 			<Directories Name="Conditionals">_VER6;</Directories>
-			<Directories Name="DebugSourceDirs">C:\Codigo Luis Leon\Source\Modulos\Articulos\Model\</Directories>
+			<Directories Name="DebugSourceDirs">E:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\;E:\Componentes\jvcl\run</Directories>
 			<Directories Name="UsePackages">True</Directories>
 		</Directories>
 		<Parameters>
@@ -147,9 +147,9 @@
 		<VersionInfo>
 			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-			<VersionInfo Name="MajorVer">3</VersionInfo>
-			<VersionInfo Name="MinorVer">3</VersionInfo>
-			<VersionInfo Name="Release">7</VersionInfo>
+			<VersionInfo Name="MajorVer">2</VersionInfo>
+			<VersionInfo Name="MinorVer">4</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -162,22 +162,22 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.3.7.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.3.7.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages>
   </Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6014
+EurekaLog Version=519
 Activate=0
 Activate Handle=1
 Save Log File=1
@@ -491,190 +491,5 @@ Count mtSend_SuccessMsg=1
 mtSend_SuccessMsg0="The message was sent successfully."
 Count mtSend_FailureMsg=1
 mtSend_FailureMsg0="Sorry, sending the message didn't work."
-ProxyURL=
-ProxyUser=
-ProxyPassword=
-ProxyPort=8080
-TrakerUser=
-TrakerPassword=
-TrakerAssignTo=
-TrakerProject=
-TrakerCategory=
-TrakerTrialID=
-ZipPassword=
-PreBuildEvent=
-PostSuccessfulBuildEvent=
-PostFailureBuildEvent=
-ExceptionDialogType=2
-loSaveModulesAndProcessesSections=1
-loSaveAssemblerAndCPUSections=1
-soAppUpTime=1
-soExcModuleName=1
-soExcModuleVersion=1
-soExcID=1
-soExcCount=1
-soExcStatus=1
-soExcNote=1
-soUserID=1
-soUserName=1
-soUserEmail=1
-soUserPrivileges=1
-soUserCompany=1
-soCmpDisplayDPI=1
-soCmpVideoCard=1
-soCmpPrinter=1
-soOSCharset=1
-soCustomData=1
-sndAddComputerNameInFileName=0
-edoSendErrorReportChecked=1
-edoShowSendErrorReportOption=1
-edoShowAttachScreenshotOption=1
-edoShowCustomButton=0
-csoDoNotStoreProcNames=0
-boHandleSafeCallExceptions=1
-boCallRTLExceptionEvent=0
-boCatchHandledExceptions=0
-loCatchLeaks=0
-loGroupsSonLeaks=1
-loHideBorlandLeaks=1
-loFreeAllLeaks=1
-loCatchLeaksExceptions=1
-cfoReduceFileSize=1
-cfoCheckFileCorruption=0
-Count mtErrorMsgCaption=1
-mtErrorMsgCaption0="Error."
-Count mtDialog_ProcessesCaption=1
-mtDialog_ProcessesCaption0="Processes"
-Count mtDialog_ProcessesHeader=1
-mtDialog_ProcessesHeader0="Processes Information"
-Count mtDialog_AsmCaption=1
-mtDialog_AsmCaption0="Assembler"
-Count mtDialog_AsmHeader=1
-mtDialog_AsmHeader0="Assembler Information"
-Count mtDialog_CustomButtonCaption=1
-mtDialog_CustomButtonCaption0="%26Help"
-Count mtMSDialog_ErrorMsgCaption=1
-mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
-Count mtMSDialog_RestartCaption=1
-mtMSDialog_RestartCaption0="Restart application."
-Count mtMSDialog_TerminateCaption=1
-mtMSDialog_TerminateCaption0="Terminate application."
-Count mtMSDialog_PleaseCaption=1
-mtMSDialog_PleaseCaption0="Please tell us about this problem."
-Count mtMSDialog_DescriptionCaption=1
-mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
-Count mtMSDialog_SeeDetailsCaption=1
-mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
-Count mtMSDialog_SeeClickCaption=1
-mtMSDialog_SeeClickCaption0="click here."
-Count mtMSDialog_HowToReproduceCaption=1
-mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
-Count mtMSDialog_EmailCaption=1
-mtMSDialog_EmailCaption0="Email address (optional):"
-Count mtMSDialog_SendButtonCaption=1
-mtMSDialog_SendButtonCaption0="%26Send Error Report"
-Count mtMSDialog_NoSendButtonCaption=1
-mtMSDialog_NoSendButtonCaption0="%26Don't Send"
-Count mtLog_AppUpTime=1
-mtLog_AppUpTime0="Up Time"
-Count mtLog_ExcModuleName=1
-mtLog_ExcModuleName0="Module Name"
-Count mtLog_ExcModuleVersion=1
-mtLog_ExcModuleVersion0="Module Version"
-Count mtLog_ExcID=1
-mtLog_ExcID0="ID"
-Count mtLog_ExcCount=1
-mtLog_ExcCount0="Count"
-Count mtLog_ExcStatus=1
-mtLog_ExcStatus0="Status"
-Count mtLog_ExcNote=1
-mtLog_ExcNote0="Note"
-Count mtLog_UserHeader=1
-mtLog_UserHeader0="User"
-Count mtLog_UserID=1
-mtLog_UserID0="ID"
-Count mtLog_UserName=1
-mtLog_UserName0="Name"
-Count mtLog_UserEmail=1
-mtLog_UserEmail0="Email"
-Count mtLog_UserCompany=1
-mtLog_UserCompany0="Company"
-Count mtLog_UserPrivileges=1
-mtLog_UserPrivileges0="Privileges"
-Count mtLog_CmpDisplayDPI=1
-mtLog_CmpDisplayDPI0="Display DPI"
-Count mtLog_CmpVideoCard=1
-mtLog_CmpVideoCard0="Video Card"
-Count mtLog_CmpPrinter=1
-mtLog_CmpPrinter0="Printer"
-Count mtLog_OSCharset=1
-mtLog_OSCharset0="Charset"
-Count mtCallStack_LeakCaption=1
-mtCallStack_LeakCaption0="Memory Leak"
-Count mtCallStack_LeakData=1
-mtCallStack_LeakData0="Data"
-Count mtCallStack_LeakType=1
-mtCallStack_LeakType0="Type"
-Count mtCallStack_LeakSize=1
-mtCallStack_LeakSize0="Total size"
-Count mtCallStack_LeakCount=1
-mtCallStack_LeakCount0="Count"
-Count mtSendDialog_Login=1
-mtSendDialog_Login0="Login..."
-Count mtSendDialog_Sent=1
-mtSendDialog_Sent0="Message sent."
-Count mtSendDialog_SelectProject=1
-mtSendDialog_SelectProject0="Select project..."
-Count mtSendDialog_Searching=1
-mtSendDialog_Searching0="Searching..."
-Count mtSendDialog_Modifying=1
-mtSendDialog_Modifying0="Modifying..."
-Count mtSendDialog_Disconnecting=1
-mtSendDialog_Disconnecting0="Disconnecting..."
-Count mtSendDialog_Disconnected=1
-mtSendDialog_Disconnected0="Disconnected."
-Count mtProcesses_ID=1
-mtProcesses_ID0="ID"
-Count mtProcesses_Name=1
-mtProcesses_Name0="Name"
-Count mtProcesses_Description=1
-mtProcesses_Description0="Description"
-Count mtProcesses_Version=1
-mtProcesses_Version0="Version"
-Count mtProcesses_Memory=1
-mtProcesses_Memory0="Memory"
-Count mtProcesses_Priority=1
-mtProcesses_Priority0="Priority"
-Count mtProcesses_Threads=1
-mtProcesses_Threads0="Threads"
-Count mtProcesses_Path=1
-mtProcesses_Path0="Path"
-Count mtSend_BugClosedMsg=2
-mtSend_BugClosedMsg0="These BUG is just closed."
-mtSend_BugClosedMsg1="Contact the program support to obtain an update."
-Count mtSend_UnknownErrorMsg=1
-mtSend_UnknownErrorMsg0="Unknown error."
-Count mtSend_InvalidLoginMsg=1
-mtSend_InvalidLoginMsg0="Invalid login request."
-Count mtSend_InvalidSearchMsg=1
-mtSend_InvalidSearchMsg0="Invalid search request."
-Count mtSend_InvalidSelectionMsg=1
-mtSend_InvalidSelectionMsg0="Invalid selection request."
-Count mtSend_InvalidInsertMsg=1
-mtSend_InvalidInsertMsg0="Invalid insert request."
-Count mtSend_InvalidModifyMsg=1
-mtSend_InvalidModifyMsg0="Invalid modify request."
-Count mtFileCrackedMsg=2
-mtFileCrackedMsg0="This file is cracked."
-mtFileCrackedMsg1="The application will be closed."
-Count mtException_LeakMultiFree=1
-mtException_LeakMultiFree0="Multi Free memory leak."
-Count mtException_LeakMemoryOverrun=1
-mtException_LeakMemoryOverrun0="Memory Overrun leak."
-Count mtException_AntiFreeze=1
-mtException_AntiFreeze0="The application seems to be frozen."
-Count mtInvalidEmailMsg=1
-mtInvalidEmailMsg0="Invalid email."
-TextsCollection=English
 EurekaLog Last Line -->
 </BorlandProject>

Source/Cliente/FactuGES.dpr

@@ -13,6 +13,8 @@ uses
   uMainMenuController in 'uMainMenuController.pas',
   uClienteUtils in 'Utiles\uClienteUtils.pas';
 
+
+
 {$R *.res}
 
 var

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 3,3,7,0
-PRODUCTVERSION 3,3,7,0
+FILEVERSION 2,4,0,0
+PRODUCTVERSION 2,4,0,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,9 +13,9 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "3.3.7.0\0"
+              VALUE "FileVersion", "2.4.0.0\0"
               VALUE "InternalName", "FactuGES\0"
-              VALUE "ProductVersion", "3.3.7.0\0"
+              VALUE "ProductVersion", "2.3.9.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Cliente/uPantallaPrincipal.dfm

@@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   Left = 358
   Top = 250
   Caption = 'Pantalla principal'
-  ClientHeight = 681
+  ClientHeight = 662
   ClientWidth = 559
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
@@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Left = 0
     Top = 0
     Width = 559
-    Height = 659
+    Height = 640
     Margins.Left = 5
     Margins.Top = 5
     Margins.Right = 5
@@ -31,12 +31,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
     ParentColor = True
     Align = alClient
     TabOrder = 0
-    ExplicitHeight = 640
     object JvSyncSplitter1: TJvSyncSplitter
       Left = 215
       Top = 5
       Width = 5
-      Height = 649
+      Height = 630
       ResizeStyle = rsPattern
       ExplicitLeft = 210
       ExplicitHeight = 570
@@ -45,7 +44,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 5
       Top = 5
       Width = 210
-      Height = 649
+      Height = 630
       ActivePage = pagInicio
       Align = alLeft
       AutoHeaders = True
@@ -86,12 +85,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
       NavPanelHotTrackFont.Style = []
       SmallImages = ModulesSmallImageList
       OnChange = JvNavigationPaneChange
-      ExplicitHeight = 630
       object pagInicio: TJvNavPanelPage
         Left = 0
         Top = 0
         Width = 208
-        Height = 576
+        Height = 557
         Background.Stretch = False
         Background.Proportional = False
         Background.Center = False
@@ -99,17 +97,15 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Background.Transparent = False
         Caption = 'Inicio'
         ImageIndex = 0
-        ExplicitHeight = 557
         object Panel1: TPanel
           Left = 0
-          Top = 490
+          Top = 471
           Width = 208
           Height = 86
           Align = alBottom
           Color = clWindow
           ParentBackground = False
           TabOrder = 1
-          ExplicitTop = 471
           object Label1: TLabel
             Left = 38
             Top = 29
@@ -157,21 +153,19 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 220
       Top = 5
       Width = 334
-      Height = 649
+      Height = 630
       BoundColor = clActiveCaption
       BoundLines = [blLeft, blTop, blRight, blBottom]
       Caption = 'pnlBorde'
       Align = alClient
-      ExplicitHeight = 630
       object pnlMain: TTBXAlignmentPanel
         Left = 1
         Top = 1
         Width = 332
-        Height = 647
+        Height = 628
         Align = alClient
         Color = clWindow
         TabOrder = 0
-        ExplicitHeight = 628
         object lblBienvenido: TLabel
           Left = 8
           Top = 8
@@ -208,7 +202,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   end
   object TBXStatusBar1: TTBXStatusBar
     Left = 0
-    Top = 659
+    Top = 640
     Width = 559
     Images = StatusPanelImageList
     Panels = <
@@ -230,7 +224,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Tag = 0
       end>
     UseSystemFont = False
-    ExplicitTop = 640
   end
   object XPManifest1: TXPManifest
     Left = 248
@@ -501,7 +494,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   object JvAppRegistryStorage: TJvAppRegistryStorage
     StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
     StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
-    Root = 'Software\FactuGES'
+    Root = 'Software\%APPL_NAME%'
     SubStorages = <>
     Left = 504
     Top = 128

Source/FactuGES_Group.bdsgroup

@@ -8,7 +8,9 @@
 			<Option Name="GUID">{897CD5E4-3D47-418F-BD7A-AD0C0C4FDE6A}</Option>
 		</Option>
 	</PersonalityInfo>
-	<Default.Personality>  <Projects>
+	<Default.Personality>  
+    
+    <Projects>
       <Projects Name="DataAbstract_D10.bpl">DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
       <Projects Name="Base.bpl">Base\Base.bdsproj</Projects>
       <Projects Name="ControllerBase.bpl">Base\ControllerBase\ControllerBase.bdsproj</Projects>
@@ -19,6 +21,11 @@
       <Projects Name="Usuarios.bpl">Base\Usuarios\Usuarios.bdsproj</Projects>
       <Projects Name="Empresas_view.bpl">Modulos\Empresas\Views\Empresas_view.bdsproj</Projects>
       <Projects Name="Empresas_plugin.bpl">Modulos\Empresas\Plugin\Empresas_plugin.bdsproj</Projects>
+      <Projects Name="TiposIVA_model.bpl">Modulos\Tipos de IVA\Model\TiposIVA_model.bdsproj</Projects>
+      <Projects Name="TiposIVA_data.bpl">Modulos\Tipos de IVA\Data\TiposIVA_data.bdsproj</Projects>
+      <Projects Name="TiposIVA_controller.bpl">Modulos\Tipos de IVA\Controller\TiposIVA_controller.bdsproj</Projects>
+      <Projects Name="TiposIVA_view.bpl">Modulos\Tipos de IVA\Views\TiposIVA_view.bdsproj</Projects>
+      <Projects Name="TiposIVA_plugin.bpl">Modulos\Tipos de IVA\Plugin\TiposIVA_plugin.bdsproj</Projects>
       <Projects Name="Contactos_model.bpl">Modulos\Contactos\Model\Contactos_model.bdsproj</Projects>
       <Projects Name="Contactos_data.bpl">Modulos\Contactos\Data\Contactos_data.bdsproj</Projects>
       <Projects Name="Contactos_controller.bpl">Modulos\Contactos\Controller\Contactos_controller.bdsproj</Projects>
@@ -42,6 +49,8 @@
       <Projects Name="RemesasCliente_model.bpl">Modulos\Remesas de cliente\Model\RemesasCliente_model.bdsproj</Projects>
       <Projects Name="RemesasCliente_data.bpl">Modulos\Remesas de cliente\Data\RemesasCliente_data.bdsproj</Projects>
       <Projects Name="RemesasCliente_controller.bpl">Modulos\Remesas de cliente\Controller\RemesasCliente_controller.bdsproj</Projects>
+      <Projects Name="BancaElectronica_controller.bpl">Modulos\Banca electronica\Controller\BancaElectronica_controller.bdsproj</Projects>
+      <Projects Name="BancaElectronica_view.bpl">Modulos\Banca electronica\Views\BancaElectronica_view.bdsproj</Projects>
       <Projects Name="RemesasCliente_view.bpl">Modulos\Remesas de cliente\Views\RemesasCliente_view.bdsproj</Projects>
       <Projects Name="RemesasCliente_plugin.bpl">Modulos\Remesas de cliente\Plugin\RemesasCliente_plugin.bdsproj</Projects>
       <Projects Name="PedidosCliente_model.bpl">Modulos\Pedidos de cliente\Model\PedidosCliente_model.bdsproj</Projects>
@@ -83,7 +92,8 @@
       <Projects Name="Comisiones_controller.bpl">Modulos\Comisiones\Controller\Comisiones_controller.bdsproj</Projects>
       <Projects Name="Comisiones_view.bpl">Modulos\Comisiones\Views\Comisiones_view.bdsproj</Projects>
       <Projects Name="Comisiones_plugin.bpl">Modulos\Comisiones\Plugin\Comisiones_plugin.bdsproj</Projects>
-      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl</Projects>
+      <Projects Name="AlbCli_FacCli_relation.bpl">Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
+      <Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl AlbCli_FacCli_relation.bpl</Projects>
     </Projects>
     <Dependencies/>
   </Default.Personality>