CE PLUS - Nota 007734
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 09/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:23:54
Descrição da Nota: QUANTIDADE ESTATÍSTICA
Sintoma
DUMP ao calcular a quantidade na unidade de medida estatística.
Solução
Atualização da rotina de calculo da quantidade estatística no embarque de importação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07734 Data: 09/12/2008 Hora: 13:48:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07734
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03400 - 00001 - 7.0 - 00001 - SALVAR ALTERAÇÃO REALIZADA NA QUANTIDADE ESTATISTICA
07544 - 00002 - 7.0 - 00007 - MELHORIAS DE NAVEGABILIDADE NO EMBARQUE
----------------------------------------------------------------------------------------------------
QUANTIDADE ESTATÍSTICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE QUANTIDADE ESTATÍSTICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001X01
REPT /PWS/SAPMZYCI001
TABD /PWS/ZYCIT003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM carrega_zycbe003.
READ TABLE it_ekpo_aux WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF NOT it_ekpo_aux IS INITIAL.
MOVE it_ekpo_aux-idnlf TO ekpo-idnlf.
ELSE.
MOVE itab_zycit003-idnlf TO ekpo-idnlf.
ENDIF.
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.
* >> Início da inclusão: FORM CARREGA_ZYCBE003
v_qtd_item = itab_zycit003-qtd_iten.
* << Fim da inclusão
CLEAR /pws/zycit078.
...
...
FORM qtd_est.
CHECK sy-tcode EQ '/PWS/ZYCI001_C'
OR sy-tcode EQ '/PWS/ZYCI001_A'.
* >> Início da exclusão: FORM QTD_EST
IF itab_zycit003-qtdeumest IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM QTD_EST
IF itab_zycit003-qtdeumest IS INITIAL OR
v_qtd_item NE /pws/zycie003-qtd_iten.
* << Fim da inclusão
IF t001-land1 IS INITIAL.
SELECT SINGLE *
FROM t001
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
unit_in_not_found = 8
unit_out_not_found = 9
OTHERS = 10.
IF sy-subrc = 0.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
* << Fim da inclusão
p_qtd = ( p_qtd / v_um_ren ) * v_um_rez.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ENDCATCH.
IF sy-subrc = 5.
MESSAGE w039 WITH text-486.
CLEAR p_qtd.
ENDIF.
* << Fim da inclusão
p_meins = v_umncm.
EXIT.
...
...
ENDIF.
ENDIF.
IF v_um_rez IS INITIAL
OR v_um_ren IS INITIAL.
EXIT.
ENDIF.
ELSE.
v_um_ren2 = 1.
v_um_rez2 = 1.
ENDIF.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
* << Fim da inclusão
p_qtd = p_qtd *
( ( v_um_rez / v_um_ren ) * ( v_um_ren2 / v_um_rez2 ) ).
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ENDCATCH.
IF sy-subrc = 5.
MESSAGE w039 WITH text-486.
CLEAR p_qtd.
ENDIF.
* << Fim da inclusão
p_meins = v_umncm.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
* >> Início da inclusão:
DATA v_qtd_item LIKE /pws/zycit003-qtd_iten.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 486
Texto: (48 caracteres)
"Estouro de campo no cálc. quantidade estatística"
Comprimento máximo: 100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT003
*Alteração do elemento de dados do campo QTDEUMEST
De : /PWS/ZYCIL347
Para: /PWS/ZYCIL193