Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Variação Cambial
Data/Hora da Publicação: 23/10/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:50:05
Descrição da Nota: MENSAGEM INCORRETA NA VARIAÇÃO CAMBIAL
Sintoma
Estava exibindo as Mensagens incorretamente.
Solução
Correção das Mensagens na Variação Cambial.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05054 Data: 23/10/2007 Hora: 10:11:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05054
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01385 - 00001 - 6.0 - 00023 - PREENCHIMENTO DE MENSAGEM DE NOTAS FISCAIS COMPLEMENTARES
01586 - 00002 - 6.0 - 00024 - EMISSÃO DE NOTAS FISCAIS COMPLEMENTARES EM BATCH-INPUT OCULTO
----------------------------------------------------------------------------------------------------
MENSAGEM INCORRETA NA VARIAÇÃO CAMBIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM INCORRETA VARIAÇÃO CAMBIAL NOTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCEL433
FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C
REPS /PWS/ZYCER007
TABD /PWS/ZYCEE006
TABD /PWS/ZYCET006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL433
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL433
Classe de desenvolvimento: /PWS/ZYCE
Idioma original: PT
Descrição breve incluída: (26 caracteres), idioma: PT
"GL - Número da Nota Fiscal"
Categoria de dados: Domínio
Domínio: J_1BNFNUMB
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: 06
Título incluído (5 caracteres), idioma: PT
"Nº NF"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C
...
INTO v_cont
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.
IF t_message-docnum IS INITIAL.
PERFORM bdc_campo USING:
v_campo1 t_message-msg.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_C
CONCATENATE t_message-msg ' ' t_message-docnum INTO v_campo
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_C
IF sy-tabix NE '1'.
CONCATENATE t_message-msg ' ' t_message-nfnum INTO v_campo
* << Fim da inclusão
SEPARATED BY space.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_TRANSACAO_J1B1N_C
ELSE.
v_campo = t_message-msg.
ENDIF.
* << Fim da inclusão
PERFORM bdc_campo USING:
v_campo1 v_campo .
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER007
...
CLEAR: v_index2.
CLEAR it_zycee006.
REFRESH it_zycee006.
READ TABLE it_relat_aux2 WITH KEY nrseq = it_emitenf-nrseq
branch = it_emitenf-branch
docnum = it_emitenf-docnum.
IF sy-subrc EQ 0.
MOVE: it_zycee005-observat TO it_zycee006-msg,
it_emitenf-nrseq TO it_zycee006-nrseq,
it_emitenf-docnum TO it_zycee006-docnum,
* >> Início da inclusão: FORM FILL_DATA_J1B1
it_relat_aux2-nfnum TO it_zycee006-nfnum,
* << Fim da inclusão
it_emitenf-branch TO it_zycee006-branch.
ADD 1 TO v_index2.
it_zycee006-indice = v_index2.
APPEND it_zycee006.
MOVE: text-130 TO it_zycee006-msg,
it_emitenf-nrseq TO it_zycee006-nrseq,
it_emitenf-docnum TO it_zycee006-docnum,
* >> Início da inclusão: FORM FILL_DATA_J1B1
it_relat_aux2-nfnum TO it_zycee006-nfnum,
* << Fim da inclusão
it_emitenf-branch TO it_zycee006-branch.
ADD 1 TO v_index2.
it_zycee006-indice = v_index2.
APPEND it_zycee006.
ENDIF.
CLEAR it_itmnf.
REFRESH it_itmnf.
LOOP AT it_j1bnflin WHERE docnum = it_emitenf-docnum.
READ TABLE it_relat_aux2 WITH KEY nrseq = it_relat-nrseq
docnum = it_emitenf-docnum
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE006
MODIFICAR TABELA: /PWS/ZYCEE006
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
...
DOCNUM
INDICE
MSG
* >> Início da inclusão:
NFNUM /PWS/ZYCEL433
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET006
MODIFICAR TABELA: /PWS/ZYCET006
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
...
DOCNUM
* >> Início da inclusão:
NFNUM /PWS/ZYCEL433
* << Fim da inclusão