CE PLUS - Nota 012975
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 14/05/2013 15:23:53
Data/Hora Última Alteração: 14/05/2013 15:23:53
Descrição da Nota: SISCOSERV - RAS/RVS
Sintoma
Gravação da RAS/RVS de forma que o XML seja enviado automaticamente para a MDIC
Solução
Gravação da RAS/RVS de forma que o XML seja enviado automaticamente para a MDIC
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12975 Data: 14/05/2013 Hora: 15:16:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12975
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00004
Agrupamento : 00154
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12697 - 00001 - 9.0 - 00002 - SISCOSERV - AJUDA DE PESQUISA CODIGO ENQUADRAMENTO / BOTÃO ANEXAR
----------------------------------------------------------------------------------------------------
SISCOSERV - RAS/RVS
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV - RAS/RVS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA011O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA011O01
...
else.
loop at screen.
if screen-name ne 'TB_OP' and
screen-name ne 'TB_RE' and
screen-name ne 'TAB_INFC'.
screen-input = '0'.
modify screen.
endif.
endloop.
endif.
* >> Início da exclusão: MODULE STATUS_0100
loop at screen.
if screen-name = '/PWS/ZYCAT030-PROCESSAMENTO' or
screen-name = 'T_MANUAL'.
screen-active = '0'.
modify screen.
endif.
endloop.
* << Fim da exclusão
perform gos_criar
using
/pws/zycat030-nrseq
changing
gos.
perform gos_publicar
using
gos.
endmodule.
module busca_sequencial output.
if /pws/zycat030-nrseq is initial.
perform busca_sequencial.
* >> Início da exclusão: MODULE BUSCA_SEQUENCIAL
/pws/zycat030-processamento = 'X'.
* << Fim da exclusão
endif.
endmodule.
module atualiza_tela_oper output.
move-corresponding itab_zycat031t to /pws/zycat031.
move: itab_zycat031t-mark to v_mark.
loop at screen.
if ( itab_zycat031t-status = 'EP' or
itab_zycat031t-status = 'EX' or
itab_zycat031t-status = 'ES' ) and
/pws/zycat030-processamento is initial.
...