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

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