Sintoma

Ao criar uma remessa de pagamento em regime de competência, para os impostos, não está sendo levando

para o campo referência a informação do texto informativo da remessa.

Solução

O programa foi corrigido para preencher o campo referência com o campo TXTINF.

Informações Complementares

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

Nota Número 00425 Data: 08/12/2005 Hora: 16:58:20

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

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

Nota Número              : 00425

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

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

00101  - 00002 - 6.0    - 00021  - ABERTO PONTOS DE EXIT NO ESTORNO DO RECEBIMENTO.

00367  - 00001 - 6.0    - 00021  - ERRO AO ESTORNAR A MIRO.

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

NF REMESSA LEVA CAMPO REFERÊNCIA ESTÁ INCORRETO.

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

Palavras Chave:

ANO CONTÁBIL - CAMPO REFERÊNCIA - NF REMESSA

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_51C

FUNC /PWS/ZYCI_TRANSACAO_MBST

FUNC /PWS/ZYCI_TRANSACAO_MR8M

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017I01

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI037F01

REPS /PWS/MZYCI037TOP

REPS /PWS/SAPMZYCI037

REPS /PWS/ZYCIR012

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51C

...

 perform check_periodo using    v_koart

                                v_monat

                                v_bukrs

                                v_gjahr

                       changing v_budat

                                v_ok.

 concatenate '0' v_budat+3(2) into v_monat.

* << Início Inclusão >>                   <------Nota

*  move v_budat+6(4) to v_gjahr.

* << Fim    Inclusão >>                   <------Nota

* endwhile.

*Buscando Empresas com a mesma conta

  clear v_empresas.

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MBST

...

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'MBST'.

* Tela 0460 - Eliminar doc de recebimento

    PERFORM bdc_screen USING 'SAPMM07M' '0460'.

    WRITE t_dados-budat TO v_data_char.

    PERFORM bdc_field  USING:

* << Início Inclusão >>                   <------Nota

*           'BDC_OKCODE'       '=SEKL',

           'BDC_OKCODE'       '=SELK',

* << Fim    Inclusão >>                   <------Nota

*           'BDC_OKCODE'       '/00',

           'BDC_CURSOR'       'RM07M-MBLNR',

           'MKPF-BUDAT'        v_data_char,

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MR8M

...

* Processamento

*

* Lê dados da tabela t_dados

  LOOP AT T_DADOS.

    CHECK T_DADOS-TCODE = 'MR8M'.

* << Início Inclusão >>                   <------Nota

*  v_ano = sy-datum+0(4).

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

      EXPORTING

        v_bukrs                      = t_dados-bukrs

        v_date                       = t_dados-budat

     IMPORTING

       v_year                       = v_ano.

* << Fim    Inclusão >>                   <------Nota

  v_monat = sy-datum+4(2).

  " Verifica se o período a ser estornado está aberto

  CALL FUNCTION 'FI_PERIOD_CHECK'

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

        CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

      ELSE.

        MESSAGE e261(sf) WITH 'FB03'.

      ENDIF.

    ENDIF.

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

  ELSEIF v_campo EQ ''.

* << Fim da inclusão

  ELSE.

    MESSAGE s015 WITH text-136.

  ENDIF.

ENDFORM.

FORM converter_documento.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

          WHERE bukrs = /pws/zycie006-bukrs

            AND belnr = /pws/zycie006-nrseq.

        i_belnr = v_valor.

        i_bukrs = /pws/zycie006-bukrs.

        IF NOT /pws/zycie006-dtlanc IS INITIAL.

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

          CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

            EXPORTING

              v_bukrs                      = i_bukrs

              v_date                       = /pws/zycie006-dtlanc

           IMPORTING

             v_year                       = i_gjahr

                    .

          IF sy-subrc <> 0.

* << Fim da inclusão

          i_gjahr = /pws/zycie006-dtlanc+0(4).

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

            SET PARAMETER ID 'GJR' FIELD i_gjahr.

          ENDIF.

* << Fim da inclusão

        ENDIF.

        SET PARAMETER ID 'BUK' FIELD i_bukrs.

        SET PARAMETER ID 'BLN' FIELD i_belnr.

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

        SET PARAMETER ID 'GJR' FIELD i_gjahr.

* << Fim da exclusão

        AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.

        IF sy-subrc EQ 0.

          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

        ELSE.

          MESSAGE e261(sf) WITH 'FB03'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

    READ TABLE itab_zyglt100 WITH KEY

                     zexit = 'RCB012' BINARY SEARCH.

    IF sy-subrc EQ 0.

      IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

        e_estorno = 'MR8M'.

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

        EXPORT e_estorno TO MEMORY ID '007_28'.

* << Fim da inclusão

        PERFORM (itab_zyglt100-formulario) IN PROGRAM

            (itab_zyglt100-programa) IF FOUND.

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

             IMPORT e_subrc FROM MEMORY ID '006_28'.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    IF e_subrc EQ 0.

      CALL FUNCTION '/PWS/ZYCI_TRANSACAO_MR8M'

           EXPORTING

...

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

Modificações efetuadas em REPS /PWS/MZYCI017I01

...

      v_soma_qtde = itab_zycit223-qtde + v_soma_qtde.

    ENDLOOP.

  ENDIF.

ENDMODULE.

MODULE user_command_0050 INPUT.

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

  CLEAR:  e_exec_okcode.

* << Fim da exclusão

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

  CLEAR:  e_exec_okcode,

          r_okcode.

* << Fim da inclusão

  okcode = sy-ucomm.

  CALL METHOD cl_gui_cfw=>dispatch.

  IF NOT r_okcode IS INITIAL.

    okcode = r_okcode.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

          APPEND it_ekpo.

        ELSE.

          CONTINUE.

        ENDIF.

      ENDIF.

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

      PERFORM converte_um_ncm USING it_ekpo-matnr

* << Fim da inclusão

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

      PERFORM converte_um_ncm USING it_ekpo-ematn

* << Fim da exclusão

                           CHANGING it_zycit079-meins

                                    it_zycit079-qtd_iten.

      /pws/zycie078-qtdest = /pws/zycie078-qtdest +

                             it_zycit079-qtd_iten.

    ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

ENDMODULE.

MODULE load_ppro INPUT.

  PERFORM load_pais USING /pws/zycie100a-pproc CHANGING t_ppais s_pais.

ENDMODULE.

MODULE calc_vii INPUT.

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

  PERFORM calcula_impostos USING 'I'.

* << Fim da exclusão

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

  PERFORM calcula_impostos USING 'T'.

* << Fim da inclusão

  wa_it-baseii   = itab_it-baseii.

  wa_it-vlii     = itab_it-vlii.

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

  wa_it-baseicms = itab_it-baseicms.

...

...

      ENDIF.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE calc_vipi INPUT.

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

  PERFORM calcula_impostos USING 'I'.

* << Fim da exclusão

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

  PERFORM calcula_impostos USING 'T'.

* << Fim da inclusão

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

  wa_it-baseicms = itab_it-baseicms.

  wa_it-vlicms   = itab_it-vlicms.

  wa_it-advalipi  = itab_it-advalipi = /pws/zycie003-advalipi.

...

...

  itab_it-modalidade = /pws/zycie003-modalidade .

  PERFORM set_codregtri.

  IF /pws/zycie003-advalicms >= '100'.

    /pws/zycie003-advalicms = '0'.

  ENDIF.

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

  PERFORM calcula_impostos USING 'I'.

* << Fim da exclusão

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

  PERFORM calcula_impostos USING 'T'.

* << Fim da inclusão

  itab_it-basred = /pws/zycie003-basred.

  wa_it-baseicms = itab_it-baseicms.

  wa_it-vlicms   = itab_it-vlicms.

  wa_it-advalicms  = itab_it-advalicms = /pws/zycie003-advalicms.

  itab_zycit003-nrseqd = /pws/zycie003-nrseqd.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

    CLEAR: /pws/zycie100a-codregtriipi, /pws/zycie003-advalipi,

           /pws/zycie100a-notatipi,     /pws/zycie100a-reduzidaipi,

           /pws/zycie100a-unit_valor,   /pws/zycie100a-unit_meins,

           /pws/zycie100a-unit_qtde,    /pws/zycie100a-unit_reccapac,

           /pws/zycie100a-unit_rectipo..

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

    PERFORM calcula_impostos USING 'I'.

* << Fim da exclusão

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

    PERFORM calcula_impostos USING 'T'.

* << Fim da inclusão

    wa_it-baseipi  = itab_it-baseipi.

    wa_it-vlipi    = itab_it-vlipi.

    wa_it-baseicms = itab_it-baseicms.

    wa_it-vlicms   = itab_it-vlicms.

    wa_it-vlpis    = itab_it-vlpis .

...

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

Modificações efetuadas em REPS /PWS/MZYCI037F01

...

      COLLECT itab_docscont_aux2.

      modify itab_docscont.

    ENDLOOP.

  ENDLOOP.

  SORT itab_docscont_aux2 BY conta_r evento belnr.

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

  LOOP AT itab_docscont_aux2.

    PERFORM obtem_ano_contabil_param USING itab_docscont_aux2-bldat

                                           /pws/zycie001-bukrs

                                  CHANGING v_year.

    itab_docscont_aux2-bldat+0(4) = v_year.

    MODIFY itab_docscont_aux2.

  ENDLOOP.

* << Fim da inclusão

  IF NOT itab_docscont_aux2[] IS INITIAL.

    SELECT * FROM bsis INTO TABLE itab_bsis

           FOR ALL ENTRIES IN itab_docscont_aux2 WHERE

               bukrs EQ /pws/zycie001-bukrs             AND

               hkont EQ itab_docscont_aux2-conta_r AND

...

...

    itab_matuse_aux1-conta_r = itab_cta-konth.

    itab_matuse_aux1-werks   = itab_ekpo-werks.

    COLLECT itab_matuse_aux1.

  ENDLOOP.

endform.

* >> Início da inclusão: obtem_ano_contabil_param

FORM obtem_ano_contabil_param  USING    p_v_date

                                        p_v_bukrs

                               CHANGING p_v_year.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

    EXPORTING

      v_bukrs                = p_v_bukrs

      v_date                 = p_v_date

    IMPORTING

      v_year                 = p_v_year

    EXCEPTIONS

      variante_de_exercicio  = 1

      data_nao_encontrada    = 2

      empresa_nao_encontrada = 3

      period_in_not_valid    = 4

      period_not_assigned    = 5

      version_undefined      = 6

      OTHERS                 = 7.

  IF sy-subrc NE 0.

    p_v_year = p_v_date+0(4).

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI037TOP

...

      v_campo(35),

      v_valor(20),

      v_cgc1(18),

      v_nrseq like /pws/zycie001-nrseq,

      v_subrc,

* >> Início da inclusão:

  v_year   like bkpf-gjahr,

* << Fim da inclusão

      v_nradto like /pws/zycit008-nradto,

      v_netpr  like /pws/zycit201-netpr ,

      v_vlreal like /pws/zycit201-vlreal,

      v_vlmov  like /pws/zycit201-vlmov ,

      v_vldif  like /pws/zycit201-vldif ,

...

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

Modificações efetuadas em REPS /PWS/ZYCIR012

...

                output = i_belnr

           EXCEPTIONS

                OTHERS = 1.

    ENDIF.

    SELECT SINGLE * FROM /pws/zycit001 WHERE

            nrseq   = i_nrseq.

    SELECT SINGLE * FROM /pws/zycit202 INTO wa_zycit202

            WHERE nrseq    =  itab_zycit001-nrseq.

    i_belnr = p_nrdoc.

    i_bukrs = /pws/zycit001-bukrs.

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

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

         EXPORTING

              v_bukrs = itab_zycit041-bukrs

              v_date  = itab_zycit041-dtincl

         IMPORTING

              v_year  = i_gjahr.

    IF sy-subrc <> 0.

* << Fim da inclusão

    i_gjahr = wa_zycit202-dt_f51_mt+0(4).

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

    ENDIF.

* << Fim da inclusão

    SET PARAMETER ID 'BUK' FIELD i_bukrs.

    SET PARAMETER ID 'BLN' FIELD i_belnr.

    SET PARAMETER ID 'GJR' FIELD i_gjahr.

    CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

  ENDIF.

  IF p_idrill EQ 'ITAB_AUX-BELNR'.

...

...

       v_campo EQ 'ITAB_IMP-BELNRF02SEG' OR

       v_campo EQ 'ITAB_IMP-BELNRF02FRE' OR

       v_campo EQ 'ITAB_IMP-BELNRF02QUE'.

      i_belnr = v_valor.

      i_bukrs = itab_zycit006-bukrs.

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

      i_gjahr = /pws/zycbt108-bldat+0(4).

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

      EXPORTING

        v_bukrs = /pws/zycit041-bukrs

        v_date  = /pws/zycit041-dtincl

      IMPORTING

        v_year  = i_gjahr.

    IF sy-subrc <> 0.

      i_gjahr = itab_zycit041-dtincl+0(4).

    ENDIF.

* << Fim da inclusão

      SET PARAMETER ID 'BUK' FIELD i_bukrs.

      SET PARAMETER ID 'BLN' FIELD i_belnr.

      SET PARAMETER ID 'GJR' FIELD i_gjahr.

      CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

    ENDIF.

...