CE PLUS - Nota 001876
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 04/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:54:41
Descrição da Nota: ERRO AO ESTORNAR AO ESTORNAR DOCTOS CONTÁBEIS E SISTEMA GRAVA COMO DC
Sintoma
Nos embarques de material + serviço quando entramos exibindo as faturas de serviços o sistema
permite estornar os documentos contábeis de recebimento e quando estornamos os documentos contábeis
de recebimento da MERCADORIA, o sistema os grava no resumo de documentos como documentos de Débito
em Conta.O sistema também permitia que estornasse a fatura de serviço, sem estornar o recebimento.
Solução
Ajustar campos ao estornar e textos de relatório .
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01876 Data: 04/08/2006 Hora: 10:26:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01876
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO AO ESTORNAR AO ESTORNAR DOCTOS CONTÁBEIS E SISTEMA GRAVA COMO DC
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE SERVIÇO - ESTORNO DE DOCUMENTOS CONTÁBEIOS
RECEBIMENTO - MERCADORIA - DÉBITO EM CONTA - RESUMO DOCTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
REPS /PWS/ZYCIR012
REPT /PWS/ZYCIR012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDIF.
itab_zycbt035_aux-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
IF NOT itab_ekkn-ps_psp_pnr IS INITIAL.
/pws/zycie006-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
ENDIF.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
itab_zycbt035_aux-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
if not itab_ekkn-ps_psp_pnr is initial.
/pws/zycie006-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
endif.
* << Fim da inclusão
IF /pws/zycie006-tpfatura EQ '11'.
IF /pws/zycit000-clucro_ia = ' '.
CLEAR: itab_zycbt035-c_kostl,
itab_zycbt035-d_kostl.
ENDIF.
...
...
itab_zycbt035-d_newko TO /pws/zycbt141-saknr1 ,
itab_zycbt035-d_kostl TO /pws/zycbt141-kostl ,
itab_zycbt035-d_prctr TO /pws/zycbt141-prctr ,
itab_zycbt035-aufnr TO /pws/zycbt141-aufnr ,
/pws/zycie006-ps_psp_pnr TO /pws/zycbt141-ps_psp_pnr ,
* >> Início da inclusão: FORM CRIA_REMESSA
/pws/zycie006-ps_psp_pnr to /pws/zycbt141-ps_posid ,
* << Fim da inclusão
itab_zycbt035-d_fipos TO /pws/zycbt141-fipos ,
itab_zycbt035-d_fictr TO /pws/zycbt141-fictr ,
itab_zycbt035-d_gsber TO /pws/zycbt141-gsber ,
itab_zycbt035-wrbtr TO /pws/zycbt141-vlremessa .
MODIFY /pws/zycbt141 FROM /pws/zycbt141.
...
...
itab_zycbt035-d_newko TO /pws/zycbt141-saknr1 ,
itab_zycbt035-d_kostl TO /pws/zycbt141-kostl ,
itab_zycbt035-d_prctr TO /pws/zycbt141-prctr ,
itab_zycbt035-aufnr TO /pws/zycbt141-aufnr ,
/pws/zycie006-ps_psp_pnr TO /pws/zycbt141-ps_psp_pnr ,
* >> Início da inclusão: FORM CRIA_REMESSA
/pws/zycie006-ps_psp_pnr to /pws/zycbt141-ps_posid ,
* << Fim da inclusão
itab_zycbt035-d_fipos TO /pws/zycbt141-fipos ,
itab_zycbt035-d_fictr TO /pws/zycbt141-fictr ,
itab_zycbt035-d_gsber TO /pws/zycbt141-gsber ,
itab_zycbt035-wrbtr TO /pws/zycbt141-vlremessa .
MODIFY /pws/zycbt141 FROM /pws/zycbt141.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF t001-land1 NE 'CL'.
itab_pf_status-fcode = 'FRETECLP'.
APPEND itab_pf_status.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0100
IF /pws/zycie006-tpfatura eq '11' and
( NOT /pws/zycie006-belnr_mr1m IS INITIAL OR
NOT /pws/zycie006-mblnr_mb01 IS INITIAL OR
NOT /pws/zycie006-belnr_f_51 IS INITIAL ).
itab_pf_status-fcode = 'DELE'.
APPEND itab_pf_status.
ENDIF.
* << Fim da inclusão
SET PF-STATUS '0100' EXCLUDING itab_pf_status.
ENDIF.
IF sy-tcode = '/PWS/ZYCI003_R' OR v_status_s = 0 OR
( sy-tcode = '/PWS/ZYCI003_L' AND v_exibe_fat IS INITIAL ).
itab_pf_status-fcode = 'ELIM'.
...
...
itab_pf_status-fcode = 'FABR'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'DET'.
APPEND itab_pf_status.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0100
itab_pf_status-fcode = 'REC'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'ESTOR'.
APPEND itab_pf_status.
IF sy-tcode = '/PWS/ZYCI003_E'.
* << Fim da inclusão
itab_pf_status-fcode = 'REC'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'ESTOR'.
APPEND itab_pf_status.
* >> Início da inclusão: MODULE STATUS_0100
ENDIF.
* << Fim da inclusão
IF /pws/zycie006-tpfatura NE '02' .
itab_pf_status-fcode = 'FRETECLP'.
APPEND itab_pf_status.
ELSE.
IF t001-land1 NE 'CL'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCIR012
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 126
Texto: (24 caracteres)
"Recebimento - NF Cancel."
Comprimento máximo: 24