Sintoma

Ao efetuar uma liquidação em andamento total, no desmembramento do cliente esta tentando preencher o

campo ZTERM, mas o mesmo não existe na tela.

Solução

Se a liquidação em andamento for total, no desmembramento do cliente, enviar o parâmetro que indica

isso, para que não mapaie os campos que não podem ser preenchidos.

Informações Complementares

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

Nota Número 03276 Data: 20/03/2007 Hora: 11:17:47

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

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

Nota Número              : 03276

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00156

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

Referência às notas relacionadas:

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

02669  - 00001 - 6.0    - 00026  - LIQUIDAÇÃO EM ANDAMENTO - COMPLETAR QUANTIDADE DE ZEROS À ESQUERD

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

LIQUIDAÇÃO EM ANDAMENTO - DESMEMBRAMENTO CLIENTE - ERRO BI - ZTERM

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO DESMEMBRAMENTO CLIENTE F-30

ERRO BI F-30 ZTERM ZFBDT TOTAL

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

Objetos da nota:

REPS /PWS/MZYCB031F01

REPS /PWS/MZYCB031TOP

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

  itab_zycbt036-tabela  = itab_zycbe033-tabela.

  itab_zycbt036-cpochv  = itab_zycbe033-cpochv.

  itab_zycbt036-residuo = itab_zycbe033-wrbtr.

  itab_zycbt036-zuonr   = itab_zycbe033-d_zuonr.

  APPEND itab_zycbt036.

  itab_zycbe033-belnr = itab_zycbt030-v_belnr.

  PERFORM verifica_prorrogacao.

  IF itab_zycbe033-wrbtr GT 0.

    APPEND itab_zycbe033.

  ENDIF.

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

  clear v_vinc_tot.

  if itab_zycbt209-vlme = itab_zycbt209-saldo.

    v_vinc_tot = 'X'.

  endif.

* << Fim da inclusão

  LOOP AT itab_zycbt034.

    CALL FUNCTION 'MESSAGE_STORE'

         EXPORTING

              arbgb = '/PWS/ZYCBM'

              msgty = 'I'

              msgv1 = itab_zycbt034-descricao

              txtnr = '061'

              zeile = v_zeile.

    v_zeile = v_zeile + 1.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

    CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

         EXPORTING

              v_modo          = v_modo_bi

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

              v_vinc_tot      = v_vinc_tot

* << Fim da inclusão

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

    IF sy-subrc = 0.

...

...

    itab_zycbt030-v_kwert =

                ( itab_zycbt030-kwert / itab_zycbt030-s_kwert )

                  * itab_zycbt209-vlme.

    CLEAR v_wrbtr.

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

    TRANSLATE itab_zycbt030-v_belnr(10) USING c_zero.

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

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

    TRANSLATE itab_zycbt030-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.

      IF sy-subrc NE 0.

        v_erro = 'X'.

        CLEAR sy-subrc.

        EXIT.

      ENDIF.

      v_desmemb = 'X'.

    ELSE.

      itab_zycbt030-belnr_d = itab_zycbt030-v_belnr.

    ENDIF.

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

    MODIFY itab_zycbt030 TRANSPORTING belnr_d.

* << Fim da exclusão

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

    MODIFY itab_zycbt030 TRANSPORTING belnr_d

                                      belnr.

* << Fim da inclusão

  ENDLOOP.

  CHECK sy-subrc EQ 0.

  PERFORM clear_dados_batch.

  CLEAR v_erro.

  IF v_desmemb EQ 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB031TOP

...

      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,

      moeda        LIKE /pws/zycbt209-waers,

      v_buzei      LIKE bseg-buzei,

      v_zterm      LIKE bsid-zterm,

      v_zbd1t      LIKE bsid-zbd1t,

* >> Início da exclusão:

      v_ztag1      LIKE t052-ztag1.

* << Fim da exclusão

* >> Início da inclusão:

      v_ztag1      LIKE t052-ztag1,

      v_vinc_tot   type c.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0001.

SELECT-OPTIONS: s_nrinv FOR /pws/zycbt209-nrinvoic

                MATCHCODE OBJECT /pws/zygla288,

                s_bukrs FOR /pws/zycbt209-bukrs,

                s_gsber FOR /pws/zycbt209-gsberf,

                s_werks FOR /pws/zycbt209-werks,

                s_nparc FOR /pws/zycbt209-nrparcf,

                s_kunnr FOR /pws/zycbt209-kunnr,

                s_dtinc FOR /pws/zycbt209-dtincl.

SELECTION-SCREEN END OF SCREEN 0001.

...