CE PLUS - Nota 006563
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 14/05/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:31:41
Descrição da Nota: A FUNÇÃO DE TRANSMISSÃO UTILIZA CAMPOS QUE NÃO EXISTEM MAIS NO CE
Sintoma
A FUNÇÃO DE TRANSMISSÃO UTILIZA CAMPOS QUE NÃO EXISTEM MAIS NO CE
Solução
retirar esses campos eliminados da chamada da exit.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06563 Data: 14/05/2008 Hora: 14:11:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06563
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00047
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06783 - 00001 - 7.0 - 00006 - FUNÇÃO DE TRANSMISSÃO REFERE A CAMPO EM TABELA RETIRADO DO SISTEM
----------------------------------------------------------------------------------------------------
A FUNÇÃO DE TRANSMISSÃO UTILIZA CAMPOS QUE NÃO EXISTEM MAIS NO CE
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNÇÃO - TRANSMISSÃO - DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_READ_FILAD
*********Nota precedente foi gerada posteriormente
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_READ_FILAD
Retirados os seguintes campos dos parâmetros da função
FUNCTION /pws/zyci_read_filad .
*"
"*"Interface local:
" IMPORTING
" VALUE(I_TP_DOC) LIKE /PWS/ZYCIE285-TP_DOC
" VALUE(I_STASIS) LIKE /PWS/ZYCIE285-STASIS
*>>>> Inicio inclusão
" VALUE(CPF2) LIKE /PWS/ZYCET183-CPF
*>>>> Fim inclusão
" EXPORTING
" VALUE(UNAME) LIKE /PWS/ZYCEE184-UNAME
" VALUE(CPF) LIKE /PWS/ZYCEE184-CPF
*>>>> Inicio inclusão
" VALUE(SENHA) LIKE /PWS/ZYCEE098-SENHA
*>>>> Fim inclusão
" VALUE(CGC_NUMBER) LIKE /PWS/ZYCET183-NRSISCOMEX
" TABLES
" T_FILA STRUCTURE /PWS/ZYCIE285
"
...
...
DATA : v_branch LIKE t001w-j_1bbranch.
DATA : v_multiplas_filas TYPE /pws/zycet320-multiplas_filas,
v_cgc LIKE j_1bwfield-cgc_number.
SELECT SINGLE multiplas_filas
FROM /pws/zycet320
INTO v_multiplas_filas.
IF v_multiplas_filas EQ 'X'.
SELECT SINGLE * FROM /pws/zycit285
INTO t_fila
WHERE tp_doc EQ i_tp_doc
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
AND stasis EQ i_stasis.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
AND stasis EQ i_stasis
AND cpf EQ cpf2. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM /pws/zycit285
INTO t_fila
WHERE tp_doc EQ i_tp_doc
AND stasis EQ i_stasis. "#EC CI_NOFIRST
ENDIF.
IF sy-subrc EQ 0.
APPEND t_fila.
ENDIF.
IF NOT t_fila[] IS INITIAL.
...
...
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
IF sy-subrc <> 1.
cgc_number = v_cgc.
ENDIF.
MODIFY t_fila INDEX 1.
ENDIF.
CLEAR v_branch.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
SELECT SINGLE uname cpf INTO (uname, cpf)
FROM /pws/zycet184
WHERE uname = t_fila-uname.
SELECT SINGLE senha FROM /pws/zycet098 INTO senha
WHERE cpf = cpf.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_READ_FILAD
DELETE /pws/zycit288.
READ TABLE t_fila INDEX 1.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING t_fila TO /pws/zycit288.
ENDIF.
MOVE: sy-datum TO /pws/zycit288-data,
sy-uzeit TO /pws/zycit288-hora.
INSERT /pws/zycit288.
* << Fim da inclusão
ENDFUNCTION.