Sintoma

Incluir a coluna (Valor da fatura - Campo VLAVINC - /PWS/ZYCBT017) no Relatório de controle de

valores recebidos no exterior (/PWS/ZYCBR361).

Solução

Alterado programa /PWS/ZYCBR361 para que o relatório selecione o 'Valor à Vincular' da tabela

/PWS/ZYCBT017 e respeite a regra de selção de número do embarque, parcela e divisão.

Informações Complementares

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

Nota Número 05654 Data: 16/01/2008 Hora: 11:40:57

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

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

Nota Número              : 05654

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00030

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

Referência às notas relacionadas:

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

05531  - 00001 - 7.0    - 00004  - TRADUÇÃO DE CAMPOS FIXOS DOS RELATÓRIOS /PWS/ZYCBR360 E PWS/ZYCBR

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

RELATÓRIO DE CONTROLE DE VALORES RECEBIDOS NO EXTERIOR

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

Palavras Chave:

RELATÓRIO DE CONTROLE DE VALORES RECEBIDOS NO EXTERIOR

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

Objetos da nota:

REPS /PWS/ZYCBR361

REPT /PWS/ZYCBR361

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

Modificações efetuadas em REPS /PWS/ZYCBR361

REPORT /pws/zycbr361 MESSAGE-ID /pws/zycbm .

TYPE-POOLS: slis,

            kkblo.

TABLES:

/pws/zycbt226,

/pws/zycbt238,

/pws/zycbt240,

/pws/zycbt017,

bsad.

DATA: BEGIN OF it_saida OCCURS 0,

bukrs            LIKE /pws/zycbt226-bukrs,

nrseq            LIKE /pws/zycbt226-nrseq,

tipo_op          LIKE /pws/zycbt226-tipo_op,

destino(25)      TYPE c,

waers            LIKE /pws/zycbt226-waers,

nremb            LIKE /pws/zycbt017-nremb,

nrinvoic         LIKE /pws/zycbt226-nrinvoic,

nrparcf          LIKE /pws/zycbt226-nrparcf,

gsberf           LIKE /pws/zycbt226-gsberf,

werks            LIKE /pws/zycbt226-werks,

j_1bbranch       LIKE /pws/zycbt226-j_1bbranch,

kunag            LIKE /pws/zycbt226-kunag,

name1            TYPE kna1-name1,

* >> Início da inclusão:

vlavinc          LIKE /pws/zycbt017-vlavinc,

* << Fim da inclusão

vlr_exterior     LIKE /pws/zycbt226-vlr_exterior,

sld_exterior     LIKE /pws/zycbt226-sld_exterior,

vldisp30         LIKE /pws/zycbt238-vldisp,

vldisp70         LIKE /pws/zycbt238-vldisp,

vlcred           LIKE /pws/zycbt240-vlcred,

dtcredext        LIKE /pws/zycbt226-dtcredext,

dtlancto         LIKE /pws/zycbt226-dtlancto,

dtincl           LIKE /pws/zycbt226-dtincl,

dtlimite         LIKE /pws/zycbt226-dtlimite,

dtdisp           LIKE /pws/zycbt238-dtdisp,

dtreceb          LIKE /pws/zycbt240-dtreceb,

bco_me           LIKE /pws/zycbt226-bco_me,

name1_lfa        LIKE lfa1-name1,

conta_contabil   LIKE /pws/zycbt226-conta_contabil,

belnr_op         LIKE /pws/zycbe226-belnr_op,

conta_contabil_l LIKE /pws/zycbt238-conta_contabil,

doc_cont         LIKE /pws/zycbe238-doc_cont,

ref_op           LIKE /pws/zycbt226-ref_op.

DATA: END OF it_saida.

* >> Início da inclusão:

DATA: BEGIN OF it_saida_aux OCCURS 0,

bukrs            LIKE /pws/zycbt226-bukrs,

nrseq            LIKE /pws/zycbt226-nrseq,

tipo_op          LIKE /pws/zycbt226-tipo_op,

destino(25)      TYPE c,

waers            LIKE /pws/zycbt226-waers,

nremb            LIKE /pws/zycbt017-nremb,

nrinvoic         LIKE /pws/zycbt226-nrinvoic,

nrparcf          LIKE /pws/zycbt226-nrparcf,

gsberf           LIKE /pws/zycbt226-gsberf,

werks            LIKE /pws/zycbt226-werks,

j_1bbranch       LIKE /pws/zycbt226-j_1bbranch,

kunag            LIKE /pws/zycbt226-kunag,

name1            TYPE kna1-name1,

vlavinc          LIKE /pws/zycbt017-vlavinc,

vlr_exterior     LIKE /pws/zycbt226-vlr_exterior,

sld_exterior     LIKE /pws/zycbt226-sld_exterior,

vldisp30         LIKE /pws/zycbt238-vldisp,

vldisp70         LIKE /pws/zycbt238-vldisp,

vlcred           LIKE /pws/zycbt240-vlcred,

dtcredext        LIKE /pws/zycbt226-dtcredext,

dtlancto         LIKE /pws/zycbt226-dtlancto,

dtincl           LIKE /pws/zycbt226-dtincl,

dtlimite         LIKE /pws/zycbt226-dtlimite,

dtdisp           LIKE /pws/zycbt238-dtdisp,

dtreceb          LIKE /pws/zycbt240-dtreceb,

bco_me           LIKE /pws/zycbt226-bco_me,

name1_lfa        LIKE lfa1-name1,

conta_contabil   LIKE /pws/zycbt226-conta_contabil,

belnr_op         LIKE /pws/zycbe226-belnr_op,

conta_contabil_l LIKE /pws/zycbt238-conta_contabil,

doc_cont         LIKE /pws/zycbe238-doc_cont,

ref_op           LIKE /pws/zycbt226-ref_op.

DATA: END OF it_saida_aux.

* << Fim da inclusão

DATA: BEGIN OF it_zycbt226 OCCURS 0,

bukrs            LIKE /pws/zycbt226-bukrs,

nrseq            LIKE /pws/zycbt226-nrseq,

tipo_op          LIKE /pws/zycbt226-tipo_op,

waers            LIKE /pws/zycbt226-waers,

nrinvoic         LIKE /pws/zycbt226-nrinvoic,

nrparcf          LIKE /pws/zycbt226-nrparcf,

gsberf           LIKE /pws/zycbt226-gsberf,

werks            LIKE /pws/zycbt226-werks,

j_1bbranch       LIKE /pws/zycbt226-j_1bbranch,

...

...

DATA: BEGIN OF itab_kna1 OCCURS 0,

      lifnr           LIKE kna1-lifnr,

      name1           LIKE kna1-name1,

      kunnr           LIKE kna1-kunnr,

END OF itab_kna1.

DATA: BEGIN OF it_zycbt017 OCCURS 0,

      nrinvoic LIKE /pws/zycbt017-nrinvoic,

      nrparcf  LIKE /pws/zycbt017-nrparcf,

      gsberf   LIKE /pws/zycbt017-gsberf,

      nremb    LIKE /pws/zycbt017-nremb,

* >> Início da inclusão:

      vlavinc  LIKE /pws/zycbt017-vlavinc,

* << Fim da inclusão

END OF it_zycbt017.

DATA: itab_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,

      itab_sort     TYPE slis_sortinfo_alv   OCCURS 0 WITH HEADER LINE.

DATA: gs_layout        TYPE slis_layout_alv,

      gs_top           TYPE slis_t_listheader.

DATA:   v_exit(1)        TYPE c,

* >> Início da inclusão:

        v_vlavinc(1)     TYPE c,

* << Fim da inclusão

        v_repid          TYPE sy-repid.

...

...

                            p_varian.

AT SELECTION-SCREEN.

  IF p_receb = '' AND p_disp30 = '' AND p_disp70 = '' AND

              p_rendrb = ''.

    MESSAGE e015 WITH text-005.

  ENDIF.

START-OF-SELECTION.

  v_repid = sy-repid.

  PERFORM f_seleciona_dados.

  PERFORM f_monta_saida.

* >> Início da inclusão:

  PERFORM f_elimina_duplicidade_valores.

* << Fim da inclusão

  IF NOT it_saida[] IS INITIAL.

    PERFORM f_layout.

  ELSE.

    MESSAGE i306.

  ENDIF.

FORM f_seleciona_dados.

  CLEAR:

        it_zycbt226[],

        it_zycbt238[],

        it_zycbt240[].

...

...

         kunnr

  FROM kna1

  INTO TABLE itab_kna1

  FOR ALL ENTRIES IN it_zycbt226

  WHERE kunnr EQ it_zycbt226-kunag.

  SELECT

      nrinvoic

      nrparcf

      gsberf

      nremb

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

      vlavinc

* << Fim da inclusão

  FROM /pws/zycbt017

  INTO TABLE it_zycbt017

  FOR ALL ENTRIES IN it_zycbt226

  WHERE

      nrinvoic = it_zycbt226-nrinvoic AND

      nrparcf  = it_zycbt226-nrparcf  AND

      gsberf   = it_zycbt226-gsberf.

ENDFORM.

FORM f_seleciona_zycbt238.

  DATA lc_index LIKE sy-tabix.

...

...

  PERFORM: inclui_campo USING 'IT_SAIDA' 'NRSEQ'

           text-012            'C' '10' ' ' ' ' ' ' ' ' 'X' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'TIPO_OP'

           text-013            'C' '01' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'DESTINO'

           text-014            'C' '25' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'WAERS'

           text-015            'P' '05' ' ' ' ' ' ' 'X' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'NREMB'

           text-016            'C' '20' ' ' ' ' ' ' ' ' 'X' ' ' ' '.

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

  PERFORM: inclui_campo USING 'IT_SAIDA' 'VLAVINC'

           text-042            'P' '13' ' ' ' ' 'X' ' ' ' ' ' ' ' '.

* << Fim da inclusão

  PERFORM: inclui_campo USING 'IT_SAIDA' 'NRINVOIC'

           text-017            'C' '20' ' ' ' ' ' ' ' ' 'X' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'NRPARCF'

           text-018            'N' '02' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'GSBERF'

           text-019            'C' '04' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'WERKS'

           text-020            'C' '04' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

  PERFORM: inclui_campo USING 'IT_SAIDA' 'J_1BBRANCH'

           text-021            'C' '04' ' ' ' ' ' ' ' ' ' ' ' ' ' '.

...

...

                                gsberf   = it_zycbt226-gsberf.

  IF sy-subrc = 0.

    it_saida-nremb = it_zycbt017-nremb.

  ENDIF.

  it_saida-nrinvoic = it_zycbt226-nrinvoic.

  it_saida-nrparcf  = it_zycbt226-nrparcf.

  it_saida-kunag    = it_zycbt226-kunag.

  READ TABLE itab_kna1 WITH KEY kunnr = it_zycbt226-kunag BINARY SEARCH.

  IF sy-subrc = 0.

    it_saida-name1 = itab_kna1-name1.

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

  ENDIF.

  IF it_saida-tipo_op = 'E'.

    it_saida-vlavinc = it_zycbt017-vlavinc.

* << Fim da inclusão

  ENDIF.

  it_saida-dtcredext = it_zycbt226-dtcredext.

  it_saida-dtlancto  = it_zycbt226-dtlancto.

  it_saida-dtincl    = it_zycbt226-dtincl.

  it_saida-dtlimite  = it_zycbt226-dtlimite.

 READ TABLE itab_lfa1 WITH KEY lifnr = it_zycbt226-bco_me BINARY SEARCH.

  IF sy-subrc = 0.

    it_saida-name1_lfa = itab_lfa1-name1.

  ENDIF.

  it_saida-conta_contabil = it_zycbt226-conta_contabil.

  it_saida-belnr_op       = it_zycbt226-belnr_op.

  it_saida-ref_op         = it_zycbt226-ref_op.

  APPEND it_saida.

ENDFORM.

* >> Início da inclusão:

FORM f_elimina_duplicidade_valores.

  it_saida_aux[] = it_saida[].

  LOOP AT it_saida.

    ON CHANGE OF it_saida-nrinvoic OR

                 it_saida-nrparcf  OR

                 it_saida-gsberf.

      CLEAR: v_vlavinc.

      LOOP AT it_saida_aux WHERE nrinvoic = it_saida-nrinvoic AND

                                 nrparcf  = it_saida-nrparcf  AND

                                 gsberf   = it_saida-gsberf.

        IF v_vlavinc IS INITIAL.

          IF NOT it_saida-vlavinc IS INITIAL.

            v_vlavinc = 'X'.

          ENDIF.

        ELSE.

          CLEAR: it_saida_aux-vlavinc.

        ENDIF.

        MODIFY it_saida_aux.

      ENDLOOP.

    ENDON.

  ENDLOOP.

  REFRESH: it_saida.

  it_saida[] = it_saida_aux[].

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/ZYCBR361

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 042

Texto: (16 caracteres)

"Valor a Vincular"

Comprimento máximo: 21