Sintoma

Nota Fiscal de Remessa mesmo não está trazendo a quantidade correta no momento da emissão da nota

fiscal parcelada e também o item 10 não está aparecendo no embarque

Solução

Verificar o saldo do item que já foram utilizados nas outras NFs para criar a próxima Nota Fiscal

Informações Complementares

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

Nota Número 07827 Data: 23/12/2008 Hora: 09:04:29

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

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

Nota Número              : 07827

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00078

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

Referência às notas relacionadas:

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

07702  - 00001 - 7.0    - 00007  - CALCULA SALDO DISPONIVEL PARA NOTA FISCAL DE REMESSA.

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

NOTA FISCAL DE REMESSA PARCELADA NÃO ESTA TRAZENDO A QUANTIDADE CORRETA

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

Palavras Chave:

NOTA - FISCAL - REMESSA - PARCELADA - QUANTIDADE - SALDO

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

FORM seleciona_itens_nfr.

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

  DATA: itab_zycit044sd TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  CLEAR: itab_zycit003, itab_zycit045, itab_zycit044, itab_zycit044_aux,

           itab_zycit042_aux2.

  REFRESH: itab_zycit045, itab_zycit044, itab_zycit044_aux,

           itab_zycit042_aux2.

  LOOP AT itab_zycit042 WHERE docnum = /pws/zycie043-docnumnfg.

    CLEAR itab_zycit042-docnum.

    MOVE itab_zycit042 TO itab_zycit042_aux2.

    APPEND itab_zycit042_aux2.

  ENDLOOP.

  SELECT * FROM /pws/zycit045

    INTO TABLE itab_zycit045

    WHERE nrseqnf    EQ /pws/zycie043-nrseq

      AND nfglobal EQ /pws/zycie043-nfglobal.

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

  READ TABLE itab_zycit042_aux2 INDEX 1.

  SELECT * FROM /pws/zycit044 INTO TABLE itab_zycit044sd

        WHERE nrseq EQ itab_zycit042_aux2-nrseq.

* << Fim da inclusão

  LOOP AT itab_zycit042_aux2.

    READ TABLE itab_zycit044 WITH KEY nrseq = itab_zycit042_aux2-nrseq

                                      ebeln = itab_zycit042_aux2-ebeln

                                      ebelp = itab_zycit042_aux2-ebelp.

    IF sy-subrc NE 0.

      MOVE-CORRESPONDING itab_zycit042_aux2 TO itab_zycit044.

      CLEAR: itab_zycit044-nfnum, itab_zycit044-series,

             itab_zycit044-subser.

      itab_zycit044-docnumnfg = /pws/zycie043-docnumnfg.

      itab_zycit044-menge = itab_zycit042_aux2-qtd_iten.

      itab_zycit044-saldo = itab_zycit042_aux2-qtd_iten.

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

     READ TABLE itab_zycit045 WITH KEY nrseq = itab_zycit042_aux2-nrseq

                                       ebeln = itab_zycit042_aux2-ebeln

                                       ebelp = itab_zycit042_aux2-ebelp.

      IF sy-subrc EQ 0.

        itab_zycit044-menge = itab_zycit045-menge.

        itab_zycit044-saldo = itab_zycit045-saldo.

        itab_zycit044-meins = itab_zycit045-meins.

      ENDIF.

* << Fim da exclusão

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

      LOOP AT itab_zycit044sd WHERE nrseq = itab_zycit042_aux2-nrseq

                                AND ebeln = itab_zycit042_aux2-ebeln

                                AND ebelp = itab_zycit042_aux2-ebelp.

        itab_zycit045-saldo = itab_zycit044-saldo =

                  itab_zycit044-saldo - itab_zycit044sd-qtd_item.

      ENDLOOP.

      MODIFY itab_zycit045 TRANSPORTING saldo

            WHERE nrseq = itab_zycit042_aux2-nrseq

              AND ebeln = itab_zycit042_aux2-ebeln

              AND ebelp = itab_zycit042_aux2-ebelp.

* << Fim da inclusão

      IF itab_zycit044-saldo GT 0.

        APPEND itab_zycit044.

      ENDIF.

    ENDIF.

  ENDLOOP.

...