Olá pessoal…

Recentemente criei uma função simples, que recebe um CNPJ e retorna (caso encontre), o código da filial na SM0, no Protheus.

A função, recebe por parâmetro o CNPJ, faz a busca e retorna o código da filial.

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zSM0CNPJ
Função que retorna o código da filial
@type function
@author Atilio
@since 22/11/2015
@version 1.0
	@param cCGC, Caracter, CNPJ buscado para encontrar a filial
	@return cFilRet, Código da filial encontrada
	@example
	u_zSM0CNPJ("000000000")
/*/

User Function zSM0CNPJ(cCGC)
	Local aArea := GetArea()
	Local aAreaM0 := SM0->(GetArea())
	Local cFilRet := ""
	
	//Percorrendo o grupo de empresas
	SM0->(DbGoTop())
	While !SM0->(EoF())
		//Se o CNPJ for encontrado, atualiza a filial e finaliza
		If cGCG == SM0->M0_CGC
			cFilRet := SM0->M0_CODFIL
			Exit
		EndIf
		
		SM0->(DbSkip())
	EndDo
	
	RestArea(aAreaM0)
	RestArea(aArea)
Return cFilRet

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPL