CE PLUS - Nota 008093
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 20/02/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:40
Descrição da Nota: NOTAS FISCAIS NÃO SUGEREM O VALOR DO VOLUME DO BL
Sintoma
Ao criar uma Nota Fiscal Global ou Remessa a quantidade do Volume não era sugerida
Solução
Ao criar uma Nota fiscal verificar se existe Volume no BL para sugerir e gravar o que for passado
como parâmetro no Batch Input
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08093 Data: 20/02/2009 Hora: 15:04:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08093
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00086
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08071 - 00001 - 7.0 - 00008 - NOTA FISCAL DE REMESSA A INFORMAÇÃO DE NÚMERO VOLUME NÃO ERA PREE
----------------------------------------------------------------------------------------------------
NOTAS FISCAIS NÃO SUGEREM O VALOR DO VOLUME DO BL
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - GLOBAL - SUGERIR - VOLUME - BL - REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016X01
REPT /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit085-nrbl.
SELECT SINGLE tpembal quant descr meins
INTO (local_embal,it_zycee005-quant,it_zycee005-shpmrk,
it_zycee005-shpunt)
FROM /pws/zycit014
WHERE nrseq = /pws/zycit085-nrbl.
IF sy-subrc EQ 0.
SELECT SINGLE traty FROM /pws/zycit015 INTO it_zycee005-traty
WHERE tpembal = local_embal.
* >> Início da inclusão: FORM FILL_DATA_J1B1
v_quant = it_zycee005-quant.
CALL FUNCTION 'POPUP_TO_GET_VALUE'
EXPORTING
fieldname = 'QUANT'
tabname = '/PWS/ZYCEE005'
titel = Text-110
valuein = v_quant
IMPORTING
ANSWER = v_resp
VALUEOUT = v_quant
EXCEPTIONS
FIELDNAME_NOT_FOUND = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF v_resp = 'C'.
CLEAR: it_zycee005-quant,
it_zycee005-shpmrk,
it_zycee005-shpunt,
it_zycee005-traty,
local_embal.
ELSE.
it_zycee005-quant = v_quant.
ENDIF.
* << Fim da inclusão
IF NOT it_zycee005-shpunt IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = it_zycee005-shpunt
language = sy-langu
IMPORTING
output = v_mseh3
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
...
...
it_zycee005-shpmrk,it_zycee005-shpunt)
FROM /pws/zycit014
WHERE nrseq = /pws/zycit085-nrbl.
IF sy-subrc EQ 0.
SELECT SINGLE traty FROM /pws/zycit015 INTO
it_zycee005-traty
WHERE tpembal = local_embal.
IF sy-subrc EQ 0.
SELECT SINGLE traty FROM /pws/zycit015 INTO it_zycee005-traty
WHERE tpembal = local_embal.
* >> Início da inclusão: FORM FILL_DATA_J1B1
v_quant = it_zycee005-quant.
CALL FUNCTION 'POPUP_TO_GET_VALUE'
EXPORTING
fieldname = 'QUANT'
tabname = '/PWS/ZYCEE005'
titel = Text-110
valuein = v_quant
IMPORTING
ANSWER = v_resp
VALUEOUT = v_quant
EXCEPTIONS
FIELDNAME_NOT_FOUND = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF v_resp = 'C'.
CLEAR: it_zycee005-quant,
it_zycee005-shpmrk,
it_zycee005-shpunt,
it_zycee005-traty,
local_embal.
ELSE.
it_zycee005-quant = v_quant.
ENDIF.
* << Fim da inclusão
IF NOT it_zycee005-shpunt IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = it_zycee005-shpunt
language = sy-langu
IMPORTING
output = v_mseh3
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
...
...
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_data_j1b1_r.
DATA: v_tpnf LIKE /pws/zycit044-tpnf,
wa_zycit042_d LIKE /pws/zycit042,
wa_zycit044 LIKE /pws/zycit044.
DATA: local_embal LIKE /pws/zycit014-tpembal.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
DATA: v_resp TYPE C.
* << Fim da inclusão
CLEAR: wa_zycit048, e_subrc.
e_subrc = '0'.
REFRESH itab_zyglt100.
SELECT SINGLE * FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit048
...
...
FROM /pws/zycit014
WHERE nrseq = /pws/zycit085-nrbl.
IF sy-subrc EQ 0.
SELECT SINGLE traty FROM /pws/zycit015 INTO
it_zycee005-traty
WHERE tpembal = local_embal.
IF sy-subrc EQ 0.
SELECT SINGLE traty
FROM /pws/zycit015 INTO it_zycee005-traty
WHERE tpembal = local_embal.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
v_quant = it_zycee005-quant.
CALL FUNCTION 'POPUP_TO_GET_VALUE'
EXPORTING
fieldname = 'QUANT'
tabname = '/PWS/ZYCEE005'
titel = Text-110
valuein = v_quant
IMPORTING
ANSWER = v_resp
VALUEOUT = v_quant
EXCEPTIONS
FIELDNAME_NOT_FOUND = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF v_resp = 'C'.
CLEAR: it_zycee005-quant,
it_zycee005-shpmrk,
it_zycee005-shpunt,
it_zycee005-traty,
local_embal.
ELSE.
it_zycee005-quant = v_quant.
ENDIF.
* << Fim da inclusão
IF NOT it_zycee005-shpunt IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = it_zycee005-shpunt
language = sy-langu
IMPORTING
output = v_mseh3
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
DATA v_advicms TYPE p DECIMALS 3.
DATA v_exit(40).
DATA: t_fields(50) OCCURS 0 WITH HEADER LINE,
t_fields2(50) OCCURS 0 WITH HEADER LINE,
t_where(50) OCCURS 0 WITH HEADER LINE.
DATA v_nfe.
CONSTANTS c_x VALUE 'X'.
DATA: itab_zycit006 LIKE /pws/zycie006 OCCURS 0 WITH HEADER LINE.
DATA: v_coluna(20) TYPE c.
DATA: itab_zycit078 TYPE /pws/zycit078 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão:
DATA: v_quant(5) TYPE C.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI016
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 110
Texto: (19 caracteres)
"Enter the volume in"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 110
Texto: (19 caracteres)
"Informe o Volume em"
Comprimento máximo: 19