Cadastro de distâncias TMS Protheus com Google Maps e ADVPL

Precisa de ajuda sobre este assunto em seu ERP?

Olá pessoal,

Segue uma rotina muito simples, mas que pode ser uma mão na roda na hora de cadastrar as distâncias entre regiões no TMS.

Você pode colocá-la em um menu, em um ponto de entrada ou em um gatilho até.

O que ela faz?

Ela pega, baseado em uma origem x destino, passados via texto, a distância entre 2 pontos, utilizando a API do Google Maps.

Você pode adaptá-la onde quiser e utilizar até em alguma rotina que utilize a tabela CC2.

No entanto, é necessário salientar que o Google tem um limite diário de requisições, por ser grátis (existem planos pagos, que eu me lembre).

Mas, a partir do momento que você já tem a distância cadastrada, você pode passar direto.

Então, segue o código:

#INCLUDE 'protheus.ch'
#INCLUDE "XMLXFUN.CH"
#INCLUDE "RWMAKE.CH"


/*/{Protheus.doc} GMapsDist
//TODO Retorna distância entre 2 pontos através da APi Google Maps
@author Fernando Bueno
@since 27/06/2017
@version 1.0
@param cOrigem, characters, descricao
@param cDestino, characters, descricao
@type function
/*/
User Function GMapsDist(cOrigem, cDestino)
Local cError := ""
Local cWarning := ""
Local oScript
Local nRet 

cEnd := "http://maps.googleapis.com/maps/api/directions/xml?origin=" + cOrigem + "&destination=" + cDestino
cEnd := strtran(cEnd, " ", "%20")
retXML := HTTPGET(cEnd)

//Gera o Objeto XML ref. ao script
oScript := XmlParser( retXML, "_", @cError, @cWarning )
//Caso não retornar valor, o usuário informará manualmente através do setKM()
If oScript:_DirectionsResponse:_status:TEXT == "ZERO_RESULTS" .OR. oScript:_DirectionsResponse:_status:TEXT <> "OK"
nRet := 0
setKM()
nRet := nGetKM
//Do contrário, pode pegar o valor e gravar em sua tabela 
Else
nRet := oScript:_DirectionsResponse:_route:_leg:_distance:_value:TEXT
nRet := Round((Val(nRet)/1000),1)
EndIf

SAVE oScript XMLFILE "C:\Temp\dist.xml"

Return nRet


/*/{Protheus.doc} setKM
//TODO Função utilizada para gravar manualmente a distância
@author Fernando
@since 27/06/2017
@version undefined

@type function
/*/
Static Function setKM()
Static oDlgKM
Static oButtonKM
Static oGetKM
Static nGetKM := 0
Static oSayKM1
Static oSayKM2

DEFINE MSDIALOG oDlgKM TITLE "Informe o KM" FROM 000, 000 TO 150, 400 COLORS 0, 16777215 PIXEL

@ 009, 010 SAY oSayKM1 PROMPT "A distância entre Mun Origem e Mun Destino não foi encontrada" SIZE 192, 011 OF oDlgKM COLORS 0, 16777215 PIXEL
@ 035, 010 SAY oSayKM2 PROMPT "Informe o KM manualmente:" SIZE 073, 009 OF oDlgKM COLORS 0, 16777215 PIXEL
@ 033, 083 MSGET oGetKM VAR nGetKM SIZE 071, 010 OF oDlgKM COLORS 0, 16777215 PIXEL VALID nGetKM > 0 PICTURE "@E 9999.9"
@ 054, 136 BUTTON oButtonKM PROMPT "Confirma" SIZE 052, 014 OF oDlgKM PIXEL ACTION Close(oDlgKM)
ACTIVATE MSDIALOG oDlgKM

Return

#INCLUDE 'protheus.ch'

#INCLUDE "XMLXFUN.CH"

#INCLUDE "RWMAKE.CH"

/*/{Protheus.doc} GMapsDist

//TODO Retorna distância entre 2 pontos através da APi Google Maps

@author Fernando Bueno

@since 27/06/2017

@version 1.0

@param cOrigem, characters, descricao

@param cDestino, characters, descricao

@type function

/*/

User Function GMapsDist(cOrigem, cDestino)

Local cError := ""

Local cWarning := ""

Local oScript

Local nRet

cEnd := "http://maps.googleapis.com/maps/api/directions/xml?origin=" + cOrigem + "&destination=" + cDestino

cEnd := strtran(cEnd, " ", "%20")

retXML := HTTPGET(cEnd)

//Gera o Objeto XML ref. ao script

oScript := XmlParser( retXML, "_", @cError, @cWarning )

//Caso não retornar valor, o usuário informará manualmente através do setKM()

If oScript:_DirectionsResponse:_status:TEXT == "ZERO_RESULTS" .OR. oScript:_DirectionsResponse:_status:TEXT <> "OK"

nRet := 0

setKM()

nRet := nGetKM

//Do contrário, pode pegar o valor e gravar em sua tabela

Else

nRet := oScript:_DirectionsResponse:_route:_leg:_distance:_value:TEXT

nRet := Round((Val(nRet)/1000),1)

EndIf

SAVE oScript XMLFILE "C:\Temp\dist.xml"

Return nRet

/*/{Protheus.doc} setKM

//TODO Função utilizada para gravar manualmente a distância

@author Fernando

@since 27/06/2017

@version undefined

@type function

/*/

Static Function setKM()

Static oDlgKM

Static oButtonKM

Static oGetKM

Static nGetKM := 0

Static oSayKM1

Static oSayKM2

DEFINE MSDIALOG oDlgKM TITLE "Informe o KM" FROM 000, 000 TO 150, 400 COLORS 0, 16777215 PIXEL

@ 009, 010 SAY oSayKM1 PROMPT "A distância entre Mun Origem e Mun Destino não foi encontrada" SIZE 192, 011 OF oDlgKM COLORS 0, 16777215 PIXEL

@ 035, 010 SAY oSayKM2 PROMPT "Informe o KM manualmente:" SIZE 073, 009 OF oDlgKM COLORS 0, 16777215 PIXEL

@ 033, 083 MSGET oGetKM VAR nGetKM SIZE 071, 010 OF oDlgKM COLORS 0, 16777215 PIXEL VALID nGetKM > 0 PICTURE "@E 9999.9"

@ 054, 136 BUTTON oButtonKM PROMPT "Confirma" SIZE 052, 014 OF oDlgKM PIXEL ACTION Close(oDlgKM)

ACTIVATE MSDIALOG oDlgKM

Return

Esta rotina já tem muito tempo que escrevi. Portanto se tiver algum problema, poste no comentário.

Se você quiser, veja também a primeira aula do nosso Treinamento TMS Protheus:

Abs.

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

O Papel Estratégico do Setor Logístico na Cadeia de Suprimentos - 20 de novembro de 2024
Logística Reversa: Estratégia Sustentável e Lucrativa para Empresas - 20 de novembro de 2024
A Importância da Contagem de Estoque para a Eficiência Empresarial - 20 de novembro de 2024