Sintoma

 1) Ao efetuar uma liquidação em andamento no valor total da fatura (utilizando uma fatura de carga,

onde o documento contábil da tabela 30 possui apenas 8 casas), o programa está fazendo um

desmembramento do cliente (que não deveria ocorrer) para depois fazer o lançamento da liquidação em

andamento na conta do razão, ou seja, está fazendo duas F-30 quando deveria fazer somente uma. OBS:

Com as demais faturas, o programa faz somente uma F-30 quando a liquidação em andamento é total do

valor da fatura).

Solução

Ajuste efetuado para completar a quantidade de zeros no campo belnr, quando forem menores que 10

digitos.

Informações Complementares

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

Nota Número 02669 Data: 12/12/2006 Hora: 11:06:00

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

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

Nota Número              : 02669

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO - COMPLETAR QUANTIDADE DE ZEROS À ESQUERDA BELNR

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO - COMPLETAR QUANTIDADE DE ZEROS À ESQUERDA BELNR

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

Objetos da nota:

REPS /PWS/MZYCB031F01

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

FORM proc_inclusao.

  DATA: v_cpochv   LIKE /pws/zycbe033-cpochv,

        v_wrbtr    LIKE bsid-wrbtr,

        v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,

        v_dtliquid LIKE sy-datum,

        v_dtemb    LIKE /pws/zycet001-dtemb,

        v_desm     LIKE /pws/zycbt089-tx_desm_cli,

        v_desmemb  TYPE c,

        v_gjahr    LIKE bkpf-gjahr,

        v_erro     TYPE c.

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

    CONSTANTS c_zero(2) TYPE c VALUE ' 0'.

* << Fim da inclusão

  PERFORM verifica_data USING itab_zycbt209-dtcredext

                              itab_zycbt209-bukrs

                              itab_zycbt209-nrinvoic

                              'X'.

  IF sy-subrc NE 0.

    EXIT.

  ENDIF.

  CALL FUNCTION 'MESSAGE_STORE'

       EXPORTING

            arbgb = '/PWS/ZYCBM'

...

...

                              gsberf   = itab_zycbt209-gsberf.

    READ TABLE itab_zycbt017

      WITH KEY

        nrinvoic = itab_zycbt030-nrinvoic

        nrparcf  = itab_zycbt030-nrparcf

        gsberf   = itab_zycbt030-gsberf.

    itab_zycbt030-v_kwert =

                ( itab_zycbt030-kwert / itab_zycbt030-s_kwert )

                  * itab_zycbt209-vlme.

    CLEAR v_wrbtr.

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

    SHIFT itab_zycbt030-v_belnr(10) RIGHT DELETING TRAILING space.

    TRANSLATE itab_zycbt030-v_belnr(10) USING c_zero.

* << Fim da inclusão

    SELECT SINGLE wrbtr

           FROM bsid

           INTO v_wrbtr

           WHERE belnr  = itab_zycbt030-v_belnr

           AND   gjahr  = itab_zycbt030-budat(4)

           AND   kunnr  = itab_zycbt030-kunag

           AND   bukrs  = itab_zycbt209-bukrs.

    PERFORM clear_dados_batch.

    IF v_wrbtr NE itab_zycbt030-v_kwert.

      PERFORM desmembra_cliente.

...