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.
1275 lines
34 KiB
1275 lines
34 KiB
object dtmSystem: TdtmSystem
|
|
OldCreateOrder = False
|
|
OnCreate = DataModuleCreate
|
|
Height = 522
|
|
Width = 891
|
|
object ZConnection: TZConnection
|
|
ControlsCodePage = cCP_UTF16
|
|
ClientCodepage = 'WIN1252'
|
|
Catalog = ''
|
|
Properties.Strings = (
|
|
'controls_cp=CP_UTF16'
|
|
'codepage=WIN1252'
|
|
'AutoEncodeStrings=ON')
|
|
Connected = True
|
|
HostName = ''
|
|
Port = 0
|
|
Database = 'C:\Program Files (x86)\Programa_Cobranca\CHARGE.GDB'
|
|
User = 'sysdba'
|
|
Password = 'masterkey'
|
|
Protocol = 'firebird-2.5'
|
|
Left = 40
|
|
Top = 24
|
|
end
|
|
object tblUsuarios: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
AfterInsert = tblUsuariosAfterInsert
|
|
BeforePost = AtribuirChavePrimaria
|
|
AfterPost = RegistarLog
|
|
TableName = 'SYS_USUARIOS'
|
|
MasterFields = 'ID_GRUPO'
|
|
MasterSource = dtsGrupos
|
|
LinkedFields = 'ID_GRUPO'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 40
|
|
Top = 128
|
|
object tblUsuariosID_USUARIO: TIntegerField
|
|
FieldName = 'ID_USUARIO'
|
|
Required = True
|
|
end
|
|
object tblUsuariosTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object tblUsuariosTX_USUARIO: TWideStringField
|
|
FieldName = 'TX_USUARIO'
|
|
Size = 10
|
|
end
|
|
object tblUsuariosTX_SENHA: TWideStringField
|
|
FieldName = 'TX_SENHA'
|
|
Size = 40
|
|
end
|
|
object tblUsuariosID_GRUPO: TIntegerField
|
|
FieldName = 'ID_GRUPO'
|
|
end
|
|
object tblUsuariosTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object tblUsuariosTP_TROCAPASS: TWideStringField
|
|
FieldName = 'TP_TROCAPASS'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsUsuarios: TDataSource
|
|
DataSet = tblUsuarios
|
|
Left = 168
|
|
Top = 128
|
|
end
|
|
object tblGrupos: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
AfterInsert = tblGruposAfterInsert
|
|
BeforePost = tblGruposBeforePost
|
|
BeforeDelete = tblGruposBeforeDelete
|
|
TableName = 'SYS_GRUPOS'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 40
|
|
Top = 184
|
|
object tblGruposID_GRUPO: TIntegerField
|
|
DisplayLabel = 'ID do Grupo'
|
|
FieldName = 'ID_GRUPO'
|
|
Required = True
|
|
end
|
|
object tblGruposTX_NOME: TWideStringField
|
|
DisplayLabel = 'Nome'
|
|
FieldName = 'TX_NOME'
|
|
Size = 40
|
|
end
|
|
object tblGruposTP_SU: TWideStringField
|
|
DisplayLabel = #201' sudo?'
|
|
FieldName = 'TP_SU'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsGrupos: TDataSource
|
|
DataSet = tblGrupos
|
|
OnDataChange = dtsGruposDataChange
|
|
Left = 168
|
|
Top = 184
|
|
end
|
|
object dtsPermissoes: TDataSource
|
|
DataSet = tblPermissoes
|
|
Left = 168
|
|
Top = 240
|
|
end
|
|
object tblGruposPermissoes: TZTable
|
|
Connection = ZConnection
|
|
AfterInsert = tblGruposPermissoesAfterInsert
|
|
BeforePost = AtribuirChavePrimaria
|
|
AfterPost = tblGruposPermissoesAfterPost
|
|
AfterDelete = tblGruposPermissoesAfterPost
|
|
TableName = 'SYS_GRUPOS_PERMISSOES'
|
|
MasterFields = 'ID_GRUPO'
|
|
MasterSource = dtsGrupos
|
|
LinkedFields = 'ID_GRUPO'
|
|
Left = 40
|
|
Top = 296
|
|
object tblGruposPermissoesID_ITEM: TIntegerField
|
|
FieldName = 'ID_ITEM'
|
|
Required = True
|
|
end
|
|
object tblGruposPermissoesID_GRUPO: TIntegerField
|
|
FieldName = 'ID_GRUPO'
|
|
end
|
|
object tblGruposPermissoesID_PERMISSAO: TIntegerField
|
|
FieldName = 'ID_PERMISSAO'
|
|
end
|
|
object tblGruposPermissoesTX_DESCRICAO: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_DESCRICAO'
|
|
LookupDataSet = tblPermissoes
|
|
LookupKeyFields = 'ID_PERMISSAO'
|
|
LookupResultField = 'TX_DESCRICAO'
|
|
KeyFields = 'ID_PERMISSAO'
|
|
Size = 40
|
|
Lookup = True
|
|
end
|
|
object tblGruposPermissoesTP_ACESSO: TWideStringField
|
|
FieldName = 'TP_ACESSO'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsGruposPermissoes: TDataSource
|
|
DataSet = tblGruposPermissoes
|
|
Left = 168
|
|
Top = 296
|
|
end
|
|
object qryConsulta: TZQuery
|
|
Connection = ZConnection
|
|
Params = <>
|
|
Left = 168
|
|
Top = 24
|
|
end
|
|
object tblEmpresa: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
OnCalcFields = tblEmpresaCalcFields
|
|
AfterPost = RegistarLog
|
|
TableName = 'SYS_EMPRESA'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
WhereMode = wmWhereAll
|
|
Left = 40
|
|
Top = 80
|
|
object tblEmpresaID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object tblEmpresaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 100
|
|
end
|
|
object tblEmpresaTX_FANTASIA: TWideStringField
|
|
FieldName = 'TX_FANTASIA'
|
|
Size = 40
|
|
end
|
|
object tblEmpresaTX_ENDERECO: TWideStringField
|
|
FieldName = 'TX_ENDERECO'
|
|
Size = 100
|
|
end
|
|
object tblEmpresaNR_NUMERO: TIntegerField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object tblEmpresaTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
end
|
|
object tblEmpresaTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 60
|
|
end
|
|
object tblEmpresaID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
end
|
|
object tblEmpresaTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
EditMask = '#####-###;1;_'
|
|
Size = 9
|
|
end
|
|
object tblEmpresaTX_TELEFONE: TWideStringField
|
|
FieldName = 'TX_TELEFONE'
|
|
EditMask = '(##) ####-####;1;_'
|
|
Size = 40
|
|
end
|
|
object tblEmpresaTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 60
|
|
end
|
|
object tblEmpresaTX_WEBSITE: TWideStringField
|
|
FieldName = 'TX_WEBSITE'
|
|
Size = 60
|
|
end
|
|
object tblEmpresaTX_CNPJ: TWideStringField
|
|
FieldName = 'TX_CNPJ'
|
|
EditMask = '##.###.###/####-##;1;_'
|
|
Size = 18
|
|
end
|
|
object tblEmpresaTX_IE: TWideStringField
|
|
FieldName = 'TX_IE'
|
|
end
|
|
object tblEmpresaTX_IM: TWideStringField
|
|
FieldName = 'TX_IM'
|
|
end
|
|
object tblEmpresaID_ESTADO: TIntegerField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'ID_ESTADO'
|
|
KeyFields = 'ID_CIDADE'
|
|
Calculated = True
|
|
end
|
|
object tblEmpresaTL_OBSERVACOES: TWideMemoField
|
|
FieldName = 'TL_OBSERVACOES'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object tblEmpresaTX_LOGOMARCA: TWideStringField
|
|
FieldName = 'TX_LOGOMARCA'
|
|
Size = 100
|
|
end
|
|
object tblEmpresaTX_HONORARIOS: TWideStringField
|
|
FieldName = 'TX_HONORARIOS'
|
|
end
|
|
end
|
|
object dtsEmpresa: TDataSource
|
|
DataSet = tblEmpresa
|
|
Left = 168
|
|
Top = 80
|
|
end
|
|
object tblCidades: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
AfterInsert = tblCidadesAfterInsert
|
|
BeforePost = AtribuirChavePrimaria
|
|
TableName = 'SYS_CIDADES'
|
|
MasterFields = 'ID_ESTADO'
|
|
MasterSource = dtsEstados
|
|
LinkedFields = 'ID_ESTADO'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 288
|
|
Top = 80
|
|
object tblCidadesID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
Required = True
|
|
end
|
|
object tblCidadesTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object tblCidadesID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
object tblCidadesCD_IBGE: TWideStringField
|
|
FieldName = 'CD_IBGE'
|
|
Size = 10
|
|
end
|
|
end
|
|
object dtsCidades: TDataSource
|
|
DataSet = tblCidades
|
|
OnDataChange = dtsCidadesDataChange
|
|
Left = 400
|
|
Top = 81
|
|
end
|
|
object tblEstados: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
BeforePost = AtribuirChavePrimaria
|
|
TableName = 'SYS_ESTADOS'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 288
|
|
Top = 24
|
|
object tblEstadosID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
Required = True
|
|
end
|
|
object tblEstadosTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 40
|
|
end
|
|
object tblEstadosCD_ESTADO: TWideStringField
|
|
FieldName = 'CD_ESTADO'
|
|
Size = 2
|
|
end
|
|
object tblEstadosTX_SIGLA: TWideStringField
|
|
FieldName = 'TX_SIGLA'
|
|
Size = 2
|
|
end
|
|
end
|
|
object dtsEstados: TDataSource
|
|
DataSet = tblEstados
|
|
Left = 400
|
|
Top = 24
|
|
end
|
|
object tblPermissoes: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_PERMISSAO'
|
|
BeforePost = AtribuirChavePrimaria
|
|
TableName = 'SYS_PERMISSOES'
|
|
IndexFieldNames = 'ID_PERMISSAO Asc'
|
|
Left = 40
|
|
Top = 240
|
|
object tblPermissoesID_PERMISSAO: TIntegerField
|
|
FieldName = 'ID_PERMISSAO'
|
|
Required = True
|
|
end
|
|
object tblPermissoesCD_PERMISSAO: TWideStringField
|
|
FieldName = 'CD_PERMISSAO'
|
|
end
|
|
object tblPermissoesTX_DESCRICAO: TWideStringField
|
|
FieldName = 'TX_DESCRICAO'
|
|
Size = 40
|
|
end
|
|
object tblPermissoesID_PARENT: TIntegerField
|
|
FieldName = 'ID_PARENT'
|
|
end
|
|
object tblPermissoesTP_ACESSO: TWideStringField
|
|
FieldName = 'TP_ACESSO'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsPermDisponiveis: TDataSource
|
|
DataSet = tblPermDisponiveis
|
|
Left = 168
|
|
Top = 352
|
|
end
|
|
object tblPermDisponiveis: TZReadOnlyQuery
|
|
Connection = ZConnection
|
|
SQL.Strings = (
|
|
'SELECT * FROM SYS_PERMISSOES WHERE ID_PERMISSAO NOT IN('
|
|
' SELECT ID_PERMISSAO FROM SYS_GRUPOS_PERMISSOES'
|
|
' WHERE ID_GRUPO=:ID_GRUPO'
|
|
')')
|
|
Params = <
|
|
item
|
|
DataType = ftUnknown
|
|
Name = 'ID_GRUPO'
|
|
ParamType = ptUnknown
|
|
end>
|
|
DataSource = dtsGrupos
|
|
Left = 40
|
|
Top = 352
|
|
ParamData = <
|
|
item
|
|
DataType = ftUnknown
|
|
Name = 'ID_GRUPO'
|
|
ParamType = ptUnknown
|
|
end>
|
|
object tblPermDisponiveisID_PERMISSAO: TIntegerField
|
|
FieldName = 'ID_PERMISSAO'
|
|
Required = True
|
|
end
|
|
object tblPermDisponiveisCD_PERMISSAO: TWideStringField
|
|
FieldName = 'CD_PERMISSAO'
|
|
end
|
|
object tblPermDisponiveisTX_DESCRICAO: TWideStringField
|
|
FieldName = 'TX_DESCRICAO'
|
|
Size = 40
|
|
end
|
|
end
|
|
object tblLog: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'DT_LOG'
|
|
SortType = stDescending
|
|
AfterInsert = tblLogAfterInsert
|
|
BeforePost = AtribuirChavePrimaria
|
|
TableName = 'SYS_LOG'
|
|
MasterFields = 'ID_USUARIO'
|
|
MasterSource = dtsUsuarios
|
|
LinkedFields = 'ID_USUARIO'
|
|
IndexFieldNames = 'DT_LOG Desc'
|
|
Left = 288
|
|
Top = 127
|
|
object tblLogID_LOG: TIntegerField
|
|
FieldName = 'ID_LOG'
|
|
Required = True
|
|
end
|
|
object tblLogTX_TABELA: TWideStringField
|
|
FieldName = 'TX_TABELA'
|
|
end
|
|
object tblLogID_REGISTRO: TIntegerField
|
|
FieldName = 'ID_REGISTRO'
|
|
end
|
|
object tblLogTX_ACAO: TWideStringField
|
|
FieldName = 'TX_ACAO'
|
|
Size = 60
|
|
end
|
|
object tblLogID_USUARIO: TIntegerField
|
|
FieldName = 'ID_USUARIO'
|
|
end
|
|
object tblLogDT_LOG: TDateTimeField
|
|
FieldName = 'DT_LOG'
|
|
end
|
|
end
|
|
object dtsLog: TDataSource
|
|
DataSet = tblLog
|
|
Left = 400
|
|
Top = 127
|
|
end
|
|
object tblCHGEmpresa: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
OnCalcFields = tblEmpresaCalcFields
|
|
BeforePost = tblCHGEmpresaBeforePost
|
|
AfterPost = RegistarLog
|
|
AfterDelete = tblCHGEmpresaAfterDelete
|
|
TableName = 'CHG_EMPRESAS'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
WhereMode = wmWhereAll
|
|
Left = 288
|
|
Top = 184
|
|
object tblCHGEmpresaID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object tblCHGEmpresaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 100
|
|
end
|
|
object tblCHGEmpresaTX_FANTASIA: TWideStringField
|
|
FieldName = 'TX_FANTASIA'
|
|
Size = 40
|
|
end
|
|
object tblCHGEmpresaTX_CNPJ: TWideStringField
|
|
FieldName = 'TX_CNPJ'
|
|
EditMask = '##.###.###/####-##;1;_'
|
|
Size = 18
|
|
end
|
|
object tblCHGEmpresaTX_IE: TWideStringField
|
|
FieldName = 'TX_IE'
|
|
end
|
|
object tblCHGEmpresaTX_LOGOMARCA: TWideStringField
|
|
FieldName = 'TX_LOGOMARCA'
|
|
Size = 100
|
|
end
|
|
object tblCHGEmpresaTX_ENDERECO: TWideStringField
|
|
FieldName = 'TX_ENDERECO'
|
|
Size = 100
|
|
end
|
|
object tblCHGEmpresaTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
end
|
|
object tblCHGEmpresaTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 60
|
|
end
|
|
object tblCHGEmpresaID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
end
|
|
object tblCHGEmpresaTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
EditMask = '#####-###;1;_'
|
|
Size = 9
|
|
end
|
|
object tblCHGEmpresaTX_TELEFONE: TWideStringField
|
|
FieldName = 'TX_TELEFONE'
|
|
Size = 40
|
|
end
|
|
object tblCHGEmpresaTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 60
|
|
end
|
|
object tblCHGEmpresaTX_WEBSITE: TWideStringField
|
|
FieldName = 'TX_WEBSITE'
|
|
Size = 60
|
|
end
|
|
object tblCHGEmpresaTX_IM: TWideStringField
|
|
FieldName = 'TX_IM'
|
|
end
|
|
object tblCHGEmpresaTL_OBSERVACOES: TWideMemoField
|
|
FieldName = 'TL_OBSERVACOES'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object tblCHGEmpresaNR_NUMERO: TIntegerField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object tblCHGEmpresaTX_HONORARIOS: TWideStringField
|
|
FieldName = 'TX_HONORARIOS'
|
|
end
|
|
object tblCHGEmpresaID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
end
|
|
object dtsCHGEmpresa: TDataSource
|
|
DataSet = tblCHGEmpresa
|
|
Left = 400
|
|
Top = 184
|
|
end
|
|
object tblPoliticas: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_DESCRICAO'
|
|
AfterInsert = tblPoliticasAfterInsert
|
|
BeforePost = tblPoliticasBeforePost
|
|
AfterPost = tblPoliticasAfterPost
|
|
TableName = 'CHG_POLITICAS'
|
|
MasterFields = 'ID_EMPRESA'
|
|
MasterSource = dtsCHGEmpresa
|
|
LinkedFields = 'ID_EMPRESA'
|
|
IndexFieldNames = 'TX_DESCRICAO Asc'
|
|
Left = 288
|
|
Top = 240
|
|
object tblPoliticasID_POLITICA: TIntegerField
|
|
FieldName = 'ID_POLITICA'
|
|
Required = True
|
|
end
|
|
object tblPoliticasID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
end
|
|
object tblPoliticasTX_DESCRICAO: TWideStringField
|
|
FieldName = 'TX_DESCRICAO'
|
|
Size = 40
|
|
end
|
|
object tblPoliticasDT_INICIO: TDateTimeField
|
|
FieldName = 'DT_INICIO'
|
|
end
|
|
object tblPoliticasDT_FIM: TDateTimeField
|
|
FieldName = 'DT_FIM'
|
|
end
|
|
object tblPoliticasPR_ENTRADA: TFloatField
|
|
FieldName = 'PR_ENTRADA'
|
|
end
|
|
object tblPoliticasPR_MULTA: TFloatField
|
|
FieldName = 'PR_MULTA'
|
|
end
|
|
object tblPoliticasPR_JUROS: TFloatField
|
|
FieldName = 'PR_JUROS'
|
|
end
|
|
object tblPoliticasTP_JUROS: TWideStringField
|
|
FieldName = 'TP_JUROS'
|
|
Size = 1
|
|
end
|
|
object tblPoliticasPR_JUROS_PARCELAS: TFloatField
|
|
FieldName = 'PR_JUROS_PARCELAS'
|
|
end
|
|
object tblPoliticasVL_PARCELA_MINIMO: TFloatField
|
|
FieldName = 'VL_PARCELA_MINIMO'
|
|
end
|
|
object tblPoliticasNR_PARCELA_MAXIMO: TIntegerField
|
|
FieldName = 'NR_PARCELA_MAXIMO'
|
|
end
|
|
object tblPoliticasPR_QUITACAO_INDICADOR: TFloatField
|
|
FieldName = 'PR_QUITACAO_INDICADOR'
|
|
end
|
|
object tblPoliticasPR_QUITACAO_PRINCIPAL: TFloatField
|
|
FieldName = 'PR_QUITACAO_PRINCIPAL'
|
|
end
|
|
object tblPoliticasPR_QUITACAO_MULTA: TFloatField
|
|
FieldName = 'PR_QUITACAO_MULTA'
|
|
end
|
|
object tblPoliticasPR_QUITACAO_JUROS: TFloatField
|
|
FieldName = 'PR_QUITACAO_JUROS'
|
|
end
|
|
object tblPoliticasPR_PARCELA_INDICADOR: TFloatField
|
|
FieldName = 'PR_PARCELA_INDICADOR'
|
|
end
|
|
object tblPoliticasPR_PARCELA_PRINCIPAL: TFloatField
|
|
FieldName = 'PR_PARCELA_PRINCIPAL'
|
|
end
|
|
object tblPoliticasPR_PARCELA_MULTA: TFloatField
|
|
FieldName = 'PR_PARCELA_MULTA'
|
|
end
|
|
object tblPoliticasPR_PARCELA_JUROS: TFloatField
|
|
FieldName = 'PR_PARCELA_JUROS'
|
|
end
|
|
object tblPoliticasTP_PARCELA: TWideStringField
|
|
FieldName = 'TP_PARCELA'
|
|
Size = 1
|
|
end
|
|
end
|
|
object tblFaixas: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_DESCRICAO'
|
|
AfterInsert = tblFaixasAfterInsert
|
|
BeforePost = tblFaixasBeforePost
|
|
TableName = 'CHG_FAIXAS'
|
|
MasterFields = 'ID_POLITICA'
|
|
MasterSource = dtsPoliticas
|
|
LinkedFields = 'ID_POLITICA'
|
|
IndexFieldNames = 'TX_DESCRICAO Asc'
|
|
Left = 288
|
|
Top = 296
|
|
object tblFaixasID_FAIXA: TIntegerField
|
|
FieldName = 'ID_FAIXA'
|
|
Required = True
|
|
end
|
|
object tblFaixasID_POLITICA: TIntegerField
|
|
FieldName = 'ID_POLITICA'
|
|
end
|
|
object tblFaixasTX_DESCRICAO: TWideStringField
|
|
FieldName = 'TX_DESCRICAO'
|
|
Size = 40
|
|
end
|
|
object tblFaixasVL_INICIO: TFloatField
|
|
FieldName = 'VL_INICIO'
|
|
end
|
|
object tblFaixasVL_FINAL: TFloatField
|
|
FieldName = 'VL_FINAL'
|
|
end
|
|
object tblFaixasVL_PAGAMENTO_INICIO: TFloatField
|
|
FieldName = 'VL_PAGAMENTO_INICIO'
|
|
end
|
|
object tblFaixasVL_PAGAMENTO_FINAL: TFloatField
|
|
FieldName = 'VL_PAGAMENTO_FINAL'
|
|
end
|
|
object tblFaixasPR_FAIXA: TFloatField
|
|
FieldName = 'PR_FAIXA'
|
|
end
|
|
object tblFaixasDT_INICIO: TIntegerField
|
|
FieldName = 'DT_INICIO'
|
|
end
|
|
object tblFaixasDT_FINAL: TIntegerField
|
|
FieldName = 'DT_FINAL'
|
|
end
|
|
end
|
|
object dtsPoliticas: TDataSource
|
|
DataSet = tblPoliticas
|
|
Left = 400
|
|
Top = 240
|
|
end
|
|
object dtsFaixas: TDataSource
|
|
DataSet = tblFaixas
|
|
Left = 400
|
|
Top = 296
|
|
end
|
|
object tblDevedores: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
BeforePost = tblDevedoresBeforeost
|
|
TableName = 'CHG_DEVEDORES'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 288
|
|
Top = 352
|
|
object tblDevedoresID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblDevedoresTP_CLIENTE: TWideStringField
|
|
FieldName = 'TP_CLIENTE'
|
|
Size = 1
|
|
end
|
|
object tblDevedoresTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object tblDevedoresTX_PAI: TWideStringField
|
|
FieldName = 'TX_PAI'
|
|
Size = 60
|
|
end
|
|
object tblDevedoresTX_MAE: TWideStringField
|
|
FieldName = 'TX_MAE'
|
|
Size = 60
|
|
end
|
|
object tblDevedoresDT_CADASTRO: TDateTimeField
|
|
FieldName = 'DT_CADASTRO'
|
|
end
|
|
object tblDevedoresCD_CPF: TWideStringField
|
|
FieldName = 'CD_CPF'
|
|
EditMask = '999.999.999-99;1;_'
|
|
Size = 14
|
|
end
|
|
object tblDevedoresCD_CNPJ: TWideStringField
|
|
FieldName = 'CD_CNPJ'
|
|
EditMask = '##.###.###/####-##;1;_'
|
|
Size = 18
|
|
end
|
|
object tblDevedoresTL_MEMO: TWideMemoField
|
|
FieldName = 'TL_MEMO'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object tblDevedoresID_COBRADOR: TIntegerField
|
|
FieldName = 'ID_COBRADOR'
|
|
end
|
|
object tblDevedoresCD_DEVEDOR: TWideStringField
|
|
FieldName = 'CD_DEVEDOR'
|
|
end
|
|
object tblDevedoresCD_RG: TWideStringField
|
|
FieldName = 'CD_RG'
|
|
end
|
|
end
|
|
object dtsDevedores: TDataSource
|
|
DataSet = tblDevedores
|
|
Left = 400
|
|
Top = 352
|
|
end
|
|
object tblEnderecos: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_LOGRADOURO'
|
|
BeforePost = tblEnderecosBeforePost
|
|
TableName = 'CHG_ENDERECOS'
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsDevedores
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
IndexFieldNames = 'TX_LOGRADOURO Asc'
|
|
Left = 512
|
|
Top = 24
|
|
object tblEnderecosID_ENDERECO: TIntegerField
|
|
FieldName = 'ID_ENDERECO'
|
|
Required = True
|
|
end
|
|
object tblEnderecosID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblEnderecosTP_ENDERECO: TWideStringField
|
|
FieldName = 'TP_ENDERECO'
|
|
Size = 1
|
|
end
|
|
object tblEnderecosTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object tblEnderecosTX_LOGRADOURO: TWideStringField
|
|
FieldName = 'TX_LOGRADOURO'
|
|
Size = 100
|
|
end
|
|
object tblEnderecosTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 100
|
|
end
|
|
object tblEnderecosID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
Required = True
|
|
end
|
|
object tblEnderecosTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
EditMask = '#####-###;1;_'
|
|
Size = 9
|
|
end
|
|
object tblEnderecosTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
Size = 100
|
|
end
|
|
object tblEnderecosNR_NUMERO: TFloatField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object tblEnderecosTP_REFERENCIA: TWideStringField
|
|
FieldName = 'TP_REFERENCIA'
|
|
Size = 1
|
|
end
|
|
object tblEnderecosID_HIGIENIZADORA: TIntegerField
|
|
FieldName = 'ID_HIGIENIZADORA'
|
|
end
|
|
object tblEnderecosID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
object tblEnderecosTX_ESTADO: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_ESTADO'
|
|
LookupDataSet = tblEstados
|
|
LookupKeyFields = 'ID_ESTADO'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_ESTADO'
|
|
Size = 60
|
|
Lookup = True
|
|
end
|
|
object tblEnderecosTX_CIDADE: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_CIDADE'
|
|
LookupDataSet = tblCidades
|
|
LookupKeyFields = 'ID_CIDADE'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_CIDADE'
|
|
Lookup = True
|
|
end
|
|
end
|
|
object dtsCHGEnderecos: TDataSource
|
|
DataSet = tblEnderecos
|
|
Left = 648
|
|
Top = 24
|
|
end
|
|
object tblTelefones: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'NR_NUMERO'
|
|
BeforePost = tblTelefonesBeforePost
|
|
TableName = 'CHG_TELEFONES'
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsDevedores
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
IndexFieldNames = 'NR_NUMERO Asc'
|
|
Left = 512
|
|
Top = 80
|
|
object tblTelefonesID_TELEFONE: TIntegerField
|
|
FieldName = 'ID_TELEFONE'
|
|
Required = True
|
|
end
|
|
object tblTelefonesID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblTelefonesNR_NUMERO: TWideStringField
|
|
FieldName = 'NR_NUMERO'
|
|
EditMask = '!\(99\)0000-00009;1;_'
|
|
end
|
|
object tblTelefonesTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object tblTelefonesTP_TIPOTEL: TWideStringField
|
|
FieldName = 'TP_TIPOTEL'
|
|
Size = 1
|
|
end
|
|
object tblTelefonesTX_DESC: TWideStringField
|
|
FieldName = 'TX_DESC'
|
|
Size = 100
|
|
end
|
|
object tblTelefonesTX_OBS: TWideMemoField
|
|
FieldName = 'TX_OBS'
|
|
BlobType = ftWideMemo
|
|
end
|
|
end
|
|
object dtsTelefones: TDataSource
|
|
DataSet = tblTelefones
|
|
Left = 648
|
|
Top = 80
|
|
end
|
|
object tblTitulos: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_TITULO'
|
|
OnCalcFields = tblTitulosCalcFields
|
|
BeforePost = tblTitulosBeforePost
|
|
TableName = 'CHG_TITULOS'
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsDevedores
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
IndexFieldNames = 'ID_TITULO Asc'
|
|
Left = 512
|
|
Top = 128
|
|
object tblTitulosID_TITULO: TIntegerField
|
|
FieldName = 'ID_TITULO'
|
|
Required = True
|
|
end
|
|
object tblTitulosID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblTitulosID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object tblTitulosTX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object tblTitulosDT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
end
|
|
object tblTitulosDT_ENTRADA: TDateTimeField
|
|
FieldName = 'DT_ENTRADA'
|
|
end
|
|
object tblTitulosVL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
end
|
|
object tblTitulosTP_SITUACAO: TWideStringField
|
|
FieldName = 'TP_SITUACAO'
|
|
Size = 1
|
|
end
|
|
object tblTitulosCD_DEVEDOR: TWideStringField
|
|
FieldName = 'CD_DEVEDOR'
|
|
Size = 100
|
|
end
|
|
end
|
|
object dtsTitulos: TDataSource
|
|
DataSet = tblTitulos
|
|
Left = 648
|
|
Top = 128
|
|
end
|
|
object ZSQLProcessor1: TZSQLProcessor
|
|
Params = <>
|
|
Connection = ZConnection
|
|
Delimiter = ';'
|
|
Left = 40
|
|
Top = 416
|
|
end
|
|
object tblProvidencias: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_PROVIDENCIA'
|
|
BeforeEdit = tblProvidenciasBeforeEdit
|
|
BeforePost = tblProvidenciasBeforePost
|
|
BeforeDelete = tblProvidenciasBeforeDelete
|
|
TableName = 'CHG_PROVIDENCIAS'
|
|
IndexFieldNames = 'ID_PROVIDENCIA Asc'
|
|
Left = 512
|
|
Top = 240
|
|
object tblProvidenciasID_PROVIDENCIA: TIntegerField
|
|
DisplayWidth = 5
|
|
FieldName = 'ID_PROVIDENCIA'
|
|
Required = True
|
|
end
|
|
object tblProvidenciasTX_NOME: TWideStringField
|
|
DisplayWidth = 72
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object tblProvidenciasTX_DESCRICAO: TWideStringField
|
|
DisplayWidth = 306
|
|
FieldName = 'TX_DESCRICAO'
|
|
Size = 255
|
|
end
|
|
end
|
|
object dtsProvidencias: TDataSource
|
|
DataSet = tblProvidencias
|
|
Left = 648
|
|
Top = 240
|
|
end
|
|
object tblInadimplencias: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_INADIMPLENCIA'
|
|
BeforePost = tblInadimplenciasBeforePost
|
|
TableName = 'CHG_INADIMPLENCIAS'
|
|
IndexFieldNames = 'ID_INADIMPLENCIA Asc'
|
|
Left = 512
|
|
Top = 184
|
|
object tblInadimplenciasID_INADIMPLENCIA: TIntegerField
|
|
FieldName = 'ID_INADIMPLENCIA'
|
|
Required = True
|
|
end
|
|
object tblInadimplenciasTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 100
|
|
end
|
|
end
|
|
object dtsInadimplencias: TDataSource
|
|
DataSet = tblInadimplencias
|
|
Left = 648
|
|
Top = 184
|
|
end
|
|
object tblCampanhaCob: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_ITEM'
|
|
BeforePost = tblCampanhaCobBeforePost
|
|
TableName = 'CHG_CAMPANHAS_COBRADORES'
|
|
MasterFields = 'ID_CAMPANHA'
|
|
MasterSource = dtsCobCampanha
|
|
LinkedFields = 'ID_CAMPANHA'
|
|
IndexFieldNames = 'ID_ITEM Asc'
|
|
Left = 512
|
|
Top = 352
|
|
object tblCampanhaCobID_ITEM: TIntegerField
|
|
FieldName = 'ID_ITEM'
|
|
Required = True
|
|
end
|
|
object tblCampanhaCobID_CAMPANHA: TIntegerField
|
|
FieldName = 'ID_CAMPANHA'
|
|
end
|
|
object tblCampanhaCobID_COBRADOR: TIntegerField
|
|
FieldName = 'ID_COBRADOR'
|
|
end
|
|
end
|
|
object dtsCampanhaCob: TDataSource
|
|
DataSet = tblCampanhaCob
|
|
Left = 648
|
|
Top = 352
|
|
end
|
|
object tblUsuariosConsulta: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'TX_NOME'
|
|
AfterInsert = tblUsuariosAfterInsert
|
|
BeforePost = AtribuirChavePrimaria
|
|
AfterPost = RegistarLog
|
|
TableName = 'SYS_USUARIOS'
|
|
LinkedFields = 'ID_GRUPO'
|
|
IndexFieldNames = 'TX_NOME Asc'
|
|
Left = 168
|
|
Top = 408
|
|
object tblUsuariosConsultaID_USUARIO: TIntegerField
|
|
FieldName = 'ID_USUARIO'
|
|
Required = True
|
|
end
|
|
object tblUsuariosConsultaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object tblUsuariosConsultaTX_USUARIO: TWideStringField
|
|
FieldName = 'TX_USUARIO'
|
|
Size = 10
|
|
end
|
|
object tblUsuariosConsultaTX_SENHA: TWideStringField
|
|
FieldName = 'TX_SENHA'
|
|
Size = 40
|
|
end
|
|
object tblUsuariosConsultaID_GRUPO: TIntegerField
|
|
FieldName = 'ID_GRUPO'
|
|
end
|
|
object tblUsuariosConsultaTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object tblUsuariosConsultaTP_TROCAPASS: TWideStringField
|
|
FieldName = 'TP_TROCAPASS'
|
|
Size = 1
|
|
end
|
|
end
|
|
object tblCampanhaDevedores: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_ITEM'
|
|
BeforePost = tblCampanhaDevedoresBeforePost
|
|
TableName = 'CHG_CAMPANHAS_DEVEDORES'
|
|
MasterFields = 'ID_CAMPANHA'
|
|
MasterSource = dtsCobCampanha
|
|
LinkedFields = 'ID_CAMPANHA'
|
|
IndexFieldNames = 'ID_ITEM Asc'
|
|
Left = 512
|
|
Top = 408
|
|
object tblCampanhaDevedoresID_ITEM: TIntegerField
|
|
FieldName = 'ID_ITEM'
|
|
Required = True
|
|
end
|
|
object tblCampanhaDevedoresID_CAMPANHA: TIntegerField
|
|
FieldName = 'ID_CAMPANHA'
|
|
Required = True
|
|
end
|
|
object tblCampanhaDevedoresID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblCampanhaDevedoresTX_NOME: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_NOME'
|
|
LookupDataSet = tblDevedores
|
|
LookupKeyFields = 'ID_DEVEDOR'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_DEVEDOR'
|
|
Size = 60
|
|
Lookup = True
|
|
end
|
|
object tblCampanhaDevedoresTX_DOCUMENTO: TWideStringField
|
|
FieldName = 'TX_DOCUMENTO'
|
|
end
|
|
object tblCampanhaDevedoresTP_ESTADO: TWideStringField
|
|
FieldName = 'TP_ESTADO'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsCampanhaDevedores: TDataSource
|
|
DataSet = tblCampanhaDevedores
|
|
Left = 648
|
|
Top = 408
|
|
end
|
|
object tblCobCampanha: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_CAMPANHA'
|
|
BeforePost = tblCobCampanhaBeforePost
|
|
TableName = 'CHG_CAMPANHAS'
|
|
IndexFieldNames = 'ID_CAMPANHA Asc'
|
|
Left = 512
|
|
Top = 296
|
|
object tblCobCampanhaID_CAMPANHA: TIntegerField
|
|
FieldName = 'ID_CAMPANHA'
|
|
Required = True
|
|
end
|
|
object tblCobCampanhaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 40
|
|
end
|
|
object tblCobCampanhaTP_ATIVA: TWideStringField
|
|
FieldName = 'TP_ATIVA'
|
|
Size = 1
|
|
end
|
|
object tblCobCampanhaTP_CONCLUIDA: TWideStringField
|
|
FieldName = 'TP_CONCLUIDA'
|
|
Size = 1
|
|
end
|
|
object tblCobCampanhaTX_DESC: TWideStringField
|
|
FieldName = 'TX_DESC'
|
|
Size = 255
|
|
end
|
|
object tblCobCampanhaDT_CAD: TDateField
|
|
FieldName = 'DT_CAD'
|
|
end
|
|
end
|
|
object dtsCobCampanha: TDataSource
|
|
DataSet = tblCobCampanha
|
|
Left = 648
|
|
Top = 296
|
|
end
|
|
object tblHistorico: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_HISTORICO'
|
|
OnCalcFields = tblHistoricoCalcFields
|
|
BeforePost = tblHistoricoBeforePost
|
|
TableName = 'CHG_HISTORICO'
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsDevedores
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
IndexFieldNames = 'ID_HISTORICO Asc'
|
|
Left = 288
|
|
Top = 408
|
|
object tblHistoricoID_HISTORICO: TIntegerField
|
|
FieldName = 'ID_HISTORICO'
|
|
Required = True
|
|
end
|
|
object tblHistoricoID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
end
|
|
object tblHistoricoID_COBRADOR: TIntegerField
|
|
FieldName = 'ID_COBRADOR'
|
|
end
|
|
object tblHistoricoID_TITULO: TIntegerField
|
|
FieldName = 'ID_TITULO'
|
|
end
|
|
object tblHistoricoID_PROVIDENCIA: TIntegerField
|
|
FieldName = 'ID_PROVIDENCIA'
|
|
Required = True
|
|
end
|
|
object tblHistoricoDT_CONTATO: TDateTimeField
|
|
FieldName = 'DT_CONTATO'
|
|
end
|
|
object tblHistoricoDT_AGENDAMENTO: TDateTimeField
|
|
FieldName = 'DT_AGENDAMENTO'
|
|
end
|
|
object tblHistoricoDT_HORAMARCADA: TTimeField
|
|
FieldName = 'DT_HORAMARCADA'
|
|
end
|
|
object tblHistoricoTP_VAIPAGAR: TWideStringField
|
|
FieldName = 'TP_VAIPAGAR'
|
|
Size = 1
|
|
end
|
|
object tblHistoricoTP_AGENDAMENTO: TWideStringField
|
|
FieldName = 'TP_AGENDAMENTO'
|
|
Size = 1
|
|
end
|
|
object tblHistoricoCD_PROTOCOLO: TWideStringField
|
|
FieldName = 'CD_PROTOCOLO'
|
|
Size = 10
|
|
end
|
|
object tblHistoricoTL_MEMO: TWideMemoField
|
|
FieldName = 'TL_MEMO'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object tblHistoricoTX_PROVIDENCIA: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_PROVIDENCIA'
|
|
LookupDataSet = tblProvidencias
|
|
LookupKeyFields = 'ID_PROVIDENCIA'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_PROVIDENCIA'
|
|
Lookup = True
|
|
end
|
|
object tblHistoricoTX_MEMO: TStringField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'TX_MEMO'
|
|
Size = 10
|
|
Calculated = True
|
|
end
|
|
object tblHistoricoTX_COBRADOR: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_COBRADOR'
|
|
LookupDataSet = tblUsuarios
|
|
LookupKeyFields = 'ID_USUARIO'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_COBRADOR'
|
|
Size = 60
|
|
Lookup = True
|
|
end
|
|
object tblHistoricoTX_TITULO: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_TITULO'
|
|
LookupDataSet = tblTitulos
|
|
LookupKeyFields = 'ID_TITULO'
|
|
LookupResultField = 'TX_PRODUTO'
|
|
KeyFields = 'ID_TITULO'
|
|
Size = 60
|
|
Lookup = True
|
|
end
|
|
end
|
|
object dtsHistorico: TDataSource
|
|
DataSet = tblHistorico
|
|
Left = 400
|
|
Top = 408
|
|
end
|
|
object ROQueryFaixa: TZReadOnlyQuery
|
|
Connection = ZConnection
|
|
Params = <>
|
|
Left = 40
|
|
Top = 464
|
|
end
|
|
object dtsQueryFaixa: TDataSource
|
|
DataSet = ROQueryFaixa
|
|
Left = 168
|
|
Top = 464
|
|
end
|
|
object ROquerypesquisas: TZReadOnlyQuery
|
|
Connection = ZConnection
|
|
Params = <>
|
|
Left = 288
|
|
Top = 464
|
|
end
|
|
object dtsROquerypesquisas: TDataSource
|
|
DataSet = ROquerypesquisas
|
|
Left = 408
|
|
Top = 464
|
|
end
|
|
object tblAgenda: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_AGENDA'
|
|
BeforePost = tblAgendaBeforePost
|
|
TableName = 'CHG_AGENDA'
|
|
MasterFields = 'ID_USUARIO'
|
|
MasterSource = dtsUsuarios
|
|
IndexFieldNames = 'ID_AGENDA Asc'
|
|
Left = 760
|
|
Top = 24
|
|
object tblAgendaID_AGENDA: TIntegerField
|
|
FieldName = 'ID_AGENDA'
|
|
Required = True
|
|
end
|
|
object tblAgendaID_COBRADOR: TIntegerField
|
|
FieldName = 'ID_COBRADOR'
|
|
Required = True
|
|
end
|
|
object tblAgendaID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object tblAgendaDT_AGENDADA: TDateField
|
|
FieldName = 'DT_AGENDADA'
|
|
end
|
|
object tblAgendaHR_AGENDADA: TTimeField
|
|
FieldName = 'HR_AGENDADA'
|
|
end
|
|
object tblAgendaTP_SITUACAO: TWideStringField
|
|
FieldName = 'TP_SITUACAO'
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsAgenda: TDataSource
|
|
DataSet = tblAgenda
|
|
Left = 832
|
|
Top = 24
|
|
end
|
|
object tblLayouts: TZTable
|
|
Connection = ZConnection
|
|
SortedFields = 'ID_LAYOUT'
|
|
BeforePost = tblLayoutsBeforePost
|
|
TableName = 'SYS_LAYOUTS'
|
|
IndexFieldNames = 'ID_LAYOUT Asc'
|
|
Left = 760
|
|
Top = 80
|
|
object tblLayoutsID_LAYOUT: TIntegerField
|
|
FieldName = 'ID_LAYOUT'
|
|
Required = True
|
|
end
|
|
object tblLayoutsTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 40
|
|
end
|
|
object tblLayoutsSTR_CAMPOS: TWideStringField
|
|
FieldName = 'STR_CAMPOS'
|
|
Size = 255
|
|
end
|
|
object tblLayoutsNR_QNTCAMPOS: TFloatField
|
|
FieldName = 'NR_QNTCAMPOS'
|
|
end
|
|
end
|
|
object dtsLayout: TDataSource
|
|
DataSet = tblLayouts
|
|
Left = 832
|
|
Top = 80
|
|
end
|
|
end
|