Sintoma

Após criar uma nota fiscal de remessa para processo de carvão, se eliminar todas as remessas e a

global ao uma nova nota fiscal o saldo para criar as notas de remessa está zerado.

Solução

Ajustado programa para eliminar o registro na tabela de saldos de remessa quaqndo a nota fiscal

global for eliminada.

Informações Complementares

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

Nota Número 07598 Data: 18/11/2008 Hora: 16:23:07

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

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

Nota Número              : 07598

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00074

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

SALDO NOTA FISCAL DE REMESSA PROCESSO CARVÃO.

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

Palavras Chave:

SALDO - NOTA - FISCAL - CARVÃO - PROCESSO - CRIAR

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

          AND lifnr    = itab_zycit042-lifnr

          AND docnum   = v_valor.

      DELETE FROM /pws/zycit223

        WHERE ebeln    = itab_zycit042-ebeln    AND

              ebelp    = itab_zycit042-ebelp    AND

              nfglobal = itab_zycit042-nfglobal AND

              nrseq    = itab_zycit042-nrseq    AND

              docnum   = v_valor.                       "#EC CI_NOFIRST

      IF v_modalidade = '99' OR

      ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).

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

        CLEAR /pws/zycie045-saldo.

        UPDATE /pws/zycit045 SET saldo = /pws/zycie045-saldo

* << Fim da exclusão

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

        DELETE FROM /pws/zycit045

* << Fim da inclusão

        WHERE nrseq    = itab_zycit042-nrseq

          AND nfglobal = itab_zycit042-nfglobal

          AND ebeln    = itab_zycit042-ebeln

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

          AND ebelp    = itab_zycit042-ebelp.           "#EC CI_NOFIRST

* << Fim da exclusão

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

              AND ebelp    = itab_zycit042-ebelp.       "#EC CI_NOFIRST

* << Fim da inclusão

      ENDIF.

...