|
|
|
@ -630,48 +630,10 @@ type |
|
|
|
tblTitulosVL_REPASSE_PRIN: TFloatField; |
|
|
|
tblTitulosTP_PRESTACAO: TWideStringField; |
|
|
|
tblTitulosVL_REPASSE_ENCARGOS: TFloatField; |
|
|
|
dtsGrupoBoletos: TDataSource; |
|
|
|
dtsGrupoBoletoEmpresas: TDataSource; |
|
|
|
tblGrupoBoletos: TZQuery; |
|
|
|
tblGrupoBoletoEmpresas: TZQuery; |
|
|
|
seqGrupoBoletos: TZSequence; |
|
|
|
seqGrupoBoletoEmpresas: TZSequence; |
|
|
|
tblGrupoBoletosID_GRUPO: TIntegerField; |
|
|
|
tblGrupoBoletosTX_NOME: TWideStringField; |
|
|
|
tblGrupoBoletosTX_DESCRICAO: TWideStringField; |
|
|
|
tblGrupoBoletoEmpresasID_ITEM: TIntegerField; |
|
|
|
tblGrupoBoletoEmpresasID_GRUPO_BOLETO: TIntegerField; |
|
|
|
tblGrupoBoletoEmpresasID_EMPRESA: TIntegerField; |
|
|
|
ImageList1: TImageList; |
|
|
|
tblGrupoBoletoEmpresasTX_EMPRESA: TStringField; |
|
|
|
tblGrupoBoletosTP_DESC1: TWideStringField; |
|
|
|
tblGrupoBoletosNR_DESC1: TFloatField; |
|
|
|
tblGrupoBoletosPR_DESC1: TFloatField; |
|
|
|
tblGrupoBoletosDT_DESC1: TDateField; |
|
|
|
tblGrupoBoletosTP_DESC2: TWideStringField; |
|
|
|
tblGrupoBoletosNR_DESC2: TFloatField; |
|
|
|
tblGrupoBoletosPR_DESC2: TFloatField; |
|
|
|
tblGrupoBoletosDT_DESC2: TDateField; |
|
|
|
tblGrupoBoletosTP_DESC3: TWideStringField; |
|
|
|
tblGrupoBoletosNR_DESC3: TFloatField; |
|
|
|
tblGrupoBoletosPR_DESC3: TFloatField; |
|
|
|
tblGrupoBoletosDT_DESC3: TDateField; |
|
|
|
tblGrupoBoletosTP_MULTA: TWideStringField; |
|
|
|
tblGrupoBoletosNR_MULTA: TFloatField; |
|
|
|
tblGrupoBoletosPR_MULTA: TFloatField; |
|
|
|
tblGrupoBoletosTP_MORA: TWideStringField; |
|
|
|
tblGrupoBoletosNR_MORA: TFloatField; |
|
|
|
tblGrupoBoletosPR_MORA: TFloatField; |
|
|
|
tblBoletos: TZQuery; |
|
|
|
dtsBoletos: TDataSource; |
|
|
|
seqBoletos: TZSequence; |
|
|
|
tblBoletosID: TIntegerField; |
|
|
|
tblBoletosNR_NOSSO_NUMERO: TWideStringField; |
|
|
|
tblBoletosDT_EMISSAO: TDateField; |
|
|
|
tblBoletosVL_NOMINAL: TFloatField; |
|
|
|
tblBoletosVL_ABATIMENTO: TFloatField; |
|
|
|
tblBoletosDT_VENCIMENTO: TDateField; |
|
|
|
tblBoletosID_GRUPO: TSingleField; |
|
|
|
seqBoletoTitulos: TZSequence; |
|
|
|
tblBoletoTitulos: TZQuery; |
|
|
|
dtsBoletoTitulos: TDataSource; |
|
|
|
@ -685,8 +647,6 @@ type |
|
|
|
tblCidadesConsultaTX_NOME: TWideStringField; |
|
|
|
tblCidadesConsultaID_ESTADO: TIntegerField; |
|
|
|
tblCidadesConsultaCD_IBGE: TWideStringField; |
|
|
|
tblBoletosCD_COD_BARRAS: TWideStringField; |
|
|
|
tblBoletosCD_LINHA_DIGITAVEL: TWideStringField; |
|
|
|
dtsContas: TDataSource; |
|
|
|
tblContas: TZQuery; |
|
|
|
tblContasID_CONTA: TIntegerField; |
|
|
|
@ -714,6 +674,131 @@ type |
|
|
|
tblPrCartaoPR_JUROS: TFloatField; |
|
|
|
tblPrCartaoTX_DESCRICAO: TWideStringField; |
|
|
|
tblPrCartaoPR_REPASSE: TFloatField; |
|
|
|
tblEmpresaCLIENT_ID: TWideStringField; |
|
|
|
tblEmpresaCLIENT_SECRET: TWideStringField; |
|
|
|
tblEmpresaCONTA_CORRENTE: TWideStringField; |
|
|
|
tblDevedoresCD_DOCUMENTO: TStringField; |
|
|
|
tblEnderecosTX_UF: TStringField; |
|
|
|
tblEmpresaTX_CIDADE: TStringField; |
|
|
|
tblEmpresaTX_UF: TStringField; |
|
|
|
tblEnderecosTX_ENDERECO_COMPLETO: TWideStringField; |
|
|
|
tblDevedoresNR_DIA_VENCIMENTO: TIntegerField; |
|
|
|
tblDevedoresNR_DIAS_AGENDA: TIntegerField; |
|
|
|
tblDevedoresID_ENDERECO_BOLETO: TIntegerField; |
|
|
|
tblDevedoresID_TELEFONE_BOLETO: TIntegerField; |
|
|
|
tblDevedoresID_EMAIL_BOLETO: TIntegerField; |
|
|
|
tblDevedoresTX_MENSAGEM_BOLETO_1: TWideStringField; |
|
|
|
tblDevedoresTX_MENSAGEM_BOLETO_2: TWideStringField; |
|
|
|
tblDevedoresTX_MENSAGEM_BOLETO_3: TWideStringField; |
|
|
|
tblDevedoresTX_MENSAGEM_BOLETO_4: TWideStringField; |
|
|
|
tblDevedoresTX_MENSAGEM_BOLETO_5: TWideStringField; |
|
|
|
tblDevedoresVL_NOMINAL_BOLETO: TFloatField; |
|
|
|
tblDevedoresTP_DESC_BOLETO_1: TWideStringField; |
|
|
|
tblDevedoresTP_DESC_BOLETO_2: TWideStringField; |
|
|
|
tblDevedoresTP_DESC_BOLETO_3: TWideStringField; |
|
|
|
tblDevedoresNR_DIAS_DESC_BOLETO_1: TIntegerField; |
|
|
|
tblDevedoresNR_DIAS_DESC_BOLETO_2: TIntegerField; |
|
|
|
tblDevedoresNR_DIAS_DESC_BOLETO_3: TIntegerField; |
|
|
|
tblDevedoresPR_DESC_BOLETO_1: TFloatField; |
|
|
|
tblDevedoresPR_DESC_BOLETO_2: TFloatField; |
|
|
|
tblDevedoresPR_DESC_BOLETO_3: TFloatField; |
|
|
|
tblDevedoresVL_DESC_BOLETO_1: TFloatField; |
|
|
|
tblDevedoresVL_DESC_BOLETO_2: TFloatField; |
|
|
|
tblDevedoresVL_DESC_BOLETO_3: TFloatField; |
|
|
|
tblDevedoresTP_MULTA_BOLETO: TWideStringField; |
|
|
|
tblDevedoresNR_DIAS_MULTA_BOLETO: TIntegerField; |
|
|
|
tblDevedoresPR_MULTA_BOLETO: TFloatField; |
|
|
|
tblDevedoresVL_MULTA_BOLETO: TFloatField; |
|
|
|
tblDevedoresTP_MORA_BOLETO: TWideStringField; |
|
|
|
tblDevedoresNR_MORA_BOLETO: TIntegerField; |
|
|
|
tblDevedoresPR_MORA_BOLETO: TFloatField; |
|
|
|
tblDevedoresVL_MORA_BOLETO: TFloatField; |
|
|
|
tblTelefonesTX_TELEFONE_COMPLETO: TWideStringField; |
|
|
|
cdsDescBoleto: TClientDataSet; |
|
|
|
cdsDescBoletoID_STATUS: TIntegerField; |
|
|
|
cdsDescBoletoTX_VALOR: TStringField; |
|
|
|
cdsDescBoletoTX_DESCRICAO: TStringField; |
|
|
|
dtsDescBoleto: TDataSource; |
|
|
|
dtsMoraBoleto: TDataSource; |
|
|
|
cdsMoraBoleto: TClientDataSet; |
|
|
|
IntegerField1: TIntegerField; |
|
|
|
StringField1: TStringField; |
|
|
|
StringField2: TStringField; |
|
|
|
dtsMultaBoleto: TDataSource; |
|
|
|
cdsMultaBoleto: TClientDataSet; |
|
|
|
IntegerField2: TIntegerField; |
|
|
|
StringField3: TStringField; |
|
|
|
StringField4: TStringField; |
|
|
|
tblDevedoresTX_SUFIXO_SEU_NUMERO: TWideStringField; |
|
|
|
tblEmpresaPATH_CERT: TWideStringField; |
|
|
|
tblEmpresaPATH_KEY: TWideStringField; |
|
|
|
tblBoletosID_BOLETO: TIntegerField; |
|
|
|
tblBoletosID_DEVEDOR: TIntegerField; |
|
|
|
tblBoletosTX_NOSSO_NUMERO: TWideStringField; |
|
|
|
tblBoletosTX_SEU_NUMERO: TWideStringField; |
|
|
|
tblBoletosCD_BARRAS: TWideStringField; |
|
|
|
tblBoletosCD_LINHA_DIGITAVEL: TWideStringField; |
|
|
|
tblBoletosVL_NOMINAL: TFloatField; |
|
|
|
tblBoletosDT_VENCIMENTO: TDateField; |
|
|
|
tblBoletosNR_ADIAS_AGENDA: TIntegerField; |
|
|
|
tblBoletosTX_DOCUMENTO: TWideStringField; |
|
|
|
tblBoletosTP_PESSOA: TWideStringField; |
|
|
|
tblBoletosTX_NOME: TWideStringField; |
|
|
|
tblBoletosTX_ENDERECO: TWideStringField; |
|
|
|
tblBoletosNR_ENDERECO: TIntegerField; |
|
|
|
tblBoletosTX_COMPLEMENTO: TWideStringField; |
|
|
|
tblBoletosTX_BAIRRO: TWideStringField; |
|
|
|
tblBoletosTX_CIDADE: TWideStringField; |
|
|
|
tblBoletosTX_UF: TWideStringField; |
|
|
|
tblBoletosCD_CEP: TWideStringField; |
|
|
|
tblBoletosTX_EMAIL: TWideStringField; |
|
|
|
tblBoletosNR_DDD: TWideStringField; |
|
|
|
tblBoletosNR_TELEFONE: TWideStringField; |
|
|
|
tblBoletosTX_MENSAGEM_1: TWideStringField; |
|
|
|
tblBoletosTX_MENSAGEM_2: TWideStringField; |
|
|
|
tblBoletosTX_MENSAGEM_3: TWideStringField; |
|
|
|
tblBoletosTX_MENSAGEM_4: TWideStringField; |
|
|
|
tblBoletosTX_MENSAGEM_5: TWideStringField; |
|
|
|
tblBoletosTP_DESCONTO_1: TWideStringField; |
|
|
|
tblBoletosDT_DESCONTO_1: TDateField; |
|
|
|
tblBoletosPR_DESCONTO_1: TFloatField; |
|
|
|
tblBoletosVL_DESCONTO_1: TFloatField; |
|
|
|
tblBoletosTP_DESCONTO_2: TWideStringField; |
|
|
|
tblBoletosDT_DESCONTO_2: TDateField; |
|
|
|
tblBoletosPR_DESCONTO_2: TFloatField; |
|
|
|
tblBoletosVL_DESCONTO_2: TFloatField; |
|
|
|
tblBoletosTP_DESCONTO_3: TWideStringField; |
|
|
|
tblBoletosDT_DESCONTO_3: TDateField; |
|
|
|
tblBoletosPR_DESCONTO_3: TFloatField; |
|
|
|
tblBoletosVL_DESCONTO_3: TFloatField; |
|
|
|
tblBoletosTP_MULTA: TWideStringField; |
|
|
|
tblBoletosDT_MULTA: TDateField; |
|
|
|
tblBoletosPR_MULTA: TFloatField; |
|
|
|
tblBoletosVL_MULTA: TFloatField; |
|
|
|
tblBoletosTP_MORA: TWideStringField; |
|
|
|
tblBoletosDT_MORA: TDateField; |
|
|
|
tblBoletosPR_MORA: TFloatField; |
|
|
|
tblBoletosVL_MORA: TFloatField; |
|
|
|
tblBoletosTX_NOME_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_DOCUMENTO_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTP_PESSOA_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosCD_CEP_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_ENDERECO_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_BAIRRO_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_CIDADE_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_UF_BENEFICIARIO: TWideStringField; |
|
|
|
tblBoletosTX_MOTIVO_CANCELAMENTO: TWideStringField; |
|
|
|
tblBoletosTX_SITUACAO: TWideStringField; |
|
|
|
tblBoletosDT_SITUACAO: TDateTimeField; |
|
|
|
tblBoletosVL_TOTAL_RECEBIDO: TFloatField; |
|
|
|
tblBoletosDT_EMISSAO: TDateTimeField; |
|
|
|
tblDevEmpBoletos: TZQuery; |
|
|
|
tblDevEmpBoletosID_ITEM: TIntegerField; |
|
|
|
tblDevEmpBoletosID_DEVEDOR: TIntegerField; |
|
|
|
tblDevEmpBoletosID_EMPRESA: TIntegerField; |
|
|
|
tblDevEmpBoletosTX_EMPRESA: TWideStringField; |
|
|
|
dtsDevEmpBoletos: TDataSource; |
|
|
|
seqDevEmpBoletos: TZSequence; |
|
|
|
procedure tblUsuariosAfterInsert(DataSet: TDataSet); |
|
|
|
procedure tblGruposAfterInsert(DataSet: TDataSet); |
|
|
|
procedure tblGruposPermissoesAfterInsert(DataSet: TDataSet); |
|
|
|
@ -895,6 +980,11 @@ type |
|
|
|
procedure tblBoletosBeforePost(DataSet: TDataSet); |
|
|
|
procedure tblBoletoTitulosBeforePost(DataSet: TDataSet); |
|
|
|
procedure tblPrCartaoAfterInsert(DataSet: TDataSet); |
|
|
|
procedure tblDevedoresCalcFields(DataSet: TDataSet); |
|
|
|
procedure tblEnderecosCalcFields(DataSet: TDataSet); |
|
|
|
procedure tblTelefonesCalcFields(DataSet: TDataSet); |
|
|
|
procedure tblBoletosBeforeOpen(DataSet: TDataSet); |
|
|
|
procedure tblDevEmpBoletosBeforeOpen(DataSet: TDataSet); |
|
|
|
private |
|
|
|
{ Private declarations } |
|
|
|
public |
|
|
|
@ -904,6 +994,7 @@ type |
|
|
|
tx_caminho_versao: String; |
|
|
|
tx_grupo: String; |
|
|
|
fields_before: array of string; |
|
|
|
fieldsTituloBefore: array of string; |
|
|
|
|
|
|
|
// parametros das querys |
|
|
|
id_devedor: integer; |
|
|
|
@ -930,7 +1021,7 @@ type |
|
|
|
dt_pag: TDateTime; |
|
|
|
dt_recibo: TDateTime; |
|
|
|
|
|
|
|
path_executavel: string; |
|
|
|
path_executavel, path_att, exe: string; |
|
|
|
version: string; |
|
|
|
|
|
|
|
// permissoes |
|
|
|
@ -974,6 +1065,7 @@ type |
|
|
|
sequence: TZSequence = nil); |
|
|
|
function gerarProtocolo(id_devedor: string): string; |
|
|
|
procedure OpenOrRefresh(table: TZQuery); |
|
|
|
procedure OpenOrRefreshRO(table: TZReadOnlyQuery); |
|
|
|
{ Public declarations } |
|
|
|
end; |
|
|
|
|
|
|
|
@ -990,7 +1082,7 @@ uses ucadUsuarios, ufrmAtendimento, ShellApi; |
|
|
|
|
|
|
|
procedure TdtmSystem.DataModuleCreate(Sender: TObject); |
|
|
|
var |
|
|
|
path_banco , layoutHelper: string; |
|
|
|
path_banco, layoutHelper: string; |
|
|
|
banco, lista: TStringList; |
|
|
|
i: integer; |
|
|
|
begin |
|
|
|
@ -1001,11 +1093,14 @@ begin |
|
|
|
|
|
|
|
ZConnection.Disconnect; |
|
|
|
// abre o arquivo ini |
|
|
|
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'sistema.ini') do |
|
|
|
with TMemIniFile.Create(ExtractFilePath(Application.ExeName) + 'sistema.ini', |
|
|
|
TEncoding.UTF8) do |
|
|
|
begin |
|
|
|
path_banco := ReadString('Dados', 'Dir', ''); |
|
|
|
path_executavel := ReadString('Dados', 'path', |
|
|
|
ExtractFilePath(Application.ExeName)); |
|
|
|
path_att := ReadString('Dados', 'att', path_executavel); |
|
|
|
exe := ReadString('Dados', 'exe', ''); |
|
|
|
|
|
|
|
try |
|
|
|
ZConnection.Database := ReadString('Dados', 'Dir', ''); |
|
|
|
@ -1013,10 +1108,11 @@ begin |
|
|
|
except |
|
|
|
showmessage |
|
|
|
('Não foi possível encontrar o banco de dados. O programa será fechado.'); |
|
|
|
Application.Terminate; |
|
|
|
Application.Terminate; |
|
|
|
end; |
|
|
|
end; |
|
|
|
with TIniFile.Create(path_executavel + '\version_control.ini') do |
|
|
|
with TMemIniFile.Create(path_executavel + '\version_control.ini', |
|
|
|
TEncoding.UTF8) do |
|
|
|
begin |
|
|
|
version := ReadString('Dados', 'version', ''); |
|
|
|
end; |
|
|
|
@ -1027,9 +1123,10 @@ begin |
|
|
|
tblLog.Open; |
|
|
|
tblGrupos.Open; |
|
|
|
|
|
|
|
{ Estou "removendo" partes desnecessárias do código para tentar otimizar o sistema |
|
|
|
if tblGrupos.IsEmpty then // se não tem grupos, gera grupos predefinidos |
|
|
|
begin |
|
|
|
{ Estou "removendo" partes desnecessárias do código para tentar otimizar o sistema |
|
|
|
as linhas comentadas assim sempre terão {* no início |
|
|
|
if tblGrupos.IsEmpty then // se não tem grupos, gera grupos predefinidos |
|
|
|
begin |
|
|
|
tblGrupos.Append; |
|
|
|
tblGruposID_GRUPO.AsInteger := 1; |
|
|
|
tblGruposTX_NOME.AsString := 'Administrador'; |
|
|
|
@ -1045,11 +1142,11 @@ begin |
|
|
|
tblGruposTX_NOME.AsString := 'Atendente'; |
|
|
|
tblGruposTP_SU.AsString := 'N'; |
|
|
|
tblGrupos.Post; |
|
|
|
end;} |
|
|
|
end; } |
|
|
|
tblUsuarios.Open; |
|
|
|
|
|
|
|
{if tblUsuarios.IsEmpty then // se não tiver usuários, gera um predefinido |
|
|
|
begin |
|
|
|
{ *if tblUsuarios.IsEmpty then // se não tiver usuários, gera um predefinido |
|
|
|
begin |
|
|
|
tblUsuarios.Append; |
|
|
|
tblUsuariosTX_NOME.AsString := 'Master'; |
|
|
|
tblUsuariosTX_USUARIO.AsString := 'master'; |
|
|
|
@ -1057,15 +1154,15 @@ begin |
|
|
|
tblUsuariosTX_SENHA.AsString := 'master'; |
|
|
|
tblUsuariosID_GRUPO.AsInteger := 1; |
|
|
|
tblUsuarios.Post; |
|
|
|
end;} |
|
|
|
end; } |
|
|
|
|
|
|
|
tblGruposPermissoes.Open; |
|
|
|
|
|
|
|
tblPermDisponiveis.Open; // se descomentar o código a baixo tira esta linha |
|
|
|
|
|
|
|
{cadUsuarios := TcadUsuarios.Create(self); |
|
|
|
with cadUsuarios do // gera e atualiza as permissões |
|
|
|
begin |
|
|
|
{ *cadUsuarios := TcadUsuarios.Create(self); |
|
|
|
with cadUsuarios do // gera e atualiza as permissões |
|
|
|
begin |
|
|
|
AcessoCobranca; |
|
|
|
AcessoFerramentas; |
|
|
|
AcessoCobrancaTel; |
|
|
|
@ -1084,15 +1181,15 @@ begin |
|
|
|
tblGrupos.Open; |
|
|
|
while not tblGruposPermissoes.Eof do |
|
|
|
begin |
|
|
|
if tblGruposPermissoesID_GRUPO.AsInteger = 1 then |
|
|
|
begin |
|
|
|
tblGruposPermissoes.Edit; |
|
|
|
tblGruposPermissoesTP_ACESSO.AsString := 'S'; |
|
|
|
tblGruposPermissoes.Post; |
|
|
|
end; |
|
|
|
tblGruposPermissoes.Next; |
|
|
|
if tblGruposPermissoesID_GRUPO.AsInteger = 1 then |
|
|
|
begin |
|
|
|
tblGruposPermissoes.Edit; |
|
|
|
tblGruposPermissoesTP_ACESSO.AsString := 'S'; |
|
|
|
tblGruposPermissoes.Post; |
|
|
|
end; |
|
|
|
end;} |
|
|
|
tblGruposPermissoes.Next; |
|
|
|
end; |
|
|
|
end; } |
|
|
|
|
|
|
|
tblProvidencias.Open; |
|
|
|
{ if tblProvidencias.IsEmpty then |
|
|
|
@ -1149,6 +1246,12 @@ begin |
|
|
|
perm_caddev := true; |
|
|
|
perm_cobtel := true; |
|
|
|
|
|
|
|
tblEstados.Open; |
|
|
|
tblCidades.Open; |
|
|
|
tblEmpresa.Open; |
|
|
|
|
|
|
|
SetLength(fieldsTituloBefore, tblTitulos.FieldCount); |
|
|
|
|
|
|
|
// tblLayouts.Open; |
|
|
|
// tblLayouts.First; |
|
|
|
// |
|
|
|
@ -1179,6 +1282,29 @@ begin |
|
|
|
// end; |
|
|
|
// tblLayouts.Close; |
|
|
|
// cdsHist.CreateDataSet; |
|
|
|
with cdsDescBoleto do |
|
|
|
begin |
|
|
|
CreateDataSet; |
|
|
|
AppendRecord([1, 'NAOTEMDESCONTO', 'Sem Desconto']); |
|
|
|
AppendRecord([2, 'VALORFIXODATAINFORMADA', |
|
|
|
'Valor Fixo até Data Informada']); |
|
|
|
AppendRecord([3, 'PERCENTUALDATAINFORMADA', |
|
|
|
'Percentual Descontado até Data Informada']); |
|
|
|
end; |
|
|
|
with cdsMultaBoleto do |
|
|
|
begin |
|
|
|
CreateDataSet; |
|
|
|
AppendRecord([1, 'NAOTEMMULTA', 'Sem Multa']); |
|
|
|
AppendRecord([2, 'VALORFIXO', 'Vaor Fixo']); |
|
|
|
AppendRecord([3, 'PERCENTUAL', 'Porcentagem']); |
|
|
|
end; |
|
|
|
with cdsMoraBoleto do |
|
|
|
begin |
|
|
|
CreateDataSet; |
|
|
|
AppendRecord([1, 'VALORDIA', 'Valor Por Dia']); |
|
|
|
AppendRecord([2, 'TAXAMENSAL', 'Taxa Mensal']); |
|
|
|
AppendRecord([3, 'ISENTO', 'Isento']); |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.dtsCHGEmpresaDataChange(Sender: TObject; Field: TField); |
|
|
|
@ -1297,6 +1423,21 @@ begin |
|
|
|
inttostr(id_devedor)); |
|
|
|
tblEmail.Open; |
|
|
|
end; |
|
|
|
if tblBoletos.Active then |
|
|
|
begin |
|
|
|
tblBoletos.SQL.Clear; |
|
|
|
tblBoletos.SQL.Add('select * from CHG_BOLETOS where id_devedor =' + |
|
|
|
inttostr(id_devedor)); |
|
|
|
tblBoletos.Open; |
|
|
|
end; |
|
|
|
if not tblDevEmpBoletos.Active then |
|
|
|
begin |
|
|
|
tblDevEmpBoletos.SQL.Clear; |
|
|
|
tblDevEmpBoletos.SQL.Add |
|
|
|
('select * from CHG_DEV_EMP_BOLETOS where id_devedor =' + |
|
|
|
inttostr(id_devedor));; |
|
|
|
tblDevEmpBoletos.Open; |
|
|
|
end; |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
@ -1556,17 +1697,17 @@ end; |
|
|
|
|
|
|
|
function TdtmSystem.GetAppVersionStr: string; // pega a versão do aplicativo |
|
|
|
var |
|
|
|
Exe: string; |
|
|
|
exe: string; |
|
|
|
Size, Handle: DWORD; |
|
|
|
Buffer: TBytes; |
|
|
|
FixedPtr: PVSFixedFileInfo; |
|
|
|
begin |
|
|
|
Exe := ParamStr(0); |
|
|
|
Size := GetFileVersionInfoSize(PChar(Exe), Handle); |
|
|
|
exe := ParamStr(0); |
|
|
|
Size := GetFileVersionInfoSize(PChar(exe), Handle); |
|
|
|
if Size = 0 then |
|
|
|
RaiseLastOSError; |
|
|
|
SetLength(Buffer, Size); |
|
|
|
if not GetFileVersionInfo(PChar(Exe), Handle, Size, Buffer) then |
|
|
|
if not GetFileVersionInfo(PChar(exe), Handle, Size, Buffer) then |
|
|
|
RaiseLastOSError; |
|
|
|
if not VerQueryValue(Buffer, '\', Pointer(FixedPtr), Size) then |
|
|
|
RaiseLastOSError; |
|
|
|
@ -1601,6 +1742,18 @@ begin |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.OpenOrRefreshRO(table: TZReadOnlyQuery); |
|
|
|
begin |
|
|
|
if not table.Active then |
|
|
|
begin |
|
|
|
table.Open; |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
table.Refresh; |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.OrganizaPorColuna(Tabela: TObject; coluna: TColumn); |
|
|
|
begin |
|
|
|
if Tabela is TZTable then |
|
|
|
@ -1904,7 +2057,7 @@ end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblBoletosBeforeDelete(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
LogDelete(DataSet, 'CHG_BOLETO', 'delete'); |
|
|
|
LogDelete(DataSet, 'CHG_BOLETOS', 'delete'); |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblBoletosBeforeEdit(DataSet: TDataSet); |
|
|
|
@ -1918,22 +2071,37 @@ begin |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblBoletosBeforeOpen(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
if not tblDevedores.Active then |
|
|
|
begin |
|
|
|
tblBoletos.SQL.Clear; |
|
|
|
tblBoletos.SQL.Add('select * from CHG_BOLETOS'); |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
tblBoletos.SQL.Clear; |
|
|
|
tblBoletos.SQL.Add('select * from CHG_BOLETOS where id_devedor =' + |
|
|
|
inttostr(id_devedor)); |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblBoletosBeforePost(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
if DataSet.State <> dsInsert then |
|
|
|
begin |
|
|
|
if CheckDiffFields(DataSet, fields_before) then |
|
|
|
begin |
|
|
|
LogDiffFields(DataSet, fields_before, 'CHG_BOLETO', 'edit'); |
|
|
|
LogDiffFields(DataSet, fields_before, 'CHG_BOLETOS', 'edit'); |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
RegistarLog(DataSet, 'CHG_BOLETO', 'post'); |
|
|
|
RegistarLog(DataSet, 'CHG_BOLETOS', 'post'); |
|
|
|
end; |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
LogPost(DataSet, 'CHG_BOLETO', 'insert', seqBoletos); |
|
|
|
LogPost(DataSet, 'CHG_BOLETOS', 'insert', seqBoletos); |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
@ -2406,6 +2574,34 @@ begin |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblDevedoresCalcFields(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
if tblDevedoresTP_CLIENTE.AsString = 'F' then |
|
|
|
begin |
|
|
|
tblDevedoresCD_DOCUMENTO.AsString := tblDevedoresCD_CPF.AsString; |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
tblDevedoresCD_DOCUMENTO.AsString := tblDevedoresCD_CNPJ.AsString; |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblDevEmpBoletosBeforeOpen(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
if not tblDevedores.Active then |
|
|
|
begin |
|
|
|
tblDevEmpBoletos.SQL.Clear; |
|
|
|
tblDevEmpBoletos.SQL.Add('select * from CHG_DEV_EMP_BOLETOS'); |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
tblDevEmpBoletos.SQL.Clear; |
|
|
|
tblDevEmpBoletos.SQL.Add |
|
|
|
('select * from CHG_DEV_EMP_BOLETOS where id_devedor =' + |
|
|
|
inttostr(id_devedor)); |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblDuplicadosBeforePost(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
if DataSet.State = dsInsert then |
|
|
|
@ -2634,6 +2830,14 @@ begin |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblEnderecosCalcFields(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
tblEnderecosTX_ENDERECO_COMPLETO.AsString := Format('%s, %s, %s, %s, %s/%s', |
|
|
|
[tblEnderecosTX_LOGRADOURO.AsString, tblEnderecosNR_NUMERO.AsString, |
|
|
|
tblEnderecosTX_COMPLEMENTO.AsString, tblEnderecosTX_BAIRRO.AsString, |
|
|
|
tblEnderecosTX_CIDADE.AsString, tblEnderecosTX_UF.AsString]); |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblEstadosAfterOpen(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
// tblEstados.DisableControls; |
|
|
|
@ -2998,11 +3202,11 @@ begin |
|
|
|
tblHistoricoID_COBRADOR.AsInteger := id_usuario; |
|
|
|
tblHistoricoID_ULTIMO_USUARIO.AsInteger := id_usuario; |
|
|
|
tblHistoricoDT_HORA_ULTIMA_ATT.AsDateTime := Now; |
|
|
|
// if tblHistoricoCD_PROTOCOLO.AsString = '' then |
|
|
|
// begin |
|
|
|
// tblHistoricoCD_PROTOCOLO.AsString := |
|
|
|
// gerarProtocolo(tblHistoricoID_DEVEDOR.AsString); |
|
|
|
// end; |
|
|
|
// if tblHistoricoCD_PROTOCOLO.AsString = '' then |
|
|
|
// begin |
|
|
|
// tblHistoricoCD_PROTOCOLO.AsString := |
|
|
|
// gerarProtocolo(tblHistoricoID_DEVEDOR.AsString); |
|
|
|
// end; |
|
|
|
end; |
|
|
|
if DataSet.State = dsEdit then |
|
|
|
begin |
|
|
|
@ -3409,7 +3613,8 @@ end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblPrCartaoAfterInsert(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
tblPrCartaoID_ITEM.AsInteger := NovoCodigo('SYS_PORCENTAGENS_CARTOES', 'ID_ITEM'); |
|
|
|
tblPrCartaoID_ITEM.AsInteger := NovoCodigo('SYS_PORCENTAGENS_CARTOES', |
|
|
|
'ID_ITEM'); |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblProtocoloBeforeDelete(DataSet: TDataSet); |
|
|
|
@ -3753,6 +3958,13 @@ begin |
|
|
|
end; |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblTelefonesCalcFields(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
tblTelefonesTX_TELEFONE_COMPLETO.AsString := |
|
|
|
Format('(%s) %s', [tblTelefonesNR_DDD.AsString, |
|
|
|
tblTelefonesNR_NUMERO.AsString]); |
|
|
|
end; |
|
|
|
|
|
|
|
procedure TdtmSystem.tblTextoEmailBeforeDelete(DataSet: TDataSet); |
|
|
|
begin |
|
|
|
LogDelete(DataSet, 'SYS_TEXTO_EMAIL', 'delete'); |
|
|
|
@ -3876,10 +4088,11 @@ procedure TdtmSystem.tblTitulosBeforeEdit(DataSet: TDataSet); |
|
|
|
var |
|
|
|
i: integer; |
|
|
|
begin |
|
|
|
SetLength(fields_before, DataSet.FieldCount); |
|
|
|
// SetLength(fields_before, DataSet.FieldCount); |
|
|
|
for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
begin |
|
|
|
fields_before[i] := DataSet.fields[i].AsString; |
|
|
|
// fields_before[i] := DataSet.fields[i].AsString; |
|
|
|
fieldsTituloBefore[i] := DataSet.fields[i].AsString; |
|
|
|
end; |
|
|
|
dt_pag := tblTitulosDT_PAGAMENTO.AsDateTime; |
|
|
|
dt_recibo := tblTitulosDT_EMISSAO_RECIBO.AsDateTime; |
|
|
|
@ -3991,9 +4204,9 @@ begin |
|
|
|
end; |
|
|
|
if DataSet.State <> dsInsert then |
|
|
|
begin |
|
|
|
if CheckDiffFields(DataSet, fields_before) then |
|
|
|
if CheckDiffFields(DataSet, fieldsTituloBefore) then |
|
|
|
begin |
|
|
|
LogDiffFields(DataSet, fields_before, 'CHG_TITULOS', 'edit'); |
|
|
|
LogDiffFields(DataSet, fieldsTituloBefore, 'CHG_TITULOS', 'edit'); |
|
|
|
end |
|
|
|
else |
|
|
|
begin |
|
|
|
@ -4374,16 +4587,16 @@ var |
|
|
|
str_help: string; |
|
|
|
fields: array of string; |
|
|
|
begin |
|
|
|
SetLength(fields, DataSet.FieldCount); |
|
|
|
for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
begin |
|
|
|
fields[i] := DataSet.fields[i].AsString; |
|
|
|
end; |
|
|
|
// SetLength(fields, DataSet.FieldCount); |
|
|
|
// for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
// begin |
|
|
|
// fields[i] := DataSet.fields[i].AsString; |
|
|
|
// end; |
|
|
|
str_help := 'Antes de deletar:' + sLineBreak; |
|
|
|
for i := 0 to Length(fields) - 1 do |
|
|
|
for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
begin |
|
|
|
str_help := str_help + DataSet.fields[i].FieldName + ': ' + fields[i] + |
|
|
|
sLineBreak; |
|
|
|
str_help := str_help + DataSet.fields[i].FieldName + ': ' + DataSet.fields |
|
|
|
[i].AsString + sLineBreak; |
|
|
|
end; |
|
|
|
tblLog.Append; |
|
|
|
tblLogTX_TABELA.AsString := table; |
|
|
|
@ -4398,19 +4611,31 @@ procedure TdtmSystem.LogDiffFields(DataSet: TDataSet; fields: array of string; |
|
|
|
var |
|
|
|
i: integer; |
|
|
|
str_help: string; |
|
|
|
strAntes, strDepois: string; |
|
|
|
begin |
|
|
|
str_help := 'Antes de editar:' + sLineBreak; |
|
|
|
// str_help := 'Antes de editar:' + sLineBreak; |
|
|
|
strAntes := Format('%s%s', ['Antes de editar:', sLineBreak]); |
|
|
|
strDepois := Format('%s%s', ['Depois de editar:', sLineBreak]); |
|
|
|
for i := 0 to Length(fields) - 1 do |
|
|
|
begin |
|
|
|
str_help := str_help + DataSet.fields[i].FieldName + ': ' + fields[i] + |
|
|
|
sLineBreak; |
|
|
|
end; |
|
|
|
str_help := str_help + sLineBreak + 'Depois de editar:' + sLineBreak; |
|
|
|
for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
begin |
|
|
|
str_help := str_help + DataSet.fields[i].FieldName + ': ' + DataSet.fields |
|
|
|
[i].AsString + sLineBreak; |
|
|
|
// str_help := str_help + DataSet.fields[i].FieldName + ': ' + fields[i] + |
|
|
|
// sLineBreak; |
|
|
|
if DataSet.fields[i].AsString <> fields[i] then |
|
|
|
begin |
|
|
|
strAntes := Format('%s%s: %s%s', [strAntes, DataSet.fields[i].FieldName, |
|
|
|
fields[i], sLineBreak]); |
|
|
|
strDepois := Format('%s%s: %s%s', [strDepois, DataSet.fields[i].FieldName, |
|
|
|
DataSet.fields[i].AsString, sLineBreak]); |
|
|
|
end; |
|
|
|
|
|
|
|
end; |
|
|
|
str_help := strAntes + sLineBreak + strDepois; |
|
|
|
// str_help := str_help + sLineBreak + 'Depois de editar:' + sLineBreak; |
|
|
|
// for i := 0 to DataSet.FieldCount - 1 do |
|
|
|
// begin |
|
|
|
// str_help := str_help + DataSet.fields[i].FieldName + ': ' + DataSet.fields |
|
|
|
// [i].AsString + sLineBreak; |
|
|
|
// end; |
|
|
|
tblLog.Append; |
|
|
|
tblLogTX_TABELA.AsString := table; |
|
|
|
tblLogID_REGISTRO.AsInteger := DataSet.fields[0].AsInteger; |
|
|
|
|
