Sintoma

Na contabilização de Fatura tipo "P" quando existem registros de períodos sobrepostos na \pws

\zycit174, após as  mensagens de alerta sobre a inconsistência de taxas, o sistema contabiliza a

fatura.

Solução

Atualizado programa para fazer consistência da existência de taxas sobrepostas

Informações Complementares

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

Nota Número 10880 Data: 10/01/2011 Hora: 10:16:22

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

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

Nota Número              : 10880

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00006

Agrupamento              : 00053

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

Referência às notas relacionadas:

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

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

CONTABILIZAÇÃO DA FATURA TIPO "P" COM TAXA INCORRETA

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

Palavras Chave:

PERÍODOS SOBREPOSTOS NA \PWS\ZYCIT174 - CONTABILIZAÇÃO DE FATURA TIPO "P

INCONSISTÊNCIA DE TAXAS

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023X01

REPT /PWS/SAPMZYCI023

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    IF sy-subrc EQ 0.

      REFRESH itab_zycit174.

      SELECT * FROM /pws/zycit174                         "#EC PORTABLE

      INTO TABLE itab_zycit174 WHERE

             codconver = v_moeda    AND

             vigen_inicio <= p_data AND

             vigen_fim    >= p_data AND

             land1       = t001-land1.

      DESCRIBE TABLE itab_zycit174 LINES v_linhas.

      CLEAR v_nottax.

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

      IF v_dttax NE p_data.

        CLEAR: v_dtmsg.

        v_dttax = p_data.

      ENDIF.

* << Fim da inclusão

      IF v_linhas EQ 1.

        READ TABLE itab_zycit174 INDEX 1.

        p_taxa = itab_zycit174-txconver.

      ELSEIF v_linhas EQ 0.

        CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4) '.'

        INTO v_msgd.

     CONCATENATE p_waers text-022 v_msgd INTO s_msg1 SEPARATED BY space.

        IF NOT p_data IS INITIAL.

          v_msgfre = 'N'.

          IF NOT p_waers EQ wa_zycbt007-waersb.

            IF NOT /pws/zycie085-dttax IS INITIAL.

              MESSAGE s015 WITH text-021 s_msg1.

              v_nottax = 'X'.

              EXIT.

            ENDIF.

          ENDIF.

        ENDIF.

      ELSEIF v_linhas > 1.

        IF NOT p_data IS INITIAL.

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

          IF sy-ucomm EQ 'SAVE'.

            MESSAGE e015 WITH text-233 '/PWS/ZYCIT174' text-234 p_data.

          ELSEIF sy-ucomm EQ 'YES'.

            MESSAGE a015 WITH text-233 '/PWS/ZYCIT174' text-234 p_data.

          ELSE.

            IF v_dtmsg NE 'X'.

              v_dtmsg = 'X'.

* << Fim da inclusão

          MESSAGE i015 WITH text-233 '/PWS/ZYCIT174' text-234 p_data.

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

            ENDIF.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ELSE.

      CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4)

      INTO v_msgd.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

    CASE okcode.

      WHEN 'DETA'.

        PERFORM: comm_deta.

      WHEN 'SAVE'.

        PERFORM: comm_save.

      WHEN 'FUND'.

        PERFORM: comm_fundap.

      WHEN 'ADIC'.

        PERFORM: comm_adic.

      WHEN 'REFR'.

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

        CLEAR: v_dtmsg.

* << Fim da inclusão

        PERFORM: refresh_all, fill_receitas.

      WHEN 'MODI'.

        PERFORM: comm_modi.

      WHEN 'COMP'.

        PERFORM: comm_comp.

      WHEN 'OBS'.

        PERFORM: comm_obs.

      WHEN 'DELE' OR 'RETI'.

        PERFORM: comm_dele.

      WHEN 'RELA'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

* >> Início da inclusão:

DATA: v_dttax TYPE /pws/zycit085-dttax,

      v_dtmsg.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI023

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 233

Texto: (28 caracteres)

"Dados da tabela de parâmetro"

Comprimento máximo: 30

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 234

Texto: (27 caracteres)

"inconsistentes para a data:"

Comprimento máximo: 27