Sintoma

Ao criar uma fatura de remessa após ter realizado um recebimento o programa não preenche os valores

de frete e seguro.

Solução

Ajustado programa para preencher o valor movimentado na tabela interna de custos de acordo com o que

foi gravado na tabela /pws/zycit036.

Informações Complementares

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

Nota Número 10286 Data: 16/06/2010 Hora: 09:15:12

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

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

Nota Número              : 10286

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00026

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LANÇAR OS VALORES DE FRETE E SEGURO NA NFR CRIADA PÓS RECEBIMENTO.

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

Palavras Chave:

NOTA - FISCAL - REMESSA - CRIAR - FRETE - SEGURO - RECEBIMENTO

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

        ENDIF.

      ELSE.

        PERFORM  visualiza_rateio.

        IF v_resp NE 'S'.

          EXIT.

        ENDIF.

      ENDIF.

      MOVE itab_zycit036[] TO itab_zycit036_di[].

    ENDIF.

  ENDIF.

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

  REFRESH itab_zycit036_di.

  READ TABLE itab_zycit100 INDEX 1.

  SELECT * FROM /pws/zycit036

    INTO TABLE itab_zycit036_di

    WHERE nrseq = itab_zycit100-nrseq

      AND origem EQ 'NF'.

  LOOP AT itab_zycit036_di INTO itab_zycit036.

    MODIFY itab_zycit036 TRANSPORTING vlmov waers_mov congelamov

        WHERE nrseq  EQ itab_zycit036-nrseq

          AND ebeln  EQ itab_zycit036-ebeln

          AND ebelp  EQ itab_zycit036-ebelp

          AND codigo EQ itab_zycit036-codigo

          AND origem EQ itab_zycit036-origem.

  ENDLOOP.

  REFRESH itab_zycit036_di.

* << Fim da inclusão

  MOVE itab_zycit036[] TO itab_zycit036_di[].

  PERFORM calcular_outros_custos(/pws/zycir006) TABLES itab_zycit036.

  MOVE itab_zycit036[] TO itab_zycit036_di[].

ENDFORM.

...