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.

Codigo/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);