unit uEditorPagoProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorPago, DB, uDADataTable, JvAppStorage,
  JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
  PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
  TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, uCustomView,
  uViewBase, uViewPago, uViewPagoProveedor;

type
  IEditorPagoProveedor = interface(IEditorPago)
  ['{E285981D-4C9F-4794-BAB6-91172BD757BF}']
  end;

  TfEditorPagoProveedor = class(TfEditorPago, IEditorPagoProveedor)
    frViewPagoProveedor1: TfrViewPagoProveedor;
    procedure actEliminarExecute(Sender: TObject);
    procedure dsDataTableDataChange(Sender: TObject; Field: TField);
    procedure frViewContactoedtlNombrePropertiesChange(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  fEditorPagoProveedor: TfEditorPagoProveedor;

implementation

{$R *.dfm}
{ TfEditorPagoProveedor }

uses uEditorUtils, uBizPagos, cxDBEdit;

function ShowEditorPagoProveedor (ABizObject : TDADataTableRules) : TModalResult;
var
  AEditor: TfEditorPagoProveedor;
begin
  AEditor := TfEditorPagoProveedor.Create(Application);
  try
    AEditor.Pago := (ABizObject as IBizPagosProveedor);
    Result := AEditor.ShowModal;
  finally
    AEditor.Release;
  end;
end;

procedure TfEditorPagoProveedor.actEliminarExecute(Sender: TObject);
begin
  if (Application.MessageBox('¿Desea borrar este pago a proveedor?', 'Atención', MB_YESNO) = IDYES) then
    inherited;
end;

constructor TfEditorPagoProveedor.Create(AOwner: TComponent);
begin
  inherited;
//  ViewPago := CreateView(TfrViewPagoProveedor) as IViewPagoProveedor;
  ViewPago := frViewPagoProveedor1;
end;

procedure TfEditorPagoProveedor.dsDataTableDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  if Assigned(Pago) and (not (Pago.DataTable.Fetching) or
    not (Pago.DataTable.Opening) or not (Pago.DataTable.Closing)) then
  begin
    if Length(Pago.NOMBRE) = 0 then
      JvNavPanelHeader.Caption := 'Nuevo pago a proveedor'
    else
      JvNavPanelHeader.Caption := Pago.NOMBRE;
    Self.Caption := JvNavPanelHeader.Caption;
  end;
end;

procedure TfEditorPagoProveedor.frViewContactoedtlNombrePropertiesChange(
  Sender: TObject);
begin
  inherited;
  if Length((Sender as TcxDBTextEdit).Text) = 0 then
    JvNavPanelHeader.Caption := 'Nuevo cobro de proveedor'
  else
    JvNavPanelHeader.Caption := 'Cobro de ' + (Sender as TcxDBTextEdit).Text;
  Caption := JvNavPanelHeader.Caption;
end;

initialization
  RegisterEditor(IBizPagosProveedor, ShowEditorPagoProveedor, etItem);

end.