Sintoma

1 - Ajuste para Associação de RAS/RVS, Origem Pedido de Compra, gerando mensagem indevida

    "o valor associado está maior que o valor da RAS/RVS."

2 - Alterar o nome de Associação em Massa para Associação Automática.

3 - Na Associação em Massa incluir drill down nos campos Processos e RAS/RVS.

4 - Quando é criado registro de RAS/RVS sem origem ao associar o sistema apresenta

    todas as pastas com as possibilidades de Associação. Nas pastas de Remessa e Fatura

    Exportação estão sendo exibidas as colunas de Fornecedor, Despesa e Prestação indevidamente.

5 - Quando é criado registro de RAS/RVS com Forma de Processamento Automático, a pasta de

    Associação Outros, está permitindo alterar o conteúdo do Campo STATUS. Só é permitido

    quando a Forma de Processamento for Manual.

Solução

1 - Ajuste realizado para Associação de Pedido de Compra.

2 - Nomes alterados

3 - Drill Down incluído para campo Processos e RAS/RVS.

4 - Quando associação de RAS/RVS Sem Origem, as colunas Não serão Exibidas nas

    pastas correspontes.

5 - Quando associação com Forma de Pagto Automática, o campo Status, na Pasta Outros não

    será habilitada para digitação, apenas para processos manuais.

    pastas correspontes.

Informações Complementares

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

Nota Número 14121 Data: 04/08/2014 Hora: 14:28:54

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

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

Nota Número              : 14121

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00008

Agrupamento              : 00173

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

Referência às notas relacionadas:

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

13068  - 00001 - 9.0    - 00005  - REQUEST COMPLETA SISCOSERV

13408  - 00002 - 9.0    - 00006  - ASSOCIAÇÃO SISCOSERV, ASSOCIAR FATURAS COM VALORES PARCIAIS

13542  - 00003 - 9.0    - 00006  - SISCOSERV, RAS/RVS DE COMISSÃO DE AGENTE E PRESTAÇÃO DE CONTAS

13735  - 00004 - 9.0    - 00007  - SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

13790  - 00005 - 9.0    - 00007  - SISCOSERV - ASSOCIAÇÃO

13874  - 00006 - 9.0    - 00007  - SISCOSERV - CRIAÇÃO AUTOMÁTICA DE RAS/RVS

14033  - 00007 - 9.0    - 00007  - SISCOSERV - ASSOCIAÇÃO

14099  - 00008 - 9.0    - 00008  - ASSOCIAÇÃO RAS/RVS - CAMPO NÚMERO NOTA FISCAL OBRIGATÓRIO

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

SISCOSERV, AJUSTES PROGRAMA DE ASSOCIAÇÃO DO SISCOSERV

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

Palavras Chave:

SISCOSERV, AJUSTES PROGRAMA DE ASSOCIAÇÃO DO SISCOSERV

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

Objetos da nota:

DOMD /PWS/ZYCAD032

CUAD /PWS/SAPMZYCA012

DYNP /PWS/SAPMZYCA012                        0200

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA012O01

REPT /PWS/SAPMZYCA012

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

Modificações efetuadas em DOMD /PWS/ZYCAD032

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

Domínio modificado: /PWS/ZYCAD032

Alteração na Descrição do Domínio do Item "B - Associação RAS/RVS com origem - Em Massa"

-Valores individuais

Modificado valor fixo "B"

Texto modificado, idioma: PT (42 caracteres):

"Associação RAS/RVS com origem - Automática"

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

Modificações efetuadas em CUAD /PWS/SAPMZYCA012

*** ALTERAÇÃO DO STATUS GUI - 0200

*** INCLUIR Função em.: "TECLAS DE FUNÇÃO"

- Barra de menu

- Barra de botões

- Teclas de Função

     Definições recomendadas de teclas função

     - F2 - SELEC - Selecionar

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

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

*** Efetuar download da(s) tela(s) no Portal de Produtos, caminho:

*** Aplicativos -> pw.CE -> Notas -> Notas - Telas -> Câmbio -> 14121_TELA.

*** Descompacta-lo e efetuar upload no programa e tela correspondente, transação SE80.

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

        ELSE.

          DELETE itab_zycat039_fe.

        ENDIF.

      ENDLOOP.

      CLEAR v_okcode.

  ENDCASE.

ENDFORM.

FORM busca_doc_pedido USING p_ebeln

                            p_ebelp

                   CHANGING p_pago.

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

  DATA: itab_ekbe  TYPE TABLE OF ty_ekbe,

        wa_ekbe    TYPE ty_ekbe,

        itab_awkey TYPE TABLE OF ty_awkey,

        wa_awkey   TYPE bkpf-awkey,

        itab_bkpf  TYPE TABLE OF ty_bkpf,

        itab_bsak  TYPE TABLE OF ty_bsak,

        itab_total TYPE TABLE OF ty_total,

        wa_bsak    TYPE ty_bsak,

        wa_total   TYPE ty_total,

        v_valor    TYPE /pws/zycat039-valor,

        v_val_aux  TYPE /pws/zycat039-valor.

* << Fim da exclusão

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

  data: itab_ekbe   type table of ty_ekbe,

        wa_ekbe     type ty_ekbe,

        itab_awkey  type table of ty_awkey,

        wa_awkey    type bkpf-awkey,

        itab_bkpf   type table of ty_bkpf,

        itab_bsak   type table of ty_bsak,

        itab_total  type table of ty_total,

        wa_bsak     type ty_bsak,

        wa_total    type ty_total,

        v_valor     type /pws/zycat039-valor,

        v_val_aux   type /pws/zycat039-valor,

        v_val_assoc type /pws/zycat039-valor.

* << Fim da inclusão

  CLEAR: p_pago,

         v_val_aux.

  SELECT ebeln gjahr belnr bewtp shkzg

    FROM ekbe

    INTO TABLE itab_ekbe

    WHERE ebeln = p_ebeln

      AND ebelp = p_ebelp.

  DELETE itab_ekbe WHERE bewtp NE 'Q'.

  DELETE itab_ekbe WHERE shkzg NE 'S'.

  IF NOT itab_ekbe[] IS INITIAL.

...

...

            AND gjahr = itab_bkpf-gjahr

            AND belnr = itab_bkpf-belnr.

        LOOP AT itab_bsak INTO wa_bsak.

          READ TABLE itab_zycat039 INTO wa_zycat039

            WITH KEY fatura = wa_bsak-augbl.

          IF sy-subrc NE 0.

            MOVE-CORRESPONDING wa_bsak TO wa_total.

            COLLECT wa_total INTO itab_total.

          ENDIF.

        ENDLOOP.

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

        select sum( valor )

          from /pws/zycat039

          into v_val_assoc

          where nrseq    eq /pws/zycat031-nrseq

            and operacao eq /pws/zycat031-operacao.

* << Fim da inclusão

        LOOP AT itab_total INTO wa_total.

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

          clear: v_val_aux.

* << Fim da inclusão

          SELECT SUM( valor )

            FROM /pws/zycat039

            INTO v_valor

            WHERE ( nrseq    NE /pws/zycat031-nrseq

               OR operacao NE /pws/zycat031-operacao )

              AND fatura = wa_total-augbl.

...

...

                wa_total-wrbtr          TO wa_zycat039o-valor.

          IF v_dom_tporigem EQ 'B'.

            IF wa_total-waers EQ itab_zycat031_ass-waers.

              v_val_aux = v_val_aux + wa_total-wrbtr.

              IF v_val_aux  LE  itab_zycat031_ass-valor.

                APPEND wa_zycat039o TO itab_zycat039_ass.

                p_pago = 'X'.

              ENDIF.

            ENDIF.

          ELSE.

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

            v_val_aux = wa_total-wrbtr + v_val_assoc.

            if v_val_aux gt /pws/zycat031-valor.

              v_val_aux = /pws/zycat031-valor - v_val_assoc.

            else.

              v_val_aux = wa_total-wrbtr.

            endif.

            wa_zycat039o-valor = v_val_aux.

            v_val_assoc = v_val_assoc + v_val_aux.

* << Fim da inclusão

            APPEND wa_zycat039o TO itab_zycat039_o.

          ENDIF.

          CLEAR wa_zycat039o.

        ENDLOOP.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM valida_tipo_fatura

    USING    p_fat_imp

...

...

        MODIFY itab_zycat031_ass.

      ENDLOOP.

      CLEAR v_okcode.

    WHEN 'ELIM'.

      LOOP AT itab_zycat031_ass WHERE mark = 'X'.

        DELETE itab_zycat031_ass.

      ENDLOOP.

      CLEAR v_okcode.

    WHEN 'EXEC'.

      PERFORM processar_associacao_massa.

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

    when 'SELEC'.

      perform drill_down.

* << Fim da inclusão

  ENDCASE.

ENDFORM.

FORM busca_ras_rvs_associacao.

  DATA: v_tabix_ass     TYPE sy-tabix,

        wa_zycat039aux  TYPE /pws/zycat039,

        v_tipo_pt(3) TYPE c,

        v_dtcredpr   TYPE /pws/zycbt031-dtcredpr,

        v_nrseqrem   TYPE /pws/zycet033-nrseqrem,

        v_embarque   TYPE /pws/zycet033-nrseq.

  DATA: BEGIN OF itab_zycat039_aux OCCURS 0,

...

...

  CHECK NOT pf_valor IS INITIAL.

  IF screen-name IN pf_campos.

    IF sy-tcode = '/PWS/ZYCA012'.

      screen-required = '1'.

    ELSE.

      screen-required = '0'.

    ENDIF.

    MODIFY SCREEN.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

form drill_down.

  data: v_field(30)  type c,

        v_value(20)  type c,

        v_nrseq      type /pws/zycat030-nrseq,

        v_processo   type /pws/zycat031-nrseq_origem,

        v_line       type sy-index,

        v_call       value 'X'.

  get cursor field v_field value v_value.

  get cursor line v_line.

  if v_field = 'WA_ZYCAT039A-NRSEQ'.

    v_nrseq = v_value.

    shift v_nrseq right deleting trailing space.

    while sy-subrc eq 0.

      replace space with '0' into v_nrseq.

    endwhile.

    set parameter id '/PWS/ZYCAP005' field v_nrseq.

    export v_call to memory id 'ASS'.

    call transaction '/PWS/ZYCA011_E' and skip first screen.

  elseif v_field = 'WA_ZYCAT039A-NRSEQ_ORIGEM'.

    v_line = ( v_line + tc_associacao-top_line ) - 1.

    v_processo = v_value.

    shift v_processo right deleting trailing space.

    while sy-subrc eq 0.

      replace space with '0' into v_processo.

    endwhile.

    read table itab_zycat031_ass index v_line.

    check sy-subrc eq 0.

    case itab_zycat031_ass-tp_origem.

      when 'FI' or 'SI' or 'EI' or 'DI'.

        set parameter id '/PWS/ZYCIP001' field v_processo.

        call transaction '/PWS/ZYCI001_E' and skip first screen.

        set parameter id '/PWS/ZYCIP001' field ''.

      when 'FE' or 'SE' or 'EE' or 'CA'.

        set parameter id '/PWS/ZYCEP001' field v_processo.

        call transaction '/PWS/ZYCE003_E' and skip first screen.

        set parameter id '/PWS/ZYCEP001' field ''.

      when 'PT'.

        set parameter id '/PWS/ZYGLP163' field v_processo.

        call transaction '/PWS/ZYCE013_E' and skip first screen.

        set parameter id '/PWS/ZYGLP163' field ''.

      when 'PC' or 'FP' or 'SP'.

        set parameter id 'BES' field v_processo.

        call transaction 'ME23N'.

        set parameter id 'BES' field ''.

      when 'OV'.

        set parameter id 'AUN' field v_processo.

        call transaction 'VA03' and skip first screen.

        set parameter id 'AUN' field ''.

      when 'DC'.

    endcase.

  endif.

  clear v_okcode.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA012O01

...

        wa_cols-screen-input = '1'.

      endif.

      modify tc_remessa-cols from wa_cols.

    endloop.

  endif.

  loop at tc_remessa-cols into wa_cols.

    if wa_cols-screen-name = 'WA_ZYCAT039R-DESPACH'  or

       wa_cols-screen-name = 'WA_ZYCAT039R-TPDESP'   or

       wa_cols-screen-name = 'WA_ZYCAT039R-NRPRES'.

      wa_cols-screen-input     = '0'.

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

      wa_cols-screen-invisible = '1'.

* << Fim da exclusão

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

      if /pws/zycat030-tp_origem is initial.

        wa_cols-invisible = 1.

      else.

        wa_cols-invisible = 0.

      endif.

      modify tc_remessa-cols from wa_cols.

* << Fim da inclusão

    endif.

  endloop.

endmodule.

module ajusta_tc output.

  clear v_lines.

  case sy-dynnr.

    when '0101'.

      delete itab_zycat039_r where remessa is initial.

      describe table itab_zycat039_r lines v_lines.

      tc_remessa-lines = v_lines + 15.

...

...

      wa_cols-screen-input = '0'.

      modify tc_outros-cols from wa_cols.

    endloop.

  else.

    loop at screen.

      screen-input = 1.

      modify screen.

    endloop.

    loop at tc_outros-cols into wa_cols.

      if wa_cols-screen-name = 'WA_ZYCAT039O-STATUS' and

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

        not /pws/zycat030-processamento is initial.

* << Fim da exclusão

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

        /pws/zycat030-processamento is initial.

        wa_cols-screen-input = '0'.

      else.

* << Fim da inclusão

        wa_cols-screen-input = '1'.

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

      elseif wa_cols-screen-name ne 'WA_ZYCAT039O-STATUS'.

        wa_cols-screen-input = '1'.

* << Fim da exclusão

      endif.

      modify tc_outros-cols from wa_cols.

    endloop.

  endif.

  loop at tc_outros-cols into wa_cols.

...

...

        wa_cols-screen-input = '1'.

      endif.

      modify tc_fatexp-cols from wa_cols.

    endloop.

  endif.

  loop at tc_fatexp-cols into wa_cols.

    if wa_cols-screen-name = 'WA_ZYCAT039FE-DESPACH' or

       wa_cols-screen-name = 'WA_ZYCAT039FE-TPDESP'  or

       wa_cols-screen-name = 'WA_ZYCAT039FE-NRPRES'.

      wa_cols-screen-input     = '0'.

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

      wa_cols-screen-invisible = '1'.

* << Fim da exclusão

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

      if /pws/zycat030-tp_origem is initial.

        wa_cols-invisible = 1.

      else.

        wa_cols-invisible = 0.

      endif.

      modify tc_fatexp-cols from wa_cols.

* << Fim da inclusão

    endif.

  endloop.

endmodule.

module atualiza_tela_fatexp output.

  perform atualiza_tela using itab_zycat039_fe

                               wa_zycat039fe.

endmodule.

module status_0003 output.

  set pf-status '0003'.

  set titlebar  '0003'.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCA012

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 003

Texto: (56 caracteres)

"Tipo Origem - Associação RAS/RVS com origem - Automática"

Comprimento máximo: 56