Sintoma

Inclusão do campo de identificação do ato concessório no momento da vinculação do pedido ao ato

concessório e na LI.

Solução

Inclusão do campo de identificação do ato concessório no momento da vinculação do pedido ao ato

concessório e na LI.

Informações Complementares

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

Nota Número 10002 Data: 25/03/2010 Hora: 10:42:22

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

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

Nota Número              : 10002

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00014

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

INCLUSÃO DO CAMPO DE IDENTIFICAÇÃO DO ATO CONCESSÓRIO

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

Palavras Chave:

VINCULAÇÃO ATO CONCESSÓRIO LI

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0810

DYNP /PWS/SAPMZYCI068                        0200

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020X01

REPS /PWS/MZYCI068F01

REPS /PWS/MZYCI068O01

REPS /PWS/MZYCI068X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0810

INCLUIR TEXTO "IDENTIFY" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      16

Linha                    1

Coluna                   3

Formato                  CHAR

Texto                    Identificação AC

MODIFICAR CAMPO TEXTO "ITAB_ATOS2-DATA" em tbl.contr./tabstr.

Coluna                   4

MODIFICAR TEXTO "ITAB_ATOS2-DATA" em tbl.contr./tabstr.

Coluna                   4

INCLUIR CAMPO TEXTO "ITAB_ATOS2-IDENTIFY" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      15

Linha                    1

Coluna                   3

Formato                  CHAR

Texto                    _______________

MODIFICAR CAMPO TEXTO "ITAB_ATOS2-MOD_TEXT" em tbl.contr./tabstr.

Altura                   14

Coluna                   5

MODIFICAR TEXTO "ITAB_ATOS2-MOD_TEXT" em tbl.contr./tabstr.

Altura                   14

Coluna                   5

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

Coluna                   7

MODIFICAR TEXTO "ITAB_ATOS2-QTD_TOT" em tbl.contr./tabstr.

Coluna                   7

MODIFICAR CAMPO TEXTO "ITAB_ATOS2-TIPO_TEXT" em tbl.contr./tabstr.

Altura                   15

Coluna                   6

MODIFICAR TEXTO "ITAB_ATOS2-TIPO_TEXT" em tbl.contr./tabstr.

Altura                   15

Coluna                   6

MODIFICAR CAMPO TEXTO "ITAB_ATOS2-VLFOB" em tbl.contr./tabstr.

Coluna                   8

MODIFICAR TEXTO "ITAB_ATOS2-VLFOB" em tbl.contr./tabstr.

Coluna                   8

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI068                        0200

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-DTATOC" em tbl.contr./tabstr.

Coluna                   5

MODIFICAR TEXTO "/PWS/ZYCIE244-DTATOC" em tbl.contr./tabstr.

Coluna                   5

INCLUIR CAMPO TEXTO "/PWS/ZYCIE244-IDENTIFY" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      15

Linha                    1

Coluna                   4

Formato                  CHAR

Linhas mínimas           15

Texto                    _______________

INCLUIR TEXTO "/PWS/ZYCIE244-IDENTIFY" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      16

Linha                    1

Coluna                   4

Formato                  CHAR

Texto                    Identificação AC

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-NRATOC" em tbl.contr./tabstr.

Comprimento Visível      16

Linhas mínimas           16

Texto                    ________________

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-T_IMPORT" em tbl.contr./tabstr.

Comprimento Visível      30

Coluna                   9

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

MODIFICAR TEXTO "/PWS/ZYCIE244-T_IMPORT" em tbl.contr./tabstr.

Coluna                   9

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-T_IMPORTFOB" em tbl.contr./tabstr.

Coluna                   8

MODIFICAR TEXTO "/PWS/ZYCIE244-T_IMPORTFOB" em tbl.contr./tabstr.

Coluna                   8

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

Texto                    _

MODIFICAR CAMPO TEXTO "V_MODALIDADE" em tbl.contr./tabstr.

Coluna                   6

MODIFICAR TEXTO "V_MODALIDADE" em tbl.contr./tabstr.

Coluna                   6

MODIFICAR CAMPO TEXTO "V_TIPO" em tbl.contr./tabstr.

Coluna                   7

MODIFICAR TEXTO "V_TIPO" em tbl.contr./tabstr.

Coluna                   7

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

        ENDIF.

      ENDIF.

    ENDIF.

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

       it_zycit244-tipo NA 'GD' AND

       it_zycit245-j_1bnbm NE /pws/zycie078-steuc1.

      DELETE it_zycit245.

      CONTINUE.

    ENDIF.

    itab_atos-nrseqd     = it_zycit245-nrseqd    .

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

    itab_atos-identify   = it_zycit244-identify  .

* << Fim da inclusão

    itab_atos-nritem     = it_zycit245-nritem    .

    itab_atos-nratoc     = it_zycit244-nratoc    .

    itab_atos-matnr      = it_zycit245-codcomp   .

    itab_atos-grupo      = it_zycit245-grupo     .

    itab_atos-j_1bnbm    = it_zycit245-j_1bnbm   .

    itab_atos-tipo       = it_zycit244-tipo      .

    itab_atos-modalidade = it_zycit244-modalidade.

    itab_atos-data       = it_zycit244-dtatoc    .

    itab_atos-vlfob = it_zycit245-netpr_t - it_zycit245-vlvinc.

    itab_atos-qtd_tot =

...

...

    ENDIF.

    IF itab_atos-status EQ 'E'.

      MODIFY itab_atos TRANSPORTING status

                              WHERE nrseqd EQ itab_atos-nrseqd.

      itab_atos2-status    = itab_atos-status.

      MODIFY itab_atos2 TRANSPORTING status

                              WHERE nrseqd EQ itab_atos-nrseqd.

    ENDIF.

    CLEAR: itab_atos2.

    itab_atos2-nrseqd     = itab_atos-nrseqd.

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

    itab_atos2-identify   = itab_atos-identify.

* << Fim da inclusão

    itab_atos2-nratoc     = itab_atos-nratoc.

    itab_atos2-data       = itab_atos-data.

    itab_atos2-modalidade = itab_atos-modalidade.

    itab_atos2-tipo       = itab_atos-tipo.

    itab_atos2-qtd_tot    = itab_atos-qtd_tot.

    itab_atos2-vlfob      = itab_atos-vlfob.

    itab_atos2-status    = itab_atos-status.

    READ TABLE itab_dd07t WITH KEY

              domname    = v_modal

              domvalue_l = itab_atos2-modalidade.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

      s_ofabric,

      s_oespect,

      s_oref_fabr,

      s_opart_num,

      s_omat_prima_b,

      s_oalad,

      s_ocodtarif,

      s_onaladi.

DATA: BEGIN OF itab_atos OCCURS 0 .

DATA: nrseqd     TYPE /pws/zycit244-nrseqd,

* >> Início da inclusão:

      identify   TYPE /pws/zycit244-identify,

* << Fim da inclusão

      nritem     TYPE /pws/zycit245-nritem,

      nratoc     TYPE /pws/zycit244-nratoc ,

      matnr      TYPE /pws/zycit245-codcomp ,

      grupo      TYPE /pws/zycit245-grupo ,

      j_1bnbm    TYPE /pws/zycit245-j_1bnbm ,

      data       TYPE /pws/zycit244-dtatoc,

      modalidade TYPE /pws/zycit244-modalidade,

      tipo       TYPE /pws/zycit244-tipo,

      qtd_tot    TYPE /pws/zycit245-qtd_tot,

      vlfob      TYPE /pws/zycit245-netpr,

      status    TYPE c.

DATA: END OF itab_atos.

DATA: BEGIN OF itab_atos2 OCCURS 0 .

DATA: nrseqd     TYPE /pws/zycit244-nrseqd,

* >> Início da inclusão:

      identify   TYPE /pws/zycit244-identify,

* << Fim da inclusão

      nratoc     TYPE /pws/zycit244-nratoc ,

      data       TYPE /pws/zycit244-dtatoc,

      modalidade TYPE /pws/zycit244-modalidade,

      tipo       TYPE /pws/zycit244-tipo,

      mod_text   TYPE dd07t-ddtext,

      tipo_text  TYPE dd07t-ddtext,

      qtd_tot    TYPE /pws/zycit245-qtd_tot,

      vlfob      TYPE /pws/zycit245-netpr,

      status     TYPE c,

      icon       TYPE icons-text,

...

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

    ENDIF.

    CLEAR p_qtd.

    EXIT.

  ENDIF.

ENDFORM.

FORM monta_atos_apr.

  REFRESH itab_atos.

  LOOP AT itab_zycit245.

    READ TABLE itab_zycit244 WITH KEY nrseqd = itab_zycit245-nrseqd.

    itab_atos-nrseqd     = itab_zycit245-nrseqd    .

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

    itab_atos-identify   = itab_zycit244-identify  .

* << Fim da inclusão

    itab_atos-nritem     = itab_zycit245-nritem    .

    itab_atos-nratoc     = itab_zycit244-nratoc    .

    itab_atos-matnr      = itab_zycit245-codcomp   .

    itab_atos-j_1bnbm    = itab_zycit245-j_1bnbm   .

    itab_atos-grupo      = itab_zycit245-grupo     .

    itab_atos-tipo       = itab_zycit244-tipo      .

    itab_atos-modalidade = itab_zycit244-modalidade.

    itab_atos-data       = itab_zycit244-dtatoc    .

    itab_atos-vlfob = itab_zycit245-netpr_t - itab_zycit245-vlvinc.

    itab_atos-qtd_tot =

...

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

Modificações efetuadas em REPS /PWS/MZYCI068O01

...

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'ST0100'.

  SET TITLEBAR 'TL0100'.

  DESCRIBE TABLE itab_zycit376_t LINES v_lines.

  tc_ped1-lines = v_lines.

  IF NOT s_apr IS INITIAL.

    tc_ped1-line_sel_mode = 2.

  ENDIF.

ENDMODULE.

MODULE preenche_tl200 OUTPUT.

  /pws/zycie244-nrseqd      =  itab_atos_t-nrseqd    .

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

  /pws/zycie244-identify    =  itab_atos_t-identify  .

* << Fim da inclusão

  /pws/zycie244-nratoc      =  itab_atos_t-nratoc    .

  /pws/zycie244-dtatoc      =  itab_atos_t-data      .

  /pws/zycie244-modalidade  =  itab_atos_t-modalidade.

  /pws/zycie244-tipo        =  itab_atos_t-tipo      .

  /pws/zycie244-t_importfob =  itab_atos_t-vlfob     .

  /pws/zycie244-t_import    =  itab_atos_t-qtd_tot   .

  v_marc                    =  itab_atos_t-marc      .

  CASE itab_atos_t-tipo.

    WHEN 'C'.

      v_tipo = text-007.

    WHEN 'G'.

      v_tipo = text-008.

    WHEN 'N'.

      v_tipo = text-009.

    WHEN 'D' OR 'E'.

      v_tipo = text-026.

  ENDCASE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI068X01

...

          tc_atos     TYPE TABLEVIEW USING SCREEN '0200',

          tc_des      TYPE TABLEVIEW USING SCREEN '0300',

          tc_msg_erro TYPE TABLEVIEW USING SCREEN '0400'.

DATA: BEGIN OF COMMON PART a.

DATA: BEGIN OF itab_zycit376_t OCCURS 0 .

        INCLUDE STRUCTURE /pws/zycit376 .

DATA: marc.

DATA: END OF itab_zycit376_t.

DATA: BEGIN OF itab_atos OCCURS 0 .

DATA: nrseqd     LIKE /pws/zycit244-nrseqd,

* >> Início da inclusão:

      identify   LIKE /pws/zycit244-identify,

* << Fim da inclusão

      nritem     LIKE /pws/zycit245-nritem,

      nratoc     LIKE /pws/zycit244-nratoc ,

      matnr      LIKE /pws/zycit245-codcomp ,

      grupo      LIKE /pws/zycit245-grupo ,

      j_1bnbm    LIKE /pws/zycit245-j_1bnbm ,

      data       LIKE /pws/zycit244-dtatoc,

      modalidade LIKE /pws/zycit244-modalidade,

      tipo       LIKE /pws/zycit244-tipo,

      qtd_tot    LIKE /pws/zycit245-qtd_tot,

      vlfob      LIKE /pws/zycit245-netpr,

...