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.
 

300 lines
7.8 KiB

inherited frmRemessa: TfrmRemessa
Caption = 'Gera'#231#227'o de Arquivos de Remessa'
ClientHeight = 418
ClientWidth = 703
ExplicitWidth = 709
ExplicitHeight = 447
PixelsPerInch = 96
TextHeight = 13
inherited stbStatus: TStatusBar
Top = 399
Width = 703
ExplicitTop = 399
ExplicitWidth = 703
end
object gb_devedores: TGroupBox
Left = 8
Top = 8
Width = 456
Height = 210
Caption = 'Devedores:'
TabOrder = 1
object cbx_todosdevedores: TCheckBox
Left = 16
Top = 24
Width = 57
Height = 17
Caption = 'Todos'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = cbx_todosdevedoresClick
end
object gb_pesquisa: TGroupBox
Left = 16
Top = 47
Width = 426
Height = 154
Enabled = False
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 391
Top = 16
Width = 23
Height = 21
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000120B0000120B00000000000000000000FF00FF314B62
AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2
9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC
E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF
FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED
B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF
FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF
DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0
B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0
BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1
D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577
6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF}
OnClick = SpeedButton1Click
end
object edt_pesquisa: TEdit
Left = 16
Top = 16
Width = 369
Height = 21
TabOrder = 0
end
object dbgrd_pesquisa: TDBGrid
Left = 16
Top = 43
Width = 398
Height = 100
DataSource = dtsDevedores
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'TX_NOME'
Title.Caption = 'Nome'
Width = 250
Visible = True
end
item
Expanded = False
FieldName = 'TX_DOCUMENTO'
Title.Caption = 'Documento'
Visible = True
end>
end
end
end
object gb_dtvenc: TGroupBox
Left = 470
Top = 8
Width = 225
Height = 66
Caption = 'Vencimento:'
TabOrder = 2
object Label14: TLabel
Left = 105
Top = 29
Width = 19
Height = 13
Caption = 'At'#233':'
end
object dtp_vencini: TDateTimePicker
Left = 16
Top = 25
Width = 81
Height = 21
Date = 43042.451453472230000000
Time = 43042.451453472230000000
TabOrder = 0
end
object dtp_vencfim: TDateTimePicker
Left = 130
Top = 25
Width = 81
Height = 21
Date = 43042.451453472230000000
Time = 43042.451453472230000000
TabOrder = 1
end
object cb_venc: TCheckBox
Left = 70
Top = -1
Width = 97
Height = 17
TabOrder = 2
end
end
object gb_emissao: TGroupBox
Left = 470
Top = 80
Width = 225
Height = 66
Caption = 'Emiss'#227'o:'
TabOrder = 3
object Label1: TLabel
Left = 105
Top = 29
Width = 19
Height = 13
Caption = 'At'#233':'
end
object dtp_emissaoini: TDateTimePicker
Left = 16
Top = 25
Width = 81
Height = 21
Date = 43042.451453472230000000
Time = 43042.451453472230000000
TabOrder = 0
end
object dtp_emissaofim: TDateTimePicker
Left = 130
Top = 25
Width = 81
Height = 21
Date = 43042.451453472230000000
Time = 43042.451453472230000000
TabOrder = 1
end
object cb_emissao: TCheckBox
Left = 53
Top = -1
Width = 97
Height = 17
TabOrder = 2
end
end
object gb_progress: TGroupBox
Left = 8
Top = 296
Width = 687
Height = 66
Caption = 'Progresso:'
TabOrder = 4
object lbl_progresso: TLabel
Left = 16
Top = 21
Width = 3
Height = 13
end
object pb_remessa: TProgressBar
Left = 16
Top = 40
Width = 657
Height = 17
MarqueeInterval = 1
Step = 1
TabOrder = 0
end
end
object Button1: TButton
Left = 608
Top = 368
Width = 87
Height = 25
Caption = 'Salvar Arquivo'
TabOrder = 5
OnClick = Button1Click
end
object gb_conta: TGroupBox
Left = 470
Top = 152
Width = 225
Height = 66
Caption = 'Conta:'
TabOrder = 6
object dblcb_conta: TDBLookupComboBox
Left = 16
Top = 25
Width = 195
Height = 21
KeyField = 'ID_CONTA'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsContas
TabOrder = 0
end
end
object gb_credor: TGroupBox
Left = 8
Top = 224
Width = 687
Height = 66
Caption = 'Credor:'
TabOrder = 7
object dblcb_credor: TDBLookupComboBox
Left = 16
Top = 24
Width = 657
Height = 21
KeyField = 'ID_EMPRESA'
ListField = 'TX_FANTASIA'
ListSource = dtmSystem.dtsCHGEmpresa
TabOrder = 0
end
end
object dtsDevedores: TDataSource
DataSet = roqryDevedores
Left = 384
Top = 24
end
object roqryDevedores: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
SQL.Strings = (
'select first 0'
'id_devedor,'
'tx_nome,'
'case when TP_CLIENTE = '#39'F'#39' then CD_CPF'
'when TP_CLIENTE = '#39'J'#39' then CD_CNPJ end as TX_DOCUMENTO'
'from chg_devedores')
Params = <>
Left = 296
Top = 24
object roqryDevedoresID_DEVEDOR: TIntegerField
FieldName = 'ID_DEVEDOR'
Required = True
end
object roqryDevedoresTX_NOME: TWideStringField
FieldName = 'TX_NOME'
Size = 60
end
object roqryDevedoresTX_DOCUMENTO: TWideStringField
FieldName = 'TX_DOCUMENTO'
ReadOnly = True
Size = 18
end
end
object sv_dlg: TSaveDialog
Left = 544
Top = 216
end
object roqryRemessa: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 296
Top = 87
end
end