CE PLUS - Nota 002277
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 18/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:59:36
Descrição da Nota: AO TENTAR CRIAR A NF DA MSG DE FATURA NÃO CONSTABILIZADA
Sintoma
Atualizado ícone Nota Fiscal, para não deixar criar quando a fatura ainda não foi contabilizada,
aparecendo a mensagem: 'existem faturas não contabilizadas'.
Solução
Feito o select pela /pws/zycit263.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02277 Data: 18/10/2006 Hora: 16:44:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02277
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00136
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO TENTAR CRIAR A NF DA MSG DE FATURA NÃO CONSTABILIZADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - FATURA - MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
ENDIF.
IF v_status_s NE 0.
PERFORM grava_tabelas.
ENDIF.
CLEAR v_fat.
* >> Início da exclusão: MODULE USER_COMMAND_0050
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc = 0.
SELECT * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseqce = /pws/zycit094-nrseqce AND
eliminado NE 'X' AND
tpfatura EQ '01' AND
frpagto NE 'A' AND
belnr_p EQ space.
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
IF not itab_zycit003[] is initial.
SELECT *
FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
ENDIF.
IF not itab_zycit263[] is initial.
SELECT *
FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
ENDIF.
LOOP AT itab_zycit006 WHERE eliminado NE 'X'
AND tpfatura EQ '01'
AND frpagto NE 'A'
AND belnr_p EQ space.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit132
* >> Início da exclusão: MODULE USER_COMMAND_0050
WHERE nrseq = /pws/zycit006-nrseq AND
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHERE nrseq = itab_zycit006-nrseq AND
* << Fim da inclusão
eliminado NE 'X' AND
belnr_p EQ space.
IF sy-subrc = 0.
v_fat = 'X'.
ELSE.
SELECT SINGLE * FROM /pws/zycit132
* >> Início da exclusão: MODULE USER_COMMAND_0050
WHERE nrseq = /pws/zycit006-nrseq AND
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHERE nrseq = itab_zycit006-nrseq AND
* << Fim da inclusão
eliminado NE 'X'.
IF sy-subrc NE 0.
v_fat = 'X'.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0050
ENDIF.
ENDSELECT.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
ENDLOOP.
* << Fim da inclusão
IF v_fat IS INITIAL.
PERFORM call_nf.
ELSE.
MESSAGE i015 WITH text-218 text-219.
ENDIF.
...