Sintoma

Incluir no relatório a opção de seleção por fatura, campo /pws/zycbt226-nrinvoic.

Solução

Incluir no relatório a opção de seleção por fatura, campo /pws/zycbt226-nrinvoic.

Informações Complementares

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

Nota Número 05704 Data: 22/01/2008 Hora: 11:28:08

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

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

Nota Número              : 05704

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00031

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

Referência às notas relacionadas:

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

05676  - 00001 - 7.0    - 00004  - RELATÓRIO CONTROLE VALORES RECEBIDOS EXTERIOR - NUMERO DE EMBARQU

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

RELATÓRIO DE VALORES RECEBIDOS NO EXTERIOR - FILTRO POR FATURA

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

Palavras Chave:

RELATÓRIO DE VALORES RECEBIDOS NO EXTERIOR - FILTRO POR FATURA

NRINVOIC

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

Objetos da nota:

REPS /PWS/ZYCBR361

REPT /PWS/ZYCBR361

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

Modificações efetuadas em REPS /PWS/ZYCBR361

...

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,

        v_vlavinc(1)     TYPE c,

        v_repid          TYPE sy-repid.

SELECTION-SCREEN BEGIN OF BLOCK bl_1 WITH FRAME TITLE text-001.

SELECT-OPTIONS:

* >> Início da exclusão:

s_bukrs FOR /pws/zycbt226-bukrs OBLIGATORY NO-EXTENSION NO INTERVALS,

* << Fim da exclusão

* >> Início da inclusão:

  s_bukrs  FOR /pws/zycbt226-bukrs OBLIGATORY NO-EXTENSION NO INTERVALS,

* << Fim da inclusão

  s_gsber   FOR /pws/zycbt226-gsberf,

  s_j_1bbr  FOR /pws/zycbt226-j_1bbranch,

  s_nrseq   FOR /pws/zycbt226-nrseq,

* >> Início da inclusão:

  s_nrinvo  FOR /pws/zycbt226-nrinvoic,

* << Fim da inclusão

  s_kunag   FOR /pws/zycbt226-kunag,

  s_waers   FOR /pws/zycbt226-waers,

  s_sld_ex  FOR /pws/zycbt226-sld_exterior,

  s_orgrec  FOR /pws/zycbt226-tipo_op,

...

...

  DELETE it_zycbt226 WHERE NOT j_1bbranch    IN s_j_1bbr.

  DELETE it_zycbt226 WHERE NOT kunag         IN s_kunag.

  DELETE it_zycbt226 WHERE NOT waers         IN s_waers.

  DELETE it_zycbt226 WHERE NOT sld_exterior  IN s_sld_ex.

  DELETE it_zycbt226 WHERE NOT tipo_op       IN s_orgrec.

  DELETE it_zycbt226 WHERE NOT dtcredext     IN s_dtcrde.

  DELETE it_zycbt226 WHERE NOT dtlancto      IN s_dtlcto.

  DELETE it_zycbt226 WHERE NOT dtincl        IN s_dtincl.

  DELETE it_zycbt226 WHERE NOT bco_me        IN s_bco_me.

  DELETE it_zycbt226 WHERE NOT ref_op        IN s_ref_op.

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

  DELETE it_zycbt226 WHERE NOT dtlancto(4) IN s_exerc.

* << Fim da exclusão

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

  DELETE it_zycbt226 WHERE NOT dtlancto(4)   IN s_exerc.

  DELETE it_zycbt226 WHERE NOT nrinvoic      IN s_nrinvo.

* << Fim da inclusão

  SELECT lifnr

         name1

  FROM lfa1

  INTO TABLE itab_lfa1

  FOR ALL ENTRIES IN it_zycbt226

  WHERE lifnr EQ it_zycbt226-bco_me.

  SELECT lifnr

         name1

         kunnr

  FROM kna1

...

...

          dtreceb

          bukrs

          waers

          gsber

          werks

          j_1bbranch

          vlcred

          bco_ext

          nome_bco

    FROM /pws/zycbt240

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

    INTO TABLE it_zycbt240

      WHERE

          nrseqr  IN s_nrseq .

* << Fim da exclusão

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

    INTO TABLE it_zycbt240.

* << Fim da inclusão

    CHECK it_zycbt240 IS INITIAL.

    DELETE it_zycbt240 WHERE NOT bukrs         IN s_bukrs.

    DELETE it_zycbt240 WHERE NOT waers         IN s_waers.

    DELETE it_zycbt240 WHERE NOT gsber         IN s_gsber.

    DELETE it_zycbt240 WHERE NOT j_1bbranch    IN s_j_1bbr.

    DELETE it_zycbt240 WHERE NOT bco_ext       IN s_bco_me.

    DELETE it_zycbt240 WHERE NOT dtreceb       IN s_dtrecb.

    CHECK s_exerc IS INITIAL.

    DELETE it_zycbt240 WHERE NOT dtreceb(4) IN s_exerc.

  ENDIF.

...

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

Modificações efetuadas em REPT /PWS/ZYCBR361

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_NRINVO

Texto: (14 caracteres)

"Fatura"

Referência ao Dictionary: NÃO