CE PLUS - Nota 007462
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 22/10/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:03:24
Descrição da Nota: LI SUBSTITUTIVA FORNECEDOR FABRICANTE
Sintoma
Ao criar LI e LI Substitutiva ocorrem os seguintes problemas:1) - Quando copio a LI acima e altero o
PO para outro, a LI copiada assume a Região do exportador no Fabricante e o campo fica fechado para
alteração e consequentemente a transmissão para o Siscomex fica com dado incorreto.2) - O sistema
está duplicando as LI Substitutivas das originais que foram copiadas, pois quando clicamos em salvar
diversas vezes gera vários seqüenciais de LI Substitutivas e gera um saldo negativo.
Solução
Correção da seleção da região e da geração do número sequencial da LI.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07462 Data: 22/10/2008 Hora: 11:38:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07462
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07345 - 00001 - 7.0 - 00007 - DADOS DO EXPORTADOR / FABRICANTE FICAM INCORRETOS NA LI.
----------------------------------------------------------------------------------------------------
LI SUBSTITUTIVA FORNECEDOR FABRICANTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI SUBSTITUTIVA FORNECEDOR FABRICANTE SALVAR DUPLICANDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
WHERE steuc EQ /pws/zycie078-steuc1. "#EC CI_GENBUFF
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I' or
* >> Início da exclusão: FORM SAVE
v_flagsub eq 'X' .
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE
v_flagsub1 EQ 'X' .
* << Fim da inclusão
PERFORM verifica_nrseq_gravado.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
v_tcode EQ '/PWS/ZYCI020_G'.
/pws/zycie078-usernamea = sy-uname.
/pws/zycie078-dtusera = sy-datum.
ENDIF.
IF NOT v_flag IS INITIAL.
...
...
LOOP AT it_zycit081.
it_zycit081-nrseqli = /pws/zycie078-nrseqli.
MODIFY it_zycit081.
ENDLOOP.
LOOP AT it_anu2.
it_anu2-nrseqli = /pws/zycie078-nrseqli.
MODIFY it_anu2.
ENDLOOP.
MESSAGE s061 WITH text-150 text-151 /pws/zycie078-nrseqli.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_NRSEQ_GRAVADO
CLEAR v_flagsub1.
* << Fim da inclusão
ENDFORM.
FORM lock_record.
IF v_tcode = '/PWS/ZYCI020_A' AND NOT /pws/zycie078-nrseqli IS
INITIAL OR
v_tcode = '/PWS/ZYCI020_N' AND NOT /pws/zycie078-nrseqli IS INITIAL
OR
v_tcode = '/PWS/ZYCI020_G' AND NOT /pws/zycie078-nrseqli IS
INITIAL.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT078'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
space TO /pws/zycie078-dtusera,
space TO /pws/zycie078-usernamea,
space TO /pws/zycie078-nrseqdi,
space TO /pws/zycie078-nrdi,
space TO /pws/zycie078-adicao,
space TO /pws/zycie078-dtreg,
space TO /pws/zycie078-dtregdi.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE s015 WITH text-042.
v_flagsub = 'X'.
* >> Início da inclusão: FORM COMM_LISUBST
v_flagsub1 = 'X'.
* << Fim da inclusão
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE s015 WITH text-041.
v_flagsub = 'X'.
* >> Início da inclusão: FORM COMM_LISUBST
v_flagsub1 = 'X'.
* << Fim da inclusão
ENDIF.
ELSE.
MESSAGE i015 WITH text-025 text-032.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ELSE.
SET TITLEBAR '0001SE'.
ENDIF.
ENDIF.
ENDMODULE.
MODULE load_fornec_fabr OUTPUT.
IF /pws/zycie078-fabric EQ '2'.
IF /pws/zycie080a-lifnr NE v_forn2.
v_forn2 = /pws/zycie080a-lifnr.
PERFORM load_fornec_fabr.
* >> Início da inclusão: MODULE LOAD_FORNEC_FABR
CLEAR v_bezei.
SELECT SINGLE bezei FROM t005u INTO v_bezei
WHERE land1 = wa_lfa12-country AND
spras = sy-langu AND
bland = wa_lfa12-region.
* << Fim da inclusão
/pws/zycie080a-name1 = wa_lfa12-name1.
/pws/zycie080a-landa = wa_lfa12-country.
/pws/zycie080a-logradouro = wa_lfa12-street.
/pws/zycie080a-nrlogr = wa_lfa12-house_num1.
/pws/zycie080a-city = wa_lfa12-city1.
/pws/zycie080a-regio = v_bezei.
/pws/zycie080a-compl = wa_lfa12-city2.
PERFORM descr_pais2.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
v_param(550) TYPE c VALUE space ,
v_tabix LIKE sy-tabix ,
v_tpdoc LIKE /pws/zycit136-tp_doc ,
v_lisubst ,
v_string_ex LIKE rlgrap-filename VALUE space,
v_key(70) ,
v_flagcan ,
v_repid LIKE /pws/zycet067-repid ,
v_respcan ,
v_flagsub ,
* >> Início da inclusão:
v_flagsub1 ,
* << Fim da inclusão
v_s_idioma(15) ,
v_cur TYPE i ,
v_flag_compl ,
v_descr_ncm LIKE /pws/zycit181-descricao,
v_lin_191 TYPE i ,
v_lin_177 TYPE i ,
v_campanali(60) TYPE c ,
v_statuscam(50) TYPE c ,
v_icon(5) TYPE c ,
v_tpni LIKE /pws/zycit078-tpni ,
...