Sintoma

1 - Ao criar uma despesa Regime de caixa e Fecha câmbio Não, ao processar o boleto é feita uma F-02

debitando despesa e creditando fornecedor. Mas a conta de despesa (débito), o programa deveria

buscar da chave de operação PDS - por tipo de despesa, mas está buscando da chave de operação DGF.

2 - Ao salvar o complemento do boleto de uma despesa financeiro/importação com forma de pagamento

Regime de caixa e fecha câmbio = SIM, a contabilização é feita corretamente, porém ao clicar no

botão "voltar" está sendo exibida a mensagem (Taxa de câmbio não encontrada).

Solução

1 - Ajuste efetuado alterando a chave de operação de DGF para PDS

2 - Ajuste efetuado no campo categoria de moeda para que mantenha o valor 'M' antes de entrar na

função Montante Converte.

Informações Complementares

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

Nota Número 01532 Data: 07/06/2006 Hora: 08:51:47

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

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

Nota Número              : 01532

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00119

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO PROCESSAR BOLETO DESPESAS

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

Palavras Chave:

COMPLEMENTO DO BOLETO PROCESSAR BOLETO DESPESAS

CHAVE DE OPERAÇÃO PDS - MONTANTE CONVERTE CATEGORIA M

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

Objetos da nota:

REPS /PWS/MZYGL110F01

REPS /PWS/ZYCBN102

REPS /PWS/ZYCBR102

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

                                        nrseq = /pws/zycbe031-nrcorresp.

    IF sy-subrc = 0.

      PERFORM get_parameters_cp USING 'PRINCIPAL'.

      v_ctmoeda = wa_zycbt011-ctmoed.

    ENDIF.

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

  ELSEIF v_ctmoeda IS INITIAL.

* << Fim da exclusão

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

  ELSE.

* << Fim da inclusão

    v_ctmoeda = 'M'.

  ENDIF.

  READ TABLE itab_zycbt009 WITH KEY codpadr = v_ctmoeda.

  v_origem = ' '.

  CLEAR: v_taxa_alter_p, v_taxa_alter_i, v_taxa_alter_c.

...

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

Modificações efetuadas em REPS /PWS/ZYCBN102

...

      IF p_wa_despesa-frpagto = 'R' AND

         ( itab_selreg_aux-fmd = 'ID' OR itab_selreg_aux-fmd = 'CD' ).

        IF p_wa_despesa-codmod = 'I'.

          v_ktosl = 'PDI'.

        ELSEIF p_wa_despesa-codmod = 'F'.

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

          v_ktosl = 'DGF'.

* << Fim da exclusão

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

          v_ktosl = 'PDS'.

* << Fim da inclusão

        ENDIF.

        CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

             EXPORTING

                  bukrs           = p_wa_despesa-bukrs

                  ktosl           = v_ktosl

...

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

Modificações efetuadas em REPS /PWS/ZYCBR102

...

  /pws/zycbt007,

  /pws/zycbt015,

  /pws/zycbt004,

  /pws/zycbt005,

  /pws/zycbt009,

* >> Início da inclusão:

  /pws/zycbt011,

* << Fim da inclusão

  /pws/zycbt017,

  /pws/zycbt019,

  /pws/zycbt028,

  /pws/zycbt030,

  /pws/zycbt031,

...