SMS

Liberação da Funcionalidade

Para utilização do envio de SMS pelo sistema Tek-System ERP 4G será necessário a liberação da funcionalidade na Licença do cliente.

Listas de Publicação (LGPD)

Configurações

Cadastrar listas de publicação (LGPD) através do Menu de cadastros, LGPD, Listas de Publicação. Disponível nos módulos BI - Gerador de Relatórios, Gestão da Qualidade.

• RECEBIMENTO DE COBRANÇA POR SMS
• RECEBIMENTO DE STATUS DE DOCUMENTOS POR SMS

Exemplo:

Informar datas de validade para a lista.

Informar Consentimento/Revogação para as pessoas cadastradas no sistema.

Após cadastros, deverá ser realizado a configuração na Tek Store para uso nos processamentos de INTEGRACAO SMS: Enviar Status dos Documentos e INTEGRACAO SMS: Enviar Cobrança.

Incluir uma unidade de codificação com o nome SMS_CONFIGURACAO_XXXX.

• XXXX corresponde ao código do cliente na Tek-System.

• Tipo da Unidade de Codificação deverá ser JSON.

Informar na Codificação os códigos dos dois cadastros gerados, como no exemplo:

{
    "ListaPublicacaoSMS_StatusDocumento": "3",
    "ListaPublicacaoSMS_Cobranca": "4"
}

Informe números separados por virgula quando existir mais de uma Lista de Publicação (LGPD).

{
    "ListaPublicacaoSMS_StatusDocumento": "3,5",
    "ListaPublicacaoSMS_Cobranca": "4"
}

Utilização

As pessoas que receberem SMS poderão entrar no site da empresa (Tek-System ERP 4G), no ambiente para Clientes, para Consentir ou Revogar as listas de publicação corresponde ao envio de SMS.

Após selecionar a opção de Cliente, será necessário informar o Login de acesso. Caso ainda não tenha, informe o documento de cadastro na empresa e solicite uma senha.

Após Login, procure pela opção de Newsletter, disponível no Menu de opções.

Será exibida uma listagem das Listas de Publicação disponíveis. Caso o cliente ainda não esteja vinculado, ele deverá clicar em INSCREVER-SE. Caso não queira mais receber SMS, deverá clicar em CANCELAR para revogar o envio do SMS.

Um vez clicado nas opções de INSCREVER-SE e/ou CANCELAR o sistema irá vincular a pessoa ao cadastro das Listas de Publicação no sistema.

Após configurações e cadastros, o sistema irá considerar as Listas de Publicação informadas para filtrar as pessoas para envio de SMS através dos processamentos específicos.

Envio de SMS

Os envios de SMS podem ser realizados através de processamentos específicos, agendamentos, gatilhos, entre outros.

Serão enviados apenas para pessoas que possuem telefones do tipo igual a C = Celular.

INTEGRACAO SMS: Enviar Mensagem

Envio de mensagem SMS informada pelo usuário através do processamento específico INTEGRACAO SMS: Enviar Mensagem para filtros de pessoas.

Ao executar o processamento será apresentado a tela com os filtros:

No campo de mensagem, o usuário poderá informar a mensagem que deseja enviar.

Não deve ser utilizado quebra de linha através do ENTER.

Utilize a tag <br> para quebra de linha na mensagem.

Utilize a tag <RAZAO_PESSOA> para substituir pelo nome da pessoa encontrada nos filtros.

Ao executar, irá apresentar uma tela para selecionar quais pessoas irão receber as mensagens.

Após confirmação dos filtros, será enviado as mensagens SMS.

INTEGRACAO SMS: Enviar Status dos Documentos

Envio de mensagem SMS através do processamento específico INTEGRACAO SMS: Enviar Status dos Documentos para documentos que tiveram alteração de Status na data atual.

Ao executar o processamento será apresentado a tela com os filtros:

No campo de mensagem, o usuário poderá informar a mensagem que deseja enviar. Caso não informe uma mensagem, será utilizado a mensagem padrão:

A mensagem deve ter no máximo 160 caracteres.

Alteracao de status <br> <TIPODOCUMENTO>: <DOCUMENTO> <br> Status: <CODIGO_STATUS> - <DESCRICAO_STATUS> <br> Data: <DATA_ALTERACAO>

Não deve ser utilizado quebra de linha através do ENTER.

Tags disponíveis:

<br> para quebra de linha na mensagem.

<CODIGO_PESSOA> para substituir pelo código da pessoa encontrada nos filtros.

<RAZAO_PESSOA> para substituir pelo nome da pessoa encontrada nos filtros.

<EMPRESA> para substituir pelo nome da empresa.

<DOCUMENTO> para substituir pelo número do documento.

<CODIGO_STATUS> para substituir pelo código do último status atualizado.

<DESCRICAO_STATUS> para substituir pelo descrição do último status atualizado.

<DATA_ALTERACAO> para substituir pela data do último status atualizado.

Ao executar, irá apresentar uma tela para selecionar quais pessoas irão receber as mensagens.

Após confirmação dos filtros, será enviado as mensagens SMS.

INTEGRACAO SMS: Enviar Cobrança

Envio de mensagem SMS através do processamento específico INTEGRACAO SMS: Enviar Cobrança para duplicatas e cheques de cobrança.

Ao executar o processamento será apresentado a tela com os filtros:

No campo de mensagem, o usuário poderá informar a mensagem que deseja enviar. Caso não informe uma mensagem, será utilizado a mensagem padrão:

A mensagem deve ter no máximo 160 caracteres.

Ola! Nao identificamos o pagamento do titulo <DOCUMENTO>. Entre em contato para chegarmos juntos a melhor solucao.<br> <EMPRESA>

Não deve ser utilizado quebra de linha através do ENTER.

Tags disponíveis:

<br> para quebra de linha na mensagem.

<CODIGO_PESSOA> para substituir pelo código da pessoa encontrada nos filtros.

<RAZAO_PESSOA> para substituir pelo nome da pessoa encontrada nos filtros.

<EMPRESA> para substituir pelo nome da empresa.

<DOCUMENTO> para substituir pelo número do documento.

<SEQUENCIA> para substituir pelo código da sequencia da duplicata ou cheque.

<DTEMISSAO> para substituir pela data de emissão da duplicata ou cheque.

<DTVENCIMENTO> para substituir pela data de vencimento da duplicata ou cheque.

<VALOR> para substituir pelo valor da duplicata ou cheque.

<VALOR_ABERTO> para substituir pelo valor aberto da duplicata ou cheque.

<VALOR_PAGO> para substituir pelo valor pago da duplicata ou cheque.

<JUROS_POR_DIA> para substituir pelo valor de juros por dia. Por padrão, o valor será calculado considerando o percentual mensal informado no cadastro da Empresa para duplicatas e cheques.

<DIAS_ATRASO> para substituir pela diferença entre a data de calculo de juros e data de vencimento da duplicata ou cheque devolvido. Para processamentos diferentes do relatório de cobrança será considerado a diferença entre data de ontem e o vencimento da duplicata ou cheque devolvido.

<JUROS_ATE_DATA> para substituir pelo valor de juros calculado até a data informada nos filtros. O calculo será o valor de juros diários multiplicado pelos dias de atraso.

<VALOR_DEVIDO> para substituir pelo valor aberto somado ao valor de juros calculado até a data.

Ao executar, irá apresentar uma tela para selecionar quais pessoas irão receber as mensagens.

Após confirmação dos filtros, será enviado as mensagens SMS.

Agendamento de SMS

Ao acessar o cadastro de Agendamentos no módulo BI - Gerador de Relatórios, o usuário poderá verificar o exemplo de utilização do agendamento de SMS.

Menu -> Relatórios -> Agendamentos

Selecionar a opção de Condição para Execução, Exemplo de Envio de SMS.

Envio de Status de Documentos

Exemplo de configuração para agendamento de envio de status dos documentos.

Configuração padrão, filtros vazios:

• Será enviado SMS para todas pessoas que possuem telefone do tipo C= Celular, e que tenham a marcação de envia Mala Direta em seu cadastro.

• Será considerado todos documentos que tiveram atualização de Status no dia.

• IgnorarEcommerces: Indica que o processamento irá ignorar pedidos referente E-Commerces, pois geralmente as notificações já são tratadas pelas integrações.

• A mensagem a ser enviada deverá respeitar o limite de 160 caracteres.

Condição para Execução:

unit ProcessarEnvioSMS;

uses TEK_INTEGRACAO_SMS_PROC_STATUS_DOCUMENTOS;

const
  IgnorarEcommerces = True; 
  Filtros = '';
  
function Main: OleVariant;
var
  Mensagem: String; 
begin
  Mensagem := 'Alteracao de status <br> <TIPODOCUMENTO>: <DOCUMENTO> <br> Status: <CODIGO_STATUS> - <DESCRICAO_STATUS> <br> Data: <DATA_ALTERACAO>';

  TEK_INTEGRACAO_SMS_PROC_STATUS_DOCUMENTOS.DefinirMensagemPadrao(Mensagem);
  TEK_INTEGRACAO_SMS_PROC_STATUS_DOCUMENTOS.ProcessarAgendamento(Filtros, IgnorarEcommerces);

  Result := True;
end;

end.

Para utilizar filtros diferentes do padrão será necessário preencher as constantes Filtros.

Exemplo:

Considerar apenas pedidos de venda da empresa, com status alterados na data atual, e pessoas com telefone igual ao tipo C= Celular e marcação de Envia Mala Direta.

const
   Filtros = '  and DOCUMENTO_FATURA.TIPO_DOCFAT = 1 ' + #13 +
             '  and DOCUMENTO_STATUS.DATAHORAALTERACAO_DOCSTA >= ' + DataSQL(HOJE, 1) + #13 +
             '  and DOCUMENTO_FATURA.EMPRESA_DOCFAT = ' + IntToStr(Codigo_Empresa_Atual) + #13 +
             '  and PESSOA_TELEFONE.TIPOTELEFONE_PESSOA_TEL = ''C''' + #13 +                  
             '  and PESSOA.MALADIRETA_PESSOA = ''S'''; 

Envio de Cobrança

Exemplo de configuração para agendamento de envio de cobrança por SMS.

Configuração padrão, filtros vazios:

• Será enviado SMS para todas pessoas que possuem telefone do tipo C= Celular, e que tenham a marcação de envia Mala Direta em seu cadastro.

• Será considerado todas duplicatas abertas com vencimento anterior a dois dias da data atual.

• Será considerado todos cheques devolvidos abertos com vencimento anterior a dois dias da data atual.

• A mensagem a ser enviada deverá respeitar o limite de 160 caracteres.

Condição para Execução:

unit ProcessarEnvioSMS;

uses TEK_INTEGRACAO_SMS_PROC_COBRANCA;

const
  FiltrosDup = ''; 
  FiltrosChe = ''; 

function Main: OleVariant;
var
  Mensagem: String; 
begin
  Mensagem := 'Ola! Nao identificamos o pagamento do titulo <DOCUMENTO>. Entre em contato para chegarmos juntos a melhor solucao.<br> <EMPRESA>';

  TEK_INTEGRACAO_SMS_PROC_COBRANCA.DefinirMensagemPadrao(Mensagem);
  TEK_INTEGRACAO_SMS_PROC_COBRANCA.ProcessarAgendamento(FiltrosDup, FiltrosChe);

  Result := True;
end;

end.

Para utilizar filtros diferentes do padrão será necessário preencher as constantes FiltrosDup(Para Duplicatas) e/ou FiltrosChe(Para Cheques).

Exemplo:

Duplicatas com vencimento no ano anterior.

const
    FiltrosDup := '  and DUPLICATA.VENCIMENTO_DUP between ' + DataSQL(INICIO_ANO_ANTERIOR, 1) + ' and ' + DataSQL(FIM_ANO_ANTERIOR, 2) + #13 +
                  '  and DUPLICATA.SUBSTITUIDA_DUP = ''N''' + #13 +
                  '  and DUPLICATA.DESCONSIDERADA_DUP = ''N''' + #13 +
                  '  and PESSOA_TELEFONE.TIPOTELEFONE_PESSOA_TEL = ''C''' + #13 +
                  '  and PESSOA.MALADIRETA_PESSOA = ''S''' + #13 +
                  '  and DUPLICATA.EMPRESA_DUP = ' + IntToStr(Codigo_Empresa_Atual) + #13;
    FiltrosChe := '';

Desconsiderar cheques para envio:

const
  FiltrosDup = ''; 
  FiltrosChe = 'and CHEQUE.AUTOINC_CHE = -1'; 

Contatos Efetivados

Após execução dos processamentos específicos será registrado no cadastro de Contatos Efetivados no módulo de Telemarketing os SMS enviados que não retornaram problemas no envio.

Será preenchido o cadastro com a data de envio e tipo de contato como ENVIO DE SMS.

Na aba de observações será registrado os dados da mensagem enviada.

Gatilhos

Exemplo de utilização de envio de SMS através de gatilhos.

Enviar SMS notificando ao cliente sempre que houver alteração do Status do Documento.

Incluir cadastro de Gatilho para a tabela DOCUMENTO_FATURA e utilizar opção de Evento como 2 - Ao aplicar(Cliente - BeforeApplyUpdates).

Para testar, entre em um cadastro de pedido de venda e altere o Status. Irá enviar um SMS para o cliente caso ele tenha um número de Celular cadastrado.

unit GatilhoDocumento;

uses
  TEK_INTEGRACAO_SMS;

const
  cSistema = 86;

var
  CDSCad, CDSTemp: TClientDataSet;
  Documento, Mensagem, Celular, Status, DescStatus, Sql: String;
     
procedure Main;
begin
  if OldValue('STATUS_DOCFAT') <> Value('STATUS_DOCFAT') then
  begin
    CDSCad := FonteDeDados('CDSCadastro');
    CDSTemp := TClientDataSet.Create;  
    try
      Sql := 'select PESSOA_TELEFONE.TELEFONE_PESSOA_TEL' + #13 +
             'from PESSOA' + #13 +
             'left join PESSOA_TELEFONE on (PESSOA_TELEFONE.PESSOA_PESSOA_TEL = PESSOA.CODIGO_PESSOA)' + #13 +
             'where PESSOA.MALADIRETA_PESSOA = ''S''' + #13 + 
             '  and PESSOA_TELEFONE.TIPOTELEFONE_PESSOA_TEL = ''C''' + #13 + 
             '  and PESSOA_TELEFONE.TELEFONE_PESSOA_TEL is not null' + #13 +             
             '  and PESSOA.CODIGO_PESSOA = ' + CDSCad.FieldByName('CLIENTE_DOCFAT').AsString;
             
      CDSTemp.Data := ExecuteReader(Sql);
      
      Documento  := CDSCad.FieldByName('CODIGO_DOCFAT').AsString;
      Status     := CDSCad.FieldByName('STATUS_DOCFAT').AsString;
      DescStatus := CDSCad.FieldByName('DESCRICAO_STATUS').AsString; 
        
      Mensagem   := 'Alteracao de status <br> Pedido: ' + Documento + ' <br> Status: ' + Status + ' - ' + DescStatus + ' <br> Data: ' + DateTimeToStr(Hoje);

      if not CDSTemp.IsEmpty then
        CarregarUnitDinamicamente('TEK_INTEGRACAO_SMS'); 
      
      CDSTemp.First;
      while not CDSTemp.Eof do
      begin  
        Celular  := CDSTemp.FieldByName('TELEFONE_PESSOA_TEL').AsString;

        EnviarSimplesSms(cSistema, Documento, Celular, Mensagem, '', '', Hoje);
      
        CDSTemp.Next;    
      end;          
    finally
      CDSTemp.Free;
    end;  
  end;      
end;

end.