CE PLUS - Nota 001806
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 24/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:44:41
Descrição da Nota: DA: Nº DO BL
Sintoma
Campo N. do BL na tela Básica da DA, após vincular o pedido de compras, este campo fica fechado,
impedindo o usuário de alterá-lo em caso de erro de digitação.
Solução
Só fechar este campo se houver nacionalização.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01806 Data: 24/07/2006 Hora: 17:19:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01806
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01323 - 00001 - 6.0 - 00023 - DECLARAÇÃO DE ADMISSÃO PARA ENTREPOSTO ADUANEIRO
----------------------------------------------------------------------------------------------------
DA: Nº DO BL
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIT455; /PWS/ZYCIT001; /PWS/ZYCIT003;
FORM VERIFICA_NACIONAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI070 0050
REPS /PWS/MZYCI070F01
REPS /PWS/MZYCI070F03
REPS /PWS/MZYCI070F05
REPT /PWS/SAPMZYCI070
DYNP /PWS/SAPMZYCI070 0110
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0050
PROCESS BEFORE OUTPUT.
MODULE: status_0050,
* >> Início da inclusão: tela 0050
verifica_nacional,
* << Fim da inclusão
status_custom_0050.
CALL SUBSCREEN sa_0050_1 INCLUDING sy-repid gv_subscreen_0050.
PROCESS AFTER INPUT.
CALL SUBSCREEN sa_0050_1.
MODULE: user_command_0050,
user_command_exit AT EXIT-COMMAND.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0110
PROCESS BEFORE OUTPUT.
MODULE:
* >> Início da inclusão: tela 0110
verifica_nacional,
* << Fim da inclusão
set_screen,
screen_lines.
LOOP AT itab_zycit444 WITH CONTROL tc_doc
CURSOR tc_doc-current_line.
MODULE: set_screen_lines,
fill_struct86 .
ENDLOOP.
LOOP AT itab_zycit445 WITH CONTROL tc_pro
CURSOR tc_pro-current_line.
MODULE: set_screen_lines,
fill_struct87.
ENDLOOP.
MODULE exit_tela.
PROCESS AFTER INPUT.
LOOP AT itab_zycit444.
...
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070OO
CLASS cl_myevent_handler IMPLEMENTATION.
METHOD on_sapevent.
CLEAR edaction.
CLEAR edframe.
CLEAR edgetdata.
CLEAR edpostdataline.
...
...
IF sy-subrc EQ 0.
CALL METHOD html_control->show_url
EXPORTING
url = doc_url.
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
* >> Início da inclusão: FORM CALC_ITAB
module verifica_nacional output.
perform verifica_nacional.
endmodule. " verifica_nacional OUTPUT
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F01
...
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.
* >> Início da exclusão: FORM SAVE_DATA
DELETE FROM /pws/zycit455 WHERE nrseqda = /pws/zycie442-nrseqda.
CLEAR: itab_zycit455.
REFRESH: itab_zycit455.
* << Fim da exclusão
DELETE FROM /pws/zycit463 WHERE nrseqda = /pws/zycie442-nrseqda.
CLEAR: itab_zycit463.
REFRESH: itab_zycit463.
LOOP AT itab_lote.
MOVE-CORRESPONDING itab_lote TO itab_zycit463.
...
...
APPEND itab_zycit455.
MOVE-CORRESPONDING itab_it TO itab_zycit443.
APPEND itab_zycit443.
ENDLOOP.
MODIFY /pws/zycit443 FROM TABLE itab_zycit443.
* >> Início da inclusão: FORM SAVE_DATA
MODIFY /pws/zycit455 FROM TABLE itab_zycit455.
* << Fim da exclusão
MODIFY /pws/zycit463 FROM TABLE itab_zycit463.
PERFORM cria_zycit269.
...
...
APPEND itab_zycit463.
ENDLOOP.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit003.
APPEND itab_zycit003.
* >> Início da exclusão: FORM VERIFY_CHANGES
MOVE-CORRESPONDING itab_it TO itab_zycit455.
IF itab_zycit455-itseqda IS INITIAL.
LOOP AT itab_zycit455 INTO itab_zycit455a
WHERE NOT itseqda IS initial.
IF v_itseqda LT itab_zycit455a-itseqda.
v_itseqda = itab_zycit455a-itseqda.
ENDIF.
ENDLOOP.
itab_zycit455-itseqda = v_itseqda + 1.
ENDIF.
APPEND itab_zycit455.
* << Fim da exclusão
MOVE-CORRESPONDING itab_it TO itab_zycit443.
APPEND itab_zycit443.
ENDLOOP.
SORT itab_zycit443 BY nrseqda nrseq ebeln ebelp adicao.
SORT itab_zycit443a BY nrseqda nrseq ebeln ebelp adicao.
...
...
/pws/zycie442-vlfob = v_tval2 = v_tval = v_tval + v_tdif.
ENDIF.
/pws/zycie442-vlfobr = s_fbvr = v_tmle.
IF v_tval2 LT '0'.
IF v_msgfre NE 'N'.
* >> Início da exclusão: FORM CALC_ITAB
MESSAGE i015
WITH 'Texto 454'(454) text-125.
LEAVE PROGRAM.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
MESSAGE i015 WITH text-454 text-488.
CLEAR v_tval2.
EXIT.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CALC_ITAB
MESSAGE i015
WITH 'Texto 454'(454) text-125.
LEAVE PROGRAM.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
MESSAGE i015 WITH text-454 text-488.
CLEAR v_tval2.
EXIT.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
IF /pws/zycie442-vlfob IS INITIAL.
/pws/zycie442-vlfob = v_tval2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
itab_zycit443-ebelp TO itab_desp_funcao-ebelp.
APPEND itab_desp_funcao.
ENDLOOP.
MOVE itab_zycit451[] TO itab_adicao[].
EXPORT itab_adicao TO MEMORY ID 'ADI01'.
* >> Início da exclusão: FORM VISUALIZA_RATEIO
itab_zycit100[] = itab_zycit443[].
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_RATEIO
LOOP AT itab_zycit443.
MOVE-CORRESPONDING itab_zycit443 TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_RATEIO_CUSTO'
EXPORTING
v_programa = v_programa
v_visualiza = v_visualiza
v_bukrs = /pws/zycie442-bukrs
...
...
TABLES
itab_zycit036 = itab_zycit036
itab_despesa = itab_desp_funcao
itab_zycit003 = itab_zycit003
itab_zycit100 = itab_zycit100.
* >> Início da exclusão: FORM VISUALIZA_RATEIO
itab_zycit443[] = itab_zycit100[].
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_RATEIO
LOOP AT itab_zycit100.
MOVE-CORRESPONDING itab_zycit100 TO itab_zycit443.
APPEND itab_zycit443.
ENDLOOP.
* << Fim da inclusão
IF v_resp EQ 'S'.
LOOP AT itab_zycit036.
UPDATE /pws/zycit375 SET
vldp = itab_zycit036-vlreal
waers = itab_zycit036-waers_real
...
...
DATA v_itseqda TYPE /pws/zycie455-itseqda.
IF itab_zycit443[] IS INITIAL.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit003.
APPEND itab_zycit003.
* >> Início da exclusão: FORM SELECIONA_SALDO_DA
MOVE-CORRESPONDING itab_it TO itab_zycit455.
IF itab_zycit455-itseqda IS INITIAL.
LOOP AT itab_zycit455 INTO itab_zycit455a
WHERE NOT itseqda IS initial.
IF v_itseqda LT itab_zycit455a-itseqda.
v_itseqda = itab_zycit455a-itseqda.
ENDIF.
ENDLOOP.
itab_zycit455-itseqda = v_itseqda + 1.
ENDIF.
APPEND itab_zycit455.
* << Fim da exclusão
MOVE-CORRESPONDING itab_it TO itab_zycit443.
APPEND itab_zycit443.
ENDLOOP.
ENDIF.
IF NOT itab_zycit443[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form verifica_nacional.
clear v_nac.
select single * from /pws/zycit455
WHERE nrseqda EQ /pws/zycie442-nrseqda.
if sy-subrc eq 0.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ /pws/zycit455-nrseq.
if sy-subrc eq 0.
v_nac = 'X'.
endif.
ELSE.
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq EQ /pws/zycie442-nrseqda.
if sy-subrc eq 0.
v_nac = 'X'.
endif.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
MODULE set_screen OUTPUT.
CASE sy-dynnr.
WHEN '0100' OR '0200'.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
CASE screen-group1.
WHEN '12'.
IF ( v_tipo NE '3' AND v_tip
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
WHEN '34'.
...
...
CASE screen-name.
WHEN '/PWS/ZYCIE442-INCO1' OR
'/PWS/ZYCIE442-MEIOTRANSP'.
IF ( NOT itab_it[] IS INITIAL OR
/pws/zycie442-codreg IS INITIAL OR
/pws/zycie442-codreg EQ '04' ).
screen-required = screen-input = '0'.
ENDIF.
WHEN '/PWS/ZYCIE442-NRBL'.
IF ( NOT itab_it[] IS INITIAL OR
/pws/zycie442-codreg IS INITIAL ).
* >> Início da inclusão:MODULE set_screen OUTPUT
IF v_nac IS INITIAL.
screen-required = screen-input = '1'.
ELSE.
* << Fim da inclusão
screen-required = screen-input = '0'.
* >> Início da inclusão:MODULE set_screen OUTPUT
ENDIF.
* << Fim da inclusão
ENDIF.
WHEN '/PWS/ZYCIE442-MODDESPS'.
IF /pws/zycie442-codreg IS INITIAL OR
/pws/zycie442-nrbl IS INITIAL.
screen-required = screen-input = '0'.
ENDIF.
ENDCASE.
ENDIF.
ELSEIF sy-dynnr = '0412'.
...
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070X01
...
/pws/zycie093,
/pws/zycie003,
/pws/zycie443a,
/pws/zycit062,
/pws/zycit438,
* >> Início da exclusão:
/pws/zycit078.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit078,
/pws/zycit003,
/pws/zycit455.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
DATA:
t_icms LIKE /pws/zycie442-vlfob,
a_vlrtot LIKE t_icms,
a_vladu LIKE t_icms,
...
...
v_xc LIKE t_icms,
v_fatx TYPE p DECIMALS 8,
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE t_icms,
* >> Início da exclusão:
v_nova.
* << Fim da exclusão
* >> Início da inclusão:
v_nova,
v_nac.
* << Fim da inclusão
DATA: wa_it000 LIKE /pws/zycit000,
wa_zycit078 LIKE /pws/zycit078.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
screen-required = screen-input = '0'.
ENDIF.
WHEN '/PWS/ZYCIE442-NRBL'.
IF ( NOT itab_it[] IS INITIAL OR
/pws/zycie442-codreg IS INITIAL ).
* >> Início da inclusão: MODULE SET_SCREEN
IF v_nac IS INITIAL.
screen-required = screen-input = '1'.
ELSE.
* << Fim da inclusão
screen-required = screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI070
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 454
Texto: (29 caracteres)
"Valor Negativo de Mercadoria."
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 488
Texto: (31 caracteres)
"Favor verificar Frete e Seguro."
Comprimento máximo: 31