Sintoma

O programa não está gerando a Nota fiscal de nacionalização de RECOF.

Solução

Atualização da Nota fiscal de nacionalização de RECOF.

Informações Complementares

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

Nota Número 06760 Data: 13/06/2008 Hora: 11:13:22

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

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

Nota Número              : 06760

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00052

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

01927  - 00001 - 6.0    - 00024  - PROGRAMA DE NF ESTÁ CONSUMINDO MUITA MEMÓRIA. PROBLEMAS DE PERFOR

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

NACIONALIZAÇÃO DE RECOF

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

Palavras Chave:

NOTA FISCAL NACIONALIZAÇÃO DE RECOF /PWS/ZYCIT013

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

          INCLUDE STRUCTURE /pws/zycit049.

  DATA: END OF itab_zycit049_fndp .

  DATA v_vlsisco LIKE v_vldp.

  IF t001 IS INITIAL OR /pws/zycit000 IS INITIAL.

    SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie041-bukrs.

    SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.

  ENDIF.

  CLEAR v_graneis.

  FREE: itab_zycit003.

  IF NOT itab_zycit100[] IS INITIAL.

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

    SELECT a~nrseq a~ebeln a~ebelp a~netpr a~vlreal

           a~qtd_iten a~ntgew a~nrseq_pgfat a~waers a~tpnf

           b~meins a~werks a~lifnr a~mfrpn a~aliqii

           a~aliqipi a~advalipi a~aliqicms

           a~advalicms a~vlfre_fat a~vlseg_fat a~basred

           a~qtd_itend a~ntgewd a~nrseqd

      FROM ( /pws/zycit003 AS a INNER JOIN /pws/zycit013 AS b

        ON a~ebeln EQ b~ebeln AND a~ebelp EQ b~ebelp )

      INTO CORRESPONDING FIELDS OF TABLE itab_zycit003

      FOR ALL ENTRIES IN itab_zycit100

       WHERE a~nrseq EQ itab_zycit100-nrseq

         AND a~ebeln EQ itab_zycit100-ebeln

         AND a~ebelp EQ itab_zycit100-ebelp.

* << Fim da exclusão

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

    SELECT nrseq ebeln ebelp netpr vlreal qtd_iten ntgew nrseq_pgfat

           waers tpnf meins werks lifnr mfrpn aliqii aliqipi advalipi

            aliqicms advalicms vlfre_fat vlseg_fat basred qtd_itend

            ntgewd nrseqd FROM /pws/zycit003

    INTO CORRESPONDING FIELDS OF TABLE itab_zycit003

      FOR ALL ENTRIES IN itab_zycit100

       WHERE nrseq EQ itab_zycit100-nrseq

         AND ebeln EQ itab_zycit100-ebeln

         AND ebelp EQ itab_zycit100-ebelp.

* << Fim da inclusão

  ENDIF.

  CLEAR: v_tot_ntgew.

  LOOP AT itab_zycit003.

    v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.

  ENDLOOP.

  DESCRIBE TABLE itab_zycit003 LINES v_nolin.

  IF v_nolin IS INITIAL.

    MESSAGE w015 WITH text-003.

  ELSE.

    IF /pws/zycit001-waers   IS INITIAL AND

...