You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
97 lines
3.2 KiB
97 lines
3.2 KiB
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.
|