CE PLUS - Nota 008820

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 13/08/2009 00:00:00

Data/Hora Última Alteração: 23/02/2011 09:20:26

Descrição da Nota: ESTÁ RECLAMANDO DE RECEBIMENTO QUANDO NÃO HÁ NF CRIADA.

Sintoma

Está reclamando de recebimento quando não há nf criada.

 

 

Solução

Não verificar recebimento quando número de nf estiver zerado.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

CRIADA MELHORIA DE NF DE CONTINGÊNCIA.

Informações Complementares

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

Nota Número 08820 Data: 13/08/2009 Hora: 11:33:49

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

 

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

Nota Número              : 08820

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00109

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

Referência às notas relacionadas:

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

 

08787  - 00001 - 7.0    - 00010  - CRIADA MELHORIA DE NF DE CONTINGÊNCIA.

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

ESTÁ RECLAMANDO DE RECEBIMENTO QUANDO NÃO HÁ NF CRIADA.

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

Palavras Chave:

RECEBIMENTO - NF CONTIGENCIA - NFE - NF ELETRONICA

 

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

Objetos da nota:

REPS /PWS/MZYCI016I01

 

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

 

...

                tc_itens_nfg-top_line - tc_itens_nfg-lines.

        WHEN 'P+'.

          tc_itens_nfg-top_line = tc_itens_nfg-top_line + 9.

        WHEN 'P++'.

          tc_itens_nfg-top_line =

                tc_itens_nfg-top_line + tc_itens_nfg-lines.

        WHEN 'CONT' .

          GET CURSOR FIELD v_campo VALUE v_valor.

          IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

            READ TABLE itab_zycit041 WITH KEY docnum = v_valor.

* >> Início da exclusão: MODULE USER_COMMAND_0100

            IF sy-subrc EQ 0 AND

            ( itab_zycit041-belnr_mr1m IS INITIAL AND

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0100

            IF sy-subrc EQ 0 AND v_valor NE '0000000000'.

              IF   ( itab_zycit041-belnr_mr1m IS INITIAL AND

* << Fim da inclusão

              itab_zycit041-mblnr_mb01 IS INITIAL AND

              itab_zycit041-belnr_f_51 IS INITIAL AND

              itab_zycit041-belnr_f_02 IS INITIAL ) .

              SELECT SINGLE * FROM /pws/zycit043

                WHERE nrseq     EQ itab_zycit041-nrseq

                  AND nfglobal  EQ itab_zycit041-nfglobal

                  AND docnumnfg EQ v_valor

                  AND cancel    EQ space.

              IF sy-subrc NE 0 .

                LOOP AT itab_zycit042 WHERE docnum EQ v_valor

...

 

...

                CALL SCREEN '0140' STARTING AT 5 15.

              ELSE.

                MESSAGE i015 WITH text-111 text-114.

              ENDIF.

            ELSE.

              MESSAGE i015 WITH text-111 text-051.

            ENDIF.

          ELSE.

            MESSAGE s015 WITH text-052.

          ENDIF.

* >> Início da inclusão: MODULE USER_COMMAND_0100

          ELSE.

            MESSAGE s015 WITH text-052.

          ENDIF.

* << Fim da inclusão

      ENDCASE.

    ELSEIF sy-tcode EQ '/PWS/ZYCI016_E'.

 

...

 

...

            AND   msgnr EQ '111'.

            IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '111'.

            ENDIF.

          ENDIF.

          PERFORM cria_nota_fiscal_r.

        WHEN 'CANCR'.

          PERFORM efetua_cancelamento_r.

        WHEN 'CONT_NFR' .

          GET CURSOR FIELD v_campo VALUE v_valor.

* >> Início da exclusão: MODULE USER_COMMAND_0200

          IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0200

          IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'

          AND NOT v_valor EQ '0000000000'.

* << Fim da inclusão

            IF ( /pws/zycie043-belnr_mr1m IS INITIAL AND

                 /pws/zycie043-belnr_f_51 EQ space AND

                 /pws/zycie043-mblnr_mb01 EQ space AND

                 /pws/zycie043-belnr_f_02 EQ space  )  .

              LOOP AT itab_zycit044 WHERE docnum EQ v_valor

                      AND docnum_cont NE space.

              ENDLOOP.

              IF sy-subrc EQ 0.

                MESSAGE i015 WITH text-113.

                EXIT.

...