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