CE PLUS - Nota 008723
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 23/07/2009 00:00:00
Data/Hora Última Alteração: 07/08/2012 16:04:45
Descrição da Nota: VERIFICA CAMPO NFENUM PARA O BATCH INPUT
Sintoma
Verifica se o campo NFENUM está disponivel para preenchimento pelo batch input da transação J1B1N.
Solução
Verifica se o campo NFENUM está disponivel para preenchimento pelo batch input da transação J1B1N.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08723 Data: 23/07/2009 Hora: 17:12:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08723
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06807 - 00001 - 7.0 - 00006 - NOTA FISCAL ELETRONICA.
07164 - 00002 - 7.0 - 00006 - CORREÇÃO DO BATCH INPUT PARA NOTA FISCAL ELETRÔNICA
07385 - 00003 - 7.0 - 00007 - TRATAMENTO PARA O NÚMERO DA NOTA FISCAL FECHADO PARA EDIÇÃO
07514 - 00004 - 7.0 - 00007 - NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS
08720 - 00005 - 7.0 - 00010 - VERIFICA CAMPO NFENUM PARA O BATCH INPUT
----------------------------------------------------------------------------------------------------
VERIFICA CAMPO NFENUM PARA O BATCH INPUT
----------------------------------------------------------------------------------------------------
Palavras Chave:
J1B1N - BATCH - INPUT - CAMPO - NFENUM
/PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
IF NOT t_dados-observat IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYDOC-OBSERVAT' t_dados-observat
ENDIF.
IF NOT t_dados-docref IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYDOC-DOCREF' t_dados-docref.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_nfe = 'X'.
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFENUM'.
IF sy-subrc <> 0 AND v_refer NE '0004'.
* << Fim da inclusão
IF NOT t_dados-series IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYDOC-SERIES' t_dados-series.
ENDIF.
IF NOT t_dados-subser IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYDOC-SUBSER' t_dados-subser.
ENDIF.
PERFORM bdc_campo USING:
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFENUM' t_dados-nfnum,
'BDC_OKCODE' '=TAB5'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ELSE.
PERFORM bdc_campo USING:
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst,
'BDC_OKCODE' '=TAB5'.
ENDIF.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
IF sy-subrc <> 0 AND v_refer NE '0004'.
IF NOT t_dados-series IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYDOC-SERIES' t_dados-series.
ENDIF.
IF NOT t_dados-subser IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYDOC-SUBSER' t_dados-subser.
ENDIF.
PERFORM bdc_campo USING:
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst.
* << Fim da inclusão
MOVE t_dados-nfnum TO v_nfnum.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFNUM' v_nfnum,
'BDC_OKCODE' '=TAB5'.
ELSE.
PERFORM bdc_campo USING:
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst,
'BDC_OKCODE' '=TAB5'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ENDIF.
* << Fim da inclusão
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING: 'J_1BDYDOC-TRATY' t_dados-traty,
'J_1BDYDOC-SHPMRK' t_dados-shpmrk,
'J_1BDYDOC-ANZPK' t_dados-quant,
'J_1BDYDOC-SHPUNT' t_dados-shpunt.
IF NOT t_dados-vstel IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYDOC-VSTEL' t_dados-vstel.
...
...
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_nfe = 'X'.
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFENUM'.
ELSE.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ENDIF.
* << Fim da inclusão
IF sy-subrc <> 0 AND v_refer NE '0004'. "Não está oculto
PERFORM bdc_campo USING:
'J_1BDYDOC-SERIES' t_dados-series,
'J_1BDYLIN-ITMTYP' t_itens-itmtyp,
'J_1BDYLIN-MATNR' t_itens-matnr,