{
===============================================================================
  Copyright (©) 2001. 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: 01-10-2001
  Versión actual: 1.0.2
  Fecha versión actual: 15-05-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    20-10-2001    Se ha ampliado el campo 'F. de pago' porque pasa a tener
                  50 caracteres.

    15-05-2002    No se guardaban los cambios cuando se aceptaba la situación.

    15-05-2002    P224. Poder cambiar la situación a muchas facturas a la vez. 
===============================================================================
}

unit PagarFacturaProveedor;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RdxFrame, RdxBotones, ExtCtrls, RdxPaneles, RdxBarras, RdxCheckBox,
  StdCtrls, RdxCampos, RdxTitulos, RdxComboBox;

type
  TfrPagarFacturaProveedor = class(TRdxFrame)
    eInformacion: TLabel;
    brOperacion: TRdxBarraInferior;
    bAceptar: TRdxBoton;
    bCancelar: TRdxBoton;
    Label1: TLabel;
    cbxSituacion: TRdxComboBox;
    eFormaPago: TLabel;
    cbxFormaPago: TRdxComboBox;
    procedure bAceptarClick(Sender: TObject);
    procedure bCancelarClick(Sender: TObject);
  private
    FListaFacturas : TStringList;
    procedure SetListaFacturas(Value : TStringList);
  public
    property ListaFacturas : TStringList read FListaFacturas write SetListaFacturas;
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
  end;

var
  frPagarFacturaProveedor: TfrPagarFacturaProveedor;

implementation

{$R *.DFM}

uses
  TablaFacturasProveedor, Tipos, TablaFormasPago, BaseDatos, RdxEmpresaActiva;

constructor TfrPagarFacturaProveedor.Create(AOwner: TComponent);
begin
  inherited;
  FListaFacturas := TStringList.Create;
  cbxSituacion.Items := dmTablaFacturasProveedor.darSituaciones;
  cbxFormaPago.Items := dmTablaFormasPago.darFormasPago;
  cbxFormaPago.ItemIndex := 0;
end;

procedure TfrPagarFacturaProveedor.bAceptarClick(Sender: TObject);
var
  iAux : integer;
begin
  for iAux := 0 to FListaFacturas.Count - 1 do
  begin
    if not dmTablaFacturasProveedor.ModificarSituacionFactura(EmpresaActiva.Codigo, FListaFacturas.Strings[iAux], cbxSituacion.Text, cbxFormaPago.Text) then
    begin
      dmBaseDatos.Rollback;
      Exit;
    end;
  end;
  dmBaseDatos.Commit;
  CloseFrame;
end;

procedure TfrPagarFacturaProveedor.bCancelarClick(Sender: TObject);
begin
  CloseFrame;
end;

procedure TfrPagarFacturaProveedor.SetListaFacturas(Value: TStringList);
var
  Situacion : String;
  iAux : integer;
begin
  if (Value = NIL) or (Value.Count = 0) then
    exit;

  FListaFacturas.Clear;
  FListaFacturas.Assign(Value);

  Situacion := dmTablaFacturasProveedor.DarSituacionFactura(EmpresaActiva.Codigo,
    FListaFacturas.Strings[0]);
  if Situacion <> '-1' then
    cbxSituacion.ItemIndex := cbxSituacion.Items.indexof(Situacion);
end;

destructor TfrPagarFacturaProveedor.Destroy;
begin
  FListaFacturas.Free;
  FListaFacturas := NIL;
  inherited;
end;

end.