Sintoma

O programa não estava trazendo a Taxa de Siscomex para a DSI na pasta Despesa.

Solução

Foi criado tratativa para trazer a taxa de Siscomex ao criar a DSI, trazendo sempre o valor sugerido

40,00, por não ter Adições na DSI.

Informações Complementares

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

Nota Número 02681 Data: 13/12/2006 Hora: 09:49:36

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

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

Nota Número              : 02681

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

TRATAMENTO PARA TRAZER A TAXA DE SISCOMEX PARA A DSI, PASTA DESPESA

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

Palavras Chave:

006, FORM REFRESH_ALL, V_IPA, FORM FILL_TAXASISCOMEX

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F02

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

  /pws/zycie116-ii_devido    = a_iitdevi.

  /pws/zycie116-ii_recolher  = a_iitreco.

  /pws/zycie116-ipi_devido   = a_ipitdevi.

  /pws/zycie116-ipi_recolher = a_ipitreco.

  /pws/zycie116-ad_devido    = a_addevi.

  /pws/zycie116-ad_recolher  = a_adreco.

ENDFORM.

FORM fill_taxasiscomex USING    p_adics.

  SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie085-bukrs.

  SELECT SINGLE * FROM /pws/zycit000 WHERE land1 = t001-land1.

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

  SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                WHERE bukrs EQ /pws/zycie085-bukrs.

  IF wa_it000 IS INITIAL.

    MOVE /pws/zycit000 TO wa_it000.

  ENDIF.

* << Fim da inclusão

  v_adics = p_adics.

  IF NOT /pws/zycie093-meiotransp EQ 'PS'.

    s_wsisco = wa_it000-txsis_fix.

    IF v_adics > 2.

      s_wsisco = s_wsisco + ( wa_it000-txsis_0_2 * 2 ).

      v_adics = v_adics - 2.

      IF v_adics > 3.

        s_wsisco = s_wsisco + ( wa_it000-txsis_3_5 * 3 ).

        v_adics = v_adics - 3.

        IF v_adics > 5.

...

...

        v_sisco3 = v_sisco1 + v_sisco2.

      ENDIF.

    ENDIF.

  ENDIF.

  READ TABLE itab_zycit049 WITH KEY tpdesp = /pws/zycit000-flagfreten.

  IF sy-subrc EQ 0.

    v_tabix = sy-tabix.

    IF itab_zycit049-vldp IS INITIAL.

      itab_zycit049-vldp   = /pws/zycie093-ternacion.

      itab_zycit049-vlreal = /pws/zycie093-ternacion.

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

      IF NOT /pws/zycie093-waersfre EQ  /pws/zycbt007-waersb.

* << Fim da exclusão

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

      IF NOT /pws/zycie093-waersfre EQ wa_zycbt007-waersb.

        itab_zycit049-waers = /pws/zycie093-waersfre.

* << Fim da inclusão

        PERFORM trata_decimais USING itab_zycit049-vlreal

                CHANGING itab_zycit049-vldp.

        PERFORM: calc_conv_moeda:

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

                 USING /pws/zycie093-waersfre  /pws/zycbt007-waersb

                 CHANGING itab_zycit049-vldp.

* << Fim da exclusão

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

                 USING /pws/zycie093-waersfre wa_zycbt007-waersb

                 CHANGING itab_zycit049-vlreal.

* << Fim da inclusão

      ELSE.

        itab_zycit049-vlreal = /pws/zycie093-ternacion.

      ENDIF.

      MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vldp vlreal.

    ENDIF.

  ENDIF.

ENDFORM.

FORM fill_nrseq.

  v_nrseq_ant = /pws/zycie085-nrseqdi.

  PERFORM: fill_criar.

...

...

                /pws/zycie085-dttax

                CHANGING /pws/zycie085-ukursfre,

             load_frvl.

  ENDIF.

  IF NOT /pws/zycie085-waersseg IS INITIAL.

    PERFORM: taxa_converte USING /pws/zycie085-waersseg

                /pws/zycie085-dttax

                CHANGING /pws/zycie085-ukursseg,

             load_sevl.

  ENDIF.

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

  v_ipa = 1.

  PERFORM fill_taxasiscomex USING v_ipa.

* << Fim da inclusão

  /pws/zycie085-waersfob = /pws/zycie003-waers.

  /pws/zycie085-vlfob    = v_tval2.

  IF NOT /pws/zycie085-waersfob EQ  /pws/zycbt007-waersb.

    IF NOT /pws/zycie085-ukursfob IS INITIAL.

      /pws/zycie085-vlfobr   = /pws/zycie085-vlfob /

         /pws/zycie085-ukursfob.

    ELSE.

      MESSAGE i015 WITH text-221.

      EXIT.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F02

...

           load_para.

    PERFORM: load_nimp,

             load_blid,

             load_frvl,

             load_sgvl,

             load_cpfc,

             load_seto,

             load_coll,

             calc_itab.

    MOVE itab_it[] TO itab_ita[].

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

  v_line = 1.

  PERFORM: fill_taxasiscomex USING v_line.

* << Fim da inclusão

ENDFORM.

FORM load_coll.

  v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -

 /pws/zycie093-ternacion.

  s_frvr = v_fretc * /pws/zycie085-ukursfre.

  PERFORM trata_decimais USING /pws/zycie093-waersfre

                               s_frvr.

  s_frvr_d2 = s_frvr.

ENDFORM.

FORM load_sevl.

...