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.
 

165 lines
3.5 KiB

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