Sintoma

Ao efetuar uma associação de Ordem de Pagamento a uma fatura, no momento de gerar a compensação,

esta levando atribuição incorreta, gerando diferença e não finalizando o contábil.

Solução

Somente carregar a atribuição de acordo com a /PWS/ZYGLT321, quando não for lançamento de

compensação.

Informações Complementares

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

Nota Número 04068 Data: 29/06/2007 Hora: 13:57:30

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

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

Nota Número              : 04068

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ASSOCIAÇÃO ORDEM DE PAGAMENTO - ATRIBUIÇÃO COMPENSAÇÃO

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

Palavras Chave:

ASSOCIAÇÃO ORDEM DE PAGAMENTO ATRIBUIÇÃO COMPENSAÇÃO

ZUONR F-30

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

Objetos da nota:

REPS /PWS/MZYCB035F03

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

Modificações efetuadas em REPS /PWS/MZYCB035F03

...

  ENDIF.

ENDFORM.

FORM preenche_campos_contab_exc

  USING

    value(p_bukrs)    TYPE /pws/zycbt011-bukrs

    value(p_codmod)   TYPE /pws/zycbt011-codmod

    value(p_ktosl)    TYPE /pws/zyglt321-ktosl

    value(p_codeven)  TYPE /pws/zyglt321-codeven

    value(p_zycbt209) LIKE LINE OF itab_zycbt209

    value(p_nrseq)    TYPE t_s_zycbt228a-nrseq

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

    value(p_compensa) TYPE c

* << Fim da inclusão

  CHANGING

    p_wa_zycbe033 LIKE LINE OF itab_zycbe033.

  CONSTANTS:

    c_sgtxt TYPE /pws/zyglt321-cpor3 VALUE 'SGTXT',

    c_xblnr TYPE /pws/zyglt321-cpor3 VALUE 'XBLNR',

    c_zterm TYPE /pws/zyglt321-cpor3 VALUE 'ZTERM',

    c_zfbdt TYPE /pws/zyglt321-cpor3 VALUE 'ZFBDT',

    c_zuonr TYPE /pws/zyglt321-cpor3 VALUE 'ZUONR',

    c_valut TYPE /pws/zyglt321-cpor3 VALUE 'VALUT',

    c_nrinvoic TYPE /pws/zyglt321-cpocb VALUE 'NRINVOIC',

...

...

          WHEN c_dtlancto.

            IF <fs_zycbt226> IS ASSIGNED.

              p_wa_zycbe033-zfbdt = <fs_zycbt226>-dtlancto.

            ENDIF.

          WHEN c_dtlimite.

            IF <fs_zycbt226> IS ASSIGNED.

              p_wa_zycbe033-zfbdt = <fs_zycbt226>-dtlimite.

            ENDIF.

        ENDCASE.

      WHEN c_zuonr.

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

        IF p_compensa IS INITIAL.

* << Fim da inclusão

        CASE <fs_zyglt321>-cpocb.

          WHEN c_nrinvoic.

            p_wa_zycbe033-d_zuonr = wa_zycbt017-nrinvoic.

          WHEN c_nremb.

            p_wa_zycbe033-d_zuonr = wa_zycbt017-nremb.

          WHEN c_nrfech.

            IF p_codeven = c_codeven_remessa.

              p_wa_zycbe033-d_zuonr = wa_zycbt124-nrfech.

            ENDIF.

          WHEN c_txtinf.

...

...

              p_wa_zycbe033-d_zuonr = <fs_zycbt226>-nrseq.

            ENDIF.

            IF p_codeven = c_codeven_remessa.

              p_wa_zycbe033-d_zuonr = wa_zycbt124-nrseq.

            ENDIF.

          WHEN c_ref.

            IF <fs_zycbt226> IS ASSIGNED.

              p_wa_zycbe033-d_zuonr = <fs_zycbt226>-ref_op.

            ENDIF.

        ENDCASE.

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

        ENDIF.

* << Fim da inclusão

      WHEN c_valut.

        CASE <fs_zyglt321>-cpocb.

          WHEN c_dtbl.

            p_wa_zycbe033-c_valut = wa_zycbt017-dtbl.

            p_wa_zycbe033-d_valut = wa_zycbt017-dtbl.

          WHEN c_dtinvoic.

            p_wa_zycbe033-c_valut = wa_zycbt017-dtinvoic.

            p_wa_zycbe033-d_valut = wa_zycbt017-dtinvoic.

          WHEN c_dtassoc.

          WHEN c_dtincl.

...

...

  wa_zycbe033-bldat   = p_bldat.

  wa_zycbe033-budat   = p_budat.

  PERFORM preenche_campos_contab_exc

    USING

      <fs_bukrs>

      p_codmod

      p_ktosl

      p_codeven

      p_wa_zycbt209

      p_nrseq

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

      ' '

* << Fim da inclusão

    CHANGING wa_zycbe033.

  CASE p_codeven.

    WHEN c_codeven_liq_and.

      ASSIGN wa_zycbt017-werks TO <fs_werks>.

      v_nrinvoic = p_wa_zycbt209-nrinvoic(10).

      wa_zycbe033-augtx   = <fs_zycbt011>-txtdesc.

      wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.

      wa_zycbe033-c_gsber = p_wa_zycbt209-gsberf.

      wa_zycbe033-d_gsber = p_wa_zycbt209-gsberf.

      wa_zycbe033-werks   = wa_zycbt017-werks.

...

...

  wa_zycbe033-bldat   = p_bldat.

  wa_zycbe033-budat   = p_budat.

  PERFORM preenche_campos_contab_exc

    USING

      <fs_bukrs>

      p_codmod

      p_ktosl

      p_codeven

      p_wa_zycbt209

      p_nrseq

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

      'X'

* << Fim da inclusão

    CHANGING

      wa_zycbe033.

  PERFORM define_taxa_cambio

    USING

      p_codeven

      <fs_bukrs>

      wa_zycbe033-budat

      v_nrinvoic

      p_nrseq

    CHANGING

...