CE PLUS - Nota 012121
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 18/04/2012 00:00:00
Data/Hora Última Alteração: 18/05/2012 14:52:05
Descrição da Nota: LANÇAR MAIS DE 17 ITENS NA PASTA DOCUMENTOS DE IMPORTAÇÃO
Sintoma
ÿÿÿÿ nAo criar uma nota fiscal com mais de 17 itens ocorre erro no batch input da pasta Documentos de
Importação.
Solução
ÿÿÿÿ ?Ajustado batch input para lançamento de mais de 17 adições.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
ÿÿÿÿ È----------------------------------------------------------------------------------------------------
Nota Número 12121 Data: 18/04/2012 Hora: 15:10:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12121
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11641 - 00001 - 8.0 - 00009 - FEITO DESENVOLVIMENTO PARA PREENCHIMENTO DA NOVA PASTA NF
----------------------------------------------------------------------------------------------------
LANÇAR MAIS DE 17 ITENS NA PASTA DOCUMENTOS DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - BATCH - INPUT - PASTA - DOCUMENTOS - IMPORTAÇÃO
/PWS/ZYCI_TRANSACAO_J1B1N - QUANTIDADE - ITENS - 17
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
'J_1BDYIMPORT_DI-XLOCDESEMB(01)' t_dados-locdesemb,
'J_1BDYIMPORT_DI-UFDESEMB(01)' t_dados-uf_desemb,
'J_1BDYIMPORT_DI-DDESEMB(01)' v_ddesemb,
'J_1BDYIMPORT_DI-CEXPORTADOR(01)' t_dados-exportador.
pERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
perform bdc_campo using :
'BDC_SUBSCR'
'SAPLJ1BB2 2902IMPORT_SUBADI'.
clear v_cont.
loop at t_itens.
* >> InÃcio da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
v_cont = sy-tabix.
* << Fim da exclusão
* >> InÃcio da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_cont = 17 .
PERFORM bdc_campo USING:
'BDC_OKCODE' '=P+'.
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING :
'BDC_SUBSCR'
'SAPLJ1BB2 2902IMPORT_SUBADI'.
CLEAR v_cont.
ENDIF.
ADD 1 TO v_cont.
* << Fim da inclusão
CLEAR v_campo.
CONCATENATE 'J_1BDYIMPORT_ADI-NDI(' v_cont ')' INTO v_campo.
PERFORM bdc_campo USING:
v_campo t_dados-nrdi.
CLEAR v_campo.
CONCATENATE 'J_1BDYIMPORT_ADI-NADICAO(' v_cont ')' INTO v_campo.
PERFORM bdc_campo USING:
v_campo t_itens-nadicao.
CLEAR v_campo.
CONCATENATE 'J_1BDYIMPORT_ADI-NSEQADIC(' v_cont ')' INTO v_campo
...