Sintoma

Ao efetuar a liquidação de várias faturas vinculadas a um contrato, tem momentos que não encontra a

chave de referência e pára o batch input de desmembramento de cliente(F-30).

Solução

Consistir seleção da bkpf para verificar se dados estão ok e carregar zeros à esquerda no campo

belnr.

Informações Complementares

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

Nota Número 06351 Data: 08/04/2008 Hora: 16:51:41

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

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

Nota Número              : 06351

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00042

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - CHAVE DE REFERÊNCIA DESMEMBRAMENTO CLIENTE F-30

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

Palavras Chave:

LIQUIDAÇÃO - CHAVE DE REFERÊNCIA DESMEMBRAMENTO CLIENTE F-30

AWKEY

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

       IMPORTING

            v_year                 = 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.

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

  IF NOT itab_zycbt030-v_belnr IS INITIAL.

    v_belnr = itab_zycbt030-v_belnr.

    itab_zycbt030-v_belnr = v_belnr.

* << Fim da inclusão

  SELECT SINGLE * FROM bkpf

     WHERE bukrs = itab_zycbt006-bukrs

       AND belnr = itab_zycbt030-v_belnr

       AND gjahr = v_year.

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

  ELSE.

    v_belnr = itab_zycbe033-belnr.

    itab_zycbe033-belnr = v_belnr.

    SELECT SINGLE * FROM bkpf

       WHERE bukrs = itab_zycbt006-bukrs

         AND belnr = itab_zycbe033-belnr

         AND gjahr = v_year.

  ENDIF.

  IF sy-subrc = 0.

* << Fim da inclusão

  itab_zycbe033-dtdocto = bkpf-budat.

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

  ENDIF.

* << Fim da inclusão

  IF icc_ EQ 'X'.

    PERFORM verify_null_field USING conta_

                                    'KUNNR'

                                    text-009.

    itab_zycbe033-d_newko = conta_.

  ENDIF.

...

...

                                       wa_t001w-j_1bbranch.

    itab_zycbe033-brnch = wa_t001w-j_1bbranch.

  ENDIF.

  IF v_wrbtr = itab_zycbe033-wrbtr OR

    itab_zycbt030-vlsltrans = itab_zycbe033-wrbtr.

    v_vinc_tot = 'X'.

  ENDIF.

  PERFORM executa_exit.

  PERFORM verifica_prorrogacao.

  IF itab_zycbe033-wrbtr GT 0.

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

    v_belnr = itab_zycbe033-belnr.

    itab_zycbe033-belnr = v_belnr.

* << Fim da inclusão

    APPEND itab_zycbe033.

    v_desmembramento = 'X'.

  ENDIF.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

    MOVE sy-repid TO v_rep.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

  v_vlme_sl           LIKE /pws/zycbt006-vlme,

  v_viatrans          LIKE /pws/zycet001-viatrans,

  v_vktra                        LIKE /pws/zycit054-vktra,

  v_dtemb             LIKE /pws/zycet001-dtemb,

  v_dtaverb2          LIKE /pws/zycet001-dtaverb,

  v_dtcruze           LIKE /pws/zycet001-dtcruze,

  v_nrseq             LIKE /pws/zycet001-nrseq,

  v_kursf6            LIKE bkpf-kursf         ,

   v_liquida,

   v_saldot            LIKE /pws/zycbt209-vlme,

* >> Início da exclusão:

   v_slpagar           LIKE /pws/zycbt005-slpagar.

* << Fim da exclusão

* >> Início da inclusão:

   v_slpagar           LIKE /pws/zycbt005-slpagar,

   v_belnr(10)         TYPE n.

* << Fim da inclusão

DATA: icc_             TYPE c,

      conta_           LIKE /pws/zycbt012-saknr1,

      belnr_           LIKE /pws/zycbt030-belnr,

      v_exec(1)        TYPE c.

DATA: v_vljur_acc      LIKE /pws/zycbt002-vlme,

      v_vljur_ace      LIKE /pws/zycbt002-vlme,

      v_zycbe005       LIKE /pws/zycbe005,

      v_calcula_juros  TYPE c,

      v_agkon          TYPE knb1-kunnr.

DATA: v_nome_campo(35) TYPE c,

...