Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 03/05/2012 15:20:20
Data/Hora Última Alteração: 03/05/2012 15:20:20
Descrição da Nota: DUMP AO CARREGAR PLI
Sintoma
Dump ao carregar PLI
Solução
Atualizado programa para corrigir formato da casa decimal do campo fator dos itens da PLI antes de
fazer o cálculo
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12158 Data: 03/05/2012 Hora: 10:52:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12158
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12157 - 00001 - 8.0 - 00011 - AO ENTRAR NA PLI DÁ DUMP.
----------------------------------------------------------------------------------------------------
DUMP AO CARREGAR PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - DUMP - FATOR - ERRO PLI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM consiste_aplicacao.
DATA: v_destaque TYPE /pws/zycit079-destaque,
* >> Início da exclusão: FORM CONSISTE_APLICACAO
v_fator TYPE /pws/zycit079-fator ,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
IF sy-dynnr EQ '0502'.
READ TABLE it_ekpo WITH KEY ebeln = /pws/zycie079-ebeln
ebelp = /pws/zycie079-ebelp.
IF
NOT /pws/zycie079-fator IS INITIAL.
* >> Início da inclusão: MODULE CARREGA_ZYCIE079_400
v_fator = /pws/zycie079-fator.
REPLACE ',' WITH '.' INTO v_fator.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit338
WHERE matnr EQ it_ekpo-matnr
AND codsufra EQ it_zycit079-codsufra.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit219
WHERE codigo EQ /pws/zycit338-codsufra AND
ncm EQ /pws/zycie079-ncm
AND destaque EQ /pws/zycie079-destaque.
IF sy-subrc EQ 0.
IF /pws/zycit219-flagppb NE 'X'.
/pws/zycie079-qtdest = /pws/zycie079-qtd_iten *
* >> Início da exclusão: MODULE CARREGA_ZYCIE079_400
/pws/zycie079-fator.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE079_400
v_fator.
* << Fim da inclusão
ELSEIF /pws/zycit219-flagppb EQ 'X'.
/pws/zycie079-qtdest = /pws/zycie079-ntgew.
MOVE 'KG' TO /pws/zycie079-zum.
ENDIF.
ELSE.
/pws/zycie079-qtdest = /pws/zycie079-qtd_iten *
* >> Início da exclusão: MODULE CARREGA_ZYCIE079_400
/pws/zycie079-fator.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE079_400
v_fator.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
data v_fator TYPE /pws/zycit079-fator .
* << Fim da inclusão
DATA: END OF COMMON PART.