unit uViewPaciente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
  dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
  cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
  Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
  uDAInterfaces;    

type
  IViewPaciente = interface(IViewContacto)
  ['{15E202A1-2FCF-47C3-8916-1D58428C428B}']
  end;

  TfrViewPaciente = class(TfrViewContacto, IViewPaciente)
    eFechaNacimiento: TcxDBDateEdit;
    dxLayoutControlContactoItem16: TdxLayoutItem;
    dxLayoutControlContactoItem22: TdxLayoutItem;
    eNumeroSS: TcxDBTextEdit;
    dxLayoutControlContactoItem23: TdxLayoutItem;
    eFechaBaja: TcxDBDateEdit;
    dxLayoutControlContactoItem24: TdxLayoutItem;
    eCausaBaja: TcxDBTextEdit;
    ePabellon: TcxDBTextEdit;
    dxLayoutControlContactoItem19: TdxLayoutItem;
  public
    { Public declarations }
  end;

implementation
{$R *.dfm}

uses
  uBizContactos, uPacientesController;

end.
