CE PLUS - Nota 012105
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Seguro
Data/Hora da Publicação: 11/04/2012 00:00:00
Data/Hora Última Alteração: 18/05/2012 14:50:47
Descrição da Nota: ALTERANDO FATURA DE SEGURO, CONTABILIZA NOVAMENTE MAS NÃO ACERTA CUSTO.
Sintoma
Alterando valor da fatura de seguro, contabiliza novamente deixando o documento contábil correto mas
não acerta custo.
Solução
Ajustar para recalcular o custo e fechar campos da fatura de frete se houver fatura de seguro para
não deixar rateio errado.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12105 Data: 11/04/2012 Hora: 10:42:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12105
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09532 - 00001 - 8.0 - 00002 - ESTORNO DE FATURA DE MERCADORIA EXISTINDO FATURA DE SEGURO/FRE
11419 - 00002 - 8.0 - 00008 - ERRO NO ESTORNO DA FATURA COM PRESTAÇÃO DE CONTAS COM VALOR REAL
12024 - 00003 - 8.0 - 00010 - CAMPOS HABILITADOS PARA ALTERAÇÃO QUANDO FATURA POSSUI DI.
----------------------------------------------------------------------------------------------------
ALTERANDO FATURA DE SEGURO, CONTABILIZA NOVAMENTE MAS NÃO ACERTA CUSTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE SEGURO - ALTERAÇÃO - CUSTO EFETIVO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI003 0101
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003X01
REPT /PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0101
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101
PROCESS BEFORE OUTPUT.
MODULE: load_param,
* >> Início da inclusão:
tp_fatura,
* << Fim da inclusão
set_screen,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
FORM dele_custo USING pcodigo ptype.
...
* >> Início da inclusão: FORM DELE_CUSTO
IF /pws/zycie006-tpfatura EQ '01'.
* << Fim da inclusão
REFRESH: itab_zycit036, itab_zycit263, it003.
* >> Início da exclusão: FORM DELE_CUSTO
IF /pws/zycie006-tpfatura EQ '01'.
* << Fim da exclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
...
...
DELETE FROM /pws/zycit036
WHERE codigo = pcodigo
AND origem = 'FAT'
AND nrseqori = /pws/zycie006-nrseq.
ENDIF.
ELSEIF /pws/zycie006-tpfatura EQ '11'.
* >> Início da inclusão: FORM DELE_CUSTO
REFRESH: itab_zycit036, itab_zycit263, it003.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
codigo = pcodigo AND
nrseqori = /pws/zycie006-nrseq AND
origem = 'FAT'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
WHEN 'DELE'.
IF /pws/zycie006-tpfatura EQ '01'.
CLEAR v_del.
PERFORM verifica_pc_vr CHANGING v_del.
IF v_del = 'X' .
MESSAGE e015 WITH text-186 text-215.
EXIT.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
ELSEIF /pws/zycie006-tpfatura EQ '02' AND
v_seg EQ 'X' .
MESSAGE i015 WITH text-220 text-221.
exit.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF v_di = 'X' .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF v_seg EQ 'X' AND
/pws/zycie006-tpfatura EQ '02' .
IF screen-name EQ '/PWS/ZYCIE006-DTINCL' OR
screen-name EQ '/PWS/ZYCIE006-VLFRE' OR
screen-name EQ '/PWS/ZYCIE006-DTVENCTO' OR
screen-name EQ '/PWS/ZYCIE006-LIFNR' OR
screen-name EQ '/PWS/ZYCIE006-PAQUIS' OR
screen-name EQ '/PWS/ZYCIE006-DTBASE' OR
screen-name EQ '/PWS/ZYCIE006-ZLSPR' OR
screen-name EQ '/PWS/ZYCIE006-ZLSCH' OR
screen-name EQ '/PWS/ZYCIE006-FHCAMBIO' .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie006-vlmerc IS INITIAL AND
/pws/zycie006-vlfre IS INITIAL AND
/pws/zycie006-vlseg IS INITIAL.
CLEAR /pws/zycie006-vltotal.
ENDIF.
WHEN '0106'.
...
...
WHEN '0'.
IF screen-name = '/PWS/ZYCIE006-DTBASE'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
WHEN '1'.
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE006-DTBASE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE006-DTBASE' and
v_seg ne 'X'.
* << Fim da inclusão
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDCASE.
ENDIF.
...
...
* >> Início da inclusão:
MODULE tp_fatura OUTPUT.
IF /pws/zycie006-tpfatura EQ '02'.
SELECT SINGLE * FROM /pws/zycit036
WHERE codigo = 'SEGURO'
AND codmod = 'D'
AND origem = 'FAT'
AND nrseq = /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_seg = 'X' .
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
data: v_seg.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 220
Texto: (27 caracteres)
"There is Insurance invoice."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 220
Texto: (24 caracteres)
"Existe fatura de seguro."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 220
Texto: (25 caracteres)
"Existe Factura de Seguro."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 221
Texto: (33 caracteres)
"Freight invoice can't be deleted."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 221
Texto: (39 caracteres)
"Fatura de frete não pode ser eliminada."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 221
Texto: (39 caracteres)
"Factura de frete no puede ser eliminada"
Comprimento máximo: 39