FA050RTF - Avalia filiais -- 11861

O ponto de entrada FA050RTF é utilizado para avaliação das filiais da empresa (SM0) a serem consideradas para verificação dos valores de notas com vencimento no período de retenção dos impostos PCC, quando avaliado na emissão (MV_BX10925 = 2)

O ponto de entrada FA050RTF deve retornar um array com os códigos filiais da empresa (SM0) para verificação da retenção do PCC, quando avaliado na emissão (MV_BX10925 = 2)
(Raiz do CGC) 
Exemplo: 
O cadastro de empresas (SM0) tem os seguintes códigos 
Empresa 01 Filial 01 
Empresa 01 Filial 02 
Caso a operação exija que o sistema retenha impostos dos títulos emitidos nestas duas filiais, será necessário implementar o RDMake e retornar a lista de fornecedores que deve ser considerada na retenção de impostos PCC.

FA050RTF() --> aFil10925

FINA050.PRX

FA050RTF - Avalia filiais ( ) --> aFil10925

aFil10925(array_of_record)
• Array contendo as filiais da empresa (SM0) a serem consideradas para verificação de retenção do PCC

O tratamento de filiais pode ser implementado de duas formas:

- Considerando apenas filiais da empresa com mesmo CNPJ.

- Considerando apenas filiais da empresa com mesma raiz de CNPJ (8 primeiros digitos).

USER FUNCTION FA050RTF()aFilial := {}nRegSM0 := SM0->(RECNO())cEmpAtu := SM0->M0_CODIGOcCnpj   := SM0->M0_CGCaArea := GetArea()dbselectArea ("SM0")dbSeek(cEmpAtu)While !Eof() .and. SM0->M0_CODIGO == cEmpAtu   If SM0->M0_CGC == cCnpj      AADD(AFILIAL,SM0->M0_CODFIL)   Endif   dbSkip()Enddo			SM0->(dbGoto(nRegSM0))Return (aFilial)