unit ufrmFichaTitulos;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.StdCtrls,
  Vcl.DBCtrls, Vcl.ComCtrls, ZAbstractRODataset, ZDataset;

type
  TfrmFichaTitulos = class(TmstMaster)
    dblulb_credores: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    dtsCredores: TDataSource;
    zroqryCredores: TZReadOnlyQuery;
    zroqryCredoresID_EMPRESA: TIntegerField;
    zroqryCredoresTX_NOME: TWideStringField;
    zroqryCredoresTX_FANTASIA: TWideStringField;
    zroqryCredoresTX_CNPJ: TWideStringField;
    zroqryCredoresTX_IE: TWideStringField;
    zroqryCredoresTX_ENDERECO: TWideStringField;
    zroqryCredoresTX_COMPLEMENTO: TWideStringField;
    zroqryCredoresID_CIDADE: TIntegerField;
    zroqryCredoresTX_BAIRRO: TWideStringField;
    zroqryCredoresID_ESTADO: TIntegerField;
    zroqryCredoresTX_CEP: TWideStringField;
    zroqryCredoresTX_TELEFONE: TWideStringField;
    zroqryCredoresTX_EMAIL: TWideStringField;
    zroqryCredoresTX_WEBSITE: TWideStringField;
    zroqryCredoresNR_NUMERO: TIntegerField;
    zroqryCredoresTX_IM: TWideStringField;
    zroqryCredoresTL_OBSERVACOES: TWideMemoField;
    zroqryCredoresID_REPASSE: TIntegerField;
    zroqryCredoresTP_ENTRADA: TWideStringField;
    zroqryCredoresPR_MULTA: TFloatField;
    zroqryCredoresPR_JUROS: TFloatField;
    zroqryCredoresNR_PARCELAS: TIntegerField;
    zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField;
    zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField;
    zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField;
    zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField;
    zroqryCredoresPR_DESC_QUIT_COR: TFloatField;
    zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField;
    zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField;
    zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField;
    zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField;
    zroqryCredoresPR_DESC_FINAN_COR: TFloatField;
    zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField;
    zroqryCredoresPR_JUROS_PARCELAR: TFloatField;
    zroqryCredoresPR_ENTRADA_MIN: TFloatField;
    zroqryCredoresPR_ENTRADA_MAX: TFloatField;
    zroqryCredoresTP_CHEQUE: TWideStringField;
    zroqryCredoresTP_CRED: TWideStringField;
    zroqryCredoresTP_DIN: TWideStringField;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    inc_baixados: boolean;
    { Public declarations }
  end;

var
  frmFichaTitulos: TfrmFichaTitulos;

implementation

{$R *.dfm}

uses udtmSystem;

procedure TfrmFichaTitulos.Button1Click(Sender: TObject);
begin
  if dblulb_credores.KeyValue = Null then
  begin
    Messagedlg('Por favor selecione a empresa da qual o devedor possui títulos.',mtWarning,[mbok],0);
    abort;
  end
  else
  begin
    dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA',dblulb_credores.KeyValue,[]);
    inc_baixados := CheckBox1.Checked;
  end;
end;

procedure TfrmFichaTitulos.FormShow(Sender: TObject);
begin
  inherited;
  dblulb_credores.ListSource.DataSet.First;
  dblulb_credores.KeyValue := dblulb_credores.ListSource.DataSet.FieldByName('ID_EMPRESA').AsInteger;
end;

end.