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.
214 lines
5.5 KiB
214 lines
5.5 KiB
inherited frmFichaTitulos: TfrmFichaTitulos
|
|
Caption = 'Ficha de constata'#231#227'o de t'#237'tulos'
|
|
ClientHeight = 169
|
|
OnShow = FormShow
|
|
ExplicitWidth = 384
|
|
ExplicitHeight = 197
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel [0]
|
|
Left = 8
|
|
Top = 17
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Credor'
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 150
|
|
ExplicitTop = 125
|
|
end
|
|
object dblulb_credores: TDBLookupComboBox
|
|
Left = 8
|
|
Top = 36
|
|
Width = 362
|
|
Height = 21
|
|
KeyField = 'ID_EMPRESA'
|
|
ListField = 'TX_NOME'
|
|
ListSource = dtsCredores
|
|
TabOrder = 1
|
|
end
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 112
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Ok'
|
|
ModalResult = 1
|
|
TabOrder = 2
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 295
|
|
Top = 112
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 3
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 8
|
|
Top = 72
|
|
Width = 137
|
|
Height = 17
|
|
Caption = 'Incluir t'#237'tulos baixados'
|
|
TabOrder = 4
|
|
end
|
|
object dtsCredores: TDataSource
|
|
DataSet = zroqryCredores
|
|
Left = 336
|
|
Top = 8
|
|
end
|
|
object zroqryCredores: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_empresas')
|
|
Params = <>
|
|
Left = 264
|
|
Top = 8
|
|
object zroqryCredoresID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 100
|
|
end
|
|
object zroqryCredoresTX_FANTASIA: TWideStringField
|
|
FieldName = 'TX_FANTASIA'
|
|
Size = 100
|
|
end
|
|
object zroqryCredoresTX_CNPJ: TWideStringField
|
|
FieldName = 'TX_CNPJ'
|
|
Size = 18
|
|
end
|
|
object zroqryCredoresTX_IE: TWideStringField
|
|
FieldName = 'TX_IE'
|
|
end
|
|
object zroqryCredoresTX_ENDERECO: TWideStringField
|
|
FieldName = 'TX_ENDERECO'
|
|
Size = 100
|
|
end
|
|
object zroqryCredoresTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
end
|
|
object zroqryCredoresID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
end
|
|
object zroqryCredoresTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 60
|
|
end
|
|
object zroqryCredoresID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
object zroqryCredoresTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
Size = 9
|
|
end
|
|
object zroqryCredoresTX_TELEFONE: TWideStringField
|
|
FieldName = 'TX_TELEFONE'
|
|
Size = 40
|
|
end
|
|
object zroqryCredoresTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 60
|
|
end
|
|
object zroqryCredoresTX_WEBSITE: TWideStringField
|
|
FieldName = 'TX_WEBSITE'
|
|
Size = 60
|
|
end
|
|
object zroqryCredoresNR_NUMERO: TIntegerField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object zroqryCredoresTX_IM: TWideStringField
|
|
FieldName = 'TX_IM'
|
|
end
|
|
object zroqryCredoresTL_OBSERVACOES: TWideMemoField
|
|
FieldName = 'TL_OBSERVACOES'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object zroqryCredoresID_REPASSE: TIntegerField
|
|
FieldName = 'ID_REPASSE'
|
|
end
|
|
object zroqryCredoresTP_ENTRADA: TWideStringField
|
|
FieldName = 'TP_ENTRADA'
|
|
Required = True
|
|
Size = 2
|
|
end
|
|
object zroqryCredoresPR_MULTA: TFloatField
|
|
FieldName = 'PR_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_JUROS: TFloatField
|
|
FieldName = 'PR_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresNR_PARCELAS: TIntegerField
|
|
FieldName = 'NR_PARCELAS'
|
|
end
|
|
object zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_PRIN'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_IND_FIN'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_QUIT_COR: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_COR'
|
|
end
|
|
object zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_PRIN'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_IND_FIN'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_DESC_FINAN_COR: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_COR'
|
|
end
|
|
object zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField
|
|
FieldName = 'PR_INDICADOR_FINANCEIRO'
|
|
Required = True
|
|
end
|
|
object zroqryCredoresPR_JUROS_PARCELAR: TFloatField
|
|
FieldName = 'PR_JUROS_PARCELAR'
|
|
end
|
|
object zroqryCredoresPR_ENTRADA_MIN: TFloatField
|
|
FieldName = 'PR_ENTRADA_MIN'
|
|
end
|
|
object zroqryCredoresPR_ENTRADA_MAX: TFloatField
|
|
FieldName = 'PR_ENTRADA_MAX'
|
|
end
|
|
object zroqryCredoresTP_CHEQUE: TWideStringField
|
|
FieldName = 'TP_CHEQUE'
|
|
Size = 1
|
|
end
|
|
object zroqryCredoresTP_CRED: TWideStringField
|
|
FieldName = 'TP_CRED'
|
|
Size = 1
|
|
end
|
|
object zroqryCredoresTP_DIN: TWideStringField
|
|
FieldName = 'TP_DIN'
|
|
Size = 1
|
|
end
|
|
end
|
|
end
|