Árvore de páginas

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

Valor base IRRF inválido na transferência de titulo a pagar.

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

SIGAFIN.

Função:

FINA050.

Situação/Requisito:

1-Erro informando BASEIRRF INVÁLIDO.
2-Erro abatendo novamente o valor do PCC+IR quando transferido o titulo e o cálculo foi realizado na emissão.
3-Erro gerando mensagem “INCNOPERMIT” para títulos de fornecedor UNIÃO quando realizada a transferência.

Solução/Implementação:

1-Passamos para o segundo parâmetro da função Regtomemory  !IsInCallStack("FINA631"), para retornar como .f. quando for inclusão via transferência.
2-Antes da chamada da função AxIncluiAuto, passamos para as  variáveis de memória os valores já calculados na aAutoCab, campos E2_VALOR, E2_VLCRUZ e E2_SALDO.
3-Criamos tratamento para não ocorrer validação quando for executado por transferência e rotina automática, dentro da função que valida a inclusão manual. 

Cenário:

1. MV_IMPTRAN = 1
2. MV_NATTRFF = TRF
3. MV_BX10925 = 2 (EMISSÃO)
4. Cadastrar fornecedor para retenção de todos impostos
5. Cadastrar Natureza com PCC+IR+ISS+INSS.
6. Incluir um titulo a pagar na filial 01
7. Solicitar transferência do titulo NF para filial 02 (FINA621)
8. Aprovar a solicitação na filial 02
9. Observar que não ocorre erro de BASEIRRF INVÁLIDA
10.Observar que não ocorre novamente o calculo de PCC+IR na filail destino
11. Solicitar transferência de um titulo fornecedore União.
12. Verificar que não é gerada mensagem INCNOPERMIT
13. Realizar a transferência dos demais impostos
14. Observar que todas as transferência foram realizadas sem erros.
15. Validar alterações com parâmetro  MV_IMPTRAN = 2
16. Executar os passos do item 6 a 8.
17. Verificar que a transferência ocorre sem problemas conforme documentação TDN MV_IMPTRAN

Tickets relacionados:

497266