CE PLUS - Nota 007396
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 03/10/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:45:01
Descrição da Nota: NA LI AO SAIR ESTA NÃO ESTA GRAVANDO A EMPRESA E O IMPORTADOR
Sintoma
Ao entrar na Funcionalidade de LI, se não informo nenhum dado e saio da Tela, aparece a mensagem
"O Registro foi alterado. Deseja salva-lo??" Se clicarmos em Sim, é salvo o sequencial dessa LI e
não conseguimos mais utiliza-la, pois o campo Empresa e o Importador ficam em branco e fechado.
Na li ao retirar o codigo que coloquei do fabricante assumiu o estado do fornecedor na
pasta fabricante.
Ao colocar fabricante 3 desconhecido e alterar pais AR,depois mudei para tipo 2
o pais que coloquei de origem foi para o pais de origem do fabricante.
Solução
Verificar os campos que foram alterados e não permitir gravar sem os campos requeridos. Realizar a
busca de dados de endereço corretamente.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07396 Data: 03/10/2008 Hora: 09:25:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07396
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NA LI AO SAIR ESTA NÃO ESTA GRAVANDO A EMPRESA E O IMPORTADOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
GRAVAR - EMPRESA - IMPORTADOR - SUGESTÃO - ENDEREÇO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
text_button_2 = text-005
icon_button_2 = 'ICON_CONCEL'
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_resp_save
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_resp_save EQ '1'.
* >> Início da inclusão: FORM QUEST_GRAVACAO
IF v_tcode EQ '/PWS/ZYCI020_C'.
IF NOT /pws/zycie078-nrseq IS INITIAL AND
/pws/zycie078-bukrs IS INITIAL.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ /pws/zycie078-nrseq.
/pws/zycie078-bukrs = /pws/zycit001-bukrs.
ELSEIF /pws/zycie078-nrseq IS INITIAL AND
/pws/zycie078-bukrs IS INITIAL.
MESSAGE i015 WITH text-194.
v_resp_save = 'A'.
EXIT.
ENDIF.
IF NOT /pws/zycie078-nrseq IS INITIAL AND
/pws/zycie078-j_1bbranch IS INITIAL.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ /pws/zycie078-nrseq.
/pws/zycie078-j_1bbranch = /pws/zycit001-j_1bbranch.
PERFORM load_cnpj.
ELSEIF /pws/zycie078-nrseq IS INITIAL AND
/pws/zycie078-j_1bbranch IS INITIAL.
MESSAGE i015 WITH text-195.
v_resp_save = 'A'.
EXIT.
ENDIF.
IF /pws/zycit274-autonome IS INITIAL.
IF /pws/zycie078-identify IS INITIAL.
MESSAGE e015 WITH text-196.
ENDIF.
ELSEIF NOT /pws/zycit274-autonome IS INITIAL.
IF /pws/zycie078-nrseq IS INITIAL AND
/pws/zycie078-identify IS INITIAL.
MESSAGE i015 WITH text-196.
v_resp_save = 'A'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
CASE /pws/zycie078-tpli.
WHEN 'N'.
IF /pws/zycie078-flagpli IS INITIAL.
PERFORM comm_save.
ELSE.
PERFORM savepli.
ENDIF.
WHEN 'S'.
DESCRIBE TABLE it_zycit079 LINES v_cont.
IF v_cont GT 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
PERFORM carrega_zycie081.
MODIFY it_zycit081 INDEX tc_anu-current_line.
IF sy-subrc NE 0.
APPEND it_zycit081.
ENDIF.
ENDMODULE.
MODULE atual_fornec_fabr INPUT.
IF /pws/zycie078-fabric EQ '2'.
IF /pws/zycie080a-lifnr NE v_forn2.
v_forn2 = /pws/zycie080a-lifnr.
* >> Início da inclusão: MODULE ATUAL_FORNEC_FABR
CLEAR v_bezei.
* << Fim da inclusão
PERFORM load_fornec_fabr.
SELECT SINGLE bezei FROM t005u INTO v_bezei
WHERE land1 = wa_lfa12-country AND
spras = sy-langu AND
bland = wa_lfa12-region.
/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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
CHECK sy-ucomm NE 'MKTD'.
CHECK sy-ucomm NE 'DKTD'.
IF flag_emp IS INITIAL.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P'.
CLEAR v_linhas.
GET PARAMETER ID 'BUK' FIELD /pws/zycie078-bukrs.
* >> Início da inclusão: MODULE LOAD_DATA
wa_zycit078-bukrs = /pws/zycie078-bukrs.
* << Fim da inclusão
IF /pws/zycie078-bukrs IS INITIAL.
SELECT COUNT( * ) INTO v_linhas FROM /pws/zycbt007."#EC CI_BYPASS
IF NOT v_linhas >= 2.
SELECT SINGLE bukrs
FROM /pws/zycbt007
INTO /pws/zycie078-bukrs.
wa_zycit078-bukrs = /pws/zycie078-bukrs.
ENDIF.
ENDIF.
ENDIF.
...
...
CLEAR: wa_lfa12,
v_forn2.
ENDIF.
ENDMODULE.
MODULE find_dtvent OUTPUT.
IF /pws/zycie078-dtdef NE space AND
/pws/zycie078-dtdef NE '00000000'.
/pws/zycie078-dtvencto = /pws/zycie078-dtdef + /pws/zycie078-valday.
ELSE.
MOVE: space TO /pws/zycie078-dtvencto .
* >> Início da inclusão: MODULE FIND_DTVENT
wa_zycit078-DTVENCTO = /pws/zycie078-DTVENCTO.
* << Fim da inclusão
ENDIF.
IF /pws/zycie078-valday IS INITIAL.
/pws/zycie078-valday = '60'.
wa_zycit078-valday = '60'.
ENDIF.
ENDMODULE.
MODULE set_screen OUTPUT.
IF sy-dynnr EQ '0100'.
PERFORM set_screen_0100.
ELSEIF sy-dynnr EQ '0521'.
...
...
MODULE load_cabec_110 OUTPUT.
IF /pws/zycie078-modalidade EQ 'I'.
/pws/zycie078-drawback = '3'.
ELSE.
IF /pws/zycie078-tipodb EQ 'G'.
/pws/zycie078-drawback = '1'.
ELSEIF /pws/zycie078-tipodb IS INITIAL.
/pws/zycie078-drawback = '3'.
ELSE.
/pws/zycie078-drawback = '2'.
* >> Início da inclusão: MODULE LOAD_CABEC_110
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE LOAD_CABEC_110
IF v_tcode = '/PWS/ZYCI020_C'.
wa_zycit078-drawback = /pws/zycie078-drawback.
* << Fim da inclusão
ENDIF.
CLEAR: wa_zycit078-ntgew.
LOOP AT it_zycit079.
wa_zycit078-ntgew = wa_zycit078-ntgew + it_zycit079-ntgew.
ENDLOOP.
...
...
IF ( v_forn NE /pws/zycie080c-lifnr ) OR
( ( NOT v_forn2 IS INITIAL ) AND
( v_forn2 NE /pws/zycie080c-lifnr ) ).
/pws/zycie080c-lifnr = v_forn.
PERFORM load_forn.
/pws/zycie080c-name1 = wa_lfa1-name1.
/pws/zycie080c-landa = wa_lfa1-country.
/pws/zycie080c-logradouro = wa_lfa1-street.
/pws/zycie080c-nrlogr = wa_lfa1-house_num1.
/pws/zycie080c-city = wa_lfa1-city1.
* >> Início da exclusão: MODULE LOAD_FORNECEDOR_C
/pws/zycie080b-regio = v_bezei.
/pws/zycie080b-compl = wa_lfa1-city2.
* << Fim da exclusão
/pws/zycie080c-regio = v_bezei.
/pws/zycie080c-compl = wa_lfa1-city2.
PERFORM descr_pais_c.
ENDIF.
ENDIF.
IF it_zycit079 IS INITIAL.
CLEAR: wa_lfa1,
v_forn.
ENDIF.
ENDMODULE.
...