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.