Sintoma

A coluna "Vl. Total da Fatura" deve trazer o VLAVINC da T017 (FOB + frete + seguro + comag), porém

está trazendo zerado apesar do campo não estar zerado na tabela.

Solução

Alterado programa /PWS/ZYCBR027. Corrigida coluna que informava valor a vincular indevidamente e

adicionada coluna de '/pws/zycbt017-vlslf - Saldo Fatura' no relário ALV.

Informações Complementares

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

Nota Número 05129 Data: 01/11/2007 Hora: 09:31:25

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

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

Nota Número              : 05129

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

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

00874  - 00001 - 6.0    - 00022  - RELATÓRIO DE COMISSÃO DE AGENTE

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

COMISSÃO DE AGENTE - SALDO FATURA

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

Palavras Chave:

COMISSÃO DE AGENTE - SALDO FATURA

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

Objetos da nota:

REPS /PWS/ZYCBR027

REPT /PWS/ZYCBR027

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

Modificações efetuadas em REPS /PWS/ZYCBR027

...

    nrsd         TYPE /pws/zycbt017-nrsd,

    nrre         TYPE /pws/zycet003-nrre,

    bukrs        TYPE /pws/zycbt017-bukrs,

    percomis(10) TYPE c,

    status(09)   TYPE c,

    bstkd        TYPE vbkd-bstkd,

    dtliquida    TYPE /pws/zycbt048-dtliquida,

    submi        TYPE vbak-submi,

    vlfob        TYPE /pws/zycbt017-vlfob,

    vlavinc      TYPE /pws/zycbt017-vlavinc,

* >> Início da inclusão:

    vlslf        TYPE /pws/zycbt017-vlslf,

* << Fim da inclusão

    nrseq_       TYPE /pws/zycbt031-nrseq,

  END OF t_registro,

  BEGIN OF t_result,

    parvw        TYPE /pws/zycbt017-parvw,

    nrseq        TYPE /pws/zycet001-nrseq,

    nremb        TYPE /pws/zycet001-nremb,

    kunag        TYPE /pws/zycet002-kunag,

    name         TYPE lfa1-name1,

    name1        TYPE kna1-name1,

    status(09)   TYPE c,

...

...

    nrsd         TYPE /pws/zycbt017-nrsd,

    nrre         TYPE /pws/zycet003-nrre,

    gsber        TYPE /pws/zycet013-gsber,

    prctr        TYPE /pws/zycet013-prctr,

    bukrs        TYPE /pws/zycbt017-bukrs,

    bstkd        TYPE vbkd-bstkd,

    dtliquida    TYPE /pws/zycbt048-dtliquida,

    submi        TYPE vbak-submi,

    vlfob        TYPE /pws/zycbt017-vlfob,

    vlavinc      TYPE /pws/zycbt017-vlavinc,

* >> Início da inclusão:

    vlslf        TYPE /pws/zycbt017-vlslf,

* << Fim da inclusão

    nrseq_       TYPE /pws/zycbt031-nrseq,

    nrinvoic     TYPE /pws/zycbt004-nrinvoic,

    nrparcf      TYPE /pws/zycbt004-nrparcf,

    gsberf       TYPE /pws/zycbt004-gsberf,

    selk(1)      TYPE c,

  END OF t_result,

  BEGIN OF t_excel,

      f1(50)   TYPE c,

      f2(50)   TYPE c,

      f3(50)   TYPE c,

...

...

        itab_registro-kunag      = itab_zycbt017-kunag.

        itab_registro-bukrs      = itab_zycbt017-bukrs.

        itab_registro-nrseq      = itab_zycet001-nrseq.

        itab_registro-nremb      = itab_zycet001-nremb.

        itab_registro-vlcomis    = itab_zycet010-vlcomis.

        itab_registro-waers      = itab_zycbt017-waers.

        itab_registro-dtemb      = itab_zycet001-dtemb.

        itab_registro-dtaverb    = itab_zycet001-dtaverb.

        itab_registro-dtpagto    = itab_zycet010-dtpagto.

        itab_registro-gsber      = itab_zycbt017-gsberf.

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

        itab_registro-vlavinc    = itab_zycbt017-vlavinc.

* << Fim da inclusão

        LOOP AT itab_zycbt017 INTO wa_zycbt017

          WHERE nrinvoic = itab_registro-nrseq

          AND   gsberf   = itab_registro-gsber.

          v_vlslf = v_vlslf + wa_zycbt017-vlslf.

        ENDLOOP.

        ON CHANGE OF itab_registro-gsber OR

                     itab_registro-nrseq or

                     itab_registro-prctr or

                     itab_zycet010-lifnr.

          itab_registro-vlfob      = itab_zycbt017-vlfob.

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

          itab_registro-vlavinc    = v_vlslf.

* << Fim da exclusão

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

          itab_registro-vlslf    = v_vlslf.

* << Fim da inclusão

        ENDON.

        CLEAR itab_nrseq.

        READ TABLE itab_nrseq WITH KEY nrseq2 = itab_zycet010-nrseq.

        IF sy-subrc EQ '0' AND NOT itab_nrseq-dtpror IS INITIAL.

          itab_registro-dtvencto = itab_nrseq-dtpror.

        ELSE.

          itab_registro-dtvencto = itab_zycet010-dtvencto.

        ENDIF.

        CLEAR: itab_registro-status, v_zlspr.

        READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet010-nrseq.

...

...

  afield-col_pos = i.

  afield-fieldname = 'VLAVINC'.

  afield-ref_fieldname = 'VLAVINC'.

  afield-ref_tabname = '/PWS/ZYCBT017'.

  afield-cfieldname  = 'WAERS'.

  afield-key = space.

  afield-seltext_s = text-024.

  afield-seltext_m = text-024.

  afield-seltext_l = text-024.

  afield-reptext_ddic = text-024.

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

  APPEND afield TO i_fieldcat.

  i = i + 5.

  CLEAR afield.

  afield-col_pos = i.

  afield-fieldname = 'VLSLF'.

  afield-ref_fieldname = 'VLSLF'.

  afield-ref_tabname = '/PWS/ZYCBT017'.

  afield-cfieldname  = 'WAERS'.

  afield-key = space.

  afield-seltext_s = text-192.

  afield-seltext_m = text-192.

  afield-seltext_l = text-192.

  afield-reptext_ddic = text-192.

* << Fim da inclusão

  APPEND afield TO i_fieldcat.

  IF NOT paga  IS INITIAL OR

     NOT geral IS INITIAL.

    i = i + 5.

    CLEAR afield.

    afield-col_pos = i.

    afield-fieldname = 'NRSEQ_'.

    afield-ref_fieldname = 'NRSEQ'.

    afield-ref_tabname = '/PWS/ZYCBT031'.

    afield-key       = 'X'.

...

...

            itab_registro-dtpagto        TO i_result-dtpagto,

            itab_registro-dtpgtofat      TO i_result-dtpgtofat,

            itab_registro-nrsd           TO i_result-nrsd,

            itab_registro-nrre           TO i_result-nrre,

            itab_registro-prctr          TO i_result-prctr,

            itab_registro-gsber          TO i_result-gsber,

            itab_registro-bukrs          TO i_result-bukrs,

            itab_registro-status         TO i_result-status,

            itab_registro-vlfob          TO i_result-vlfob,

            itab_registro-vlavinc        TO i_result-vlavinc,

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

            itab_registro-vlslf          TO i_result-vlslf,

* << Fim da inclusão

            itab_registro-nrseq_         TO i_result-nrseq_,

            itab_registro-submi          TO i_result-submi,

            itab_registro-bstkd          TO i_result-bstkd,

            itab_registro-dtliquida      TO i_result-dtliquida.

      APPEND i_result.

      v_flag2 = 'X'.

      v_gsber = itab_registro-gsber.

      v_prctr = itab_registro-prctr.

    ENDON.

    IF v_flag2 = 'X'.

...

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

Modificações efetuadas em REPT /PWS/ZYCBR027

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 192

Texto: (12 caracteres)

"Saldo Fatura"

Comprimento máximo: 12