Sintoma

Esta acumulando os valores quando entra e sai da Nota Fiscal de Remessa sem salvar

Solução

Atualização do programa de Nota Fiscal complementar para que no momento de gerar a Nota o sistema

efetuei os cálculos corretamente.

Informações Complementares

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

Nota Número 05214 Data: 13/11/2007 Hora: 15:28:56

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

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

Nota Número              : 05214

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00021

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NA NFR SE ENTRAMOS, SAIRMOS, ENTRARMOS NOVAMENTE ACUMULA OS VALORES

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

Palavras Chave:

ACUMULA OS VALORES - NOTA FISCAL DE REMESSA

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

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

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

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

FUNCTION /pws/zyci_rateio_custo.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO

v_tot_icms    = 0.

v_tot_ipi     = 0.

v_tot_pis     = 0.

v_tot_cofins  = 0.

v_tot_ii      = 0.

v_tpeso       = 0.

v_seg         = 0.

v_tot         = 0.

v_tot_vlreal  = 0.

vl_icms       = 0.

vl_ii         = 0.

vl_ipi        = 0.

vl_pis        = 0.

vl_cofins     = 0.

* << Fim da inclusão

  PERFORM carrega_exits

          CHANGING

              itab_zyglt100[].

  IF NOT itab_zycit003[] IS INITIAL.

    MOVE itab_zycit003[] TO itab_zycit003_aux[].

    IF NOT itab_zycit003_aux[] IS INITIAL.

      SELECT * FROM /pws/zycit003

        INTO TABLE itab_zycit003

        FOR ALL ENTRIES IN itab_zycit003_aux

        WHERE nrseq = itab_zycit003_aux-nrseq AND

...