CE PLUS - Nota 003029
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 05/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:06:42
Descrição da Nota: AO CRIAR FATURA PARCIAL O SISTEMA CALCULA O PESO TOTAL DO EMBARQUE
Sintoma
Quando tentamos criar uma fatura com quantidades parciais de um item de pedido e utilizamos a forma
de rateio do Peso Líquido 'N', o sistema não está calculando o peso parcial para fazer a validação
do mesmo, trazendo a mensagem: "Peso do total dos itens, difere do peso da Fatura", impedindo salvar
a fatura. Ao entrar na fatura e alterar algum dado mesmo que não seja recontabilizado o sistema
estava alterando a data de vencimento.
Solução
Fazer o cálculo do peso líquido somente com os itens faturados.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03029 Data: 05/02/2007 Hora: 15:52:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03029
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02534 - 00001 - 6.0 - 00025 - AO ESTORNAR A FATURA, OCORRE DUMP.
02750 - 00002 - 6.0 - 00026 - FATURA MSG DE PESO LIQUIDO
----------------------------------------------------------------------------------------------------
AO CRIAR FATURA PARCIAL O SISTEMA CALCULA O PESO TOTAL DO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA PARCIAL - PESO TOTAL DO EMBARQUE - PESO LIQUIDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003TOP
REPS /PWS/MZYCI003X01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycit003-ntgew = /pws/zycie006-ntgew / v_val_plan_tot *
( itab_zycit003-netpr * itab_zycit003-toinv ).
ENDIF.
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
ENDIF.
MODIFY itab_zycit003.
ENDLOOP.
ELSEIF /pws/zycie006-rateio = 'N' AND NOT /pws/zycie006-ntgew IS
INITIAL.
CLEAR v_tot_frete.
* >> Início da inclusão: FORM CALCULA_PESO
if not itab_zycit003[] is initial.
select ebeln ebelp BPRME TWRKZ ntgew
from ekpo into table itab_ekpo
for all entries in itab_zycit003
where ebeln = itab_zycit003-ebeln and
ebelp = itab_zycit003-ebelp.
endif.
* << Fim da inclusão
LOOP AT itab_zycit003.
* >> Início da inclusão: FORM CALCULA_PESO
read table itab_ekpo with key ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp .
if sy-subrc eq 0.
itab_zycit003-ntgew =
itab_ekpo-ntgew * itab_zycit003-toinv.
endif.
* << Fim da inclusão
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
ENDLOOP.
IF v_tot_ntgew NE /pws/zycie006-ntgew.
* >> Início da exclusão: FORM CALCULA_PESO
MESSAGE w015 WITH text-071.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
message w015 with text-071 text-173 v_tot_ntgew.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycie006-rateio IS INITIAL.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIE006-RATEIO'.
IF screen-input = 0.
screen-required = 0.
MODIFY SCREEN.
ELSE.
MESSAGE e015 WITH text-057.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003TOP
...
dtcontr LIKE /pws/zycbt108-dtcontr.
DATA: END OF itab_zycbt108.
DATA: BEGIN OF itab_zycbt115 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab_zycbt115.
DATA: BEGIN OF itab_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
bprme LIKE ekpo-bprme,
twrkz LIKE ekpo-twrkz,
* >> Início da inclusão:
ntgew like ekpo-ntgew,
* << Fim da inclusão
END OF itab_ekpo.
DATA itab_ekkn_mult LIKE ekkn OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF itab_mara OCCURS 0.
DATA: matnr LIKE mara-matnr,
mfrpn LIKE mara-mfrpn.
DATA END OF itab_mara.
DATA BEGIN OF itab_serv OCCURS 0.
DATA: nrseq LIKE /pws/zycit001-nrseq,
modalidade LIKE /pws/zycit001-modalidade.
DATA END OF itab_serv.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
v_kurst LIKE /pws/zycit000-kurst ,
v_nrseq LIKE /pws/zycit001-nrseq ,
v_awkey LIKE bkpf-awkey ,
v_existe_lc TYPE c ,
v_descfab(01) ,
v_recebi,
v_dtvencto LIKE /pws/zycie006-dtvencto,
v_obrig,
v_belnr_ant LIKE /pws/zycie006-belnr_p,
e_estorno(10).
* >> Início da inclusão:
data: vsubrc type sy-subrc.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 172
Texto: (15 caracteres)
"Peso da Fatura:"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 173
Texto: (21 caracteres)
"Peso total dos itens:"
Comprimento máximo: 21