Sintoma

Ao efetuar a liquidação o sistema não efetua os lançamentos de débito - Contrato de Câmbio Pronto e

crédito - C/C ME. Ele assume o documento de vinculação (débito - Banco C/C MI / crédito - Contrato

de Câmbio Pronto) como sendo o documento de liquidação também.

Solução

Foi adicionado um tratamento para pegar a conta da ordem.

Informações Complementares

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

Nota Número 04935 Data: 08/10/2007 Hora: 14:14:30

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

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

Nota Número              : 04935

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00017

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

Referência às notas relacionadas:

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

03291  - 00001 - 6.0    - 00026  - LIQUIDAÇÃO - EXIT LIQ024

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

LIQUIDAÇÃO - CAMBIO PRONTO COM VALORES MANTIDOS NO EXTERIOR

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

Palavras Chave:

LIQUIDAÇÃO - CAMBIO PRONTO COM VALORES MANTIDOS NO EXTERIOR

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

      /pws/zycbe001-belnr2   = v_zycbe001-belnr2.

      /pws/zycbe001-dtvincul = v_zycbe001-dtvincul.

    ENDIF.

  ENDLOOP.

  sy-subrc = v_subrc.

ENDFORM.

FORM desmembra_cliente.

  DATA: v_subrc LIKE sy-subrc,

        v_wrbtr LIKE bsid-wrbtr,

        v_kunnr TYPE kunnr,

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

        wa_zycbt226 LIKE LINE OF itab_zycbt226,

        v_op,

* << Fim da inclusão

        v_dtliquid LIKE /pws/zycbt006-dtpagto,

        v_dtemb    LIKE /pws/zycet001-dtemb.

  CLEAR   itab_doctos.

  REFRESH itab_doctos.

  DATA: v_gjahr TYPE gjahr.

  PERFORM clear_date_batch.

  CLEAR: v_data,

         v_codeven.

  CONCATENATE '003' itab_zycbt006-tpcontr INTO v_codeven.

  CLEAR itab_zyglt321.

...

...

  CONCATENATE 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf

              INTO itab_zycbt036-zuonr

              SEPARATED BY space.

  APPEND itab_zycbt036.

  itab_doctos-tcode   = itab_zycbe033-tcode.

  itab_doctos-tabela  = itab_zycbe033-tabela.

  itab_doctos-cpochv  = itab_zycbe033-cpochv.

  itab_doctos-belnr   = itab_zycbe033-belnr.

  itab_doctos-dtdocto = itab_zycbe033-dtdocto.

  APPEND itab_doctos.

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

  clear v_op.

  LOOP AT itab_zycbt226 into wa_zycbt226

    WHERE NRINVOIC = itab_zycbt006-NRINVOIC

      AND NRPARCF  = itab_zycbt006-NRPARCF

      AND GSBERF   = itab_zycbt006-GSBERF.

    itab_doctos-tcode   = itab_zycbe033-tcode.

    itab_doctos-tabela  = itab_zycbe033-tabela.

    itab_doctos-cpochv  = itab_zycbe033-cpochv.

    itab_doctos-belnr   = wa_zycbt226-belnr_op.

    itab_doctos-dtdocto = wa_zycbt226-dtincl.

    CONCATENATE wa_zycbt226-belnr_op wa_zycbt226-bukrs

            wa_zycbt226-dtincl(4)

              INTO itab_doctos-zuonr

              SEPARATED BY space.

    APPEND itab_doctos.

    v_op = 'X'.

    itab_zycbe033-d_newko = wa_zycbt226-CONTA_CONTABil.

    itab_zycbe033-newbs = '40'.

  ENDLOOP.

* << Fim da inclusão

  IF wa_zycbt007-liq_trans IS INITIAL.

    v_kunnr = itab_zycbt006-kunnr.

    SELECT SINGLE gjahr

           FROM bseg

           INTO v_gjahr

           WHERE belnr = itab_zycbt030-belnr AND

                 bukrs = itab_zycbt006-bukrs AND

                 kunnr = v_kunnr.

    IF sy-subrc EQ 0.

      SELECT SINGLE budat

...

...

      READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ024'.

      IF sy-subrc EQ 0.

        PERFORM (itab_zyglt100-formulario)

                IN PROGRAM (itab_zyglt100-programa).

      ELSE.

        v_text = 'F-30'.

        CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

             EXPORTING

                  v_modo          = v_modo_bi

                  v_vinc_tot      = v_vinc_tot

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

                  v_op            = v_op

* << Fim da inclusão

             TABLES

                  t_dados         = itab_zycbe033

                  t_campo         = itab_zycbt034

                  t_zycbt032      = itab_zycbt032

                  t_zycbt036      = itab_zycbt036

                  t_doctos        = itab_doctos

             EXCEPTIONS

                  campo_em_branco = 1

                  periodo_fechado = 2

                  OTHERS          = 3.

...