CE PLUS - Nota 007514
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 31/10/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:32:59
Descrição da Nota: NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS.
Sintoma
Ao criar a nota fiscal o batch-input esta parando no preenchimento do numero da nota fiscal.
Solução
Ajustado programa para não tentar preencher a serie ou subserie quando os campos estiverem em branco
no pwce.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07514 Data: 31/10/2008 Hora: 15:15:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07514
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00071
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07005 - 00001 - 7.0 - 00006 - PROGRAMA DE NOTA FISCAL NÃO TRATA CAMPO OBSERVAT DA J1B1
----------------------------------------------------------------------------------------------------
NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
SERIE - SUBSERIE - BATCH - INPUT - NOTA - FISCAL - CRIAR
/PWS/ZYCI_TRANSACAO_J1B1N - FUNÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
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.
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
IF sy-subrc <> 0 AND v_refer NE '0004'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF NOT t_dados-series IS INITIAL.
* << Fim da inclusão
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'J_1BDYDOC-SERIES' t_dados-series,
'J_1BDYDOC-SUBSER' t_dados-subser,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'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:
* << Fim da inclusão
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst.
IF v_nfe = 'X'.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFENUM' t_dados-nfnum,
'BDC_OKCODE' '=TAB5'.
ELSE.
MOVE t_dados-nfnum TO v_nfnum.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFNUM' v_nfnum,
...