Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 19/06/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:04
Descrição da Nota: NOTA FISCAL ELETRONICA.
Sintoma
Erro no bacth input (comprimento do campo NFNUM)
Solução
Atualização da nota fiscal para atender a nota fiscal eletronica.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06807 Data: 19/06/2008 Hora: 11:11:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06807
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05047 - 00001 - 7.0 - 00003 - AO CRIAR NF QUANDO HÁ MAIS DE UM ITEM DÁ ERRO DE BATCH INPUT NA M
06573 - 00002 - 7.0 - 00005 - AJUSTES PARA ATENDER A GERAÇÃO DA NOTA FISCAL ELETRÔNICA VIA SAP
06651 - 00003 - 7.0 - 00005 - DUMP NO MOMENTO DE EMITIR A NOTA FISCAL, QUANDO AMBIENTE POSSUI N
06708 - 00005 - 7.0 - 00005 - DEFINIÇÃO DO CAMPO NFNUM
06798 - 00004 - 7.0 - 00006 - AJUSTE NOS PROGRAMAS DE EXPORTAÇÃO PARA ATENDER A NOTA FISCAL ELE
----------------------------------------------------------------------------------------------------
NOTA FISCAL ELETRONICA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL ELETRONICA - NFE - NF-E
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_J1B1N
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
OBSERVAÇÕES:
Caso a nota 6798 não esteja aplicada no ambiente:
Modificações efetuadas em DTEL /PWS/ZYCEL719
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL719
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (26 caracteres), idioma: PT
"CE - Número de Nota Fiscal"
Categoria de dados: Domínio
Domínio: NUM9
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (5 caracteres), idioma: PT
"Nº NF"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (14 caracteres), idioma: PT
"Nº Nota Fiscal"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (14 caracteres), idioma: PT
"Nº Nota Fiscal"
Comprimento máximo do título: 14
Título incluído (14 caracteres), idioma: PT
"Nº Nota Fiscal"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE005
Alterar o elemento de dados do campo NFNUM:
DE:
NFNUM J_1BNFNUMB NUMC 6
PARA:
NFNUM /PWS/ZYCEL719 NUMC 9
OBSERVAÇÕES - FIM
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
*---------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N
...
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
v_direito LIKE t_itens-taxlw1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
v_direito LIKE t_itens-taxlw1,
v_nfnum LIKE j_1bdydoc-nfnum.
* << Fim da inclusão
...
...
PERFORM bdc_campo USING:
'J_1BDYDOC-NFENUM' t_dados-nfnum,
'BDC_OKCODE' '=TAB5'.
ELSE.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
MOVE t_dados-nfnum TO v_nfnum.
* << Fim da inclusão
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'J_1BDYDOC-NFNUM' t_dados-nfnum,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'J_1BDYDOC-NFNUM' v_nfnum,
* << Fim da inclusão
'BDC_OKCODE' '=TAB5'.
ENDIF.
...
...
READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.
IF sy-subrc <> 0 AND v_refer NE '0004'.
PERFORM bdc_campo USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
'J_1BDYDOC-NFNUM' t_dados-nfnum,
* << Fim da exclusão
'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,
'J_1BDYLIN-NETPR' v_netpr,
'J_1BDYLIN-NETINS' v_netins,
'J_1BDYLIN-NETFRE' v_netfre,
'J_1BDYLIN-NETOTH' v_netoth,
'J_1BDYLIN-BWTAR' t_itens-bwtar,
'J_1BDYLIN-CFOP' t_itens-cfop,
'J_1BDYLIN-TAXLW1' t_itens-taxlw1,
'J_1BDYLIN-TAXLW2' t_itens-taxlw2,
'J_1BDYLIN-NBM' t_itens-nbm,
'J_1BDYLIN-MATORG' t_itens-matorg.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N
IF v_nfe = 'X'.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFNUM' t_dados-nfnum.
ELSE.
MOVE t_dados-nfnum TO v_nfnum.
PERFORM bdc_campo USING:
'J_1BDYDOC-NFNUM' v_nfnum.
ENDIF.
* << Fim da inclusão
IF NOT t_itens-leicofins IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW4' t_itens-leicofins.
ENDIF.
IF NOT t_itens-leipis IS INITIAL.
PERFORM bdc_campo USING:
'J_1BDYLIN-TAXLW5' t_itens-leipis.
ENDIF.
...