inherited frmFechamentoAtendimento: TfrmFechamentoAtendimento Caption = 'Fechamento' ClientHeight = 302 ClientWidth = 394 Color = clBtnHighlight ExplicitWidth = 400 ExplicitHeight = 330 PixelsPerInch = 96 TextHeight = 13 inherited stbStatus: TStatusBar Top = 283 Width = 394 ExplicitTop = 283 ExplicitWidth = 235 end object pnl_fundo: TPanel Left = 0 Top = 0 Width = 394 Height = 283 Align = alClient Color = clBtnHighlight ParentBackground = False TabOrder = 1 ExplicitWidth = 235 object lbl_text: TLabel Left = 8 Top = 8 Width = 151 Height = 13 Caption = 'Forma de pagamento escolhida:' end object lbl_tppagamento: TLabel Left = 8 Top = 63 Width = 95 Height = 13 Caption = 'Tipo de pagamento:' end object lbl_tppagamento1: TLabel Left = 72 Top = 95 Width = 35 Height = 13 Caption = #192' vista:' end object lbl_tppagamento2: TLabel Left = 72 Top = 127 Width = 44 Height = 13 Caption = 'Parcelas:' Enabled = False end object cbx_quit: TCheckBox Left = 112 Top = 34 Width = 97 Height = 17 Caption = 'Quita'#231#227'o' TabOrder = 0 OnClick = cbx_quitClick end object cbx_par: TCheckBox Left = 215 Top = 34 Width = 97 Height = 17 Caption = 'Parcelamento' TabOrder = 1 OnClick = cbx_parClick end object btn_ok: TButton Left = 207 Top = 251 Width = 75 Height = 25 Caption = 'Ok' ModalResult = 1 TabOrder = 2 OnClick = btn_okClick end object btn_cancel: TButton Left = 302 Top = 252 Width = 75 Height = 25 Caption = 'Cancelar' ModalResult = 2 TabOrder = 3 end object cbx_tppagamento1: TComboBox Left = 127 Top = 92 Width = 161 Height = 21 Style = csDropDownList TabOrder = 4 end object cbx_tppagamento2: TComboBox Left = 127 Top = 124 Width = 161 Height = 21 Style = csDropDownList Enabled = False TabOrder = 5 Items.Strings = ( 'Dinheiro' 'D'#233'bito' 'Cr'#233'dito' 'Cheque') end object cbx_empacord: TCheckBox Left = 24 Top = 160 Width = 161 Height = 17 Caption = 'Vincular acordo a cobradora' Enabled = False TabOrder = 6 OnClick = cbx_empacordClick end object cb_multi: TCheckBox Left = 24 Top = 228 Width = 177 Height = 17 Caption = 'V'#225'rias formas de pagamento' TabOrder = 7 end object dblucb_empsacordo: TDBLookupComboBox Left = 8 Top = 192 Width = 369 Height = 21 Enabled = False KeyField = 'ID_EMPRESA' ListField = 'TX_FANTASIA' ListSource = dtsAcordosEmp TabOrder = 8 end end object dtsAcordosEmp: TDataSource DataSet = zroqryAcordosEmp Left = 328 Top = 128 end object zroqryAcordosEmp: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'SELECT FIRST 0 ID_EMPRESA, TX_FANTASIA FROM CHG_EMPRESAS') Params = <> Left = 328 Top = 72 object zroqryAcordosEmpID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryAcordosEmpTX_FANTASIA: TWideStringField FieldName = 'TX_FANTASIA' Size = 100 end end end