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.
 

628 lines
18 KiB

object frmEmpresas: TfrmEmpresas
Left = 0
Top = 0
BorderIcons = []
BorderStyle = bsNone
Caption = 'Empresas'
ClientHeight = 768
ClientWidth = 1027
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object grd_principal: TGridPanel
Left = 0
Top = 0
Width = 1027
Height = 768
Align = alClient
BevelOuter = bvNone
Caption = 'grd_principal'
ColumnCollection = <
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end>
ControlCollection = <
item
Column = 0
ColumnSpan = 4
Control = pnl_top
Row = 0
end
item
Column = 0
Control = dbgrid_nomes
Row = 1
RowSpan = 3
end
item
Column = 1
ColumnSpan = 3
Control = pg_empresas
Row = 1
RowSpan = 3
end>
RowCollection = <
item
Value = 19.997324923776780000
end
item
Value = 29.991356146362080000
end
item
Value = 25.005955158638510000
end
item
Value = 25.005363771222640000
end>
TabOrder = 0
object pnl_top: TPanel
Left = 0
Top = 0
Width = 1027
Height = 153
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object dblbl_nmfantasia: TDBText
Left = 0
Top = 0
Width = 1027
Height = 46
Align = alTop
Alignment = taCenter
DataField = 'TX_FANTASIA'
DataSource = dtmSystem.dtsEmpresa
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ExplicitTop = 35
end
object dblbl_razaosocial: TDBText
Left = 0
Top = 112
Width = 1027
Height = 41
Align = alBottom
Alignment = taCenter
DataField = 'TX_NOME'
DataSource = dtmSystem.dtsEmpresa
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ExplicitLeft = 480
ExplicitTop = 80
ExplicitWidth = 65
end
end
object dbgrid_nomes: TDBGrid
Left = 0
Top = 153
Width = 256
Height = 615
Align = alClient
Ctl3D = True
DataSource = dtmSystem.dtsEmpresa
Options = [dgTitles, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
ParentCtl3D = False
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnCellClick = dbgrid_nomesCellClick
OnKeyUp = dbgrid_nomesKeyUp
Columns = <
item
Expanded = False
FieldName = 'TX_NOME'
Title.Caption = 'Raz'#227'o Social'
Visible = True
end
item
Expanded = False
FieldName = 'TX_FANTASIA'
Title.Caption = 'Nome Fantasia'
Visible = True
end>
end
object pg_empresas: TPageControl
Left = 256
Top = 153
Width = 771
Height = 615
ActivePage = tab_dados
Align = alClient
Style = tsFlatButtons
TabOrder = 2
object tab_dados: TTabSheet
Caption = 'Dados Cadastrais'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object lbl_razao: TLabel
Left = 3
Top = 3
Width = 64
Height = 13
Caption = 'Raz'#227'o Social:'
end
object lbl_cnpj: TLabel
Left = 3
Top = 45
Width = 29
Height = 13
Caption = 'CNPJ:'
end
object lbl_fantasia: TLabel
Left = 320
Top = 3
Width = 75
Height = 13
Caption = 'Nome Fantasia:'
end
object lbl_cidade: TLabel
Left = 3
Top = 87
Width = 37
Height = 13
Caption = 'Cidade:'
end
object lbl_bairro: TLabel
Left = 144
Top = 87
Width = 32
Height = 13
Caption = 'Bairro:'
end
object lbl_uf: TLabel
Left = 320
Top = 87
Width = 17
Height = 13
Caption = 'UF:'
end
object lbl_tel: TLabel
Left = 3
Top = 177
Width = 46
Height = 13
Hint = 'Separe telefones com "/".'
Caption = 'Telefone:'
ParentShowHint = False
ShowHint = True
end
object lbl_email: TLabel
Left = 239
Top = 177
Width = 32
Height = 13
Caption = 'E-mail:'
end
object lbl_end: TLabel
Left = 3
Top = 133
Width = 49
Height = 13
Caption = 'Endere'#231'o:'
end
object lbl_num: TLabel
Left = 320
Top = 133
Width = 41
Height = 13
Caption = 'N'#250'mero:'
end
object lbl_compl: TLabel
Left = 384
Top = 133
Width = 69
Height = 13
Caption = 'Complemento:'
end
object lbl_cep: TLabel
Left = 392
Top = 87
Width = 23
Height = 13
Caption = 'CEP:'
end
object lbl_inscriest: TLabel
Left = 144
Top = 45
Width = 91
Height = 13
Caption = 'Inscri'#231#227'o Estadual:'
end
object lbl_inscrimuni: TLabel
Left = 280
Top = 45
Width = 93
Height = 13
Caption = 'Inscri'#231#227'o Municipal:'
end
object lbl_website: TLabel
Left = 3
Top = 223
Width = 43
Height = 13
Caption = 'Website:'
end
object lbl_obs: TLabel
Left = 3
Top = 269
Width = 67
Height = 13
Caption = 'Observa'#231#245'es:'
end
object lbl_honorarios: TLabel
Left = 592
Top = 72
Width = 56
Height = 13
Caption = 'Honor'#225'rios:'
end
object btn_clearmemo: TButton
Left = 134
Top = 268
Width = 75
Height = 18
Caption = 'Limpar'
TabOrder = 0
OnClick = btn_clearmemoClick
end
object grpb_logo: TGroupBox
Left = 464
Top = 288
Width = 260
Height = 260
Caption = 'Logomarca: (200x200pixels)'
TabOrder = 1
object spdbtn_loadimg: TSpeedButton
Left = 30
Top = 227
Width = 23
Height = 22
Hint = 'Selecionar uma foto do arquivo.'
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000120B0000120B00000000000000000000FF00FF0274AC
0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274AC0274
AC0274ACFF00FFFF00FF0274AC138AC457B7E06BCBF84BBFF74ABFF74ABFF74A
BFF74ABFF64ABFF74ABFF64BC0F72398CC0274ACFF00FFFF00FF0274AC33AAE0
2392C489D9FA54C7F854C7F753C7F854C7F754C7F854C7F854C7F853C7F7279D
CE6ACBE50274ACFF00FF0274AC57CAF80274AC99E3FB5ED1FA5ED1FA5ED1FA5E
D1FA5ED1FA5FD1FA5ED1F85ED1F82CA1CE99EDF70274ACFF00FF0274AC5ED3FA
0B81B782D5EF79E0FA6ADCFA69DCFB69DCFB6ADCFB69DCFB69DCFA6ADDFB2FA6
CF9FF0F70274ACFF00FF0274AC68DAFB2BA4D14AB2D797EBFC74E5FB74E5FB74
E5FC74E5FC74E5FB74E5FC046B0B33A9CFA3F4F752BBD70274AC0274AC70E3FB
5CD1EF1184B6FCFFFFB8F4FEBAF4FEBAF4FEBAF4FEB8F4FE046B0B25AA42046B
0BD4F7FACAF3F70274AC0274AC7AEBFE7AEBFC0A7FB50274AC0274AC0274AC02
74AC0274AC046B0B38CE6547E77F29B44A046B0B0274AC0274AC0274AC83F2FE
82F3FE82F3FE83F2FC83F3FE82F3FE83F2FE046B0B2DC0513FDC6E3ED86E46E5
7B28B04A046B0BFF00FF0274ACFEFEFE89FAFF89FAFE89FAFE8AF8FE8AFAFE04
6B0B046B0B046B0B046B0B3CD86A2EBF53046B0B046B0B046B0BFF00FF0274AC
FEFEFE8FFEFF8FFEFF8FFEFF0273A32BA4D12BA4D12BA4D1046B0B35D35E20A7
3A046B0BFF00FFFF00FFFF00FFFF00FF0274AC0274AC0274AC0274ACFF00FFFF
00FFFF00FFFF00FF046B0B28C24A046B0BFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B17A42B19A730046B
0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF046B0B11A122046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B046B0B046B0BFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF046B0B046B0B04
6B0B046B0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
ParentShowHint = False
ShowHint = True
OnClick = spdbtn_loadimgClick
end
object spdbtn_clearimg: TSpeedButton
Left = 67
Top = 227
Width = 23
Height = 22
Hint = 'Limpar foto selecionada.'
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
A46769A46769A46769A46769A46769A46769A46769A46769A46769A46769A467
69A46769A46769FF00FFFF00FFFF00FFB79184FEE9C7F4DAB5F3D5AAF2D0A0EF
CB96EFC68BEDC182EBC17FEBC180EBC180F2C782A46769FF00FFFF00FFFF00FF
B79187FCEACEF3DABCF2D5B1F0D0A7EECB9EEDC793EDC28BE9BD81E9BD7FE9BD
7FEFC481A46769FF00FFFF00FFFF00FFB7938AFEEFDAF6E0C6F2DABCF2D5B2EF
D0A9EECB9EEDC796EBC28CE9BD82E9BD7FEFC481A46769FF00FFFF00FFFF00FF
BA978FFFF4E5F7E5CFF4E0C5F3DABBF2D5B1F0D0A6EECB9EEDC795EBC28AEABF
81EFC480A46769FF00FFFF00FFFF00FFC09E95FFFBF0F8EADCF6E3CFF4E0C6F2
D9BCF2D5B1F0D0A9EDCB9EEDC695EBC28AEFC583A46769FF00FFFF00FFFF00FF
C6A49AFFFFFCFAF0E6F8EADAF7E5CFF4E0C5F2DABAF2D5B1F0D0A7EECB9DEBC7
93F2C98CA46769FF00FFFF00FFFF00FFCBA99EFFFFFFFEF7F2FAEFE6F8EAD9F7
E3CFF6E0C5F2DABBF2D4B1F0D0A7EECC9EF3CE97A46769FF00FFFF00FFFF00FF
CFAC9FFFFFFFFFFEFCFCF6F0FAEFE6F7EADAF6E3CFF4E0C5F3D9BBF3D4B0F0D0
A6F6D3A0A46769FF00FFFF00FFFF00FFD4B0A1FFFFFFFFFFFFFFFEFCFEF7F0FA
EFE5F8EAD9F7E5CEF6DEC4F3D9B8F4D8B1EBCFA4A46769FF00FFFF00FFFF00FF
D9B5A1FFFFFFFFFFFFFFFFFFFFFEFCFCF7F0FAEFE5F8E9D9F8E7D1FBEACEDECE
B4B6AA93A46769FF00FFFF00FFFF00FFDDB7A4FFFFFFFFFFFFFFFFFFFFFFFFFF
FEFCFCF6EFFCF3E6EDD8C9B68A7BA17B6F9C7667A46769FF00FFFF00FFFF00FF
E2BCA5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFBFFFEF7DAC1BAAD735BE19E
55E68F31B56D4DFF00FFFF00FFFF00FFE6BFA7FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFDCC7C5B88265F8B55CBF7A5CFF00FFFF00FFFF00FFFF00FF
E4BCA4FBF4F0FBF4EFFAF3EFFAF3EFF8F2EFF7F2EFF7F2EFD8C2C0B77F62C183
6CFF00FFFF00FFFF00FFFF00FFFF00FFE8C4ADEBCBB7EBCBB7EACBB7EACAB6EA
CAB6EACAB6EACAB6E3C2B1A56B5FFF00FFFF00FFFF00FFFF00FF}
ParentShowHint = False
ShowHint = True
OnClick = spdbtn_clearimgClick
end
object pnl_img: TPanel
Left = 30
Top = 20
Width = 200
Height = 200
BorderWidth = 1
BorderStyle = bsSingle
Color = clWindow
ParentBackground = False
TabOrder = 0
object img_logo: TImage
Left = 2
Top = 2
Width = 192
Height = 192
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alClient
ExplicitLeft = 16
ExplicitTop = 24
ExplicitWidth = 105
ExplicitHeight = 105
end
end
end
object btn_criarcad: TButton
Left = 312
Top = 240
Width = 121
Height = 25
Caption = 'Criar Cadastro'
TabOrder = 2
OnClick = btn_criarcadClick
end
object btn_removcad: TButton
Left = 464
Top = 240
Width = 121
Height = 25
Caption = 'Remover Cadastro'
TabOrder = 3
OnClick = btn_removcadClick
end
object dbmemo_obs: TDBMemo
Left = 3
Top = 288
Width = 206
Height = 293
DataField = 'TL_OBSERVACOES'
DataSource = dtmSystem.dtsEmpresa
ScrollBars = ssVertical
TabOrder = 4
end
object dblucmbox_uf: TDBLookupComboBox
Left = 321
Top = 106
Width = 57
Height = 21
KeyField = 'ID_ESTADO'
ListField = 'CD_ESTADO'
ListSource = dtmSystem.dtsEstados
TabOrder = 5
end
object dblucmbox_cidade: TDBLookupComboBox
Left = 3
Top = 106
Width = 121
Height = 21
KeyField = 'ID_CIDADE'
ListField = 'TX_NOME'
ListSource = dtmSystem.dtsCidades
TabOrder = 6
end
object btn_altcad: TButton
Left = 608
Top = 240
Width = 121
Height = 25
Caption = 'Alterar Cadastro'
TabOrder = 7
OnClick = btn_altcadClick
end
object dbedt_razao: TDBEdit
Left = 3
Top = 18
Width = 121
Height = 21
DataField = 'TX_NOME'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 8
end
object dbedt_fantasia: TDBEdit
Left = 321
Top = 18
Width = 121
Height = 21
DataField = 'TX_FANTASIA'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 9
end
object dbedt_cnpj: TDBEdit
Left = 2
Top = 64
Width = 116
Height = 21
DataField = 'TX_CNPJ'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 10
end
object dbedt_inscriest: TDBEdit
Left = 144
Top = 64
Width = 91
Height = 21
DataField = 'TX_IE'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 11
end
object dbedt_inscrimuni: TDBEdit
Left = 280
Top = 64
Width = 93
Height = 21
DataField = 'TX_IM'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 12
end
object dbedt_bairro: TDBEdit
Left = 144
Top = 106
Width = 121
Height = 21
DataField = 'TX_BAIRRO'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 13
end
object dbedt_cep: TDBEdit
Left = 392
Top = 106
Width = 69
Height = 21
DataField = 'TX_CEP'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 14
end
object dbedt_end: TDBEdit
Left = 3
Top = 152
Width = 121
Height = 21
DataField = 'TX_ENDERECO'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 15
end
object dbedt_num: TDBEdit
Left = 321
Top = 152
Width = 40
Height = 21
DataField = 'NR_NUMERO'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 16
end
object dbedt_compl: TDBEdit
Left = 384
Top = 152
Width = 69
Height = 21
DataField = 'TX_COMPLEMENTO'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 17
end
object dbedt_tel: TDBEdit
Left = 3
Top = 196
Width = 102
Height = 21
DataField = 'TX_TELEFONE'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 18
end
object dbedt_email: TDBEdit
Left = 240
Top = 196
Width = 121
Height = 21
DataField = 'TX_EMAIL'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 19
end
object dbedt_website: TDBEdit
Left = 3
Top = 242
Width = 121
Height = 21
DataField = 'TX_WEBSITE'
DataSource = dtmSystem.dtsEmpresa
TabOrder = 20
end
object grd_honorarios: TStringGrid
Left = 583
Top = 91
Width = 130
Height = 126
BevelEdges = []
BevelInner = bvNone
BevelOuter = bvNone
ColCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
ScrollBars = ssNone
TabOrder = 21
StyleElements = [seFont, seClient]
RowHeights = (
24
24
24
24
24)
end
end
object tab_tblcalculos: TTabSheet
Caption = 'Tabelas/C'#225'lculos'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
end
end
object OpenPictureDialog1: TOpenPictureDialog
Filter =
'All (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.w' +
'mf)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wm' +
'f|GIF Image (*.gif)|*.gif|Portable Network Graphics (*.png)|*.pn' +
'g|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|' +
'Bitmaps (*.bmp)|*.bmp|TIFF Images (*.tif)|*.tif|TIFF Images (*.t' +
'iff)|*.tiff|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' +
'|Metafiles (*.wmf)|*.wmf|Images|*.png;*.jpg;*.jpeg;*.bmp'
FilterIndex = 12
Left = 924
Top = 693
end
end