CE PLUS - Nota 002982

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Recebimento

Data/Hora da Publicação: 29/01/2007 00:00:00

Data/Hora Última Alteração: 23/02/2011 09:52:40

Descrição da Nota: MENU /PWS/ZYCI > PROCESSAR > RECEBIMENTO NÃO ENCONTRA NF

Sintoma

Se entramos pelo menu /pws/zyci > processar > recebimento físico/fiscal buscando pelo número da nota

fiscal desejada, o sistema dá mensagem "nenhum item para critério informado".

 

 

Solução

Solicitar o preenchimento do número sequencial da DI.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

RECEBIMENTO RECOF

Informações Complementares

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

Nota Número 02982 Data: 29/01/2007 Hora: 09:22:49

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

 

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

Nota Número              : 02982

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00150

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

Referência às notas relacionadas:

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

 

01485  - 00001 - 6.0    - 00023  - RECEBIMENTO RECOF

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

MENU /PWS/ZYCI > PROCESSAR > RECEBIMENTO NÃO ENCONTRA NF

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

Palavras Chave:

MENU - RECEBIMENTO - SELEÇÃO DE NF

NÚMERO DA NOTA FISCAL

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

Objetos da nota:

REPS /PWS/MZYCI017F01

REPT /PWS/SAPMZYCI017

 

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

 

FORM seleciona_itens_nf.

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

  DATA v_reg TYPE i.

* << Fim da inclusão

  IF v_nrseqdi+7(3) EQ 'P06'.

    MOVE v_nrseqdi TO /pws/zycie043-nrseq.

    MOVE v_nrseqdi TO /pws/zycie442-nrseqda.

    MOVE /pws/zycie085-nrdi TO /pws/zycie043-nrdi.

  ELSE.

    MOVE v_nrseqdi TO /pws/zycie085-nrseqdi.

    MOVE /pws/zycie085-nrseqdi TO /pws/zycie043-nrseq.

    MOVE /pws/zycie085-nrdi TO /pws/zycie043-nrdi.

  ENDIF.

  WRITE /pws/zycie043-nrseq TO /pws/zycie043-nrseq RIGHT-JUSTIFIED.

...

 

...

          INTO CORRESPONDING FIELDS OF TABLE itab_nfg

           FOR ALL ENTRIES IN itab_zycit085

             WHERE nrseq    EQ  /pws/zycie043-nrseq

             AND nrseq    EQ itab_zycit085-nrseqdi

             AND nfnum     IN itab_nfnum

             AND series    IN itab_series

             AND subser    IN itab_subser

             AND cancel    EQ ' '.

      ENDIF.

    ELSE.

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

      IF /pws/zycie043-nrseq NE '0000000000'.

* << Fim da inclusão

 

        SELECT * FROM /pws/zycit041

         INTO CORRESPONDING FIELDS OF TABLE itab_nfg

         WHERE nrseq    EQ  /pws/zycie043-nrseq

           AND nfnum     IN itab_nfnum

           AND series    IN itab_series

           AND subser    IN itab_subser

           AND cancel    EQ ' '.

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

      ELSE.

        SELECT * FROM /pws/zycit041

         INTO CORRESPONDING FIELDS OF TABLE itab_nfg

         WHERE nfnum     IN itab_nfnum

           AND series    IN itab_series

           AND subser    IN itab_subser

           AND cancel    EQ ' '.

        CHECK sy-subrc = 0.

        DESCRIBE TABLE itab_nfg LINES v_reg.

        IF v_reg > 1.

          MESSAGE w015 WITH text-260 text-261.

          EXIT.

        ELSE.

          READ TABLE itab_nfg INDEX 1.

          MOVE itab_nfg-nrseq TO /pws/zycie043-nrseq.

        ENDIF.

      ENDIF.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  FREE itab_nf.

  LOOP AT itab_nfg.

    SELECT * FROM /pws/zycit043

      APPENDING CORRESPONDING FIELDS OF TABLE itab_nf

      WHERE  nrseq     = itab_nfg-nrseq

        AND nrdi       = itab_nfg-nrdi

        AND  nfglobal  = itab_nfg-nfglobal

        AND  docnumnfg = itab_nfg-docnum

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI017

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 260

 

Texto: (46 caracteres)

"Foram encontradas várias DI com esse N° de NF."

 

Comprimento máximo: 46

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 261

 

Texto: (31 caracteres)

"Preencher o campo N° Seq. da DI"

 

Comprimento máximo: 31