Sintoma

Ao vincular um contrato(2010) total com 3 faturas parciais(2009), esta se perdendo no filtro por

atribuição, parando o BI. Ao liquidar um contrato total(2010) com 3 faturas total(2009) também, não

esta levando a chave de referência do desmembramento do contrato na contabilização da liquidação,

não fechando o BI.

Solução

Na vinculação precisa buscar a atribuição do documento do contrato, que tem a partida crédito em

aberto. Na liquidação precisa considerar sempre a data da liquidação ao buscar a chave de referência

do documento de contrato, isso quando o mesmo passa por desmembramento.

Informações Complementares

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

Nota Número 10436 Data: 27/07/2010 Hora: 14:50:23

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

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

Nota Número              : 10436

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00032

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

Referência às notas relacionadas:

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

06635  - 00001 - 7.0    - 00005  - VINCULAÇÃO - HISTÓRICO CONTÁBIL DA CAPTAÇÃO

09941  - 00002 - 8.0    - 00002  - LIQUIDAÇÃO PARCIAL E DEPOIS RESTANTE DO SALDO-CONTABILIZAÇÃO E AT

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

VINCULAÇÃO-ATRIBUIÇÃO INCORRETA, LIQUIDAÇÃO-CHAVE DE REFERÊNCIA VAZIA

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

Palavras Chave:

VINCULAÇÃO ATRIBUIÇÃO INCORRETA LIQUIDAÇÃO CHAVE DE REFERÊNCIA VAZIA

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F08

REPS /PWS/MZYCB009TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

                                    'SAKNR'

                                    text-010.

    endif.

    itab_zycbe033-koart = 'S'.

  endif.

  itab_zycbe033-belnr   = itab_zycbt006-belnr_d.

  read table itab_contabil with key nrinvoic = itab_zycbt030-nrinvoic

                                    nrparcf  = itab_zycbt030-nrparcf

                                    gsberf   = /pws/zycbe001-gsber

                                    msg      = text-180.

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

  if  sy-subrc ne 0 or

      ( itab_zycbt005-slpagar    is initial and

     not itab_zycbt005-tpcontr(1) ca 'CEPS'

    and not ( /pws/zycbe001-tpcontr(1)  eq 'D' and

              /pws/zycbt089-f_cont_vinc eq 'F' ) ).

* << Fim da exclusão

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

  if  sy-subrc ne 0.

* << Fim da inclusão

    itab_zycbe033-dtdocto = itab_zycbt005-dtbelnr.

  else.

    itab_zycbe033-dtdocto = itab_zycbt006-dtpagto.

  endif.

  if  itab_zycbt005-slpagar    is initial .

    itab_zycbe033-flag_nc = 'X'.

  endif.

  if itab_zycbt006-tpcontr(1) ca 'PS'.

    read table itab_zycbt069 with key nrseqc   = itab_zycbt006-nrseqc

                                      nrinvoic = itab_zycbt006-nrinvoic

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

      move:

        /pws/zycbe006-dtpagto  to /pws/zycbt004-dtliquid,

        /pws/zycbe006-dtpagext to /pws/zycbt004-dtpagext.

    endif.

    perform grava_cco.

    clear:

    /pws/zycbt004-percdesp,

    /pws/zycbt004-txcneg,

    /pws/zycbt004-belnr,

    /pws/zycbt004-dtpagto.

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

    SELECT * FROM /pws/zycbt004

             UP TO 1 ROWS

             WHERE nrseqc   = /pws/zycbt004-nrseqc

               AND tpdesp   = /pws/zycbt004-tpdesp

               AND nrparc   = /pws/zycbt004-nrparc

               AND dtincl   = /pws/zycbt004-dtincl

               AND nrinvoic = /pws/zycbt004-nrinvoic

               AND nrparcf  = /pws/zycbt004-nrparcf

               AND gsberf   = /pws/zycbt004-gsberf.

    ENDSELECT.

    CHECK sy-subrc NE 0.

* << Fim da inclusão

    modify /pws/zycbt004.

    commit work.

  endif.

endform.

form preenche_itab_zycbt005.

  if itab_zycbt006[] is initial.

    select * from /pws/zycbt006 into table itab_zycbt006

             where nrseqc = /pws/zycbe001-nrseqc.

  endif.

  loop at itab_zycbt005.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

  if /pws/zycbe001-tpcontr(1) eq 'D'.

    move wa_zycbt011-agums to itab_zycbe033-umskz.

  endif.

  concatenate itab_zycbt005-gsberf itab_zycbt005-nrparcf

    itab_zycbt005-nrinvoic

    into itab_zycbe033-c_zuonr

    separated by space.

  if wa_zycbt089-rateio_cl = 'X'.

    v_rateio  = 'X'.

  endif.

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

  if not itab_zycbe033-belnr is initial and

     not itab_zycbe033-dtdocto is initial.

    clear v_zuonr.

    perform determina_ano using itab_zycbe033-dtdocto

                                itab_zycbe033-bukrs

                          changing v_ano.

    if itab_zycbe033-belnr = /pws/zycbe001-belnr or

       itab_zycbe033-belnr = /pws/zycbe001-belnr2.

      select zuonr from bseg

             into v_zuonr

             up to 1 rows

             where bukrs = itab_zycbe033-bukrs

               and belnr = itab_zycbe033-belnr

               and gjahr = v_ano

               and augbl = space

               and shkzg = 'H'

               and wrbtr > 0.

      endselect.

    else.

      select zuonr from bseg

             into v_zuonr

             up to 1 rows

             where bukrs = itab_zycbe033-bukrs

               and belnr = itab_zycbe033-belnr

               and gjahr = v_ano

               and augbl = space

               and buzei > 1

               and shkzg = 'H'

               and wrbtr > 0.

      endselect.

    endif.

  endif.

* << Fim da inclusão

  if not /pws/zycbe005-j_1bbranch is initial.

    perform verifica_pais_filial using /pws/zycbe005-bukrs

                                       /pws/zycbe005-j_1bbranch.

    itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.

  else.

    perform local_negocio.

    perform verifica_pais_filial using /pws/zycbe005-bukrs

                                       wa_t001w-j_1bbranch.

    itab_zycbe033-brnch = wa_t001w-j_1bbranch.

  endif.

...

...

    v_vinc_total = 'X'.

  endif.

  v_tpcontabil = 'VIN'.

  perform busca_dados_bi using itab_zycbe033-bukrs

                               v_tpcontabil.

  if itab_zycbt034[] is initial.

    call function '/PWS/ZYCB_TRANSACAO_F_30_Q'

         exporting

              v_modo          = v_modo_bi

              v_rateio        = v_rateio

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

              v_zuonr         = v_zuonr

* << Fim da inclusão

         tables

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

         exceptions

              campo_em_branco = 1

              periodo_fechado = 2

              others          = 3.

    if sy-subrc = 0.

      v_pos_itab = sy-tabix.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009TOP

...

   v_decimais_c        like tcurx-currdec,

   v_desc_receb        like /pws/zycbt001-desc_receb,

    v_viatrans like /pws/zycet001-viatrans,

    v_vktra    like /pws/zycit054-vktra,

    v_dtvrc    like /pws/zycet048-dtvrc,

    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_erro(1)  type c.

* >> Início da inclusão:

data: v_zuonr    type bseg-zuonr.

* << Fim da inclusão

 data: v_nrdias  type i,

      v_banco_d like /pws/zycbt001-bconegoc,

       v_prazo,

       v_dtoperac like sy-datum,

       v_resp_func(1),

       v_data_taxa     like sy-datum,

       v_doc_f30,

       v_vinctot,

       v_line   type i,

       v_f30_vinc      type i,

...