Sintoma

Ao criar uma fatura de frete e preencher a moeda após precionar enter o sistema busca os dados de

frete do BL e altera a moeda preenchida.

Ao criar fatura de despesas o programa de fatura está selecionando a moeda e o valor errado para a

Fatura.

Solução

Corrigir seleção do BL para só selecionar os dados do BL caso a moeda e valor estejam em branco.

Informações Complementares

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

Nota Número 06701 Data: 06/06/2008 Hora: 09:21:36

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

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

Nota Número              : 06701

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00050

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE NA BUSCA DOS VALORES DE FRETE DO BL PARA A FATURA

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

Palavras Chave:

FATURA - FRETE - BL - MOEDA - VALOR

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

Objetos da nota:

REPS /PWS/MZYCI003I01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

  CLEAR okcode.

ENDMODULE.

MODULE atualiza_zycie006 INPUT.

  DATA: v_peso1 LIKE tdynpread-fieldvalue,

        v_peso2 LIKE tdynpread-fieldvalue,

      v_format1 LIKE tdynpread-fieldvalue,

      v_format2 LIKE tdynpread-fieldvalue.

  IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).

    /pws/zycie006-flagfabr  = 'S'.

  ENDIF.

* >> Início da exclusão: MODULE ATUALIZA_ZYCIE006

  IF /pws/zycie006-tpfatura = '02' AND /pws/zycie006-vlfre EQ 0.

    SELECT SINGLE collect waersfre FROM /pws/zycit093

      INTO (/pws/zycie006-vlfre,  /pws/zycie006-waers)

      WHERE nrseqce = /pws/zycie006-nrseqce.

  ENDIF.

* << Fim da exclusão

  IF /pws/zycie006-tpfatura NE '05'.

   /pws/zycie006-vltotal = /pws/zycie006-vlmerc + /pws/zycie006-vlfre +

                                                    /pws/zycie006-vlseg.

  ENDIF.

  CLEAR tdynpread. REFRESH tdynpread.

  tdynpread-fieldname = '/PWS/ZYCIE006-NTGEW'.

  APPEND tdynpread.

  CALL FUNCTION 'DYNP_VALUES_READ'

       EXPORTING

            dyname     = '/PWS/SAPMZYCI003'

...

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

      MODIFY itab_zycit003.

    ENDLOOP.

  ENDIF.

  IF /pws/zycie006-nrseq IS INITIAL.

    PERFORM busca_sequencial_fatura.

  ENDIF.

  PERFORM buscar_cnpj.

  IF NOT itab_zycit003[] IS INITIAL AND /pws/zycie006-nrseqce IS

  INITIAL.

    PERFORM seleciona_bl.

* >> Início da inclusão: MODULE LOAD_DATA

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

       /pws/zycie006-vlfre EQ 0 AND

       /pws/zycie006-waers IS INITIAL AND

       NOT /pws/zycie006-nrseqce IS INITIAL.

      SELECT SINGLE collect waersfre FROM /pws/zycit093

        INTO (/pws/zycie006-vlfre,  /pws/zycie006-waers)

        WHERE nrseqce = /pws/zycie006-nrseqce.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM montar_dtvencto.

  IF NOT /pws/zycie006-nrfat IS INITIAL.

    SELECT nrcontr banqueiro refpagto dtcontr

      FROM /pws/zycbt108

      INTO TABLE itab_zycbt108

      WHERE nrfat EQ /pws/zycie006-nrfat.               "#EC CI_NOFIELD

    SELECT * FROM /pws/zycbt115

      INTO TABLE itab_zycbt115

      WHERE nrcorrep EQ /pws/zycie006-nrseq

...