CE PLUS - Nota 010049
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 09/04/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:13:59
Descrição da Nota: AJUSTE PARA NÃO ELIMINAR O TIPO DE NOTA FISCAL AO SALVAR A DI
Sintoma
Ao salvar a DI o programa está eliminando o tipo de nota fiscal informado previamente.
Solução
Ajustado programa para não eliminar o tipo de nota fiscal ao salvar a DI.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10049 Data: 09/04/2010 Hora: 11:11:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10049
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08701 - 00001 - 7.0 - 00010 - SUGERIR TIPO DE NOTA FISCAL CORRETO PARA ICMS DIFERIDO
----------------------------------------------------------------------------------------------------
AJUSTE PARA NÃO ELIMINAR O TIPO DE NOTA FISCAL AO SALVAR A DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIPO - NOTA - FISCAL - SALVAR - DI
/PWS/SAPMZYCI0023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
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 exclusão: FORM SAVE_DATA
tpnf = /pws/zycie003-tpnf
* << Fim da exclusã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
...