CE PLUS - Nota 007005
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 22/07/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:04:17
Descrição da Nota: PROGRAMA DE NOTA FISCAL NÃO TRATA CAMPO OBSERVAT DA J1B1
Sintoma
Programa de nota fiscal não trata campo observat da J1B1.
Solução
Se o campo observat estiver preenchido, será levado na tela da J1B1.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07005 Data: 22/07/2008 Hora: 16:46:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07005
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00057
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROGRAMA DE NOTA FISCAL NÃO TRATA CAMPO OBSERVAT DA J1B1
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - OBSERVAT - J1B1 - BATCH INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
PERFORM bdc_campo USING:
'BDC_CURSOR' 'J_1BDYDOC-PARID',
'J_1BDYDOC-NFTYPE' t_dados-nftype,
'J_1BDYDOC-BUKRS' v_bukrs,
'J_1BDYDOC-PARVW' t_dados-parvw,
'J_1BDYDOC-PARID' t_dados-parid,
'J_1BDYLIN-INCLTX' 'X',
'BDC_OKCODE' '/00'.
ENDIF.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
* >> Início da inclusão:
IF NOT t_dados-observat IS INITIAL.
PERFORM bdc_campo USING 'J_1BDYDOC-OBSERVAT' t_dados-observat.
ENDIF.
* << Fim da inclusão
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'.
PERFORM bdc_campo USING:
'J_1BDYDOC-SERIES' t_dados-series,
'J_1BDYDOC-SUBSER' t_dados-subser,
'J_1BDYDOC-DOCDAT' v_data_doc,
'J_1BDYDOC-PSTDAT' v_data_pst.
...