Visualização da Nota 12604

CE PLUS - Nota 012604

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: SISCOSERV

Data/Hora da Publicação: 11/10/2012 00:00:00

Data/Hora Última Alteração: 08/04/2013 16:18:09

Descrição da Nota: SISCOSERV

Sintoma

1) Mensagem de Validação de Prazo da Operação;

2) Inclusão do texto 'Moeda' no cabeçalho da RAS/RVS;

3) Alteração do valor do campo Modo Prestação;

4) Inclusão do texto "Enquadramento" na coluna do botão do Enquadramento;

5) Inclusão do campo Moeda no Relatório de Follow Up de Siscoserv;

6) Geração do XML indevidamente quando da alteração do campo status da RAS/RVS ou operação;

7) Na associação, está aparecendo indevidamente nos matchcodes processos já associados;

8) Busca do Código da moeda também no include da importação inserido na tabela TCURC

9) Inclusão de Ajuda de Pesquisa no campo NRSEQ do Relatório de Follow Up do Siscoserv

Solução

Os pontos acima foram corrigidos

Versões Tratadas

9.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 12480

SISCOSERV

Nota 12563

RELATÓRIO SISCOSERV

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 12604 Data: 11/10/2012 Hora: 15:11:49

----------------------------------------------------------------------------------------------------

Nota Número : 12604

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 9.0

Pacote : 00002

Agrupamento : 00132

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

12480 - 00001 - 9.0 - 00001 - SISCOSERV

12563 - 00002 - 9.0 - 00002 - RELATÓRIO SISCOSERV

----------------------------------------------------------------------------------------------------

SISCOSERV

----------------------------------------------------------------------------------------------------

Palavras Chave:

SISCOSERV

----------------------------------------------------------------------------------------------------

Objetos da nota:

DOMD /PWS/ZYCAD011

FUNC /PWS/ZYCAA174

FUNC /PWS/ZYCAA173

FUNC /PWS/ZYCAA172

CUAD /PWS/SAPMZYCA010

DYNP /PWS/SAPMZYCA011 0100

DYNP /PWS/SAPMZYCA011 0101

REPS /PWS/MZYCA011TOP

REPS /PWS/MZYCA010O01

REPS /PWS/MZYCA010F01

REPS /PWS/LZYCAGFTOP

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA011F01

REPS /PWS/ZYCAR021

REPS /PWS/MZYCA011I01

REPT /PWS/ZYCAR021

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMD /PWS/ZYCAD011

------------------------------------------------------------------------

Domínio modificado: /PWS/ZYCAD011

-Valores individuais

Modificado valor fixo "2"

Texto modificado, idioma: PT (19 caracteres):

"Consumo no Exterior"

Modificado valor fixo "3"

Texto modificado, idioma: PT (30 caracteres):

"Presença comercial no exterior"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCAA174

FUNCTION /pws/zycaa174.

TYPES:

BEGIN OF ty_dados,

nrpagto TYPE /pws/zycbt119-nrpagto,

bukrs TYPE /pws/zycbt119-bukrs,

waers TYPE /pws/zycbt119-waers,

vlme TYPE /pws/zycbt119-vlme,

dtpagto TYPE /pws/zycbt119-dtpagto,

END OF ty_dados.

DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,

* >> Início da inclusão: FUNCTION /PWS/ZYCAA174

itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,

* << Fim da inclusão

v_fieldname TYPE dfies-lfieldname.

FIELD-SYMBOLS:

<fs_shlp> LIKE LINE OF shlp_tab,

<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

* >> Início da exclusão: FUNCTION /PWS/ZYCAA174

<fs_dados> TYPE ty_dados.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCAA174

<fs_dados> TYPE ty_dados,

<fs_zycat039> TYPE /pws/zycat039.

* << Fim da inclusão

CLEAR callcontrol-maxrecords.

IF callcontrol-step = 'DISP'

OR callcontrol-step = 'PRESEL'.

READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

CHECK <fs_shlp> IS ASSIGNED.

LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.

CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR

<fs_fielddescr>-fieldname = 'LIFNR' OR

<fs_fielddescr>-fieldname = 'DTVENCTO' OR

<fs_fielddescr>-fieldname = 'BUKRS' OR

...

shlp = shlp

callcontrol = callcontrol

EXCEPTIONS

parameter_unknown = 1

OTHERS = 2.

IF sy-subrc <> 0.

EXIT.

ENDIF.

ENDLOOP.

UNASSIGN: <fs_shlp>, <fs_fielddescr>.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA174

SELECT * FROM /pws/zycat039

INTO TABLE itab_zycat039

FOR ALL ENTRIES IN itab_dados

WHERE fat_imp = itab_dados-nrpagto.

* << Fim da inclusão

LOOP AT itab_dados ASSIGNING <fs_dados>.

IF <fs_dados>-dtpagto IS INITIAL OR

<fs_dados>-dtpagto = '00000000' OR

<fs_dados>-dtpagto = ' '.

DELETE itab_dados INDEX sy-tabix.

DELETE record_tab INDEX sy-tabix.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA174

ELSE.

READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>

WITH KEY fat_imp = <fs_dados>-nrpagto.

IF sy-subrc EQ 0.

DELETE itab_dados INDEX sy-tabix.

DELETE record_tab INDEX sy-tabix.

UNASSIGN <fs_zycat039>.

ENDIF.

* << Fim da inclusão

ENDIF.

ENDLOOP.

ENDIF.

ENDFUNCTION.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCAA173

...

lifnr TYPE /pws/zycet010-lifnr,

dtvencto TYPE /pws/zycet010-dtvencto,

bukrs TYPE /pws/zycet001-bukrs,

waers TYPE /pws/zycet002-waers,

vlcomis TYPE /pws/zycet010-vlcomis,

dtpagto TYPE /pws/zycet010-dtpagto,

END OF ty_dados.

DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,

wa_dados TYPE ty_dados,

itab_zycet013 TYPE STANDARD TABLE OF /pws/zycet013,

* >> Início da inclusão: FUNCTION /PWS/ZYCAA173

itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,

* << Fim da inclusão

wa_zycet013 TYPE /pws/zycet013,

v_fieldname TYPE dfies-lfieldname,

v_tabix TYPE sy-tabix,

v_lines TYPE i,

v_lifnr TYPE /pws/zycet010-lifnr,

v_dtvencto TYPE /pws/zycet010-dtvencto.

FIELD-SYMBOLS:

<fs_shlp> LIKE LINE OF shlp_tab,

<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

<fs_dados> TYPE ty_dados,

* >> Início da exclusão: FUNCTION /PWS/ZYCAA173

<fs_record_tab> TYPE seahlpres.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCAA173

<fs_record_tab> TYPE seahlpres,

<fs_zycat039> TYPE /pws/zycat039.

* << Fim da inclusão

CLEAR callcontrol-maxrecords.

IF callcontrol-step = 'DISP'

OR callcontrol-step = 'PRESEL'.

READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

CHECK <fs_shlp> IS ASSIGNED.

LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.

CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR

<fs_fielddescr>-fieldname = 'LIFNR' OR

<fs_fielddescr>-fieldname = 'DTVENCTO' OR

<fs_fielddescr>-fieldname = 'BUKRS' OR

...

EXIT.

ENDIF.

ENDLOOP.

UNASSIGN: <fs_shlp>, <fs_fielddescr>.

IF NOT itab_dados[] IS INITIAL.

SELECT * FROM /pws/zycet013

INTO TABLE itab_zycet013

FOR ALL ENTRIES IN itab_dados

WHERE nrseq = itab_dados-nrseq

AND lifnr = itab_dados-lifnr.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA173

SELECT * FROM /pws/zycat039

INTO TABLE itab_zycat039

FOR ALL ENTRIES IN itab_dados

WHERE fat_comis = itab_dados-nrseq

AND lifnr = itab_dados-lifnr

AND dtvencto = itab_dados-dtvencto.

* << Fim da inclusão

LOOP AT itab_dados ASSIGNING <fs_dados>.

v_tabix = sy-tabix.

CLEAR v_lines.

LOOP AT itab_dados INTO wa_dados

WHERE nrseq = <fs_dados>-nrseq

AND lifnr = <fs_dados>-lifnr

AND dtvencto = <fs_dados>-dtvencto.

v_lines = v_lines + 1.

ENDLOOP.

IF v_lines > 1.

DELETE record_tab INDEX v_tabix.

DELETE itab_dados.

ELSE.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA173

READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>

WITH KEY fat_comis = <fs_dados>-nrseq

lifnr = <fs_dados>-lifnr

dtvencto = <fs_dados>-dtvencto.

IF sy-subrc EQ 0.

DELETE record_tab INDEX v_tabix.

DELETE itab_dados.

UNASSIGN <fs_zycat039>.

CONTINUE.

ENDIF.

* << Fim da inclusão

IF <fs_dados>-dtpagto IS INITIAL.

READ TABLE itab_zycet013 INTO wa_zycet013

WITH KEY nrseq = <fs_dados>-nrseq

lifnr = <fs_dados>-lifnr.

IF sy-subrc EQ 0 AND

NOT wa_zycet013-dtpagto IS INITIAL AND

wa_zycet013-dtpagto NE ' '.

READ TABLE record_tab ASSIGNING <fs_record_tab>

INDEX v_tabix.

IF <fs_record_tab> IS ASSIGNED.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCAA172

...

END OF ty_dados,

BEGIN OF ty_zycbt031,

nrseq TYPE /pws/zycbt031-nrseq,

dtboleto TYPE /pws/zycbt031-dtboleto,

mdcorresp TYPE /pws/zycbt031-mdcorresp,

nrcorresp TYPE /pws/zycbt031-nrcorresp,

statusp TYPE /pws/zycbt031-statusp,

END OF ty_zycbt031.

DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,

itab_zycbt031 TYPE STANDARD TABLE OF ty_zycbt031,

* >> Início da inclusão: FUNCTION /PWS/ZYCAA172

itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,

* << Fim da inclusão

v_fieldname TYPE dfies-lfieldname,

v_tabix TYPE sy-tabix.

FIELD-SYMBOLS:

<fs_shlp> LIKE LINE OF shlp_tab,

<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

<fs_dados> TYPE ty_dados,

* >> Início da exclusão: FUNCTION /PWS/ZYCAA172

<fs_zycbt031> TYPE ty_zycbt031.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCAA172

<fs_zycbt031> TYPE ty_zycbt031,

<fs_zycat039> TYPE /pws/zycat039.

* << Fim da inclusão

CLEAR callcontrol-maxrecords.

IF callcontrol-step = 'DISP'

OR callcontrol-step = 'PRESEL'.

READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

CHECK <fs_shlp> IS ASSIGNED.

LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.

CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR

<fs_fielddescr>-fieldname = 'NRFECH' OR

<fs_fielddescr>-fieldname = 'BUKRS' OR

<fs_fielddescr>-fieldname = 'VLME' OR

...

ENDIF.

ENDLOOP.

UNASSIGN: <fs_shlp>, <fs_fielddescr>.

IF NOT itab_dados[] IS INITIAL.

SELECT nrseq dtboleto mdcorresp nrcorresp statusp

FROM /pws/zycbt031

INTO TABLE itab_zycbt031

FOR ALL ENTRIES IN itab_dados

WHERE mdcorresp = 'CP'

AND nrcorresp = itab_dados-nrseq.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA172

SELECT * FROM /pws/zycat039

INTO TABLE itab_zycat039

FOR ALL ENTRIES IN itab_dados

WHERE remessa = itab_dados-nrseq.

* << Fim da inclusão

LOOP AT itab_dados ASSIGNING <fs_dados>.

v_tabix = sy-tabix.

READ TABLE itab_zycbt031 ASSIGNING <fs_zycbt031>

WITH KEY nrcorresp = <fs_dados>-nrseq

statusp = 'C'.

IF sy-subrc NE 0.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA172

DELETE record_tab INDEX v_tabix.

DELETE itab_dados.

ELSE.

UNASSIGN <fs_zycbt031>.

READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>

WITH KEY remessa = <fs_dados>-nrseq.

IF sy-subrc EQ 0.

* << Fim da inclusão

DELETE record_tab INDEX v_tabix.

DELETE itab_dados.

* >> Início da inclusão: FUNCTION /PWS/ZYCAA172

UNASSIGN <fs_zycat039>.

ENDIF.

* << Fim da inclusão

ENDIF.

ENDLOOP.

ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYCA010

Crirar o Tits GUI 0001 para o programa /PWS/SAPMZYCA010 com o título "CPF/Senha - SISCOSERV"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCA011 0100

Solicitar o download da tela junto a equipe de Produto do pw.CE no telefone (11)5504.0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCA011 0101

Solicitar o download da tela junto a equipe de Produto do pw.CE no telefone (11)5504.0170

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA011TOP

...

v_oper_enq type /pws/zycat032-operacao,

v_mconame like dd23l-mconame,

v_processo type /pws/zycat038-processo,

vreadlony type i,

v_path type rlgrap-filename,

v_lines,

v_exibe,

v_cria,

v_mark,

v_modif,

* >> Início da inclusão:

v_gera_xml,

* << Fim da inclusão

v_funcionalidade type /pws/zyglt390-programa

value '/PWS/SAPMZYCA011',

v_identificador type /pws/zyglt390-identificador.

controls: ts_contrato type tabstrip,

tc_oper type tableview using screen '0101',

tc_enq type tableview using screen '0102',

tc_re type tableview using screen '0103'.

data editor type ref to cl_gui_textedit.

data editcontainer type ref to cl_gui_custom_container.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA010O01

...

DATA: itab_pfstatus TYPE TABLE OF ty_pfstatus,

wa_pfstatus TYPE ty_pfstatus.

FREE itab_pfstatus.

IF v_cria = 'J' or v_cpf is initial.

wa_pfstatus-fcode = 'DELE'.

APPEND wa_pfstatus TO itab_pfstatus.

wa_pfstatus-fcode = 'LOG_TRILHA'.

APPEND wa_pfstatus TO itab_pfstatus.

ENDIF.

SET PF-STATUS '0001' EXCLUDING itab_pfstatus.

* >> Início da inclusão: MODULE STATUS_0001

set titlebar '0001'.

* << Fim da inclusão

LOOP AT SCREEN.

IF /pws/zycat036-cpf IS INITIAL.

IF screen-name NE '/PWS/ZYCAT036-CPF' AND

screen-name NE 'Q_CPF'.

screen-input = 0.

screen-active = 0.

screen-required = 0.

ENDIF.

ELSE.

IF v_cria = 'J'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA010F01

...

if not v_password is initial.

call function '/PWS/ZYCB_SISCOSERV_ENCRIPT'

exporting

pass = v_password

importing

pres = v_senha

exceptions

parameters_missing = 1

others = 2.

if sy-subrc <> 0.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

IF p_sai IS INITIAL.

* << Fim da inclusão

message e015 with text-e02.

endif.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

ENDIF.

* << Fim da inclusão

else.

if v_newpaswd is initial and

not v_password is initial.

call function '/PWS/ZYCB_SISCOSERV_ENCRIPT'

exporting

pass = v_password

importing

pres = v_senha

exceptions

parameters_missing = 1

others = 2.

if sy-subrc <> 0.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

IF p_sai IS INITIAL.

* << Fim da inclusão

message e015 with text-e02.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

ENDIF.

* << Fim da inclusão

endif.

elseif not v_newpaswd is initial.

call function '/PWS/ZYCB_SISCOSERV_ENCRIPT'

exporting

pass = v_newpaswd

importing

pres = v_senha

exceptions

parameters_missing = 1

others = 2.

if sy-subrc <> 0.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

IF p_sai IS INITIAL.

* << Fim da inclusão

message e015 with text-e02.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

ENDIF.

* << Fim da inclusão

endif.

else.

clear v_senha.

endif.

if not v_senha is initial.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/LZYCAGFTOP

...

v_nrseq129 LIKE /pws/zycbt129-nrseq,

v_tpparc129 LIKE /pws/zycbt129-tpparc, "#EC NEEDED

v_nrparc129 LIKE /pws/zycbt129-nrparc, "#EC NEEDED

v_tpemprest122 LIKE /pws/zycbt122-tpemprest,

v_tipo(2) TYPE n.

TABLES: /pws/zycat030,

/pws/zycat031,

/pws/zycat034,

/pws/zycat038,

/pws/zycat039.

* >> Início da inclusão:

tables: /pws/zycat032,

/pws/zycat033.

* << Fim da inclusão

TYPE-POOLS : icon.

TYPES:

BEGIN OF ty_zycat038_alv,

nrseq_arq TYPE /pws/zycat038-nrseq_arq,

processo TYPE /pws/zycat038-processo,

processo_t(40) TYPE c,

usuario TYPE /pws/zycat038-usuario,

data TYPE /pws/zycat038-data,

hora TYPE /pws/zycat038-hora,

prot_transm TYPE /pws/zycat038-prot_transm,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

v_bukrs

ID 'ACTVT' FIELD '01'.

IF sy-subrc NE 0.

CLEAR v_okcode.

p_bloq = 'X'.

MESSAGE e015 WITH text-e02.

ENDIF.

ENDFORM.

FORM user_command_0100.

* >> Início da exclusão: FORM USER_COMMAND_0100

DATA: v_answer, v_call VALUE 'X'.

* << Fim da exclusão

* >> Início da inclusão: FORM USER_COMMAND_0100

data: v_answer, v_call value 'X',

v_field(20) type c.

* << Fim da inclusão

CASE v_okcode.

WHEN 'BACK'.

PERFORM carrega_zycat039.

IF itab_zycat039[] NE itab_zycat039_ant[] AND

v_exibe IS INITIAL.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'N'

textline1 = text-i04

textline2 = text-i05

...

CLEAR v_path.

CALL SCREEN 0104 STARTING AT 25 10.

WHEN 'LOG'.

PERFORM executa_log.

WHEN 'LOG_TRILHA'.

PERFORM log_trilha USING SY-REPID

/pws/zycat030-nrseq

' '.

CLEAR v_okcode.

WHEN 'SELE'.

* >> Início da inclusão: FORM USER_COMMAND_0100

get cursor field v_field.

check v_field = '/PWS/ZYCAT031-NRSEQ'.

* << Fim da inclusão

SET PARAMETER ID '/PWS/ZYCAP005' FIELD /pws/zycat030-nrseq.

EXPORT v_call TO MEMORY ID 'ASS'.

CALL TRANSACTION '/PWS/ZYCA011_E' AND SKIP FIRST SCREEN.

ENDCASE.

ENDFORM.

FORM desbloqueia_registro.

CALL FUNCTION 'DEQUEUE_/PWS/EZYCAT030'

EXPORTING

nrseq = /pws/zycat031-nrseq.

IF sy-subrc NE 0.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA011F01

...

modify itab_zycat033t.

endloop.

clear v_okcode.

when 'ELIM'.

delete itab_zycat033t where mark = 'X'.

clear: v_okcode.

endcase.

clear v_mark.

endform.

form verifica_alteracao using p_sai.

* >> Início da exclusão: FORM VERIFICA_ALTERACAO

data: v_answer, v_call.

* << Fim da exclusão

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

data: v_answer, v_call,

v_oper_alt.

clear: v_oper_alt, v_gera_xml.

* << Fim da inclusão

if v_exibe is initial.

clear v_modif.

/pws/zycat030-mandt = sy-mandt.

free itab_zycat031.

loop at itab_zycat031t.

move-corresponding itab_zycat031t to wa_zycat031.

wa_zycat031-mandt = sy-mandt.

append wa_zycat031 to itab_zycat031.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

read table itab_zycat031_ant into wa_zycat031_ant

with key nrseq = wa_zycat031-nrseq

operacao = wa_zycat031-operacao.

if sy-subrc ne 0 or sy-subrc eq 0 and

( wa_zycat031-nbs ne wa_zycat031_ant-nbs or

wa_zycat031-cod_pais ne wa_zycat031_ant-cod_pais or

wa_zycat031-modo_prest ne wa_zycat031_ant-modo_prest or

wa_zycat031-data_ini ne wa_zycat031_ant-data_ini or

wa_zycat031-data_fim ne wa_zycat031_ant-data_fim or

wa_zycat031-valor ne wa_zycat031_ant-valor ).

v_oper_alt = 'X'.

endif.

* << Fim da inclusão

endloop.

loop at itab_zycat032 into wa_zycat032.

wa_zycat032-mandt = sy-mandt.

modify itab_zycat032 from wa_zycat032.

endloop.

free itab_zycat033.

loop at itab_zycat033t.

move-corresponding itab_zycat033t to wa_zycat033.

wa_zycat033-mandt = sy-mandt.

append wa_zycat033 to itab_zycat033.

endloop.

if not editor is initial.

refresh: itab_src, itab_tline.

* >> Início da exclusão: FORM VERIFICA_ALTERACAO

call method editor->get_text_as_r3table importing table = itab_src[].

* << Fim da exclusão

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

call method editor->get_text_as_r3table

importing table = itab_src[].

* << Fim da inclusão

loop at itab_src into wa_src.

move wa_src-line to wa_tline-tdline.

append wa_tline to itab_tline.

endloop.

* >> Início da inclusão: FORM VERIFICA_ALTERACAO

endif.

if wa_zycat030_ant-bukrs ne /pws/zycat030-bukrs or

wa_zycat030_ant-j_1bbranch ne /pws/zycat030-j_1bbranch or

wa_zycat030_ant-cod_pais ne /pws/zycat030-cod_pais or

wa_zycat030_ant-bukrs_ext ne /pws/zycat030-bukrs_ext or

wa_zycat030_ant-nif ne /pws/zycat030-nif or

wa_zycat030_ant-waers ne /pws/zycat030-waers or

not v_oper_alt is initial or

itab_zycat032[] ne itab_zycat032_ant[] or

itab_zycat033[] ne itab_zycat033_ant[] or

itab_tline[] ne itab_tline_ant[].

v_gera_xml = 'X'.

* << Fim da inclusão

endif.

...

endloop.

call method editor->set_text_as_r3table exporting table = itab_src[].

endif.

endform.

form limpa_dados.

if not editor is initial.

call method editor->free.

call method editcontainer->free.

clear: editor, editcontainer.

endif.

* >> Início da exclusão: FORM LIMPA_DADOS

clear: v_exibe, v_cria, /pws/zycat030.

* << Fim da exclusão

* >> Início da inclusão: FORM LIMPA_DADOS

clear: v_exibe, v_cria, v_gera_xml, /pws/zycat030.

* << Fim da inclusão

refresh: itab_zycat031, itab_zycat031t, itab_zycat031_ant,

itab_zycat032, itab_zycat032t, itab_zycat032_ant,

itab_zycat033, itab_zycat033t, itab_zycat033_ant,

itab_src, itab_tline_ant, itab_tline.

endform.

form elimina_ras_rvs.

data: itab_zycat034 type table of /pws/zycat034,

itab_zycat038 type table of /pws/zycat038,

wa_zycat031t type ty_zycat031t,

wa_zycat038 type /pws/zycat038.

...

call function 'DEQUEUE_/PWS/EZYCAT031'

exporting

nrseq = wa_zycat031-nrseq

operacao = wa_zycat031-operacao.

if sy-subrc ne 0.

endif.

endloop.

endform.

form gera_xml.

data: v_alterado.

* >> Início da inclusão: FORM GERA_XML

check not v_gera_xml is initial.

* << Fim da inclusão

if not v_cria is initial

or /pws/zycat030-n_rvs_ras is initial.

perform grava_xml_criacao_ras_rvs.

elseif v_cria is initial and

not /pws/zycat030-n_rvs_ras is initial and

/pws/zycat030-status = 'PS'.

clear v_alterado.

if /pws/zycat030-bukrs ne wa_zycat030_ant-bukrs or

/pws/zycat030-cod_pais ne wa_zycat030_ant-cod_pais or

/pws/zycat030-bukrs_ext ne wa_zycat030_ant-bukrs_ext or

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCAR021

...

itab_alv type table of ty_alv,

itab_fieldcat type table of kkblo_fieldcat,

itab_listheader type slis_t_listheader,

itab_sort type table of slis_sortinfo_alv.

data: wa_zycat030 type /pws/zycat030,

wa_zycat031 type /pws/zycat031,

wa_variante type disvariant.

selection-screen begin of block bl1 with frame title text-t01.

select-options: s_bukrs for /pws/zycat030-bukrs,

s_modulo for /pws/zycat030-tp_processo,

* >> Início da exclusão:

s_nrseq for /pws/zycat030-nrseq,

* << Fim da exclusão

* >> Início da inclusão:

s_nrseq for /pws/zycat030-nrseq

matchcode object /PWS/ZYCAA168,

* << Fim da inclusão

s_oper for /pws/zycat031-operacao,

s_dtincl for /pws/zycat031-data_ini,

s_status for /pws/zycat031-status,

s_nbs for /pws/zycat031-nbs no intervals.

selection-screen end of block bl1.

selection-screen begin of block bl2 with frame title text-t10.

parameters: p_zebra as checkbox,

p_otimi as checkbox.

selection-screen end of block bl2.

selection-screen begin of block variant with frame title text-t09.

...

v_colpos = v_colpos + 1.

wa_fieldcat-col_pos = v_colpos.

wa_fieldcat-fieldname = 'NBS'.

wa_fieldcat-reptext_ddic = text-t17.

wa_fieldcat-outputlen = '12'.

append wa_fieldcat to itab_fieldcat.

clear wa_fieldcat.

v_colpos = v_colpos + 1.

wa_fieldcat-col_pos = v_colpos.

wa_fieldcat-fieldname = 'WAERS'.

* >> Início da exclusão: FORM MONTA_FIELDCAT

wa_fieldcat-no_out = 'X'.

* << Fim da exclusão

* >> Início da inclusão: FORM MONTA_FIELDCAT

wa_fieldcat-reptext_ddic = text-t22.

* << Fim da inclusão

append wa_fieldcat to itab_fieldcat.

clear wa_fieldcat.

v_colpos = v_colpos + 1.

wa_fieldcat-col_pos = v_colpos.

wa_fieldcat-fieldname = 'VALOR'.

wa_fieldcat-cfieldname = 'WAERS'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-reptext_ddic = text-t18.

wa_fieldcat-outputlen = '15'.

append wa_fieldcat to itab_fieldcat.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA011I01

...

else.

append itab_zycat031t.

endif.

if v_okcode ne 'BACK' and

/pws/zycat030-status ne 'PS' and

/pws/zycat030-status ne 'EX' and

/pws/zycat030-status ne 'ES'.

read table itab_zycat031t index tc_oper-current_line.

check itab_zycat031t-msg is initial.

* >> Início da inclusão: MODULE ATUALIZA_ITAB_OPER

CHECK NOT /pws/zycat031-data_ini IS INITIAL.

* << Fim da inclusão

v_prazo = sy-datum - /pws/zycat031-data_ini.

if v_prazo > 90.

message i061 with text-i23 /pws/zycat031-operacao.

itab_zycat031t-msg = 'X'.

elseif v_prazo >= 80.

v_prazo = 90 - v_prazo.

message i061 with text-i21 v_prazo

text-i22 /pws/zycat031-operacao.

itab_zycat031t-msg = 'X'.

endif.

...

if /pws/zycat031-data_ini > sy-datum.

message e015 with text-e20.

endif.

endmodule.

module data_fim input.

if /pws/zycat031-data_fim < /pws/zycat031-data_ini.

message e015 with text-e21.

endif.

endmodule.

module verifica_moeda input.

* >> Início da inclusão: MODULE VERIFICA_MOEDA

DATA: wa_tcurc TYPE tcurc.

FIELD-SYMBOLS: <fs_codmo> TYPE ANY.

* << Fim da inclusão

check not /pws/zycat030-waers is initial.

select single * from /pws/zycat044

where waers = /pws/zycat030-waers.

if sy-subrc ne 0.

* >> Início da inclusão: MODULE VERIFICA_MOEDA

SELECT SINGLE * FROM tcurc

INTO wa_tcurc

WHERE waers = /pws/zycat030-waers.

IF sy-subrc EQ 0.

ASSIGN COMPONENT '/PWS/CODMO' OF STRUCTURE wa_tcurc

TO <fs_codmo>.

IF <fs_codmo> IS ASSIGNED AND <fs_codmo> IS INITIAL OR

NOT <fs_codmo> IS ASSIGNED.

MESSAGE e015 WITH text-e24 text-e25.

ENDIF.

ELSE.

* << Fim da inclusão

message e015 with text-e24 text-e25.

* >> Início da inclusão: MODULE VERIFICA_MOEDA

ENDIF.

* << Fim da inclusão

endif.

endmodule.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/ZYCAR021

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: T22

Texto: (5 caracteres)

"Moeda"

Comprimento máximo: 5