CE PLUS - Nota 003926
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 14/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:42:59
Descrição da Nota: ERRO AO ACRESCENTAR NOVOS LOTES NA DA E PROPOSIÇÃO DE VALOR SEGURO
Sintoma
1) Após salvar a DA e acrescentar novos lotes, a tabela /PWS/ZYCIT463 fica desatualizada. Somente
após sair da DA e entrar como modificar, a tabela /PWS/ZYCIT463 é atualizada.
2)Quando o incoterm for CIF e na fatura estiver mencionado o valor do seguro, o sistema não poderá
ler o % de seguro na zero.
Solução
ajustar eliminação de dados na tabela e proposição no valor do seguro
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03926 Data: 14/06/2007 Hora: 15:11:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03926
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01999 - 00001 - 6.0 - 00024 - QUANTIDADE NACIONALIZADA DA DA NÃO ESTÁ CORRETA
03425 - 00002 - 7.0 - 00001 - TRATAMENTO DE REGIME TRIBUTÁRIO PRÓPRIO PARA O ICMS E PIS/COFINS
----------------------------------------------------------------------------------------------------
ERRO AO ACRESCENTAR NOVOS LOTES NA DA E PROPOSIÇÃO DE VALOR SEGURO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ACRESCENTAR NOVOS LOTES - DA - VALOR DE SEGURO
/PWS/ZYCIT463 -
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F01
...
MODIFY /pws/zycit200 FROM TABLE itab_zycit200.
DELETE FROM /pws/zycit443 WHERE nrseqda = /pws/zycie442-nrseqda.
CLEAR: itab_zycit443.
REFRESH: itab_zycit443.
IF v_embimp IS INITIAL.
DELETE FROM /pws/zycit014 WHERE nrseq = /pws/zycie442-nrseqda.
MODIFY /pws/zycit014 FROM TABLE itab_zycit014.
ENDIF.
DELETE FROM /pws/zycit463 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit463 FROM TABLE itab_zycit463.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR itab_del.
FREE itab_del.
* << Fim da inclusão
LOOP AT itab_it.
v_tabix = sy-tabix.
itab_it-qtdeumest = itab_it-qtd_da.
CLEAR itab_ekpo.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc IS INITIAL.
itab_it-meinsest = itab_ekpo-lmein.
ENDIF.
MODIFY itab_it INDEX v_tabix.
...
...
IF v_dit = 'N'.
IF /pws/zycie442-mdadicao = 'S'.
IF /pws/zycie442-waersfob IS INITIAL.
/pws/zycie442-waersfob = v_waers.
ENDIF.
LOOP AT itab_it.
itab_it-dttaxbem = /pws/zycie442-ukursfob.
itab_it-waersbem = /pws/zycie442-waersfob.
MODIFY itab_it INDEX sy-tabix TRANSPORTING dttaxbem waersbem.
ENDLOOP.
* >> Início da exclusão: FORM FILL_ITABIT
IF /pws/zycie442-vlseg IS INITIAL AND v_tcode = '/PWS/ZYCI070_C'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF /pws/zycie442-vlseg IS INITIAL AND sy-tcode = '/PWS/ZYCI070_C'.
* << Fim da inclusão
/pws/zycie442-vlseg = v_tsegfat.
READ TABLE itab_zycit006 WITH KEY tpfatura = '01'.
IF sy-subrc EQ 0.
/pws/zycie442-waersseg = itab_zycit006-waers.
ENDIF.
PERFORM retorna_decimais USING /pws/zycie442-waersseg
CHANGING /pws/zycie442-vlseg.
ENDIF.
ELSE.
CLEAR: /pws/zycie442-waersfob, /pws/zycie442-vlfob,
...