CE PLUS - Nota 002784
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 29/12/2006 00:00:00
Data/Hora Última Alteração: 08/03/2010 16:38:03
Descrição da Nota: LEVAR PARA A NF O PESO BRUTO DESEMBARCADO DO BL EM EMBARQUES A GRANEL
Sintoma
Esta levando o peso bruto incorreto para a nota fiscal quando o embarque é a granel.
Solução
Realizado ajuste para ao criar a nota fiscal levar o peso bruto desembarcado do BL para embarques a
granel.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02784 Data: 29/12/2006 Hora: 11:02:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02784
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LEVAR PARA A NF O PESO BRUTO DESEMBARCADO DO BL EM EMBARQUES A GRANEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
SELECT SINGLE bezei INTO v_descr
FROM tinct
WHERE spras EQ sy-langu
AND inco1 EQ wa_zycit001-inco1.
ENDFORM.
FORM peso_global_sep.
DATA: local_tntgew LIKE itab_zycit003_aux-ntgew.
LOOP AT itab_zycit003_aux.
local_tntgew = local_tntgew + itab_zycit003_aux-ntgew.
ENDLOOP.
* >> Início da inclusão: FORM PESO_GLOBAL_SEP
IF v_graneis EQ 'S'.
IF NOT /pws/zycit093-brgewd IS INITIAL.
/pws/zycit093-brgew = /pws/zycit093-brgewd.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR: v_ntgew, v_brgew.
LOOP AT itab_zycit003_aux
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
v_ntgew = v_ntgew + itab_zycit003_aux-ntgew.
v_brgew = v_brgew + ( ( itab_zycit003_aux-ntgew / local_tntgew ) *
/pws/zycit093-brgew ).
ENDLOOP.
it_zycee005-ntgew = it_zycee005-ntgew + v_ntgew.
...
...
FOR ALL ENTRIES IN itab_zycit003_aux
WHERE nrseq = itab_zycit003_aux-nrseq.
ENDIF.
LOOP AT itab_zycit003_aux.
v_tabix = sy-tabix.
SELECT SINGLE * FROM ekpo
WHERE ebeln = itab_zycit003_aux-ebeln
AND ebelp = itab_zycit003_aux-ebelp.
MOVE ekpo TO itab_ekpo.
APPEND itab_ekpo.
* >> Início da exclusão: FORM CABECALHO_NF
IF NOT itab_zycit003_aux-qtd_iten IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CABECALHO_NF
IF NOT itab_zycit003_aux-qtd_itend IS INITIAL.
* << Fim da inclusão
v_graneis = 'S'.
IF NOT itab_zycit003_aux-ntgewd IS INITIAL.
itab_zycit003_aux-ntgew = itab_zycit003_aux-ntgewd.
MODIFY itab_zycit003_aux INDEX v_tabix.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
...
...
IF NOT itab_resum-codigo IS INITIAL.
/pws/zycie036-waers = text-042.
ENDIF.
ENDFORM.
FORM peso_global_sep_c.
DATA: local_tntgew LIKE itab_zycit003_aux-ntgew.
CLEAR: v_ntgew, v_brgew.
LOOP AT itab_zycit003_aux.
local_tntgew = local_tntgew + itab_zycit003_aux-ntgew.
ENDLOOP.
* >> Início da inclusão: FORM PESO_GLOBAL_SEP_C
IF v_graneis EQ 'S'.
IF NOT /pws/zycit093-brgewd IS INITIAL.
/pws/zycit093-brgew = /pws/zycit093-brgewd.
ENDIF.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit003_aux
WHERE ebeln = itab_zycit042_c3-ebeln
AND ebelp = itab_zycit042_c3-ebelp.
v_ntgew = v_ntgew + itab_zycit003_aux-ntgew.
v_brgew = v_brgew + ( ( itab_zycit003_aux-ntgew / local_tntgew ) *
/pws/zycit093-brgew ).
ENDLOOP.
it_zycee005-ntgew = it_zycee005-ntgew + v_ntgew.
it_zycee005-brgew = it_zycee005-brgew + v_brgew.
it_zycee005-gewei = text-038.
...