Home

Linha Microsiga Protheus

Páginas filhas
  • F080LOJA - Retorna array com códigos de fornecedor -- 11663

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
F080LOJA - Retorna array com códigos de fornecedor
F080LOJA - Retorna array com códigos de fornecedor

Ponto-de-Entrada: F080LOJA - Retorna array com códigos de fornecedor
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
Descrição:

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.

Programa Fonte
.PRW
Sintaxe

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

Retorno
    aFornLoj(vetor)
  • Fornecedor, Loja
Observações

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.

 

Exemplos
//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)