CE PLUS - Nota 008701
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 20/07/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:24:33
Descrição da Nota: SUGERIR TIPO DE NOTA FISCAL CORRETO PARA ICMS DIFERIDO
Sintoma
Não está sendo sugerido o tipo de nota fiscal correto para processos com ICMS diferido.
O programa não sugere um novo tipo de nota após alterar a DI.
Solução
Ajustada verificação do ICMS diferido e ajustado programa para sugerir novamente o tipo de nota
fiscal após alteração da DI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08701 Data: 20/07/2009 Hora: 13:31:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08701
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03732 - 00001 - 7.0 - 00001 - AJUSTES REFERENTES A PERFORMANCE DO EMBARQUE.
08424 - 00002 - 7.0 - 00009 - AJUSTE PARA MELHORIA DE PERFORMANCE DO EMBARQUE DE NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
SUGERIR TIPO DE NOTA FISCAL CORRETO PARA ICMS DIFERIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIPO - NOTA - FISCAL - ICMS - DIFERIDO - SUGERIR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FROM ekpo
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
SELECT SINGLE tpnf tpnf_ld tpnf_db tpnf_icms INTO
CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
IF NOT itab_zycit003-nrseqd IS INITIAL
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
itab_zycit003-tpnf = /pws/zycit012-tpnf_db.
* >> Início da exclusão: FORM VERIFICA_ITENS
ELSEIF /pws/zycit100-icms_dif EQ 'X'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS
ELSEIF itab_zycit100-icms_dif EQ 'X'
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_icms IS INITIAL.
itab_zycit003-tpnf = /pws/zycit012-tpnf_icms.
ELSE.
itab_zycit003-tpnf = /pws/zycit012-tpnf.
REFRESH itab_zycit263.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
WHERE nrseq = /pws/zycie001-nrseq
AND eliminado = space.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
FROM ekpo
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
SELECT SINGLE tpnf tpnf_ld tpnf_db tpnf_icms INTO
CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
IF NOT itab_zycit003-nrseqd IS INITIAL
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
itab_zycit003-tpnf = /pws/zycit012-tpnf_db.
* >> Início da exclusão: FORM VERIFICA_ITENS_DA
ELSEIF /pws/zycit100-icms_dif EQ 'X'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
ELSEIF itab_zycit100-icms_dif EQ 'X'
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_icms IS INITIAL.
itab_zycit003-tpnf = /pws/zycit012-tpnf_icms.
ELSE.
itab_zycit003-tpnf = /pws/zycit012-tpnf.
REFRESH itab_zycit263.
READ TABLE itab_zycit263 WITH KEY ebeln = itab_zycit263-ebeln
ebelp = itab_zycit263-ebelp.
IF sy-subrc EQ 0.
SELECT SINGLE frpagto INTO /pws/zycit006-frpagto
FROM /pws/zycit006 "#EC CI_NOFIELD
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
AND ebeln = itab_zycit100-ebeln
AND ebelp = itab_zycit100-ebelp
AND adicao = itab_zycit100-adicao.
MODIFY itab_zycit100 INDEX v_tabix.
ENDIF.
ENDLOOP.
PERFORM cria_zycit269.
IF NOT itab_zycit269[] IS INITIAL.
MODIFY /pws/zycit269 FROM TABLE itab_zycit269.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR: /pws/zycie003-tpnf.
* << Fim da inclusão
LOOP AT itab_it.
UPDATE /pws/zycit003
SET:
j_1bnbm = itab_it-j_1bnbm
mfrpn = itab_it-mfrpn
naladi = itab_it-naladi
qtdeumest = itab_it-qtdeumest
advalii = itab_it-advalii
advalipi = itab_it-advalipi
advalicms = itab_it-advalicms
...
...
ad_extarif = itab_it-ad_extarif
ad_tipo = itab_it-ad_tipo
ad_orgemiss = itab_it-ad_orgemiss
ad_numero = itab_it-ad_numero
ad_anoemiss = itab_it-ad_anoemiss
naladincca = itab_it-naladincca
nrseqd = itab_it-nrseqd
nrdrawback = itab_it-nrdrawback
modalidade = itab_it-modalidade
basred = itab_it-basred
* >> Início da inclusão: FORM SAVE_DATA
tpnf = /pws/zycie003-tpnf
* << Fim da inclusão
WHERE
nrseq = itab_it-nrseq AND
ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp. "#EC CI_NOFIRST
ENDLOOP.
CLEAR: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
REFRESH: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085_t WHERE
...