CE PLUS - Nota 003458
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 13/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:10:59
Descrição da Nota: AJUSTE PARA PREENCHER CORRETAMENTE A UNIDADE ESTATISTICA
Sintoma
O campo meinsest da tabela /pws/zycit003 não está sendo preenchido com a unidade estatistica.
Solução
Ajustar o programa para que o campo seja preenchido com o retorno do perform de conversão da unidade
estatistica.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03458 Data: 13/04/2007 Hora: 14:58:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03458
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00161
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02878 - 00001 - 6.0 - 00026 - AJUSTE NA CONVERSÃO DA QUANTIDADE NA UM ESTATISTICA NO EMBARQUE
03035 - 00002 - 6.0 - 00000 - A CADA ENTER NO EMBARQUE, O SISTEMA EXIBE A MSG DE ERRO DE UM SIS
03400 - 00003 - 7.0 - 00001 - SALVAR ALTERAÇÃO REALIZADA NA QUANTIDADE ESTATISTICA
----------------------------------------------------------------------------------------------------
AJUSTE PARA PREENCHER CORRETAMENTE A UNIDADE ESTATISTICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
UNIDADE - ESTATISTICA - EMBARQUE
/PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF t001-land1 IS INITIAL.
SELECT SINGLE *
FROM t001
WHERE bukrs = /pws/zycie001-bukrs.
ENDIF.
IF NOT itab_zycit003-matnr IS INITIAL .
MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,
itab_zycit003-meins TO itab_zycit003-meinsest.
PERFORM converte_um_ncm USING itab_zycit003-matnr
CHANGING itab_zycit003-meinsest
* >> Início da inclusão: FORM QTD_EST
itab_zycit003-werks
* << Fim da inclusão
itab_zycit003-qtdeumest.
/pws/zycie003-qtdeumest = itab_zycit003-qtdeumest.
* >> Início da inclusão: FORM QTD_EST
/pws/zycie003-meinsest = itab_zycit003-meinsest.
* << Fim da inclusão
ENDIF.
v_flag_qtdest = 'X'.
ENDIF.
ENDFORM.
FORM verifica_mat_cent TABLES p_it_ekpo STRUCTURE it_ekpo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
ENDIF.
itab_zycit003-menge = itab_zycit003_aux-menge.
ENDIF.
ENDIF.
IF itab_zycit003-ntgew IS INITIAL
AND itab_zycit003-gewei IS INITIAL
AND itab_zycit003-meins EQ 'KG'.
itab_zycit003-ntgew = itab_zycit003-menge.
itab_zycit003-gewei = itab_zycit003-meins.
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_ITENS
SELECT SINGLE /pws/zum FROM t604f INTO itab_zycit003-meinsest
WHERE land1 EQ 'BR '
AND steuc EQ itab_zycit003-j_1bnbm.
* << Fim da exclusão
CLEAR itab_zycit003_aux.
ENDFORM.
FORM verifica_peso.
ENDFORM.
FORM casas_decimais.
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie001-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
/pws/zycie001-netpr = /pws/zycie001-netpr * ( 10 ** ( tcurx-currdec -
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
EXIT.
ELSEIF v_resposta EQ 'N'.
v_manual = 'N'.
ELSE.
CLEAR v_manual.
ENDIF.
CLEAR v_resposta.
ENDFORM.
FORM converte_um_ncm USING p_matnr
CHANGING p_meins
* >> Início da inclusão: FORM CONVERTE_UM_NCM
p_werks
* << Fim da inclusão
p_qtd.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_meinsb LIKE marm-meinh,
v_um_rez TYPE i,
v_um_ren TYPE i,
v_um_rez2 TYPE i,
v_um_ren2 TYPE i,
v_um_rez1 LIKE marm-umrez,
v_um_ren1 LIKE marm-umren,
v_j_1bnbm LIKE /pws/zycit247-j_1bnbm,
v_umncm LIKE /pws/zyglt204-msehi ,
v_qtd_ncm LIKE /pws/zycit247-qtd_ncm.
DATA: v_conv1 TYPE /pws/zycit245-qtd_ncm,
v_conv2 TYPE /pws/zycit245-qtd_ncm.
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
CLEAR v_cod_umncm.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
SELECT SINGLE steuc INTO v_j_1bnbm
FROM marc
WHERE matnr EQ p_matnr
AND steuc NE space
AND werks EQ p_werks.
IF sy-subrc NE 0.
* << Fim da inclusão
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1.
* >> Início da inclusão: FORM CONVERTE_UM_NCM
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
...