Sintoma

Ao salvar o complemento do boleto de mais de uma remessa, onde as mesmas tem impostos e os mesmos

estão para BCO(banco), é efetuada uma F-51 e esta ocorrendo erro no filtro por atribuição.

Solução

Retirar o filtro por atribuição, pois o essencial é o filtro por data de lançamento, de atribuição

não é necessário.

Informações Complementares

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

Nota Número 05287 Data: 22/11/2007 Hora: 15:50:28

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

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

Nota Número              : 05287

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00022

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - REMESSAS AGRUPADAS-IMPOSTOS - F-51 - ATRIBUIÇÃO

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

Palavras Chave:

COMPLEMENTO DO BOLETO REMESSAS AGRUPADAS IMPOSTOS F-51 ATRIBUIÇÃO

IRRF CIDE BCO ZUONR

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

Objetos da nota:

FUNC /PWS/ZYGL_TRANSACAO_F_51K

REPS /PWS/MZYCA110F01

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_51K

MODIFICAR MÓDULO DE FUNÇÃO: /PWS/ZYGL_TRANSACAO_F_51K

IMPORTAÇÃO:

NOME PARAM.        ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

V_NFILTRA_ATRIB    TYPE   C                             'X'      ' '     Define se irá filtrar por

                                                                         atribução

...

      WHERE event = 'SU-AG'

        AND feldn = 'ZUONR'.

    IF sy-subrc EQ 0.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

      v_pos_zuonr = v_xpos1.

      v_xpos1 = ( ( v_pos_zuonr - 1 ) MOD 10 ) + 1.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

      v_pos_zuonr = ( v_pos_zuonr - 1 ) DIV 10.

      CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_zuonr.

    ENDIF.

* >> Início da exclusão: FUNCTION /PWS/ZYGL_TRANSACAO_F_51K

    IF NOT t_dados-c_zuonr IS INITIAL.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYGL_TRANSACAO_F_51K

    IF NOT t_dados-c_zuonr IS INITIAL

       AND v_nfiltra_atrib IS INITIAL.

* << Fim da inclusão

      PERFORM bdc_screen USING 'SAPDF05X'    '3100'.

      PERFORM bdc_field  USING 'RF05A-ABPOS' '1'.

      PERFORM bdc_field  USING 'BDC_OKCODE'  '=OSU'.

      DO v_pos_zuonr TIMES.

        PERFORM bdc_screen USING 'SAPDF05X'   '2000'.

        PERFORM bdc_field  USING 'BDC_OKCODE'  'P+'.

      ENDDO.

      PERFORM bdc_screen USING 'SAPDF05X'    '2000'.

      PERFORM bdc_field  USING v_xpos_zuonr  'X'.

      PERFORM bdc_field  USING 'BDC_OKCODE'  '=GO'.

...

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

        t_dados = itab_zycbe033.

    MODIFY itab_zycbe033 INDEX 1.

  ENDIF.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034[] IS INITIAL.

    CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_51K'

         EXPORTING

              v_modo          = v_modo_bi

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

              v_nfiltra_atrib = 'X'

* << Fim da inclusão

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

    IF sy-subrc = 0.

...