CE PLUS - Nota 006566
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Siscomex Usuário
Data/Hora da Publicação: 15/05/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:48:25
Descrição da Nota: REMOVER USUARIO MAINFRAME DO SISCOMEX
Sintoma
Desenvolvimento Adicional
Solução
Desenvolvimento Adicional
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06566 Data: 15/05/2008 Hora: 11:46:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06566
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00047
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06563 - 00001 - 7.0 - 00005 - A FUNÇÃO DE TRANSMISSÃO UTILIZA CAMPOS QUE NÃO EXISTEM MAIS NO CE
----------------------------------------------------------------------------------------------------
REMOVER USUARIO MAINFRAME DO SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMOVER USUARIO MAINFRAME SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCE201
DYNP /PWS/SAPMZYCE201 0400
DYNP /PWS/SAPMZYCE201 0500
DYNP /PWS/SAPMZYCE201 0900
DYNP /PWS/SAPMZYCE201 0902
DYNP /PWS/SAPMZYCE201 1000
FUNC /PWS/ZYCE_READ_FILA
FUNC /PWS/ZYCE_RETURN_FILA
FUNC /PWS/ZYCE_SISCOMEX_ENCRIPT
INDX /PWS/ZYCET184 002
REPS /PWS/MZYCE009SIS
REPS /PWS/MZYCE022F01
REPS /PWS/MZYCE104F01
REPS /PWS/MZYCE105F01
REPS /PWS/MZYCE105TOP
REPS /PWS/MZYCE107F01
REPS /PWS/MZYCE109F01
REPS /PWS/MZYCE109TOP
REPS /PWS/MZYCE200F01
REPS /PWS/MZYCE200I01
REPS /PWS/MZYCE200TOP
REPS /PWS/MZYCE201F01
REPS /PWS/MZYCE201I01
REPS /PWS/MZYCE201O01
REPS /PWS/MZYCE201TOP
REPS /PWS/SAPMZYCE201
REPS /PWS/ZYCER171
SHLP /PWS/ZYCEA023
TABD /PWS/ZYCEE077
TABD /PWS/ZYCEE183
TABD /PWS/ZYCEE184
TABD /PWS/ZYCET077
TABD /PWS/ZYCET183
TABD /PWS/ZYCET184
TABL /PWS/ZYCEE097
TABL /PWS/ZYCET097
TABU TMENU01
TRAN /PWS/ZYCE201_A
TRAN /PWS/ZYCE201_M
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE201 0400
Excluir a Tela '0400'
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE201 0500
Excluir a Tela '0500'
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE201 0900
MODIFICAR CARACTERÍSTICAS DA TELA 0900
Altura atual (linhas) 8
MODIFICAR TEXTO "%#AUTOTEXT001"
Altura 1
MODIFICAR FRAME "%#AUTOTEXT004"
Altura 8
MODIFICAR TEXTO "%#AUTOTEXT005"
Altura 1
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE184-CPF"
Altura 1
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE184-UNAME"
Altura 1
EXCLUIR CAMPO TEXTO "/PWS/ZYCEE184-USU_MAIN"
EXCLUIR TEXTO "/PWS/ZYCEE184-USU_MAIN"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE201 0902
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE184-CPF"
Linha 7
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCEE184-CPF"
Linha 7
Coluna 5
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE184-UNAME"
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCEE184-UNAME"
Coluna 5
EXCLUIR CAMPO TEXTO "/PWS/ZYCEE184-USU_MAIN"
EXCLUIR TEXTO "/PWS/ZYCEE184-USU_MAIN"
MODIFICAR FRAME "BOX2"
Altura 8
Comprimento Visível 42
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE201 1000
MODIFICAR TEXTO "%#AUTOTEXT001"
Altura 0
Linha 7
MODIFICAR FRAME "%#AUTOTEXT004"
Altura 8
MODIFICAR TEXTO "%#AUTOTEXT005"
Altura 0
EXCLUIR CAMPO TEXTO "/PWS/ZYCEE097-USU_MAIN"
EXCLUIR TEXTO "/PWS/ZYCEE097-USU_MAIN"
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE098-CPF"
Altura 0
MODIFICAR CAMPO TEXTO "/PWS/ZYCEE184-UNAME"
Altura 0
Linha 7
EXCLUIR BOTÃO "BTN_DEL_MAIN"
MODIFICAR BOTÃO "BTN_DEL_R3"
Linha 7
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_READ_FILA
Parâmetros de Exportação:
Nome parâmetro Atrib.tipo Tipo referência
UNAME LIKE /PWS/ZYCEE184-UNAME
* >> Início da exclusão: FUNCTION /PWS/ZYCE_READ_FILA
USU_MAIN LIKE /PWS/ZYCEE184-USU_MAIN
* << Fim da exclusão
CPF LIKE /PWS/ZYCEE184-CPF
SENHA LIKE /PWS/ZYCEE098-SENHA
CGC_NUMBER LIKE /PWS/ZYCET183-NRSISCOMEX
* >> Início da exclusão: FUNCTION /PWS/ZYCE_READ_FILA
SENHALEGADO LIKE /PWS/ZYCEE097-SENHA
* << Fim da exclusão
...
EXCEPTIONS
branch_not_found = 1.
IF sy-subrc <> 1.
cgc_number = v_cgc.
ENDIF.
SELECT SINGLE uname
cpf "#EC *
INTO (uname, cpf)
FROM /pws/zycet184
WHERE uname = t_fila-uname.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_READ_FILA
SELECT SINGLE usu_main "#EC *
INTO usu_main
FROM /pws/zycet184
WHERE uname = t_fila-uname.
* << Fim da exclusão
SELECT SINGLE senha
FROM /pws/zycet098
INTO senha
WHERE cpf = cpf.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_READ_FILA
SELECT SINGLE senha
FROM /pws/zycet097
INTO senhalegado
WHERE usu_main = t_fila-usu_main.
* << Fim da exclusão
ENDIF.
IF v_multiplas_filas EQ 'X'.
DELETE FROM /pws/zycet141 WHERE cpf EQ cpf2.
ELSE.
DELETE /pws/zycet141.
ENDIF.
COMMIT WORK.
READ TABLE t_fila INDEX 1.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING t_fila TO /pws/zycet141.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_RETURN_FILA
FUNCTION /pws/zyce_return_fila.
TABLES: /pws/zycet099,
/pws/zycet192,
/pws/zycet193.
DATA: v_data LIKE sy-datum,
v_dtlog(10) TYPE c,
tca LIKE /pws/zycet183-tca,
* >> Início da exclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
usu_main LIKE /pws/zycet183-usu_main,
* << Fim da exclusão
uname LIKE sy-uname,
cpf LIKE /pws/zycet184-cpf,
bukrs LIKE /pws/zycet183-bukrs,
werks LIKE /pws/zycet096-werks,
nr_emp LIKE /pws/zycet096-nrseq.
DATA: BEGIN OF itab_zycet077 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet077.
DATA: END OF itab_zycet077.
DATA: BEGIN OF itab_zycet183 OCCURS 10,
nrseq LIKE /pws/zycet183-nrseq,
uname LIKE /pws/zycet183-uname,
* >> Início da exclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
usu_main LIKE /pws/zycet183-usu_main,
* << Fim da exclusão
END OF itab_zycet183.
DATA: wa_zycet141 LIKE /pws/zycet141.
IF stasis = 'P'.
SELECT SINGLE uname
FROM /pws/zycet183
INTO (uname)
WHERE nrseq = nrseq
AND tp_doc = tp_doc.
SELECT SINGLE cpf "#EC *
FROM /pws/zycet184
...
...
AND stasis = 'A'
OR stasis = 'PA'.
COMMIT WORK.
ENDLOOP.
UPDATE /pws/zycet184 SET flag = 'X'
WHERE cpf = cpf.
COMMIT WORK.
UPDATE /pws/zycet098 SET flag = 'X'
WHERE cpf = cpf.
COMMIT WORK.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_RETURN_FILA
IF sy-subrc NE 0.
return = '4'.
CALL FUNCTION 'DEQUEUE_/PWS/EZYCET183'
EXPORTING
nrseq = nrseq
tp_doc = tp_doc
EXCEPTIONS
OTHERS = 0.
EXIT.
ENDIF.
ELSEIF stasis = 'PL'.
SELECT SINGLE usu_main
FROM /pws/zycet183
INTO usu_main
WHERE nrseq = nrseq
AND tp_doc = tp_doc.
UPDATE /pws/zycet183 SET stasis = 'PL'
log = log
WHERE usu_main = usu_main
AND stasis = 'A'.
UPDATE /pws/zycet077 SET stasis = 'PL'
log = log
WHERE usu_main = usu_main
AND stasis = 'A'.
UPDATE /pws/zycet184 SET flag = 'X'
WHERE usu_main = usu_main.
COMMIT WORK.
UPDATE /pws/zycet097 SET flag = 'X'
WHERE usu_main = usu_main.
* << Fim da exclusão
IF sy-subrc NE 0.
return = '4'.
CALL FUNCTION 'DEQUEUE_/PWS/EZYCET183'
EXPORTING
nrseq = nrseq
tp_doc = tp_doc
EXCEPTIONS
OTHERS = 0.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_SISCOMEX_ENCRIPT
FUNCTION /pws/zyce_siscomex_encript.
DATA: tb_car LIKE /pws/zycet057 OCCURS 10 WITH HEADER LINE.
DATA: vconv TYPE i,
vconvex(3) TYPE x,
vres(50),
* >> Início da exclusão: FUNCTION /PWS/ZYCE_SISCOMEX_ENCRIPT
v_pres LIKE /pws/zycet097-senha.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_SISCOMEX_ENCRIPT
v_pres LIKE /pws/zycet098-senha.
* << Fim da inclusão
DATA: BEGIN OF vconvext,
vzeros(3),
vvalor(3),
END OF vconvext.
DATA: BEGIN OF vpass,
c1,
c2,
c3,
c4,
c5,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em INDX /PWS/ZYCET184 002
Excluir índice '002' da Tabela /PWS/ZYCET184
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE009SIS
TABLES: /pws/zycee183.
TYPES: BEGIN OF ty_zycet077.
INCLUDE STRUCTURE /pws/zycet077.
TYPES: END OF ty_zycet077.
* >> Início da exclusão:
TYPES: BEGIN OF ty_zycet097,
usu_main TYPE /pws/zycet097-usu_main,
flag TYPE /pws/zycet097-flag,
END OF ty_zycet097.
* << Fim da exclusão
TYPES: BEGIN OF ty_zycet098,
cpf TYPE /pws/zycet098-cpf,
flag TYPE /pws/zycet098-flag,
END OF ty_zycet098.
TYPES: BEGIN OF ty_zycet120,
nrseqsd TYPE /pws/zycet120-nrseqsd,
END OF ty_zycet120.
TYPES: BEGIN OF ty_zycet183.
INCLUDE STRUCTURE /pws/zycet183.
TYPES: END OF ty_zycet183.
TYPES: BEGIN OF ty_zycet184.
INCLUDE STRUCTURE /pws/zycet184.
TYPES: END OF ty_zycet184.
DATA: wa_zycet120 TYPE ty_zycet120.
DATA: itab_zycet077 TYPE STANDARD TABLE OF ty_zycet077
* >> Início da exclusão:
WITH HEADER LINE,
itab_zycet097 TYPE STANDARD TABLE OF ty_zycet097
* << Fim da exclusão
WITH HEADER LINE,
itab_zycet098 TYPE STANDARD TABLE OF ty_zycet098
WITH HEADER LINE,
itab_zycet183 TYPE STANDARD TABLE OF ty_zycet183
WITH HEADER LINE,
itab_zycet184 TYPE STANDARD TABLE OF ty_zycet184
WITH HEADER LINE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE022F01
...
c_uname = sy-uname.
SELECT *
FROM /pws/zycet184
UP TO 1 ROWS
INTO wa_zycet184
WHERE uname EQ c_uname.
ENDSELECT.
IF sy-subrc = 0.
PERFORM busca_nrseq_siscomex.
IF wa_zycet184-flag EQ 'X'.
* >> Início da exclusão: FORM PREENCHE_FILA
PERFORM verifica_erro_senhas CHANGING v_erro_senha_main
v_erro_senha_sisc.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_FILA
PERFORM verifica_erro_senhas CHANGING v_erro_senha_sisc.
* << Fim da inclusão
IF v_erro_senha_sisc EQ 'X'.
MOVE: text-037 TO itab_zycet183-stasis.
MESSAGE i016 WITH text-053 text-039.
* >> Início da exclusão: FORM PREENCHE_FILA
ELSEIF v_erro_senha_main NE space.
MOVE: text-052 TO itab_zycet183-stasis.
MESSAGE i016 WITH text-054 text-039.
* << Fim da exclusão
ENDIF.
ELSE.
...
...
ENDIF.
MOVE :
v_countfi TO itab_zycet183-nrseq,
text-036 TO itab_zycet183-tp_doc,
/pws/zycee208-nrseqdse TO itab_zycet183-nrchave,
/pws/zycee208-nrseq TO itab_zycet183-nremb,
/pws/zycee208-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
wa_zycet184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
v_modo_pri TO itab_zycet183-prioridade,
wa_zycet184-cpf TO itab_zycet183-cpf.
IF itab_zycet183-nremb IS INITIAL.
MOVE '.' TO itab_zycet183-nremb.
ENDIF.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
ELSE.
MOVE :
v_countfi TO itab_zycet183-nrseq,
text-036 TO itab_zycet183-tp_doc,
/pws/zycee208-nrseqdse TO itab_zycet183-nrchave,
/pws/zycee208-nrseq TO itab_zycet183-nremb,
/pws/zycee208-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
wa_zycet184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
text-028 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
wa_zycet184-cpf TO itab_zycet183-cpf.
IF itab_zycet183-nremb IS INITIAL.
MOVE '.' TO itab_zycet183-nremb.
ENDIF.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
MESSAGE i016 WITH text-026.
ENDIF.
...
...
v_cnpj1 LIKE j_1bwfield-cgc_number.
CLEAR : v_cnpj1, v_cnpj.
v_cnpj1 = /pws/zycee208-cnpj.
CALL FUNCTION 'CONVERSION_EXIT_CGCBR_OUTPUT'
EXPORTING
input = v_cnpj1
IMPORTING
output = v_cnpj.
/pws/zycee208-cnpj = v_cnpj.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHAS
FORM verifica_erro_senhas CHANGING p_erro_senha_main
p_erro_senha_sisc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_SENHAS
FORM verifica_erro_senhas CHANGING p_erro_senha_sisc.
* << Fim da inclusão
SELECT SINGLE flag FROM /pws/zycet098 INTO p_erro_senha_sisc
WHERE cpf EQ wa_zycet184-cpf.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHAS
SELECT SINGLE flag FROM /pws/zycet097 INTO p_erro_senha_main
WHERE usu_main EQ wa_zycet184-usu_main.
* << Fim da exclusão
ENDFORM.
FORM check_di_dsi.
DATA: v_len TYPE i.
IF /pws/zycee208-tipo IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE104F01
...
FORM preenche_fila.
CLEAR: v_stasis, v_filial.
PERFORM param_envio.
MOVE: v_countfi TO itab_zycet183-nrseq,
v_tpdoc TO itab_zycet183-tp_doc,
/pws/zycee112-nrseqrv TO itab_zycet183-nrchave,
/pws/zycee112-bukrs TO itab_zycet183-bukrs,
v_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_user-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
v_stasis TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
space TO itab_zycet183-tca,
v_nrsisco TO itab_zycet183-nrsiscomex,
itab_user-cpf TO itab_zycet183-cpf.
APPEND itab_zycet183.
PERFORM check_fila.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
COMMIT WORK.
CASE v_stasis.
...
...
SELECT SINGLE j_1bbranch
FROM t001w
INTO (v_filial)
WHERE werks = /pws/zycee112-werks.
ELSE.
v_filial = wa_zycet145-filial.
ENDIF.
PERFORM busca_sequencial.
READ TABLE itab_user INDEX 1.
IF NOT itab_user-flag IS INITIAL.
* >> Início da exclusão: FORM PARAM_ENVIO
SELECT COUNT(*) FROM /pws/zycet097
WHERE usu_main = itab_user-usu_main
AND flag NE space.
IF sy-subrc = 0.
v_stasis = text-070.
ELSE.
* << Fim da exclusão
SELECT SINGLE *
FROM /pws/zycet098
WHERE cpf EQ itab_user-cpf
AND flag NE space.
IF sy-subrc = 0.
v_stasis = text-069.
* >> Início da exclusão: FORM PARAM_ENVIO
ENDIF.
* << Fim da exclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE105F01
...
PERFORM param_envio.
IF NOT v_modo_en EQ text-003.
MOVE: v_countfi TO itab_zycet183-nrseq,
v_tpdoc TO itab_zycet183-tp_doc,
/pws/zycee116-nrseqre TO itab_zycet183-nrchave,
/pws/zycee001-nrseq TO itab_zycet183-nremb,
/pws/zycee116-bukrs TO itab_zycet183-bukrs,
v_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_user-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
v_stasis TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
space TO itab_zycet183-tca,
v_nrsisco TO itab_zycet183-nrsiscomex,
itab_user-cpf TO itab_zycet183-cpf.
APPEND itab_zycet183.
IF v_modo_en = space.
IF /pws/zycee116-agrupado = 'N'
OR /pws/zycee116-agrupado IS INITIAL.
LOOP AT itab_zycet118.
...
...
WHERE werks = /pws/zycee116-werks.
ELSE.
v_filial = wa_zycet145-filial.
ENDIF.
ELSE.
v_filial = /pws/zycee116-j_1bbranch.
ENDIF.
PERFORM busca_sequencial.
READ TABLE itab_user INDEX 1.
IF NOT itab_user-flag IS INITIAL.
* >> Início da exclusão: FORM PARAM_ENVIO
SELECT SINGLE flag FROM /pws/zycet097
INTO /pws/zycet097-flag
WHERE usu_main = itab_user-usu_main
AND flag NE space.
IF sy-subrc = 0.
v_stasis = text-042.
ELSE.
* << Fim da exclusão
SELECT SINGLE flag
FROM /pws/zycet098
INTO /pws/zycet098-flag
WHERE cpf = itab_user-cpf
AND flag NE space.
IF sy-subrc = 0.
v_stasis = text-041.
* >> Início da exclusão: FORM PARAM_ENVIO
ENDIF.
* << Fim da exclusão
ENDIF.
ELSE.
CLEAR v_log.
SELECT SINGLE log
FROM /pws/zycet183
INTO (v_log)
WHERE uname EQ sy-uname
AND stasis EQ 'B'. "#EC *
IF sy-subrc EQ 0.
v_stasis = text-137.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE105TOP
...
tc_grup TYPE TABLEVIEW USING SCREEN '0104',
tc_fabri TYPE TABLEVIEW USING SCREEN '0113',
tc_log TYPE TABLEVIEW USING SCREEN '0114',
tc_zycet304 TYPE TABLEVIEW USING SCREEN '0118',
tc_ncm TYPE TABLEVIEW USING SCREEN '0116'.
DATA: editmens TYPE REF TO cl_gui_textedit ,
container TYPE REF TO cl_gui_custom_container.
DATA: e_subrc LIKE sy-subrc.
TABLES:
/pws/zycet001,
* >> Início da exclusão:
/pws/zycet097, /pws/zycet098, "#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycet098, "#EC NEEDED
* << Fim da inclusão
/pws/zycet116, "#EC NEEDED
/pws/zycev117,
/pws/zycet118, /pws/zycee118,
/pws/zycee092,
/pws/zycee066,
/pws/zycet208, "#EC NEEDED
/pws/zycee078,
/pws/zycee119,
/pws/zycet120,
/pws/zycee134,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE107F01
...
MOVE text-042 TO itab_zycet183-tp_doc.
ENDIF.
MOVE :
v_countfi TO itab_zycet183-nrseq,
/pws/zycee120-nrseqsd TO itab_zycet183-nrchave,
/pws/zycee120-nrseq TO itab_zycet183-nremb,
/pws/zycee120-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_zycet184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
text-029 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_zycet184-cpf TO itab_zycet183-cpf.
APPEND itab_zycet183.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
MESSAGE i016 WITH text-043 text-044.
ELSE.
IF verif_doc EQ text-080.
MOVE:
text-080 TO itab_zycet183-tp_doc,
...
...
MOVE text-042 TO itab_zycet183-tp_doc.
ENDIF.
MOVE :
v_countfi TO itab_zycet183-nrseq,
/pws/zycee120-nrseqsd TO itab_zycet183-nrchave,
/pws/zycee120-nrseq TO itab_zycet183-nremb,
/pws/zycee120-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datlo TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_zycet184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
text-040 TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_zycet184-cpf TO itab_zycet183-cpf.
SELECT log
FROM /pws/zycet183
UP TO 1 ROWS
INTO (v_log)
WHERE uname EQ sy-uname
AND stasis EQ 'B'. "#EC CI_NOFIELD
ENDSELECT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE109F01
...
text-044.
ENDIF.
ELSE.
PERFORM checa_status_doc.
ENDIF.
ELSE.
MESSAGE i016 WITH text-042.
ENDIF.
ENDFORM.
FORM usuario_siscomex.
* >> Início da exclusão: FORM USUARIO_SISCOMEX
SELECT a~uname a~usu_main a~cpf
* << Fim da exclusão
* >> Início da inclusão: FORM USUARIO_SISCOMEX
SELECT a~uname a~cpf
* << Fim da inclusão
b~flag
* >> Início da exclusão: FORM USUARIO_SISCOMEX
c~flag
* << Fim da exclusão
FROM /pws/zycet184 AS a
INNER JOIN /pws/zycet098 AS b
ON b~cpf = a~cpf
* >> Início da exclusão: FORM USUARIO_SISCOMEX
INNER JOIN /pws/zycet097 AS c
ON c~usu_main = a~usu_main
* << Fim da exclusão
INTO TABLE itab_usuario
WHERE a~uname EQ sy-uname.
IF itab_usuario[] IS INITIAL.
* >> Início da exclusão: FORM USUARIO_SISCOMEX
SELECT a~uname a~usu_main a~cpf
b~flag
* << Fim da exclusão
* >> Início da inclusão: FORM USUARIO_SISCOMEX
SELECT a~uname a~cpf b~flag
* << Fim da inclusão
FROM /pws/zycet184 AS a
INNER JOIN /pws/zycet098 AS b
ON a~cpf = b~cpf
INTO TABLE itab_usuario
WHERE a~uname = sy-uname.
ENDIF.
READ TABLE itab_usuario INDEX 1.
IF sy-subrc = 0.
CASE 'X'.
WHEN itab_usuario-flagcpf.
stasis = text-057.
* >> Início da exclusão: FORM USUARIO_SISCOMEX
WHEN itab_usuario-flagmain.
stasis = text-058.
* << Fim da exclusão
WHEN OTHERS.
stasis = text-049.
ENDCASE.
ENDIF.
ENDFORM.
FORM cham_prio.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-054
text_button_1 = text-055
...
...
WHERE werks = /pws/zycee235-werks.
PERFORM busca_sequencial.
MOVE :
v_countfi TO itab_zycet183-nrseq,
tp_doc TO itab_zycet183-tp_doc,
/pws/zycee235-nrseqrc TO itab_zycet183-nrchave,
'.' TO itab_zycet183-nremb,
/pws/zycee235-bukrs TO itab_zycet183-bukrs,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_usuario-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
stasis TO itab_zycet183-stasis,
v_modo_pri TO itab_zycet183-prioridade,
itab_usuario-cpf TO itab_zycet183-cpf.
APPEND itab_zycet183.
LOOP AT itab_zycet236.
MOVE :
v_countfi TO itab_zycet077-nrseq,
tp_doc TO itab_zycet077-tp_doc,
itab_zycet236-codnrseq TO itab_zycet077-codnrseq,
* >> Início da exclusão: FORM PREENCHE_FILA
itab_usuario-usu_main TO itab_zycet077-usu_main,
* << Fim da exclusão
sy-uname TO itab_zycet077-uname,
stasis TO itab_zycet077-stasis.
APPEND itab_zycet077.
ENDLOOP.
PERFORM check_seq_fila.
MODIFY /pws/zycet183 FROM TABLE itab_zycet183.
COMMIT WORK.
MODIFY /pws/zycet077 FROM TABLE itab_zycet077.
COMMIT WORK.
CASE stasis.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE109TOP
...
INCLUDE STRUCTURE /pws/zycet242.
DATA: END OF itab_zycet242.
DATA : BEGIN OF itab_zycet183 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet183.
DATA : END OF itab_zycet183.
DATA : BEGIN OF itab_zycet183_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycet183.
DATA : END OF itab_zycet183_aux.
DATA : BEGIN OF itab_usuario OCCURS 1,
uname LIKE /pws/zycet184-uname,
* >> Início da exclusão:
usu_main LIKE /pws/zycet184-usu_main,
* << Fim da exclusão
cpf LIKE /pws/zycet184-cpf,
flagcpf LIKE /pws/zycet184-flag,
* >> Início da exclusão:
flagmain LIKE /pws/zycet184-flag,
* << Fim da exclusão
END OF itab_usuario.
DATA : BEGIN OF itab_zycet077 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet077.
DATA : END OF itab_zycet077.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE200F01
...
DO 9 TIMES.
REPLACE ' ' WITH '0' INTO v_seqcon.
ENDDO.
c_uname = sy-uname.
SELECT *
FROM /pws/zycet184 UP TO 1 ROWS
INTO itab_t184
WHERE uname EQ c_uname.
ENDSELECT.
IF NOT itab_t184[] IS INITIAL.
* >> Início da exclusão: FORM ENVIA_FILA
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
FOR ALL ENTRIES IN itab_t184
WHERE usu_main EQ itab_t184-usu_main.
* << Fim da exclusão
SELECT * FROM /pws/zycet098 INTO TABLE itab_zycet098
FOR ALL ENTRIES IN itab_t184
WHERE cpf = itab_t184-cpf.
READ TABLE itab_t184 INDEX 1.
IF itab_t184-flag EQ 'X'.
READ TABLE itab_zycet098 WITH KEY cpf = itab_t184-cpf
flag = 'X'.
IF sy-subrc = 0.
MOVE :
v_seqcon TO itab_zycet183-nrseq,
v_tp_doc TO itab_zycet183-tp_doc,
/pws/zycee096-nrseq TO itab_zycet183-nrchave,
'.' TO itab_zycet183-nremb,
/pws/zycee096-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM ENVIA_FILA
itab_t184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
text-006 TO itab_zycet183-stasis,
itab_t184-cpf TO itab_zycet183-cpf.
MESSAGE w016 WITH text-d22.
* >> Início da exclusão: FORM ENVIA_FILA
MESSAGE s016 WITH text-d21.
ELSE.
READ TABLE itab_zycet097 WITH KEY usu_main = itab_t184-usu_main
flag = 'X'.
IF sy-subrc = 0.
MOVE :
v_seqcon TO itab_zycet183-nrseq,
v_tp_doc TO itab_zycet183-tp_doc,
/pws/zycee096-nrseq TO itab_zycet183-nrchave,
'.' TO itab_zycet183-nremb,
/pws/zycee096-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
itab_t184-usu_main TO itab_zycet183-usu_main,
text-016 TO itab_zycet183-stasis,
itab_t184-cpf TO itab_zycet183-cpf.
MESSAGE w016 WITH text-d20.
* << Fim da exclusão
MESSAGE s016 WITH text-d21.
* >> Início da exclusão: FORM ENVIA_FILA
ENDIF.
* << Fim da exclusão
ENDIF.
ELSE.
MOVE :
v_seqcon TO itab_zycet183-nrseq,
v_tp_doc TO itab_zycet183-tp_doc,
/pws/zycee096-nrseq TO itab_zycet183-nrchave,
'.' TO itab_zycet183-nremb,
/pws/zycee096-bukrs TO itab_zycet183-bukrs,
c_filial TO itab_zycet183-branch,
sy-datum TO itab_zycet183-dtenvf,
sy-uname TO itab_zycet183-uname,
* >> Início da exclusão: FORM ENVIA_FILA
itab_t184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
text-003 TO itab_zycet183-stasis,
itab_t184-cpf TO itab_zycet183-cpf.
ENDIF.
IF NOT /pws/zycee096-nrre IS INITIAL.
MOVE /pws/zycee096-nrre TO itab_zycet183-nrsiscomex.
DATA : v_totanexo TYPE i,
v_anexo TYPE i.
IF NOT /pws/zycee096-anexode IS INITIAL
AND NOT /pws/zycee096-anexoate IS INITIAL.
v_totanexo = /pws/zycee096-anexoate - /pws/zycee096-anexode .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE200I01
...
icon_n = text-012.
ENDIF.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_n
info = text-013
add_stdinf = 'X'
IMPORTING
result = itab_zycet183-icon
EXCEPTIONS
* >> Início da exclusão: MODULE ATUALIZA
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA
icon_not_found = 0
outputfield_too_short = 0
OTHERS = 0.
* << Fim da inclusão
MODIFY itab_zycet183 INDEX tbcontrol-current_line.
* >> Início da exclusão: MODULE ATUALIZA
ENDIF.
* << Fim da exclusão
ENDMODULE.
MODULE user_command_0200 INPUT.
CASE okcode.
WHEN 'PICK'.
CLEAR :
v_texto, v_texto1.
...
...
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_n
info = text-013
add_stdinf = 'X'
IMPORTING
result = itab_zycet077_aux-icon
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
* >> Início da exclusão: MODULE ATUALIZA_077
OTHERS = 3. "#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_077
OTHERS = 3. "#EC *
* << Fim da inclusão
MODIFY itab_zycet077_aux INDEX tbcontrol1-current_line.
ENDMODULE.
MODULE user_command_0101 INPUT.
CASE okcode.
WHEN 'P-'.
tbcontrol1-top_line = tbcontrol1-top_line - 10.
CLEAR okcode.
WHEN 'P--'.
tbcontrol1-top_line = tbcontrol1-top_line - tbcontrol1-lines.
CLEAR okcode.
...
...
v_index = sy-tabix.
IF itab_zycet183-mark = 'X'.
READ TABLE itab_user
WITH KEY uname = itab_zycet183-uname.
IF sy-subrc = 4.
MOVE : itab_zycet183-uname TO itab_user-uname.
APPEND itab_user.
ENDIF.
CLEAR: itab_zycet183-mark,
itab_zycet183-uname,
* >> Início da exclusão: MODULE USER_COMMAND_0300
itab_zycet183-usu_main,
* << Fim da exclusão
itab_zycet183-stasis,
itab_zycet183-dtlog,
itab_zycet183-log,
itab_zycet183-cpf.
MOVE:
itab_zycet184-uname TO itab_zycet183-uname,
* >> Início da exclusão: MODULE USER_COMMAND_0300
itab_zycet184-usu_main TO itab_zycet183-usu_main,
* << Fim da exclusão
itab_zycet184-cpf TO itab_zycet183-cpf,
'A' TO itab_zycet183-stasis.
LOOP AT itab_zycet077 WHERE
nrseq = itab_zycet183-nrseq.
v_index1 = sy-tabix.
CLEAR : itab_zycet077-uname,
* >> Início da exclusão: MODULE USER_COMMAND_0300
itab_zycet077-usu_main,
* << Fim da exclusão
itab_zycet077-stasis,
itab_zycet077-log,
itab_zycet077-dtlog.
MOVE:
itab_zycet184-uname TO itab_zycet077-uname,
* >> Início da exclusão: MODULE USER_COMMAND_0300
itab_zycet184-usu_main TO itab_zycet077-usu_main,
* << Fim da exclusão
'A' TO itab_zycet077-stasis.
MODIFY itab_zycet077 INDEX v_index1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE200TOP
...
END OF itab_user.
DATA : BEGIN OF itab_zycet096 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet096.
DATA : END OF itab_zycet096.
DATA : BEGIN OF it_modo_pri OCCURS 10,
modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr,
END OF it_modo_pri.
DATA : it_modo_prin LIKE spopli OCCURS 3 WITH HEADER LINE,
v_modo_pri(1) TYPE c.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet097 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet097.
DATA : END OF itab_zycet097.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet098 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet098.
DATA : END OF itab_zycet098.
DATA: BEGIN OF itab_zycet208 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet208.
DATA: END OF itab_zycet208.
DATA: BEGIN OF itab_cpf OCCURS 0,
nremb LIKE /pws/zycee183-nremb,
cpf LIKE /pws/zycet183-cpf,
data LIKE /pws/zycet141-data,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE201F01
* >> Início da exclusão: FORM SALVA_USU_MAINFRAME
FORM salva_usu_mainframe.
SELECT *
FROM /pws/zycet057
INTO TABLE itab_zycet057. "#EC CI_NOWHERE
IF itab_zycet057[] IS INITIAL.
CALL TRANSACTION '/PWS/ZYCER053'.
ENDIF.
IF NOT v_usu IS INITIAL.
MOVE v_usu TO /pws/zycee097-usu_main.
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
WHERE usu_main = /pws/zycee097-usu_main.
IF sy-subrc = 0.
MESSAGE w001 WITH text-011.
CLEAR: v_senha3, v_senha4, v_usu.
ELSE.
SET LOCALE LANGUAGE sy-langu.
TRANSLATE v_senha3 TO UPPER CASE.
TRANSLATE v_senha4 TO UPPER CASE.
IF NOT v_senha3 IS INITIAL.
IF v_senha3 EQ v_senha4.
CALL FUNCTION '/PWS/ZYCE_SISCOMEX_ENCRIPT'
EXPORTING
pass = v_senha3
IMPORTING
pres = /pws/zycee097-senha.
MODIFY /pws/zycet097 FROM /pws/zycee097.
IF sy-subrc = 0.
MESSAGE i001 WITH text-001.
CLEAR: v_senha3, v_senha4, v_usu.
ENDIF.
ELSE.
MESSAGE i001 WITH text-002.
CLEAR: v_senha3, v_senha4.
ENDIF.
ELSE.
MESSAGE i001 WITH text-013.
CLEAR: v_senha3, v_senha4.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_usuario.
IF NOT /pws/zycee097-usu_main IS INITIAL.
CLEAR v_resp1.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-012
text_button_1 = text-006
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-007
icon_button_2 = 'ICON_CONCEL'
default_button = '1'
display_cancel_button = 'X'
IMPORTING
answer = v_resp1
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CHECK sy-subrc EQ 0.
IF v_resp1 = 1.
PERFORM salva_usu_mainframe.
ELSEIF v_resp1 = 2 OR v_resp1 = 'A'.
LEAVE PROGRAM.
CLEAR: /pws/zycee097-usu_main,
v_senha3, v_senha4,
/pws/zycee097-senha.
ENDIF.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDFORM.
FORM confirma_senha.
SELECT *
FROM /pws/zycet057
INTO TABLE itab_zycet057. "#EC CI_NOWHERE
IF itab_zycet057[] IS INITIAL.
CALL TRANSACTION '/PWS/ZYCER053'.
ENDIF.
CLEAR: itab_zycet097.
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
WHERE usu_main = /pws/zycee097-usu_main.
SET LOCALE LANGUAGE sy-langu.
TRANSLATE v_senha3 TO UPPER CASE.
IF sy-subrc = 0.
CALL FUNCTION '/PWS/ZYCE_SISCOMEX_ENCRIPT'
EXPORTING
pass = v_senha3
IMPORTING
pres = /pws/zycee097-senha.
READ TABLE itab_zycet097 WITH KEY usu_main =
/pws/zycee097-usu_main.
IF /pws/zycee097-senha EQ itab_zycet097-senha.
EXPORT /pws/zycee097-usu_main TO MEMORY ID 'USU'.
CLEAR: v_senha3, v_senha4.
CALL SCREEN '0600' STARTING AT 2 2.
ELSE.
MESSAGE i001 WITH text-003.
CLEAR: v_senha3, v_senha4.
ENDIF.
ELSE.
MESSAGE i001 WITH text-014.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM altera_senha_sis.
SELECT *
FROM /pws/zycet057
INTO TABLE itab_zycet057. "#EC CI_NOWHERE
IF itab_zycet057[] IS INITIAL.
CALL TRANSACTION '/PWS/ZYCER053'.
ENDIF.
IMPORT /pws/zycee098-cpf FROM MEMORY ID 'SIS'.
IF NOT v_senha3 IS INITIAL.
SET LOCALE LANGUAGE sy-langu.
...
...
ENDIF.
ELSE.
MESSAGE i001 WITH text-002.
CLEAR: v_senha3, v_senha4.
ENDIF.
ELSE.
MESSAGE i001 WITH text-013.
CLEAR: v_senha3, v_senha4.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM ALTERA_SENHA
FORM altera_senha.
SELECT *
FROM /pws/zycet057
INTO TABLE itab_zycet057. "#EC CI_NOWHERE
IF itab_zycet057[] IS INITIAL.
CALL TRANSACTION '/PWS/ZYCER053'.
ENDIF.
IMPORT /pws/zycee097-usu_main FROM MEMORY ID 'USU'.
IF NOT v_senha3 IS INITIAL.
SET LOCALE LANGUAGE sy-langu.
TRANSLATE v_senha3 TO UPPER CASE.
TRANSLATE v_senha4 TO UPPER CASE.
IF v_senha3 EQ v_senha4.
CALL FUNCTION '/PWS/ZYCE_SISCOMEX_ENCRIPT'
EXPORTING
pass = v_senha3
IMPORTING
pres = /pws/zycee097-senha.
PERFORM verifica_erro_senha_main.
UPDATE /pws/zycet097 SET senha = /pws/zycee097-senha
flag = ' '
WHERE usu_main = /pws/zycee097-usu_main.
IF sy-subrc = 0.
MESSAGE i001 WITH text-004.
CLEAR: v_senha3, v_senha4, /pws/zycee097-usu_main.
SET SCREEN 0.
ENDIF.
ELSE.
MESSAGE i001 WITH text-002.
CLEAR: v_senha3, v_senha4.
ENDIF.
ELSE.
MESSAGE i001 WITH text-013.
CLEAR: v_senha3, v_senha4.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM salva_usu_siscomex.
SELECT *
FROM /pws/zycet057
INTO TABLE itab_zycet057. "#EC CI_NOWHERE
IF itab_zycet057[] IS INITIAL.
CALL TRANSACTION '/PWS/ZYCER053'.
ENDIF.
IF NOT v_cpf IS INITIAL.
MOVE v_cpf TO /pws/zycee098-cpf.
SELECT * FROM /pws/zycet098 INTO TABLE itab_zycet098
...
...
ENDIF.
ENDFORM.
FORM salva_usu_r3.
CLEAR: itab_zycet184.
REFRESH: itab_zycet184.
IF NOT /pws/zycee184-uname IS INITIAL.
SELECT * FROM /pws/zycet184 INTO TABLE itab_zycet184
WHERE uname = /pws/zycee184-uname.
IF sy-subrc = 0.
MESSAGE w001 WITH text-011.
* >> Início da exclusão: FORM SALVA_USU_R3
CLEAR: /pws/zycee184-uname, /pws/zycee184-cpf,
/pws/zycee184-usu_main.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_USU_R3
CLEAR: /pws/zycee184-uname, /pws/zycee184-cpf.
* << Fim da inclusão
ELSE.
PERFORM verifica_cpf.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_usuario_r3.
IF NOT /pws/zycee184-uname IS INITIAL.
CLEAR v_resp1.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
...
...
IMPORTING
answer = v_resp1
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CHECK sy-subrc EQ 0.
IF v_resp1 = 1.
PERFORM salva_usu_r3.
ELSEIF v_resp1 = 2 OR v_resp1 = 'A'.
LEAVE PROGRAM.
* >> Início da exclusão: FORM VERIFICA_USUARIO_R3
CLEAR: /pws/zycee184-usu_main,
/pws/zycee184-cpf,
/pws/zycee184-usu_main.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_USUARIO_R3
CLEAR: /pws/zycee184-cpf.
* << Fim da inclusão
ENDIF.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDFORM.
FORM exclu_cpf.
CLEAR: itab_zycet184, itab_zycet183, itab_zycet098.
REFRESH: itab_zycet184, itab_zycet183, itab_zycet098.
SELECT * FROM /pws/zycet098 INTO TABLE itab_zycet098
WHERE cpf = /pws/zycee098-cpf.
...
...
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee098-cpf.
ENDIF.
ENDIF.
ELSE.
MESSAGE i001 WITH text-016.
CLEAR /pws/zycee098-cpf.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM EXCLU_MAIN
FORM exclu_main.
CLEAR: itab_zycet097, itab_zycet184, itab_zycet183.
REFRESH: itab_zycet097, itab_zycet184, itab_zycet183.
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
WHERE usu_main = /pws/zycee097-usu_main.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet184 INTO TABLE itab_zycet184
FOR ALL ENTRIES IN itab_zycet097
WHERE usu_main = itab_zycet097-usu_main.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet183 INTO TABLE itab_zycet183
FOR ALL ENTRIES IN itab_zycet184
WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
LOOP AT itab_zycet183 WHERE stasis = 'A'
OR stasis = 'P'
OR stasis = 'PL'.
v_tabix = sy-tabix.
IF itab_zycet183-stasis = 'A'.
MESSAGE i001 WITH text-017 text-019.
EXIT.
ELSEIF itab_zycet183-stasis = 'P'
OR itab_zycet183-stasis = 'PL'.
MESSAGE i001 WITH text-017 text-020.
MESSAGE i001 WITH text-018.
EXIT.
ENDIF.
ENDLOOP.
IF sy-subrc <> 0.
LOOP AT itab_zycet183 WHERE stasis = 'T'
OR stasis = 'S'
OR stasis = 'E'.
PERFORM deleta_usu_main.
ENDLOOP.
ENDIF.
ELSE.
PERFORM deleta_usu_mainframe.
ENDIF.
ELSE.
DELETE FROM /pws/zycet097 WHERE usu_main = /pws/zycee097-usu_main.
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee098-cpf.
ENDIF.
ENDIF.
ELSE.
MESSAGE i001 WITH text-016.
CLEAR /pws/zycee097-usu_main.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM exclu_r3.
CLEAR: itab_zycet184, itab_zycet183.
REFRESH: itab_zycet184, itab_zycet183.
SELECT * FROM /pws/zycet184 INTO TABLE itab_zycet184
WHERE uname = /pws/zycee184-uname.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet183 INTO TABLE itab_zycet183
FOR ALL ENTRIES IN itab_zycet184
WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
...
...
DELETE FROM /pws/zycet184 WHERE uname = /pws/zycee184-uname.
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee184-uname.
ENDIF.
ENDIF.
ELSE.
MESSAGE i001 WITH text-016.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM DELETA_USU_MAIN
FORM deleta_usu_main.
READ TABLE itab_zycet184 WITH KEY uname =
itab_zycet183-uname.
IF sy-subrc = 0.
DELETE FROM /pws/zycet097 WHERE usu_main =
itab_zycet184-usu_main.
DELETE FROM /pws/zycet184 WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee097-usu_main.
ENDIF.
ENDIF.
ENDFORM.
FORM deleta_usu_mainframe.
CLEAR v_tabix.
LOOP AT itab_zycet184 WHERE usu_main = /pws/zycee097-usu_main.
v_tabix = sy-tabix.
DELETE FROM /pws/zycet097 WHERE usu_main =
itab_zycet184-usu_main.
DELETE FROM /pws/zycet184 WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee097-usu_main.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da exclusão
FORM deleta_usu_r3.
READ TABLE itab_zycet184 WITH KEY uname =
itab_zycet183-uname.
IF sy-subrc = 0.
DELETE FROM /pws/zycet184 WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
MESSAGE i001 WITH text-021.
CLEAR /pws/zycee184-uname.
ENDIF.
ENDIF.
...
...
input = /pws/zycee184-cpf
IMPORTING
output = /pws/zycee184-cpf
EXCEPTIONS
not_valid = 1
OTHERS = 2.
IF sy-subrc = 0.
SELECT SINGLE cpf FROM /pws/zycet098 INTO itab_zycet184-cpf
WHERE cpf = /pws/zycee184-cpf.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_CPF
IF NOT /pws/zycee184-usu_main IS INITIAL.
PERFORM verifica_usu.
ELSE.
* << Fim da exclusão
MODIFY /pws/zycet184 FROM /pws/zycee184.
IF sy-subrc = 0.
MESSAGE i001 WITH text-001.
* >> Início da exclusão: FORM VERIFICA_CPF
CLEAR: /pws/zycee184-usu_main, /pws/zycee184-cpf,
/pws/zycee184-uname.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CPF
CLEAR: /pws/zycee184-cpf, /pws/zycee184-uname.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM VERIFICA_CPF
ENDIF.
* << Fim da exclusão
ELSE.
MESSAGE i001 WITH text-015.
CLEAR /pws/zycee184-cpf.
ENDIF.
ELSE.
MESSAGE i016 WITH text-008.
CLEAR: /pws/zycee184-cpf.
ENDIF.
ELSE.
MESSAGE i001 WITH text-008.
CLEAR: /pws/zycee184-cpf.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_USU
FORM verifica_usu.
SELECT SINGLE usu_main FROM /pws/zycet097
INTO itab_zycet184-usu_main
WHERE usu_main = /pws/zycee184-usu_main.
IF sy-subrc <> 0.
MESSAGE i001 WITH text-016.
CLEAR /pws/zycee184-usu_main.
ELSE.
MODIFY /pws/zycet184 FROM /pws/zycee184.
IF sy-subrc = 0.
MESSAGE i001 WITH text-001.
CLEAR: /pws/zycee184-usu_main, /pws/zycee184-cpf,
/pws/zycee184-uname.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_erro_senha_main.
CLEAR: itab_zycet097,
itab_zycet184,
itab_zycet098,
itab_zycet183.
REFRESH: itab_zycet097,
itab_zycet184,
itab_zycet098,
itab_zycet183.
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
WHERE usu_main = /pws/zycee097-usu_main.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet184 INTO TABLE itab_zycet184
FOR ALL ENTRIES IN itab_zycet097
WHERE usu_main = itab_zycet097-usu_main.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet098 INTO TABLE itab_zycet098
FOR ALL ENTRIES IN itab_zycet184
WHERE cpf = itab_zycet184-cpf.
LOOP AT itab_zycet184.
v_tabix = sy-tabix.
READ TABLE itab_zycet098 WITH KEY cpf =
itab_zycet184-cpf
flag = 'X'.
IF sy-subrc = 0.
UPDATE /pws/zycet183 SET stasis = 'P'
WHERE uname = itab_zycet184-uname
AND stasis = 'PL'.
COMMIT WORK.
UPDATE /pws/zycet077 SET stasis = 'P'
WHERE uname = itab_zycet184-uname
AND stasis = 'PL'.
COMMIT WORK.
DELETE itab_zycet184 INDEX v_tabix.
ELSE.
UPDATE /pws/zycet184 SET flag = ' '
WHERE uname = itab_zycet184-uname.
COMMIT WORK.
ENDIF.
ENDLOOP.
IF NOT itab_zycet184[] IS INITIAL.
SELECT * FROM /pws/zycet183 INTO TABLE itab_zycet183
FOR ALL ENTRIES IN itab_zycet184
WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
LOOP AT itab_zycet183 WHERE stasis = 'PL'.
UPDATE /pws/zycet183 SET stasis = 'A'
log = space
dtlog = space
WHERE uname = itab_zycet183-uname
AND stasis = 'PL'.
COMMIT WORK.
UPDATE /pws/zycet077 SET stasis = 'A'
log = space
dtlog = space
WHERE uname = itab_zycet183-uname
AND stasis = 'PL'.
COMMIT WORK.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM verifica_erro_senha_sis.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
CLEAR: itab_zycet097,
itab_zycet184,
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_SENHA_SIS
CLEAR: itab_zycet184,
* << Fim da inclusão
itab_zycet098,
itab_zycet183.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
REFRESH: itab_zycet097,
itab_zycet184,
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_SENHA_SIS
REFRESH: itab_zycet184,
* << Fim da inclusão
itab_zycet098,
itab_zycet183.
SELECT * FROM /pws/zycet098 INTO TABLE itab_zycet098
WHERE cpf = /pws/zycee098-cpf.
IF sy-subrc = 0.
SELECT * FROM /pws/zycet184 INTO TABLE itab_zycet184
FOR ALL ENTRIES IN itab_zycet098
WHERE cpf = itab_zycet098-cpf.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
SELECT * FROM /pws/zycet097 INTO TABLE itab_zycet097
FOR ALL ENTRIES IN itab_zycet184
WHERE usu_main = itab_zycet184-usu_main.
* << Fim da exclusão
LOOP AT itab_zycet184.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
v_tabix = sy-tabix.
READ TABLE itab_zycet097 WITH KEY usu_main =
itab_zycet184-usu_main.
IF itab_zycet097-flag = 'X'.
UPDATE /pws/zycet183 SET stasis = 'PL'
WHERE uname = itab_zycet184-uname
AND stasis = 'P'.
COMMIT WORK.
UPDATE /pws/zycet077 SET stasis = 'PL'
WHERE uname = itab_zycet184-uname
AND stasis = 'P'.
COMMIT WORK.
DELETE itab_zycet184 INDEX v_tabix.
ELSE.
* << Fim da exclusão
UPDATE /pws/zycet184 SET flag = ' '
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
WHERE uname = itab_zycet184-uname.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_SENHA_SIS
WHERE uname = itab_zycet184-uname.
ENDLOOP.
* << Fim da inclusão
COMMIT WORK.
* >> Início da exclusão: FORM VERIFICA_ERRO_SENHA_SIS
ENDIF.
ENDLOOP.
* << Fim da exclusão
IF NOT itab_zycet184[] IS INITIAL.
SELECT * FROM /pws/zycet183 INTO TABLE itab_zycet183
FOR ALL ENTRIES IN itab_zycet184
WHERE uname = itab_zycet184-uname.
IF sy-subrc = 0.
LOOP AT itab_zycet183 WHERE stasis = 'P'.
UPDATE /pws/zycet183 SET stasis = 'A'
log = space
dtlog = space
WHERE uname = itab_zycet183-uname
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE201I01
MODULE user_command_exit INPUT.
CASE okcode.
WHEN 'CANC' OR 'ENCE' OR 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
* >> Início da exclusão: MODULE USER_COMMAND_0400
MODULE user_command_0400 INPUT.
CASE okcode.
WHEN 'SAVE'.
CLEAR okcode.
PERFORM salva_usu_mainframe.
WHEN 'BACK'.
CLEAR okcode.
PERFORM verifica_usuario.
ENDCASE.
ENDMODULE.
MODULE user_command_0500 INPUT.
CASE okcode.
WHEN 'ENTE'.
PERFORM confirma_senha.
WHEN 'ENCE'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
* << Fim da exclusão
MODULE user_command_0600 INPUT.
CASE sy-ucomm.
WHEN 'SALVAR'.
* >> Início da exclusão: MODULE USER_COMMAND_0600
IF v_sis = 1.
* << Fim da exclusão
PERFORM altera_senha_sis.
* >> Início da exclusão: MODULE USER_COMMAND_0600
ELSE.
PERFORM altera_senha.
ENDIF.
* << Fim da exclusão
ENDCASE.
ENDMODULE.
MODULE user_command_0600_exit INPUT.
CASE sy-ucomm.
WHEN 'CANCELAR' OR 'CRIAR'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'CANC'.
sy-ucomm = 'CANCELAR'.
okcode = 'CANCELAR'.
...
...
WHEN 'BACK' OR 'ENCE'.
PERFORM verifica_usuario_r3.
ENDCASE.
ENDMODULE.
MODULE user_command_1000 INPUT.
CASE okcode.
WHEN 'DEL_CPF'.
PERFORM exclu_cpf.
CLEAR okcode.
WHEN 'DEL_MAIN'.
* >> Início da exclusão: MODULE USER_COMMAND_1000
PERFORM exclu_main.
* << Fim da exclusão
CLEAR okcode.
WHEN 'DEL_R3'.
PERFORM exclu_r3.
CLEAR okcode.
ENDCASE.
ENDMODULE.
MODULE user_command_01000_exit INPUT.
CASE okcode.
WHEN 'CANC'.
LEAVE PROGRAM.
...
...
ENDCASE.
ENDMODULE.
MODULE user_command_0902 INPUT.
CASE okcode.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'SAVE'.
READ TABLE itab_zycet184 INDEX 1.
DELETE FROM /pws/zycet184
WHERE uname = itab_zycet184-uname AND
* >> Início da exclusão: MODULE USER_COMMAND_0902
usu_main = itab_zycet184-usu_main AND
* << Fim da exclusão
cpf = itab_zycet184-cpf .
CLEAR itab_zycet184.
REFRESH itab_zycet184.
MOVE: /pws/zycee184-uname TO itab_zycet184-uname ,
* >> Início da exclusão: MODULE USER_COMMAND_0902
/pws/zycee184-usu_main TO itab_zycet184-usu_main,
* << Fim da exclusão
/pws/zycee184-cpf TO itab_zycet184-cpf .
MOVE: itab_zycet184-uname TO /pws/zycet184-uname ,
* >> Início da exclusão: MODULE USER_COMMAND_0902
itab_zycet184-usu_main TO /pws/zycet184-usu_main,
* << Fim da exclusão
itab_zycet184-cpf TO /pws/zycet184-cpf .
MODIFY /pws/zycet184.
MESSAGE i001 WITH text-001.
REFRESH itab_zycet184.
WHEN 'ENTER'.
MOVE: /pws/zycee184-uname TO itab_zycet184-uname ,
* >> Início da exclusão: MODULE USER_COMMAND_0902
/pws/zycee184-usu_main TO itab_zycet184-usu_main,
* << Fim da exclusão
/pws/zycee184-cpf TO itab_zycet184-cpf .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE201O01
* >> Início da exclusão: MODULE STATUS_0500
MODULE status_0500 OUTPUT.
SET PF-STATUS '0500'.
SET TITLEBAR '0500'.
ENDMODULE.
* << Fim da exclusão
MODULE status_0600 OUTPUT.
SET TITLEBAR '0600'.
ENDMODULE.
MODULE status_0700 OUTPUT.
SET PF-STATUS '0400'.
SET TITLEBAR '0700'.
ENDMODULE.
MODULE status_0800 OUTPUT.
SET PF-STATUS '0500'.
SET TITLEBAR '0800'.
ENDMODULE.
MODULE status_0900 OUTPUT.
SET PF-STATUS '0400'.
SET TITLEBAR '0900'.
ENDMODULE.
MODULE status_1000 OUTPUT.
SET PF-STATUS '1000'.
SET TITLEBAR '1000'.
ENDMODULE.
* >> Início da exclusão: MODULE STATUS_0400
MODULE status_0400 OUTPUT.
SET PF-STATUS '0400'.
SET TITLEBAR '0400'.
ENDMODULE.
* << Fim da exclusão
MODULE status_0901 OUTPUT.
SET PF-STATUS '0901'.
SET TITLEBAR '0901'.
ENDMODULE.
MODULE status_0902 OUTPUT.
* >> Início da exclusão: MODULE STATUS_0902
READ TABLE itab_zycet184 INDEX 1.
MOVE: itab_zycet184-uname TO /pws/zycee184-uname ,
itab_zycet184-usu_main TO /pws/zycee184-usu_main,
itab_zycet184-cpf TO /pws/zycee184-cpf .
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCEE184-UNAME'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da exclusão
SET PF-STATUS '0902'.
SET TITLEBAR '0902'.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE201TOP
PROGRAM /pws/sapmzyce201 MESSAGE-ID /pws/zycem.
TABLES :
/pws/zycet184,
/pws/zycee184,
* >> Início da exclusão:
/pws/zycee097,
* << Fim da exclusão
/pws/zycee098.
DATA: itab_zycet057 TYPE STANDARD TABLE OF /pws/zycet057.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet097 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet097.
DATA: END OF itab_zycet097.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet098 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet098.
DATA: END OF itab_zycet098.
DATA: BEGIN OF itab_zycet184 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet184.
DATA: END OF itab_zycet184.
DATA: BEGIN OF itab_zycet183 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet183.
DATA: END OF itab_zycet183.
DATA : v_senha3(12) TYPE c,
v_senha4(12) TYPE c,
* >> Início da exclusão:
v_sis TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_sis TYPE c, "#EC NEEDED
* << Fim da inclusão
v_cpf LIKE /pws/zycet098-cpf,
* >> Início da exclusão:
v_usu LIKE /pws/zycet097-usu_main,
v_tabix LIKE sy-tabix,
* << Fim da exclusão
* >> Início da inclusão:
v_tabix LIKE sy-tabix, "#EC NEEDED
* << Fim da inclusão
v_resp1,
okcode LIKE sy-ucomm.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER171
...
PERFORM busca_sequencial.
ENDIF.
CLEAR itab_zycet077.
REFRESH itab_zycet077.
IF itab_zycet116-agrupado = 'N'
OR itab_zycet116-agrupado IS INITIAL.
LOOP AT itab_zycet118 WHERE nrseqre EQ itab_zycet116-nrseqre.
MOVE: itab_zycet116-nrseqre TO itab_zycet077-nrseq ,
text-001 TO itab_zycet077-tp_doc ,
itab_zycet118-codnrseq TO itab_zycet077-codnrseq,
* >> Início da exclusão: FORM ROT_RE
itab_user-usu_main TO itab_zycet077-usu_main,
* << Fim da exclusão
sy-uname TO itab_zycet077-uname ,
text-002 TO itab_zycet077-stasis .
APPEND itab_zycet077.
CLEAR itab_zycet077.
ENDLOOP.
ELSE.
LOOP AT itab_zycet092 WHERE nrseqre EQ itab_zycet116-nrseqre.
MOVE: itab_zycet116-nrseqre TO itab_zycet077-nrseq ,
text-001 TO itab_zycet077-tp_doc ,
itab_zycet092-codnrseq TO itab_zycet077-codnrseq,
* >> Início da exclusão: FORM ROT_RE
itab_user-usu_main TO itab_zycet077-usu_main,
* << Fim da exclusão
sy-uname TO itab_zycet077-uname ,
text-002 TO itab_zycet077-stasis .
APPEND itab_zycet077.
CLEAR itab_zycet077.
ENDLOOP.
ENDIF.
MODIFY /pws/zycet077 FROM TABLE itab_zycet077.
COMMIT WORK.
ELSE.
MOVE-CORRESPONDING itab_zycet116 TO /pws/zycet116.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCEA023
Excluir Parâmetro da Ajuda de Pesquisa: /PWS/ZYCEA023
Par.AjPesq IMP EXP PosL ISel ExAj Elem.dados
UNAME X X 1 1 SYUNAME
CPF X X 2 2 STCD2
* >> Início da exclusão:
USU_MAIN X X 2 2 SYUNAME
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE077
Nome campo Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
NRSEQ /PWS/ZYCEL001 CHAR 10
TP_DOC /PWS/ZYCEL092 CHAR 10
CODNRSEQ CHAR3 CHAR 3
DTLOG SYDATUM DATS 8
LOG TEXT250 CHAR 250
STASIS /PWS/ZYCEL094 CHAR 2
* >> Início da exclusão:
USU_MAIN SYUNAME CHAR 12
* << Fim da exclusão
UNAME SYUNAME CHAR 12
NRRE CHAR14 CHAR 14
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE183
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
STASIS /PWS/ZYCEL094 CHAR 2
PRIORIDADE /PWS/ZYCEL098 CHAR 1
DTLOG SYDATUM DATS 8
LOG TEXT250 CHAR 250
TCA /PWS/ZYCBL046 CHAR 1
* >> Início da exclusão:
USU_MAIN SYUNAME CHAR 12
* << Fim da exclusão
CPF STCD2 CHAR 11
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE184
Nome Campo Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT X CLNT 3
UNAME SYUNAME X CHAR 12
* >> Início da exclusão:
USU_MAIN SYUNAME /PWS/ZYCET097 X CHAR 12
* << Fim da exclusão
CPF STCD2 /PWS/ZYCET098 X CHAR 11
FLAG /PWS/ZYCBL046 CHAR 1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET077
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT X MANDT X CLNT 3
NRSEQ X /PWS/ZYCEL001 X CHAR 10
TP_DOC X /PWS/ZYCEL092 X CHAR 10
CODNRSEQ X CHAR3 X CHAR 3
DTLOG SYDATUM DATS 8
LOG TEXT250 CHAR 250
STASIS /PWS/ZYCEL094 CHAR 2
* >> Início da exclusão:
USU_MAIN SYUNAME CHAR 12
* << Fim da exclusão
UNAME SYUNAME CHAR 12
NRRE CHAR14 CHAR 14
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET183
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
STASIS /PWS/ZYCEL094 CHAR 2
PRIORIDADE /PWS/ZYCEL098 CHAR 1
DTLOG SYDATUM DATS 8
LOG TEXT250 CHAR 250
TCA /PWS/ZYCBL046 CHAR 1
* >> Início da exclusão:
USU_MAIN SYUNAME CHAR 12
* << Fim da exclusão
CPF STCD2 CHAR 11
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET184
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT X MANDT T000 CLNT 3
UNAME X SYUNAME CHAR 12
* >> Início da exclusão:
USU_MAIN X SYUNAME /PWS/ZYCET097 CHAR 12
* << Fim da exclusão
CPF X STCD2 /PWS/ZYCET098 CHAR 11
FLAG /PWS/ZYCBL046 CHAR 1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCEE097
Excluir Estrutura
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCET097
Excluir Tabela
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABU TMENU01
Menu de Área: /PWS/ZYCE
Excluir Usuário Mainframe e as respectivas transações Criar e Alterar Senha:
Estrutura
pw.CE - Documentação Exportação -> SISCOMEX -> Usuários -> Usuário Mainframe
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCE201_A
Excluir Transação
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCE201_M
Excluir Transação