Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
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)