CE PLUS - Nota 009710
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 20/01/2010 00:00:00
Data/Hora Última Alteração: 10/03/2010 11:33:44
Descrição da Nota: AO VINCULAR LI E CRIAR FATURA, VERIFICAR PESO LÍQUIDO DOS ITENS.
Sintoma
Ao vincular LI e criar fatura é necessário verificar peso líquido dos itens.
Solução
Ao vincular LI e criar fatura, verificar peso líquido dos itens.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09710 Data: 20/01/2010 Hora: 15:34:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09710
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO VINCULAR LI E CRIAR FATURA, VERIFICAR PESO LÍQUIDO DOS ITENS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - LI - FATURA - PESO LÍQUIDO - NTGEW
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI003F01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
MOVE: itab_zycit078-numpexpam TO itab_zycit003-numpexpam,
itab_zycit078-anopexpam TO itab_zycit003-anopexpam.
IF NOT itab_zycit003-numpexpam IS INITIAL OR
NOT itab_zycit003-anopexpam IS INITIAL.
CONCATENATE text-125 itab_zycit079-ebelp text-126
itab_zycit079-ebeln INTO v_pexpam SEPARATED
BY space.
itab_logpexpam-line = v_pexpam.
APPEND itab_logpexpam.
ENDIF.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR /pws/zycit006.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit003-nrseq_pgfat
AND nrseq_pgfat NE space.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM VINCULACAO_LI
CLEAR: v_descrlog.
IF itab_zycit079-ntgew NE itab_zycit003-ntgew.
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
v_char1 = itab_zycit079-ntgew .
v_char2 = itab_zycit003-ntgew .
CLEAR v_descrlog.
CONCATENATE text-483 v_char1
text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
ENDIF.
* << Fim da exclusão
IF /pws/zycie001-tpdecl EQ 'DI'.
CLEAR: v_descrlog.
IF itab_zycit078-fabric NE itab_zycit003-fabric.
CONCATENATE text-088 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
...
...
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codinst
text-484 /pws/zycit006-codinst
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* >> Início da inclusão: FORM VINCULACAO_LI
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM VINCULACAO_LI
ENDIF.
CLEAR: v_descrlog.
IF itab_zycit079-ntgew NE itab_zycit003-ntgew.
IF /pws/zycit006 IS INITIAL.
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-082
INTO v_descrlog SEPARATED BY space.
ELSE .
CONCATENATE text-087 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM VINCULACAO_LI
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
v_char1 = itab_zycit079-ntgew .
v_char2 = itab_zycit003-ntgew .
CLEAR v_descrlog.
CONCATENATE text-483 v_char1
text-484 v_char2
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
* << Fim da inclusão
ENDIF.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ /pws/zycie001-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
SELECT * FROM /pws/zycit114
INTO TABLE it_zycit114
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
FORM salvar_dados.
* >> Início da inclusão: FORM SALVAR_DADOS
DATA: BEGIN OF itab_zycit079 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit079.
DATA: END OF itab_zycit079.
* << Fim da inclusão
...
IF /pws/zycie006-ntgew IS INITIAL.
v_stop = 'X'.
EXIT.
ENDIF.
PERFORM trata_fabricante.
LOOP AT itab_zycit003 WHERE servico EQ 'X'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i001 WITH text-129.
v_stop = 'X'.
* >> Início da inclusão: FORM SALVAR_DADOS
ENDIF.
SELECT * FROM /pws/zycit079
INTO TABLE itab_zycit079
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
LOOP AT itab_zycit003 WHERE nrseqli NE space.
READ TABLE itab_zycit079 WITH KEY
nrseqli = itab_zycit003-nrseqli
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp .
IF sy-subrc EQ 0 AND itab_zycit003-ntgew NE itab_zycit079-ntgew.
MESSAGE w015 WITH text-194.
v_stop = 'X'.
EXIT.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_prof = 'X' AND /pws/zycit001-dt_recorigem IS INITIAL.
MESSAGE i015 WITH text-124.
v_stop = 'X'.
ENDIF.
IF /pws/zycie006-fabricante = '2'.
LOOP AT itab_zycit003 WHERE fabric IS initial.
ENDLOOP.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 194
Texto: (38 caracteres)
"Weight item is diferent from LI weight"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 194
Texto: (43 caracteres)
"Peso do item difere do peso da LI vinculada"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 194
Texto: (36 caracteres)
"Peso del Item difiere del peso de LI"
Comprimento máximo: 50