Sintoma

No relatório de comissão de agente, após ser feito agrupamento de faturas, estas deixam de aparecer

no relatório, no entanto, independente se houver registro na tabela /pws/zycbt001, a fatura deverá

aparecer.

Solução

Incluso tratamento para o campo belnr da tabela /pws/zycbt005.

Informações Complementares

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

Nota Número 01134 Data: 03/04/2006 Hora: 14:31:40

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

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

Nota Número              : 01134

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REL. COMISSÃO AGENTE,QDO AGRUPA FATURAS,ESTAS DEIXAM DE APARECER NO REL.

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

Palavras Chave:

RELATÓRIO COMISSÃO DE AGENTE AGRUPAMENTO DE FATURAS NÃO APARECE NO REL.

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

Objetos da nota:

REPS /PWS/ZYCBR027

REPT /PWS/ZYCBR027

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

Modificações efetuadas em REPS /PWS/ZYCBR027

...

    gsberf   TYPE /pws/zycbt005-gsberf,

    dtvincul TYPE /pws/zycbt005-dtvincul,

    dtvencto TYPE /pws/zycbt005-dtvencto,

    bconegoc TYPE /pws/zycbt005-bconegoc,

    slpagar  TYPE /pws/zycbt005-slpagar,

* >> Início da inclusão:

    belnr    type /pws/zycbt005-belnr,

* << Fim da inclusão

  END OF t_zycbt005,

  BEGIN OF t_zycbt006,

    nrseqc   TYPE /pws/zycbt006-nrseqc,

    tpdesp   TYPE /pws/zycbt006-tpdesp,

    nrparc   TYPE /pws/zycbt006-nrparc,

...

...

    nbconeg      TYPE lfa1-name1,

    nbcooper     TYPE lfa1-name1,

    vlcomis      TYPE /pws/zycet010-vlcomis,

    waers        TYPE /pws/zycbt017-waers,

    dtemb        TYPE /pws/zycet001-dtemb,

* >> Início da inclusão:

    dtbl         type /pws/zycbt017-dtbl,

* << Fim da inclusão

    dtaverb      TYPE /pws/zycet001-dtaverb,

    dtvencto     TYPE /pws/zycet010-dtvencto,

    dtpagto      TYPE /pws/zycet010-dtpagto,

    name1        TYPE kna1-name1,

    name         TYPE lfa1-name1,

...

...

    nbcooper     TYPE lfa1-name1,

    vlcomis      TYPE /pws/zycet010-vlcomis,

    waers        TYPE /pws/zycbt017-waers,

    percomis(10) TYPE c,

    dtemb        TYPE /pws/zycet001-dtemb,

* >> Início da inclusão:

    dtbl         type /pws/zycbt017-dtbl,

* << Fim da inclusão

    dtaverb      TYPE /pws/zycet001-dtaverb,

    dtvencto     TYPE /pws/zycet010-dtvencto,

    dtpagto      TYPE /pws/zycet010-dtpagto,

    dtpgtofat    TYPE /pws/zycbt006-dtpagto,

    nrsd         TYPE /pws/zycbt017-nrsd,

...

...

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE kunnr EQ itab_zycbt017-kunag.

    SELECT

      nrseqc   tpdesp   nrparc   dtincl  nrinvoic nrparcf gsberf

      dtvincul dtvencto bconegoc slpagar

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

      belnr

* << Fim da inclusão

      FROM /pws/zycbt005

      INTO TABLE itab_zycbt005

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE

        nrinvoic EQ itab_zycbt017-nrinvoic AND

...

...

               v_slpagar,

               v_lin_bco.

      REFRESH: itab_bconegoc.

      LOOP AT itab_zycbt005 WHERE nrinvoic = itab_zycbt017-nrinvoic AND

                                  nrparcf  = itab_zycbt017-nrparcf  AND

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

                                  gsberf   = itab_zycbt017-gsberf.

* << Fim da exclusão

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

                                  gsberf   = itab_zycbt017-gsberf   and

                                  belnr    <> ' '.

* << Fim da inclusão

        v_slpagar = v_slpagar + itab_zycbt005-slpagar.

        IF itab_zycbt005-bconegoc IS INITIAL.

          CONTINUE.

        ENDIF.

        itab_bconegoc-bconegoc = itab_zycbt005-bconegoc.

...

...

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE kunnr EQ itab_zycbt017-kunag.

    SELECT

      nrseqc   tpdesp   nrparc dtincl nrinvoic nrparcf gsberf dtvincul

      dtvencto bconegoc slpagar

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

      belnr

* << Fim da inclusão

      FROM /pws/zycbt005

      INTO TABLE itab_zycbt005

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE

        nrinvoic EQ itab_zycbt017-nrinvoic AND

...

...

               v_slpagar,

               v_lin_bco.

      REFRESH: itab_bconegoc.

      LOOP AT itab_zycbt005 WHERE nrinvoic = itab_zycbt017-nrinvoic AND

                                  nrparcf  = itab_zycbt017-nrparcf  AND

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

                                  gsberf   = itab_zycbt017-gsberf.

* << Fim da exclusão

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

                                  gsberf   = itab_zycbt017-gsberf   and

                                  belnr    <> ' '.

* << Fim da inclusão

        v_slpagar = v_slpagar + itab_zycbt005-slpagar.

        IF itab_zycbt005-bconegoc IS INITIAL.

          CONTINUE.

        ENDIF.

        itab_bconegoc-bconegoc = itab_zycbt005-bconegoc.

...

...

            itab_registro-nbcooper TO i_result-nbcooper,

            itab_registro-waers    TO i_result-waers,

            itab_registro-status   TO i_result-status,

            itab_registro-gsber    TO i_result-gsber,

            itab_registro-nrseq_   TO i_result-nrseq_,

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

            itab_registro-bukrs    TO i_result-bukrs.

* << Fim da exclusão

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

            itab_registro-bukrs     TO i_result-bukrs,

            itab_registro-parvw     TO i_result-parvw,

            itab_registro-nrseq     TO i_result-nrseq,

            itab_registro-nremb     TO i_result-nremb,

            itab_registro-kunag     TO i_result-kunag,

            itab_registro-name      TO i_result-name,

            itab_registro-nrsd      TO i_result-nrsd,

            itab_registro-name1     TO i_result-name1,

            itab_registro-nbconeg   TO i_result-nbconeg,

            itab_registro-nbcooper  TO i_result-nbcooper,

            itab_registro-status    TO i_result-status,

            itab_registro-gsber     TO i_result-gsber,

            itab_registro-bstkd     TO i_result-bstkd,

            itab_registro-nrseq_    TO i_result-nrseq_,

            itab_registro-waers     TO i_result-waers,

            itab_registro-percomis  TO i_result-percomis,

            itab_registro-dtemb     TO i_result-dtemb,

            itab_registro-dtbl      TO i_result-dtbl,

            itab_registro-dtvencto  TO i_result-dtvencto,

            itab_registro-submi     TO i_result-submi,

            itab_registro-dtpagto   TO i_result-dtpagto,

            itab_registro-dtpgtofat TO i_result-dtpgtofat,

            itab_registro-prctr     TO i_result-prctr.

* << Fim da inclusão

      APPEND i_result.

    ENDIF.

  ENDLOOP.

  LOOP AT i_result.

    CLEAR i_final.

...

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

Modificações efetuadas em REPT /PWS/ZYCBR027