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.
7.0
Produto:
Nota
Descrição
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.
...