Nesse vídeo demonstraremos a utilização das funções fEstIBGE, Lj901AUF, UfCodIBGE e RetUfIBGE que servem para buscar as siglas ou código dos estados brasileiros.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe175
Funções que retornam as siglas dos estados (UF)
@type Function
@author Atilio
@since 20/12/2022
@obs
fEstIBGE
Parâmetros
+ Sigla do estado no formato "XX"
Retorno
+ Código do estado conforme IBGE
Lj901AUF
Parâmetros
+ Código do estado conforme IBGE
Retorno
+ Sigla do estado no formato "XX"
UfCodIBGE
Parâmetros
+ Sigla do estado no formato "XX"
+ .T. se deve retornar só o estado ou .F. se retorna array com todos os estados
Retorno
+ Se não enviar o cUF e o lForceUF for .F. ele retorna um array com os estados senão retorna o código conforme IBGE
RetUfIBGE
Parâmetros
+ Sigla do estado no formato "XX"
+ .T. se deve retornar só o estado ou .F. se retorna array com todos os estados
Retorno
+ Se não enviar o cUF e o lForceUF for .F. ele retorna um array com os estados senão retorna o código conforme IBGE
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe175()
Local aArea := FWGetArea()
Local cMensagem := ""
Local aEstados := {}
//Monta a mensagem
cMensagem += "A sigla do estado do PI é: " + fEstIBGE("PI") + CRLF + CRLF
cMensagem += "O estado da sigla 29 é: " + Lj901AUF("29") + CRLF + CRLF
cMensagem += "A sigla do estado de SP é: " + UfCodIBGE("SP") + CRLF + CRLF
cMensagem += "A sigla do estado de SC é: " + RetUfIBGE("SC") + CRLF + CRLF
FWAlertInfo(cMensagem, "Teste de Siglas dos Estados")
//Busca todos os estados e siglas
aEstados := UfCodIBGE("", .F.) //ou RetUfIBGE("", .F.)
FWAlertInfo("Foi encontrado " + cValToChar(Len(aEstados)) + " estado(s)", "Teste de Siglas dos Estados")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
