CE PLUS - Nota 012666
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 14/11/2012 00:00:00
Data/Hora Última Alteração: 04/04/2013 11:50:55
Descrição da Nota: PREENCHIMENTO DO NUMERO DO DOCUMENTO DE IMPORTAÇÃO COM 10 DIGITOS
Sintoma
Ao tentar preencher o numero da DI ocorre erro devido a nota fiscal aceitar apenas 10 digitos e o
numero da DI possuir 11 ou 12 digitos.
Solução
Ajustada função de batch input para utilizar os ultimos 10 digitos do numero da DI no preebchimento
do campo.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12666 Data: 14/11/2012 Hora: 09:26:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12666
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00137
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
PREENCHIMENTO DO NUMERO DO DOCUMENTO DE IMPORTAÇÃO COM 10 DIGITOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - BATCH INPUT - DOCUMENTO - IMPORTAÇÃO - 10 - DIGITOS
/PWS/SAPMZYCI016 - /PWS/ZYCI_TRANSACAO_J1B1N - NUMERO - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
DATA: v_nrdi TYPE /pws/zycee005-nrdi.
* << Fim da inclusão
LOOP AT t_dados.
CHECK t_dados-tcode = 'J1B1N'.
CLEAR v_cont.
IF ( t_dados-docdat = space ).
t_campos-mandt = t_dados-mandt.
t_campos-campo = 'J_1BDYDOC-DOCDAT'.
t_campos-descricao = text-001.
APPEND t_campos.
RAISE campo_em_branco.
ENDIF.
...
...
PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.
PERFORM bdc_campo USING :
'BDC_SUBSCR'
'SAPLJ1BB2 5350J_1BPARAREA',
'BDC_SUBSCR'
'SAPLJ1BB2 2900SUB1',
'BDC_SUBSCR'
'SAPLJ1BB2 2901IMPORT_SUBDI'.
WRITE: t_dados-dtreg TO v_data,
t_dados-dtdesemb TO v_ddesemb.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
CLEAR v_nrdi.
WRITE t_dados-nrdi TO v_nrdi RIGHT-JUSTIFIED.
CLEAR t_dados-nrdi.
t_dados-nrdi = v_nrdi+2.
* << Fim da inclusão
PERFORM bdc_campo USING:
'J_1BDYIMPORT_DI-NDI(01)' t_dados-nrdi,
'J_1BDYIMPORT_DI-DDI(01)' v_data,
'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'
...