CE PLUS - Nota 001212
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 18/04/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:48:04
Descrição da Nota: DUMP AO SALVAR O ATO ENCERRADO COM ADITIVOS E CORREÇÃO DE TRANSMISSÃO
Sintoma
Ao salvar o ato concessório encerrado que possua aditivos .
O programa está permitindo que atos concessório que não precisam ser comprovados no SISCOMEX sejam
inseridos na fila de transmissão.
Solução
Ajustar programa para substituir o insert por modify na tabela /pws/zycit457 e ajustar os critérios
de envio para a fila de transmissão do SISCOMEX.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01212 Data: 18/04/2006 Hora: 09:22:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01212
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01209 - 00001 - 6.0 - 00023 - PREENCHIMENTO DA QUANTIDADE E UNIDADE NCM NA VINCULAÇÃO DA COMPOS
----------------------------------------------------------------------------------------------------
DUMP AO SALVAR O ATO ENCERRADO COM ADITIVOS E CORREÇÃO DE TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - SALVAR - ADITIVOS - ENCERRADO - TRANSMISSÃO - SISCOMEX
/PWS/SAPMZYCI040 - ATO - CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040F03
REPS /PWS/MZYCI040I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
MODIFY /pws/zycit245 FROM TABLE itab_zycit245.
MODIFY /pws/zycit246 FROM TABLE itab_zycit246_final.
MODIFY /pws/zycit247 FROM TABLE itab_zycit247.
MODIFY /pws/zycit248 FROM TABLE itab_zycit248_final.
MODIFY /pws/zycit243 FROM TABLE itab_centros2.
* >> Início da exclusão: FORM TRATA_BUTTON_SAVE2
INSERT /pws/zycit457 FROM TABLE itab_zycit457.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
MODIFY /pws/zycit457 FROM TABLE itab_zycit457.
* << Fim da inclusão
IF NOT itab_zycit279_ap[] IS INITIAL.
PERFORM salva_apont.
ENDIF.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
DELETE FROM /pws/zycit279 WHERE nrseqd = /pws/zycie244-nrseqd.
...
...
itab_zycit245-nritem = v_nritem.
READ TABLE itab_zycit245_save
WITH KEY nrseqd = itab_zycit245-nrseqd
nritem = itab_zycit245-nritem.
itab_zycit245-vl_frete_t = itab_zycit245_save-vl_frete_t.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
itab_zycit245-um_ncm = itab_zycit245-meins.
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
PERFORM converte_um_ncm USING itab_zycit245-codcomp
CHANGING itab_zycit245-um_ncm
itab_zycit245-werks
itab_zycit245-qtd_ncm.
* << Fim da inclusão
MODIFY itab_zycit245.
itab_zycit245_aux[] = itab_zycit245[].
ENDLOOP.
v_verificp2_merc = 'S'.
MESSAGE s015 WITH text-023.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F03
...
PERFORM transf_saldo USING v_status_tf.
IF v_status_tf NE 'S'.
EXIT.
ENDIF.
IF NOT /pws/zycit321-siscotrans IS INITIAL AND
* >> Início da exclusão: FORM TRATA_BUTTON_ENCER2
/pws/zycie244-modalidade EQ 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_ENCER2
/pws/zycie244-modalidade EQ 'S'.
* << Fim da inclusão
it_zycit285-nrseqd = /pws/zycie244-nrseqd.
it_zycit285-tp_doc = 'BAC'.
it_zycit285-identify = /pws/zycie244-identify.
it_zycit285-werks = /pws/zycie244-werks.
it_zycit285-bukrs = /pws/zycie244-bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
PERFORM trata_button_btn3.
WHEN 'SITUAC'.
PERFORM trata_button_situac2.
WHEN 'ENCER'.
IF /pws/zycit321-siscotrans IS INITIAL or
* >> Início da exclusão: MODULE USER_COMMAND_0200
/pws/zycie244-modalidade eq 'I'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
/pws/zycie244-modalidade eq 'I' or
/pws/zycie244-tipo eq 'F'.
* << Fim da inclusão
PERFORM trata_button_encer2.
ELSE.
READ TABLE itab_zycit248_save WITH KEY siscomex = space.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-306.
...