Sintoma

Complemento do boleto em pagamento antecipado - ao salvar, aparece uma janela de perido fechado

incorretamente

Solução

fazer a verificação do periodo e do ano fiscal corretamente antes de prosseguir com a

contabilização.

Informações Complementares

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

Nota Número 07765 Data: 12/12/2008 Hora: 11:20:40

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

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

Nota Número              : 07765

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00076

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

Referência às notas relacionadas:

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

03719  - 00005 - 7.0    - 00001  - ASSOCIAÇÃO - BATCH INPUT CAMPO LOCAL DE NEGÓCIO

04588  - 00004 - 7.0    - 00002  - ASSOCIAÇÃO DE FATURAS - ATUALIZAÇÃO INCORRETA DATA E DOCTO DE ASS

05990  - 00003 - 7.0    - 00004  - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA GRUPOS DE FUNÇÃO CAMBIO

06023  - 00002 - 7.0    - 00004  - AJUDA DE PESQUISA, ASSOCIAÇÃO CARTA DE CREDITO IMPORTAÇÃO - CODE

07600  - 00001 - 7.0    - 00007  - ANO FISCAL FINANCIAMENTO - ANTECIPADO - FATURA - ASSOCIAÇÃO

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

COMPLEMENTO DO BOLETO EM PAGAMENTO ANTECIPADO -PERIODO FECHADO INCORRETO

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

Palavras Chave:

COMPLEMENTO DO BOLETO EM PAGAMENTO ANTECIPADO - JANELA DE PERIDO FECHADO

JANELA DE PERIDO FECHADO INCORRETAMENTE

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_F_43

FUNC /PWS/ZYCM_TRANSACAO_F_43A

REPS /PWS/LZYCMGF2F01

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43

...

                                       itab_oculto

                                USING  v_string_debito.

    CLEAR /pws/zycbt007.

    SELECT SINGLE fdivisao FROM /pws/zycbt007

                           INTO /pws/zycbt007-fdivisao

                           WHERE bukrs EQ t_dados-bukrs.

    WRITE: t_dados-bukrs TO v_bukrs,

           t_dados-bldat TO v_data_doc_char,

           t_dados-budat TO v_data_lanc_char,

           t_dados-kursf TO v_kursf.

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

    v_monat = t_dados-budat+4(2).

* << Fim da exclusão

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

      PERFORM determina_periodo USING t_dados-budat

                                      t_dados-bukrs

                                CHANGING v_monat.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'K'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_data_lanc_char

                                   v_ok.

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

    MOVE v_data_lanc_char+6(4) TO v_gjahr.

...

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43A

...

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    WRITE: t_dados-bukrs TO v_bukrs,

           t_dados-bldat TO v_data_doc_char,

           t_dados-budat TO v_data_lanc_char,

           t_dados-kursf TO v_kursf.

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

    v_monat = t_dados-budat+4(2).

    v_gjahr = t_dados-budat+0(4).

* << Fim da exclusão

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

      PERFORM determina_periodo USING t_dados-budat

                                      t_dados-bukrs

                                CHANGING v_monat.

        PERFORM determina_ano USING t_dados-budat

                                    t_dados-bukrs

                           CHANGING v_gjahr.

* << Fim da inclusão

    v_koart = 'K'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_data_lanc_char

                                   v_ok.

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

    MOVE v_data_lanc_char+6(4) TO v_gjahr.

    PERFORM bdc_screen USING 'SAPMF05A' '0100'.

...

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

Modificações efetuadas em REPS /PWS/LZYCMGF2F01

...

            period              = p_periodo

       EXCEPTIONS

            period_in_not_valid = 1

            period_not_assigned = 2

            version_undefined   = 3

            OTHERS              = 4.

  IF sy-subrc NE 0.

    CLEAR p_periodo.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM determina_ano USING    p_budat

                            p_bukrs

                   CHANGING p_ano.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs                = p_bukrs

            v_date                 = p_budat

       IMPORTING

            v_year                 = p_ano

       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.

endform.

* << Fim da inclusão