Sintoma

Ajuste no tratamento de verificações no ato concessório para tratar o campo vencimento final.

Solução

Ajuste no tratamento de verificações no ato concessório para tratar o campo vencimento final.

Informações Complementares

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

Nota Número 09129 Data: 02/10/2009 Hora: 10:20:19

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

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

Nota Número              : 09129

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

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

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

ADITIVO PARA MUDANÇA DA DATA DE VENCIMENTO FINAL.

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

Palavras Chave:

ATO - CONCESSORIO - ADITIVO - DATA - VENCIMENTO - FINAL

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040F02

REPT /PWS/SAPMZYCI040

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

    itab_botoes2-bname = 'TRANS'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'COMPR'.

    APPEND itab_botoes2.

  ELSEIF /pws/zycie244-status NE 'D'.

    itab_botoes2-bname = 'COMPR'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ENCER'.

    APPEND itab_botoes2.

  ENDIF.

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

  IF /pws/zycie244-modalidade NE 'I'.

    itab_botoes2-bname = 'DOC'.

    APPEND itab_botoes2.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

...

        APPEND itab_zycit245t.

      ENDIF.

    ENDLOOP.

    REFRESH itab_zycit245.

    itab_zycit245[] = itab_zycit245t[].

  ENDIF.

  IF wa_zycit244-status EQ 'D' AND

  /pws/zycie244-status EQ 'D' AND

  v_ver_alt IS INITIAL AND

   ( wa_zycit244-vcto_vg  NE /pws/zycie244-vcto_vg OR

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

     wa_zycit244-vcto_fn NE /pws/zycie244-vcto_fn OR

* << Fim da inclusão

     itab_zycit245_save[] NE itab_zycit245[]       OR

     itab_zycit247_save[] NE itab_zycit247[] ).

    CALL FUNCTION 'POPUP_TO_CONFIRM'

         EXPORTING

            titlebar                    = text-039

            text_question               = text-314

            text_button_1               = text-041

            text_button_2               = text-042

            default_button              = '1'

            display_cancel_button       = 'X'

...

...

    v_erro2 = 'N'.

    EXIT.

  ENDIF.

  IF NOT /pws/zycie244-nratoc IS INITIAL AND

     v_numatoinf EQ 'N'.

    v_erro2 = 'N'.

    EXIT.

  ENDIF.

  IF wa_zycit244-vcto_vg EQ /pws/zycie244-vcto_vg

      AND wa_zycit244-werks EQ /pws/zycie244-werks

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

      AND wa_zycit244-vcto_fn EQ /pws/zycie244-vcto_fn

* << Fim da inclusão

      AND itab_zycit247_save[] EQ itab_zycit247[]

      AND itab_zycit245_save[] EQ itab_zycit245[].

    v_erro2 = 'N'.

    EXIT.

  ENDIF.

  v_aditivo2_ant = v_aditivo2.

  CALL METHOD editor2->get_text_as_r3table IMPORTING table = src2[].

  READ TABLE src INTO wa_src WITH KEY nraditivo = v_aditivo2.

  IF sy-subrc NE 0.

    LOOP AT src2 INTO wa_src2.

...

...

        itab_zycit457-tpalter = 'P'.

        itab_zycit457-aditivo = /pws/zycie244-aditivo.

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

          itab_zycit457-de      = v_data1.

          itab_zycit457-para    = v_data2.

        ELSE.

          v_dias_p = /pws/zycie244-vcto_vg - wa_zycit244-vcto_vg.

          itab_zycit457-para    = v_dias_p.

        ENDIF.

        APPEND itab_zycit457.

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

      ENDIF.

      IF wa_zycit244-vcto_fn NE /pws/zycie244-vcto_fn.

        wa_src2-line = text-359.

        APPEND wa_src2 TO src2.

        CONCATENATE wa_zycit244-vcto_fn+6(2) '/'

          wa_zycit244-vcto_fn+4(2) '/' wa_zycit244-vcto_fn(4)

                INTO v_data1.

        CONCATENATE /pws/zycie244-vcto_fn+6(2) '/'

          /pws/zycie244-vcto_fn+4(2) '/' /pws/zycie244-vcto_fn(4)

                INTO v_data2.

        CLEAR: v_mensagem.

        CONCATENATE text-214 v_data1

                INTO v_mensagem SEPARATED BY space.

        wa_src2-line = v_mensagem.

        APPEND wa_src2 TO src2.

        CLEAR: v_mensagem.

        CONCATENATE text-215 v_data2

              INTO v_mensagem SEPARATED BY space.

        wa_src2-line = v_mensagem.

        APPEND wa_src2 TO src2.

        wa_src2-line = text-229.

        APPEND wa_src2 TO src2.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    itab_zycit245_vf[] = itab_zycit245[].

    itab_zycit247_vf[] = itab_zycit247[].

    IF itab_zycit247_save[] NE itab_zycit247[]       .

      LOOP AT itab_zycit247_save.

        READ TABLE itab_zycit247_vf WITH KEY nritem =

                                            itab_zycit247_save-nritem.

        IF sy-subrc EQ 0.

          v_tpalter = 'A'.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI040

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 359

Texto: (56 caracteres)

"Alteração da data de vencimento final do Ato Concessório"

Comprimento máximo: 60