CE PLUS - Nota 001203
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:28:25
Descrição da Nota: AO EFETUAR A CRIAÇÃO DE UMA DI UTILIZANDO O ACESSO DO MENU
Sintoma
Ao efetuar a criação de uma DI utilizando o acesso do menu (por fora do embarque), existem uma série
de problemas que ocorrem:
-O programa não checa se já existe uma DI para o BL mencionado, permitindo que sejam criadas duas ou
mais DI¿s para um mesmo processo;
-Após efetuar a criação de uma DI utilizando a transação do menu, ao criar uma segunda DI também
utilizando o acesso ao menu, o programa já trás o número do último BL utilizado, ao
invés do campo vir em branco;
-Durante a criação da DI, se após clicar no botão atualizar, o número do BL for trocado, os
números dos pedidos e itens na pasta itens, ou não são atualizados, ou ficam misturados os pedidos
e itens dos dois Bl`s.
-Na pasta carga, sub-pasta 2, o código da moeda não é trazido para a tela.
Solução
Ajuste para a leitura do BL e na verificação da taxa do frete.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01203 Data: 13/04/2006 Hora: 17:11:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01203
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
00431 - 00001 - 6.0 - 00021 - ESTÁ OCORRENDO DEDUÇÃO DO FRETE RODOVIÁRIO (LANÇADO NO B/L), NO C
01088 - 00002 - 6.0 - 00023 - CÁLCULO VALOR FOB ERRADO QUANDO TINHA DESPESA NA DI
----------------------------------------------------------------------------------------------------
AO EFETUAR A CRIAÇÃO DE UMA DI UTILIZANDO O ACESSO DO MENU
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0110
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023TOP
REPT /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0110
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
/PWS/ZYCIE085-NRBL
I/O 3 28 10 10 1 CHAR X X Off
AC SPA GPA /PWS/ZYCIP001
Dest, Chave externa, Botão EntrsPoss.stand.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
CLEAR: /pws/zycie085-waersfob, /pws/zycie085-vlfob,
/pws/zycie085-ukursfob.
/pws/zycie085-waersfob = 'USD'.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_ITABIT
PERFORM load_waers USING /pws/zycie085-waersfob
CHANGING s_fbcm
s_fbdesc.
* << Fim da inclusão
READ TABLE itab_zycit001 INDEX 1.
s_inco1 = itab_zycit001-inco1.
/pws/zycie085-codreg = itab_zycit001-regime.
IF v_dit = 'S'.
/pws/zycie085-ntimp = itab_zycit001-regime.
...
...
PERFORM: taxa_converte USING itab_it-waersbem
/pws/zycie085-dttax
CHANGING itab_it-dttaxbem.
MODIFY itab_it INDEX v_idx TRANSPORTING dttaxbem.
ENDLOOP.
* >> Início da inclusão: FORM REFRESH_ALL
ENDIF.
IF wa_zycbt007 is initial.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie093-waersfre IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie093-waersfre
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfre,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
IF /pws/zycie085-nrbl IS INITIAL.
CLEAR: itab_it, itab_ita, wa_it, wa_ad, /pws/zycie100a,
t_blid, v_tmle, v_tntgew.
REFRESH: itab_it, itab_ita.
ELSE.
* >> Início da inclusão: FORM LOAD_BL
perform verifica_bl changing v_bl1.
if v_bl1 = '1'.
MESSAGE i015 WITH text-237.
clear /pws/zycie085-nrbl.
exit.
endif.
* << Fim da inclusão
PERFORM: verify_bl CHANGING v_bl.
IF v_bl = '1'.
PERFORM: load_blid.
MOVE-CORRESPONDING /pws/zycie085 TO wa_zycit085.
MOVE-CORRESPONDING /pws/zycie093 TO /pws/zycie085.
...
...
FORM load_cour.
PERFORM load_sn USING /pws/zycie085-courier CHANGING t_sncou.
ENDFORM.
FORM load_blitens.
CLEAR: itab_zycit094, itab_zycit003, itab_zycit013,
* >> Início da exclusão: FORM LOAD_BLITENS
itab_zycit006, itab_zycit001.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_BLITENS
itab_zycit006, itab_zycit001,
itab_it.
* << Fim da inclusão
REFRESH: itab_zycit094, itab_zycit003, itab_zycit013,
* >> Início da exclusão: FORM LOAD_BLITENS
itab_zycit006, itab_zycit001.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_BLITENS
itab_zycit006, itab_zycit001,
itab_it.
* << Fim da inclusão
IF NOT /pws/zycie001-nrseq IS INITIAL.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
WHERE nrseqce = /pws/zycie085-nrbl
AND nrseq = /pws/zycie001-nrseq .
ELSE.
...
...
result = s_icon.
ELSE.
CLEAR: s_icon.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form verifica_bl changing p_bl1.
Clear p_bl1.
Select single * from /pws/zycit085
where nrbl eq /pws/zycie085-nrbl.
if sy-subrc eq 0.
p_bl1 = '1'.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
ENDIF.
IF /pws/zycie085-nrseqdi IS INITIAL.
CASE sy-tcode.
WHEN '/PWS/ZYCI023_A' OR '/PWS/ZYCI023_E' OR '/PWS/ZYCI023_C'.
v_dit = 'N'.
* >> Início da exclusão: MODULE LOAD_DATA
CLEAR /pws/zycie085-ntimp.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
CLEAR: /pws/zycie085-ntimp,
/pws/zycie085-nrbl.
* << Fim da inclusão
WHEN OTHERS.
v_dit = 'S'.
ENDCASE.
IMPORT wa_zycie085 FROM MEMORY ID rimc4.
IMPORT /pws/zycie001-nrseq FROM MEMORY ID rimc7.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
v_nottax,
v_werks LIKE ekpo-werks,
v_name1 LIKE t001w-name1,
v_petroleo,
v_bl,
* >> Início da inclusão:
v_bl1,
* << Fim da inclusão
v_changed,
v_resposta,
v_erro,
v_erro_f05,
v_acto,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 237
Texto: (45 caracteres)
"BL já está sendo utilizado em outro processo."
Comprimento máximo: 132