Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 31/01/2013 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:51:43
Descrição da Nota: NFR - INCLUIR O VALOR DO ICMS-ST NAS DESPESAS
Sintoma
Se na NF de Remessa não existir o parâmetro na /pws/zycit398, incluir o valor do ICMS-ST nas
despesas.
Solução
Atualizado programa para incluir o valor do ICMS-ST nas despesas se a tabela /pws/zycit398 não
estiver parametrizada na NF de Remessa.
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12789 Data: 31/01/2013 Hora: 09:36:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12789
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08149 - 00001 - 7.0 - 00008 - VALOR DE FRETE E SEGURO COM DIFERENÇA DE CENTAVOS
09089 - 00002 - 8.0 - 00001 - DIFERENÇA NO VALOR TOTAL ENTRE A NF GLOBAL E REMESSA.
09430 - 00003 - 8.0 - 00001 - O VALOR TOTAL TOTAL DA NOTA DE REMESSA ESTÁ DIFERENTE DA GLOBAL
11494 - 00004 - 8.0 - 00009 - ACRESCENTAR TRATAMENTO PARA LINHA DO II NA NF.
----------------------------------------------------------------------------------------------------
NFR - INCLUIR O VALOR DO ICMS-ST NAS DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL DE REMESSA - ICMS ST - /PWS/ZYCIT398 - DESPESAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlmov IS INITIAL.
it_zycee007-netins =
( itab_zycit100-vlseg / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
it_zycee007-netins =
( itab_zycit036_di-vlmov / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ENDIF.
* >> Início da inclusão: FORM VALORES_R
ELSEIF itab_zycit036-codigo = 'ICMSST'.
READ TABLE itab_zycit398 WITH KEY tributos = 'ICMSST'.
IF sy-subrc NE 0.
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlreal IS INITIAL.
v_despesas = ( itab_zycit100-vlicms_st / itab_zycit044-menge )
* itab_zycit044-qtd_item.
ELSE.
v_despesas = itab_zycit036-vlreal /
itab_zycit044-menge * itab_zycit044-qtd_item.
ENDIF.
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit036-codigo = 'II'.
READ TABLE itab_zycit398 WITH KEY tributos = 'II'.
IF sy-subrc NE 0.
IF /pws/zycit062-arbase EQ 'X' AND
NOT itab_zycit036_di-vlreal IS INITIAL.
v_despesas =
( itab_zycit100-vlii / itab_zycit044-menge ) *
itab_zycit044-qtd_item.
ELSE.
v_despesas = itab_zycit036-vlreal /
...
...
...