CE PLUS - Nota 008071
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 21/01/2014 14:53:26
Data/Hora Última Alteração: 21/01/2014 14:53:26
Descrição da Nota: NOTA FISCAL DE REMESSA A INFORMAÇÃO DE NÚMERO VOLUME NÃO ERA PREENCHIDO
Sintoma
Ao criar uma Nota Fiscal de Remessa a informação de NÚMERO VOLUME da pasta Transportes da NF não era
trazida do BL.
Solução
Implementar o tramamento do NÚMERO DO VOLUME na Nota Fiscal de Remessa para levar esta informação do
BL para a pasta transporte da Nota Fiscal de Remessa
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08071 Data: 17/02/2009 Hora: 16:02:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08071
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
----------------------------------------------------------------------------------------------------
NOTA FISCAL DE REMESSA A INFORMAÇÃO DE NÚMERO VOLUME NÃO ERA PREENCHIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - VOLUME - NÚMERO - BL
TRANSPORTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
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.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
DATA: local_embal LIKE /pws/zycit014-tpembal.
* << 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
...
...
IF NOT itab_zycit044[] IS INITIAL.
SELECT * FROM ekpo
INTO CORRESPONDING FIELDS OF TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit044
WHERE ebeln = itab_zycit044-ebeln AND
ebelp = itab_zycit044-ebelp.
ENDIF.
PERFORM clear_date_batch.
PERFORM cabecalho_nf_r.
PERFORM peso_remessa_n.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
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.
IF sy-subrc EQ 0.
SELECT SINGLE traty
FROM /pws/zycit015 INTO it_zycee005-traty
WHERE tpembal = local_embal.
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.
ENDIF.
it_zycee005-shpunt = v_mseh3.
ENDIF.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit044 INDEX 1.
SELECT SINGLE modalidade FROM /pws/zycit001 INTO v_modalidade
WHERE nrseq = itab_zycit044-nrseq.
IF /pws/zycie043-nfexterna EQ 'X'.
it_zycee005-nftype = wa_zycit048-catnfextr.
it_zycee005-nfnum = itab_zycit044-nfnum.
it_zycee005-series = itab_zycit044-series.
it_zycee005-subser = itab_zycit044-subser.
ELSE.
IF v_urf2 EQ '1'.
...