CE PLUS - Nota 006783
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 17/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:39:47
Descrição da Nota: FUNÇÃO DE TRANSMISSÃO REFERE A CAMPO EM TABELA RETIRADO DO SISTEMA.FUNÇÃ
Sintoma
Função de transmissão refere a campo em tabela retirado do sistema.Funçã
Solução
retirar chamada e seleção de campo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06783 Data: 17/06/2008 Hora: 11:09:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06783
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00815 - 00001 - 6.0 - 00022 - MELHORIAS NO ROBÔ DE TRANSMISSÃO DO DRAWBACK
02207 - 00002 - 6.0 - 00025 - TRANSMISSÃO DE SISCOMEX EM AMBIENTES UNICODE - DRAWBACK
----------------------------------------------------------------------------------------------------
FUNÇÃO DE TRANSMISSÃO REFERE A CAMPO EM TABELA RETIRADO DO SISTEMA.FUNÇÃ
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNÇÃO DE TRANSMISSÃO - CAMPO EM TABELA - DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_READ_FILAD
FUNC /PWS/ZYCI_RETURN_FILAD
REPS /PWS/MZYCI043I02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /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.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_READ_FILAD
SELECT SINGLE senha FROM /pws/zycet097 INTO senhalegado
WHERE usu_main = t_fila-usu_main.
* << Fim da exclusão
ENDIF.
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.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RETURN_FILAD
...
v_lines LIKE sy-tabix ,
v_data LIKE sy-datum ,
v_datalog(10) TYPE c ,
usu_main LIKE /pws/zycit285-usu_main ,
uname LIKE sy-uname ,
cpf LIKE /pws/zycet184-cpf ,
bukrs LIKE /pws/zycit285-bukrs ,
werks LIKE /pws/zycit285-werks .
DATA: wa_zycit285 LIKE /pws/zycit285.
DATA: wa_zycit288 LIKE /pws/zycit288.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
DATA: itab_zycet184 LIKE /pws/zycet184 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
DATA : BEGIN OF itab_zycit285 OCCURS 10 ,
nrseqd LIKE /pws/zycit285-nrseqd ,
uname LIKE /pws/zycit285-uname ,
usu_main LIKE /pws/zycit285-usu_main ,
END OF itab_zycit285 .
IF i_stasis = text-013.
SELECT SINGLE uname
FROM /pws/zycit285
INTO (uname)
WHERE nrseqd = i_nrseqd
AND tp_doc = i_tp_doc.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
SELECT SINGLE cpf
FROM /pws/zycet184
INTO (cpf)
WHERE uname = uname.
SELECT a~nrseqd a~uname
FROM /pws/zycit285 AS a
INNER JOIN /pws/zycet184 AS b
ON a~uname = b~uname
INTO TABLE itab_zycit285
WHERE b~cpf = cpf AND
a~stasis = 'A'.
* << Fim da exclusão
DELETE ADJACENT DUPLICATES FROM itab_zycit285 COMPARING uname.
LOOP AT itab_zycit285.
UPDATE /pws/zycit285
SET stasis = 'P'
log = i_log
WHERE uname = itab_zycit285-uname AND
stasis = 'A'. "#EC CI_NOFIELD
COMMIT WORK.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet184
SET flag = 'X'
WHERE cpf = cpf.
* << Fim da exclusão
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet098
SET flag = 'X'
WHERE cpf = cpf.
* << Fim da exclusão
COMMIT WORK.
IF sy-subrc NE 0.
return = '4'.
EXIT.
...
...
ELSEIF i_stasis = text-016.
SELECT SINGLE usu_main
FROM /pws/zycit285
INTO usu_main
WHERE nrseqd = i_nrseqd.
UPDATE /pws/zycit285
SET stasis = 'PL'
log = i_log
WHERE usu_main = usu_main AND
stasis = 'A'. "#EC CI_NOFIELD
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet184
SET flag = 'X'
WHERE usu_main = usu_main.
* << Fim da exclusão
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILAD
UPDATE /pws/zycet097 SET flag = 'X'
WHERE usu_main = usu_main.
* << Fim da exclusão
IF sy-subrc NE 0.
return = '4'.
EXIT.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI043I02
...
MOVE : itab_zycit285-uname TO itab_user-uname.
APPEND itab_user.
ENDIF.
CLEAR : itab_zycit285-mark,
itab_zycit285-uname,
itab_zycit285-usu_main,
itab_zycit285-stasis,
itab_zycit285-dtlog,
itab_zycit285-log.
MOVE : itab_zycet184-uname TO itab_zycit285-uname,
* >> Início da exclusão: MODULE USER_COMMAND_0300
itab_zycet184-usu_main TO itab_zycit285-usu_main,
* << Fim da exclusão
'A' TO itab_zycit285-stasis.
ENDIF.
MODIFY itab_zycit285 INDEX v_index.
ENDLOOP.
CLEAR : v_index, v_index1.
SORT itab_zycit285 BY nrseqd.
MESSAGE i016 WITH text-021.
LEAVE TO SCREEN 0.
ELSE.
MESSAGE i061 WITH text-018 /pws/zycee184-uname text-019.
...