Sintoma

Ao criar uma liquidação em andamento, o programa não está buscando a Atribuição (ZUONR) de acordo

com o parametrizado na 321, tanto para o evento 023 - chave FTE e TRE o campo NRINVOIC, mas ao

salvar a liquidação em andamento (tanto no desmembramento do cliente como na baixa e no estorno), o

programa não está preenchendo o campo Atribuição de acordo com o parametrizado.

Solução

Ajustes e testes para que o campo ZUONR respeite as opções: NRINVOIC e REF_ORDEM. Quando há

desmembramento do cliente, a atribuição não respeita o parâmetro da /PWS/ZYGLT321, vem fixo, pois o

mesmo é utilizado na próxima compensação.

Informações Complementares

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

Nota Número 01336 Data: 12/05/2006 Hora: 16:14:40

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

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

Nota Número              : 01336

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00113

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO CAMPO ZUONR 321

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO CAMPO ZUONR 321

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

Objetos da nota:

REPS /PWS/MZYCB031F01

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

            itab_zycbe033-d_valut = itab_zycbt017-dtvencto.

        ENDCASE.

      WHEN 'ZUONR'.

        IF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-d_zuonr = itab_zycbt030-nrinvoic.

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

        ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.

          itab_zycbe033-d_zuonr = itab_zycbt209-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'REF_ORDEM'.

          itab_zycbe033-d_zuonr = itab_zycbt209-ref_ordem.

* << Fim da inclusão

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-d_zuonr = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZTERM'.

...

...

            itab_zycbe033-d_valut = itab_zycbt017-dtvencto.

        ENDCASE.

      WHEN 'ZUONR'.

        IF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-d_zuonr = itab_zycbt030-nrinvoic.

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

          itab_zycbe033-c_zuonr = itab_zycbt030-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.

          itab_zycbe033-d_zuonr = itab_zycbt209-nrinvoic.

          itab_zycbe033-c_zuonr = itab_zycbt209-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'REF_ORDEM'.

          itab_zycbe033-d_zuonr = itab_zycbt209-ref_ordem.

          itab_zycbe033-c_zuonr = itab_zycbt209-ref_ordem.

* << Fim da inclusão

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-d_zuonr = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZTERM'.

...

...

    itab_zycbe033-newbs = '12'.

  ENDIF.

  itab_zycbe033-augtx   = /pws/zycbt011-txtdesc.

  itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.

  itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.

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

  itab_zycbe033-c_zuonr = itab_zycbt030-vbeln.

* << Fim da exclusão

  CONCATENATE 'Des.' itab_zycbt030-nrinvoic itab_zycbt030-nrparcf

              INTO itab_zycbe033-d_zuonr

              SEPARATED BY space.

  itab_zycbt036-tcode   = itab_zycbe033-tcode.

  itab_zycbt036-tabela  = itab_zycbe033-tabela.

...

...

            itab_zycbe033-d_valut = itab_zycbt017-dtvencto.

        ENDCASE.

      WHEN 'ZUONR'.

        IF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-d_zuonr = itab_zycbt030-nrinvoic.

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

        ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.

          itab_zycbe033-d_zuonr = itab_zycbt209-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'REF_ORDEM'.

          itab_zycbe033-d_zuonr = itab_zycbt209-ref_ordem.

* << Fim da inclusão

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-d_zuonr = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZTERM'.

...

...

    itab_zycbe033-newbs = '12'.

  ENDIF.

  itab_zycbe033-augtx   = /pws/zycbt011-txtdesc.

  itab_zycbe033-d_sgtxt = /pws/zycbt011-txtdesc.

  itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.

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

  itab_zycbe033-d_zuonr = itab_zycbt030-vbeln.

* << Fim da exclusão

  itab_zycbe033-zumsk   = itab_zycbt209-umskz.

  itab_zycbe033-agkon   = itab_zycbt209-hkont.

  itab_zycbe033-agkoa   = itab_zycbt209-koart.

  itab_zycbe033-werks   = itab_zycbt209-werks.

  CLEAR itab_zycbe033-c_zuonr.

...

...

            itab_zycbe033-d_valut = itab_zycbt017-dtvencto.

        ENDCASE.

      WHEN 'ZUONR'.

        IF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-d_zuonr = itab_zycbt030-nrinvoic.

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

        ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.

          itab_zycbe033-d_zuonr = itab_zycbt209-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'REF_ORDEM'.

          itab_zycbe033-d_zuonr = itab_zycbt209-ref_ordem.

* << Fim da inclusão

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-d_zuonr = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZTERM'.

...

...

    v_line = sy-tabix - 1.

    IF v_last EQ 'X'.

      itab_zycbe033-wrbtr = itab_zycbt209-vlme *

                            itab_zycbt030-kwert /

                            itab_zycbt030-s_kwert.

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

      itab_zycbe033-d_zuonr = itab_zycbt030-vbeln.

* << Fim da exclusão

    ELSE.

      itab_doctos-tabela  = itab_zycbe033-tabela.

      itab_doctos-tcode   = itab_zycbe033-tcode.

      itab_doctos-cpochv  = itab_zycbe033-cpochv.

      itab_doctos-newbs   = v_newbs.

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

      itab_doctos-zuonr   = itab_zycbt030-vbeln.

* << Fim da exclusão

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

      itab_doctos-zuonr   = itab_zycbe033-d_zuonr.

* << Fim da inclusão

      itab_doctos-residuo = itab_zycbt209-vlme *

                            itab_zycbt030-kwert /

                            itab_zycbt030-s_kwert.

      APPEND itab_doctos.

    ENDIF.

...

...

            itab_zycbe033-d_valut = itab_zycbt017-dtvencto.

        ENDCASE.

      WHEN 'ZUONR'.

        IF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-d_zuonr = itab_zycbt030-nrinvoic.

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

        ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.

          itab_zycbe033-d_zuonr = itab_zycbt209-nrinvoic.

        ELSEIF itab_zyglt321-cpocb = 'REF_ORDEM'.

          itab_zycbe033-d_zuonr = itab_zycbt209-ref_ordem.

* << Fim da inclusão

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-d_zuonr = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZTERM'.

...