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