Jump to content
Fivewin Brasil

Envio de SMS - Pronto


evertonlb

Recommended Posts

Ai povo.. a coisa qdo aperta a gente tem que se virar né?? Agora além de programar durante as noites e meia madrugada, estou trabalhando numa Telecom.. 
Temos uma solução bem legal pra envio de SMS, integra via API, e a ferramenta de envio conta com um CRM, qdo uma mensagem é enviada essa info vai pra uma time line, se quiser responder de dentro do "DisparoPro", pode ser feito com um box.. o lance vira um Chat praticamente. rsrsrsrsrsr  Não há custo algum de integração, claro.. a única coisa que vendemos são os SMS mesmo...  
se alguém tem algum interesse ou dúvida, (49)99984-3663 WhatsApp

 

Link to comment
Share on other sites

  • 3 weeks later...
  • 2 weeks later...

Bom dia meus amigos...  Com uma ajuda do kapiaba e Vagner Nunes, que me deu um baita norte, concluí a integração com a DisparoPro..  To com os códigos ainda muito sujos.. vou dar uma limpada e comentar para deixar mais inteligível... Mas tá mandando SMS e pegando os retornos que é uma belezura. Até pensei em fazer uma LIB para ajudar quem não tem o xHb ou Hb atualizados. Nunca fiz isso, outro aprendizado!!  Depois posto umas imagens!..  Se alguém quiser os fontes, me passa o e-mail ( evertonlb@gmail.com )  que eu envio hj a noite!

Att.

Everton  

 

 

 

 

Link to comment
Share on other sites

Veja... a DisparoPro tem planos pra revenda.. tu compra o SMS por uma grana e pode revender por um valor a mais... ai, cria-se uma subconta para cada cliente teu e tu controla os envios e pode liberar crédito pra cada um individual...  e dentro da ferramenta tu define o valor por SMS que tu vai cobrar... dá pra faturar uma graninha..

Fala comigo no everton@disparopro.com.br ou no whats/fixo 11 4299 0721

Att. everton

Link to comment
Share on other sites

 

soh fiz o cadastro e fiz a funcao acima e testei com o saldo de 1 real de credito do cadastro. ta funcionando blz

50 reais da quantos sms ? tem ideia?

Se tu pegar meu PRG e der uma olhada, vai ver que tem um lance de filtro na hora que tu pegar os retornos dos SMS enviados...

Recargas até R$ 499,99 só tem o SMS Short Code, que é mais caro, em torno de R$ 0,07 por SMS.  Recargas a partir de R$ 500,00 já fica liberado o Long Code, com valor de R$ 0,03..  Então o plano de R$ 50,00 te permite enviar 714 SMS

Link to comment
Share on other sites

Função para ler as respostas dos SMS..

Func_Get_Resposta( cToken, cTel01, cTel02, cTel03, cTel04, cData01 ) 

// Aqui é a função que pega as RESPOSTAS dos SMS.
// Veja a gente pode so mandar a requisição "GET" e a DisparoPro devolve os
// SMS RESPONDIDOS no dia ou posso passar os numeros do celular e a data que eu quero
// TOKEN - Passo pra função o Tokem que se recebe da DisparoPro
// CEL 1 - Um numero de celular que eu quiser pegar as RESPOSTAS que vieram dele
// CEL 2 -   ""                  ""                     ""
// CEL 3 -   ""                  ""                     ""
// CEL 4 -   ""                  ""                     ""
// DATA  -  Data que eu quero que a DisparoPro filtre para me devolver as RESPOSTAS.
                                          
                           

*-------------------------------------------*  
*  
* Define a Funcao Func_Get_Retorno que PEga o Retorno da Disparo Pro  
*  
* BFT0000 28/10/2019 - 15:45:21    
*  
*----------------------------------------------------------*  
Static Function Func_Get_Resposta(  y_TKN_API, y_nTel1_API, y_nTel2_API, y_nTel3_API, y_nTel4_API, y_Dat_API  ) 

Local Envia 
local cResposta
Local Response
Local y_Tok_Api := "'Bearer " + y_TKN_API + "'"
Private y_nTel1_API_Filter := ""

// Aqui recebe as variáveis para o GET na DisparoPro

if y_nTel1_API <> NIL .and. !empty( y_nTel1_API ) 
   y_nTel1_API_Filter := "?numero="+alltrim( y_nTel1_API )
endif
*
if y_nTel2_API <> NIL  .and. !empty( y_nTel2_API ) 
   y_nTel1_API_Filter += ","+alltrim( y_nTel2_API )
endif
*
if y_nTel3_API <> NIL .and. !empty( y_nTel3_API ) 
   y_nTel1_API_Filter += ","+alltrim( y_nTel3_API )
endif
*
if y_nTel4_API <> NIL .and. !empty( y_nTel4_API ) 
   y_nTel1_API_Filter += ","+alltrim( y_nTel4_API )
endif
*
if y_Dat_API <> NIL .and. !empty( y_Dat_API ) 
   y_nTel1_API_Filter += "&data=" + y_Dat_API 
endif 

y_Str_API := "'https://api.disparopro.com.br/mo" + alltrim( y_nTel1_API_Filter )  + "'"  

// Aqui recebe as variáveis para o GET na DisparoPro

ohttp := CreateObject( "MSXML2.XMLHTTP" )                           // Manda a requisição conforme os dados que eu quero receber. 
ohttp:Open( "GET" , &y_Str_API., .F. )                              // Lembrando que sem os telefones e a data, vai me retornar só os SMS enviados no dia, e que sem
ohttp:SetRequestHeader("authorization", &y_Tok_Api. )               // determinar o filtro, ela só me manda uma vez por dia este arquivo de Retorno.. 
                                                                                          // Após isso, se quiser, tem que limpar os filtros na propria DiaparoPro
ohttp:Send( Envia )  
Response := ohttp:responseText 
 
cResposta := hash()  

hb_jsondecode(response ,@cResposta) 
*
y_Size_Ret := len( cResposta["detail"] )                             // Vejo se veio algum SMS no arquivo de retorno

if y_Size_Ret == 0
   MsgInfo( "Não há respostas para tratar!", "..: Atenção :.." )
   return .t.
endif
*
ydataAnswer := ""                                                            //
yIdAnswer   := ""                                                            //
yCelAnswer  := ""                                                            //
yAnswer     := ""                                                            //    Inicio as variáveis que vão receber os dados do retorno
yparceiro   := ""                                                            //
*
nNu_Tot_Vet := len( RetornoSMS ) 
adel( RetornoSMS, nNu_Tot_Vet )
aSize( RetornoSMS, len( RetornoSMS ) -nNu_Tot_Vet )                                             // Zero o vetor para pegar os dados da DisparoPro
*
For i = 1 to y_Size_Ret
   if valtype(cResposta)='H'
      if hhaskey(cResposta,"status")
         if cResposta["status"]=200
            if hhaskey(cResposta, "detail")                                  //  Até aqui estou achando as posições corretas..
               *                                                             //
               ydataAnswer := cResposta["detail",i,"data_recebimento"]       //    Começo a receber os valores do retorno em variáveis 
               yIdAnswer   := cResposta["detail",i]["id"]                    //
               yCelAnswer  := cResposta["detail",i]["origem"]                //
               yparceiro   := cResposta["detail",i]["parceiro_id"]           //
               yAnswer     := cResposta["detail",i]["resposta"]              //
               ydata_atu   := ""                                             //
               *
               aadd( RetornoSMS,{ yIdAnswer,yAnswer,transform(yCelAnswer, "@R99(99)99999-9999"),yparceiro, ydataAnswer, ydata_atu } ) // Recebo no Vetor os dados do retorno
            endif
         else
            MsgInfo( "Ocorreu um erro no retorno das informações. Tente novamente!", "..: Atenção:.." )
         endif
      endif
   else
      MsgInfo( "Ocorreu um erro no retorno das informações. Tente novamente!", "..: Atenção:.." )
   endif
next
*
oXBrw1:refresh()                      // Atualizo o xBrowse com os dados do retorno que estão no vetor
oXbrw1:setfocus() 
*
return .t.

 

Download atualizado...: https://www.4shared.com/rar/F3jp1U5Qiq/BFT.html

 

 

 

 


 

Link to comment
Share on other sites

Atualização, antes tinha um estouro no vetor de consulta de saldo, agora a consulta ta bacana, verifica as respostas dos SMS, abre uma janela com os filtros de telefone e data na hora da consulta, e verifica se a Internet está ativa.. Acho que tudo o que precisam para ver a DisparoPro funcionando integrada, está ai.

https://www.4shared.com/s/fRO5Md409ea 

Att.

Everton

Link to comment
Share on other sites

  • 6 months later...
  • 3 weeks later...
 

Atualização, antes tinha um estouro no vetor de consulta de saldo, agora a consulta ta bacana, verifica as respostas dos SMS, abre uma janela com os filtros de telefone e data na hora da consulta, e verifica se a Internet está ativa.. Acho que tudo o que precisam para ver a DisparoPro funcionando integrada, está ai.

https://www.4shared.com/s/fRO5Md409ea 

Att.

Everton

Boa tarde, esses link´s para baixar o PRG todos estão quebrados ?

HASA

Link to comment
Share on other sites

  • 2 years later...
  • 1 month later...
Em 06/11/2019 at 08:19, evertonlb disse:

Atualização, antes tinha um estouro no vetor de consulta de saldo, agora a consulta ta bacana, verifica as respostas dos SMS, abre uma janela com os filtros de telefone e data na hora da consulta, e verifica se a Internet está ativa.. Acho que tudo o que precisam para ver a DisparoPro funcionando integrada, está ai.

https://www.4shared.com/s/fRO5Md409ea 

Att.

Everton

Poderia por favor liberar o link novamente ou me enviar por favor.... 

Vcs tmb serviço de enviar por Whatsapp?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...