Sintoma

Não está utilizando a taxa da DI para contabilizar a faturas FRETE e seguro

Solução

Não está utilizando a taxa da DI para contabilizar a faturas FRETE e seguro

Informações Complementares

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

Nota Número 04696 Data: 12/09/2007 Hora: 19:47:11

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

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

Nota Número              : 04696

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NÃO ESTÁ UTILIZANDO A TAXA DA DI PARA CONTABILIZAR A FATURAS FRETE

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

Palavras Chave:

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

                                          ebelp = itab_zycit003-ebelp.

        v_ukurs  = itab_zycit100-dttaxbem.

      ELSEIF /pws/zycie006-tpfatura = '02'.

        v_ukurs  = /pws/zycit085-ukursfre.

      ELSEIF /pws/zycie006-tpfatura = '03'.

        v_ukurs  = /pws/zycit085-ukursseg.

      ENDIF.

    ELSE.

      IF /pws/zycit000-flagtax = 'X'.

        CLEAR v_ukurs.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

      ELSEIF /pws/zycie006-tpfatura = '02' and

        not /pws/zycit085-ukursfre is initial and

        /pws/zycie006-waers = /pws/zycit085-waersfre.

        v_ukurs  = /pws/zycit085-ukursfre.

      ELSEIF /pws/zycie006-tpfatura = '03' and

        not /pws/zycit085-ukursseg is initial and

        /pws/zycie006-waers = /pws/zycit085-waersseg.

        v_ukurs  = /pws/zycit085-ukursseg.

* << Fim da inclusão

      ELSE.

        v_ukurs  = v_kursf.

      ENDIF.

    ENDIF.

    DATA: v_de   LIKE tcurf-ffact,

          v_para LIKE tcurf-tfact.

    IF /pws/zycit000-kurst IS INITIAL.

      v_kurst = 'M'.

    ELSE.

      v_kurst = /pws/zycit000-kurst.

...

...

  READ TABLE itab_zycit003 INDEX 1.

  SELECT * FROM /pws/zycit003 UP TO 1 ROWS INTO /pws/zycie003

         WHERE nrseq EQ itab_zycit003-nrseq

           AND gsber NE ' '.

  ENDSELECT.

  IF /pws/zycit085 IS INITIAL .

    PERFORM busca_taxa_dia.

  ELSE.

    IF     /pws/zycie006-tpfatura EQ '02' AND

       NOT /pws/zycit085-ukursfre IS INITIAL AND

* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02

           /pws/zycie006-frpagto  EQ 'P'.

* << Fim da exclusão

* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02

           /pws/zycie006-frpagto  EQ 'P' and

           /pws/zycit085-waersfre = /pws/zycie006-waers .

* << Fim da inclusão

      IF /pws/zycit000-kurst IS INITIAL.

        v_kurst = 'M'.

      ELSE.

        v_kurst = /pws/zycit000-kurst.

      ENDIF.

      SELECT SINGLE ffact tfact

             FROM tcurf

             INTO  (v_de, v_para)

             WHERE fcurr  = /pws/zycie006-waers  AND

                   tcurr  = /pws/zycbt007-waersb AND

                   gdatu >= sy-datum AND

                   kurst = v_kurst.

      v_kursf = ( /pws/zycit085-ukursfre * v_de ) / v_para.

    ELSEIF     /pws/zycie006-tpfatura EQ '02' AND

* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02

           NOT /pws/zycit085-ukursfob IS INITIAL AND

               /pws/zycie006-frpagto  EQ 'N'.

* << Fim da exclusão

* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02

           NOT /pws/zycit085-ukursfre IS INITIAL AND

               /pws/zycie006-frpagto  EQ 'N' and

               /pws/zycit085-waersfre = /pws/zycie006-waers.

* << Fim da inclusão

      IF /pws/zycit000-kurst IS INITIAL.

        v_kurst = 'M'.

      ELSE.

        v_kurst = /pws/zycit000-kurst.

      ENDIF.

      SELECT SINGLE ffact tfact

             FROM tcurf

             INTO  (v_de, v_para)

             WHERE fcurr  = /pws/zycie006-waers  AND

                   tcurr  = /pws/zycbt007-waersb AND

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

      IF /pws/zycie006-tpfatura EQ '11'.

        IF /pws/zycit000-clucro_ia = ' '.

          CLEAR: itab_zycbt035-c_kostl,

                 itab_zycbt035-d_kostl.

        ENDIF.

      ENDIF.

      CLEAR : itab_zycbt035-ebeln, itab_zycbt035-ebelp.

      COLLECT itab_zycbt035.

    ENDLOOP.

  ELSEIF /pws/zycie006-tpfatura EQ '02'.

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

    SELECT SINGLE * FROM /pws/zycit000.

* << Fim da exclusão

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

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

* << Fim da inclusão

    IF NOT itab_zycit094[] IS INITIAL.

      SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_zycit094

             WHERE nrseq = itab_zycit094-nrseq.

    ENDIF.

    CLEAR v_tpeso.

    LOOP AT itab_zycit003.

      v_tpeso = itab_zycit003-ntgew + v_tpeso.

    ENDLOOP.

    CLEAR: itab_ekkn. FREE itab_ekkn.

...