Sintoma

Ao estornar a FB08 não está tratando o motivo de acordo com o  parâmetro da /PWS/ZYCBT007.

Solução

Fazer tratamento para motivo de estorno da FB08 na Fatura

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02202 Data: 04/10/2006 Hora: 10:35:54

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 02202

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00134

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02033  - 00001 - 6.0    - 00024  - ESTORNO DE UMA FATURA, SE O MÊS DE LANÇAMENTO ORIGINAL ESTIVER FE

02158  - 00002 - 6.0    - 00025  - SISTEMA ACUSA ERRO DE MOTIVO AO ESTORNAR FB08 EM VÁRIAS FUNCIONAL

----------------------------------------------------------------------------------------------------

TRATAMENTO PARA MOTIVO DE ESTORNO DA FB08 NA PREST.CONTAS DA

----------------------------------------------------------------------------------------------------

Palavras Chave:

MOTIVO DE ESTORNO - FB08 - PARÂMETROS - /PWS/ZYCBT007

PERÍODO CONTÁBIL ABERTO / FECHADO - PRESTAÇÃO DE CONTAS DA

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI075F02

REPS /PWS/MZYCI075TOP

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI075F02

...

  it_zycbe033-gjahs  = it_zycbe033-bldat+0(4).

  v_belnr_ant = /pws/zycie459-docfat.

  SELECT SINGLE *

    FROM /pws/zycbt007

    WHERE bukrs EQ /pws/zycie459-bukrs.

* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08

  it_zycbe033-stgrd = /pws/zycbt007-percorr.

* << Fim da exclusão

* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08

  CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

       EXPORTING

            v_data  = /pws/zycie459-dtlanc

            v_bukrs = /pws/zycie459-bukrs

            v_koart = 'K'

       IMPORTING

            v_subrc = vsubrc

            v_gjahr = it_zycbe033-gjahr .

  IF vsubrc  = 0.

    it_zycbe033-budat  = /pws/zycie459-dtlanc.

    it_zycbe033-stgrd  = /pws/zycbt007-percorr.

  ELSE.

    it_zycbe033-budat  = sy-datum.

    it_zycbe033-stgrd  = /pws/zycbt007-perencer .

  ENDIF.

* << Fim da inclusão

  APPEND it_zycbe033.

* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08'

* << Fim da exclusão

* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'

* << Fim da inclusão

       EXPORTING

            v_modo          = v_modo_bi

       TABLES

            t_dados         = it_zycbe033

            t_campo         = it_zycbt034

...

...

  it_zycbe033-budat  = /pws/zycie459-dtlanc.

  it_zycbe033-gjahs  = it_zycbe033-bldat+0(4).

  SELECT SINGLE *

    FROM /pws/zycbt007

    WHERE bukrs EQ /pws/zycie459-bukrs.

* >> Início da exclusão: FORM BI_FB08

  it_zycbe033-stgrd = /pws/zycbt007-percorr.

* << Fim da exclusão

* >> Início da inclusão: FORM BI_FB08

  CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

       EXPORTING

            v_data  = /pws/zycie459-dtlanc

            v_bukrs = /pws/zycie459-bukrs

            v_koart = 'K'

       IMPORTING

            v_subrc = v_subrc

            v_gjahr = it_zycbe033-gjahr .

  IF v_subrc  = 0.

    it_zycbe033-budat  = /pws/zycie459-dtlanc.

    it_zycbe033-stgrd  = /pws/zycbt007-percorr.

  ELSE.

    it_zycbe033-budat  = sy-datum.

    it_zycbe033-stgrd  = /pws/zycbt007-perencer .

  ENDIF.

* << Fim da inclusão

  APPEND it_zycbe033.

* >> Início da exclusão: FORM BI_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08'

* << Fim da exclusão

* >> Início da inclusão: FORM BI_FB08

  CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'

* << Fim da inclusão

       EXPORTING

            v_modo          = v_modo_bi

       TABLES

            t_dados         = it_zycbe033

            t_campo         = it_zycbt034

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI075TOP

...

      v_import(18),

      v_cgc_imp      LIKE j_1bwfield-cgc_number,

      v_desc_imp     LIKE j_1bbranch-name      ,

      v_cnpj_imp(18),

      v_tot_vldp     LIKE /pws/zycit036-vlreal,

* >> Início da exclusão:

      v_subrc,

* << Fim da exclusão

* >> Início da inclusão:

      v_subrc ,

      vsubrc type sy-subrc,

* << Fim da inclusão

      v_sort(30),

      v_plan         LIKE /pws/zycit443-netpr,

      v_sort2(30),

      v_nivel_tsr_desc LIKE t036t-ktext,

      v_catir(2),

...