Sintoma

Fiz uma remessa de pagamento com principal com forma de pagamento "Regime de caixa" e alguns

impostos regime de caixa e o IRRF "à pagar competência", tudo com data do mês 07/2006. Gerei o

boleto e para o IRRF coloquei a opção "BCO" gravei com a data do mês 07/2006. Entrei na OB52 e

fechei o período para o mês 07/2006. Entrei no complemento do boleto e alterei o Valor MI para o

principal e impostos, mas ao gravar na FB08 o programa lança o motivo correto (02),a data de

lançamento correta porém o período está lançando com a data do mês 07 e o correto seria lançar com a

data do mês 08/2006 (que é o período que está aberto) e para o estorno do documento do IRRF, o

programa faz uma FBRA e depois na FB08 está lançando a data de lançamento e o período do mês

07/2006, quando deveria lançar do mês 08/2006, pois o mês 07 está fechado. Na F-51 do IRRF, ao invés

de lançar o período 08, está lançando o período 82 ocorrendo erro no lançamento do IRRF.

Solução

Ajuste efetuado no Complemento do Boleto para transferir os dados na FB08, agora quando o periodo

esta fechado o programa esta fazendo o lançamento com a data do dia.

Ajuste efetuado na F-51 para que o programa faça o tratamento das datas digitadas nos formatos

DDMMAAAA e DD.MM.AAAA

Informações Complementares

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

Nota Número 02172 Data: 28/09/2006 Hora: 14:05:11

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

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

Nota Número              : 02172

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00133

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO FB08 E F51 - AJUSTE DE PERIODO

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

Palavras Chave:

COMPLEMENTO DO BOLETO FB08 E F51 - AJUSTE DE PERIODO

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

Objetos da nota:

FUNC /PWS/ZYGL_TRANSACAO_F_51K

REPS /PWS/MZYCA110F01

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

Modificações efetuadas em FUNC /PWS/ZYGL_TRANSACAO_F_51K

...

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_budat

                                   v_ok.

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

    IF v_budat+8(1) EQ ' '.

      CONCATENATE '0' v_budat+2(2) INTO v_monat.

      MOVE v_budat+4(4) TO v_gjahr.

    ELSE.

* << Fim da inclusão

    CONCATENATE '0' v_budat+3(2) INTO v_monat.

    MOVE v_budat+6(4) TO v_gjahr.

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

    ENDIF.

* << Fim da inclusão

    PERFORM bdc_screen USING 'SAPMF05A' '0122'.

    PERFORM bdc_field USING:

            'BKPF-BLDAT'  v_bldat,

            'BKPF-BLART'  t_dados-blart,

            'BKPF-BUKRS'  v_bukrs,

            'BKPF-BUDAT'  v_budat,

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

            'BKPF-MONAT'  v_budat+3(2),

* << Fim da exclusão

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

            'BKPF-MONAT'  v_monat+1(2),

* << Fim da inclusão

            'BKPF-WAERS'  t_dados-waers,

            'BKPF-KURSF'  v_kursf,

            'BKPF-XBLNR'  t_dados-xblnr,

            'BKPF-BKTXT'  t_dados-bktxt,

            'RF05A-AUGTX' t_dados-augtx,

...

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

            OTHERS           = 3.

  IF sy-subrc = 0.

    itab_zycbe033-stgrd = '01'.

  ELSE.

    itab_zycbe033-stgrd = '02'.

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

    itab_zycbe033-budat = sy-datum.

* << Fim da inclusão

  ENDIF.

  APPEND itab_zycbe033.

  v_trans = 'FBRA'.

  CALL FUNCTION '/PWS/ZYCM_TRANSACAO_FBRA'

       EXPORTING

...