Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração Despacho Exportação DDE
Data/Hora da Publicação: 13/08/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 10:49:26
Descrição da Nota: AJUSTE DDE (TOTCOND)_JPY
Sintoma
Ao se criar a "DDE", o valor do campo "Total Cond. Vda dos R.E. dos despachos (na moeda neg.)"
"/PWS/ZYCEE120-TOTCOND" fica com a formatação incorreta, já que a moeda é JPY.
Solução
Ajuste no programa de Declaração de Despacho (/PWS/SAPMZYCE017), realizado um SELECT no subprograma
DATA_SELECT para o valor do campo "PWS/ZYCEE120-TOTCOND", de modo que os valores sejam formatados de
acordo com a moeda usada.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04400 Data: 13/08/2007 Hora: 09:47:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04400
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
AJUSTE DDE (TOTCOND)_JPY
----------------------------------------------------------------------------------------------------
Palavras Chave:
NO ATO DA CRIAÇÃO DO DDE O VALOR DO CAMPO "TOTAL COND. VDA DOS R.E. DOS
DESPACHOS (NA MOEDA NEG.)" NÃO É GRAVADO COM A FORMATAÇÃO CORRETA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE107F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107F01
...
SELECT *
INTO /pws/zycee120
FROM /pws/zycet120 UP TO 1 ROWS
WHERE nrseq = /pws/zycee120-nrseq.
ENDSELECT.
IF sy-subrc EQ 0.
IF sy-tcode = c_code_c.
MESSAGE a001 WITH text-007 /pws/zycee120-nrseqsd.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM DATA_SELECT
SELECT SINGLE WAERS
FROM /pws/zycet008
INTO /pws/zycee120-waers
WHERE nrseq = /pws/zycee120-nrseq.
* << Fim da inclusão
IF sy-tcode EQ c_code_c.
PERFORM consiste_inspecao.
CALL SCREEN '0100'.
ELSE.
CALL SCREEN '0100'.
ENDIF.
ENDFORM.
FORM data_lock USING p_submit TYPE c.
CHECK sy-tcode = c_code_c OR
sy-tcode = c_code_a.
...