F50TFINS - Considera lista na retenção de INSS

O ponto de entrada F50TFINS, retorna um array com a lista de filiais, as quais o sistema deve considerar no cálculo de acúmulo de INSS. Exemplo: O cadastro de fornecedores tem o seguinte código: FORNECEDOR 000001 LOJA 01 Esse fornecedor tem títulos em mais de uma filial, de forma que considerando/somando os títulos de todas as filiais para o mesmo fornecedor, o valor do INSS é superior ao valor mínimo (MV_MININSS). Caso a operação exija que o sistema retenha impostos, considerando todas as filiais, é necessário implementar o RDMake e retornar a lista de filiais que devem ser consideradas na retenção de INSS.

- Inclusão de títulos no Financeiro com configurações para cálculo de INSS.

F50TFINS - Considera lista na retenção de INSS ( [ ] ) --> aFiliais

aFiliais(array_of_record)
• Filiais consideradas na retenção do INSS.

#INCLUDE "RWMAKE.CH"USER FUNCTION F50TFINS()//Exemplo Raiz do CNPJ da empresa (SIGAMAT.EMP)aFilial := {}nRegSM0 := SM0->(RECNO())cEmpAtu := SM0->M0_CODIGOcCnpj	  := Substr(SM0->M0_CGC,1,8)aArea := GetArea()dbselectArea ("SM0")dbSeek(cEmpAtu)While !Eof() .and. SM0->M0_CODIGO == cEmpAtu   If Substr(SM0->M0_CGC,1,8) == cCnpj		AADD(AFILIAL,SM0->M0_CODFIL)   Endif   dbSkip()Enddo			SM0->(dbGoto(nRegSM0))Return (aFilial)