Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 22/07/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:14
Descrição da Nota: AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE EXISTE.
Sintoma
Ao criar NF Eletrônica tenta lançar campo NFNUM e dá erro de batch input.
Solução
Verificar campo correto, se está oculto ou não antes do batch input.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08713 Data: 22/07/2009 Hora: 14:06:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08713
Categoria : Erro de Programa
Prioridade : Alta
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.
07514 - 00002 - 7.0 - 00007 - NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS
----------------------------------------------------------------------------------------------------
AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE EXISTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NFE - NF ELETRÔNICA - NFNUM - NFENUM - ERRO DE BATCH INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
'J_1BDYLIN-INCLTX' 'X',
'BDC_OKCODE' '/00'.
ENDIF.
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'.
* << Fim da inclusão
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFENUM'.
* << Fim da inclusão
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.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_nfe = 'X'.
* << Fim da exclusão
PERFORM bdc_campo USING:
'J_1BDYDOC-NFENUM' t_dados-nfnum,
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'BDC_OKCODE' '=TAB5'.
ELSE.
PERFORM bdc_campo USING:
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst,
* << Fim da inclusão
'BDC_OKCODE' '=TAB5'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
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'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
ENDIF.
* << Fim da exclusão
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
ENDIF.
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.
ENDIF.
...