CE PLUS - Nota 007385
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 30/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:33:07
Descrição da Nota: TRATAMENTO PARA O NÚMERO DA NOTA FISCAL FECHADO PARA EDIÇÃO
Sintoma
No batch-input da nota fiscal global está exibindo mensagem informando que não é possivel preencher
o numero da nota fiscal.
Solução
Ajustado batch-input para verificar se o campo numero da nota fiscal está aberto para edição .
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07385 Data: 30/09/2008 Hora: 16:34:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07385
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06841 - 00001 - 7.0 - 00006 - PREENCHIMENTO PARA UNIDADE NO BATCH-INPUT DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA O NÚMERO DA NOTA FISCAL FECHADO PARA EDIÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NÚMERO - NOTA - FISCAL - FECHADO - CAMPO - BATCH - INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
REPS /PWS/LZYCIGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
LOOP AT t_itens.
MOVE sy-tabix TO v_tabix.
v_cont = v_cont + 1.
PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.
WRITE:
t_itens-netoth CURRENCY t_itens-waers TO v_netoth,
t_itens-netins CURRENCY t_itens-waers TO v_netins,
t_itens-netfre CURRENCY t_itens-waers TO v_netfre,
t_itens-netpr TO v_netpr,
t_itens-menge UNIT t_itens-meins TO v_menge.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
* << Fim da exclusão
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
EXPORTING
input = t_itens-meins
IMPORTING
output = t_itens-meins
EXCEPTIONS
unit_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
* << Fim da inclusão
IF sy-subrc <> 0 AND v_refer NE '0004'.
PERFORM bdc_campo USING:
'J_1BDYDOC-SERIES' t_dados-series,
'J_1BDYLIN-ITMTYP' t_itens-itmtyp,
'J_1BDYLIN-MATNR' t_itens-matnr,
'J_1BDYLIN-MAKTX' t_itens-maktx,
'J_1BDYLIN-MATKL' t_itens-matkl,
'J_1BDYLIN-WERKS' t_itens-werks,
'J_1BDYLIN-MENGE' v_menge,
'J_1BDYLIN-MEINS' t_itens-meins,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
IF ( p_t_campos-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campos-conteudo TO p_t_dados-nfnum.
MODIFY p_t_dados TRANSPORTING nfnum.
DELETE p_t_campos INDEX sy-tabix.
CLEAR p_t_campos.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM TRATA_CAMPO_OBRIGATORIO
ELSEIF v_string+3(1) = '-'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_CAMPO_OBRIGATORIO
ELSEIF v_string+3(1) NE '.'.
* << Fim da inclusão
p_itab_oculto-campo = 'J_1BDYDOC-NFNUM'.
APPEND p_itab_oculto.
ENDIF.
ENDFORM.
FORM bdc_subscr USING value(p_0186).
ENDFORM.
FORM trata_campo TABLES p_t_dados STRUCTURE /pws/zycbe033
p_t_campo STRUCTURE /pws/zycit034
p_itab_oculto LIKE itab_oculto[]
USING value(v_transacao).
...