Sintoma

O programa está informando os valores divididos por 100.

Solução

Atualização do programa para tratar moedas que não possuem casas decimais.

Informações Complementares

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

Nota Número 06134 Data: 10/03/2008 Hora: 10:03:16

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

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

Nota Número              : 06134

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00037

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

Referência às notas relacionadas:

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

03245  - 00001 - 6.0    - 00026  - VALOR FOB PARA VINCULAÇÃO DO PEDIDO DE ACORDO COM PARAMET. /PWS/Z

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

TRATATIVA PARA MOEDAS QUE NÃO POSSUEM CASAS DECIMAIS

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

Palavras Chave:

VINCULAÇÃO DE IMPORTAÇÕES DRAWBACK MOEDAS CASAS DECIMAIS CENTAVOS IEN

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

Objetos da nota:

REPS /PWS/MZYCI068F01

REPS /PWS/MZYCI068TOP

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

    ENDIF.

    CLEAR v_ebelp.

    CONCATENATE '0' itab_ekpo-ebelp INTO v_ebelp.

    LOOP AT itab_zycit030 WHERE land1 EQ t001-land1

                            AND bukrs EQ itab_ekko-bukrs.

      LOOP AT itab_komv

        WHERE kposn EQ v_ebelp

          AND kschl EQ itab_zycit030-kschl

          AND knumv EQ itab_ekko-knumv.

        CLEAR: v_vl_temp.

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

        PERFORM retorna_decimais USING  itab_ekko-waers

                         CHANGING itab_komv-kwert.

* << Fim da inclusão

        PERFORM converter_moeda USING itab_komv-kwert

                                   itab_ekko-waers

                                   'USD'

                                   itab_ekpo-aedat

                          CHANGING v_vl_temp.

        IF itab_zycit030-fator EQ '+'.

          itab_zycit376_t-vlfob = itab_zycit376_t-vlfob + v_vl_temp.

        ELSE.

          itab_zycit376_t-vlfob = itab_zycit376_t-vlfob - v_vl_temp.

        ENDIF.

...

...

      CLEAR: v_campo, v_valor.

      GET CURSOR FIELD v_campo VALUE v_valor.

    WHEN '/PWS/ZYCIE376-NRSEQD' OR '/PWS/ZYCIE244-NRSEQD'.

      IF NOT v_valor IS INITIAL.

        SET PARAMETER ID '/PWS/ZYCIP435' FIELD v_valor.

        CALL TRANSACTION '/PWS/ZYCI040_E' AND

        SKIP FIRST SCREEN.                               "#EC CI_CALLTA

      ENDIF.

  ENDCASE.

ENDFORM.

* >> Início da inclusão:

FORM retorna_decimais USING    p_moeda

                      CHANGING p_valor.

  READ TABLE itab_tcurx INTO tcurx WITH KEY currkey = p_moeda.

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM tcurx WHERE currkey = p_moeda.

    IF sy-subrc <> 0.

      tcurx-currdec = 2.

    ENDIF.

    tcurx-currkey = p_moeda.

    APPEND tcurx TO itab_tcurx .

  ENDIF.

  p_valor = p_valor / ( 10 ** ( tcurx-currdec - 2 ) ).

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI068TOP

PROGRAM  /pws/sapmzyci068  MESSAGE-ID /pws/zycim  .

TABLES: ekko         ,

        ekpo         ,

        lfa1         ,

        t001         ,

* >> Início da inclusão:

        tcurx        ,

* << Fim da inclusão

        /pws/zycit244,

        /pws/zycie244,

        /pws/zycit245,

        /pws/zycie245,

        /pws/zycit100,

        /pws/zycie376,

        /pws/zycit321,

        /pws/zycie100.

CONTROLS: tc_ped1     TYPE TABLEVIEW USING SCREEN '0100',

          tc_atos     TYPE TABLEVIEW USING SCREEN '0200',

...

...

      itab_zycit433a LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,

      itab_atos_t   LIKE itab_atos OCCURS 0 WITH HEADER LINE.

DATA: wa_komk type komk.

DATA: BEGIN OF itab_komv OCCURS 0.

        INCLUDE STRUCTURE komv.

DATA: ebeln LIKE ekko-ebeln.

DATA: END OF itab_komv.

DATA: BEGIN OF itab_zycit030 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit030.

DATA: END OF itab_zycit030.

* >> Início da inclusão:

DATA: itab_tcurx TYPE tcurx OCCURS 0 WITH HEADER LINE .

* << Fim da inclusão

DATA: v_marc                                                    ,

      ok_code         LIKE sy-ucomm                             ,

      v_qtd_tot       LIKE /pws/zycit245-qtd_tot                ,

      v_icon          LIKE icon-id                              ,

      v_resp                                                    ,

      v_tipo(35)                                                ,

      v_modalidade(35)                                          ,

      wa_cols         TYPE cxtab_column                         ,

      v_lines  TYPE i                                           ,

      v_vlfob         LIKE /pws/zycit245-netpr                  ,

...