Sintoma

Adaptação do programa Histórico de Exportação para atender cenários de Embarque de Fornecimento (não

possui ordem de venda preenchida no item do Embarque).

Solução

Alteração do programa de Histórico de Exportação (/pws/zycer203)

Informações Complementares

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

Nota Número 05331 Data: 27/11/2007 Hora: 14:26:24

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

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

Nota Número              : 05331

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

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

04365  - 00001 - 7.0    - 00002  - INCLUSÃO DE TRATAMENTO PARA PEDIDO DE COMPRA NO HISTÓRICO DE EXPO

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

HISTÓRICO DE EXPORTAÇÃO PARA EMBARQUE DE FORNECIMENTO

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

Palavras Chave:

EMBARQUE, FORNECIMENTO, EXPORTAÇÃO, HISTÓRICO

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

Objetos da nota:

REPS /PWS/ZYCER203

REPT /PWS/ZYCER203

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

Modificações efetuadas em REPS /PWS/ZYCER203

...

    ENDIF.

    PERFORM select_tables USING wa_034-nrseq.

    PERFORM print_report  USING wa_034-nrseq.

  ELSE.

    PERFORM seleciona_dados.

    PERFORM imprime_relatorio.

  ENDIF.

END-OF-SELECTION.

AT LINE-SELECTION.

  PERFORM seg_lista.

* >> Início da exclusão:

END-OF-SELECTION.

* << Fim da exclusão

FORM seleciona_dados.

  SELECT SINGLE * FROM /pws/zycet001

                  INTO wa_001

                  WHERE nrseq EQ p_nrseq.

  IF sy-subrc EQ 0.

    SELECT SINGLE * FROM /pws/zycet037

    WHERE bukrs = wa_001-bukrs.

  ENDIF.

  SELECT * FROM /pws/zycet002

           INTO TABLE itab_zycet002

...

...

    SELECT * FROM vbuk

              INTO TABLE itab_vbuk

              FOR ALL ENTRIES IN  itab_zycet002

              WHERE vbeln EQ itab_zycet002-vbeln_va.

    IF wa_001-tipo_emb CA 'DV'.

      SELECT * FROM ekko

               INTO TABLE itab_ekko

               FOR ALL ENTRIES IN itab_zycet002

               WHERE ebeln EQ itab_zycet002-ebeln.

    ENDIF.

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

    IF wa_001-tipo_emb EQ 'D'.

* << Fim da exclusão

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

    IF wa_001-tipo_emb CA 'DF'.

* << Fim da inclusão

      SELECT * FROM vbup

              APPENDING TABLE itab_vbup

              FOR ALL ENTRIES IN itab_zycet002

              WHERE vbeln EQ itab_zycet002-vbeln_vl.

      SELECT * FROM vbuk

              APPENDING TABLE itab_vbuk

              FOR ALL ENTRIES IN  itab_zycet002

              WHERE vbeln EQ itab_zycet002-vbeln_vl.

    ENDIF.

    SELECT * FROM vbrk

...

...

          30 '|',

          31 wa_046-nrseqcg   HOTSPOT COLOR 2 INTENSIFIED OFF,

          55 '|', 56 /pws/zycet053-dtincl COLOR 2 INTENSIFIED OFF,

          66 '|', 67 text-003 COLOR 5, 89 '|'.

    ENDIF.

    CLEAR: v_ebeln,

           v_likp-vbeln,

           v_vbeln_vf,

           v_beln.

    LOOP AT itab_zycet002.

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

      IF  itab_zycet002-vbeln_va IS INITIAL AND

          wa_001-tipo_emb CA 'DF'.

* << Fim da inclusão

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

      IF  itab_zycet002-vbeln_va IS INITIAL AND NOT

          itab_zycet002-ebeln    IS INITIAL AND

          wa_001-tipo_emb EQ 'D'.

* << Fim da exclusão

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

        IF wa_001-tipo_emb EQ 'D'.

* << Fim da inclusão

        IF itab_zycet002-ebeln NE v_ebeln.

          READ TABLE itab_ekko INTO wa_ekko WITH KEY

                                  ebeln = itab_zycet002-ebeln.

          IF sy-subrc EQ 0.

            WRITE: / '|', 2 text-060 COLOR COL_NORMAL,

                  30 '|',

                  31 itab_zycet002-ebeln HOTSPOT COLOR COL_NORMAL,

                  43 itab_zycet002-ebelp COLOR COL_NORMAL NO-ZERO,

                  55 '|', 56 wa_ekko-bedat COLOR COL_NORMAL,

                  66 '|', 89 '|'.

          ENDIF.

        ENDIF.

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

          v_ebeln = itab_zycet002-ebeln.

* << Fim da inclusão

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

        v_ebeln = itab_zycet002-ebeln.

* << Fim da exclusão

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

        ENDIF.

* << Fim da inclusão

        LOOP AT itab_likp WHERE vbeln EQ itab_zycet002-vbeln_vl.

          READ TABLE itab_vbup WITH KEY vbeln = itab_zycet002-vbeln_vl

                                        posnr = itab_zycet002-posnl.

          IF itab_likp-vbeln <> v_likp-vbeln.

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

            IF wa_001-tipo_emb EQ 'F'.

              WRITE: / '|', 2 text-061 COLOR COL_NORMAL,

                       30 '|',

                       31 itab_likp-vbeln HOTSPOT COLOR COL_NORMAL,

                       itab_zycet002-posnl COLOR COL_NORMAL NO-ZERO,

                  55 '|', 56 itab_likp-erdat COLOR COL_NORMAL,

                  66 '|', 89 '|'.

            ELSE.

* << Fim da inclusão

            WRITE: /  '|', 2 text-008 COLOR 2 INTENSIFIED OFF,

                   30 '|',

                   31 '|',

                        31 itab_likp-vbeln COLOR 2 INTENSIFIED OFF

                        HOTSPOT,

                        itab_zycet002-posnl COLOR 2

                           INTENSIFIED OFF NO-ZERO,

                   55 '|', 56 itab_likp-erdat COLOR 2 INTENSIFIED OFF,

                   66 '|', 89 '|'.

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

            ENDIF.

* << Fim da inclusão

            READ TABLE itab_vbup

                 WITH KEY vbeln = itab_zycet002-vbeln_vl

                          posnr = itab_zycet002-posnl.

            IF sy-subrc EQ 0.

              IF itab_vbup-gbsta EQ space.

                WRITE: 67 text-023 COLOR 3 INTENSIFIED OFF.

              ELSEIF itab_vbup-gbsta EQ 'A'.

                WRITE: 67 text-024 COLOR 6 INTENSIFIED OFF.

              ELSEIF itab_vbup-gbsta EQ 'B'.

                WRITE: 67 text-025 COLOR 5 INTENSIFIED OFF.

...

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

Modificações efetuadas em REPT /PWS/ZYCER203

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 004

Texto: (8 caracteres)

"Pendente"

Comprimento máximo: 8

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 010

Texto: (10 caracteres)

"... Venda:"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 014

Texto: (13 caracteres)

"Contabilizado"

Comprimento máximo: 13

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 061

Texto: (13 caracteres)

"*Fornecimento"

Comprimento máximo: 13