Sintoma

Correção Unicode - Valores Mantidos - Cotação Moedas - Financiamento

Solução

Correção Unicode - Valores Mantidos - Cotação Moedas - Financiamento

Informações Complementares

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

Nota Número 08251 Data: 27/03/2009 Hora: 14:18:35

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

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

Nota Número              : 08251

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00091

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

Referência às notas relacionadas:

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

07965  - 00001 - 7.0    - 00008  - DA - COTAÇÃO DE MOEDAS PARA CAPTAÇÃO/FINANCIAMENTO/EMPRÉSTIMO

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

CORREÇÃO UNICODE - VALORES MANTIDOS - COTAÇÃO MOEDAS - FINANCIAMENTO

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

Palavras Chave:

CORREÇÃO UNICODE - VALORES MANTIDOS - COTAÇÃO MOEDAS - FINANCIAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB034TOP

REPS /PWS/MZYCB116F03

REPS /PWS/MZYCM101F01

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

Modificações efetuadas em REPS /PWS/MZYCB034TOP

...

      itab_contabilizacoes type t_t_contabilizacoes.

data: begin of itab_zycbt005 occurs 0.

        include structure /pws/zycbt005.

data: end of itab_zycbt005.

data: begin of itab_zycbt006 occurs 0.

        include structure /pws/zycbt006.

data: end of itab_zycbt006.

data: begin of itab_selreg occurs 100,

            nrchave(10) type c,

            docto(10)   type c,

* >> Início da exclusão:

            dtlanc      like /pws/zycet010,

* << Fim da exclusão

* >> Início da inclusão:

            DTLANC      LIKE /PWS/ZYCET010-dtlanc,

* << Fim da inclusão

            dtvencto    like /pws/zycbt004-dtvencto,

            vlme        like /pws/zycbt004-vlme,

            dtinicio    like /pws/zycbt113-dtinicio,

            lifnr       like /pws/zycbt119-lifnr,

            codp        like /pws/zycbt037-codpad,

 end of itab_selreg,

 begin of itab_aux occurs 10,

            nrinvoic  like /pws/zycbt030-nrinvoic,

            nrparcf   like /pws/zycbt030-nrparcf,

            vbeln     like /pws/zycbt030-vbeln,

...

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

Modificações efetuadas em REPS /PWS/MZYCB116F03

...

          ENDIF.

          MODIFY itab_001_aux FROM wa_001_aux INDEX vl_tabix.

        ENDIF.

      ENDLOOP.

      MODIFY /pws/zycbt001 FROM TABLE itab_001_aux.

      COMMIT WORK AND WAIT.

    ENDIF.

  ENDIF.

  MODIFY /pws/zycbt233 FROM /pws/zycbe233.

  COMMIT WORK AND WAIT.

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

  DATA: BEGIN OF itab_zycbt234_aux OCCURS 0.

          INCLUDE STRUCTURE /pws/zycbt234.

  DATA: END OF itab_zycbt234_aux.

* << Fim da inclusão

  DATA: wa_zycbe234_aux TYPE /pws/zycbe234.

  LOOP AT itab_zycbe234 INTO wa_zycbe234_aux.

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

    READ TABLE itab_dados_tc INTO wa_dados_tc WITH KEY

            waers =  wa_zycbe234-waers

            hbkid =  wa_zycbe234-hbkid.

    MOVE: wa_zycbe234_aux-mandt           TO wa_234_aux-mandt,

          wa_zycbe234_aux-hbkid           TO wa_234_aux-hbkid,

          wa_zycbe234_aux-tipo            TO wa_234_aux-tipo,

          wa_zycbe234_aux-waers           TO wa_234_aux-waers,

          wa_zycbe234_aux-kursf1          TO wa_234_aux-kursf1,

          wa_zycbe234_aux-kursf2          TO wa_234_aux-kursf2,

          wa_zycbe234_aux-kursf3          TO wa_234_aux-kursf3,

          wa_zycbe234_aux-kursf_desp      TO wa_234_aux-kursf_desp,

          wa_zycbe234_aux-waers_desp      TO wa_234_aux-waers_desp,

          wa_zycbe234_aux-vlme            TO wa_234_aux-vlme,

          wa_zycbe234_aux-cdi             TO wa_234_aux-cdi,

          wa_zycbe234_aux-periodo_cdi     TO wa_234_aux-periodo_cdi,

          wa_zycbe234_aux-qtde_dias_cdi   TO wa_234_aux-qtde_dias_cdi,

          wa_zycbe234_aux-linha           TO wa_234_aux-linha,

          wa_zycbe234_aux-periodo_linha   TO wa_234_aux-periodo_linha,

          wa_zycbe234_aux-qtde_dias_linha TO wa_234_aux-qtde_dias_linha,

          wa_zycbe234_aux-taxa_final      TO wa_234_aux-taxa_final.

    APPEND wa_234_aux TO itab_234_aux.

* << Fim da exclusão

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

    CLEAR itab_zycbt234.

    MOVE-CORRESPONDING wa_zycbe234_aux TO itab_zycbt234_aux.

    APPEND itab_zycbt234_aux.

* << Fim da inclusão

  ENDLOOP.

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

  MODIFY /pws/zycbt234 FROM TABLE itab_234_aux.

* << Fim da exclusão

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

  MODIFY /pws/zycbt234 FROM TABLE itab_zycbt234_aux.

* << Fim da inclusão

  COMMIT WORK AND WAIT.

ENDFORM.

FORM zf_verifica_permite_eliminar.

...

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

    CLEAR wa_243-nrseqc.

    UPDATE /pws/zycbt243 SET nrseqc = wa_243-nrseqc

                         WHERE nrseq = wa_zycbt112-nrseqcot

                           AND waers = wa_zycbt112-waers.

    COMMIT WORK.

    GET PARAMETER ID '/PWS/ZYCBP404' FIELD vg_tcode.

    MOVE vg_tcode TO vg_tcode_aux.

    CLEAR vg_tcode.

    SET PARAMETER ID '/PWS/ZYCBP404' FIELD vg_tcode.

    IF NOT vg_tcode_aux IS INITIAL.

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

      READ LINE wa_243 INDEX 1.

* << Fim da exclusão

      IF wa_243-origem EQ 'F'.

        r_financiamento = 'X'.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM verifica_despesa_cotacao.

  DATA: v_bcofinan TYPE /pws/zycbe112-bcofinan.

  IF /pws/zyglt025 IS INITIAL.

    SELECT SINGLE * FROM /pws/zyglt025 INTO /pws/zyglt025

...