Sintoma

Parametrização de prazos para registro das operações no SISCOSERV

Solução

Foi criado o parâmetro de prazo para registro das operações no SISCOSERV no programa de parâmetros

gerais

Informações Complementares

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

Nota Número 12650 Data: 06/11/2012 Hora: 09:24:49

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

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

Nota Número              : 12650

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00002

Agrupamento              : 00136

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

Referência às notas relacionadas:

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

05482  - 00001 - 7.0    - 00003  - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

08860  - 00002 - 7.0    - 00010  - LIQUIDAÇÃO - AUMENTAR TAMANHO DOS CAMPOS LIMENTREG E LIMLIQUID

12457  - 00003 - 9.0    - 00001  - TABELAS DE PARÂMETROS

12480  - 00004 - 9.0    - 00001  - SISCOSERV

12604  - 00005 - 9.0    - 00002  - SISCOSERV

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

SISCOSERV

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

Palavras Chave:

SISCOSERV - RAS/RVS - ASSOCIAÇÃO - RELATÓRIO FOLLOW UP

SISCOSERV

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

Objetos da nota:

TABD /PWS/ZYCBT007

DYNP /PWS/SAPMZYGL007                        0131

DYNP /PWS/SAPMZYCA012                        0105

REPS /PWS/ZYCAR021

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA011I01

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

Modificações efetuadas em TABD /PWS/ZYCBT007

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT007

DESCRIÇÃO BREVE: GL - Parâmetros Gerais Câmbio

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela Transparente

CLASSE DE ENTREGA:   C

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO     CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

PRZ_RAS_RVS     /PWS/ZYCBL002

PRZ_RP_RF       /PWS/ZYCBL002

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL2

CATEGOR. TAMANHO: 0

(_) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(X) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(X) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

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

Modificações efetuadas em DYNP /PWS/SAPMZYGL007                        0131

Solicitar o download da tela junto a equipe de produto do pw.CE no telefone (11) 5504.0170

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0105

Solicitar o download da tela junto a equipe de produto do pw.CE no telefone (11) 5504.0170

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

Modificações efetuadas em REPS /PWS/ZYCAR021

...

            v_otimizado    = p_otimi

       tables

            i_fieldcat     = itab_fieldcat

            t_data         = itab_alv

            it_sort        = itab_sort.

endform.

form monta_dados.

  data: v_dias     type i,

        v_ddtext   type dd07v-ddtext,

        v_domvalue type dd07v-domvalue_l,

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

        wa_alv     type ty_alv.

* << Fim da exclusão

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

        wa_alv     type ty_alv,

        v_prz_ras_rvs type /pws/zycbt007-prz_ras_rvs.

* << Fim da inclusão

  refresh itab_alv.

  loop at itab_zycat031 into wa_zycat031.

    read table itab_zycat030 into wa_zycat030

      with key nrseq = wa_zycat031-nrseq.

    move: wa_zycat030-bukrs       to wa_alv-bukrs,

          wa_zycat030-nrseq       to wa_alv-nrseq,

          wa_zycat031-operacao    to wa_alv-operacao,

          wa_zycat031-data_ini    to wa_alv-data_ini,

          wa_zycat031-data_fim    to wa_alv-data_fim,

          wa_zycat031-nbs         to wa_alv-nbs,

          wa_zycat031-waers       to wa_alv-waers,

          wa_zycat031-valor       to wa_alv-valor,

          wa_zycat031-saldo       to wa_alv-saldo,

          wa_zycat031-status      to v_domvalue.

    if wa_zycat030-tp_processo = 'A'.

      wa_alv-tp_processo = text-002.

    else.

      wa_alv-tp_processo = text-003.

    endif.

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

    wa_alv-prazo_web = wa_alv-data_ini + 90.

* << Fim da exclusão

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

    select single prz_ras_rvs

      from /pws/zycbt007

      into v_prz_ras_rvs

      where bukrs = wa_alv-bukrs.

    wa_alv-prazo_web = wa_alv-data_ini + v_prz_ras_rvs.

* << Fim da inclusão

    call function 'DOMAIN_VALUE_GET'

         exporting

              i_domname  = '/PWS/ZYCAD003'

              i_domvalue = v_domvalue

         importing

              e_ddtext   = v_ddtext

         exceptions

              not_exist  = 1

              others     = 2.

    if sy-subrc <> 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

        endif.

      endloop.

      clear v_okcode.

  endcase.

endform.

form atualiza_itab tables   p_itab_zycat039 structure itab_zycat039_r

                   using    p_wa_zycat039   structure  /pws/zycat039

                            p_tc            type cx_tableview.

  data: v_pago value 'X',

        v_prazo type i,

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

        v_processo(20) type c.

* << Fim da exclusão

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

        v_processo(20) TYPE c,

        v_prz_rp_rf    TYPE /pws/zycbt007-prz_rp_rf.

* << Fim da inclusão

  perform verifica_associacao changing p_wa_zycat039

                                       v_pago.

  check v_pago = 'X'.

  move-corresponding p_wa_zycat039 to p_itab_zycat039.

  move: v_mark to p_itab_zycat039-mark,

        /pws/zycat031-nrseq    to p_itab_zycat039-nrseq,

        /pws/zycat031-operacao to p_itab_zycat039-operacao.

  modify p_itab_zycat039 index p_tc-current_line.

  if sy-subrc ne 0.

    read table p_itab_zycat039 into wa_zycat039

...

...

    v_prazo = sy-datum - p_itab_zycat039-dt_pg_rec.

    if not p_itab_zycat039-remessa is initial.

      v_processo = p_itab_zycat039-remessa.

    elseif not p_itab_zycat039-fat_comis is initial.

      v_processo = p_itab_zycat039-fat_comis.

    elseif not p_itab_zycat039-fat_imp is initial.

      v_processo = p_itab_zycat039-fat_imp.

    elseif not p_itab_zycat039-fatura is initial.

      v_processo = p_itab_zycat039-fatura.

    endif.

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

    if v_prazo > 90.

* << Fim da exclusão

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

    IF v_prz_rp_rf IS INITIAL.

      SELECT SINGLE prz_rp_rf

        FROM /pws/zycbt007

        INTO v_prz_rp_rf

        WHERE bukrs = /pws/zycat030-bukrs.

    ENDIF.

    IF v_prazo > v_prz_rp_rf.

* << Fim da inclusão

      message i061 with text-i20 v_processo.

      p_itab_zycat039-msg = 'X'.

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

    elseif v_prazo >= 80.

      v_prazo = 90 - v_prazo.

* << Fim da exclusão

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

    ELSE.

      v_prz_rp_rf = v_prz_rp_rf - 10.

      IF v_prazo >= v_prz_rp_rf.

        v_prz_rp_rf = v_prz_rp_rf + 10.

        v_prazo = v_prz_rp_rf - v_prazo.

* << Fim da inclusão

      message i061 with text-i18 v_prazo

        text-i19 v_processo.

      p_itab_zycat039-msg = 'X'.

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

      ENDIF.

* << Fim da inclusão

    endif.

    modify p_itab_zycat039 index p_tc-current_line.

  endif.

endform.

...

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

Modificações efetuadas em REPS /PWS/MZYCA011I01

...

    WHEN 'V'.

      v_mconame = 'DEBI'.

  ENDCASE.

  CALL FUNCTION 'G_HELP_VALUES_GET'

       EXPORTING

            mc_object      = v_mconame

       IMPORTING

            selected_value = /pws/zycat030-bukrs_ext.

ENDMODULE.

MODULE atualiza_itab_oper INPUT.

* >> Início da exclusão: MODULE ATUALIZA_ITAB_OPER

  DATA: v_prazo TYPE i.

* << Fim da exclusão

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

  DATA: v_prazo TYPE i,

        v_prz_ras_rvs TYPE /pws/zycbt007-prz_ras_rvs.

* << Fim da inclusão

  MOVE-CORRESPONDING /pws/zycat031 TO itab_zycat031t.

  MOVE: v_mark TO itab_zycat031t-mark,

        /pws/zycat030-nrseq TO itab_zycat031t-nrseq,

        /pws/zycat030-waers TO itab_zycat031t-waers.

  IF v_cria = 'X' OR /pws/zycat030-n_rvs_ras IS INITIAL.

    CLEAR itab_zycat031t-origem.

  ELSE.

    READ TABLE itab_zycat031_ant INTO wa_zycat031

      WITH KEY nrseq    = itab_zycat031t-nrseq

               operacao = itab_zycat031t-operacao.

...

...

    ENDIF.

  ENDIF.

  IF v_okcode NE 'BACK'           AND

     /pws/zycat030-status NE 'PS' AND

     /pws/zycat030-status NE 'EX' AND

     /pws/zycat030-status NE 'ES'.

    READ TABLE itab_zycat031t INDEX tc_oper-current_line.

    CHECK itab_zycat031t-msg IS INITIAL.

    CHECK NOT /pws/zycat031-data_ini IS INITIAL.

    v_prazo = sy-datum - /pws/zycat031-data_ini.

* >> Início da exclusão: MODULE ATUALIZA_ITAB_OPER

    IF v_prazo > 90.

* << Fim da exclusão

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

    SELECT SINGLE prz_ras_rvs

      FROM /pws/zycbt007

      INTO v_prz_ras_rvs

      WHERE bukrs = /pws/zycat030-bukrs.

    IF v_prazo > v_prz_ras_rvs.

* << Fim da inclusão

      MESSAGE i061 WITH text-i23 /pws/zycat031-operacao.

      itab_zycat031t-msg = 'X'.

* >> Início da exclusão: MODULE ATUALIZA_ITAB_OPER

    ELSEIF v_prazo >= 80.

      v_prazo = 90 - v_prazo.

* << Fim da exclusão

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

    ELSE.

      v_prz_ras_rvs = v_prz_ras_rvs - 10.

      IF v_prazo >= v_prz_ras_rvs.

        v_prz_ras_rvs = v_prz_ras_rvs + 10.

        v_prazo = v_prz_ras_rvs - v_prazo.

* << Fim da inclusão

      MESSAGE i061 WITH text-i21 v_prazo

        text-i22 /pws/zycat031-operacao.

      itab_zycat031t-msg = 'X'.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    MODIFY itab_zycat031t INDEX tc_oper-current_line.

  ENDIF.

ENDMODULE.

...