FA050FOR - Verifica notas de Fornecedor -- 24305

O ponto de entrada FA050FOR verifica o total de notas do fornecedor pela raiz do cnpj que vencem no mesmo mês.

FINA050.PRX

FA050FOR - Verifica notas de Fornecedor ( [ ] ) --> aRet

aRet(vetor)
• Vetor com os dados do Fornecedor e Loja.Ex. aRet[1,1] -> A2_COD aRet[1,2] -> A2_LOJA

#INCLUDE "PROTHEUS.CH"User Function FA050FORLocal aArea := GetArea()Local uRet Local cQry := ""Local cAliasQryLocal _cCNPJ := Substr(Posicione("SA2",1,xFilial("SA2")+M->E2_FORNECE+M->E2_LOJA,"A2_CGC"),1,8)Local bBloco := {|| aAdd(uRet, {(cAliasQry)->A2_COD, (cAliasQry)->A2_LOJA}) }Local bCondi := {|| _cCNPJ == (cAliasQry)->CNPJRAIZ }If MSGYESNO("Ponto de Entrada FA050FOR, Clique em 'Sim' para Verificar as notas dentro do mês pela raiz do CNPJ ou 'Não' para verificar somente o Fornecedor digitado.","Atencao")               	cAliasQry := GetNextAlias()		cQry := "SELECT A2_COD, A2_LOJA,SUBSTRING(A2_CGC,1,8) AS CNPJRAIZ FROM "+RetSqlName("SA2")+" A2 "	cQry += "WHERE SUBSTRING(A2_CGC,1,8) = '"+_cCNPJ+"' AND A2.D_E_L_E_T_ <> '*'"	cQry := ChangeQuery( cQry )		dbUseArea( .T., "TOPCONN", TcGenQry(,,cQry), cAliasQry, .F., .T. )	dbSelectArea(cAliasQry)	dbGotop()	uRet := {}	dbEval(bBloco,bCondi)	(cAliasQry)->( dbCloseArea() ) 	Else	uRet := .F.	EndifRestArea(aArea)Return uRet