Nesse vídeo demonstraremos a utilização da função SearchSM0, que serve para buscar a empresa e filial conforme o código do CNPJ informado.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe432
Busca empresa e filial conforme CNPJ passado
@type Function
@author Atilio
@since 30/03/2023
@obs
Função SearchSM0
Parâmetros
Recebe o número do CNPJ
Retorno
Retorna um Array com várias linhas sendo que na coluna [1] é o código da empresa e coluna [2] é o código da filial
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe432()
Local aArea := FWGetArea()
Local cCNPJ := "00000000000000" // 00.000.000/0000-00
Local aDados := {}
//Busca o código da empresa e filial conforme CNPJ
aDados := SearchSM0(cCNPJ)
//Verifica se tem dados no Array
If ! Empty(aDados)
FWAlertSuccess("Foi encontrado informações com o CNPJ = [" + aDados[1][1] + "/" + aDados[1][2] + "]", "Teste - SearchSM0")
Else
FWAlertError("CNPJ não encontrado na tabela SYS_COMPANY / SM0", "Falha - SearchSM0")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
