Sintoma

O programa esta preenchendo incorretamente o valor no local de embarque no RUD importação.

Solução

Atualização do preenchimento do valor no local de embarque.

Informações Complementares

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

Nota Número 05043 Data: 22/10/2007 Hora: 11:24:31

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

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

Nota Número              : 05043

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00017

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

Referência às notas relacionadas:

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

04982  - 00001 - 7.0    - 00003  - ADICIONADA A DESCRIÇÃO DOS NCM'S

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

ATUALIZAÇÃO DA MOEDA E VALOR NO LOCAL DE EMBARQUE

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

Palavras Chave:

MOEDA VALOR NO LOCAL DE EMBARQUE RUD IMPORTAÇÃO EXCEL

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

Objetos da nota:

REPS /PWS/ZYCRR006

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

Modificações efetuadas em REPS /PWS/ZYCRR006

...

TYPES: BEGIN OF s_itens.

TYPES: nrdi       TYPE /pws/zycit260-nrdi,

       reg_di     TYPE /pws/zycit260-reg_di,

       adicao     TYPE /pws/zycit260-adicao,

       dtdi       TYPE /pws/zycit260-dtdi,

       j_1bnbm    TYPE /pws/zycit260-j_1bnbm,

       gewei      TYPE /pws/zycit260-gewei,

       ntgew      TYPE /pws/zycit260-ntgew,

       qtd_vinc   TYPE /pws/zycit260-qtd_vinc,

       meins      TYPE /pws/zycit260-meins,

* >> Início da inclusão:

       vlfobt     TYPE /pws/zycit260-vlfob_t,

       netpr      TYPE /pws/zycit260-netpr,

       waers      TYPE /pws/zycit260-waers,

* << Fim da inclusão

       vlfob      TYPE /pws/zycit260-vlfob,

* >> Início da exclusão:

       waers      TYPE /pws/zycit260-waers,

       vlfobt     TYPE /pws/zycit260-vlfob_t,

* << Fim da exclusão

       grupo      TYPE /pws/zycit260-grupo,

       desc_g     TYPE /pws/zycit260-desc_g,

       maktx      TYPE makt-maktx,

       subtot     TYPE c,

       j_1bnbmtot TYPE /pws/zycit260-j_1bnbm,

...

...

t_tot_ncm TYPE STANDARD TABLE OF s_tot_ncm.

TYPE-POOLS vrm.

DATA: list  TYPE vrm_values,

      value LIKE LINE OF list.

DATA: v_total    TYPE /pws/zycit260-vlfob_t,

      v_peso     TYPE /pws/zycit260-ntgew,

      v_quant    TYPE /pws/zycit260-qtd_vinc,

      v_vlemb    TYPE /pws/zycit260-vlfob,

      v_totncm   TYPE i,

      v_ncm      TYPE /pws/zycit259-j_1bnbm,

* >> Início da inclusão:

      v_waers    TYPE /pws/zycit260-waers  ,

* << Fim da inclusão

      v_descrncm(200) TYPE c.

DATA: BEGIN OF v_tab OCCURS 200,

        value(40) TYPE c,

      END OF v_tab.

DATA: BEGIN OF f_tab OCCURS 10.

        INCLUDE STRUCTURE help_value.

DATA: END OF f_tab.

DATA: wa_cabecalho  TYPE s_cabecalho,

      it_itens     TYPE t_itens.

DATA: wa_gen_param     TYPE /pws/zycrt012,

...

...

            spras        = 'P'

       IMPORTING

            data_extenso = p_cabecalho-sy_datlo.

  p_cabecalho-p_proc1 = p_proc1.

  p_cabecalho-p_proc2 = p_proc2.

  SELECT /pws/zycit260~nrdi /pws/zycit260~reg_di

         /pws/zycit260~adicao /pws/zycit260~dtdi

         /pws/zycit260~j_1bnbm /pws/zycit260~gewei

         /pws/zycit260~ntgew /pws/zycit260~qtd_vinc

         /pws/zycit260~meins /pws/zycit260~vlfob

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

         /pws/zycit260~netpr

* << Fim da inclusão

         /pws/zycit260~waers /pws/zycit260~vlfob_t

         /pws/zycit260~grupo /pws/zycit260~desc_g

         makt~maktx

  FROM ( /pws/zycit260 INNER JOIN makt

          ON /pws/zycit260~codcomp = makt~matnr )

       INTO TABLE p_t_itens

       WHERE /pws/zycit260~nrseqd EQ p_cabecalho-zycit244-nrcompos

         AND makt~spras EQ 'P'.

  it_itens[] = p_t_itens[].

  SELECT *

...

...

                    itab_t604n-text5

                    INTO wa_itens-descr_ncm SEPARATED BY space.

        INSERT wa_itens INTO p_t_itens INDEX v_tabix.

      ENDIF.

      IF v_tabix NE 1.

        MOVE: v_ncm   TO wa_itens-j_1bnbmtot,

              'X'     TO wa_itens-subtot,

              v_peso  TO wa_itens-ntgewtot,

              v_total TO wa_itens-vl_fobtot,

              v_vlemb TO wa_itens-vl_fembtot,

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

              v_waers TO wa_itens-waers,

* << Fim da inclusão

              v_quant TO wa_itens-qtd_tot,

              v_descrncm TO wa_itens-descr_ncmt.

        INSERT wa_itens INTO p_t_itens INDEX v_tabix.

      ENDIF.

      CLEAR: v_ncm,

             v_peso,

             v_total,

             v_vlemb,

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

             v_waers,

* << Fim da inclusão

             v_quant,

             v_descrncm.

    ENDON.

    MOVE: wa_itens-j_1bnbm TO v_ncm,

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

          wa_itens-waers   TO v_waers,

* << Fim da inclusão

          wa_itens-descr_ncm TO v_descrncm.

    ADD: wa_itens-ntgew TO v_peso,

         wa_itens-vlfob TO v_total,

         wa_itens-vlfobt TO v_vlemb,

         wa_itens-qtd_vinc TO v_quant.

  ENDLOOP.

  DESCRIBE TABLE p_t_itens LINES v_line.

  ADD 1 TO v_line.

  MOVE: v_ncm    TO wa_itens-j_1bnbmtot,

        'X'      TO wa_itens-subtot,

        v_peso   TO wa_itens-ntgewtot,

        v_total  TO wa_itens-vl_fobtot,

        v_vlemb  TO wa_itens-vl_fembtot,

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

        v_waers  TO wa_itens-waers,

* << Fim da inclusão

        v_quant  TO wa_itens-qtd_tot,

        v_descrncm TO wa_itens-descr_ncmt.

  INSERT wa_itens INTO p_t_itens INDEX v_line.

ENDFORM.

FORM create_excel_content_table

     USING

        p_header          TYPE any

        p_t_items         TYPE table

        p_rep_param       TYPE /pws/zycrt013

        p_t_matrix        TYPE t_matrix

...