Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:41:50
Descrição da Nota: FECHAR CAMPOS DE REDUÇÃO II PARA REGIME SUSPENÇÃO E TRATAR VARIAÇÃO NEGA
Sintoma
Não está contrabilizando variação cambial negativa e está abrindo os campos de redução de II quando
o regime tributario é suspensão.
Solução
Fechar campos de redução de II quando o regime for suspenção e utilizar o valor absoluto da variação
para a verificação de variação gerada por arredondamento.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04015 Data: 22/06/2007 Hora: 14:18:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04015
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02673 - 00001 - 6.0 - 00025 - FATURA TIPO P ERRO NA DI
----------------------------------------------------------------------------------------------------
FECHAR CAMPOS DE REDUÇÃO II PARA REGIME SUSPENÇÃO E TRATAR VARIAÇÃO NEGA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPOS - REDUÇÃO - FECHAR - II - VARIAÇÃO - CAMBIAL - NEGATIVA
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCIGF2F01
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM lanctos_variacao TABLES itab_zycbt011 STRUCTURE /pws/zycbt011
USING p_zycbt007 STRUCTURE /pws/zycbt007
p_zycit001 STRUCTURE /pws/zycit001
itab_zycbe033 STRUCTURE /pws/zycbe033.
DATA: itab_zycbt012 TYPE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
v_soma TYPE /pws/zycit085-vlfob,
* >> Início da inclusão: FORM LANCTOS_VARIACAO
vl_varia TYPE /pws/zycit085-vlfob,
* << Fim da inclusão
vl_variacao TYPE /pws/zycit085-vlfob.
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codmod = 'D'.
SELECT SINGLE *
FROM /pws/zycit031
WHERE codmod EQ 'D'
AND inco1 EQ p_zycit001-inco1
AND land1 EQ t001-land1.
LOOP AT itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.
READ TABLE itab_di WITH KEY hkont = itab_matuse_aux2-hkont.
...
...
itab_bsis_aux-dmbtr.
v_soma = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren .
IF itab_zycbe033-tcode = 'F-51'
AND NOT v_belnrf05 IS INITIAL.
PERFORM: move_lanctos USING v_soma
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING v_soma
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-05'.
* >> Início da exclusão: FORM LANCTOS_VARIACAO
IF vl_variacao > '0.03'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
vl_varia = abs( vl_variacao ).
IF vl_varia > '0.03'.
* << Fim da inclusão
PERFORM move_lanctos_f05 USING vl_variacao.
ELSE.
v_erro_f05 = 'S'.
ENDIF.
ENDIF.
ELSEIF /pws/zycit031-inco1_ci = 'CIF'.
vl_variacao = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren +
itab_di-vlseg - itab_bsis_aux-dmbtr.
IF itab_zycbe033-tcode = 'F-51'
AND NOT v_belnrf05 IS INITIAL.
PERFORM: move_lanctos USING itab_di-vldi
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vldi
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-05'.
* >> Início da exclusão: FORM LANCTOS_VARIACAO
IF vl_variacao > '0.03'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
vl_varia = abs( vl_variacao ).
IF vl_varia > '0.03'.
* << Fim da inclusão
PERFORM move_lanctos_f05 USING vl_variacao.
ELSE.
v_erro_f05 = 'S'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF itab_bsis_aux-tpfatura = '02'
AND NOT itab_di-vlfre IS INITIAL.
IF NOT /pws/zycit000-provfre IS INITIAL.
CONTINUE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
screen-input = '0'.
CLEAR: /pws/zycie100a-aladi, a_aladi.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ACORDORATE'.
IF /pws/zycie100a-acordo IS INITIAL.
screen-input = '0'.
CLEAR: /pws/zycie100a-acordorate.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-REDUZIDA'.
IF NOT /pws/zycie100a-percreduz IS INITIAL OR
* >> Início da exclusão: FORM SET_SCREEN_0431
'12369' CA /pws/zycie100a-codregtri.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0431
'123569' CA /pws/zycie100a-codregtri.
* << Fim da inclusão
screen-input = '0'.
CLEAR: /pws/zycie100a-reduzida.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZ'.
IF NOT /pws/zycie100a-reduzida IS INITIAL OR
* >> Início da exclusão: FORM SET_SCREEN_0431
'12369' CA /pws/zycie100a-codregtri.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0431
'123569' CA /pws/zycie100a-codregtri.
* << Fim da inclusão
screen-input = '0'.
CLEAR: /pws/zycie100a-percreduz.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG'.
IF ' 178' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
ENDIF.
IF v_existe_li EQ 'X'.
screen-input = '0'.
...