Poder adjuntar documentos y fotos en presupuestos de armario

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/tags/3.0.6@7 3f40d355-893c-4141-8e64-b1d9be72e7e7

BaseDatos/TablaFacturasProveedor.pas

@@ -20,7 +20,6 @@
     ---------------------------------------------------------------------------
     02-02-2004    Se ha eliminado el atributo SERIE (P8 MULTIEMPRESA)
                   Se ha adaptado a los nuevos contadores
-
 ===============================================================================
 }
 
@@ -155,7 +154,6 @@ type
     function DarTiposOpDesTrimestral(var ListaCodigos: TStrings): TStrings;
     function ComprobarTrimestreFactura(CodigoFactura: String): Boolean;
     function AsignarTrimestre(CodigoFactura: String; CodigoTrimestre: String): Boolean;
-    function ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
   end;
 
 var
@@ -1196,47 +1194,6 @@ begin
   end;
 end;
 
-function TdmTablaFacturasProveedor.ModificarSituacionFacturas(Codigos: TStrings; Situacion: String): Boolean;
-var
-  oSQL : TIBSQL;
-  Indice : Integer;
-  Cadena : String;
-begin
-  Result := False;
-  if Codigos.Count = 0 then
-     Exit;
-
-  //Formateamos los códigos para optimizar la sentencia SQL
-  for Indice:=0 to Codigos.Count-1 do
-  begin
-    if (Indice <> 0) then
-       Cadena := Cadena + ',';
-    Cadena := Cadena + '''' + Codigos.Strings[Indice] + '''';
-  end;
-
-  oSQL := TIBSQL.Create(Self);
-  with oSQL do
-  begin
-    Database := dmBaseDatos.BD;
-    Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('update FACTURASPROVEEDOR ');
-    SQL.Add('set SITUACION = :SITUACION ');
-    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
-    SQL.Add('and CODIGO IN (' + Cadena + ')');
-    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-    ParamByName('SITUACION').AsString := Situacion;
-    try
-      Prepare;
-      ExecQuery;
-      Result := True;
-    finally
-      Close;
-      Transaction := NIL;
-      Free;
-    end;
-  end;
-end;
-
 { TDatosFacturaProveedor }
 
 procedure TDatosFacturaProveedor.AssignTo(Dest: TPersistent);

Clientes/CambiarSituacionFacturas.dfm

@@ -84,12 +84,13 @@ object frCambiarSituacionFacturas: TfrCambiarSituacionFacturas
     object cbxSituacion: TcxComboBox
       Left = 96
       Top = 19
+      Width = 169
+      Height = 21
       ParentFont = False
       Properties.DropDownListStyle = lsFixedList
       Properties.ReadOnly = False
       Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
       TabOrder = 0
-      Width = 169
     end
   end
   object brDoble: TRdxBarraInferior

Clientes/CambiarSituacionFacturas.pas

@@ -29,7 +29,7 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
   cxDropDownEdit, StdCtrls, RdxBotones, RdxBarras, ExtCtrls,
-  RdxPaneles, TablaTrimestres, cxGraphics, Entidades;
+  RdxPaneles, TablaTrimestres;
 
 type
   TfrCambiarSituacionFacturas = class(TForm)
@@ -46,14 +46,12 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
-    FEntidad: TRdxEntidad;
     FCodigosFacturas : TStringList;
     FSituacion : String;
     procedure SetSituacion(Value : String);
   public
     property CodigosFacturas : TStringList read FCodigosFacturas write FCodigosFacturas;
     property Situacion : String read FSituacion write SetSituacion;
-    property Entidad: TRdxEntidad read FEntidad Write FEntidad;
   end;
 
 var
@@ -62,22 +60,16 @@ var
 implementation
 
 uses
-  Mensajes, Literales, BaseDatos, Configuracion, RdxEmpresaActiva,
+  Mensajes, Literales, BaseDatos, Configuracion, Entidades, RdxEmpresaActiva,
-  TablaFacturasCliente, TablaFacturasProveedor, StrFunc, Math;
+  TablaFacturasCliente, StrFunc;
 
 {$R *.dfm}
 
 procedure TfrCambiarSituacionFacturas.bAceptarClick(Sender: TObject);
 var
  Indice :Integer;
- Resultado: Boolean;
 begin
-  if Entidad = entFacturaProveedor then
+  if not dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text) then
-     Resultado := dmTablaFacturasProveedor.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text)
-  else
-     Resultado := dmTablaFacturasCliente.ModificarSituacionFacturas(CodigosFacturas, cbxSituacion.Text);
-
-  if not Resultado then
   begin
     dmBaseDatos.Rollback;
     exit;
@@ -89,7 +81,6 @@ end;
 procedure TfrCambiarSituacionFacturas.FormCreate(Sender: TObject);
 begin
   inherited;
-  FEntidad := entFacturaCliente; //Por defecto tratara los documentos de facturas de cliente
   FCodigosFacturas := TStringList.Create;
   cbxSituacion.Properties.Items := dmTablaFacturasCliente.DarSituaciones;
   cbxSituacion.ItemIndex := 0;

Clientes/Clientes.dfm

@@ -1,8 +1,8 @@
 object frClientes: TfrClientes
   Left = 0
   Top = 0
-  Width = 844
+  Width = 638
-  Height = 571
+  Height = 459
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -16,8 +16,8 @@ object frClientes: TfrClientes
   BarraSeleccion = brSeleccion
   object brSeleccion: TRdxBarraInferior
     Left = 0
-    Top = 521
+    Top = 409
-    Width = 844
+    Width = 638
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -157,7 +157,7 @@ object frClientes: TfrClientes
   object BarraClientes: TRdxBarraSuperior
     Left = 0
     Top = 0
-    Width = 844
+    Width = 638
     Height = 25
     Caption = 'Clientes'
     Font.Charset = DEFAULT_CHARSET
@@ -185,7 +185,7 @@ object frClientes: TfrClientes
     object imgSombra: TImage
       Left = 0
       Top = 0
-      Width = 844
+      Width = 638
       Height = 8
       Align = alTop
     end
@@ -198,15 +198,6 @@ object frClientes: TfrClientes
       Pen.Color = 4759522
       Pen.Style = psDot
     end
-    object Shape2: TShape
-      Left = 440
-      Top = 4
-      Width = 1
-      Height = 17
-      Brush.Style = bsClear
-      Pen.Color = 4759522
-      Pen.Style = psDot
-    end
     object bAnadir: TRdxBotonSuperior
       Left = 5
       Top = 5
@@ -372,7 +363,7 @@ object frClientes: TfrClientes
       Spacing = 6
     end
     object RdxBotonSuperior1: TRdxBotonSuperior
-      Left = 447
+      Left = 369
       Top = 5
       Width = 110
       Height = 15
@@ -403,44 +394,12 @@ object frClientes: TfrClientes
       TabOrder = 5
       Spacing = 6
     end
-    object RdxBotonSuperior2: TRdxBotonSuperior
-      Left = 369
-      Top = 5
-      Width = 65
-      Height = 15
-      Action = actEtiquetas
-      Alignment = taCenter
-      ColorFocused = 4759522
-      ColorDown = 4759522
-      ColorBorder = 4759522
-      ColorHighLight = 11590911
-      ColorShadow = 11590911
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = 11590911
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = [fsBold]
-      FontDown.Charset = DEFAULT_CHARSET
-      FontDown.Color = 18299
-      FontDown.Height = -11
-      FontDown.Name = 'Tahoma'
-      FontDown.Style = [fsBold]
-      FontDisabled.Charset = DEFAULT_CHARSET
-      FontDisabled.Color = clWindowText
-      FontDisabled.Height = -11
-      FontDisabled.Name = 'MS Sans Serif'
-      FontDisabled.Style = []
-      Margin = 5
-      ParentFont = False
-      TabOrder = 6
-      Spacing = 6
-    end
   end
   object pnlCuerpo2: TRdxPanel
     Left = 0
     Top = 25
-    Width = 844
+    Width = 638
-    Height = 496
+    Height = 384
     Caption = ' '
     ParentColor = True
     ColorHighLight = clBtnText
@@ -451,8 +410,8 @@ object frClientes: TfrClientes
     object pnlCuerpo: TPanel
       Left = 0
       Top = 25
-      Width = 844
+      Width = 638
-      Height = 471
+      Height = 359
       Align = alClient
       BevelOuter = bvNone
       BorderWidth = 10
@@ -461,8 +420,8 @@ object frClientes: TfrClientes
       object gridClientes: TcxGrid
         Left = 10
         Top = 39
-        Width = 824
+        Width = 618
-        Height = 412
+        Height = 300
         Align = alClient
         BevelInner = bvNone
         BevelKind = bkFlat
@@ -512,8 +471,8 @@ object frClientes: TfrClientes
       end
       object pnlSeparador: TPanel
         Left = 10
-        Top = 451
+        Top = 339
-        Width = 824
+        Width = 618
         Height = 10
         Align = alBottom
         BevelOuter = bvNone
@@ -523,7 +482,7 @@ object frClientes: TfrClientes
       object Panel1: TPanel
         Left = 10
         Top = 10
-        Width = 824
+        Width = 618
         Height = 29
         Align = alTop
         BevelOuter = bvNone
@@ -632,7 +591,7 @@ object frClientes: TfrClientes
     object pnlExtra: TRdxBarraSuperior
       Left = 0
       Top = 0
-      Width = 844
+      Width = 638
       Height = 25
       Caption = ' '
       BorderWidth = 1
@@ -789,9 +748,5 @@ object frClientes: TfrClientes
       Caption = 'Consultar cobros'
       OnExecute = actConsultarCobrosExecute
     end
-    object actEtiquetas: TAction
-      Caption = 'Etiquetas'
-      OnExecute = actEtiquetasExecute
-    end
   end
 end

Clientes/Clientes.pas

@@ -80,9 +80,6 @@ type
     Buscar: TcxTextEdit;
     bLimpiar: TRdxBoton;
     eNombre: TLabel;
-    RdxBotonSuperior2: TRdxBotonSuperior;
-    Shape2: TShape;
-    actEtiquetas: TAction;
     procedure RdxFrameClientesShow(Sender: TObject);
     procedure cxLookupComboBox1PropertiesEditValueChanged(Sender: TObject);
     procedure actAnadirExecute(Sender: TObject);
@@ -97,7 +94,6 @@ type
     procedure actConsultarCobrosExecute(Sender: TObject);
     procedure Edit1Change(Sender: TObject);
     procedure bLimpiarClick(Sender: TObject);
-    procedure actEtiquetasExecute(Sender: TObject);
   private
     procedure ActualizarBotones;
   protected
@@ -118,7 +114,7 @@ var
 implementation
 {$R *.DFM}
 uses
-  IBCustomDataSet, BaseDatos, Entidades, Cliente, Variants, ListadoClientes, EtiquetasClientes,
+  IBCustomDataSet, BaseDatos, Entidades, Cliente, Variants, ListadoClientes,
   ListadoPagosCliente, TablaFacturasCliente, TablaPagosCliente, Mensajes, Literales;
 
 constructor TfrClientes.Create (AOwner : TComponent);
@@ -320,10 +316,4 @@ begin
   Buscar.Text := '';
 end;
 
-procedure TfrClientes.actEtiquetasExecute(Sender: TObject);
-begin
-  Contenido := TfrEtiquetasClientes.Create(Self);
-  Contenido.Modo := Imprimir;
-end;
-
 end.

Clientes/EtiquetasClientes.dfm

@@ -1,292 +0,0 @@
-object frEtiquetasClientes: TfrEtiquetasClientes
-  Left = 0
-  Top = 0
-  Width = 641
-  Height = 270
-  Align = alClient
-  Color = 16383743
-  ParentColor = False
-  TabOrder = 0
-  object pnlTitulo: TRdxPanelTituloOperacion
-    Left = 0
-    Top = 0
-    Width = 641
-    Height = 22
-    Caption = ' '
-    Color = 9685681
-    Align = alTop
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = 3692855
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = [fsBold]
-  end
-  object pnlCuerpo: TPanel
-    Left = 0
-    Top = 22
-    Width = 641
-    Height = 144
-    Align = alTop
-    AutoSize = True
-    BevelOuter = bvNone
-    BorderWidth = 10
-    ParentColor = True
-    TabOrder = 0
-    object pnlProveedor: TAdvPanel
-      Left = 10
-      Top = 10
-      Width = 621
-      Height = 124
-      Align = alTop
-      BevelOuter = bvNone
-      Color = 16383743
-      TabOrder = 0
-      UseDockManager = True
-      Version = '1.5.0.0'
-      AnchorHint = False
-      AutoSize.Enabled = False
-      AutoSize.Height = True
-      AutoSize.Width = True
-      AutoHideChildren = True
-      BackgroundPosition = bpTopLeft
-      BorderColor = clBlack
-      BorderShadow = False
-      Buffered = True
-      CanMove = False
-      CanSize = False
-      Caption.Background.Data = {
-        72010000424D7201000000000000760000002800000014000000150000000100
-        040000000000FC000000E30E0000E30E00001000000010000000B5BDC600F9FE
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
-        1111111100001111111111111111111100001111111111111111111100001111
-        1111111111110000000011111111111111111111000011111111111111111111
-        0000111111111111111111110000111111111111111111110000111111111111
-        1111111100001111111111111111111100001111111111111111111100001111
-        1111111111111111000011111111111111111111000011111111111111111111
-        0000111111111111111111110000111111111111111111110000111111111111
-        1111111100001111111111111111111100001111111111111111111100001111
-        11111111111111110000111111111111111111110000}
-      Caption.ButtonPosition = cbpLeft
-      Caption.Color = clBtnFace
-      Caption.ColorTo = clNone
-      Caption.CloseColor = clBtnFace
-      Caption.CloseButton = False
-      Caption.CloseButtonColor = clBlack
-      Caption.Flat = True
-      Caption.Font.Charset = DEFAULT_CHARSET
-      Caption.Font.Color = 3692855
-      Caption.Font.Height = -11
-      Caption.Font.Name = 'Tahoma'
-      Caption.Font.Style = [fsBold]
-      Caption.Height = 23
-      Caption.Indent = -4
-      Caption.MinMaxButton = True
-      Caption.MinMaxButtonColor = 3692855
-      Caption.ShadeLight = 200
-      Caption.ShadeGrain = 0
-      Caption.ShadeType = stBitmapRStretch
-      Caption.Shape = csRectangle
-      Caption.Text = 'Par'#225'metros para el informe'
-      Caption.TopIndent = 0
-      Caption.Visible = True
-      Collaps = False
-      CollapsColor = clWhite
-      CollapsDelay = 20
-      CollapsSteps = 0
-      ColorTo = clNone
-      FixedTop = False
-      FixedLeft = False
-      FixedHeight = False
-      FixedWidth = False
-      FreeOnClose = False
-      Hover = False
-      HoverColor = clNone
-      HoverFontColor = clNone
-      Indent = 0
-      LineSpacing = 0
-      Position.Save = False
-      Position.Location = clRegistry
-      ShadowColor = clGray
-      ShadowOffset = 2
-      ShowMoveCursor = False
-      TextVAlign = tvaTop
-      TopIndent = 0
-      URLColor = clBlue
-      FullHeight = 38
-      object eCodigoCliente: TLabel
-        Left = 67
-        Top = 40
-        Width = 79
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'Desde el cliente:'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object Label2: TLabel
-        Left = 70
-        Top = 64
-        Width = 76
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'hasta el cliente:'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object Label1: TLabel
-        Left = 20
-        Top = 89
-        Width = 467
-        Height = 13
-        Caption = 
-          '* Solo saldr'#225'n aquellos clientes que tengan al menos un contrato' +
-          ' y su direcci'#243'n no sea incompleta'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clMaroon
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object NombreCliIni: TcxButtonEdit
-        Left = 152
-        Top = 37
-        ParentFont = False
-        Properties.Buttons = <
-          item
-            Default = True
-            Glyph.Data = {
-              26050000424D260500000000000036040000280000000F0000000F0000000100
-              080000000000F0000000330B0000330B00000001000000010000212121003131
-              31004A4A4A00FFBD4A00636363006B6B6B00FF8C6B00FFC66B00FFFF8C000031
-              9400ADADAD00FFE7B500FFFFB500C6C6C600FFFFD600004ADE00FF00FF002152
-              FF008C8CFF0021ADFF008CD6FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010101010
-              101010101010101010FF101010101010101010100100001010FF101010101010
-              101010040F13090010FF1010101010101010040F14120F0010FF101010101010
-              10040F14120F00101000101010050202020214120F00101010FF101005070707
-              0306110F0010101010FF10050A0B0808070306021010101010FF10050B0E0C08
-              080703021010101010FF10050B0E0C0C0808030210101010100010050B0E0C0C
-              0C0803021010101010FF10050D0B0E0C0C0B0A021010101010FF1010050D0B0B
-              0B0A00101010101010FF101010050505050510101010101010FF101010101010
-              10101010101010101000}
-            Kind = bkGlyph
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = CodigoCliIniPropertiesButtonClick
-        Properties.OnValidate = NombreCliIniPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 0
-        Text = 'NombreCliIni'
-        Width = 350
-      end
-      object NombreCliFin: TcxButtonEdit
-        Left = 152
-        Top = 61
-        ParentFont = False
-        Properties.Buttons = <
-          item
-            Default = True
-            Glyph.Data = {
-              26050000424D260500000000000036040000280000000F0000000F0000000100
-              080000000000F0000000330B0000330B00000001000000010000212121003131
-              31004A4A4A00FFBD4A00636363006B6B6B00FF8C6B00FFC66B00FFFF8C000031
-              9400ADADAD00FFE7B500FFFFB500C6C6C600FFFFD600004ADE00FF00FF002152
-              FF008C8CFF0021ADFF008CD6FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101010101010
-              101010101010101010FF101010101010101010100100001010FF101010101010
-              101010040F13090010FF1010101010101010040F14120F0010FF101010101010
-              10040F14120F00101000101010050202020214120F00101010FF101005070707
-              0306110F0010101010FF10050A0B0808070306021010101010FF10050B0E0C08
-              080703021010101010FF10050B0E0C0C0808030210101010100010050B0E0C0C
-              0C0803021010101010FF10050D0B0E0C0C0B0A021010101010FF1010050D0B0B
-              0B0A00101010101010FF101010050505050510101010101010FF101010101010
-              10101010101010101000}
-            Kind = bkGlyph
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = CodigoCliFinPropertiesButtonClick
-        Properties.OnValidate = NombreCliFinPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 1
-        Text = 'NombreCliFin'
-        Width = 350
-      end
-    end
-  end
-  object pnlVistaPrevia: TPanel
-    Left = 0
-    Top = 166
-    Width = 641
-    Height = 104
-    Align = alClient
-    BevelOuter = bvNone
-    Color = 16383743
-    TabOrder = 1
-  end
-end

Clientes/EtiquetasClientes.pas

@@ -1,218 +0,0 @@
-{
-===============================================================================
-  Copyright (©) 2007. Rodax Software.
-===============================================================================
-  Los contenidos de este fichero son propiedad de Rodax Software titular del
-  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
-  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
-  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
-  bajo el que se suministra.
-  -----------------------------------------------------------------------------
-  Web:  www.rodax-software.com
-===============================================================================
-  Fecha primera versión: 14-11-2007
-  Versión actual: 1.0.0
-  Fecha versión actual: 14-11-2007
-===============================================================================
-  Modificaciones:
-
-    Fecha         Comentarios
-    ---------------------------------------------------------------------------
-===============================================================================
-}
-
-unit EtiquetasClientes;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, RdxFrame, RdxBotones, RdxPaneles, RdxBarras, cxControls,
-  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls,
-  AdvPanel, ExtCtrls, RdxTitulos, cxDropDownEdit, VistaPrevia,
-  InformeEtiquetasClientes, TablaClientes, Entidades;
-
-type
-  TfrEtiquetasClientes = class(TRdxFrame)
-    pnlTitulo: TRdxPanelTituloOperacion;
-    pnlCuerpo: TPanel;
-    pnlProveedor: TAdvPanel;
-    eCodigoCliente: TLabel;
-    Label2: TLabel;
-    pnlVistaPrevia: TPanel;
-    Label1: TLabel;
-    NombreCliIni: TcxButtonEdit;
-    NombreCliFin: TcxButtonEdit;
-    procedure CodigoCliIniPropertiesButtonClick(Sender: TObject;
-      AButtonIndex: Integer);
-    procedure CodigoCliFinPropertiesButtonClick(Sender: TObject;
-      AButtonIndex: Integer);
-    procedure NombreCliIniPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
-    procedure NombreCliFinPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
-  private
-    FVistaPrevia : TfrVistaPrevia;
-    FInforme : TdmInformeEtiquetasClientes;
-    FClienteIni : TDatosCliente;
-    FClienteFin : TDatosCliente;
-    FCodigoClienteAux : Variant;
-    procedure RecogerParametrosInforme;
-  protected
-    procedure VerModal; override;
-    procedure FreeContenido; override;
-    function CloseFrame : Boolean; override;
-    function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
-  public
-    constructor Create(AOwner : TComponent); override;
-    destructor Destroy; override;
-  end;
-
-var
-  frEtiquetasClientes: TfrEtiquetasClientes;
-
-implementation
-
-{$R *.dfm}
-
-{ TfrEtiquetasClientes }
-
-uses
-  Literales, Mensajes, StrFunc, DateUtils, InformeBase,
-  Clientes, RdxFrameClientes, configuracion;
-
-constructor TfrEtiquetasClientes.Create(AOwner: TComponent);
-var
-  NombreAux : String;
-begin
-  inherited Create(AOwner);
-  Entidad := entListadoClientes;
-
-  FClienteIni := TDatosCliente.Create;
-  FClienteFin := TDatosCliente.Create;
-
-  NombreAux := dmTablaClientes.DarNombreCliMin;
-  FClienteIni.Codigo := '';
-  FClienteIni.Nombre := NombreAux;
-  FClienteIni.ObtenerDatos;
-  NombreCliIni.EditingText := FClienteIni.Nombre;
-
-  NombreAux := dmTablaClientes.DarNombreCliMax;
-  FClienteFin.Codigo := '';
-  FClienteFin.Nombre := NombreAux;
-  FClienteFin.ObtenerDatos;
-  NombreCliFin.EditingText := FClienteFin.Nombre;
-
-  FVistaPrevia := TfrVistaPrevia.Create(Self);
-  FVistaPrevia.Parent := pnlVistaPrevia;
-  FInforme := TdmInformeEtiquetasClientes.Create(Self);
-  FInforme.Preview := FVistaPrevia.Preview;
-  RecogerParametrosInforme;
-end;
-
-destructor TfrEtiquetasClientes.Destroy;
-begin
-  FInforme.Free;
-  FClienteIni.Free;
-  FClienteFin.Free;
-  inherited;
-end;
-
-procedure TfrEtiquetasClientes.RecogerParametrosInforme;
-begin
-  if not Assigned(FInforme) then
-    Exit;
-  with FInforme do
-  begin
-    NombreIni := FClienteIni.Nombre;
-    NombreFin := FClienteFin.Nombre;
-    Previsualizar;
-  end;
-end;
-
-procedure TfrEtiquetasClientes.CodigoCliIniPropertiesButtonClick(
-  Sender: TObject; AButtonIndex: Integer);
-begin
-  ContenidoModal := TfrClientes.Create(Self);
-  if FCodigoClienteAux <> Null then
-  begin
-    FClienteIni.Codigo := FCodigoClienteAux;
-    FClienteIni.ObtenerDatos;
-    NombreCliIni.EditingText := FClienteIni.Nombre;
-    PostMessage(NombreCliIni.Handle,WM_KEYDOWN,VK_RETURN,0);    
-  end;
-end;
-
-function TfrEtiquetasClientes.CloseFrame: Boolean;
-begin
-  FInforme.Preview := NIL;
-  (FVistaPrevia as TRdxFrame).CloseFrame;
-  Result := inherited CloseFrame;
-end;
-
-procedure TfrEtiquetasClientes.FreeContenido;
-begin
-  if (ContenidoModal is TRdxFrameClientes) then
-    FCodigoClienteAux := (ContenidoModal as TRdxFrameClientes).CodigoCliente;
-  inherited;
-end;
-
-procedure TfrEtiquetasClientes.VerModal;
-begin
-  if (ContenidoModal is TRdxFrameClientes) then
-    (ContenidoModal as TRdxFrameClientes).CodigoCliente := FCodigoClienteAux;
-  inherited;
-end;
-
-procedure TfrEtiquetasClientes.CodigoCliFinPropertiesButtonClick(
-  Sender: TObject; AButtonIndex: Integer);
-begin
-  ContenidoModal := TfrClientes.Create(Self);
-  if FCodigoClienteAux <> Null then
-  begin
-    FClienteFin.Codigo := FCodigoClienteAux;
-    FClienteFin.ObtenerDatos;
-    NombreCliFin.EditingText := FClienteFin.Nombre;
-    PostMessage(NombreCliFin.Handle,WM_KEYDOWN,VK_RETURN,0);    
-  end;
-end;
-
-procedure TfrEtiquetasClientes.NombreCliIniPropertiesValidate(
-  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
-  var Error: Boolean);
-begin
-  if AnsiCompareText(DisplayValue, NombreCliFin.Text) > 0 then
-  begin
-    ErrorText := msgCliIniMayor;
-    Error := True;
-    Exit;
-  end;
-  FClienteIni.Nombre := DisplayValue;
-  FClienteIni.Codigo := '';
-  RecogerParametrosInforme;
-end;
-
-procedure TfrEtiquetasClientes.NombreCliFinPropertiesValidate(
-  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
-  var Error: Boolean);
-begin
-  if AnsiCompareText(DisplayValue, NombreCliIni.Text) < 0 then
-  begin
-    ErrorText := msgCliIniMayor;
-    Error := True;
-    Exit;
-  end;
-  FClienteFin.Nombre := DisplayValue;
-  FClienteFin.Codigo := '';
-  RecogerParametrosInforme;
-end;
-
-function TfrEtiquetasClientes.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
-begin
-  inherited CambiarEntidad(EntidadAnterior, Entidad);
-  ConfigurarFrame(Self, Self.Entidad);
-end;
-
-end.

Clientes/FacturasClientes.dfm

@@ -343,7 +343,6 @@ object frFacturasClientes: TfrFacturasClientes
           OptionsView.GridLines = glHorizontal
           OptionsView.GroupByBox = False
           OptionsView.HeaderEndEllipsis = True
-          OptionsView.NewItemRowInfoText = 'Click here to add a new row'
           OptionsView.RowSeparatorColor = 14280169
           Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
         end

Clientes/FacturasClientes.pas

@@ -468,7 +468,6 @@ var
 
 begin
   fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
-  fCambiarSituacionFacturas.Entidad := entFacturaCliente;
 
   //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
   IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;

Factuges.dof

@@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
-MinorVer=1
+MinorVer=0
-Release=1
+Release=9
 Build=0
 Debug=0
 PreRelease=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.1.1.0
+FileVersion=3.0.9.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=

Factuges.dpr

@@ -194,9 +194,7 @@ uses
   AlbaranesClientes in 'Clientes\AlbaranesClientes.pas' {frAlbaranesClientes: TRdxFrameAlbaranesCliente},
   InformeAlbaranCliente in 'Informes\InformeAlbaranCliente.pas' {dmInformeAlbaranCliente: TDataModule},
   ImprimirAlbaranCliente in 'Clientes\ImprimirAlbaranCliente.pas' {frImprimirAlbaranCliente: TRdxFrame},
-  VistaRichEditor in 'VistaRichEditor.pas' {frVistaRichEdit: TFrame},
+  VistaRichEditor in 'VistaRichEditor.pas' {frVistaRichEdit: TFrame};
-  InformeEtiquetasClientes in 'Informes\InformeEtiquetasClientes.pas' {dmInformeEtiquetasClientes: TDataModule},
-  EtiquetasClientes in 'Clientes\EtiquetasClientes.pas' {frEtiquetasClientes: TRdxFrame};
 
 {$R *.RES}
 {$R Prueba.res}

Informes/InformeEtiquetasClientes.dfm

@@ -1,21 +0,0 @@
-inherited dmInformeEtiquetasClientes: TdmInformeEtiquetasClientes
-  OldCreateOrder = True
-  Left = 548
-  Top = 252
-  inherited FReport: TfrReport
-    Dataset = dsTablaClientes
-    ReportForm = {19000000}
-  end
-  object dsTablaClientes: TfrDBDataSet
-    CloseDataSource = True
-    DataSet = TablaClientes
-    Left = 152
-    Top = 24
-  end
-  object TablaClientes: TIBQuery
-    BufferChunks = 1000
-    CachedUpdates = False
-    Left = 152
-    Top = 80
-  end
-end

Informes/InformeEtiquetasClientes.pas

@@ -1,119 +0,0 @@
-{
-===============================================================================
-  Copyright (©) 2007. Rodax Software.
-===============================================================================
-  Los contenidos de este fichero son propiedad de Rodax Software titular del
-  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
-  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
-  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
-  bajo el que se suministra.
-  -----------------------------------------------------------------------------
-  Web:  www.rodax-software.com
-===============================================================================
-  Fecha primera versión: 14-11-2007
-  Versión actual: 1.0.0
-  Fecha versión actual: 14-11-2007
-===============================================================================
-  Modificaciones:
-
-    Fecha         Comentarios
-    ---------------------------------------------------------------------------
-===============================================================================
-}
-
-unit InformeEtiquetasClientes;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_Class, DB, IBCustomDataSet,
-  IBQuery, FR_DSet, FR_DBSet, RdxEmpresaActiva;
-
-type
-  TdmInformeEtiquetasClientes = class(TdmInformeBase)
-    dsTablaClientes: TfrDBDataSet;
-    TablaClientes: TIBQuery;
-  private
-    FNombreIni: String;
-    FNombreFin: String;
-  protected
-    procedure RellenarCabecera(Band: TfrBand); override;
-    procedure PrepararConsultas; override;
-  public
-    constructor Create(AOwner: TComponent); override;
-  published
-    property NombreIni : String read FNombreIni write FNombreIni;
-    property NombreFin : String read FNombreFin write FNombreFin;
-  end;
-
-var
-  dmInformeEtiquetasClientes: TdmInformeEtiquetasClientes;
-
-implementation
-
-{$R *.dfm}
-
-{ TdmInformeEtiquetasClientes }
-
-constructor TdmInformeEtiquetasClientes.Create(AOwner: TComponent);
-begin
-  inherited;
-  FNombreInforme := 'InformeEtiquetasClientes.frf';
-end;
-
-procedure TdmInformeEtiquetasClientes.PrepararConsultas;
-begin
-  inherited;
-  with TablaClientes do
-  begin
-    Database := FBaseDatos;
-    Transaction := FTransaccion;
-    SQL.Clear;
-    SQL.Add('select distinct CLIENTES.CODIGO, CLIENTES.NOMBRE, ');
-    SQL.Add('case when SUCURSALESCLIENTE.NUMERO is null ');
-    SQL.Add('then SUCURSALESCLIENTE.CALLE ');
-    SQL.Add('else SUCURSALESCLIENTE.CALLE || '', '' || SUCURSALESCLIENTE.NUMERO');
-    SQL.Add('end as DIRECCION, ');
-    SQL.Add('SUCURSALESCLIENTE.CODIGOPOSTAL, SUCURSALESCLIENTE.POBLACION, SUCURSALESCLIENTE.PROVINCIA');
-
-    SQL.Add('from contratoscliente');
-    SQL.Add('left join CLIENTES on (CLIENTES.CODIGO = contratoscliente.codigocliente)');
-    SQL.Add('left join SUCURSALESCLIENTE on (SUCURSALESCLIENTE.CODIGOCLIENTE = CLIENTES.CODIGO and SUCURSALESCLIENTE.TIPO = ''P'')');
-
-    SQL.Add('where (ltrim(SUCURSALESCLIENTE.calle) <> '''')');
-    SQL.Add('and (ltrim(SUCURSALESCLIENTE.codigopostal) <> '''')');
-    SQL.Add('and (upper(CLIENTES.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN))');
-    SQL.Add('order by CLIENTES.NOMBRE');
-
-    ParamByName('NOMBREINI').AsString := FNombreIni;
-    ParamByName('NOMBREFIN').AsString := FNombreFin;
-    Prepare;
-  end;
-end;
-
-procedure TdmInformeEtiquetasClientes.RellenarCabecera(Band: TfrBand);
-var
-  iCont : Integer;
-  Objeto : TfrView;
-begin
-  inherited;
-  with Band do
-  begin
-     for iCont := 0 to Objects.Count - 1 do
-      begin
-        Objeto := Objects[iCont];
-        if ((Objeto is TfrMemoView) and (Objeto.Name = 'CabParametros')) then
-        begin
-          with (Objeto as TfrMemoView) do
-          begin
-            Memo.Clear;
-            Memo.Add('Rango de clientes: ' + FNombreIni + ' - ' + FNombreFin);
-          end;
-        end;
-      end;
-  end;
-end;
-
-end.
-

Proveedores/FacturasProveedores.pas

@@ -83,8 +83,6 @@ type
     eNombre: TLabel;
     Buscar: TcxTextEdit;
     bLimpiar: TRdxBoton;
-    bFacturar: TRdxBoton;
-    actCambiarSituacion: TAction;
     procedure RdxFrameFacturasProveedorShow(Sender: TObject);
     procedure actAnadirExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
@@ -103,7 +101,6 @@ type
     procedure actRefrescarDatosExecute(Sender: TObject);
     procedure BuscarPropertiesChange(Sender: TObject);
     procedure bLimpiarClick(Sender: TObject);
-    procedure actCambiarSituacionExecute(Sender: TObject);
   private
     procedure ActualizarBotones;
   protected
@@ -126,7 +123,7 @@ implementation
 
 { TfrFacturasProveedores }
 uses
-  BaseDatos, TablaFacturasProveedor, IBDatabase, CambiarSituacionFacturas,
+  BaseDatos, TablaFacturasProveedor, IBDatabase,
   IBCustomDataSet, Mensajes, Entidades, Variants,
   FacturaProveedor, Constantes, FacturasProveedorPendientes, TablaEmpresas,
   Configuracion;
@@ -335,27 +332,4 @@ begin
   Buscar.Text := '';
 end;
 
-procedure TfrFacturasProveedores.actCambiarSituacionExecute(Sender: TObject);
-var
-  IndiceCol1 : Integer;
-  IndiceSel : Integer;
-  fCambiarSituacionFacturas : TfrCambiarSituacionFacturas;
-
-begin
-  fCambiarSituacionFacturas := TfrCambiarSituacionFacturas.Create(Self);
-  fCambiarSituacionFacturas.Entidad := entFacturaProveedor;
-
-  //Rellenamos la propiedad de la unidad CambiarSituacion con los códigos seleccionados
-  IndiceCol1 := gridFacturasDBTableView1.GetColumnByFieldName('CODIGO').Index;
-  for IndiceSel:=0 to gridFacturasDBTableView1.Controller.SelectedRowCount-1 do
-      fCambiarSituacionFacturas.CodigosFacturas.Append(gridFacturasDBTableView1.Controller.SelectedRows[IndiceSel].Values[IndiceCol1]);
-
-  try
-    fCambiarSituacionFacturas.ShowModal;
-  finally
-    fCambiarSituacionFacturas.Free;
-    bRefrescar.Click;
-  end;
-end;
-
 end.

Temp/FACTUGES.INI

@@ -2,7 +2,7 @@
 ACANA DAVID T=david:t:\Codigo Acana\bd\acana.gdb
 ACANA DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\bd\acana.gdb
 ACANA ALCALÁ LOCAL=david:D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\bd\acana_alcala.gdb
-ACANA ROBERTO=ROBERTO:T:\Acana\bd\acana.gdb
+ACANA ROBERTO=ROBERTO:e:\codigo (acana)\bd\acana.gdb
 ACANA VALDEBERNARDO=acana2.dynalias.org:c:\rodax software\factuges acana\bd\acana.gdb
 ACANA alcala=acana.dynalias.org:c:\rodax software\factuges acana\bd\acana.gdb
 

Temp/update/versionlocal.ini

@@ -1,19 +1,6 @@
 [Version]
-Count=1
+Count=0
-CurrentProductionProgramVersion=2.3.1.0
+CurrentProductionProgramVersion=
 CurrentBetaProgramVersion=
 CurrentAlphaProgramVersion=
 
-[Program Version 0]
-DownloadPasswordRequired=FALSE
-LocalInstallerParams=
-ProgramLocationPath=files
-ProgramLocationFileName=instalar.exe
-ProgramVersion=2.3.1.0
-ProgramReleaseType=prtProduction
-ProgramSize=1000000
-ProgramReleaseDate=28/09/2007
-
-[Program Version 0\VersionDescription]
-Count=0
-