Histórico da Página

O ponto de entrada F080LOJA deve retorna um array com os codigos de fornecedor/loja para verificacao da retencao
(Raiz do CGC)
Exemplo:
O cadastro de fornecedores tem os seguintes códigos
FORNECEDOR 000001 LOJA 01
FORNECEDOR 000001 LOJA 02
Caso a operação exija que o sistema retenha impostos desses dois fornecedores como sendo o mesmo, será necessário implementar o RDMake e retornar a lista de fornecedores que deve ser considerada na retenção de impostos PCC.

.PRW

F080LOJA - Retorna array com códigos de fornecedor ( ) --> aFornLoj

aFornLoj(vetor)
• Fornecedor, Loja

Exemplo:
O cadastro de fornecedores tem os seguintes códigos:
FORNECEDOR 000001 LOJA 01
FORNECEDOR 000001 LOJA 02
Caso a operação exija que o sistema retenha impostos desses dois fornecedores como sendo o mesmo, será necessário implementar o RDMake e retornar a lista de fornecedores que deve ser considerada na retenção de impostos PCC.

//Para aglutinar titulos do mesmo fornecedor e de todas as suas lojasUSER FUNCTION F080LOJA()//Exemplo Raiz do CNPJ do Fornecedor(SA2)aFilial := {}nRegSA2 := SA2->(RECNO())cCnpj	  := Substr(SA2->A2_CGC,1,8)aAreaSA2 := SA2->(GetArea())dbselectArea("SA2")dbSetOrder(3) //Filial+CGCdbSeek(xFilial("SA2")+SA2->A2_CGC)While !Eof()   If Substr(SA2->A2_CGC,1,8) == cCnpj		AADD(AFILIAL,{SA2->A2_COD,SA2->A2_LOJA})	Endif	dbSkip()Enddo			RestArea(aAreaSA2)SA2->(dbGoto(nRegSA2))Return (aFilial)