Sintoma

Ao tentar criar uma fatura de despesas o sistema apresenta uma série de mensagens de erro.

Solução

Levar dados para fatura tipo P de despesa.

Informações Complementares

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

Nota Número 09589 Data: 16/12/2009 Hora: 16:48:56

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

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

Nota Número              : 09589

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

08441  - 00001 - 7.0    - 00009  - TAXA DE CONVERSÃO DE MOEDA NA FATURA PÓS DI

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

AO CRIAR UMA FATURA DE DESPESAS,APRESENTA UMA SÉRIE DE ERROS

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

Palavras Chave:

FATURA DE DESPESA - ERRO - TIPO P

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

               INTO  (v_de, v_para)

               WHERE fcurr  = /pws/zycie006-waers  AND

                     tcurr  = /pws/zycbt007-waersb AND

                     gdatu >= sy-datum AND

                     kurst = v_kurst.

        v_ukurs = ( v_ukurs * v_de ) / v_para.

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

        v_ukurs  = /pws/zycit085-ukursfre.

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

        v_ukurs  = /pws/zycit085-ukursseg.

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

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

        v_ukurs  = /pws/zycit085-ukursfob.

* << Fim da inclusão

      ENDIF.

    ELSE.

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

        CLEAR v_ukurs.

      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

...

...

    v_codeven = '001DS'.

  ELSEIF /pws/zycie006-frpagto = 'D' AND /pws/zycie006-tpfatura ='04'.

    v_codeven = '001DO'.

  ELSEIF /pws/zycie006-frpagto ='P' AND ( /pws/zycie006-tpfatura ='01'

               OR /pws/zycie006-tpfatura = '11' ).

    v_codeven = '001N'.

  ELSEIF /pws/zycie006-frpagto ='P' AND /pws/zycie006-tpfatura ='02'.

    v_codeven = '001NF'.

  ELSEIF /pws/zycie006-frpagto ='P' AND /pws/zycie006-tpfatura ='03'.

    v_codeven = '001NS'.

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

  ELSEIF /pws/zycie006-frpagto = 'P' AND /pws/zycie006-tpfatura ='04'.

    v_codeven = '001NO'.

* << Fim da inclusão

  ENDIF.

  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.

    PERFORM busca_taxas.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

    LOOP AT itab_zycbt035_aux2.

      v_index = sy-tabix.

      CLEAR v_montante.

      v_montante = itab_zycbt035_aux2-wrbtr.

      READ TABLE itab_zycbt035_aux INDEX v_index.

      MOVE itab_zycbt035_aux TO itab_zycbt035.

      CLEAR: itab_zycbt035-matuse , itab_zycbt035-bklas  .

      itab_zycbt035-wrbtr   = v_montante.

      IF /pws/zycie006-frpagto = 'D'.

        itab_zycbt035-bschl = '50'.

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

      ELSEIF /pws/zycie006-frpagto = 'N'.

* << Fim da exclusão

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

      ELSEIF /pws/zycie006-frpagto = 'N'

         OR  /pws/zycie006-frpagto = 'P'.

* << Fim da inclusão

        itab_zycbt035-bschl = '31'.

      ENDIF.

      CLEAR : itab_zycbt035-ebeln, itab_zycbt035-ebelp.

      COLLECT itab_zycbt035.

    ENDLOOP.

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

    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.

...

...

                                    /pws/zycit085-dttax

                           CHANGING /pws/zycit085-ukursfre.

      ENDIF.

    WHEN '03'.

      IF /pws/zycie006-waers NE /pws/zycit085-waersseg.

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

        PERFORM atualiza_taxa USING /pws/zycit085-waersseg

                                    /pws/zycit085-dttax

                           CHANGING /pws/zycit085-ukursseg.

      ENDIF.

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

    WHEN '04'.

      IF /pws/zycie006-frpagto EQ 'P' .

        IF /pws/zycie006-waers NE /pws/zycit085-waersfob .

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

          PERFORM atualiza_taxa USING /pws/zycit085-waersfob

                                      /pws/zycit085-dttax

                             CHANGING /pws/zycit085-ukursfob.

        ELSE.

          v_kursf = /pws/zycit085-ukursfob.

        ENDIF.

      ENDIF.

* << Fim da inclusão

  ENDCASE.

ENDFORM.

...