Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 03/06/2014 10:27:16
Data/Hora Última Alteração: 03/06/2014 10:27:16
Descrição da Nota: SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM
Sintoma
Automatizar a associação das RAS/RVS criadas com origem como a conciliação do fluxo de caixa
(Criar um relatório, com as RAS/RVS que foram criadas com origem. No rel, irá avaliar se estas
origens já estão pagas(tratamento disso já existe). Se sim, trazer no rel, com a coluna da
RAS e RVS já criada para ela e Associar automático).
Solução
Desenvolvimento Concluído.
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13735 Data: 20/02/2014 Hora: 14:14:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13735
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12604 - 00001 - 9.0 - 00002 - SISCOSERV
12671 - 00002 - 9.0 - 00002 - ASSOCIAÇÃO SISCOSERV
13310 - 00003 - 9.0 - 00006 - SISCOSERV - ASSOCIAÇÃO - AUTOMATIZAR PAGAMENTO DO PEDIDO DE COMPR
13314 - 00004 - 9.0 - 00006 - SISCOSERV - ASSOCIAÇÃO RAS BUSCAR PAGAMENTO DAS FATURAS PELO INCO
13366 - 00005 - 9.0 - 00006 - SISCOSERV, NOVO TRATAMENTO PARA CRIAÇÃO DE RAS / RVS, VÁRIOS EMBA
13408 - 00006 - 9.0 - 00006 - ASSOCIAÇÃO SISCOSERV, ASSOCIAR FATURAS COM VALORES PARCIAIS
13659 - 00007 - 9.0 - 00007 - SISCOSERV, DESP.IMPORTAÇÃO, ORDEM DE VENDA, PEDIDO DE COMPRA, NIF
----------------------------------------------------------------------------------------------------
SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCAD032
DTEL /PWS/ZYCAL067
CUAD /PWS/SAPMZYCA012
DYNP /PWS/SAPMZYCA012 0003
DYNP /PWS/SAPMZYCA012 0200
DYNP /PWS/SAPMZYCA012 0004
REPS /PWS/MZYCA012F01
REPS /PWS/MZYCA012I01
REPS /PWS/MZYCA012O01
REPS /PWS/MZYCA012TOP
REPT /PWS/SAPMZYCA012
TRAN /PWS/ZYCA012
RELE F6DK988561 20140220 140333 PWSCB
----------------------------------------------------------------------------------------------------
*** Modificações efetuadas em DOMA /PWS/ZYCAD032
------------------------------------------------
Domínio incluído: /PWS/ZYCAD032
Descrição breve incluída (38 caracteres), idioma: PT
"Siscoserv - Listbox Tipo de Associação"
Classe de desenvolvimento: /PWS/ZYCA
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "A"
Texto incluído, idioma: PT (18 caracteres):
"Associação RAS/RVS"
Incluído valor fixo "B"
Texto incluído, idioma: PT (40 caracteres):
"Associação RAS/RVS com origem - em Massa"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
*** Modificações efetuadas em DTEL /PWS/ZYCAL067
------------------------------------------------
Elemento de dados incluído: /PWS/ZYCAL067
Classe de desenvolvimento: /PWS/ZYCA
Idioma original: PT
Descrição breve incluída: (30 caracteres), idioma: PT
"Siscoserv - Tipo de Associação"
Categoria de dados: Domínio
Domínio: /PWS/ZYCAD032
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Tipo de As"
Comprimento máximo do denominador médio: 18
Denominador médio incluído (18 caracteres), idioma: PT
"Tipo de Associação"
Comprimento máximo do denominador longo: 30
Denominador longo incluído (30 caracteres), idioma: PT
"Siscoserv - Tipo de Associação"
Comprimento máximo do título: 30
Título incluído (30 caracteres), idioma: PT
"Siscoserv - Tipo de Associação"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCA012
*** Criação de Tits.GUI
*** 0003
Programa - /PWS/SAPMZYCA012
Code título - 0003
Título - Criar Associação RAS/RVS - Pagamento/Recebimento
*** 0004
Programa - /PWS/SAPMZYCA012
Code título - 0004
Título - RAS/RVS Pendentes de Associação Siscoserv
*** 0200
Programa - /PWS/SAPMZYCA012
Code título - 0200
Título - RAS/RVS Pendentes de Associação Siscoserv
*** Criação de Tits.GUI
*** CRIAÇÃO NO STATUS GUI - 0003 - Criar Associação RAS/RVS - Pgto / Recbto
*** Barra de menu (não houve alteracao)
*** Barra de botões (não houve alteracao)
*** Teclas de função
-- Código de função ENTE ( BOTÃO DE OK )
Categoria de função Função de aplicação
Texto de função Confirmação
Tecla de Função F8
-- Código de função EXIT ( BOTÃO DE VOLTAR VERDE )
Categoria de função E Comando exit
Texto de função Voltar
-- Código de função EXIT ( BOTÃO DE VOLTAR AMARELO )
Categoria de função E Comando exit
Texto de função Encerrar
-- Código de função EXIT ( BOTÃO DE X VERMELHO )
Categoria de função E Comando exit
Texto de função Cancelar
Nome do Icone ICON_CANCEL
*** CRIAÇÃO NO STATUS GUI - 0004 - RAS/RVS Pendentes de Associação Siscoserv
*** Barra de menu (não houve alteracao)
*** Barra de botões
-- Código de função EXEC
Categoria de função Função de aplicação
Texto de função Executar
Nome do Icone ICON_EXECUTE_OBJECT
Tecla de Função F8
*** Teclas de função
-- Código de função ENTE ( BOTÃO DE OK )
Categoria de função Função de aplicação
Texto de função Confirmação
-- Código de função EXIT ( BOTÃO DE VOLTAR VERDE )
Categoria de função E Comando exit
Texto de função Voltar
-- Código de função EXIT ( BOTÃO DE VOLTAR AMARELO )
Categoria de função E Comando exit
Texto de função Encerrar
-- Código de função EXIT ( BOTÃO DE X VERMELHO )
Categoria de função E Comando exit
Texto de função Cancelar
Nome do Icone ICON_CANCEL
*** CRIAÇÃO NO STATUS GUI - 0200 - RAS/RVS Pendentes de Associação Siscoserv
*** Barra de menu (não houve alteracao)
*** Barra de botões
-- Código de função EXEC
Categoria de função Função de aplicação
Texto de função Executar
Nome do Icone ICON_EXECUTE_OBJECT
Tecla de Função F8
*** Teclas de função
-- Código de função ENTE ( BOTÃO DE OK )
Categoria de função Função de aplicação
Texto de função Confirmação
-- Código de função EXIT ( BOTÃO DE VOLTAR VERDE )
Categoria de função E Comando exit
Texto de função Voltar
-- Código de função EXIT ( BOTÃO DE VOLTAR AMARELO )
Categoria de função E Comando exit
Texto de função Encerrar
-- Código de função EXIT ( BOTÃO DE X VERMELHO )
Categoria de função E Comando exit
Texto de função Cancelar
Nome do Icone ICON_CANCEL
----------------------------------------------------------------------------------------------------
*** SOLICITAR OS 3 ARQUIVOS DE NOTAS AO PRODUTO PW.CE - CAMBIO
*** 13735_SAPMZYCA012_TELA_0003.txt
*** 13735_SAPMZYCA012_TELA_0004.txt
*** 13735_SAPMZYCA012_TELA_0200.txt
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA012 0003
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0003
* >> Início da inclusão:
process before output.
module status_0003.
process after input.
module exit_command at exit-command.
module user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA012 0200
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0200
* >> Início da inclusão:
process before output.
module status_0200.
module ajusta_tc.
loop at itab_zycat031_ass cursor tc_associacao-current_line.
module atualiza_tela_associacao.
endloop.
process after input.
loop at itab_zycat031_ass.
module atualiza_itab_associacao.
endloop.
module exit_command at exit-command.
module user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA012 0004
* >> Início da inclusão:
module exit_command at exit-command.
call subscreen ss_criterio.
module user_command.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012F01
...
wa_zycat039r-valor = /pws/zycat031-valor.
perform atualiza_itab tables itab_zycat039_r
using wa_zycat039r
tc_remessa.
endif.
endif.
perform calcula_saldo.
endif.
if /pws/zycat030-tp_origem = 'OV' and
v_exibe is initial.
* >> Início da exclusão: FORM SELECIONA_DADOS_MODIF
perform busca_ordem_venda using /pws/zycat031-nrseq_origem.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODIF
perform busca_ordem_venda using /pws/zycat031-nrseq_origem
changing v_ravs_pago.
* << Fim da inclusão
perform calcula_saldo.
endif.
if /pws/zycat030-tp_origem = 'PC'.
* >> Início da exclusão: FORM SELECIONA_DADOS_MODIF
perform busca_doc_pedido using /pws/zycat030-origem
/pws/zycat031-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_MODIF
perform busca_doc_pedido using wa_zycat030-origem
/pws/zycat031-ebelp
changing v_ravs_pago.
* << Fim da inclusão
perform calcula_saldo.
endif.
if not itab_zycat039_r[] is initial or
( itab_zycat039_r[] is initial and
itab_zycat039_c[] is initial and
itab_zycat039_f[] is initial and
itab_zycat039_fe[] is initial and
itab_zycat039_o[] is initial ).
v_dynnr = '0101'.
ts_assoc-activetab = 'TB_REM'.
...
...
when 'TB_FEXP'.
v_dynnr = '0107'.
ts_assoc-activetab = v_okcode.
clear v_okcode.
when 'SAVE'.
perform salva_associacao.
when 'MODIF'.
clear v_exibe.
perform verifica_bloqueio.
if v_exibe is initial and /pws/zycat030-tp_origem eq 'OV'.
* >> Início da exclusão: FORM USER_COMMAND_0100
perform busca_ordem_venda using /pws/zycat031-nrseq_origem.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0100
perform busca_ordem_venda using /pws/zycat031-nrseq_origem
changing v_ravs_pago.
* << Fim da inclusão
perform calcula_saldo.
clear v_okcode.
endif.
when 'FILE_LOC'.
clear v_path.
call screen 0104 starting at 25 10.
when 'LOG'.
perform executa_log.
when 'LOG_TRILHA'.
perform log_trilha using sy-repid
...
...
p_wa_zycat039-dt_pg_rec is initial.
perform valida_exportacao changing p_wa_zycat039
p_pago
v_bukext
v_bukrs.
endif.
if ( not v_bukrs is initial and
v_bukrs ne /pws/zycat030-bukrs ) or
( not p_wa_zycat039-moeda is initial and
p_wa_zycat039-moeda ne /pws/zycat030-waers ).
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i10 text-i11.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
if ( not v_bukext is initial and
v_bukext ne /pws/zycat030-bukrs_ext ).
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i21 text-i22.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
endform.
form user_command_0102.
case v_okcode.
...
...
select single nrseqce
from /pws/zycit094
into v_nrseqce
where nrseq = p_wa_zycat039-fat_imp.
if sy-subrc eq 0.
perform valida_tipo_fatura
using p_wa_zycat039-fat_imp
v_nrseqce
changing v_tpfatura p_bukext v_nrseqpgfat p_pago.
else.
* >> Início da inclusão: FORM VALIDA_FATIMP
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_FATIMP
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
select single bukrs waers vlme nrfat dtpagto
from /pws/zycbt119
into (p_bukrs, p_wa_zycat039-moeda, p_wa_zycat039-valor,
p_wa_zycat039-num_nf, p_wa_zycat039-dt_pg_rec)
where nrseq = v_nrseqpgfat.
if sy-subrc ne 0 or p_wa_zycat039-dt_pg_rec is initial.
* >> Início da inclusão: FORM VALIDA_FATIMP
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i13 p_wa_zycat039-fat_imp text-i09.
* >> Início da inclusão: FORM VALIDA_FATIMP
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
p_wa_zycat039-valor = /pws/zycat031-saldo.
clear: v_nrboleto,
wa_zycbt031_aux,
...
...
where nrseq = wa_zycbt031_aux-nrseq
and mdcorresp = wa_zycbt031_aux-mdcorresp
and nrcorresp = wa_zycbt031_aux-nrcorresp.
select single *
from /pws/zycbt134
into wa_zycbt134_aux
where mdcorresp = 'IP'
and nrseq = wa_zycbt031_aux-nrseq.
v_bcoccme = wa_zycbt134_aux-bco_ccme.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_FATIMP
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i13 v_nrseqpgfat text-i09.
* >> Início da inclusão: FORM VALIDA_FATIMP
endif.
* << Fim da inclusão
clear p_pago.
else.
p_wa_zycat039-vme = p_wa_zycat039-valor.
perform busca_parametros_campos using 'FI'
changing p_wa_zycat039-dt_pg_rec.
endif.
...
...
wa_zycbt006 type ty_zycbt006,
v_vlavinc type /pws/zycbt017-vlavinc,
v_vlpago type /pws/zycbt006-vlme.
check /pws/zycat030-tp_origem ne 'PT'.
select nrinvoic nrparcf gsberf bukrs
kunag waers vlavinc vlcomis parvw
from /pws/zycbt017
into table itab_zycbt017
where nrinvoic = p_wa_zycat039-fat_exp.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i13 text-i09.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
select nrinvoic nrparcf gsberf dtpagext vlme
dtpagto
from /pws/zycbt006
...
...
v_vlavinc = v_vlavinc - wa_zycbt017-vlcomis.
endif.
endloop.
move: wa_zycbt017-bukrs to p_bukrs,
wa_zycbt017-waers to p_wa_zycat039-moeda,
wa_zycbt017-kunag to p_bukext.
loop at itab_zycbt006 into wa_zycbt006.
v_vlpago = v_vlpago + wa_zycbt006-vlme.
endloop.
if v_vlpago < v_vlavinc.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i13 text-i09.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
endif.
* << Fim da inclusão
clear: p_pago, /pws/zycat030-origem.
exit.
endif.
if wa_zycat030-origem is initial.
p_wa_zycat039-valor = v_vlpago.
endif.
...
...
read table itab_zycbt006 into wa_zycbt006 index 1.
p_wa_zycat039-dt_pg_rec = wa_zycbt006-dtpagext.
elseif wa_zycat048-valor = 'DTPAGTO'.
sort itab_zycbt006 by dtpagto descending.
read table itab_zycbt006 into wa_zycbt006 index 1.
p_wa_zycat039-dt_pg_rec = wa_zycbt006-dtpagto.
endif.
endif.
endif.
if p_wa_zycat039-dt_pg_rec is initial.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i13 p_wa_zycat039-fat_exp text-i09.
* >> Início da inclusão: FORM VALIDA_EXPORTACAO
endif.
* << Fim da inclusão
clear p_pago.
endif.
endform.
form user_command_0107.
case v_okcode.
when 'MALL'.
...
...
message i061 with text-i06 itab_zycat039_f-fat_comis
text-i07.
else.
delete itab_zycat039_fe.
endif.
endloop.
clear v_okcode.
endcase.
endform.
form busca_doc_pedido using p_ebeln
* >> Início da exclusão: FORM BUSCA_DOC_PEDIDO
p_ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DOC_PEDIDO
p_ebelp
changing p_pago.
* << Fim da inclusão
data: itab_ekbe type table of ty_ekbe,
wa_ekbe type ty_ekbe,
itab_awkey type table of ty_awkey,
wa_awkey type bkpf-awkey,
itab_bkpf type table of ty_bkpf,
itab_bsak type table of ty_bsak,
itab_total type table of ty_total,
wa_bsak type ty_bsak,
wa_total type ty_total,
* >> Início da exclusão: FORM BUSCA_DOC_PEDIDO
v_valor type /pws/zycat039-valor.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DOC_PEDIDO
v_valor type /pws/zycat039-valor,
v_val_aux type /pws/zycat039-valor.
clear: p_pago,
v_val_aux.
* << Fim da inclusão
select ebeln gjahr belnr bewtp shkzg
from ekbe
into table itab_ekbe
where ebeln = p_ebeln
and ebelp = p_ebelp.
delete itab_ekbe where bewtp ne 'Q'.
delete itab_ekbe where shkzg ne 'S'.
if not itab_ekbe[] is initial.
loop at itab_ekbe into wa_ekbe.
concatenate wa_ekbe-belnr wa_ekbe-gjahr
...
...
endloop.
loop at itab_total into wa_total.
select sum( valor )
from /pws/zycat039
into v_valor
where ( nrseq ne /pws/zycat031-nrseq
or operacao ne /pws/zycat031-operacao )
and fatura = wa_total-augbl.
wa_total-wrbtr = wa_total-wrbtr - v_valor.
check wa_total-wrbtr > 0.
* >> Início da exclusão: FORM BUSCA_DOC_PEDIDO
move: wa_total-augbl to wa_zycat039o-fatura,
wa_total-augdt to wa_zycat039o-dt_pg_rec,
wa_total-waers to wa_zycat039o-moeda,
wa_total-wrbtr to wa_zycat039o-valor.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DOC_PEDIDO
move: /pws/zycat031-nrseq to wa_zycat039o-nrseq,
/pws/zycat031-operacao to wa_zycat039o-operacao,
wa_total-augbl to wa_zycat039o-fatura,
wa_total-augdt to wa_zycat039o-dt_pg_rec,
wa_total-waers to wa_zycat039o-moeda,
wa_total-wrbtr to wa_zycat039o-valor.
if v_dom_tporigem eq 'B'.
if wa_total-waers eq itab_zycat031_ass-waers.
v_val_aux = v_val_aux + wa_total-wrbtr.
if v_val_aux le itab_zycat031_ass-valor.
append wa_zycat039o to itab_zycat039_ass.
p_pago = 'X'.
endif.
endif.
else.
* << Fim da inclusão
append wa_zycat039o to itab_zycat039_o.
* >> Início da inclusão: FORM BUSCA_DOC_PEDIDO
endif.
* << Fim da inclusão
clear wa_zycat039o.
endloop.
endif.
endif.
endif.
endform.
...
...
where inco1 = v_inco1
and land1 = 'BR'.
if /pws/zycat030-tp_origem = 'EI'.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseqce = p_nrseqce
and tpfatura = '01'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
elseif /pws/zycat030-tp_origem = 'FI'.
if v_inco1_ci = 'FOB' or
v_inco1_ci = 'C+I'.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseqce = p_nrseqce
and tpfatura = '02'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
else.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
...
...
and tpfatura = '02'
and eliminado = ' '.
if sy-subrc ne 0.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseqce = p_nrseqce
and tpfatura = '01'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
endif.
endif.
elseif /pws/zycat030-tp_origem = 'SI'.
if v_inco1_ci = 'FOB' or
v_inco1_ci = 'C&F'.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseqce = p_nrseqce
and tpfatura = '03'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
else.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
...
...
and tpfatura = '03'
and eliminado = ' '.
if sy-subrc ne 0.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseqce = p_nrseqce
and tpfatura = '01'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
endif.
endif.
elseif /pws/zycat030-tp_origem = 'DI'.
select single tpfatura lifnr nrseq_pgfat
from /pws/zycit006
into (p_tpfatura, p_bukext, p_nrseqpgfat)
where nrseq = /pws/zycat031-despach
and nrseqce = p_nrseqce
and tpfatura = '04'
and eliminado = ' '.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-i14.
* >> Início da inclusão: FORM VALIDA_TIPO_FATURA
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
endif.
endform.
form busca_saldo_bseg.
...
...
where nrseq = wa_zycbt031_aux-nrseq
and mdcorresp = wa_zycbt031_aux-mdcorresp
and nrcorresp = wa_zycbt031_aux-nrcorresp.
select single *
from /pws/zycbt134
into wa_zycbt134_aux
where mdcorresp = 'EP'
and nrseq = v_nrboleto.
if sy-subrc ne 0.
clear: p_tipo_pt.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO_PT
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i12 text-i11.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO_PT
endif.
* << Fim da inclusão
exit.
endif.
perform busca_parametros_campos using 'PT'
changing p_dtcredpr.
select single *
from /pws/zycat039
...
...
into wa_zycat039
where nrseq ne /pws/zycat039-nrseq
and remessa = p_nrseqrem
and nrpres = wa_zycat031-nrseq_origem
and despach = wa_zycat031-despach
and tpdesp = wa_zycat031-tpdesp
and moeda = wa_zycat031-waers.
endif.
if sy-subrc eq 0.
clear: p_tipo_pt.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO_PT
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-e24 text-i11.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO_PT
endif.
* << Fim da inclusão
exit.
endif.
endform.
form valida_comissao_2 changing p_wa_zycat039 structure /pws/zycat039
p_pago
p_bukext
...
...
data: v_nrseq type /pws/zycbt031-nrseq,
v_bcoccme type /pws/zycbt134-bco_ccme.
data: wa_zycbt031 type /pws/zycbt031.
select single * from /pws/zycat039
into wa_zycat039
where nrseq ne /pws/zycat039-nrseq
and fat_comis = p_wa_zycat039-fat_comis
and lifnr = p_wa_zycat039-lifnr
and dtvencto = p_wa_zycat039-dtvencto. "#EC CI_NOFIRST
if sy-subrc eq 0.
* >> Início da inclusão: FORM VALIDA_COMISSAO_2
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-e09 text-i11.
* >> Início da inclusão: FORM VALIDA_COMISSAO_2
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
select single bukrs nfnum waers
from /pws/zycet002
into (p_bukrs,
...
...
where nrseq = wa_zycbt031_aux-nrseq
and mdcorresp = wa_zycbt031_aux-mdcorresp
and nrcorresp = wa_zycbt031_aux-nrcorresp.
select single *
from /pws/zycbt134
into wa_zycbt134_aux
where mdcorresp = 'EL'
and nrseq = v_nrboleto.
v_bcoccme = wa_zycbt134_aux-bco_ccme.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_COMISSAO_2
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i13 p_wa_zycat039-fat_comis
text-i09.
* >> Início da inclusão: FORM VALIDA_COMISSAO_2
endif.
* << Fim da inclusão
clear p_pago.
else.
p_bukext = wa_zycbt031-lifnr.
if sy-subrc eq 0.
p_wa_zycat039-vme = p_wa_zycat039-valor.
...
...
v_bcoccme type /pws/zycbt134-bco_ccme,
v_tpoper type /pws/zycbt124-tpoper.
select single * from /pws/zycat039
into wa_zycat039
where nrseq ne /pws/zycat039-nrseq
and remessa = p_wa_zycat039-remessa "#EC CI_NOFIRST
and despach = p_wa_zycat039-despach
and tpdesp = p_wa_zycat039-tpdesp
and nrpres = p_wa_zycat039-nrpres.
if sy-subrc eq 0.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i015 with text-e07 text-i11.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
select single bukrs recrem nrfat tpoper
from /pws/zycbt124
into (p_bukrs, p_bukext, p_wa_zycat039-num_nf, v_tpoper)
where nrseq = p_wa_zycat039-remessa.
if sy-subrc ne 0.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i08 p_wa_zycat039-remessa
text-i09.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
endif.
* << Fim da inclusão
clear p_pago.
exit.
endif.
clear: v_nrboleto,
wa_zycbt031_aux,
...
...
p_wa_zycat039-vme = p_wa_zycat039-valor.
endif.
if v_tpoper = 'P'.
perform busca_parametros_campos using 'RP'
changing p_wa_zycat039-dt_pg_rec.
elseif v_tpoper = 'R'.
perform busca_parametros_campos using 'RR'
changing p_wa_zycat039-dt_pg_rec.
endif.
else.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i12 text-i11.
* >> Início da inclusão: FORM VALIDA_REMESSA_2
endif.
* << Fim da inclusão
clear p_pago.
endif.
endform.
form busca_parametros_campos
using p_process type /pws/zycat048-processo
changing p_wa_zycat039-dt_pg_rec type /pws/zycat039-dt_pg_rec.
...
...
endcase.
elseif p_process = 'OV'.
case wa_zycat048-valor.
when 'AUGDT'.
p_wa_zycat039-dt_pg_rec = wa_bsad-augdt.
endcase.
endif.
endcase.
endloop.
endform.
* >> Início da exclusão: FORM BUSCA_ORDEM_VENDA
form busca_ordem_venda using p_fatura.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
form busca_ordem_venda using p_fatura
changing p_pago.
* << Fim da inclusão
data: v_vbeln type vbrp-vbeln,
v_augdt type bsad-augdt,
itab_bsad type table of ty_bsad.
select single vbeln
from vbrp
into v_vbeln
where aubel = p_fatura.
if sy-subrc eq 0.
select vbeln augdt augbl waers gjahr sum( wrbtr )
from bsad
into table itab_bsad
where vbeln = v_vbeln
group by vbeln augdt augbl waers gjahr.
endif.
clear: wa_zycat039o.
if itab_bsad[] is initial.
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
if v_dom_tporigem ne 'B'.
* << Fim da inclusão
message i061 with text-i13 text-i09.
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
endif.
clear p_pago.
* << Fim da inclusão
exit.
endif.
loop at itab_bsad into wa_bsad.
read table itab_zycat039_o
into wa_zycat039o with key fatura = wa_bsad-augbl
gjahr = wa_bsad-gjahr.
if sy-subrc ne 0.
clear wa_zycat039o.
* >> Início da exclusão: FORM BUSCA_ORDEM_VENDA
move: wa_bsad-augbl to wa_zycat039o-fatura,
wa_bsad-augdt to wa_zycat039o-dt_pg_rec,
wa_bsad-waers to wa_zycat039o-moeda,
wa_bsad-wrbtr to wa_zycat039o-valor.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
move: /pws/zycat031-nrseq to wa_zycat039o-nrseq,
/pws/zycat031-operacao to wa_zycat039o-operacao,
wa_bsad-augbl to wa_zycat039o-fatura,
wa_bsad-augdt to wa_zycat039o-dt_pg_rec,
wa_bsad-waers to wa_zycat039o-moeda,
wa_bsad-wrbtr to wa_zycat039o-valor,
wa_bsad-gjahr to wa_zycat039o-gjahr.
* << Fim da inclusão
perform busca_parametros_campos using 'OV'
changing wa_zycat039o-dt_pg_rec.
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
if v_dom_tporigem eq 'B'.
append wa_zycat039o to itab_zycat039_ass.
else.
* << Fim da inclusão
append wa_zycat039o to itab_zycat039_o.
endif.
* >> Início da inclusão: FORM BUSCA_ORDEM_VENDA
endif.
* << Fim da inclusão
endloop.
endform.
* >> Início da inclusão:
form user_command_0003.
case v_okcode.
when 'ENTE'.
clear v_okcode.
if v_dom_tporigem = 'A'.
call screen '0001'.
elseif v_dom_tporigem = 'B'.
call screen '0004'.
endif.
endcase.
endform.
form user_command_0004.
case v_okcode.
when 'EXEC'.
perform busca_ras_rvs_associacao.
endcase.
endform.
form user_command_0200.
case v_okcode.
when 'MALL'.
loop at itab_zycat031_ass.
itab_zycat031_ass-mark = 'X'.
modify itab_zycat031_ass.
endloop.
clear v_okcode.
when 'DMALL'.
loop at itab_zycat031_ass.
clear itab_zycat031_ass-mark.
modify itab_zycat031_ass.
endloop.
clear v_okcode.
when 'ELIM'.
loop at itab_zycat031_ass where mark = 'X'.
delete itab_zycat031_ass.
endloop.
clear v_okcode.
when 'EXEC'.
perform processar_associacao_massa.
endcase.
endform.
form busca_ras_rvs_associacao.
data: v_tabix_ass type sy-tabix,
wa_zycat039aux type /pws/zycat039,
v_tipo_pt(3) type c,
v_dtcredpr type /pws/zycbt031-dtcredpr,
v_nrseqrem type /pws/zycet033-nrseqrem,
v_embarque type /pws/zycet033-nrseq.
data: begin of itab_zycat039_aux occurs 0,
nrseq like /pws/zycat039-nrseq,
operacao like /pws/zycat039-operacao,
end of itab_zycat039_aux.
if so_empr[] is initial and
so_nrseq[] is initial and
so_oper[] is initial and
so_dtini[] is initial and
so_dtfim[] is initial and
so_modo[] is initial.
message i015 with text-e25.
exit.
endif.
if p_ras is initial and
p_rvs is initial.
message i015 with text-e26.
exit.
endif.
if p_ravspg is initial and
p_ravsnp is initial.
message i015 with text-e27.
exit.
endif.
clear: itab_zycat030_ass,
itab_zycat031_ass,
itab_zycat039_ass.
refresh: itab_zycat030_ass,
itab_zycat031_ass,
itab_zycat039_ass.
select *
from /pws/zycat031
into table itab_zycat031_ass
where nrseq in so_nrseq
and operacao in so_oper
and data_ini in so_dtini
and data_fim in so_dtfim
and modo_prest in so_modo
and status eq 'PS'
and saldo gt 0.
select nrseq operacao
from /pws/zycat039
into table itab_zycat039_aux
for all entries in itab_zycat031_ass
where nrseq = itab_zycat031_ass-nrseq
and operacao = itab_zycat031_ass-operacao.
select *
from /pws/zycat030
into table itab_zycat030_ass
for all entries in itab_zycat031_ass
where nrseq = itab_zycat031_ass-nrseq
and bukrs in so_empr.
loop at itab_zycat031_ass.
v_tabix_ass = sy-tabix.
read table itab_zycat039_aux
with key nrseq = itab_zycat031_ass-nrseq
operacao = itab_zycat031_ass-operacao.
if sy-subrc eq 0.
delete itab_zycat031_ass index v_tabix_ass.
else.
read table itab_zycat030_ass
with key nrseq = itab_zycat031_ass-nrseq.
if sy-subrc eq 0.
itab_zycat031_ass-bukrs = itab_zycat030_ass-bukrs.
itab_zycat031_ass-tp_processo = itab_zycat030_ass-tp_processo.
itab_zycat031_ass-bukrs_ext = itab_zycat030_ass-bukrs_ext.
itab_zycat031_ass-tp_origem = itab_zycat030_ass-tp_origem.
if itab_zycat031_ass-nrseq_origem is initial.
itab_zycat031_ass-nrseq_origem = itab_zycat030_ass-origem.
endif.
modify itab_zycat031_ass index v_tabix_ass.
else.
delete itab_zycat031_ass index v_tabix_ass.
endif.
endif.
endloop.
delete itab_zycat031_ass where tp_origem is initial.
if p_ras is initial.
delete itab_zycat031_ass where tp_processo eq 'A'.
endif.
if p_rvs is initial.
delete itab_zycat031_ass where tp_processo eq 'V'.
endif.
if itab_zycat031_ass[] is initial.
message i015 with text-e28.
exit.
endif.
select * from /pws/zycat048
into table itab_zycat048.
clear itab_zycat039_ass.
loop at itab_zycat031_ass.
clear: wa_zycat039aux,
wa_zycat030,
/pws/zycat030,
/pws/zycat031.
v_ravs_pago = 'X'.
v_tabix_ass = sy-tabix.
read table itab_zycat030_ass
into /pws/zycat030 with key nrseq = itab_zycat031_ass-nrseq.
move-corresponding itab_zycat031_ass to /pws/zycat031.
move-corresponding /pws/zycat030 to wa_zycat030.
if wa_zycat030-origem is initial.
wa_zycat030-origem = /pws/zycat031-nrseq_origem.
endif.
itab_zycat031_ass-pagamento = 'N'.
wa_zycat039aux-nrseq = itab_zycat031_ass-nrseq.
wa_zycat039aux-operacao = itab_zycat031_ass-operacao.
if itab_zycat031_ass-tp_origem = 'FI' or
itab_zycat031_ass-tp_origem = 'SI' or
itab_zycat031_ass-tp_origem = 'EI' or
itab_zycat031_ass-tp_origem = 'DI'.
wa_zycat039aux-fat_imp = itab_zycat031_ass-nrseq_origem.
elseif itab_zycat031_ass-tp_origem = 'FE' or
itab_zycat031_ass-tp_origem = 'SE' or
itab_zycat031_ass-tp_origem = 'EE'.
wa_zycat039aux-fat_exp = itab_zycat031_ass-nrseq_origem.
wa_zycat039aux-valor = itab_zycat031_ass-valor.
elseif itab_zycat031_ass-tp_origem = 'CA'.
select single dtvencto
into wa_zycat039aux-dtvencto
from /pws/zycet010
where nrseq = itab_zycat031_ass-origem
and lifnr = itab_zycat031_ass-bukrs_ext.
wa_zycat039aux-fat_comis = itab_zycat031_ass-nrseq_origem.
wa_zycat039aux-lifnr = itab_zycat031_ass-bukrs_ext.
wa_zycat039aux-valor = itab_zycat031_ass-valor.
wa_zycat039aux-moeda = itab_zycat031_ass-waers.
elseif itab_zycat031_ass-tp_origem = 'PT'.
perform verifica_associacao_pt using itab_zycat031_ass-nrseq
itab_zycat031_ass-operacao
changing v_tipo_pt
v_dtcredpr
v_nrseqrem
v_embarque.
if v_tipo_pt eq 'EXP'.
wa_zycat039aux-fat_exp = v_embarque.
elseif v_tipo_pt eq 'REM'.
wa_zycat039aux-remessa = v_nrseqrem.
endif.
wa_zycat039aux-nrpres = itab_zycat031_ass-nrseq_origem.
wa_zycat039aux-despach = itab_zycat031_ass-despach.
wa_zycat039aux-tpdesp = itab_zycat031_ass-tpdesp.
wa_zycat039aux-moeda = itab_zycat031_ass-waers.
wa_zycat039aux-valor = itab_zycat031_ass-valor.
wa_zycat039aux-dt_pg_rec = v_dtcredpr.
clear v_ravs_pago.
if v_tipo_pt eq 'EXP' and not wa_zycat039aux-fat_exp is initial.
v_ravs_pago = 'X'.
itab_zycat031_ass-pagamento = 'S'.
elseif v_tipo_pt eq 'REM'
and not wa_zycat039aux-remessa is initial.
perform verifica_associacao changing wa_zycat039aux
v_ravs_pago.
if v_ravs_pago = 'X'.
itab_zycat031_ass-pagamento = 'S'.
endif.
endif.
elseif itab_zycat031_ass-tp_origem = 'OV'.
wa_zycat039aux-fatura = itab_zycat031_ass-nrseq_origem.
perform busca_ordem_venda using wa_zycat039aux-fatura
changing v_ravs_pago.
if v_ravs_pago = 'X'.
itab_zycat031_ass-pagamento = 'S'.
endif.
elseif itab_zycat031_ass-tp_origem = 'PC'.
perform busca_doc_pedido using itab_zycat031_ass-nrseq_origem
itab_zycat031_ass-ebelp
changing v_ravs_pago.
if v_ravs_pago = 'X'.
itab_zycat031_ass-pagamento = 'S'.
endif.
endif.
if itab_zycat031_ass-tp_origem ne 'PT' and
itab_zycat031_ass-tp_origem ne 'OV' and
itab_zycat031_ass-tp_origem ne 'PC'.
perform verifica_associacao changing wa_zycat039aux
v_ravs_pago.
if v_ravs_pago = 'X'.
itab_zycat031_ass-pagamento = 'S'.
endif.
endif.
modify itab_zycat031_ass index v_tabix_ass transporting pagamento.
if v_ravs_pago = 'X' and
itab_zycat031_ass-tp_origem ne 'OV' and
itab_zycat031_ass-tp_origem ne 'PC'.
append wa_zycat039aux to itab_zycat039_ass.
endif.
endloop.
if p_ravspg is initial.
delete itab_zycat031_ass where pagamento eq 'S'.
endif.
if p_ravsnp is initial.
delete itab_zycat031_ass where pagamento eq 'N'.
endif.
clear v_okcode.
call screen '0200'.
endform.
form atualiza_tela_assoc using
p_itab_zycat031_ass structure itab_zycat031_ass
p_wa_zycat039a structure itab_zycat031_ass.
move-corresponding p_itab_zycat031_ass to p_wa_zycat039a.
move p_wa_zycat039a-mark to v_mark.
endform.
form atualiza_itab_assoc
tables p_itab_zycat031_ass structure itab_zycat031_ass
using p_wa_zycat031a structure itab_zycat031_ass
p_tc type cx_tableview.
move-corresponding p_wa_zycat031a to p_itab_zycat031_ass.
move: v_mark to p_itab_zycat031_ass-mark.
if not p_tc-current_line is initial.
modify p_itab_zycat031_ass index p_tc-current_line.
endif.
endform.
form processar_associacao_massa.
data: v_processo type /pws/zycat038-processo,
v_val_total type /pws/zycat031-valor,
v_tabix type sy-tabix,
v_answer.
clear itab_zycat039.
read table itab_zycat031_ass with key mark = 'X'.
if sy-subrc ne 0.
message i015 with text-e29.
exit.
endif.
read table itab_zycat031_ass with key mark = 'X'
pagamento = 'N'.
if sy-subrc eq 0.
message i015 with text-e30 text-e31.
exit.
endif.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'N'
textline1 = text-i23
titel = text-i01
importing
answer = v_answer
exceptions
others = 1.
if sy-subrc eq 0.
if v_answer eq 'J'.
loop at itab_zycat031_ass where mark = 'X'.
v_tabix = sy-tabix.
clear: v_val_total,
wa_zycat039.
loop at itab_zycat039_ass into wa_zycat039
where nrseq = itab_zycat031_ass-nrseq
and operacao = itab_zycat031_ass-operacao.
move: itab_zycat031_ass-re to wa_zycat039-re,
itab_zycat031_ass-di to wa_zycat039-di.
v_val_total = v_val_total + wa_zycat039-valor.
append wa_zycat039 to itab_zycat039.
endloop.
itab_zycat031_ass-saldo = itab_zycat031_ass-saldo - v_val_total.
modify itab_zycat031_ass index v_tabix.
read table itab_zycat030_ass
with key nrseq = itab_zycat031_ass-nrseq.
if sy-subrc eq 0.
itab_zycat030_ass-saldo =
itab_zycat030_ass-saldo - v_val_total.
modify itab_zycat030_ass index sy-tabix.
endif.
endloop.
endif.
endif.
check not itab_zycat039[] is initial.
loop at itab_zycat039 into wa_zycat039.
insert /pws/zycat039 from wa_zycat039.
move /pws/zycat039-nrseq to v_identificador.
move-corresponding wa_zycat039 to /pws/zycat039.
perform carrega_log using '/PWS/ZYCAT039'
'I'
sy-tcode
v_funcionalidade
v_identificador.
read table itab_zycat030_ass
into /pws/zycat030 with key nrseq = wa_zycat039-nrseq.
if /pws/zycat030-tp_processo = 'V'.
v_processo = 'IRF'.
elseif /pws/zycat030-tp_processo = 'A'.
v_processo = 'IRP'.
endif.
call function '/PWS/ZYCA_GERA_XML_SISCOSERV'
exporting
i_processo = v_processo
i_zycat030 = /pws/zycat030
i_zycat039 = wa_zycat039
i_path = v_path
exceptions
xml_error = 1.
endloop.
clear i_result.
refresh i_result.
loop at itab_zycat031_ass where mark = 'X'.
v_tabix = sy-tabix.
update /pws/zycat031
set saldo = itab_zycat031_ass-saldo
where nrseq = itab_zycat031_ass-nrseq
and operacao = itab_zycat031_ass-operacao.
read table itab_zycat030_ass
with key nrseq = itab_zycat031_ass-nrseq.
if sy-subrc eq 0.
update /pws/zycat030
set saldo = itab_zycat030_ass-saldo
where nrseq = itab_zycat031_ass-nrseq.
endif.
v_funcionalidade = '/PWS/SAPMZYCA012'.
move itab_zycat031_ass-nrseq to v_identificador.
perform carrega_log using '/PWS/ZYCAT030'
'U'
sy-tcode
v_funcionalidade
v_identificador.
perform carrega_log using '/PWS/ZYCAT031'
'U'
sy-tcode
v_funcionalidade
v_identificador.
clear i_result.
i_result-tp_processo = itab_zycat031_ass-tp_processo.
i_result-nrseq_origem = itab_zycat031_ass-nrseq_origem.
i_result-waers = itab_zycat031_ass-waers.
i_result-valor = itab_zycat031_ass-valor.
i_result-saldo = itab_zycat031_ass-saldo.
i_result-nrseq = itab_zycat031_ass-nrseq.
i_result-operacao = itab_zycat031_ass-operacao.
i_result-tp_origem = itab_zycat031_ass-tp_origem.
i_result-re = itab_zycat031_ass-re.
i_result-di = itab_zycat031_ass-di.
i_result-status = itab_zycat031_ass-status.
append i_result.
delete itab_zycat031_ass index v_tabix.
endloop.
commit work.
clear v_okcode.
message s015 with text-s02.
perform e04_comment_build using gt_list_top_of_page[].
perform f_fieldcat_fill.
perform monta_rel_alv.
endform.
form e04_comment_build using e04_lt_top_of_page type slis_t_listheader.
data ls_line type slis_listheader.
clear e04_lt_top_of_page.
refresh e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'H'.
ls_line-info = text-005.
append ls_line to e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'S'.
ls_line-info = text-004.
append ls_line to e04_lt_top_of_page.
endform.
form f_fieldcat_fill.
data i type i.
clear i_fieldcat.
refresh i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'TP_PROCESSO'.
afield-ref_fieldname = 'TP_PROCESSO'.
afield-ref_tabname = '/PWS/ZYCAT030'.
afield-outputlen = 3.
afield-reptext_ddic = text-006.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'NRSEQ_ORIGEM'.
afield-ref_fieldname = 'NRSEQ_ORIGEM'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 15.
afield-hotspot = 'X'.
afield-reptext_ddic = text-007.
afield-seltext_s = text-007.
afield-seltext_m = text-007.
afield-seltext_l = text-007.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'WAERS'.
afield-ref_fieldname = 'WAERS'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 6.
afield-reptext_ddic = text-008.
afield-seltext_s = text-008.
afield-seltext_m = text-008.
afield-seltext_l = text-008.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'VALOR'.
afield-ref_fieldname = 'VALOR'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 17.
afield-cfieldname = 'WAERS'.
afield-reptext_ddic = text-009.
afield-seltext_s = text-009.
afield-seltext_m = text-009.
afield-seltext_l = text-009.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'SALDO'.
afield-ref_fieldname = 'SALDO'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 17.
afield-cfieldname = 'WAERS'.
afield-reptext_ddic = text-010.
afield-seltext_s = text-010.
afield-seltext_m = text-010.
afield-seltext_l = text-010.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'NRSEQ'.
afield-ref_fieldname = 'NRSEQ'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-hotspot = 'X'.
afield-reptext_ddic = text-011.
afield-seltext_s = text-011.
afield-seltext_m = text-011.
afield-seltext_l = text-011.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'OPERACAO'.
afield-ref_fieldname = 'OPERACAO'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-reptext_ddic = text-012.
afield-seltext_s = text-012.
afield-seltext_m = text-012.
afield-seltext_l = text-012.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'TP_ORIGEM'.
afield-ref_fieldname = 'TP_ORIGEM'.
afield-ref_tabname = '/PWS/ZYCAT030'.
afield-outputlen = 15.
afield-reptext_ddic = text-013.
afield-seltext_s = text-013.
afield-seltext_m = text-013.
afield-seltext_l = text-013.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RE'.
afield-ref_fieldname = 'RE'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-reptext_ddic = text-014.
afield-seltext_s = text-014.
afield-seltext_m = text-014.
afield-seltext_l = text-014.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'DI'.
afield-ref_fieldname = 'DI'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-reptext_ddic = text-015.
afield-seltext_s = text-015.
afield-seltext_m = text-015.
afield-seltext_l = text-015.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'STATUS'.
afield-ref_fieldname = 'STATUS'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 15.
afield-reptext_ddic = text-016.
afield-seltext_s = text-016.
afield-seltext_m = text-016.
afield-seltext_l = text-016.
append afield to i_fieldcat.
endform.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = gt_list_top_of_page.
endform.
form monta_rel_alv.
call function '/PWS/ZYGL_GERA_RELATORIO_ALV'
exporting
v_program = '/PWS/SAPMZYCA012'
v_pf_status = ' '
v_user_command = 'PROCESSA_ALV'
v_top_of_page = 'TOP_OF_PAGE'
v_variant = g_variant
v_marc = 'X'
v_selinfo = 'X'
v_zebra = 'X'
v_otimizado = ' '
tables
i_fieldcat = i_fieldcat
t_data = i_result.
endform.
form processa_alv using ucomm like sy-ucomm
selfield type slis_selfield.
case ucomm.
when 'BEAN'.
clear i_result.
read table i_result index selfield-tabindex.
if sy-subrc = 0.
replace '1-' with ' ' into selfield-sel_tab_field.
condense selfield-sel_tab_field no-gaps.
feld = selfield-sel_tab_field.
if feld = 'NRSEQ'.
authority-check object 'S_TCODE' id 'TCD'
field '/PWS/ZYCA011_E'.
if sy-subrc eq 0.
set parameter id '/PWS/ZYCAP005' field i_result-nrseq.
call transaction '/PWS/ZYCA011_E' and skip first screen.
else.
message e261(sf) with '/PWS/ZYCA011_E'.
endif.
set parameter id '/PWS/ZYCAP005' field ''.
elseif feld = 'NRSEQ_ORIG'.
if i_result-tp_origem = 'FI' or
i_result-tp_origem = 'SI' or
i_result-tp_origem = 'EI' or
i_result-tp_origem = 'DI'.
authority-check object 'S_TCODE' id 'TCD' field
'/PWS/ZYCI001_E'.
if sy-subrc eq 0.
set parameter id '/PWS/ZYCIP001'
field i_result-nrseq_origem.
call transaction '/PWS/ZYCI001_E' and skip first screen.
else.
message e095(/pws/zycim) with '/PWS/ZYCI001_E'.
endif.
set parameter id '/PWS/ZYCIP001' field ''.
elseif i_result-tp_origem = 'FE' or
i_result-tp_origem = 'SE' or
i_result-tp_origem = 'EE' or
i_result-tp_origem = 'CA'.
authority-check object 'S_TCODE' id 'TCD' field
'/PWS/ZYCE003_E'.
if sy-subrc eq 0.
set parameter id '/PWS/ZYCEP001'
field i_result-nrseq_origem.
call transaction '/PWS/ZYCE003_E' and skip first screen.
else.
message e261(sf) with '/PWS/ZYCE003_E'.
endif.
set parameter id '/PWS/ZYCEP001' field ''.
elseif i_result-tp_origem = 'PT'.
authority-check object 'S_TCODE' id 'TCD' field
'/PWS/ZYCE013_E'.
if sy-subrc eq 0.
set parameter id '/PWS/ZYGLP163'
field i_result-nrseq_origem.
call transaction '/PWS/ZYCE013_E'.
else.
message e261(sf) with '/PWS/ZYCE013_E'.
endif.
set parameter id '/PWS/ZYGLP163' field ''.
elseif i_result-tp_origem = 'OV'.
authority-check object 'S_TCODE' id 'TCD' field 'VA03'.
if sy-subrc eq 0.
set parameter id 'AUN' field i_result-nrseq_origem.
call transaction 'VA03' and skip first screen.
else.
message e261(sf) with 'ME23N'.
endif.
set parameter id 'AUN' field ''.
elseif i_result-tp_origem = 'PC'.
authority-check object 'S_TCODE' id 'TCD' field 'ME23N'.
if sy-subrc eq 0.
set parameter id 'BES' field i_result-nrseq_origem.
call transaction 'ME23N' and skip first screen.
else.
message e261(sf) with 'ME23N'.
endif.
set parameter id 'BES' field ''.
endif.
endif.
endif.
clear feld.
when '%EX'.
leave program.
endcase.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012I01
module exit_command input.
case sy-dynnr.
when '0001' or '0002'.
leave program.
* >> Início da inclusão: MODULE EXIT_COMMAND
when '0003'.
leave program.
when '0004'.
set screen 0.
leave screen.
* << Fim da inclusão
when '0100'.
set screen v_screen.
leave screen.
when '0104'.
clear v_path.
set screen 0.
leave screen.
when '0106'.
* >> Início da inclusão: MODULE EXIT_COMMAND
set screen 0.
leave screen.
when '0200'.
* << Fim da inclusão
set screen 0.
leave screen.
endcase.
endmodule.
module user_command input.
case sy-dynnr.
when '0001'.
perform user_command_001.
when '0002'.
perform user_command_002.
* >> Início da inclusão: MODULE USER_COMMAND
when '0003'.
perform user_command_0003.
when '0004'.
perform user_command_0004.
* << Fim da inclusão
when '0100'.
perform user_command_0100.
when '0101'.
perform user_command_0101.
when '0102'.
perform user_command_0102.
when '0103'.
perform user_command_0103.
when '0104'.
perform user_command_0104.
when '0105'.
perform user_command_0105.
when '0106'.
perform user_command_0106.
when '0107'.
perform user_command_0107.
* >> Início da inclusão: MODULE USER_COMMAND
when '0200'.
perform user_command_0200.
* << Fim da inclusão
endcase.
endmodule.
module atualiza_itab_remessa input.
perform atualiza_itab tables itab_zycat039_r
using wa_zycat039r
tc_remessa.
endmodule.
module calcula_saldo input.
perform calcula_saldo.
endmodule.
...
...
module atualiza_itab_outros input.
perform atualiza_itab tables itab_zycat039_o
using wa_zycat039o
tc_outros.
endmodule.
module atualiza_itab_fatexp input.
perform atualiza_itab tables itab_zycat039_fe
using wa_zycat039fe
tc_fatexp.
endmodule.
* >> Início da inclusão:
module atualiza_itab_associacao input.
perform atualiza_itab_assoc tables itab_zycat031_ass
using wa_zycat039a
tc_associacao.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012O01
...
describe table itab_zycat039_f lines v_lines.
tc_fatimp-lines = v_lines + 15.
when '0105'.
delete itab_zycat039_o where fatura is initial.
describe table itab_zycat039_o lines v_lines.
tc_outros-lines = v_lines + 15.
when '0107'.
delete itab_zycat039_fe where fat_exp is initial.
describe table itab_zycat039_fe lines v_lines.
tc_fatexp-lines = v_lines + 15.
* >> Início da inclusão: MODULE AJUSTA_TC
when '0200'.
describe table itab_zycat031_ass lines v_lines.
tc_associacao-lines = v_lines.
* << Fim da inclusão
endcase.
endmodule.
module atualiza_tela_remessa output.
perform atualiza_tela using itab_zycat039_r
wa_zycat039r.
endmodule.
module status_0102 output.
if not v_exibe is initial or
not itab_zycat039_r[] is initial or
not itab_zycat039_f[] is initial or
...
...
wa_cols-screen-name = 'WA_ZYCAT039FE-NRPRES'.
wa_cols-screen-input = '0'.
wa_cols-screen-invisible = '1'.
endif.
endloop.
endmodule.
module atualiza_tela_fatexp output.
perform atualiza_tela using itab_zycat039_fe
wa_zycat039fe.
endmodule.
* >> Início da inclusão:
module status_0003 output.
set pf-status '0003'.
set titlebar '0003'.
endmodule.
module status_0004 output.
set pf-status '0004'.
set titlebar '0004'.
endmodule.
module status_0200 output.
set pf-status '0200'.
set titlebar '0200'.
endmodule.
module atualiza_tela_associacao output.
perform atualiza_tela_assoc using itab_zycat031_ass
wa_zycat039a.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012TOP
...
waers type bsad-waers,
gjahr type bsad-gjahr,
wrbtr type bsad-wrbtr,
end of ty_bsad.
tables: /pws/zycat030,
/pws/zycat031,
/pws/zycat037,
/pws/zycat038,
/pws/zycat039,
bkpf.
* >> Início da inclusão:
include /pws/z_rel_alv.
data: begin of rs_result,
tp_processo like /pws/zycat030-tp_processo,
nrseq_origem like /pws/zycat031-nrseq_origem,
waers like /pws/zycat031-waers,
valor like /pws/zycat031-valor,
saldo like /pws/zycat031-saldo,
nrseq like /pws/zycat039-nrseq,
operacao like /pws/zycat039-operacao,
tp_origem like /pws/zycat030-tp_origem,
re like /pws/zycat039-re,
di like /pws/zycat039-di,
status like /pws/zycat031-status,
selk,
end of rs_result.
data: i_result like standard table of rs_result
initial size 10 with header line..
* << Fim da inclusão
data: itab_zycat039 type table of /pws/zycat039,
itab_zycat039_ant type table of /pws/zycat039,
itab_zycat039_c type table of ty_zycat039t with header line,
itab_zycat039_r type table of ty_zycat039t with header line,
itab_zycat039_f type table of ty_zycat039t with header line,
itab_zycat039_o type table of ty_zycat039t with header line,
itab_zycat039_fe type table of ty_zycat039t with header line,
itab_tdynpread type standard table of dynpread,
itab_result type standard table of ddshretval,
itab_fcode type standard table of ty_fcode,
...
...
wa_fcode type ty_fcode,
wa_zycat030 type /pws/zycat030,
wa_bsad type ty_bsad,
wa_zycat048 type /pws/zycat048,
wa_zycbt031_aux type /pws/zycbt031,
wa_zycbt048_aux type /pws/zycbt048,
wa_zycbt134_aux type /pws/zycbt134.
data: begin of itab_zycat048 occurs 0.
include structure /pws/zycat048.
data: end of itab_zycat048.
* >> Início da inclusão:
data: begin of itab_zycat030_ass occurs 0.
include structure /pws/zycat030.
data: end of itab_zycat030_ass.
data: begin of itab_zycat039_ass occurs 0.
include structure /pws/zycat039.
data: end of itab_zycat039_ass.
data: begin of itab_zycat031_ass occurs 0.
include structure /pws/zycat031.
data: bukrs like /pws/zycat030-bukrs,
bukrs_ext like /pws/zycat030-bukrs_ext,
tp_processo like /pws/zycat030-tp_processo,
tp_origem like /pws/zycat030-tp_origem,
re like /pws/zycat039-re,
di like /pws/zycat039-di,
pagamento type c,
mark.
data: end of itab_zycat031_ass.
data: wa_zycat039a like itab_zycat031_ass.
* << Fim da inclusão
data: v_okcode type sy-ucomm,
v_exibe type c,
v_screen type sy-dynnr,
v_dynnr type sy-dynnr,
v_nbs type /pws/zycat041-descricao,
v_operacao type /pws/zycat039-operacao,
v_mark type c,
v_lines type i,
v_path type rlgrap-filename,
v_funcionalidade type /pws/zyglt390-programa
value '/PWS/SAPMZYCA012',
v_identificador type /pws/zyglt390-identificador,
v_saldo_assoc type bseg-wrbtr,
v_saldo_disp type bseg-wrbtr,
v_saldo_aux type bseg-wrbtr,
v_wrbtr_fat type bseg-wrbtr,
* >> Início da exclusão:
v_nrboleto type /pws/zycbt064-nrboleto.
controls: ts_assoc type tabstrip,
tc_remessa type tableview using screen '0101',
tc_comag type tableview using screen '0102',
tc_fatimp type tableview using screen '0103',
tc_outros type tableview using screen '0105',
tc_fatexp type tableview using screen '0107'.
* << Fim da exclusão
* >> Início da inclusão:
v_nrboleto type /pws/zycbt064-nrboleto,
v_dom_tporigem type /pws/zycal067,
v_titulo(90) type c,
v_ravs_pago value 'X'.
controls: ts_assoc type tabstrip,
tc_remessa type tableview using screen '0101',
tc_comag type tableview using screen '0102',
tc_fatimp type tableview using screen '0103',
tc_outros type tableview using screen '0105',
tc_fatexp type tableview using screen '0107',
tc_associacao type tableview using screen '0200'.
selection-screen begin of screen 0005 as subscreen.
selection-screen begin of block bl1 with frame title text-001.
selection-screen comment /3(60) text-003.
selection-screen end of block bl1.
selection-screen begin of block bl2 with frame title text-002.
select-options: so_empr for /pws/zycat030-bukrs,
so_nrseq for /pws/zycat039-nrseq,
so_oper for /pws/zycat039-operacao,
so_dtini for /pws/zycat031-data_ini,
so_dtfim for /pws/zycat031-data_fim,
so_modo for /pws/zycat031-modo_prest.
selection-screen end of block bl2.
selection-screen begin of block bl3 with frame.
parameters: p_ras as checkbox default 'X',
p_rvs as checkbox default 'X'.
selection-screen end of block bl3.
selection-screen begin of block bl4 with frame.
parameters: p_ravspg as checkbox default 'X',
p_ravsnp as checkbox default ' '.
selection-screen end of block bl4.
selection-screen end of screen 0005.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA012
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 001
Texto: (14 caracteres)
"Origin RAS/RVS"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (14 caracteres)
"Origem RAS/RVS"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 001
Texto: (14 caracteres)
"RAS/RVS Origen"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 002
Texto: (20 caracteres)
"Criterion of Select."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (20 caracteres)
"Critérios de Seleção"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 002
Texto: (20 caracteres)
"Criterios de Selecc."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 003
Texto: (51 caracteres)
"Type Source - Association RAS / RVS origin together"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (52 caracteres)
"Tipo Origem - Associação RAS/RVS com origem em massa"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 003
Texto: (51 caracteres)
"Fuente Tipo - origen Asociación RAS / RVS junto con"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 004
Texto: (18 caracteres)
"RAS/RVS Associates"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (18 caracteres)
"RAS/RVS Associadas"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 004
Texto: (18 caracteres)
"RAS/RVS Associates"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 005
Texto: (34 caracteres)
"Exchange System - Financial Module"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (37 caracteres)
"Sistema de Câmbio - Módulo Financeiro"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 005
Texto: (37 caracteres)
"Sistema de Cambio - Módulo Financiero"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 006
Texto: (9 caracteres)
"Case Type"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (13 caracteres)
"Tipo Processo"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 006
Texto: (12 caracteres)
"Tipo de Caso"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 007
Texto: (8 caracteres)
"Proccess"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (8 caracteres)
"Processo"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 007
Texto: (7 caracteres)
"Proceso"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 008
Texto: (5 caracteres)
"Curr."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 008
Texto: (5 caracteres)
"Moeda"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 008
Texto: (5 caracteres)
"Moned"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 009
Texto: (13 caracteres)
"RAS/RVS Value"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (13 caracteres)
"Valor RAS/RVS"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 009
Texto: (13 caracteres)
"Valor RAS/RVS"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 010
Texto: (13 caracteres)
"Balance RAS/V"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (13 caracteres)
"Saldo RAS/RVS"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 010
Texto: (13 caracteres)
"Saldo RAS/RVS"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 011
Texto: (7 caracteres)
"RAS/RVS"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 011
Texto: (7 caracteres)
"RAS/RVS"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 011
Texto: (7 caracteres)
"RAS/RVS"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 012
Texto: (7 caracteres)
"Operat."
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (8 caracteres)
"Operação"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 012
Texto: (7 caracteres)
"Operac."
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 013
Texto: (11 caracteres)
"Source Type"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (14 caracteres)
"Tipo de Origem"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 013
Texto: (14 caracteres)
"Tipo de Fuente"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 014
Texto: (5 caracteres)
"N.RE."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (5 caracteres)
"N.RE."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 014
Texto: (5 caracteres)
"N.RE."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 015
Texto: (5 caracteres)
"N.DI."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (5 caracteres)
"N.DI."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 015
Texto: (5 caracteres)
"N.DI."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 016
Texto: (6 caracteres)
"Status"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (6 caracteres)
"Status"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 016
Texto: (6 caracteres)
"Estatu"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E25
Texto: (26 caracteres)
"Tell a Selection Criteria."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E25
Texto: (32 caracteres)
"Informar um Critério de Seleção."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E25
Texto: (32 caracteres)
"Recomendar a un criterio de sele"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E26
Texto: (17 caracteres)
"Report RAS / RVS."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E26
Texto: (19 caracteres)
"Informar RAS / RVS."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E26
Texto: (18 caracteres)
"Informe RAS / RVS."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E27
Texto: (37 caracteres)
"Report RAS/RVS Paid / RAS/RVS Unpaid."
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E27
Texto: (43 caracteres)
"Informar RAS/RVS Pagas / RAS/RVS Não Pagas."
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E27
Texto: (43 caracteres)
"Informe RAS/RVS Pagado / RAS/RVS sin pagar."
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E28
Texto: (40 caracteres)
"No RAS/RVS located for these parameters."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E28
Texto: (49 caracteres)
"Nenhuma RAS/RVS localizada para estes parâmetros."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E28
Texto: (46 caracteres)
"No hay RAS/RVS situados para estos parámetros."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E29
Texto: (40 caracteres)
"No RAS/RVS selected for the Association."
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E29
Texto: (44 caracteres)
"Nenhuma RAS/RVS selecionada para Associação."
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E29
Texto: (44 caracteres)
"No RAS/RVS seleccionados para la Asociación."
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E30
Texto: (42 caracteres)
"Not Allowed Select RAS/RVS Without Payment"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E30
Texto: (43 caracteres)
"Não é Permitido Selecionar RAS/RVS Não Paga"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E30
Texto: (39 caracteres)
"No permitido Seleccione RAS/RVS no paga"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E31
Texto: (16 caracteres)
"for Association."
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E31
Texto: (16 caracteres)
"Para Associação."
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E31
Texto: (16 caracteres)
"Para la Asociaci"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: I23
Texto: (33 caracteres)
"Confirms Execution of Association"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: I23
Texto: (33 caracteres)
"Confirma a Execução da Associação"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: I23
Texto: (32 caracteres)
"Confirma Ejecución de Asociación"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): P_RAS
Texto: (11 caracteres)
"RAS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_RAS
Texto: (11 caracteres)
"RAS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_RAS
Texto: (11 caracteres)
"RAS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): P_RAVSNP
Texto: (22 caracteres)
"RAS/RVS Unpaid"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_RAVSNP
Texto: (25 caracteres)
"RAS/RVS Não Pagas"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_RAVSNP
Texto: (25 caracteres)
"RAS/RVS sin pagar"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): P_RAVSPG
Texto: (20 caracteres)
"RAS/RVS Paid"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_RAVSPG
Texto: (21 caracteres)
"RAS/RVS Pagas"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_RAVSPG
Texto: (23 caracteres)
"RAS/RVS pagados"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): P_RVS
Texto: (11 caracteres)
"RVS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): P_RVS
Texto: (11 caracteres)
"RVS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_RVS
Texto: (11 caracteres)
"RVS"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_DTFIM
Texto: (16 caracteres)
"End Date"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DTFIM
Texto: (16 caracteres)
"Data Fim"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_DTFIM
Texto: (29 caracteres)
"Fecha de finalización"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_DTINI
Texto: (20 caracteres)
"Initial Date"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_DTINI
Texto: (19 caracteres)
"Data Início"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_DTINI
Texto: (20 caracteres)
"Fecha Inicio"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_EMPR
Texto: (21 caracteres)
"Company Code:"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_EMPR
Texto: (15 caracteres)
"Empresa"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_EMPR
Texto: (17 caracteres)
"Sociedad:"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_MODO
Texto: (26 caracteres)
"Method of Delivery"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_MODO
Texto: (25 caracteres)
"Modo de Prestação"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_MODO
Texto: (26 caracteres)
"Modo de Prestación"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ
Texto: (25 caracteres)
"Sequential Number"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ
Texto: (22 caracteres)
"Nr. Sequencial"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ
Texto: (22 caracteres)
"Nr. secuencial"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: EN
Variável (SELECT-OPTION / PARAMETER): SO_OPER
Texto: (15 caracteres)
"Operat."
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: PT
Variável (SELECT-OPTION / PARAMETER): SO_OPER
Texto: (16 caracteres)
"Operação"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Incluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): SO_OPER
Texto: (17 caracteres)
"Operación"
Referência ao Dictionary: NÃO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCA012
*** ALTERACOES NA TRANSACAO /PWS/ZYCA012
Código de transação - /PWS/ZYCA012
Cl.desenvolvimento - /PWS/ZYCA
Texto da transação - Associação RAS/RVS - Atualiz
Programa - /PWS/SAPMZYCA012
Nº tela - 0003
Classif.de Transação - Transação Professional User
Capacidade GUI
(X)SAP GUI para HTML
(X)SAP GUI para Java
(X)SAP GUI para Windows
----------------------------------------------------------------------------------------------------