Sintoma

O relatório não exibe os pedidos que ainda não foram vinculados a um embarque de importação.

Solução

O programa foi ajustado para exibir todos os pedidos vinculado ao ato concessório, inclusive os que

ainda não foram vinculados a um embarque de importação.

Informações Complementares

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

Nota Número 09256 Data: 26/10/2009 Hora: 09:57:37

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

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

Nota Número              : 09256

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

08477  - 00001 - 7.0    - 00009  - CODE INSPECTOR

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

EXIBIÇÃO DE TODOS PEDIDOS VINCULADOS AO ATO CONCESSÓRIO.

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

Palavras Chave:

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

Objetos da nota:

REPS /PWS/ZYCIR159

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

Modificações efetuadas em REPS /PWS/ZYCIR159

...

FORM move_dados.

  DATA: v_saldo  TYPE /pws/zycit279-menge,

        v_reali  TYPE /pws/zycit279-menge,

        v_reali2 TYPE /pws/zycit279-menge.

  CLEAR i_final.

  REFRESH i_final.

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

  LOOP AT itab_zycit003.

    CLEAR: itab_zycit376.

    READ TABLE itab_zycit376 WITH KEY ebeln = itab_zycit003-ebeln

                                      ebelp = itab_zycit003-ebelp.

* << Fim da exclusão

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

  LOOP AT itab_zycit376.

    LOOP AT itab_zycit003 WHERE ebeln = itab_zycit376-ebeln

                           AND  ebelp = itab_zycit376-ebelp.

* << Fim da inclusão

    PERFORM converte_um_ncm USING itab_zycit003-matnr

                            CHANGING itab_zycit003-meins

                                     itab_zycit003-qtd_iten.

    CLEAR: v_reali,

           v_reali2,

           v_saldo.

    LOOP AT itab_zycit279 WHERE ebeln = itab_zycit376-ebeln

                          AND   ebelp = itab_zycit376-ebelp

                          AND   nrseq = itab_zycit003-nrseq.

      v_reali = v_reali + itab_zycit279-menge.

...

...

          itab_zycit376-meins    TO  i_final-meins    ,

          itab_zycit376-meinsp   TO  i_final-meinsp   ,

          itab_zycit376-usuario  TO  i_final-usuario  ,

          itab_zycit376-dtvinc   TO  i_final-dtvinc   ,

          itab_zycit003-qtd_iten TO  i_final-qtdemb   ,

          v_reali                TO  i_final-qtdac    ,

          v_saldo                TO  i_final-saldo    ,

          itab_zycit376-qtd_apro TO  i_final-qtd_apro .

    APPEND i_final.

  ENDLOOP.

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

    IF sy-subrc NE 0.

      CLEAR i_final.

      MOVE: itab_zycit376-ebeln    TO  i_final-ebeln    ,

            itab_zycit376-ebelp    TO  i_final-ebelp    ,

            itab_zycit376-descr    TO  i_final-descr    ,

            itab_zycit376-j_1bnbm  TO  i_final-j_1bnbm  ,

            itab_zycit376-qtd_iten TO  i_final-qtd_iten ,

            itab_zycit376-nratoc   TO  i_final-nratoc   ,

            itab_zycit376-nrseqd   TO  i_final-nrseqd   ,

            itab_zycit376-nritem   TO  i_final-nritem   ,

            itab_zycit376-meins    TO  i_final-meins    ,

            itab_zycit376-meinsp   TO  i_final-meinsp   ,

            itab_zycit376-usuario  TO  i_final-usuario  ,

            itab_zycit376-dtvinc   TO  i_final-dtvinc   ,

            itab_zycit376-qtd_apro TO  i_final-saldo    ,

            itab_zycit376-qtd_apro TO  i_final-qtd_apro .

      APPEND i_final.

    ENDIF.

  ENDLOOP.

  SORT i_final BY nrseq ebeln ebelp.

* << Fim da inclusão

ENDFORM.

...

...

  v_repid = sy-repid.

  v_repid = sy-repid.

  CALL FUNCTION '/PWS/ZYGL_GERA_RELATORIO_ALV'

       EXPORTING

            v_program      = v_repid

            v_pf_status    = ' '

            v_user_command = ' '

            v_top_of_page  = 'TOP_OF_PAGE'

            v_marc         = ' '

            v_selinfo      = ' '

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

            v_zebra        = ' '

            v_otimizado    = ' '

* << Fim da exclusão

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

            v_zebra        = 'X'

            v_otimizado    = 'X'

* << Fim da inclusão

       TABLES

            i_fieldcat     = i_fieldcat

            t_data         = i_final

            it_sort        = i_sort.

ENDFORM.

...