Sintoma

Ajustes no programa de Ato concessório e no do Forecast para ao vincular o Forecast a um ato

concessório os insumos da pasta nacionais sejam transferidos para o ato concessório.

Solução

Ajustes no programa de Ato concessório e no do Forecast para ao vincular o Forecast a um ato

concessório os insumos da pasta nacionais sejam transferidos para o ato concessório.

Informações Complementares

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

Nota Número 07198 Data: 26/08/2008 Hora: 14:09:06

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

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

Nota Número              : 07198

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00062

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

Referência às notas relacionadas:

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

07112  - 00001 - 7.0    - 00006  - COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO

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

IMPORTA INSUMO NACIONAIS DO FORECAST PARA O ATO CONCESSÓRIO

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

Palavras Chave:

INSUMOS - NACIONAIS - FORECAST - ATO - CONCESSÓRIO

/PWS/SAPMZYCI040 - /PWS/SAPMZYCI063

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

Objetos da nota:

DYNP /PWS/SAPMZYCI063                        0104

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040I01

REPS /PWS/MZYCI063I01

REPS /PWS/MZYCI063O01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI063                        0104

INCLUIR CAMPO TEXTO "/PWS/ZYCIE240-BRGEW" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      17

Linha                    1

Coluna                   9

Formato                  QUAN

Campo referência         /PWS/ZYCIE240-GEWEI

Linhas mínimas           13

Colunas mínimas          3

Texto                    _.___.___.___,___

INCLUIR TEXTO "/PWS/ZYCIE240-BRGEW" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      15

Linha                    1

Coluna                   9

Formato                  CHAR

Texto                    Peso bruto

INCLUIR CAMPO TEXTO "/PWS/ZYCIE240-GEWEI" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      3

Linha                    1

Coluna                   8

Formato                  UNIT

Linhas mínimas           3

Texto                    ___

INCLUIR TEXTO "/PWS/ZYCIE240-GEWEI" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      15

Linha                    1

Coluna                   8

Formato                  CHAR

Texto                    Unidade de peso

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-J_1BNBM" em tbl.contr./tabstr.

Coluna                   16

MODIFICAR TEXTO "/PWS/ZYCIE240-J_1BNBM" em tbl.contr./tabstr.

Coluna                   16

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-NETPR" em tbl.contr./tabstr.

Coluna                   12

MODIFICAR TEXTO "/PWS/ZYCIE240-NETPR" em tbl.contr./tabstr.

Coluna                   12

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-NETPR_T" em tbl.contr./tabstr.

Coluna                   13

MODIFICAR TEXTO "/PWS/ZYCIE240-NETPR_T" em tbl.contr./tabstr.

Coluna                   13

INCLUIR CAMPO TEXTO "/PWS/ZYCIE240-NTGEW" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      17

Linha                    1

Coluna                   10

Formato                  QUAN

Campo referência         /PWS/ZYCIE240-GEWEI

Linhas mínimas           13

Colunas mínimas          3

Texto                    _.___.___.___,___

INCLUIR TEXTO "/PWS/ZYCIE240-NTGEW" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      15

Linha                    1

Coluna                   10

Formato                  CHAR

Texto                    Peso líquido

INCLUIR CAMPO TEXTO "/PWS/ZYCIE240-PERDA_E" em tbl.contr./tabstr.

Altura                   8

Comprimento Visível      8

Linha                    1

Coluna                   6

Formato                  DEC

Linhas mínimas           6

Colunas mínimas          2

Texto                    ____,__V

INCLUIR TEXTO "/PWS/ZYCIE240-PERDA_E" em tbl.contr./tabstr.

Altura                   8

Comprimento Visível      17

Linha                    1

Coluna                   6

Formato                  CHAR

Texto                    Perda Exedente(%)

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-QTD_ITEN" em tbl.contr./tabstr.

Texto                    __.___.___.___,____________

INCLUIR CAMPO TEXTO "/PWS/ZYCIE240-QTD_PERDA_E" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      30

Linha                    1

Coluna                   7

Formato                  QUAN

Campo referência         /PWS/ZYCIE240-MEINS

Grupo 1                  NEX

Linhas mínimas           23

Colunas mínimas          5

Texto                    ___.___.___.___.___.___,_____V

INCLUIR TEXTO "/PWS/ZYCIE240-QTD_PERDA_E" em tbl.contr./tabstr.

Altura                   17

Comprimento Visível      20

Linha                    1

Coluna                   7

Formato                  CHAR

Texto                    Qtde.Perda Excedente

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-QTD_TOT" em tbl.contr./tabstr.

Comprimento Visível      30

Texto                    ___.___.___.___.___.___,_____V

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-VL_FRETE" em tbl.contr./tabstr.

Coluna                   14

Texto                    ___.___.___.___.___.___,_____V

MODIFICAR TEXTO "/PWS/ZYCIE240-VL_FRETE" em tbl.contr./tabstr.

Coluna                   14

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-VL_FRETE_T" em tbl.contr./tabstr.

Coluna                   15

MODIFICAR TEXTO "/PWS/ZYCIE240-VL_FRETE_T" em tbl.contr./tabstr.

Coluna                   15

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE240-WAERS" em tbl.contr./tabstr.

Coluna                   11

MODIFICAR TEXTO "/PWS/ZYCIE240-WAERS" em tbl.contr./tabstr.

Coluna                   11

MODIFICAR CAIXA DE VERIFICAÇÃO "MARKN" em tbl.contr./tabstr.

Texto                    _

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0104

...

  endloop.

process after input.

  loop at itab_compn.

    chain.

      field: markn            ,

             /pws/zycie240-codcomp ,

             /pws/zycie240-meins   ,

             /pws/zycie240-qtd_iten,

             /pws/zycie240-waers   ,

             /pws/zycie240-netpr   ,

* >> Início da inclusão:

             /pws/zycie240-brgew,

             /pws/zycie240-ntgew,

             /pws/zycie240-gewei,

             /pws/zycie240-qtd_perda_e,

             /pws/zycie240-perda_e,

* << Fim da inclusão

             /pws/zycie240-vl_frete,

             /pws/zycie240-j_1bnbm

             module insert_line_compn on chain-request.

    endchain.

    module preenche_itab_compn.

  endloop.

  module user_command_0104.

process on value-request.

  field /pws/zycie240-codcomp module trata_exit_match_n.

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

            itab_zycit245-qtd_tot = itab_zycit245-qtd_ncm   .

            itab_zycit245-meins   = itab_zycit245-um_ncm    .

            CLEAR: itab_zycit245-qtd_iten, itab_zycit245-codcomp,

                   itab_zycit245-perda, itab_zycit245-perda_e.

            COLLECT itab_zycit245.

          ELSE.

            APPEND itab_zycit245.

          ENDIF.

          itab_zycit245_aux[] = itab_zycit245[].

        ENDLOOP.

* >> Início da inclusão: MODULE TRATA_FORECAST

        REFRESH itab_zycit245t.

        itab_zycit245t[] = itab_zycit245[].

        REFRESH: itab_zycit245, itab_zycit245_aux.

        CLEAR: itab_zycit245.

        pressed_tab_2a = 'FS_MERC2'.

        LOOP AT itab_zycit240 WHERE proced EQ 0.

          CLEAR: v_nritem.

          IF /pws/zycit321-c_comum EQ 'X'.

            LOOP AT itab_zycit245

                  WHERE j_1bnbm = itab_zycit240-j_1bnbm

                    AND nritem > '90000'.

              v_nritem = itab_zycit245-nritem.

              EXIT.

            ENDLOOP.

          ELSE.

            LOOP AT itab_zycit245

                  WHERE codcomp = itab_zycit240-codcomp

                    AND nritem > '90000'.

              v_nritem = itab_zycit245-nritem.

              EXIT.

            ENDLOOP.

          ENDIF.

          CLEAR: itab_zycit245.

          MOVE-CORRESPONDING itab_zycit240 TO itab_zycit245.

          itab_zycit245-nrseqd = /pws/zycie244-nrseqd.

          itab_zycit245-sdocomp_i = itab_zycit240-qtd_tot.

          itab_zycit245-qtd_tot = itab_zycit245-qtd_tot +

                                    itab_zycit245-qtd_perda_e.

          IF v_nritem IS INITIAL.

            PERFORM select_max_item_number2 CHANGING v_nritem.

            itab_zycit245-nritem = v_nritem.

            APPEND itab_zycit245.

          ELSE.

            itab_zycit245-nritem = v_nritem.

            CLEAR: itab_zycit245-qtd_iten, itab_zycit245-brgew,

                   itab_zycit245-netpr, itab_zycit245-pctseg,

                   itab_zycit245-vl_seg, itab_zycit245-vl_frete.

            COLLECT itab_zycit245.

          ENDIF.

          itab_zycit245_aux[] = itab_zycit245[].

        ENDLOOP.

        LOOP AT itab_zycit245.

          itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.

          itab_zycit245-um_ncm  = itab_zycit245-meins  .

          itab_zycit245-perda_e = ( itab_zycit245-qtd_perda_e * 100 )

                                             / itab_zycit245-qtd_tot.

          CLEAR: itab_zycit245-qtd_perda_e.

          PERFORM converte_um_ncm USING itab_zycit245-codcomp

                                  CHANGING itab_zycit245-um_ncm

                                           itab_zycit245-werks

                                           itab_zycit245-qtd_ncm.

          MODIFY itab_zycit245.

        ENDLOOP.

        pressed_tab_2a = 'FS_CABEC2'.

* << Fim da inclusão

        /pws/zycie245-nrseqd = /pws/zycie244-nrseqd.

        IF /pws/zycie244-tipo EQ 'G'.

          PERFORM acumula_item_lista_tecnica_tg2.

        ENDIF.

      ENDIF.

      CLEAR itab_zycit247. REFRESH itab_zycit247.

      SELECT * FROM /pws/zycit239 INTO TABLE itab_zycit239

             WHERE nrseqd EQ /pws/zycie244-nrforecast.

      IF sy-subrc EQ 0.

        CLEAR v_item_fc.

...

...

           ( /pws/zycit321-it_ge EQ 'X' AND

           /pws/zycie244-modalidade EQ 'I' ).

    PERFORM fill_itab_zycit245_tf2.

  ELSE.

    PERFORM fill_itab_zycit245_ng2.

  ENDIF.

ENDMODULE.

MODULE user_command_0203 INPUT.

  CASE ok_code2.

    WHEN 'ENTE'.

* >> Início da inclusão: MODULE USER_COMMAND_0203

      IF /pws/zycit321-c_comum IS INITIAL.

* << Fim da inclusão

      PERFORM trata_enter_0203.

* >> Início da inclusão: MODULE USER_COMMAND_0203

      ENDIF.

* << Fim da inclusão

    WHEN 'P-'.

      CLEAR nextline.

      DESCRIBE TABLE itab_zycit245 LINES v_ilinhas.

      PERFORM blaettern

              USING tc_cimp2-current_line 7 v_ilinhas ok_code2

              CHANGING nextline.

...

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

Modificações efetuadas em REPS /PWS/MZYCI063I01

...

    itab_compn-proced   = '0'              .

    itab_compn-meins    = /pws/zycie240-meins   .

    itab_compn-qtd_iten = /pws/zycie240-qtd_iten.

    itab_compn-waers    = /pws/zycie240-waers   .

    itab_compn-netpr    = /pws/zycie240-netpr   .

    itab_compn-vl_frete = /pws/zycie240-vl_frete.

    itab_compn-j_1bnbm  = /pws/zycie240-j_1bnbm .

    itab_compn-markn    = markn            .

    itab_compn-qtd_tot     = /pws/zycie240-qtd_iten *

 /pws/zycie239c-qtd_iten.

* >> Início da inclusão: MODULE INSERT_LINE_COMPN

    itab_compn-brgew = /pws/zycie240-brgew.

    itab_compn-ntgew = /pws/zycie240-ntgew.

    itab_compn-gewei = /pws/zycie240-gewei.

    itab_compn-qtd_perda_e = itab_compn-qtd_tot *

              ( /pws/zycie240-perda_e / 100 ).

    itab_compn-qtd_tot = itab_compn-qtd_tot -

                          itab_compn-qtd_perda_e.

    itab_compn-perda_e    = /pws/zycie240-perda_e.

* << Fim da inclusão

    itab_compn-netpr_t     = itab_compn-netpr * itab_compn-qtd_tot.

    itab_compn-vl_frete_t  = itab_compn-vl_frete * itab_compn-qtd_tot.

    APPEND itab_compn.

  ELSE.

    itab_compn-nrseqd   = /pws/zycie238-nrseqd  .

    itab_compn-codmat   = /pws/zycie239c-codmat .

    itab_compn-codcomp  = /pws/zycie240-codcomp .

    itab_compn-werks    = /pws/zycie239c-werks  .

    itab_compn-proced   = '0'              .

    itab_compn-meins    = /pws/zycie240-meins   .

    itab_compn-qtd_iten = /pws/zycie240-qtd_iten.

    itab_compn-waers    = /pws/zycie240-waers   .

    itab_compn-netpr    = /pws/zycie240-netpr   .

    itab_compn-vl_frete = /pws/zycie240-vl_frete.

    itab_compn-j_1bnbm  = /pws/zycie240-j_1bnbm .

    itab_compn-markn    = markn            .

    itab_compn-qtd_tot  = /pws/zycie240-qtd_iten *

 /pws/zycie239c-qtd_iten.

* >> Início da inclusão: MODULE INSERT_LINE_COMPN

    itab_compn-brgew = /pws/zycie240-brgew.

    itab_compn-ntgew = /pws/zycie240-ntgew.

    itab_compn-gewei = /pws/zycie240-gewei.

    itab_compn-qtd_perda_e = itab_compn-qtd_tot *

              ( /pws/zycie240-perda_e / 100 ).

    itab_compn-qtd_tot = itab_compn-qtd_tot -

                          itab_compn-qtd_perda_e.

    itab_compn-perda_e = /pws/zycie240-perda_e.

* << Fim da inclusão

    itab_compn-netpr_t     = itab_compn-netpr * itab_compn-qtd_tot.

    itab_compn-vl_frete_t  = itab_compn-vl_frete * itab_compn-qtd_tot.

    MODIFY itab_compn INDEX tc_compn-current_line.

  ENDIF.

  PERFORM atualiza_itab_compn_final.

ENDMODULE.

MODULE preenche_itab_compi INPUT.

  itab_compi-nrseqd     = /pws/zycie240c-nrseqd    .

  itab_compi-codmat     = /pws/zycie240c-codmat    .

  itab_compi-codcomp    = /pws/zycie240c-codcomp   .

...

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

Modificações efetuadas em REPS /PWS/MZYCI063O01

...

  /pws/zycie240-proced     = itab_compn-proced    .

  /pws/zycie240-meins      = itab_compn-meins     .

  /pws/zycie240-qtd_iten   = itab_compn-qtd_iten  .

  /pws/zycie240-qtd_tot    = itab_compn-qtd_tot   .

  /pws/zycie240-waers      = itab_compn-waers     .

  /pws/zycie240-netpr      = itab_compn-netpr     .

  /pws/zycie240-netpr_t    = itab_compn-netpr_t   .

  /pws/zycie240-vl_frete   = itab_compn-vl_frete  .

  /pws/zycie240-vl_frete_t = itab_compn-vl_frete_t.

  /pws/zycie240-j_1bnbm    = itab_compn-j_1bnbm   .

* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0104

  /pws/zycie240-brgew       = itab_compn-brgew.

  /pws/zycie240-ntgew       = itab_compn-ntgew.

  /pws/zycie240-gewei       = itab_compn-gewei.

  /pws/zycie240-qtd_perda_e = itab_compn-qtd_perda_e.

  /pws/zycie240-perda_e     = itab_compn-perda_e   .

* << Fim da inclusão

  markn               = itab_compn-markn     .

ENDMODULE.

MODULE trata_screen_0104 OUTPUT.

  LOOP AT SCREEN.

    IF screen-name EQ '/PWS/ZYCIE240-CODCOMP'.

      READ TABLE itab_compn INDEX tc_compn-current_line.

      IF sy-subrc EQ 0 AND NOT /pws/zycie240-codcomp IS INITIAL.

        screen-input = 0.

        MODIFY SCREEN.

      ENDIF.

...