CE PLUS - Nota 001586
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 14/06/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:34:25
Descrição da Nota: EMISSÃO DE NOTAS FISCAIS COMPLEMENTARES EM BATCH-INPUT OCULTO
Sintoma
Ao se tentar emitir uma Nota Fiscal complementar através de Batch-Input no modo oculto, o mesmo não
era realizado.
Solução
Correção no preenchimento dos campos de Mensagem de Notas Fiscais (causa do erro).
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01586 Data: 14/06/2006 Hora: 10:41:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01586
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00118
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01083 - 00001 - 6.0 - 00023 - EMISSÃO DE NOTA FISCAL COMPLEMENTAR COM REFERÊNCIA
----------------------------------------------------------------------------------------------------
EMISSÃO DE NOTAS FISCAIS COMPLEMENTARES EM BATCH-INPUT OCULTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
OCULTO; BATCH-INPUT; COMPLEMENTARES; FISCAIS; NOTAS; EMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C
...
v_cont_aux(2) TYPE n,
v_campo1(21),
v_campo2(20),
v_campo3(20),
v_campo4(20).
* >> Início da exclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_C
DATA: BEGIN OF itab_j_1bnfftx OCCURS 0.
INCLUDE STRUCTURE j_1bnfftx.
DATA: END OF itab_j_1bnfftx.
* << Fim da exclusão
LOOP AT t_dados.
CHECK t_dados-tcode = 'J1B1N'.
IF ( t_dados-docdat = space ).
t_campos-mandt = t_dados-mandt.
t_campos-campo = 'J_1BDYDOC-DOCDAT'.
...
ENDLOOP.
PERFORM bdc_field USING: 'BDC_OKCODE' '=TAB4'.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
CLEAR v_cont.
CLEAR v_campo.
* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
SELECT *
* << Fim da exclusão
* >> Início da inclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
SELECT COUNT(*)
* << Fim da inclusão
FROM j_1bnfftx
* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
INTO TABLE itab_j_1bnfftx
* << Fim da exclusão
* >> Início da inclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
INTO v_cont
* << Fim da inclusão
WHERE docnum = t_dados-docnum.
LOOP AT t_message.
CLEAR v_campo1.
ADD 1 TO v_cont.
CONCATENATE 'J_1BDYFTX-MESSAGE(' v_cont ')' INTO v_campo1.
* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
IF v_cont = '1'.
* << Fim da exclusão
* >> Início da inclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
IF t_message-docnum IS INITIAL.
* << Fim da inclusão
PERFORM bdc_campo USING:
v_campo1 t_message-msg.
* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
ELSEIF sy-tabix = v_cont.
CONCATENATE t_message-msg ' ' t_message-docnum INTO v_campo.
* << Fim da exclusão
* >> Início da inclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
ELSE.
CONCATENATE t_message-msg ' ' t_message-docnum INTO v_campo
SEPARATED BY space.
* << Fim da inclusão
PERFORM bdc_campo USING:
v_campo1 v_campo .
ENDIF.
* >> Início da exclusão: /PWS/ZYCE_TRANSACAO_J1B1N_C
ENDLOOP.
LOOP AT itab_j_1bnfftx.
ADD 1 TO v_cont.
CLEAR v_campo1.
CONCATENATE 'J_1BDYFTX-MESSAGE(' v_cont ')' INTO v_campo1.
PERFORM bdc_campo USING:
v_campo1 itab_j_1bnfftx-message.
* << Fim da exclusão
ENDLOOP.
PERFORM bdc_campo USING:
'BDC_OKCODE' '=LKML'.
PERFORM bdc_tela USING 'SAPLJ1BB2' '4100'.
CLEAR v_cont_aux.
...