Sintoma

O programa não esta exibindo corretamente os valores dos processos envolvendo Trading Companies.

Solução

Atualização da Composição e do RUD para tratativa de processos envolvendo Trading Companies.

Informações Complementares

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

Nota Número 06000 Data: 22/02/2008 Hora: 10:41:39

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

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

Nota Número              : 06000

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

PROCESSOS ENVOLVENDO TRADING COMPANIES

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

Palavras Chave:

RUD EXPORTAÇÃO COMPOSIÇÃO DRAWBACK ISENÇAO TRADING COPMANY

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

Objetos da nota:

MESS /PWS/ZYCRM050

REPS /PWS/MZYCI064F03

REPS /PWS/ZYCRR002

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

Modificações efetuadas em MESS /PWS/ZYCRM050

*Incluida a Mensagem:

050 &1 &2 &3

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

        itab_nota_c-netwr       TO itab_det_exp_final-vlfob   .

    PERFORM converte_um_base USING itab_det_exp_final-codmat

                           CHANGING itab_det_exp_final-meins

                                 itab_det_exp_final-qtd_iten.

    itab_det_exp_final-qtd_ncm = itab_det_exp_final-qtd_iten.

    itab_det_exp_final-meins_ncm = itab_det_exp_final-meins.

    PERFORM converte_um_ncm USING itab_det_exp_final-codmat

                  CHANGING itab_det_exp_final-meins_ncm

                           itab_det_exp_final-werks

                           itab_det_exp_final-qtd_ncm.

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

    itab_det_exp_final-vlfobemb = itab_det_exp_final-vlfob.

    itab_det_exp_final-waersemb = itab_det_exp_final-waersfob.

* << Fim da inclusão

    PERFORM converter_moeda_exp USING

                                 itab_det_exp_final-vlfob

                                 itab_det_exp_final-waersfob

                                 'USD'

                                 itab_det_exp_final-dtnf

                             CHANGING

                                 itab_det_exp_final-vlfob.

    itab_det_exp_final-waersfob =

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

    itab_det_exp_final-waerscif =

    itab_det_exp_final-waersemb = 'USD'.

* << Fim da exclusão

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

    itab_det_exp_final-waerscif = 'USD'.

* << Fim da inclusão

    itab_det_exp_final-vlcif = itab_nota_c-netwr +

                        itab_nota_c-netfre + itab_nota_c-netins.

    APPEND itab_det_exp_final.

  ENDLOOP.

ENDFORM.

FORM equip_exp.

  DATA: itab_zycit371 TYPE /pws/zycit371 OCCURS 0 WITH HEADER LINE,

        itab_zycit373 TYPE /pws/zycit373 OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF itab_zycit259_dl OCCURS 0.

  DATA: nrseqc    TYPE /pws/zycit259-nrseqc,

...

...

    itab_det_exp_final-vlfre =

      ( itab_zycit373-qtd_apro / itab_zycit373-qtd_iten )

                                         * itab_nota_c-netfre .

    PERFORM converter_moeda_exp USING

                                 itab_det_exp_final-vlfob

                                 itab_det_exp_final-waersfob

                                 'USD'

                                 itab_det_exp_final-dtnf

                             CHANGING

                                 itab_det_exp_final-vlfob.

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

    itab_det_exp_final-vlfobemb = itab_det_exp_final-vlfob.

* << Fim da inclusão

    itab_det_exp_final-waersfob =

    itab_det_exp_final-waerscif =

    itab_det_exp_final-waersemb = 'USD'.

    PERFORM converte_um_base USING itab_det_exp_final-codmat

                           CHANGING itab_det_exp_final-meins

                                 itab_det_exp_final-qtd_iten.

    itab_det_exp_final-qtd_ncm = itab_det_exp_final-qtd_iten.

    itab_det_exp_final-meins_ncm = itab_det_exp_final-meins.

    PERFORM converte_um_ncm USING itab_det_exp_final-codmat

                  CHANGING itab_det_exp_final-meins_ncm

...

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

Modificações efetuadas em REPS /PWS/ZYCRR002

...

       dtre            TYPE /pws/zycit259-dtre,

       j_1bnbm         TYPE /pws/zycit259-j_1bnbm,

       gewei           TYPE /pws/zycit259-gewei,

       ntgew           TYPE /pws/zycit259-ntgew,

       qtd_iten        TYPE /pws/zycit259-qtd_iten,

       meins           TYPE /pws/zycit259-meins,

       vl_fob          TYPE /pws/zycit259-vlfob,

       waersfob        TYPE /pws/zycit259-waersfob,

       vl_cif          TYPE /pws/zycit259-vlcif,

       maktx           TYPE makt-maktx,

* >> Início da inclusão:

       nfnum           TYPE /pws/zycit259-nfnum,

       serie           TYPE /pws/zycit259-serie,

       dtnf            TYPE /pws/zycit259-dtnf,

* << Fim da inclusão

       subtot          TYPE c,

       j_1bnbmtot      TYPE /pws/zycit259-j_1bnbm,

       ntgewtot        TYPE /pws/zycit259-ntgew,

       qtd_tot         TYPE /pws/zycit279-qtd_perda,

       vl_fobtot       TYPE /pws/zycit259-vlfob,

       vl_ciftot       TYPE /pws/zycit259-vlcif,

       descr_ncmt(200) TYPE c,

       descr_ncm(200)  TYPE c.

TYPES: END OF s_itens,

       t_itens TYPE STANDARD TABLE OF s_itens.

...

...

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_proc2.

  PERFORM trata_procurador CHANGING p_proc2.

START-OF-SELECTION.

  PERFORM select_data

          USING

             p_nrseqd

          CHANGING

             wa_cabecalho

             it_itens.

  IF wa_cabecalho IS INITIAL.

* >> Início da exclusão:

    MESSAGE i015 WITH text-002.

* << Fim da exclusão

* >> Início da inclusão:

    MESSAGE i050 WITH text-002.

* << Fim da inclusão

    EXIT.

  ENDIF.

  PERFORM select_parameters

          USING

             'D'

             'RUDE'

             sy-langu

             wa_cabecalho-zycit244-bukrs

             ''

             ''

...

...

      INTO p_cabecalho-anexo

      WHERE nrseqd EQ p_nrseqd

        AND tipo EQ 'I'.

  IF p_cabecalho-anexo IS INITIAL.

    MESSAGE i015(/pws/zycim) WITH text-003 text-004.

    LEAVE PROGRAM.

  ENDIF.

  SELECT /pws/zycit259~nrre /pws/zycit259~dtre

         /pws/zycit259~j_1bnbm /pws/zycit259~gewei

         /pws/zycit259~ntgew /pws/zycit259~qtd_iten

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

         /pws/zycit259~meins /pws/zycit259~vlfob

         /pws/zycit259~waersfob /pws/zycit259~vlcif

         makt~maktx

* << Fim da exclusão

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

         /pws/zycit259~meins /pws/zycit259~vlfobemb

         /pws/zycit259~waersemb /pws/zycit259~vlfob

         makt~maktx /pws/zycit259~nfnum

         /pws/zycit259~serie /pws/zycit259~dtnf

* << Fim da inclusão

  FROM ( /pws/zycit259 INNER JOIN makt

          ON /pws/zycit259~codmat = makt~matnr )

       INTO TABLE p_t_itens

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

         AND makt~spras EQ 'P'.

  it_itens[] = p_t_itens[].

  REFRESH p_t_itens.

  SELECT *

  FROM t604n

  INTO TABLE itab_t604n

  FOR ALL ENTRIES IN it_itens

  WHERE steuc = it_itens-j_1bnbm

  AND spras = sy-langu.

  LOOP AT it_itens.

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

    IF it_itens-nrre IS INITIAL.

      CONCATENATE it_itens-nfnum it_itens-serie

      INTO it_itens-nrre SEPARATED BY '-'.

      MOVE it_itens-dtnf TO it_itens-dtre.

    ENDIF.

* << Fim da inclusão

    COLLECT it_itens INTO p_t_itens.

  ENDLOOP.

  SORT p_t_itens BY j_1bnbm.

  LOOP AT p_t_itens INTO wa_itens.

    v_tabix = sy-tabix.

    CHECK wa_itens-subtot NE 'X'.

    ON CHANGE OF wa_itens-j_1bnbm.

      READ TABLE itab_t604n WITH KEY steuc = wa_itens-j_1bnbm

                                     spras = sy-langu.

      IF sy-subrc = 0.

...

...

  CLEAR f_tab.

  CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

       EXPORTING

            display      = ' '

            fieldname    = 'NAME'

            tabname      = '/PWS/ZYCRT003'

       IMPORTING

            select_value = value

       TABLES

            valuetab     = v_tab

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

            fields       = f_tab.

* << Fim da exclusão

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

            fields       = f_tab

       EXCEPTIONS

         FIELD_NOT_IN_DDIC                   = 1

         MORE_THEN_ONE_SELECTFIELD           = 2

         NO_SELECTFIELD                      = 3

         OTHERS                              = 4.

* << Fim da inclusão

  IF sy-subrc EQ 0.

    MOVE value TO p_proc.

  ENDIF.

ENDFORM.