CE PLUS - Nota 007931
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: SML - Sistema de Pagto. Moeda Inter
Data/Hora da Publicação: 19/01/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:51:21
Descrição da Nota: DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
Sintoma
Criar DA Sistema de Pagamentos em Moeda Local e Associação, baseando-se, no programa de Valores
Mantidos no Exterior e Associação de Ordem de Pagamento.
Solução
Criar novas transações e adaptar os programas de Valores Mantidos no Exterior e Associação de Ordens
de Pagamento, para atender o SML - Sistema de Pagamentos em Moeda Local e Associação.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07931 Data: 19/01/2009 Hora: 13:43:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07931
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00082
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03379 - 00002 - 7.0 - 00001 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DES. ADIC. REMESSA
03662 - 00003 - 7.0 - 00001 - VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
04316 - 00004 - 7.0 - 00002 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DUMP
04465 - 00005 - 7.0 - 00002 - ASSOCIAÇÃO ORDEM PAGAMENTO - MATCHCODE - FILTRO POR EMISSOR ORDEM
04958 - 00006 - 7.0 - 00003 - FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
05478 - 00007 - 7.0 - 00003 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
05482 - 00008 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
06038 - 00009 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA - CAMBIO
06103 - 00010 - 7.0 - 00004 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
06371 - 00011 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
07117 - 00012 - 7.0 - 00006 - BOTÕES "VINCULAR TOTAL" E "SELECIONAR FATURAS" - VME
07585 - 00014 - 7.0 - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - PRIMEIRA TELA DE REMESSA VAZI
07691 - 00015 - 7.0 - 00007 - VALORES MANTIDOS NO EXTERIOR - ATUALIZAÇÃO SALDO APÓS F-02
07817 - 00016 - 7.0 - 00008 - ASSOCIAÇÃO ORDEM DE PAGAMENTO - MATCHCODE - VALORES NÃO ENCONTRAD
07820 - 00017 - 7.0 - 00008 - FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE VALORES MANTIDOS E
----------------------------------------------------------------------------------------------------
DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)
VALORES MANTIDOS NO EXTERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB034
CUAD /PWS/SAPMZYCB035
DOMA /PWS/ZYGLD598
DTEL /PWS/ZYGLL1414
DYNP /PWS/SAPMZYCB034 0002
DYNP /PWS/SAPMZYCB034 0100
DYNP /PWS/SAPMZYCB034 0110
FUNC /PWS/ZYCBA277
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034I01
REPS /PWS/MZYCB034O01
REPS /PWS/MZYCB034TOP
REPS /PWS/MZYCB035F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB035I01
REPS /PWS/MZYCB035T02
REPS /PWS/MZYCB035TOP
REPS /PWS/SAPMZYCB034
REPT /PWS/SAPMZYCB034
SHI3 /PWS/ZYCB
SHI6 /PWS/ZYCB
SHLD /PWS/ZYCBA277
TABD /PWS/ZYCBE226
TABD /PWS/ZYCBT226
TABU TMENU01
TABU TMENU01R
TABU TMENU01T
TRAN /PWS/ZYCB034_SML_A
TRAN /PWS/ZYCB034_SML_C
TRAN /PWS/ZYCB034_SML_E
TRAN /PWS/ZYCB035_SML_A
TRAN /PWS/ZYCB035_SML_C
TRAN /PWS/ZYCB035_SML_E
VIED /PWS/ZYCBV217
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB034
Criar TítsGui:
0200 - Sistema de Pagamentos em Moeda Local & &
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB035
Criar TítsGui:
002A Modificar Associação(SML)
002C Criar Associação(SML)
002E Exibir Associação(SML)
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD598
Criar Dmínio: /PWS/ZYGLD598
Descrição breve incluída (51 caracteres), idioma: PT
"CB - Origem da OP(Valores Mantidos Exterior ou SML)"
Classe de desenvolvimento: /PWS/ZYGL
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 ""(espaço)
Texto incluído, idioma: PT (28 caracteres):
"Valores Mantidos no Exterior"
Incluído valor fixo "P"
Texto incluído, idioma: PT (29 caracteres):
"Pagamento em Moeda Local(SML)"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYGLL1414
Criar Elemento de dados: /PWS/ZYGLL1414
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (51 caracteres), idioma: PT
"CB - Origem da OP(Valores Mantidos Exterior ou SML)"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD598
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
"CB - Orige"
Comprimento máximo do denominador médio: 20
Denominador médio incluído (14 caracteres), idioma: PT
"CB - Origem OP"
Comprimento máximo do denominador longo: 40
Denominador longo incluído (39 caracteres), idioma: PT
"CB - Origem da OP(Valrs Mant Ext ou SML"
Comprimento máximo do título: 51
Título incluído (51 caracteres), idioma: PT
"CB - Origem da OP(Valores Mantidos Exterior ou SML)"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0002
Solicitar a equipe de desenvolvimento pw.CE-produto-câmbio, arquivo para upload da tela 0002.
Tel.: 11 5504-0170
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0100
Solicitar a equipe de desenvolvimento pw.CE-produto-câmbio, arquivo para upload da tela 0100.
Tel.: 11 5504-0170
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0110
Solicitar a equipe de desenvolvimento pw.CE-produto-câmbio, arquivo para upload da tela 0110.
Tel.: 11 5504-0170
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA277
FUNCTION /pws/zycba277.
TYPE-POOLS:
shlp.
TYPES:
BEGIN OF t_s_ordem,
nrseq TYPE /pws/zycbv217-nrseq,
kunag TYPE /pws/zycbv217-kunag,
sld_associar TYPE /pws/zycbv217-sld_associar,
* >> Início da inclusão: FUNCTION /PWS/ZYCBA277
origem_op TYPE /pws/zycbv217-origem_op,
* << Fim da inclusão
END OF t_s_ordem,
t_t_ordem TYPE STANDARD TABLE OF t_s_ordem
WITH NON-UNIQUE KEY nrseq.
DATA:
itab_ordem TYPE t_t_ordem,
v_nr_ordem TYPE string,
v_fieldname TYPE dfies-lfieldname.
* >> Início da inclusão: FUNCTION /PWS/ZYCBA277
DATA: v_origem_op TYPE /pws/zycbt226-origem_op.
* << Fim da inclusão
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr.
IF callcontrol-step = 'DISP'.
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 = 'SLD_ASSOCIAR'
* >> Início da exclusão: FUNCTION /PWS/ZYCBA277
OR <fs_fielddescr>-fieldname = 'KUNAG'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA277
OR <fs_fielddescr>-fieldname = 'KUNAG'
OR <fs_fielddescr>-fieldname = 'ORIGEM_OP'.
* << Fim da inclusão
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_ordem
CHANGING
...
...
IMPORT v_nr_ordem FROM MEMORY ID '500'.
IF NOT v_nr_ordem IS INITIAL .
LOOP AT itab_ordem
TRANSPORTING NO FIELDS
WHERE kunag ne v_nr_ordem.
DELETE record_tab INDEX sy-tabix.
DELETE itab_ordem.
ENDLOOP.
FREE MEMORY ID '500'.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCBA277
IMPORT v_origem_op FROM MEMORY ID 'ORIGEM_OP'.
LOOP AT itab_ordem
TRANSPORTING NO FIELDS
WHERE origem_op NE v_origem_op.
DELETE record_tab INDEX sy-tabix.
DELETE itab_ordem.
ENDLOOP.
CLEAR v_origem_op.
EXPORT v_origem_op TO MEMORY ID 'ORIGEM_OP'.
* << Fim da inclusão
ENDIF.
ENDFUNCTION.
7---------------------------------------------------------------------------------------------------
-
Modificações efetuadas em REPS /PWS/MZYCB034F01
FORM limpa_ok_code.
CLEAR ok_code.
ENDFORM.
FORM status_gui.
DEFINE define_titulo.
if sy-tcode = c_transacao_c.
* >> Início da exclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) 'Criar'(015).
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) text-058.
* << Fim da inclusão
elseif sy-tcode = c_transacao_a.
* >> Início da exclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) 'Alterar'(016).
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) text-059.
* << Fim da inclusão
elseif sy-tcode = c_transacao_e.
* >> Início da exclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) 'Exibir'(017).
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
set titlebar '0100' with '- '(020) text-060.
elseif sy-tcode = c_trans_sml_c.
set titlebar '0200' with '- '(020) text-058.
elseif sy-tcode = c_trans_sml_a.
set titlebar '0200' with '- '(020) text-059.
elseif sy-tcode = c_trans_sml_e.
set titlebar '0200' with '- '(020) text-060.
* << Fim da inclusão
endif.
END-OF-DEFINITION.
DEFINE verifica_devolucao.
read table itab_zycbt226
with key tipo_op = c_pagamento_antecipado
transporting no fields.
if sy-subrc ne 0 or
( ts_principal-activetab ne c_tela_receb and
ts_principal-activetab ne space ).
preenche_itab_status_exc 'SEL_DEVOL'.
...
...
t_t_status_exc TYPE TABLE OF t_s_status_exc WITH DEFAULT KEY.
DATA: wa_status_exc TYPE t_s_status_exc,
itab_status_exc TYPE t_t_status_exc.
DEFINE preenche_itab_status_exc.
wa_status_exc-fcode = &1.
append wa_status_exc to itab_status_exc.
END-OF-DEFINITION.
CASE sy-dynnr.
WHEN '0002'.
SET PF-STATUS '0001' EXCLUDING 'SPOS'.
* >> Início da inclusão: FORM STATUS_GUI
IF sy-tcode = c_transacao_c.
* << Fim da inclusão
SET TITLEBAR '0100' WITH '- '(020) 'Criar'(015).
* >> Início da inclusão: FORM STATUS_GUI
ELSEIF sy-tcode = c_trans_sml_c.
SET TITLEBAR '0200' WITH '- '(020) 'CRIAR'(015).
ENDIF.
* << Fim da inclusão
WHEN '0100'.
CASE sy-tcode.
* >> Início da exclusão: FORM STATUS_GUI
WHEN c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
WHEN c_transacao_c
OR c_trans_sml_c.
* << Fim da inclusão
preenche_itab_status_exc 'AEND'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MOVE_DATA'.
preenche_itab_status_exc 'SEL_DEVOL'.
IF opt_origem_embarque IS INITIAL.
preenche_itab_status_exc 'SELE'.
ENDIF.
* >> Início da exclusão: FORM STATUS_GUI
WHEN c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
WHEN c_transacao_a
OR c_trans_sml_a.
* << Fim da inclusão
verifica_devolucao.
preenche_itab_status_exc 'AEND'.
IF sy-ucomm EQ 'MOVE_DATA' OR
sy-ucomm EQ 'P-' OR
sy-ucomm EQ 'P+' .
ELSE.
preenche_itab_status_exc 'RECEB_TOT'.
ENDIF.
preenche_itab_status_exc 'SELE'.
* >> Início da exclusão: FORM STATUS_GUI
WHEN c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
WHEN c_transacao_e
OR c_trans_sml_e.
* << Fim da inclusão
verifica_devolucao.
preenche_itab_status_exc 'RECEB_TOT'.
preenche_itab_status_exc 'MOVE_DATA'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MARK'.
preenche_itab_status_exc 'UNMARK'.
preenche_itab_status_exc 'DEL_LINE'.
preenche_itab_status_exc 'SAVE'.
preenche_itab_status_exc 'SELE'.
ENDCASE.
SET PF-STATUS '0100' EXCLUDING itab_status_exc.
define_titulo.
WHEN '0200'.
CASE sy-tcode.
* >> Início da exclusão: FORM STATUS_GUI
WHEN c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM STATUS_GUI
WHEN c_transacao_e
OR c_trans_sml_e.
* << Fim da inclusão
preenche_itab_status_exc 'NOVO'.
preenche_itab_status_exc 'SALVAR'.
preenche_itab_status_exc 'ELIMINAR'.
preenche_itab_status_exc 'ESTORNAR'.
preenche_itab_status_exc 'NOOP'.
ENDCASE.
SET PF-STATUS '0200' EXCLUDING itab_status_exc.
ENDCASE.
ENDFORM.
FORM trata_tela.
CASE sy-dynnr.
WHEN '0100'.
PERFORM trata_tela_0100.
WHEN '0120'.
PERFORM trata_tela_0120.
WHEN '0150'.
PERFORM trata_tela_0150.
WHEN '0200'.
PERFORM trata_tela_0200.
* >> Início da inclusão: FORM TRATA_TELA
WHEN '0002'.
PERFORM trata_tela_0002.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM botao_especifico.
DATA: myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event,
v_icone TYPE iconname.
CLEAR : myevent.
REFRESH: myevent_tab.
IF itab_zyglt376[] IS INITIAL.
SELECT * FROM /pws/zyglt376 INTO TABLE itab_zyglt376
...
...
ENDIF.
ENDCASE.
ENDFORM.
FORM user_command_0100.
DATA: wa_zycbt226 TYPE t_s_zycbe226.
DATA: v_erro TYPE c.
CASE ok_code.
WHEN 'SAVE'.
CLEAR v_erro.
LOOP AT itab_zycbt226 INTO wa_zycbt226.
* >> Início da exclusão: FORM USER_COMMAND_0100
IF sy-tcode NE c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0100
IF sy-tcode NE c_transacao_a
AND sy-tcode NE c_trans_sml_a.
* << Fim da inclusão
IF wa_zycbt226-vlr_exterior IS INITIAL.
MESSAGE w015 WITH
'Informe'(m49) 'o Valor Ret.no Exterior'(m50).
v_erro = 'X'.
EXIT.
* >> Início da inclusão: FORM USER_COMMAND_0100
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM USER_COMMAND_0100
IF wa_zycbt226-operacao NE 'E' AND
wa_zycbt226-vlr_exterior > wa_zycbt226-sld_transferir AND
( wa_zycbt226-origem_op IS INITIAL OR
( wa_zycbt226-origem_op EQ 'P' AND
wa_zycbt226-tipo_op EQ 'E' ) ).
v_erro = 'X'.
EXIT.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF NOT v_erro IS INITIAL.
EXIT.
ENDIF.
LOOP AT itab_disp_00 INTO wa_disp WHERE NOT vldisp GT 0
AND operacao NE 'E'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
...
...
IF wa_controle-parametros_carregados IS INITIAL.
SELECT *
FROM /pws/zycbt007
INTO TABLE itab_zycbt007. "#EC CI_NOWHERE
SELECT *
FROM /pws/zycbt089
INTO TABLE itab_zycbt089. "#EC CI_NOWHERE
SELECT *
FROM /pws/zyglt009
INTO TABLE itab_zyglt009. "#EC CI_NOWHERE
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ( ktosl = c_chave_oper OR
ktosl = c_chv_oper_fat )
AND ( codeven = c_codeven_op_emb OR
codeven = c_codeven_liqand OR
codeven = c_codeven_liqand_op OR
codeven = c_codeven_op_pagant ).
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
ELSEIF sy-tcode+13(3) EQ 'SML'.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ( ktosl = c_chave_oper OR
ktosl = c_chv_oper_fat )
AND ( codeven = c_codeven_op_emb_sml OR
codeven = c_codeven_liqand_sml OR
codeven = c_codeven_liqand_op_sml OR
codeven = c_codeven_op_pagant_sml ).
ENDIF.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt009
INTO TABLE itab_zycbt009.
SELECT *
FROM /pws/zycbt011
INTO TABLE itab_zycbt011
WHERE codmod = c_modulo. "#EC CI_NOFIRST
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = c_modulo
...
...
wa_controle-parametros_carregados = 'X'.
ENDIF.
ENDFORM.
FORM seleciona_op.
DATA:
v_indice TYPE sy-index,
wa_zycbt017 TYPE t_s_zycbt017.
FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_zycbe226,
<fs_contrato> LIKE LINE OF itab_contrato,
<fs_disp> LIKE LINE OF itab_disp_70.
* >> Início da exclusão: FORM SELECIONA_OP
IF sy-tcode NE c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
IF sy-tcode NE c_transacao_c
AND sy-tcode NE c_trans_sml_c.
* << Fim da inclusão
CHECK wa_controle-dados_op_carregados IS INITIAL.
SELECT *
FROM /pws/zycbt226
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt226
WHERE nrseq IN s_nrseq
AND nrinvoic IN s_invoic
AND nrparcf IN s_nrparc
AND gsberf IN s_gsber
AND bukrs IN s_bukrs
AND kunag IN s_kunag
AND dtcredext IN s_dtcext
* >> Início da exclusão: FORM SELECIONA_OP
AND dtincl IN s_dtincl
.
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
AND dtincl IN s_dtincl.
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE 'P'.
ENDIF.
IF NOT itab_zycbt226[] IS INITIAL.
* << Fim da inclusão
IF p_orig1 = 'X' AND p_orig2 IS INITIAL.
opt_origem_embarque = 'X'.
CLEAR opt_origem_pagantec.
DELETE itab_zycbt226 WHERE tipo_op NE 'E'.
ELSEIF p_orig1 IS INITIAL AND p_orig2 = 'X'.
opt_origem_pagantec = 'X'.
CLEAR opt_origem_embarque.
DELETE itab_zycbt226 WHERE tipo_op NE 'P'.
ELSEIF ( p_orig1 = 'X' AND p_orig2 = 'X' ) OR
( p_orig1 IS INITIAL AND p_orig2 IS INITIAL ).
...
...
SELECT * FROM /pws/zycbt238
INTO TABLE itab_disp_00
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrseq = itab_zycbt226-nrseq
AND destino = c_00.
APPEND LINES OF itab_disp_00 TO itab_disp_ant.
IF NOT itab_disp_70[] IS INITIAL.
SELECT * FROM /pws/zycbt239
INTO TABLE itab_contrato
FOR ALL ENTRIES IN itab_disp_70
* >> Início da exclusão: FORM SELECIONA_OP
WHERE nrseq = itab_disp_70-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
WHERE nrseq = itab_disp_70-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SORT itab_contrato BY nrseq dtdisp tpcontr ASCENDING.
APPEND LINES OF itab_contrato TO itab_contrato_ant.
ENDIF.
CLEAR:
v_indice.
LOOP AT itab_disp_70 ASSIGNING <fs_disp>.
v_indice = v_indice + 1.
LOOP AT itab_contrato ASSIGNING <fs_contrato>
WHERE nrseq = <fs_disp>-nrseq
AND destino = <fs_disp>-destino
AND dtdisp = <fs_disp>-dtdisp.
<fs_contrato>-indice = v_indice.
ENDLOOP.
<fs_disp>-indice = v_indice.
ENDLOOP.
ENDIF.
SELECT * FROM /pws/zycbt240
* >> Início da exclusão: FORM SELECIONA_OP
INTO TABLE itab_rendimentos. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
INTO TABLE itab_rendimentos. "#EC CI_NOWHERE
* << Fim da inclusão
itab_rendimentos_ant = itab_rendimentos.
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>.
READ TABLE itab_zycbt017 INTO wa_zycbt017 WITH KEY
nrinvoic = <fs_zycbt226>-nrinvoic
gsberf = <fs_zycbt226>-gsberf
nrparcf = <fs_zycbt226>-nrparcf.
IF sy-subrc EQ '0'.
<fs_zycbt226>-vlavinc = wa_zycbt017-vlavinc.
ENDIF.
ENDLOOP.
...
...
ENDCASE.
ENDFORM.
FORM aend.
EXPORT s_bukrs TO MEMORY ID 'PROG34-BUKRS'.
EXPORT s_invoic TO MEMORY ID 'PROG34-INVOIC'.
EXPORT s_gsber TO MEMORY ID 'PROG34-GSBER'.
EXPORT s_nrparc TO MEMORY ID 'PROG34-NRPARC'.
EXPORT s_kunag TO MEMORY ID 'PROG34-KUNAG'.
EXPORT s_dtincl TO MEMORY ID 'PROG34-DTINCL'.
EXPORT s_dtcext TO MEMORY ID 'PROG34-DTCEXT'.
* >> Início da inclusão: FORM AEND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM leave_to_transaction
USING c_transacao_a.
* >> Início da inclusão: FORM AEND
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM leave_to_transaction
USING c_trans_sml_a.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM trata_tela_0100.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
* >> Início da inclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_trans_sml_c OR
sy-tcode = c_trans_sml_a OR
sy-tcode = c_trans_sml_e .
v_text_sld_exterior = text-050.
v_text_data_cre = text-052.
v_text_bco_cc = text-054.
v_text_descr_bco_cc = text-056.
ELSE.
v_text_sld_exterior = text-049.
v_text_data_cre = text-051.
v_text_bco_cc = text-053.
v_text_descr_bco_cc = text-055.
ENDIF.
* << Fim da inclusão
LOOP AT SCREEN.
* >> Início da exclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0100
IF ( sy-tcode = c_trans_sml_c OR
sy-tcode = c_trans_sml_a OR
sy-tcode = c_trans_sml_e ) AND
screen-group2 = 'VME'.
screen-invisible = 1.
screen-input = 0.
MODIFY SCREEN.
CONTINUE.
ENDIF.
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF screen-group1 CA 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_op-cols ASSIGNING <fs_cols>.
* >> Início da exclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'E'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0100
ELSEIF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0100
ELSEIF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group1 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0100
ELSEIF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0100
ELSEIF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF opt_origem_pagantec = 'X'.
IF <fs_cols>-screen-group2 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group2 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
IF opt_origem_embarque = 'X'.
IF <fs_cols>-screen-group3 CA 'A'.
...
...
opt_origem_pagantec = 'X' ) OR
( opt_origem_embarque IS INITIAL AND
opt_origem_pagantec IS INITIAL ).
<fs_cols>-invisible = '0'.
ENDIF.
IF <fs_cols>-screen-name EQ '/PWS/ZYCBE226-TIPO_OP'.
<fs_cols>-invisible = '1'.
ENDIF.
IF <fs_cols>-screen-name EQ '/PWS/ZYCBE226-VLR_EXTERIOR '.
IF v_select IS INITIAL.
* >> Início da exclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0100
IF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
<fs_cols>-screen-input = 0.
ELSE.
<fs_cols>-screen-required = '0'.
ENDIF .
ELSE.
<fs_cols>-screen-required = '0'.
* >> Início da inclusão: FORM TRATA_TELA_0100
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM TRATA_TELA_0100
IF ( sy-tcode = c_trans_sml_c OR
sy-tcode = c_trans_sml_a OR
sy-tcode = c_trans_sml_e ) AND
<fs_cols>-screen-group2 = 'VME'.
<fs_cols>-screen-invisible = 1.
<fs_cols>-screen-input = 0.
<fs_cols>-invisible = 1.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDFORM.
FORM trata_tela_0120.
DATA: v_linhas TYPE sy-tabix.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
DESCRIBE TABLE itab_disp_30 LINES v_linhas.
tc_30-lines = v_linhas.
LOOP AT SCREEN.
* >> Início da exclusão: FORM TRATA_TELA_0120
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0120
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF screen-group1 CA 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_30-cols ASSIGNING <fs_cols>.
* >> Início da exclusão: FORM TRATA_TELA_0120
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0120
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'E'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0120
ELSEIF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0120
ELSEIF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group1 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0120
ELSEIF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0120
ELSEIF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF opt_origem_pagantec = 'X'.
IF <fs_cols>-screen-group2 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group2 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
IF opt_origem_embarque = 'X'.
IF <fs_cols>-screen-group3 CA 'A'.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM trata_tela_0150.
DATA: v_linhas TYPE sy-tabix.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
DESCRIBE TABLE itab_disp_00 LINES v_linhas.
tc_00-lines = v_linhas.
LOOP AT SCREEN.
* >> Início da exclusão: FORM TRATA_TELA_0150
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0150
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF screen-group1 CA 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_00-cols ASSIGNING <fs_cols>.
* >> Início da exclusão: FORM TRATA_TELA_0150
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0150
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'E'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0150
ELSEIF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0150
ELSEIF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group1 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0150
ELSEIF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0150
ELSEIF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF opt_origem_pagantec = 'X'.
IF <fs_cols>-screen-group2 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group2 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
IF opt_origem_embarque = 'X'.
IF <fs_cols>-screen-group3 CA 'A'.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM trata_tela_0200.
DATA: v_linhas TYPE sy-tabix.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
DESCRIBE TABLE itab_devolucao LINES v_linhas.
tc_devolucao-lines = v_linhas.
LOOP AT SCREEN.
* >> Início da exclusão: FORM TRATA_TELA_0200
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0200
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF screen-group1 CA 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_devolucao-cols ASSIGNING <fs_cols>.
* >> Início da exclusão: FORM TRATA_TELA_0200
IF sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0200
IF sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'E'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0200
ELSEIF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0200
ELSEIF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF <fs_cols>-screen-group1 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group1 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
* >> Início da exclusão: FORM TRATA_TELA_0200
ELSEIF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TELA_0200
ELSEIF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF opt_origem_pagantec = 'X'.
IF <fs_cols>-screen-group2 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group2 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
IF opt_origem_embarque = 'X'.
IF <fs_cols>-screen-group3 CA 'A'.
...
...
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD sy-tcode.
IF sy-subrc NE 0.
IF sy-tcode = c_transacao_a.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD c_transacao_e.
IF sy-subrc = 0.
CALL TRANSACTION c_transacao_e.
* >> Início da inclusão: FORM VERIFICA_AUTORIZACAO
ELSE.
MESSAGE i120 WITH 'Ordem de Pagamento'(001).
LEAVE PROGRAM.
ENDIF.
ELSEIF sy-tcode = c_trans_sml_a.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD c_trans_sml_e.
IF sy-subrc = 0.
CALL TRANSACTION c_trans_sml_e.
* << Fim da inclusão
ELSE.
MESSAGE i120 WITH 'Ordem de Pagamento'(001).
LEAVE PROGRAM.
ENDIF.
ELSE.
MESSAGE i120 WITH 'Ordem de Pagamento'(001).
LEAVE PROGRAM.
ENDIF.
ENDIF.
WHEN 'BUKRS'.
* >> Início da exclusão: FORM VERIFICA_AUTORIZACAO
IF sy-tcode EQ c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_AUTORIZACAO
IF sy-tcode EQ c_transacao_c
OR sy-tcode EQ c_trans_sml_c.
* << Fim da inclusão
p_oper = '01'.
* >> Início da exclusão: FORM VERIFICA_AUTORIZACAO
ELSEIF sy-tcode EQ c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_AUTORIZACAO
ELSEIF sy-tcode EQ c_transacao_a
OR sy-tcode EQ c_trans_sml_a.
* << Fim da inclusão
p_oper = '02'.
* >> Início da exclusão: FORM VERIFICA_AUTORIZACAO
ELSEIF sy-tcode EQ c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_AUTORIZACAO
ELSEIF sy-tcode EQ c_transacao_e
OR sy-tcode EQ c_trans_sml_e.
* << Fim da inclusão
p_oper = '03'.
ENDIF.
READ TABLE itab_zycbt226 INDEX tc_op-current_line
ASSIGNING <fs_zycbt226>.
IF sy-subrc = 0.
READ TABLE itab_zycbt017 WITH KEY
nrinvoic = <fs_zycbt226>-nrinvoic
nrparcf = <fs_zycbt226>-nrparcf
gsberf = <fs_zycbt226>-gsberf
INTO wa_zycbt017.
...
...
FORM busca_sequencial
CHANGING p_novo_nrseq TYPE /pws/zycbt226-nrseq.
TYPES:
BEGIN OF t_s_nrseq,
nrseq TYPE /pws/zycbt226,
END OF t_s_nrseq,
t_t_nrseq TYPE TABLE OF t_s_nrseq.
DATA:
v_nrseq(8) TYPE c,
v_ano(3) TYPE c.
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
CLEAR v_ultimo_nrseq.
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO v_ultimo_nrseq
FROM /pws/zycbt226
WHERE nrseq LIKE v_ano.
IF v_ultimo_nrseq IS INITIAL.
CONCATENATE '00000000' sy-datum+2(2) INTO v_ultimo_nrseq.
ENDIF.
v_nrseq = v_ultimo_nrseq(8) + 1.
CONCATENATE v_nrseq v_ultimo_nrseq+8(2) INTO p_novo_nrseq.
...
...
IF sy-subrc EQ '0'.
/pws/zycbe226-sld_transferir = <fs_zycbt030>-vlsltrans.
ENDIF.
LOOP AT itab_zycbt209 ASSIGNING <fs_zycbt209> WHERE
nrinvoic = /pws/zycbe226-nrinvoic AND
nrparcf = /pws/zycbe226-nrparcf AND
gsberf = /pws/zycbe226-gsberf.
/pws/zycbe226-sld_transferir = /pws/zycbe226-sld_transferir +
<fs_zycbt209>-saldo.
ENDLOOP.
* >> Início da exclusão: FORM PREENCHE_TC_OP
IF sy-tcode = c_transacao_c AND
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_TC_OP
IF ( sy-tcode = c_transacao_c OR sy-tcode = c_trans_sml_c ) AND
* << Fim da inclusão
<fs_zycbt226>-status = 'C'.
PERFORM bloqueia_celula.
ENDIF.
ENDIF.
v_check = ' ' .
ENDFORM.
FORM atualiza_tc_op.
DATA: wa_lfa1 TYPE t_s_lfa1,
wa_kna1 TYPE t_s_kna1,
wa_zycbt226 TYPE t_s_zycbe226,
...
...
IF NOT wa_zycbt226-vlr_exterior IS INITIAL.
MOVE wa_zycbt226-vlr_exterior TO /pws/zycbe226-vlr_exterior.
CLEAR wa_zycbt226-drilldown.
ELSEIF NOT /pws/zycbe226-vlr_exterior IS INITIAL.
MOVE /pws/zycbe226-vlr_exterior TO /pws/zycbe226-vlr_exterior.
CLEAR wa_zycbt226-drilldown.
ENDIF.
ENDIF.
IF sy-tcode EQ c_transacao_c.
/pws/zycbe226-sld_exterior = /pws/zycbe226-vlr_exterior.
* >> Início da inclusão: FORM ATUALIZA_TC_OP
ELSEIF sy-tcode EQ c_trans_sml_c.
CLEAR /pws/zycbe226-sld_exterior.
/pws/zycbe226-origem_op = 'P'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_TC_OP
IF sy-tcode EQ c_transacao_c AND
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TC_OP
IF ( sy-tcode EQ c_transacao_c OR
sy-tcode EQ c_trans_sml_c ) AND
* << Fim da inclusão
opt_origem_pagantec EQ 'X'.
/pws/zycbe226-vlavinc = /pws/zycbe226-vlr_exterior.
/pws/zycbe226-sld_transferir = /pws/zycbe226-sld_exterior.
/pws/zycbe226-sld_associar = /pws/zycbe226-vlr_exterior.
IF /pws/zycbe226-tipo_op NE 'P'.
/pws/zycbe226-tipo_op = 'P'.
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_TC_OP
ELSEIF sy-tcode EQ c_transacao_c AND
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TC_OP
ELSEIF ( sy-tcode EQ c_transacao_c OR
sy-tcode EQ c_trans_sml_c ) AND
* << Fim da inclusão
opt_origem_embarque EQ 'X' AND
/pws/zycbe226-tipo_op NE 'E'.
/pws/zycbe226-tipo_op = 'E'.
ENDIF.
MOVE-CORRESPONDING /pws/zycbe226 TO wa_zycbt226.
IF NOT wa_zycbt226-belnr_op2 IS INITIAL.
MOVE wa_zycbt226-belnr_op2 TO /pws/zycbe226-belnr_op.
ENDIF.
if /pws/zycbe226-belnr_op is initial.
PERFORM altera_conta_contabil .
...
...
ENDIF.
UNASSIGN <fs_record>.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE w061 WITH
'Por favor, selecionar pelo menos uma fatura.'(m01).
ENDIF.
ENDFORM.
FORM bloqueia_celula.
LOOP AT SCREEN.
* >> Início da exclusão: FORM BLOQUEIA_CELULA
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM BLOQUEIA_CELULA
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF screen-name = '/PWS/ZYCBE226-GSBERF' OR
screen-name = '/PWS/ZYCBE226-BUKRS' OR
screen-name = '/PWS/ZYCBE226-WERKS' OR
screen-name = '/PWS/ZYCBE226-J_1BBRANCH' OR
screen-name = '/PWS/ZYCBE226-KUNAG' OR
screen-name = '/PWS/ZYCBE226-WAERS' OR
screen-name = '/PWS/ZYCBE226-NRINVOIC' OR
screen-name = '/PWS/ZYCBE226-BCO_ME' OR
screen-name = '/PWS/ZYCBE226-BCO_RECEBEDOR' OR
screen-name = '/PWS/ZYCBE226-REF_OP' OR
screen-name = '/PWS/ZYCBE226-OBS' OR
screen-name = '/PWS/ZYCBE226-VLR_EXTERIOR' OR
screen-name = '/PWS/ZYCBE226-DTCREDEXT' OR
screen-name = '/PWS/ZYCBE226-DTLANCTO' OR
screen-name = '/PWS/ZYCBE226-DESTINO'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: FORM BLOQUEIA_CELULA
ELSEIF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM BLOQUEIA_CELULA
ELSEIF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF screen-name = '/PWS/ZYCBE226-BCO_RECEBEDOR' OR
screen-name = '/PWS/ZYCBE226-REF_OP' OR
screen-name = '/PWS/ZYCBE226-OBS' OR
screen-name = '/PWS/ZYCBE226-DESTINO'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
...
...
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
'Ordem de Pagamento'(001)
<fs_op>-nrseq
'tem disponibilidade(s) de 70%.'(040)
'Estorno não permitido.'(m15)
'061'.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM PROCESSAMENTO
IF <fs_op>-vlr_exterior NE <fs_op>-sld_exterior.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAMENTO
IF <fs_op>-vlr_exterior NE <fs_op>-sld_exterior
AND sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
'Ordem de Pagamento'(001)
<fs_op>-nrseq
'está paga.'(m14)
'Estorno não permitido.'(m15)
'061'.
CONTINUE.
ENDIF.
...
...
CLEAR v_excecao.
PERFORM: le_dados,
verifica_dados USING space
CHANGING v_excecao.
IF v_excecao IS INITIAL.
PERFORM: contabilizacoes.
ENDIF.
ENDIF.
ENDLOOP.
PERFORM message_show USING 'X'.
* >> Início da exclusão: FORM PROCESSAMENTO
IF sy-tcode EQ c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAMENTO
IF sy-tcode EQ c_transacao_c
OR sy-tcode EQ c_trans_sml_c.
* << Fim da inclusão
LOOP AT itab_zycbt226 INTO wa_zycbt226
WHERE status NE c_contabilizado.
EXIT.
ENDLOOP.
IF sy-subrc NE 0 AND NOT itab_zycbt226[] IS INITIAL.
* >> Início da inclusão: FORM PROCESSAMENTO
IF sy-tcode EQ c_transacao_c.
* << Fim da inclusão
PERFORM leave_to_transaction
USING c_transacao_a.
* >> Início da inclusão: FORM PROCESSAMENTO
ELSEIF sy-tcode EQ c_trans_sml_c.
PERFORM leave_to_transaction
USING c_trans_sml_a.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM PROCESSAMENTO
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM verifica_dados
USING p_estorno TYPE c
CHANGING p_excecao TYPE c.
PERFORM verifica_parametrizacao_taxas
...
...
i_bukrs = p_bukrs
i_gjahr = p_ano
i_koart = '+'
i_monat = p_periodo
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc <> 0.
p_periodo_fechado = 'X'.
* >> Início da exclusão: FORM VERIFICA_PERIODO_CONTABIL
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PERIODO_CONTABIL
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCBM'
msgty = 'W'
msgv1 = 'O período contábil'(m07)
msgv2 = p_periodo
msgv3 = p_ano
msgv4 = 'está fechado.'(m08)
txtnr = 061
EXCEPTIONS
...
...
ENDCASE.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM doc_op USING value(p_estorno) TYPE c
CHANGING p_belnr_est_f02 TYPE /pws/zycbt226-belnr_op
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
wa_zycbe033 TYPE t_s_zycbe033,
wa_zycbt034 TYPE t_s_zycbt034,
* >> Início da exclusão: FORM DOC_OP
wa_zycbt209 TYPE t_s_zycbt209,
* << Fim da exclusão
wa_tab_op TYPE t_s_tab_op,
v_lancto_multiplo TYPE c,
v_newbs2 TYPE newbs,
v_titulo(31) TYPE c,
v_codeven TYPE /pws/zycbt011-codeven.
CONSTANTS: c_op(23) TYPE c VALUE 'DOC. ORDEM DE PAGAMENTO',
c_est_op(31) TYPE c VALUE 'DOC. ESTORNO ORDEM DE PAGAMENTO'
.
IF p_estorno IS INITIAL.
CHECK <fs_op>-belnr_op IS INITIAL.
...
...
wa_zycbe033-werks = <fs_op>-werks.
ENDIF.
CONCATENATE text-038
<fs_op>-nrinvoic <fs_op>-nrparcf
INTO wa_zycbe033-d_zuonr
SEPARATED BY space.
CONCATENATE text-038
<fs_op>-nrinvoic <fs_op>-nrparcf
INTO wa_zycbe033-c_zuonr
SEPARATED BY space.
* >> Início da inclusão: FORM DOC_OP
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb.
ELSEIF <fs_op>-tipo_op = 'P'.
* >> Início da exclusão: FORM DOC_OP
v_codeven = '030'.
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_OP
v_codeven = c_codeven_op_pagant.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DOC_OP
ELSEIF sy-tcode+13(3) EQ 'SML'.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb_sml.
ELSEIF <fs_op>-tipo_op = 'P'.
v_codeven = c_codeven_op_pagant_sml.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
v_codeven
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
...
...
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-02'
tabela = '/PWS/ZYCBT226'
cpochv = wa_zycbe033-cpochv
tpmsg = 'S'
INTO wa_zycbt032.
IF sy-subrc EQ 0.
IF p_estorno IS INITIAL.
PERFORM busca_sequencial CHANGING v_novo_nrseq.
* >> Início da exclusão: FORM DOC_OP
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_OP
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
CLEAR v_wrbtr.
* << Fim da inclusão
<fs_op>-nrseq = v_novo_nrseq.
<fs_op>-belnr_op = wa_zycbt032-belnr.
IF <fs_op>-tipo_op = 'E'.
<fs_op>-status = 'I'.
* >> Início da inclusão: FORM DOC_OP
PERFORM atualiza_saldos_sml USING ' '.
* << Fim da inclusão
READ TABLE itab_zycbt030 INTO wa_zycbt030 WITH KEY
nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf.
* >> Início da exclusão: FORM DOC_OP
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_OP
IF sy-subrc = 0
AND wa_zycbt030-vlsltrans > 0 and v_wrbtr > 0.
* << Fim da inclusão
wa_zycbt030-vlsltrans = wa_zycbt030-vlsltrans -
* >> Início da exclusão: FORM DOC_OP
wa_zycbe033-wrbtr.
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_OP
v_wrbtr.
IF wa_zycbt030-vlsltrans < 0.
v_wrbtr = wa_zycbt030-vlsltrans * ( -1 ).
CLEAR wa_zycbt030-vlsltrans.
ENDIF.
* << Fim da inclusão
UPDATE /pws/zycbt030
SET vlsltrans = wa_zycbt030-vlsltrans
WHERE nrinvoic = wa_zycbt030-nrinvoic
AND nrparcf = wa_zycbt030-nrparcf
AND gsberf = wa_zycbt030-gsberf.
ENDIF.
ENDIF.
IF <fs_op>-tipo_op = 'P'.
<fs_op>-status = 'C'.
ENDIF.
...
...
<fs_op>-conta_contabil = &2.
<fs_op>-rze = &3.
END-OF-DEFINITION.
DATA:
wa_zyglt316 TYPE t_s_zyglt316,
wa_zycbt011 TYPE t_s_zycbt011,
v_codeven TYPE /pws/zycbt011-codeven,
v_banco TYPE /pws/zycbt226-bco_me.
READ TABLE itab_zycbt089 INTO wa_zycbt089 WITH KEY
bukrs = <fs_op>-bukrs.
* >> Início da inclusão: FORM BUSCA_CONTA
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb.
* >> Início da inclusão: FORM BUSCA_CONTA
ENDIF.
IF <fs_op>-tipo_op = 'P'.
v_codeven = c_codeven_op_pagant.
ENDIF.
ELSEIF sy-tcode+13(3) EQ 'SML'.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb_sml.
* << Fim da inclusão
ENDIF.
IF <fs_op>-tipo_op = 'P'.
* >> Início da exclusão: FORM BUSCA_CONTA
v_codeven = '030'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA
v_codeven = c_codeven_op_pagant_sml.
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
FORM armazena_dados_antigos.
REFRESH itab_zycbt226_ant.
IF NOT itab_zycbt226[] IS INITIAL.
SELECT *
FROM /pws/zycbt226
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt226_ant
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrinvoic = itab_zycbt226-nrinvoic
AND gsberf = itab_zycbt226-gsberf
AND nrparcf = itab_zycbt226-nrparcf.
* >> Início da inclusão: FORM ARMAZENA_DADOS_ANTIGOS
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_zycbt226_ant WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_zycbt226_ant WHERE origem_op NE 'P'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM atualiza_dados_op.
DATA: wa_anterior TYPE t_s_zycbe226.
* >> Início da exclusão: FORM ATUALIZA_DADOS_OP
CHECK sy-tcode NE c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_OP
CHECK sy-tcode NE c_transacao_c
AND sy-tcode NE c_trans_sml_c.
* << Fim da inclusão
READ TABLE itab_zycbt226_ant INTO wa_anterior WITH KEY
nrseq = <fs_op>-nrseq
nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf.
IF sy-subrc = 0.
IF <fs_op>-bco_recebedor NE wa_anterior-bco_recebedor OR
<fs_op>-ref_op NE wa_anterior-ref_op OR
<fs_op>-obs NE wa_anterior-obs OR
<fs_op>-destino NE wa_anterior-destino.
...
...
FIELD-SYMBOLS: <fs_zycbt030> TYPE t_s_zycbt030.
CHECK NOT <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desm_cli IS INITIAL AND
v_desm_cli = 'X'.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
* >> Início da exclusão: FORM DOC_DESM_CLIENTE
codeven = '010'
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
codeven = c_codeven_fat
* << Fim da inclusão
codmod = c_modulo
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
* >> Início da exclusão: FORM DOC_DESM_CLIENTE
codeven = '010'
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
codeven = c_codeven_fat
* << Fim da inclusão
codmod = c_modulo
bukrs = space.
ENDIF.
PERFORM verifica_campo_vazio USING wa_zycbt011-blart
'BLART'
'Tipo de documento'(008).
IF sy-subrc = 0.
wa_zycbe033-blart = wa_zycbt011-blart.
ENDIF.
PERFORM verifica_campo_vazio USING <fs_op>-dtlancto
...
...
wa_zycbe033-gsber = <fs_op>-gsberf.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
ENDIF.
IF NOT <fs_op>-j_1bbranch IS INITIAL.
wa_zycbe033-brnch = <fs_op>-j_1bbranch.
ENDIF.
IF NOT <fs_op>-werks IS INITIAL.
wa_zycbe033-werks = <fs_op>-werks.
ENDIF.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chv_oper_fat
c_codeven_op_emb
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
PERFORM define_taxa_cambio
USING 'C'
space
c_codeven_op_emb
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chv_oper_fat
c_codeven_op_emb_sml
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
PERFORM define_taxa_cambio
USING 'C'
space
c_codeven_op_emb_sml
* << Fim da inclusão
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
ENDIF.
* << Fim da inclusão
PERFORM verifica_campo_vazio USING wa_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
IF v_desm_cli = 'X' AND v_desm_liqand = ' '.
wa_zycbe033-wrbtr = <fs_op>-vlr_exterior.
* >> Início da exclusão: FORM DOC_DESM_CLIENTE
v_vinc_tot = 'X'.
* << Fim da exclusão
ELSEIF v_desm_cli = 'X' AND v_desm_liqand = 'X'.
wa_zycbe033-wrbtr = <fs_op>-vlr_exterior - v_sld_liq_and.
ENDIF.
READ TABLE itab_zycbt030
WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
ASSIGNING <fs_zycbt030>.
IF sy-subrc = 0.
IF NOT <fs_zycbt030>-belnr6 IS INITIAL.
wa_zycbe033-belnr = <fs_zycbt030>-belnr6.
ELSE.
wa_zycbe033-belnr = <fs_zycbt030>-belnr.
ENDIF.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
IF wa_zycbe033-wrbtr => <fs_zycbt030>-vlsltrans.
v_vinc_tot = 'X'.
ENDIF.
* << Fim da inclusão
ENDIF.
wa_zycbe033-d_newko = <fs_op>-kunag.
wa_zycbe033-newbs = '01'.
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
'D'
wa_zycbe033-d_newko
'S'.
IF <fs_zycbt030> IS ASSIGNED.
CONCATENATE text-038
...
...
belnr = <fs_zycbt209>-belnr
dtincl = <fs_zycbt209>-dtincl.
IF sy-subrc = 0 AND
NOT wa_zycbt225-belnr_desmliqand IS INITIAL.
EXIT.
ENDIF.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = c_codeven_liqand
codmod = c_modulo
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = c_codeven_liqand_op
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
codmod = c_modulo
bukrs = space.
ENDIF.
ELSEIF sy-tcode+13(3) EQ 'SML'.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = c_codeven_liqand_sml
* << Fim da inclusão
codmod = c_modulo
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = c_codeven_liqand_op_sml
codmod = c_modulo
* << Fim da inclusão
bukrs = space.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM verifica_campo_vazio USING wa_zycbt011-blart
'BLART'
'Tipo de documento'(008).
IF sy-subrc = 0.
wa_zycbe033-blart = wa_zycbt011-blart.
ENDIF.
IF NOT <fs_zycbt209>-belnr2 IS INITIAL.
wa_zycbe033-belnr = <fs_zycbt209>-belnr2.
ELSE.
...
...
wa_zycbe033-gsber = <fs_op>-gsberf.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
ENDIF.
IF NOT <fs_op>-j_1bbranch IS INITIAL.
wa_zycbe033-brnch = <fs_op>-j_1bbranch.
ENDIF.
IF NOT <fs_op>-werks IS INITIAL.
wa_zycbe033-werks = <fs_op>-werks.
ENDIF.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
c_codeven_liqand_op
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
c_codeven_liqand_op_sml
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
ENDIF.
* << Fim da inclusão
CONCATENATE text-038
<fs_zycbt209>-nrinvoic <fs_zycbt209>-nrparcf
INTO wa_zycbe033-d_zuonr
SEPARATED BY space.
CONCATENATE text-038
<fs_zycbt209>-nrinvoic <fs_zycbt209>-nrparcf
INTO wa_zycbe033-c_zuonr
SEPARATED BY space.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM define_taxa_cambio
USING 'L'
space
c_codeven_liqand
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM define_taxa_cambio
USING 'L'
space
c_codeven_liqand_sml
* << Fim da inclusão
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
* >> Início da inclusão: FORM DOC_DESM_LIQ_AND
ENDIF.
* << Fim da inclusão
PERFORM verifica_campo_vazio USING wa_zycbe033-kursf
'KURSF'
...
...
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
PERFORM verifica_campo_vazio USING <fs_op>-dtlancto
'DTLANCTO'
'Data de Lançamento'(004).
IF NOT <fs_op>-dtlancto IS INITIAL.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-bldat = <fs_op>-dtlancto.
ENDIF.
* >> Início da inclusão: FORM DOC_COMPENSACAO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = c_codeven_op_emb
codmod = c_modulo
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = c_codeven_op_emb
* >> Início da inclusão: FORM DOC_COMPENSACAO
codmod = c_modulo
bukrs = space.
ENDIF.
ELSEIF sy-tcode+13(3) EQ 'SML'.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = c_codeven_op_emb_sml
codmod = c_modulo
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = c_codeven_op_emb_sml
* << Fim da inclusão
codmod = c_modulo
bukrs = space.
* >> Início da inclusão: FORM DOC_COMPENSACAO
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM verifica_campo_vazio USING wa_zycbt011-blart
'BLART'
'Tipo de documento'(008).
IF sy-subrc = 0.
wa_zycbe033-blart = wa_zycbt011-blart.
ENDIF.
PERFORM verifica_campo_vazio USING <fs_op>-bukrs
'BUKRS'
'Empresa'(006).
wa_zycbe033-bukrs = <fs_op>-bukrs.
PERFORM verifica_campo_vazio USING <fs_op>-waers
'WAERS'
'Moeda'(010).
wa_zycbe033-waers = <fs_op>-waers.
* >> Início da inclusão: FORM DOC_COMPENSACAO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
c_codeven_op_emb
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
PERFORM define_taxa_cambio
USING 'O'
space
c_codeven_op_emb
* >> Início da inclusão: FORM DOC_COMPENSACAO
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
c_codeven_op_emb_sml
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
PERFORM define_taxa_cambio
USING 'O'
space
c_codeven_op_emb_sml
* << Fim da inclusão
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
* >> Início da inclusão: FORM DOC_COMPENSACAO
ENDIF.
* << Fim da inclusão
PERFORM verifica_campo_vazio USING wa_zycbe033-kursf
'KURSF'
...
...
dynumb = '0110'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 0.
IF sy-subrc EQ 0 AND
NOT tdynpread-fieldvalue IS INITIAL.
EXIT.
ENDIF.
IF sy-tcode = c_transacao_a OR
* >> Início da exclusão: FORM GET_INVOICE
sy-tcode = c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
sy-tcode = c_transacao_e
OR sy-tcode = c_trans_sml_a
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
l_display = 'X'.
ELSE.
l_display = ' '.
ENDIF.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBE226'
fieldname = 'NRINVOIC'
searchhelp = '/PWS/ZYCBA275'
multiple_choice = 'X'
...
...
wa_moeda TYPE t_moeda,
itab_moeda TYPE TABLE OF t_moeda WITH DEFAULT KEY,
v_kursf TYPE tcurr-ukurs,
v_ctg_moeda TYPE /pws/zycbt011-ctmoed,
wa_zycbt009 TYPE t_s_zycbt009,
itab_226 TYPE t_t_zycbt226.
CHECK wa_controle-total_30_70 IS INITIAL.
CLEAR: v_total_30,
v_total_70.
SELECT * FROM /pws/zycbt226
* >> Início da exclusão: FORM CALCULA_TOTAL_DESTINO
INTO CORRESPONDING FIELDS OF TABLE itab_226. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL_DESTINO
INTO CORRESPONDING FIELDS OF TABLE itab_226. "#EC CI_NOWHERE
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_226 WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_226 WHERE origem_op NE 'P'.
ENDIF.
* << Fim da inclusão
SORT itab_226 BY destino waers ASCENDING.
LOOP AT itab_226 INTO wa_zycbt226.
IF ( wa_zycbt226-destino NE v_destino AND
wa_zycbt226-waers NE v_moeda ) OR
( wa_zycbt226-destino = v_destino AND
wa_zycbt226-waers NE v_moeda ) OR
( wa_zycbt226-destino NE v_destino AND
wa_zycbt226-waers = v_moeda ).
CLEAR wa_moeda.
wa_moeda-destino = wa_zycbt226-destino.
...
...
'Data de Lançamento'(004).
IF wa_controle-periodo_fechado = 'X'.
wa_zycbe033-budat = sy-datum.
wa_zycbe033-bldat = <fs_op>-dtlancto.
ELSE.
IF NOT <fs_op>-dtlancto IS INITIAL.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-bldat = <fs_op>-dtlancto.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ESTORNO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
CASE p_processo(1).
WHEN 'C'.
v_codeven = c_codeven_fat.
WHEN 'L'.
v_codeven = c_codeven_liqand.
WHEN 'O'.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb.
* >> Início da inclusão: FORM ESTORNO
ELSEIF <fs_op>-tipo_op = 'P'.
v_codeven = c_codeven_op_pagant.
ENDIF.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
CASE p_processo(1).
WHEN 'C'.
v_codeven = c_codeven_fat.
WHEN 'L'.
v_codeven = c_codeven_liqand_sml.
WHEN 'O'.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb_sml.
* << Fim da inclusão
ELSEIF <fs_op>-tipo_op = 'P'.
* >> Início da exclusão: FORM ESTORNO
v_codeven = '030'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO
v_codeven = c_codeven_op_pagant_sml.
* << Fim da inclusão
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM ESTORNO
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = v_codeven
codmod = c_modulo
bukrs = <fs_op>-bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = v_codeven
codmod = c_modulo
...
...
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING <fs_op>-bukrs
'BUKRS'
'Empresa'(006).
wa_zycbe033-bukrs = <fs_op>-bukrs.
PERFORM verifica_campo_vazio USING <fs_op>-waers
'WAERS'
'Moeda'(010).
wa_zycbe033-waers = <fs_op>-waers.
* >> Início da inclusão: FORM ESTORNO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
CASE p_processo(1).
WHEN 'C'.
v_chvoper = c_chv_oper_fat.
v_codeven = c_codeven_op_emb.
v_titulo = 'CLEARING DA CONTA DO CLIENTE'(023).
WHEN 'L'.
v_chvoper = c_chave_oper.
v_codeven = c_codeven_liqand_op.
v_titulo = 'CLEARING DA CONTA TRANSITÓRIA - LIQ. AND.'(024).
WHEN 'O'.
v_chvoper = c_chave_oper.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb.
* >> Início da inclusão: FORM ESTORNO
v_titulo = 'CLEARING DA CONTA CORRENTE DO BANCO ME'(025).
ENDIF.
IF <fs_op>-tipo_op = 'P'.
v_codeven = c_codeven_op_pagant.
IF p_processo = 'OC'.
v_titulo = 'CLEARING DA CONTA DO CLIENTE RZE'(026).
ELSEIF p_processo = 'OM'.
* << Fim da inclusão
v_titulo = 'CLEARING DA CONTA CORRENTE DO BANCO ME'(025).
ENDIF.
* >> Início da inclusão: FORM ESTORNO
ENDIF.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
CASE p_processo(1).
WHEN 'C'.
v_chvoper = c_chv_oper_fat.
v_codeven = c_codeven_op_emb_sml.
v_titulo = 'CLEARING DA CONTA DO CLIENTE'(023).
WHEN 'L'.
v_chvoper = c_chave_oper.
v_codeven = c_codeven_liqand_op_sml.
v_titulo = 'CLEARING DA CONTA TRANSITÓRIA - LIQ. AND.'(024).
WHEN 'O'.
v_chvoper = c_chave_oper.
IF <fs_op>-tipo_op = 'E'.
v_codeven = c_codeven_op_emb_sml.
v_titulo = 'CLEARING DA CONTA CORRENTE DO BANCO ME'(025).
ENDIF.
* << Fim da inclusão
IF <fs_op>-tipo_op = 'P'.
* >> Início da exclusão: FORM ESTORNO
v_codeven = '030'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO
v_codeven = c_codeven_op_pagant_sml.
* << Fim da inclusão
IF p_processo = 'OC'.
v_titulo = 'CLEARING DA CONTA DO CLIENTE RZE'(026).
ELSEIF p_processo = 'OM'.
v_titulo = 'CLEARING DA CONTA CORRENTE DO BANCO ME'(025).
ENDIF.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM ESTORNO
ENDIF.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
v_chvoper
v_codeven
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
...
...
ENDFORM.
FORM apaga_registros.
DATA v_nrseq_op TYPE /pws/zycbt226-nrseq.
CHECK <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desm_cli IS INITIAL AND
<fs_op>-belnr_desmliqand IS INITIAL AND
<fs_op>-belnr_compens IS INITIAL.
v_nrseq_op = <fs_op>-nrseq.
MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
* >> Início da inclusão: FORM APAGA_REGISTROS
PERFORM atualiza_saldos_sml USING 'X'.
* << Fim da inclusão
DELETE itab_zycbt226 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt226 WHERE nrseq = v_nrseq_op.
DELETE itab_zycbt225 WHERE nrseq = v_nrseq_op.
DELETE FROM /pws/zycbt225 WHERE nrseq = v_nrseq_op.
ENDFORM.
FORM f02_reversa
CHANGING p_belnr_est_f02 TYPE /pws/zycbt226-belnr_op
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
wa_zycbe033 TYPE t_s_zycbe033,
...
...
wa_zycbe033-gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
ENDIF.
IF NOT <fs_op>-j_1bbranch IS INITIAL.
wa_zycbe033-brnch = <fs_op>-j_1bbranch.
ENDIF.
IF NOT <fs_op>-werks IS INITIAL.
wa_zycbe033-werks = <fs_op>-werks.
ENDIF.
* >> Início da inclusão: FORM F02_REVERSA
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
v_codeven = c_codeven_op_emb.
* >> Início da inclusão: FORM F02_REVERSA
ELSEIF sy-tcode+13(3) EQ 'SML'.
v_codeven = c_codeven_op_emb_sml.
ENDIF.
* << Fim da inclusão
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
c_chave_oper
...
...
'Data de Lançamento'(004).
IF wa_controle-periodo_fechado = 'X'.
wa_zycbe033-budat = sy-datum.
wa_zycbe033-bldat = <fs_op>-dtlancto.
ELSE.
IF NOT <fs_op>-dtlancto IS INITIAL.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-bldat = <fs_op>-dtlancto.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
v_codeven = c_codeven_liqand.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
ELSEIF sy-tcode+13(3) EQ 'SML'.
v_codeven = c_codeven_liqand_sml.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = v_codeven
codmod = c_modulo
...
...
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING <fs_op>-bukrs
'BUKRS'
'Empresa'(006).
wa_zycbe033-bukrs = <fs_op>-bukrs.
PERFORM verifica_campo_vazio USING <fs_op>-waers
'WAERS'
'Moeda'(010).
wa_zycbe033-waers = <fs_op>-waers.
v_chvoper = c_chave_oper.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
v_codeven = c_codeven_liqand_op.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
ELSEIF sy-tcode+13(3) EQ 'SML'.
v_codeven = c_codeven_liqand_op_sml.
ENDIF.
* << Fim da inclusão
v_titulo = 'CLEARING DA CONTA TRANSITÓRIA - LIQ. AND.'(024).
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
...
...
FORM loop_at_screen_contr
USING p_itab_contrato TYPE t_t_contrato
p_tc TYPE cxtab_control.
DATA:
wa_contrato LIKE LINE OF p_itab_contrato.
READ TABLE p_itab_contrato INTO wa_contrato
INDEX p_tc-current_line.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = /pws/zycbe226-bukrs.
LOOP AT SCREEN.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_CONTR
IF sy-tcode EQ c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_CONTR
IF sy-tcode EQ c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ELSE.
IF /pws/zycbe239-tpcontr IS INITIAL.
screen-input = 0.
MODIFY SCREEN.
ELSEIF /pws/zycbe239-tpcontr EQ c_tp4.
IF screen-name EQ '/PWS/ZYCBE239-BCO_MI' OR
screen-name EQ '/PWS/ZYCBE239-BCO_FECH' OR
screen-name EQ '/PWS/ZYCBE239-KURSF' OR
...
...
wa_mensagem TYPE t_mensagem.
CHECK p_contrato-doc_cont IS INITIAL.
CHECK p_contrato-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_contrato-tpcontr
p_contrato-nrseq
p_contrato-destino
p_contrato-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
p_contrato-txtlanc
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
p_contrato-txtlanc
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_CONTRATO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_CONTRATO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
p_contrato-txtlanc
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_CONTRATO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_CONTRATO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
p_contrato-txtlanc
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CONTABILIZA_CONTRATO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f02_contrato
USING p_disp
p_contrato
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f02.
PERFORM verifica_contabilizacao
...
...
ENDFORM.
FORM busca_parametros
USING p_evento TYPE /pws/zycbt011-codeven
p_modulo
CHANGING p_zycbt011 TYPE /pws/zycbe011
p_zycbe033 LIKE LINE OF itab_zycbe033.
SELECT * FROM /pws/zycbt011
UP TO 1 ROWS
INTO p_zycbt011
WHERE codeven = p_evento
* >> Início da exclusão: FORM BUSCA_PARAMETROS
AND codmod = p_modulo.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS
AND codmod = p_modulo
AND bukrs = <fs_op>-bukrs.
* << Fim da inclusão
ENDSELECT.
p_zycbe033-blart = p_zycbt011-blart.
p_zycbe033-agums = p_zycbt011-agums.
p_zycbe033-augtx = p_zycbt011-txtdesc.
p_zycbe033-d_sgtxt = p_zycbt011-txtdesc.
p_zycbe033-agkoa = 'S'.
ENDFORM.
FORM executa_f02.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02'
EXPORTING
...
...
AND doc_comp EQ space.
ENDLOOP.
CHECK sy-subrc EQ 0.
CLEAR wa_contrato.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CLEARING_CONTRATO
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN c_embarque_exportacao.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN c_pagamento_antecipado.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN c_embarque_exportacao.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTRATO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTRATO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTRATO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTRATO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN c_pagamento_antecipado.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTRATO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTRATO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTRATO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTRATO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CLEARING_CONTRATO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_clearing_contrato
USING p_disp
p_itab_contrato
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
CLEAR:
...
...
v_nrseqr = v_nrseqr + 1.
<fs_rend>-nrseqr = v_nrseqr.
ENDIF.
READ TABLE itab_rendimentos_ant
WITH KEY nrseqr = <fs_rend>-nrseqr
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
INSERT INTO /pws/zycbt240 VALUES <fs_rend>.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM SALVA_RENDIMENTOS
IF sy-subrc NE 0 AND sy-tcode NE c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
IF sy-subrc NE 0 AND sy-tcode NE c_transacao_c
AND sy-tcode NE c_trans_sml_c.
* << Fim da inclusão
DELETE FROM /pws/zycbt240 WHERE nrseqr <> space. "#EC CI_NOFIELD
REFRESH itab_rendimentos_ant.
ENDIF.
MODIFY /pws/zycbt240 FROM TABLE itab_rendimentos.
ENDFORM.
FORM user_command_0140.
CASE ok_code.
WHEN 'MARK'.
PERFORM preenche_campo_itab
USING 'MARK'
...
...
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_disp-doc_cont IS INITIAL.
CHECK p_disp-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CONTABILIZA_DISPONIBILIDADE
ENDIF.
* << Fim da inclusão
PERFORM preenche_f02_disponibilidade
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f02.
PERFORM verifica_contabilizacao
USING c_f02 c_zycbt239 v_cpochv
...
...
wa_mensagem TYPE t_mensagem.
CHECK NOT p_disp-doc_cont IS INITIAL.
CHECK p_disp-doc_desm IS INITIAL.
CHECK p_disp-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM DESMEMBRAMENTO_DISPONIBILIDADE
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_desmemb_disp
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt239 v_cpochv
...
...
CHECK p_disp-doc_comp IS INITIAL.
CHECK NOT p_disp-doc_cont IS INITIAL.
CHECK NOT p_disp-doc_desm IS INITIAL.
CHECK p_disp-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_DISPONIBILIDADE
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_DISPONIBILIDADE
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CLEARING_DISPONIBILIDADE
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_clearing_disp
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt239 v_cpochv
...
...
wa_cont TYPE t_contabilizacoes,
wa_zycbt011 TYPE /pws/zycbe011,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CONTABILIZA_ESTORNO_DISPON
ENDIF.
* << Fim da inclusão
PERFORM preenche_f02_estorno_dispon
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f02.
PERFORM verifica_contabilizacao
USING c_f02 c_zycbt239 v_cpochv
...
...
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK NOT p_disp-belnr_f02 IS INITIAL.
CHECK p_disp-operacao EQ c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_clearing_banco
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt239 v_cpochv
...
...
wa_zycbt011 TYPE /pws/zycbe011,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_disp-operacao EQ c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_disp-nrseq
p_disp-destino
p_disp-dtdisp
INTO v_cpochv.
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
IF sy-tcode+13(3) NE 'SML'.
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
USING c_codeven_op_emb
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_emb
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
CASE <fs_op>-tipo_op.
WHEN 'E'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTA_DISP
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
USING c_codeven_op_emb_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTA_DISP
USING '029'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
USING c_codeven_op_emb_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
WHEN 'P'.
PERFORM busca_parametros
* >> Início da exclusão: FORM CLEARING_CONTA_DISP
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CLEARING_CONTA_DISP
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
ENDCASE.
* >> Início da inclusão: FORM CLEARING_CONTA_DISP
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_clear_conta_disp
USING p_disp
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt239 v_cpochv
...
...
FORM loop_at_screen_rendimentos
USING p_itab_rend TYPE t_t_rendimentos
p_tc TYPE cxtab_control.
DATA:
wa_rend TYPE t_rendimentos. "#EC NEEDED
READ TABLE p_itab_rend INTO wa_rend
INDEX p_tc-current_line.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = /pws/zycbe226-bukrs.
LOOP AT SCREEN.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_RENDIMENTOS
IF sy-tcode EQ c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_RENDIMENTOS
IF sy-tcode EQ c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM estorna_disp_incompleta
USING p_disp TYPE t_disponibilidade.
DATA:
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbe033 TYPE t_s_zycbe033.
...
...
CALL SCREEN '0200' STARTING AT 5 3.
REFRESH itab_devolucao.
ENDIF.
ENDFORM.
FORM adicionar_item_devolucao
USING p_zycbt226 LIKE LINE OF itab_zycbt226.
DATA:
wa_devolucao LIKE LINE OF itab_devolucao.
FIELD-SYMBOLS:
<fs_devolucao> LIKE LINE OF itab_devolucao.
* >> Início da exclusão: FORM ADICIONAR_ITEM_DEVOLUCAO
CHECK sy-tcode NE c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONAR_ITEM_DEVOLUCAO
CHECK sy-tcode NE c_transacao_e
AND sy-tcode NE c_trans_sml_e.
* << Fim da inclusão
IF p_zycbt226-sld_exterior EQ 0 OR
p_zycbt226-sld_associar EQ 0.
PERFORM message_store USING
'/PWS/ZYCBM'
'I'
'Ordem de Pagamento'(001)
p_zycbt226-nrseq
'não possui saldo para devolução.'(m42)
space
'061'.
...
...
wa_cont TYPE t_contabilizacoes,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_DEVOLUCAO
IF sy-tcode+13(3) NE 'SML'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321_devolucao
USING c_codeven_op_pagant
'FBK'
p_devolucao
CHANGING wa_zycbe033.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321_devolucao
* >> Início da exclusão: FORM CONTABILIZA_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'FBK'
p_devolucao
CHANGING wa_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_DEVOLUCAO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f02_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
...
...
wa_cont TYPE t_contabilizacoes,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr_desm_op IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
IF sy-tcode+13(3) NE 'SML'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_DESM_DEVOLUCAO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_desm_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
...
...
wa_zycbt011 TYPE /pws/zycbe011,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK NOT p_devolucao-belnr IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
* >> Início da inclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
IF sy-tcode+13(3) NE 'SML'.
PERFORM busca_parametros
USING c_codeven_op_pagant
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant
'TRE'
space
CHANGING wa_zycbe033.
ELSEIF sy-tcode+13(3) EQ 'SML'.
* << Fim da inclusão
PERFORM busca_parametros
* >> Início da exclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
USING c_codeven_op_pagant_sml
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
* >> Início da inclusão: FORM CONTABILIZA_COMP_DEVOLUCAO
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_comp_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
...
...
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr_comp IS INITIAL.
CHECK NOT p_devolucao-belnr_desm_op IS INITIAL.
CHECK p_devolucao-operacao EQ c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
* >> Início da inclusão: FORM ESTORNA_DESM_DEVOLUCAO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM busca_parametros
* >> Início da exclusão: FORM ESTORNA_DESM_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESM_DEVOLUCAO
USING c_codeven_op_pagant
* << Fim da inclusão
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
* >> Início da exclusão: FORM ESTORNA_DESM_DEVOLUCAO
USING '030'
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESM_DEVOLUCAO
USING c_codeven_op_pagant
* << Fim da inclusão
'TRE'
space
CHANGING wa_zycbe033.
* >> Início da inclusão: FORM ESTORNA_DESM_DEVOLUCAO
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM busca_parametros
USING c_codeven_op_pagant_sml
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING c_codeven_op_pagant_sml
'TRE'
space
CHANGING wa_zycbe033.
ENDIF.
* << Fim da inclusão
PERFORM preenche_f30_est_desm_devol
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
...
...
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = <fs_op>-bukrs.
p_zycbe033-tcode = c_f30.
p_zycbe033-tabela = c_zycbt242.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_devolucao-dtdevolucao.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
* >> Início da inclusão: FORM PREENCHE_F30_EST_DESM_DEVOL
p_zycbe033-d_gsber = <fs_op>-gsberf.
p_zycbe033-c_gsber = <fs_op>-gsberf.
* << Fim da inclusão
p_zycbe033-werks = <fs_op>-werks.
p_zycbe033-brnch = <fs_op>-j_1bbranch.
p_zycbe033-wrbtr = p_devolucao-vldevolucao.
PERFORM busca_taxa_devolucao
USING p_devolucao
p_zycbt011
wa_zycbt089-tx_devol_op
CHANGING p_zycbe033-kursf.
p_zycbe033-newbs = '19'.
p_zycbe033-umskz = p_zycbt011-agums.
...
...
wa_disp LIKE LINE OF itab_disp_30.
CLEAR v_index.
LOOP AT itab_zycbt226 INTO wa_zycbt226.
v_index = v_index + 1.
IF sy-dynnr NE '0150' .
IF wa_zycbt226-vlr_exterior EQ 0.
MOVE wa_zycbt226-sld_transferir TO wa_zycbt226-vlr_exterior.
MODIFY itab_zycbt226 FROM wa_zycbt226 INDEX v_index.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM VINCULAR_TOTAL
IF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULAR_TOTAL
IF sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
IF sy-dynnr = '0150' .
LOOP AT itab_disp_00 INTO wa_disp
WHERE nrseq = wa_zycbt226-nrseq
AND operacao = 'N'.
IF NOT wa_zycbt226-sld_exterior IS INITIAL.
MOVE wa_zycbt226-sld_exterior TO wa_disp-vldisp.
MODIFY itab_disp_00 FROM wa_disp INDEX sy-tabix.
ENDIF .
ENDLOOP.
ENDIF.
...
...
v_codaux1
v_codaux2
v_codaux3
CHANGING
v_conta.
v_bco_cab = /pws/zycbe226-BCO_ME .
else.
clear: v_conta.
endif.
endform.
* >> Início da inclusão:
FORM trata_tela_0002.
LOOP AT SCREEN.
IF screen-group2 = 'VME' AND sy-tcode = '/PWS/ZYCB034_SML_C'.
screen-invisible = 1.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM atualiza_saldos_sml USING p_estorno.
CHECK sy-tcode+13(3) = 'SML'.
IF p_estorno IS INITIAL.
READ TABLE itab_zycbt030 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt030.
IF sy-subrc EQ '0'.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq - <fs_op>-vlr_exterior.
UPDATE /pws/zycbt030
SET vlslliq = wa_zycbt030-vlslliq
WHERE nrinvoic = wa_zycbt030-nrinvoic
AND nrparcf = wa_zycbt030-nrparcf
AND gsberf = wa_zycbt030-gsberf.
ENDIF.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt017.
IF sy-subrc = 0.
wa_zycbt017-vlslf = wa_zycbt017-vlslf - <fs_op>-vlr_exterior.
UPDATE /pws/zycbt017
SET vlslf = wa_zycbt017-vlslf
WHERE nrinvoic = wa_zycbt017-nrinvoic
AND nrparcf = wa_zycbt017-nrparcf
AND gsberf = wa_zycbt017-gsberf.
ENDIF.
v_wrbtr = <fs_op>-vlr_exterior.
LOOP AT itab_zycbt209 INTO wa_zycbt209
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
wa_zycbt209-saldo = wa_zycbt209-saldo - v_wrbtr.
IF wa_zycbt209-saldo < 0.
v_wrbtr = wa_zycbt209-saldo * ( -1 ).
CLEAR wa_zycbt209-saldo.
ELSE.
CLEAR v_wrbtr.
ENDIF.
UPDATE /pws/zycbt209
SET saldo = wa_zycbt209-saldo
WHERE bukrs = wa_zycbt209-bukrs
AND nrinvoic = wa_zycbt209-nrinvoic
AND belnr = wa_zycbt209-belnr
AND dtincl = wa_zycbt209-dtincl
AND nrparcf = wa_zycbt209-nrparcf
AND gsberf = wa_zycbt209-gsberf.
ENDLOOP.
ELSE.
READ TABLE itab_zycbt030 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt030.
IF sy-subrc EQ '0'.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq +
<fs_op>-vlr_exterior.
UPDATE /pws/zycbt030
SET vlslliq = wa_zycbt030-vlslliq
WHERE nrinvoic = wa_zycbt030-nrinvoic
AND nrparcf = wa_zycbt030-nrparcf
AND gsberf = wa_zycbt030-gsberf.
ENDIF.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
INTO wa_zycbt017.
IF sy-subrc = 0.
wa_zycbt017-vlslf = wa_zycbt017-vlslf +
<fs_op>-vlr_exterior.
UPDATE /pws/zycbt017
SET vlslf = wa_zycbt017-vlslf
WHERE nrinvoic = wa_zycbt017-nrinvoic
AND nrparcf = wa_zycbt017-nrparcf
AND gsberf = wa_zycbt017-gsberf.
ENDIF.
CLEAR v_wrbtr.
LOOP AT itab_zycbt209 INTO wa_zycbt209
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
IF v_wrbtr > 0.
wa_zycbt209-saldo = wa_zycbt209-saldo +
v_wrbtr.
ELSE.
wa_zycbt209-saldo = wa_zycbt209-saldo +
<fs_op>-vlr_exterior.
ENDIF.
IF wa_zycbt209-saldo > wa_zycbt209-vlme.
v_wrbtr = wa_zycbt209-saldo - wa_zycbt209-vlme.
wa_zycbt209-saldo = wa_zycbt209-vlme.
ENDIF.
UPDATE /pws/zycbt209
SET saldo = wa_zycbt209-saldo
WHERE bukrs = wa_zycbt209-bukrs
AND nrinvoic = wa_zycbt209-nrinvoic
AND belnr = wa_zycbt209-belnr
AND dtincl = wa_zycbt209-dtincl
AND nrparcf = wa_zycbt209-nrparcf
AND gsberf = wa_zycbt209-gsberf.
ENDLOOP.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034I01
...
PERFORM user_command_0150.
WHEN '0200'.
PERFORM user_command_0200.
ENDCASE.
ENDMODULE.
MODULE user_command_exit INPUT.
CASE sy-dynnr.
WHEN '0100'.
CASE sy-tcode.
WHEN c_transacao_a OR
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
c_transacao_e
OR c_trans_sml_a
OR c_trans_sml_e.
.
* << Fim da inclusão
LEAVE TO SCREEN 0001.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN c_transacao_c
OR c_trans_sml_c.
* << Fim da inclusão
IF ok_code = 'BACK'.
IF NOT itab_zycbt226[] IS INITIAL.
...
...
ENDCASE.
ENDMODULE.
MODULE verifica_processo INPUT.
PERFORM: verifica_autorizacao USING 'TCODE'.
ENDMODULE.
MODULE atualiza_tc_op INPUT.
PERFORM atualiza_tc_op.
ENDMODULE.
MODULE verifica_vlr_exterior INPUT.
DATA: v_exit.
* >> Início da exclusão: MODULE VERIFICA_VLR_EXTERIOR
CHECK sy-tcode = c_transacao_c AND
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_VLR_EXTERIOR
CHECK ( sy-tcode = c_transacao_c OR sy-tcode = c_trans_sml_c ) AND
* << Fim da inclusão
opt_origem_embarque = 'X'.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE226-VLR_EXTERIOR'.
IF screen-input EQ 0.
v_exit = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
CHECK v_exit IS INITIAL.
IF /pws/zycbe226-vlr_exterior > /pws/zycbe226-sld_transferir.
* >> Início da inclusão: MODULE VERIFICA_VLR_EXTERIOR
CHECK /pws/zycbe226-origem_op IS INITIAL OR
( /pws/zycbe226-origem_op EQ 'P' AND
/pws/zycbe226-tipo_op EQ 'E' ).
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM message_store USING '/PWS/ZYCBM'
'E'
'Valor Retido no Exterior'(002)
'deve ser menor ou igual ao'(m10)
'Saldo a Transferir'(003)
space
'061'.
* >> Início da inclusão: MODULE VERIFICA_VLR_EXTERIOR
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM message_store USING '/PWS/ZYCBM'
'E'
'Valor Recebimento'(050)
'deve ser menor ou igual ao'(m10)
'Saldo a Transferir'(003)
space
'061'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE verifica_dt_limite INPUT.
DATA: wa_zycbt017_aux TYPE t_s_zycbt017.
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = /pws/zycbe226-bukrs.
IF sy-subrc = 0.
IF opt_origem_pagantec IS INITIAL.
CLEAR wa_zycbt017_aux.
READ TABLE itab_zycbt017 WITH KEY
...
...
v_data = /pws/zycbe239-dtdebito.
READ TABLE itab_contrato INTO wa_contrato
INDEX tc_contrato-current_line.
IF wa_contrato-operacao EQ c_novo.
v_condicao = 'X'.
ENDIF.
WHEN '0110'.
v_empresa = /pws/zycbe226-bukrs.
v_msg = 'Favor corrigir campo Data de Lançamento.'(m12).
v_data = /pws/zycbe226-dtlancto.
* >> Início da exclusão: MODULE VERIFICA_PERIODO_CONTABIL
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_PERIODO_CONTABIL
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
v_condicao = 'X'.
ENDIF.
ENDCASE.
CHECK v_condicao EQ 'X'.
PERFORM verifica_periodo
USING v_empresa
v_data
v_msg.
ENDMODULE.
MODULE get_invoice INPUT.
...
...
CHANGING itab_disp_00.
ENDCASE.
ENDMODULE.
MODULE drilldown INPUT.
DATA: v_campo(30) TYPE c,
v_value(10) TYPE c. "#EC NEEDED
FIELD-SYMBOLS:
<fs_receb> LIKE LINE OF itab_zycbt226.
CASE ok_code.
WHEN '/CS'.
* >> Início da exclusão: MODULE DRILLDOWN
CHECK sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE DRILLDOWN
CHECK sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE226-VLR_EXTERIOR' OR
screen-name EQ '/PWS/ZYCBE226-BCO_ME'.
screen-required = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
GET CURSOR FIELD v_campo VALUE v_value.
CHECK NOT v_campo IS INITIAL.
CHECK v_campo EQ '/PWS/ZYCBE226-SLD_TRANSFERIR'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034O01
...
PERFORM limpa_ok_code.
PERFORM message_initialize.
PERFORM valores_iniciais.
PERFORM status_gui.
PERFORM trata_tela.
PERFORM botao_especifico.
ENDMODULE.
MODULE preenche_tc_op OUTPUT.
PERFORM: verifica_autorizacao USING 'BUKRS',
preenche_tc_op.
* >> Início da exclusão: MODULE PREENCHE_TC_OP
IF sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_TC_OP
IF sy-tcode = c_transacao_a
or sy-tcode = c_trans_sml_a.
* << Fim da inclusão
PERFORM: bloqueia_op USING 'X'
tc_op-current_line.
ENDIF.
ENDMODULE.
MODULE seleciona_dados OUTPUT.
if v_check = 'X' and
v_select = 'X'.
itab_zycbt226[] = itab_zycbt226_aux[] .
endif.
PERFORM: seleciona_op,
...
...
MODULE html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE HTML_HELP
RAISE cntl_error."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE HTML_HELP
RAISE cntl_error. "#EC *
* << Fim da inclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE HTML_HELP
RAISE cntl_error."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE HTML_HELP
RAISE cntl_error. "#EC *
* << Fim da inclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
...
events = myevent_tab.
CREATE OBJECT evt_receiver.
SET HANDLER evt_receiver->on_sapevent
FOR html_control.
PERFORM load_home_page.
ENDIF.
ENDMODULE.
MODULE exibe_msgs OUTPUT.
DATA: p_oper(2) TYPE c.
FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_zycbe226.
* >> Início da exclusão: MODULE EXIBE_MSGS
IF sy-tcode EQ c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBE_MSGS
IF sy-tcode EQ c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
p_oper = '01'.
* >> Início da exclusão: MODULE EXIBE_MSGS
ELSEIF sy-tcode EQ c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBE_MSGS
ELSEIF sy-tcode EQ c_transacao_a
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
p_oper = '02'.
* >> Início da exclusão: MODULE EXIBE_MSGS
ELSEIF sy-tcode EQ c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBE_MSGS
ELSEIF sy-tcode EQ c_transacao_e
OR sy-tcode = c_trans_sml_e.
* << Fim da inclusão
p_oper = '03'.
ENDIF.
loop at itab_zycbt226 assigning <fs_zycbt226>.
READ TABLE itab_zycbt017 WITH KEY
nrinvoic = <fs_zycbt226>-nrinvoic
nrparcf = <fs_zycbt226>-nrparcf
gsberf = <fs_zycbt226>-gsberf
INTO wa_zycbt017.
IF sy-subrc = 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
c_f30 TYPE /pws/zycbt032-tcode VALUE 'F-30',
c_fb08 TYPE /pws/zycbt032-tcode VALUE 'FB08',
c_fbra TYPE /pws/zycbt032-tcode VALUE 'FBRA',
c_zycbt239 TYPE /pws/zycbe033-tabela VALUE '/PWS/ZYCBT239',
c_zycbt242 TYPE /pws/zycbe033-tabela VALUE '/PWS/ZYCBT242',
c_embarque_exportacao TYPE /pws/zycbt226-tipo_op VALUE 'E',
c_pagamento_antecipado TYPE /pws/zycbt226-tipo_op VALUE 'P',
c_transacao_c(14) TYPE c VALUE '/PWS/ZYCB034_C',
c_transacao_a(14) TYPE c VALUE '/PWS/ZYCB034_A',
c_transacao_e(14) TYPE c VALUE '/PWS/ZYCB034_E',
* >> Início da inclusão:
c_trans_sml_c(18) TYPE c VALUE '/PWS/ZYCB034_SML_C',
c_trans_sml_a(18) TYPE c VALUE '/PWS/ZYCB034_SML_A',
c_trans_sml_e(18) TYPE c VALUE '/PWS/ZYCB034_SML_E',
* << Fim da inclusão
c_op TYPE sy-cprog VALUE '/PWS/SAPMZYCB034',
c_modulo(1) TYPE c VALUE 'E',
c_chave_oper(3) TYPE c VALUE 'TRE',
c_chv_oper_fat(3) TYPE c VALUE 'FTE',
c_codeven_op_emb(5) TYPE c VALUE '029',
c_codeven_op_pagant(5) TYPE c VALUE '030',
c_codeven_fat(5) TYPE c VALUE '010',
c_codeven_liqand(5) TYPE c VALUE '023',
* >> Início da exclusão:
c_codeven_liqand_op(5) TYPE c VALUE '023DO'.
* << Fim da exclusão
* >> Início da inclusão:
c_codeven_liqand_op(5) TYPE c VALUE '023DO',
c_codeven_op_emb_sml(5) TYPE c VALUE '033',
c_codeven_op_pagant_sml(5) TYPE c VALUE '034',
c_codeven_liqand_sml(5) TYPE c VALUE '032',
c_codeven_liqand_op_sml(5) TYPE c VALUE '032DO'.
* << Fim da inclusão
TYPES:
BEGIN OF t_controle,
dados_op_carregados(1) TYPE c,
parametros_carregados(1) TYPE c,
msg_inicializada(1) TYPE c,
tc_linhas TYPE sy-srows,
autorizacao_emp(1) TYPE c,
total_30_70(1) TYPE c,
periodo_fechado(1) TYPE c,
ts_atual LIKE ts_principal-activetab,
...
...
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005.
DATA: BEGIN OF itab_zycbt006 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006.
DATA: wa_zycbt007 TYPE t_s_zycbt007,
wa_zyglt009 TYPE t_s_zyglt009,
wa_zycbt089 TYPE t_s_zycbt089,
wa_controle TYPE t_controle,
wa_fat TYPE t_s_zycbt017,
* >> Início da exclusão:
wa_zycbt030 TYPE t_s_zycbt030.
* << Fim da exclusão
* >> Início da inclusão:
wa_zycbt030 TYPE t_s_zycbt030,
wa_zycbt209 TYPE t_s_zycbt209.
* << Fim da inclusão
FIELD-SYMBOLS: <fs_op> TYPE t_s_zycbe226.
DATA:
* >> Início da inclusão:
v_text_sld_exterior(24) TYPE c,
v_text_data_cre(27) TYPE c,
v_text_bco_cc(22) TYPE c,
v_text_descr_bco_cc(25) TYPE c,
v_wrbtr TYPE /pws/zycbt030-vlsltrans,
* << Fim da inclusão
ok_code TYPE sy-ucomm,
...
...
inco FOR /pws/zycbe017-inco1 MODIF ID inc,
nrre FOR /pws/zycbe017-nrre MODIF ID nre,
nrsd FOR /pws/zycbe017-nrsd MODIF ID nrs.
SELECTION-SCREEN END OF SCREEN 0301.
AT SELECTION-SCREEN OUTPUT.
IF sy-dynnr = '0301'.
PERFORM set_screen_0301.
ELSE.
PERFORM: status_gui_0001,
importa_selecao.
* >> Início da inclusão:
ENDIF.
IF sy-tcode EQ '/PWS/ZYCB034_SML_A' OR
sy-tcode EQ '/PWS/ZYCB034_SML_E'.
SET TITLEBAR '0200'.
LOOP AT SCREEN.
IF screen-name EQ 'P_MOEDAG' OR
screen-name EQ 'P_MOEDAM' OR
screen-name EQ 'P_MOEDAB' OR
screen-name EQ '%B027015_BLOCK_0001'.
screen-invisible = 1.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF sy-tcode = c_transacao_a.
SET TITLEBAR '0100' WITH '- '(020) text-059.
ELSEIF sy-tcode = c_transacao_e.
SET TITLEBAR '0100' WITH '- '(020) text-060.
ELSEIF sy-tcode = c_trans_sml_a.
SET TITLEBAR '0200' WITH '- '(020) text-059.
ELSEIF sy-tcode = c_trans_sml_e.
SET TITLEBAR '0200' WITH '- '(020) text-060.
* << Fim da inclusão
ENDIF.
AT SELECTION-SCREEN.
IF sy-dynnr = '0301'.
PERFORM selecionar_zycbt017.
ENDIF.
CHECK sy-dynnr EQ '0001'.
DATA:
v_ucomm TYPE sy-ucomm.
GET PARAMETER ID 'UCOMM' FIELD v_ucomm. "#EC *
SET PARAMETER ID 'UCOMM' FIELD space. "#EC *
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F01
...
DATA
v_remessa LIKE c_flag_remessa.
GET PARAMETER ID c_id_remessa FIELD v_remessa.
IF v_remessa = c_flag_remessa.
CLEAR btn_embarque.
btn_remessa = 'X'.
SET PARAMETER ID c_id_remessa FIELD space.
ENDIF.
wa_controle-modo_bi = 'N'.
CASE sy-tcode.
* >> Início da exclusão: FORM VALORES_INICIAIS_0001
WHEN c_transacao_a OR c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_INICIAIS_0001
WHEN c_transacao_a OR c_transacao_c
OR c_trans_sml_a OR c_trans_sml_c.
* << Fim da inclusão
wa_controle-edicao = 'X'.
* >> Início da exclusão: FORM VALORES_INICIAIS_0001
WHEN c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_INICIAIS_0001
WHEN c_transacao_e
OR c_trans_sml_e.
* << Fim da inclusão
CLEAR wa_controle-edicao.
ENDCASE.
...
...
CASE sy-dynnr.
WHEN '0001' OR '0010'.
v_pfkey = sy-dynnr.
CASE sy-tcode.
WHEN c_transacao_a.
v_titulo = '001A'.
WHEN c_transacao_c.
v_titulo = '001C'.
WHEN c_transacao_e.
v_titulo = '001E'.
* >> Início da inclusão: FORM CARREGA_STATUS_GUI
WHEN c_trans_sml_a.
v_titulo = '002A'.
WHEN c_trans_sml_c.
v_titulo = '002C'.
WHEN c_trans_sml_e.
v_titulo = '002E'.
* << Fim da inclusão
ENDCASE.
WHEN '0050'.
PERFORM status_custom.
WHEN OTHERS.
CLEAR: v_titulo, v_pfkey.
ENDCASE.
* >> Início da exclusão: FORM CARREGA_STATUS_GUI
IF sy-dynnr = '0001' AND sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_STATUS_GUI
IF sy-dynnr = '0001' AND
( sy-tcode = c_transacao_c OR
sy-tcode = c_trans_sml_c ).
* << Fim da inclusão
wa_botoes-func = 'NOVO'.
APPEND wa_botoes TO itab_botoes.
ENDIF.
IF NOT v_titulo IS INITIAL.
SET TITLEBAR v_titulo.
ENDIF.
IF NOT v_pfkey IS INITIAL.
SET PF-STATUS v_pfkey EXCLUDING itab_botoes.
ENDIF.
ENDFORM.
...
...
IF p_wa_screen-group1 CA 'O'.
p_wa_screen-required = '1'.
ENDIF.
IF p_wa_screen-group1 CA 'F'.
p_wa_screen-input = '0'.
ENDIF.
IF p_wa_screen-group1 CA 'D'.
p_wa_screen-intensified = '1'.
ENDIF.
IF p_wa_screen-group3 CA '1' AND
* >> Início da exclusão: FORM LOOP_AT_SCREEN_DEFAULT
sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DEFAULT
( sy-tcode = c_transacao_a OR sy-tcode = c_trans_sml_a ).
* << Fim da inclusão
p_wa_screen-required = '0'.
p_wa_screen-input = '0'.
ENDIF.
IF p_wa_screen-group1 CA 'A'.
p_wa_screen-input = '1'.
ENDIF.
READ TABLE itab_drilldown
WITH TABLE KEY field = p_wa_screen-name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
screen-intensified = '1'.
ENDIF.
ENDFORM.
FORM loop_at_screen_0001.
LOOP AT SCREEN.
IF ( btn_embarque = 'X' AND screen-group3 = 'R' ) OR
* >> Início da exclusão: FORM LOOP_AT_SCREEN_0001
( btn_remessa = 'X' AND screen-group3 = 'E' ) OR
( btn_embarque = 'X' AND screen-group3 = 'I' ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_0001
( btn_remessa = 'X' AND screen-group3 = 'E' ).
* << Fim da inclusão
screen-input = '0'.
ENDIF.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_0001
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_0001
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF screen-group3 CA 'I'.
...
...
v_searchhelp(14) TYPE c,
wa_fatura TYPE t_s_fatura,
record_tab TYPE STANDARD TABLE OF seahlpres,
itab_dynpread TYPE t_t_dynpread,
v_pos1 TYPE i,
v_pos2 TYPE i,
v_pos3 TYPE i.
FIELD-SYMBOLS:
<fs_searchhelp> TYPE shlpname,
<fs_record> LIKE LINE OF record_tab.
* >> Início da exclusão: FORM AJUDA_FATURA
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_FATURA
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
v_searchhelp = 'C_SEARCHHELP_C'.
ELSE.
v_searchhelp = 'C_SEARCHHELP_A'.
ENDIF.
IF NOT v_searchhelp IS INITIAL.
ASSIGN (v_searchhelp) TO <fs_searchhelp>.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = c_tabname
fieldname = c_fieldname
...
...
c_tabname TYPE dfies-tabname VALUE '/PWS/ZYCBE229A',
c_fieldname TYPE dfies-fieldname VALUE 'NRSEQ',
c_dynprofield TYPE help_info-dynprofld
VALUE '/PWS/ZYCBE229A-NRSEQ', "#EC *
c_searchhelp_c TYPE shlpname VALUE '/PWS/ZYCAA025',
c_searchhelp_a TYPE shlpname VALUE '/PWS/ZYCAA026'. "#EC *
DATA
v_searchhelp(14) TYPE c.
FIELD-SYMBOLS
<fs_searchhelp> TYPE shlpname.
* >> Início da exclusão: FORM AJUDA_REMESSA
IF sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_REMESSA
IF sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
v_searchhelp = 'C_SEARCHHELP_C'.
ELSE.
v_searchhelp = 'C_SEARCHHELP_A'.
ENDIF.
IF NOT v_searchhelp IS INITIAL.
ASSIGN (v_searchhelp) TO <fs_searchhelp>.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = c_tabname
fieldname = c_fieldname
...
...
c_searchhelp TYPE shlpname VALUE '/PWS/ZYCBA277',
c_nrseq TYPE dynpread-fieldname VALUE 'NRSEQ'.
DATA:
itab_result TYPE STANDARD TABLE OF ddshretval
WITH NON-UNIQUE DEFAULT KEY,
itab_dynpread TYPE t_t_dynpread,
wa_dynpread LIKE LINE OF itab_dynpread,
itab_nrseq TYPE t_t_ordem_chave,
wa_nrseq LIKE LINE OF itab_nrseq,
v_conv_exit(10) TYPE c,
* >> Início da exclusão: FORM AJUDA_ORDEM_VENDA
v_linha TYPE i.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_ORDEM_VENDA
v_linha TYPE i,
v_origem_op TYPE /pws/zycbt226-origem_op.
* << Fim da inclusão
FIELD-SYMBOLS
<fs_result> LIKE LINE OF itab_result.
v_nr_ordem = /pws/zycbe227a-kunag.
EXPORT v_nr_ordem TO MEMORY ID '500'.
* >> Início da inclusão: FORM AJUDA_ORDEM_VENDA
IF sy-tcode+13(3) NE 'SML'.
CLEAR v_origem_op.
ELSEIF sy-tcode+13(3) EQ 'SML'.
v_origem_op = 'P'.
ENDIF.
EXPORT v_origem_op TO MEMORY ID 'ORIGEM_OP'.
* << Fim da inclusão
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = c_tabname
fieldname = c_fieldname
searchhelp = c_searchhelp
shlpparam = c_shlpparam
multiple_choice = 'X'
TABLES
return_tab = itab_result
EXCEPTIONS
...
...
CASE ok_code.
WHEN 'NOVO'.
ok_code = 'DUMMY'.
IF btn_embarque = 'X'.
SET PARAMETER: ID c_id_nrinvoic FIELD /pws/zycbe227a-nrinvoic,
ID c_id_nrparcf FIELD /pws/zycbe227a-nrparcf,
ID c_id_gsberf FIELD /pws/zycbe227a-gsberf.
ELSE.
SET PARAMETER ID c_id_nrseq FIELD /pws/zycbe229a-nrseq.
ENDIF.
* >> Início da inclusão: FORM USER_COMMAND_0001
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
LEAVE TO TRANSACTION c_transacao_c AND SKIP FIRST SCREEN.
* >> Início da inclusão: FORM USER_COMMAND_0001
ELSEIF sy-tcode+13(3) EQ 'SML'.
LEAVE TO TRANSACTION c_trans_sml_c AND SKIP FIRST SCREEN.
ENDIF.
* << Fim da inclusão
WHEN 'ENTE'.
ok_code = 'DUMMY'.
IF btn_embarque = 'X'.
CLEAR v_nrseq.
...
...
wa_fatura-nrinvoic = /pws/zycbe227a-nrinvoic.
wa_fatura-nrparcf = /pws/zycbe227a-nrparcf.
wa_fatura-gsberf = /pws/zycbe227a-gsberf.
v_dtassoc = /pws/zycbe227a-dtassoc.
PERFORM verifica_commodities
USING wa_fatura.
CHECK sy-subrc NE 0.
ELSE.
CLEAR wa_fatura.
wa_controle-processo = c_flag_remessa.
* >> Início da exclusão: FORM USER_COMMAND_0001
IF sy-tcode eq c_transacao_c .
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
IF sy-tcode EQ c_transacao_c
OR sy-tcode EQ c_trans_sml_c.
* << Fim da inclusão
if not /pws/zycbe229a-nrseq is initial.
v_nrseq = /pws/zycbe229a-nrseq.
v_dtassoc = /pws/zycbe227a-dtassoc.
CLEAR /pws/zycbe227a.
else.
MESSAGE i061
WITH
'Favor entrar com'(m19) 'os dados da'(m22) 'remessa'(m06).
LEAVE TO SCREEN '0001'.
endif.
* >> Início da exclusão: FORM USER_COMMAND_0001
ELSEIF sy-tcode ne c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
ELSEIF sy-tcode NE c_transacao_c
AND sy-tcode NE c_trans_sml_c.
* << Fim da inclusão
IF NOT /pws/zycbe229a-nrseq IS INITIAL AND
NOT /pws/zycbe227a-dtassoc IS INITIAL.
v_nrseq = /pws/zycbe229a-nrseq.
v_dtassoc = /pws/zycbe227a-dtassoc.
CLEAR /pws/zycbe227a.
ELSE.
MESSAGE i061
WITH
'Favor entrar com'(m19) 'os dados da'(m22) 'remessa'(m06).
LEAVE TO SCREEN '0001'.
...
...
FREE itab_zycbt228a.
PERFORM seleciona_dados
USING wa_fatura v_nrseq v_dtassoc.
IF NOT wa_zycbt017 IS INITIAL.
ASSIGN wa_zycbt017-bukrs TO <fs_bukrs>.
ELSEIF NOT wa_zycbt124 IS INITIAL.
ASSIGN wa_zycbt124-bukrs TO <fs_bukrs>.
ENDIF.
IF <fs_bukrs> IS ASSIGNED.
CASE sy-tcode.
* >> Início da exclusão: FORM USER_COMMAND_0001
WHEN c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
WHEN c_transacao_c
OR c_trans_sml_c.
* << Fim da inclusão
v_bloqueio = c_criacao.
* >> Início da exclusão: FORM USER_COMMAND_0001
WHEN c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
WHEN c_transacao_a
OR c_trans_sml_a.
* << Fim da inclusão
v_bloqueio = c_alteracao.
* >> Início da exclusão: FORM USER_COMMAND_0001
WHEN c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
WHEN c_transacao_e
OR c_trans_sml_e.
* << Fim da inclusão
v_bloqueio = c_exibicao.
ENDCASE.
PERFORM authority_check
USING c_objeto_bukrs c_bukrs <fs_bukrs> v_bloqueio.
IF sy-subrc <> 0.
MESSAGE e083(f5) WITH <fs_bukrs>.
ENDIF.
ENDIF.
IF sy-tcode = c_transacao_c OR
* >> Início da exclusão: FORM USER_COMMAND_0001
sy-tcode = c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
sy-tcode = c_transacao_a
OR sy-tcode = c_trans_sml_c
OR sy-tcode = c_trans_sml_a.
* << Fim da inclusão
PERFORM bloqueia_associacao
USING wa_fatura v_nrseq.
IF sy-subrc <> 0.
PERFORM desbloqueia_vinculacao
USING wa_fatura v_nrseq.
* >> Início da exclusão: FORM USER_COMMAND_0001
AUTHORITY-CHECK OBJECT c_tcode ID c_tcd FIELD c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0001
IF sy-tcode+13(3) NE 'SML'.
AUTHORITY-CHECK OBJECT c_tcode ID c_tcd FIELD
c_transacao_e.
* << Fim da inclusão
IF sy-subrc = 0.
LEAVE TO TRANSACTION c_transacao_e AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH c_transacao_e.
ENDIF.
* >> Início da inclusão: FORM USER_COMMAND_0001
ELSEIF sy-tcode+13(3) EQ 'SML'.
AUTHORITY-CHECK OBJECT c_tcode ID c_tcd FIELD
c_trans_sml_e.
IF sy-subrc = 0.
LEAVE TO TRANSACTION c_trans_sml_e AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH c_trans_sml_e.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM USER_COMMAND_0001
ENDIF.
* << Fim da inclusão
IF wa_controle-processo = c_flag_embarque.
/pws/zycbe227a-nrinvoic = wa_zycbt017-nrinvoic.
/pws/zycbe227a-nrparcf = wa_zycbt017-nrparcf.
/pws/zycbe227a-gsberf = wa_zycbt017-gsberf.
/pws/zycbe227a-nremb = wa_zycbt017-nremb.
...
...
USING p_itab_nrseq TYPE t_t_ordem_chave
CHANGING
p_linha TYPE i
p_itab_dynpread TYPE t_t_dynpread.
DATA:
v_excecao(1) TYPE c.
FIELD-SYMBOLS
<fs_zycbt226> LIKE LINE OF itab_zycbt226.
CHECK NOT p_itab_nrseq IS INITIAL.
IF itab_zycbt226[] IS INITIAL.
* >> Início da exclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar
dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op
conta_contabil rze tp_conta belnr_assoc dt_assoc
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers
sld_associar dtcredext dtlancto dtincl dtlimite ref_op
obs belnr_op conta_contabil rze tp_conta belnr_assoc
dt_assoc
origem_op
* << Fim da inclusão
FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN p_itab_nrseq
WHERE nrseq = p_itab_nrseq-table_line.
* >> Início da inclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE 'P'.
ENDIF.
* << Fim da inclusão
itab_zycbt226a[] = itab_zycbt226[].
itab_zycbt226a2[] = itab_zycbt226[].
ELSE.
* >> Início da exclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar
dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op
conta_contabil rze tp_conta belnr_assoc dt_assoc
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers
sld_associar dtcredext dtlancto dtincl dtlimite ref_op
obs belnr_op conta_contabil rze tp_conta belnr_assoc
dt_assoc
origem_op
* << Fim da inclusão
FROM /pws/zycbt226
APPENDING TABLE itab_zycbt226
FOR ALL ENTRIES IN p_itab_nrseq
WHERE nrseq = p_itab_nrseq-table_line.
* >> Início da inclusão: FORM TRANSFERE_CAMPOS_SH_ORDEM
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_zycbt226 WHERE origem_op NE 'P'.
ENDIF.
* << Fim da inclusão
itab_zycbt226a2[] = itab_zycbt226[].
LOOP AT itab_zycbt226a.
DELETE itab_zycbt226a2 WHERE nrseq = itab_zycbt226a-nrseq.
ENDLOOP.
itab_zycbt226a[] = itab_zycbt226[].
ENDIF.
LOOP AT itab_zycbt226a2 ASSIGNING <fs_zycbt226>.
PERFORM verifica_ordem USING <fs_zycbt226> CHANGING v_excecao.
IF v_excecao = 'X'.
CLEAR v_excecao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
dtassoc = p_dtassoc. "#EC CI_NOFIRST
SELECT *
FROM /pws/zycbt230
INTO TABLE itab_zycbt230
WHERE
nrseq_remessa = p_nrseq AND
dtassoc = p_dtassoc. "#EC CI_NOFIRST
ENDIF.
ENDFORM.
FORM seleciona_dados_ordem_pagto.
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
FIELD-SYMBOLS
<fs_zycbt226> LIKE LINE OF itab_zycbt226.
* << Fim da inclusão
IF NOT itab_zycbt227 IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar
dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op
conta_contabil rze tp_conta belnr_assoc dt_assoc
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers
sld_associar dtcredext dtlancto dtincl dtlimite ref_op obs
belnr_op conta_contabil rze tp_conta belnr_assoc dt_assoc
origem_op
* << Fim da inclusão
FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt227
WHERE nrseq = itab_zycbt227-nrseq.
ELSEIF NOT itab_zycbt229 IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar
dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op
conta_contabil rze tp_conta belnr_assoc dt_assoc
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers
sld_associar dtcredext dtlancto dtincl dtlimite ref_op obs
belnr_op conta_contabil rze tp_conta belnr_assoc dt_assoc
origem_op
* << Fim da inclusão
FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt229
WHERE nrseq = itab_zycbt229-nrseq.
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
ENDIF.
IF sy-tcode+13(3) NE 'SML'.
LOOP AT itab_zycbt226 assigning <fs_zycbt226>
WHERE origem_op NE ' '.
DELETE itab_zycbt227 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt228 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt229 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt230 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt226.
ENDLOOP.
ELSEIF sy-tcode+13(3) EQ 'SML'.
LOOP AT itab_zycbt226 assigning <fs_zycbt226>
WHERE origem_op NE 'P'.
DELETE itab_zycbt227 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt228 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt229 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt230 WHERE nrseq = <fs_zycbt226>-nrseq.
DELETE itab_zycbt226.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt226[] IS INITIAL.
SELECT * FROM /pws/zycbt238
INTO TABLE itab_disponibilidade
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrseq = itab_zycbt226-nrseq.
SELECT * FROM /pws/zycbt241
INTO TABLE itab_zycbt241
FOR ALL ENTRIES IN itab_zycbt226
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
WHERE nrseq = itab_zycbt226-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
WHERE nrseq = itab_zycbt226-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM authority_check
USING
value(p_objeto)
value(p_campo_obj)
value(p_campo)
value(p_acao).
AUTHORITY-CHECK
OBJECT p_objeto ID p_campo_obj DUMMY ID 'ACTVT' FIELD p_acao.
...
...
IF v_excecao IS INITIAL.
PERFORM efetua_contabilizacoes.
PERFORM atualiza_tabelas.
IF NOT itab_mensagem IS INITIAL.
EXPORT itab_mensagem TO MEMORY ID c_mensagem.
SUBMIT (c_rel_contabil) AND RETURN.
FREE MEMORY ID c_mensagem.
IF wa_controle-processo = c_flag_remessa.
SET PARAMETER ID c_id_remessa FIELD c_flag_remessa.
ENDIF.
* >> Início da inclusão: FORM SALVA_DADOS
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
LEAVE TO TRANSACTION c_transacao_e AND SKIP FIRST SCREEN.
* >> Início da inclusão: FORM SALVA_DADOS
ELSEIF sy-tcode+13(3) EQ 'SML'.
LEAVE TO TRANSACTION c_trans_sml_e AND SKIP FIRST SCREEN.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_tabelas.
...
...
WITH UNIQUE KEY nrseq.
FIELD-SYMBOLS:
<fs_zycbt226> LIKE LINE OF itab_zycbt226,
<fs_zycbt226_at> LIKE LINE OF itab_zycbt226_at.
CHECK NOT itab_zycbt226 IS INITIAL.
SELECT *
FROM /pws/zycbt226
INTO TABLE itab_zycbt226_at
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrseq = itab_zycbt226-nrseq.
* >> Início da inclusão: FORM ATUALIZA_DADOS_ORDEM_PAGTO
IF sy-tcode+13(3) NE 'SML'.
DELETE itab_zycbt226_at WHERE origem_op NE ' '.
ELSEIF sy-tcode+13(3) EQ 'SML'.
DELETE itab_zycbt226_at WHERE origem_op NE 'P'.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>.
READ TABLE itab_zycbt226_at
WITH TABLE KEY nrseq = <fs_zycbt226>-nrseq
ASSIGNING <fs_zycbt226_at>.
IF sy-subrc = 0.
<fs_zycbt226_at>-sld_associar = <fs_zycbt226>-sld_associar.
<fs_zycbt226_at>-belnr_assoc = <fs_zycbt226>-belnr_assoc.
<fs_zycbt226_at>-dt_assoc = <fs_zycbt226>-dt_assoc.
ENDIF.
ENDLOOP.
...
...
INSERT <fs_zycbt230> INTO TABLE p_itab_zycbt230_e.
WHEN c_novo.
INSERT <fs_zycbt230> INTO TABLE p_itab_zycbt230_i.
ENDCASE.
ENDLOOP.
ENDIF.
ENDFORM.
FORM atualiza_dados_liq_and.
DATA
itab_zycbt209_at TYPE SORTED TABLE OF /pws/zycbt209
* >> Início da exclusão: FORM ATUALIZA_DADOS_LIQ_AND
WITH UNIQUE KEY nrinvoic nrparcf gsberf dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
WITH UNIQUE KEY bukrs nrinvoic belnr dtincl gsberf nrparcf.
* << Fim da inclusão
FIELD-SYMBOLS:
<fs_zycbt209> LIKE LINE OF itab_zycbt209,
<fs_zycbt209_at> LIKE LINE OF itab_zycbt209_at.
CHECK NOT itab_zycbt209 IS INITIAL.
SELECT *
FROM /pws/zycbt209
INTO TABLE itab_zycbt209_at
FOR ALL ENTRIES IN itab_zycbt209
WHERE
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
bukrs = itab_zycbt209-bukrs AND
* << Fim da inclusão
nrinvoic = itab_zycbt209-nrinvoic AND
* >> Início da exclusão: FORM ATUALIZA_DADOS_LIQ_AND
nrparcf = itab_zycbt209-nrparcf AND
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
belnr = itab_zycbt209-belnr AND
dtincl = itab_zycbt209-dtincl AND
* << Fim da inclusão
gsberf = itab_zycbt209-gsberf AND
* >> Início da exclusão: FORM ATUALIZA_DADOS_LIQ_AND
dtincl = itab_zycbt209-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
nrparcf = itab_zycbt209-nrparcf.
* << Fim da inclusão
LOOP AT itab_zycbt209 ASSIGNING <fs_zycbt209>.
READ TABLE itab_zycbt209_at
WITH TABLE KEY
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
bukrs = <fs_zycbt209>-bukrs
* << Fim da inclusão
nrinvoic = <fs_zycbt209>-nrinvoic
* >> Início da inclusão: FORM ATUALIZA_DADOS_LIQ_AND
belnr = <fs_zycbt209>-belnr
dtincl = <fs_zycbt209>-dtincl
gsberf = <fs_zycbt209>-gsberf
* << Fim da inclusão
nrparcf = <fs_zycbt209>-nrparcf
* >> Início da exclusão: FORM ATUALIZA_DADOS_LIQ_AND
gsberf = <fs_zycbt209>-gsberf
dtincl = <fs_zycbt209>-dtincl
* << Fim da exclusão
ASSIGNING <fs_zycbt209_at>.
IF sy-subrc = 0.
<fs_zycbt209_at>-saldo = <fs_zycbt209>-saldo.
<fs_zycbt209_at>-belnr2 = <fs_zycbt209>-belnr2.
<fs_zycbt209_at>-dtbelnr = <fs_zycbt209>-dtbelnr.
...
...
wa_documento-bukrs = p_bukrs.
wa_documento-belnr = p_belnr.
wa_documento-gjahr = v_gjahr.
wa_documento-shkzg = p_shkzg.
INSERT wa_documento INTO TABLE p_itab_documento.
ENDIF.
ENDFORM.
FORM verifica_documentos.
DATA
itab_documento TYPE t_t_documento.
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS
CHECK sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS
CHECK sy-tcode = c_transacao_c
OR sy-tcode = c_trans_sml_c.
* << Fim da inclusão
IF /pws/zycbe227a IS INITIAL.
PERFORM documento_remessa CHANGING itab_documento.
ELSE.
PERFORM verifica_fatura CHANGING itab_documento.
ENDIF.
PERFORM documento_ordem_pagto CHANGING itab_documento.
PERFORM verifica_documentos_sap USING itab_documento.
ENDFORM.
FORM verifica_fatura
CHANGING p_itab_documento TYPE t_t_documento.
...
...
EXCEPTIONS
message_type_not_valid = 1
not_active = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
ENDFORM.
FORM drilldown_zycb034 USING p_itab_parameter
* >> Início da exclusão: FORM DRILLDOWN_ZYCB034
TYPE t_t_parameter."#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM DRILLDOWN_ZYCB034
TYPE t_t_parameter. "#EC CALLED
* << Fim da inclusão
CONSTANTS:
c_modo_bi(1) TYPE c VALUE 'E',
c_zyglp115 TYPE tpara-paramid VALUE '/PWS/ZYGLP115'.
DATA:
itab_bdc TYPE STANDARD TABLE OF bdcdata
WITH NON-UNIQUE DEFAULT KEY,
wa_bdc LIKE LINE OF itab_bdc.
FIELD-SYMBOLS
<fs_parameter> LIKE LINE OF p_itab_parameter.
CHECK NOT p_itab_parameter IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
ASSIGN /pws/zycbe229a-waers TO <fs_waers>.
ENDIF.
READ TABLE itab_zycbt007
WITH TABLE KEY bukrs = p_bukrs
ASSIGNING <fs_zycbt007>.
READ TABLE itab_zycbt089
WITH TABLE KEY bukrs = p_bukrs
ASSIGNING <fs_zycbt089>.
CHECK <fs_zycbt007> IS ASSIGNED AND <fs_zycbt089> IS ASSIGNED.
CASE p_codeven.
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WHEN c_codeven_liq_and.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WHEN c_codeven_liq_and
OR c_codeven_liq_and_sml.
* << Fim da inclusão
CASE <fs_zycbt089>-tx_desm_liq_and.
WHEN c_dtfech.
IF p_dtlanc(2) = wa_zycbt017-dtbl(2) AND
p_dtlanc+4(4) = wa_zycbt017-dtbl+4(4).
v_dttaxa = wa_zycbt017-dtbl.
ELSE.
v_dttaxa = sy-datum.
v_dttaxa+6(2) = '01'.
v_dttaxa = v_dttaxa - 1.
ENDIF.
...
...
WITH TABLE KEY nrseq = p_nrinvoic
ASSIGNING <fs_zycet001>.
IF <fs_zycet001> IS ASSIGNED.
READ TABLE itab_zycit054
WITH TABLE KEY vktra_ci = <fs_zycet001>-viatrans
ASSIGNING <fs_zycit054>.
IF <fs_zycit054> IS ASSIGNED.
IF NOT <fs_zycit054>-vktra IS INITIAL.
READ TABLE itab_zycet048
WITH TABLE KEY vktrt = <fs_zycit054>-vktra
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CASE <fs_zycet048>-dtvrc.
WHEN c_dtemb.
v_dttaxa = <fs_zycet001>-dtemb.
WHEN c_dtaverb.
v_dttaxa = <fs_zycet001>-dtaverb.
WHEN c_dtcruze.
v_dttaxa = <fs_zycet001>-dtcruze.
ENDCASE.
ENDIF.
...
...
WITH TABLE KEY nrseq = p_nrinvoic
ASSIGNING <fs_zycet001>.
IF <fs_zycet001> IS ASSIGNED.
READ TABLE itab_zycit054
WITH TABLE KEY vktra_ci = <fs_zycet001>-viatrans
ASSIGNING <fs_zycit054>.
IF <fs_zycit054> IS ASSIGNED.
IF NOT <fs_zycit054>-vktra IS INITIAL.
READ TABLE itab_zycet048
WITH TABLE KEY vktrt = <fs_zycit054>-vktra
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CASE <fs_zycet048>-dtvrc.
WHEN c_dtemb.
v_dttaxa = <fs_zycet001>-dtemb.
WHEN c_dtaverb.
v_dttaxa = <fs_zycet001>-dtaverb.
WHEN c_dtcruze.
v_dttaxa = <fs_zycet001>-dtcruze.
ENDCASE.
ENDIF.
...
...
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ELSE.
p_kursf = wa_zycbt124-kursf.
ENDIF.
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WHEN c_codeven_ordem.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WHEN c_codeven_ordem
OR c_codeven_ordem_sml.
* << Fim da inclusão
CHECK NOT p_nrseq IS INITIAL.
READ TABLE itab_zycbt226
WITH TABLE KEY nrseq = p_nrseq
ASSIGNING <fs_zycbt226>.
IF <fs_zycbt226> IS ASSIGNED.
v_dttaxa = <fs_zycbt226>-dtlancto.
ENDIF.
ENDCASE.
IF NOT v_dttaxa IS INITIAL.
PERFORM busca_taxa
...
...
READ TABLE itab_zycbt011
WITH TABLE KEY
codeven = p_codeven
codmod = c_codmod
bukrs = p_bukrs
ASSIGNING <fs_zycbt011>.
IF sy-subrc = 0.
READ TABLE itab_zycbt009
WITH TABLE KEY
codpadr = <fs_zycbt011>-ctmoed
* >> Início da exclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>. "#EC *
* << Fim da inclusão
ENDIF.
IF <fs_zycbt009> IS ASSIGNED.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = p_waersde
i_paramoeda = p_waerspara
i_ctmoeda = <fs_zycbt009>-kurst
i_dtbase = p_dtbase
IMPORTING
...
...
CONCATENATE <fs_zycbt226>-ref_op v_hora+2(2) ':'
v_hora+4(2) INTO p_wa_zycbe033-xblnr.
ENDIF.
WHEN c_obs.
IF <fs_zycbt226> IS ASSIGNED.
v_hora = sy-uzeit.
CONCATENATE <fs_zycbt226>-obs v_hora+2(2) ':'
v_hora+4(2) INTO p_wa_zycbe033-xblnr.
ENDIF.
WHEN c_nrrem.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
IF p_codeven = c_codeven_associa_rem.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
IF p_codeven = c_codeven_associa_rem
OR p_codeven = c_codeven_associa_rem_sml.
* << Fim da inclusão
v_hora = sy-uzeit.
CONCATENATE wa_zycbt124-nrseq v_hora+2(2) ':'
v_hora+4(2) INTO p_wa_zycbe033-xblnr.
ENDIF.
WHEN c_nrfech.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
IF p_codeven = c_codeven_associa_rem.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
IF p_codeven = c_codeven_associa_rem
OR p_codeven = c_codeven_associa_rem_sml.
* << Fim da inclusão
v_hora = sy-uzeit.
CONCATENATE wa_zycbt124-nrfech v_hora+2(2) ':'
v_hora+4(2) INTO p_wa_zycbe033-xblnr.
ENDIF.
ENDCASE.
WHEN c_zterm.
p_wa_zycbe033-zterm = wa_zycbt017-zterm.
WHEN c_zfbdt.
CASE <fs_zyglt321>-cpocb.
WHEN c_dtbl.
...
...
USING
<fs_bukrs>
p_codmod
p_ktosl
p_codeven
p_wa_zycbt209
p_nrseq
' '
CHANGING wa_zycbe033.
CASE p_codeven.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_DESMEMB
WHEN c_codeven_liq_and.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_DESMEMB
WHEN c_codeven_liq_and
OR c_codeven_liq_and_sml.
* << Fim da inclusão
ASSIGN wa_zycbt017-werks TO <fs_werks>.
v_nrinvoic = p_wa_zycbt209-nrinvoic(10).
wa_zycbe033-augtx = <fs_zycbt011>-txtdesc.
wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.
wa_zycbe033-c_gsber = p_wa_zycbt209-gsberf.
wa_zycbe033-d_gsber = p_wa_zycbt209-gsberf.
wa_zycbe033-werks = wa_zycbt017-werks.
wa_zycbe033-d_newko = p_wa_zycbt209-hkont.
wa_zycbe033-agkoa = p_wa_zycbt209-koart.
wa_zycbe033-umskz = p_wa_zycbt209-umskz.
...
...
wa_zycbe033-d_newko = wa_zycbt017-kunag.
wa_zycbe033-newbs = '01'.
WHEN c_codeven_remessa.
ASSIGN wa_zycbt124-werks TO <fs_werks>.
wa_zycbe033-gsber = wa_zycbt124-gsber.
wa_zycbe033-c_gsber = wa_zycbt124-gsber.
wa_zycbe033-d_gsber = wa_zycbt124-gsber.
wa_zycbe033-werks = wa_zycbt124-werks.
wa_zycbe033-d_newko = wa_zycbt124-recrem.
wa_zycbe033-newbs = '01'.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_DESMEMB
WHEN c_codeven_ordem.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_DESMEMB
WHEN c_codeven_ordem
OR c_codeven_ordem_sml.
* << Fim da inclusão
READ TABLE itab_zycbt226
WITH TABLE KEY nrseq = p_nrseq
ASSIGNING <fs_zycbt226>.
IF <fs_zycbt226> IS ASSIGNED.
ASSIGN <fs_zycbt226>-werks TO <fs_werks>.
wa_zycbe033-gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-c_gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-d_gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-werks = <fs_zycbt226>-werks.
wa_zycbe033-d_newko = <fs_zycbt226>-kunag.
...
...
<fs_zycbt011>-blart 'BLART' 'Tipo de documento'(n03),
p_bldat 'BLDAT' 'Data documento'(n05),
p_budat 'BUDAT' 'Data lançamento'(n06).
CHECK itab_zycbt034 IS INITIAL.
IF p_clearing IS INITIAL.
CONCATENATE p_nrseq 'A' INTO wa_zycbe033-c_zuonr.
ELSE.
CASE p_codeven.
WHEN c_codeven_cliente.
wa_zycbe033-newbs = '01'.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_liq_and.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_liq_and
OR c_codeven_liq_and_sml.
* << Fim da inclusão
wa_zycbe033-umskz = p_wa_zycbt209-umskz.
IF p_wa_zycbt209-koart = 'D'.
IF wa_zycbe033-umskz IS INITIAL.
wa_zycbe033-newbs = '01'.
ELSE.
wa_zycbe033-newbs = '09'.
ENDIF.
ELSE.
wa_zycbe033-newbs = '40'.
ENDIF.
WHEN c_codeven_remessa.
wa_zycbe033-newbs = '01'.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_ordem.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_ordem
OR c_codeven_ordem_sml.
* << Fim da inclusão
wa_zycbe033-umskz = <fs_zycbt011>-agums.
wa_zycbe033-newbs = '19'.
ENDCASE.
ENDIF.
wa_zycbe033-cpochv = p_cpochv.
wa_zycbe033-mandt = sy-mandt.
wa_zycbe033-tcode = c_f30.
wa_zycbe033-tabela = c_zycbt228.
wa_zycbe033-blart = <fs_zycbt011>-blart.
wa_zycbe033-bktxt = <fs_zycbt007>-bktxt.
...
...
<fs_bukrs>
p_codmod
p_ktosl
p_codeven
p_wa_zycbt209
p_nrseq
'X'
CHANGING
wa_zycbe033.
CASE p_codeven.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_liq_and.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_liq_and
OR c_codeven_liq_and_sml.
* << Fim da inclusão
ASSIGN wa_zycbt017-werks TO <fs_werks>.
v_nrinvoic = p_wa_zycbt209-nrinvoic(10).
wa_zycbe033-augtx = <fs_zycbt011>-txtdesc.
wa_zycbe033-d_sgtxt = <fs_zycbt011>-txtdesc.
wa_zycbe033-c_gsber = p_wa_zycbt209-gsberf.
wa_zycbe033-d_gsber = p_wa_zycbt209-gsberf.
wa_zycbe033-werks = wa_zycbt017-werks.
wa_zycbe033-d_newko = p_wa_zycbt209-hkont.
wa_zycbe033-agkoa = p_wa_zycbt209-koart.
wa_zycbe033-umskz = p_wa_zycbt209-umskz.
...
...
wa_zycbe033-d_newko = wa_zycbt017-kunag.
wa_zycbe033-newbs = '01'.
WHEN c_codeven_remessa.
ASSIGN wa_zycbt124-werks TO <fs_werks>.
wa_zycbe033-gsber = wa_zycbt124-gsber.
wa_zycbe033-c_gsber = wa_zycbt124-gsber.
wa_zycbe033-d_gsber = wa_zycbt124-gsber.
wa_zycbe033-werks = wa_zycbt124-werks.
wa_zycbe033-d_newko = wa_zycbt124-recrem.
wa_zycbe033-newbs = '01'.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_ordem.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033_COMPENSACAO
WHEN c_codeven_ordem
OR c_codeven_ordem_sml.
* << Fim da inclusão
READ TABLE itab_zycbt226
WITH TABLE KEY nrseq = p_nrseq
ASSIGNING <fs_zycbt226>.
IF <fs_zycbt226> IS ASSIGNED.
ASSIGN <fs_zycbt226>-werks TO <fs_werks>.
wa_zycbe033-gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-c_gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-d_gsber = <fs_zycbt226>-gsberf.
wa_zycbe033-werks = <fs_zycbt226>-werks.
wa_zycbe033-d_newko = <fs_zycbt226>-kunag.
...
...
CHANGING <fs_zycbt228a>.
PERFORM efetua_estorno_associacao
USING <fs_zycbt228a>-nrseq <fs_zycbt228a>-belnr.
PERFORM efetua_clearing_ordem_pagto
USING <fs_zycbt228a>.
PERFORM efetua_clearing_cliente
USING <fs_zycbt228a>.
PERFORM efetua_clearing_liq_and
USING <fs_zycbt228a>.
ENDCASE.
* >> Início da inclusão: FORM EFETUA_CONTABILIZACOES
PERFORM atualiza_saldos_sml USING <fs_zycbt228a>-oper
<fs_zycbt228a>-nrseq.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM efetua_desmemb_liq_and
USING
value(p_nrseq) TYPE t_s_zycbt228a-nrseq
value(p_gjahr) TYPE t_s_zycbt228a-gjahr
CHANGING
p_saldo TYPE t_s_zycbt227-vlr_associado.
CONSTANTS:
c_f30 TYPE /pws/zycbt032-tcode VALUE 'F-30',
...
...
<fs_zycbt209>-nrparcf <fs_zycbt209>-gsberf
INTO v_cpochv.
CONCATENATE <fs_zycbt209>-nrinvoic <fs_zycbt209>-nrparcf
<fs_zycbt209>-gsberf 'A' INTO v_zuonr.
IF <fs_zycbt209>-belnr2 IS INITIAL.
ASSIGN <fs_zycbt209>-belnr TO <fs_belnr>.
ELSE.
ASSIGN <fs_zycbt209>-belnr2 TO <fs_belnr>.
ENDIF.
PERFORM limpa_dados_bi.
* >> Início da inclusão: FORM EFETUA_DESMEMB_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_zycbe033_desmemb
USING
c_codmod
c_ktosl_liq_and
c_codeven_liq_and
v_cpochv
<fs_belnr>
<fs_bldat>
<fs_budat>
v_saldo
<fs_zycbt209>
space
CHANGING itab_zycbe224.
* >> Início da inclusão: FORM EFETUA_DESMEMB_LIQ_AND
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_zycbe033_desmemb
USING
c_codmod
c_ktosl_liq_and
c_codeven_liq_and_sml
v_cpochv
<fs_belnr>
<fs_bldat>
<fs_budat>
v_saldo
<fs_zycbt209>
space
CHANGING itab_zycbe224.
ENDIF.
* << Fim da inclusão
PERFORM preenche_zycbe036_desmemb
USING
v_cpochv
v_saldo
v_zuonr.
IF itab_zycbt034 IS INITIAL.
PERFORM executa_f30 USING 'P' 'X' itab_zycbe224.
FREE itab_zycbe224.
wa_mensagem-bukrs = wa_zycbt017-bukrs.
wa_mensagem-nrinvoic = <fs_zycbt209>-nrinvoic.
...
...
WITH TABLE KEY nrseq = p_wa_zycbt228a-nrseq
ASSIGNING <fs_zycbt226>.
IF <fs_zycbt226> IS ASSIGNED.
IF <fs_zycbt226>-belnr_assoc IS INITIAL.
ASSIGN <fs_zycbt226>-belnr_op TO <fs_belnr>.
ELSE.
ASSIGN <fs_zycbt226>-belnr_assoc TO <fs_belnr>.
ENDIF.
ENDIF.
PERFORM limpa_dados_bi.
* >> Início da inclusão: FORM EFETUA_DESMEMB_ORDEM_PAGTO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_zycbe033_desmemb
USING
c_codmod
c_ktosl_ordem
c_codeven_ordem
* >> Início da inclusão: FORM EFETUA_DESMEMB_ORDEM_PAGTO
v_cpochv
<fs_belnr>
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-vlr_associado
wa_zycbt209
p_wa_zycbt228a-nrseq
CHANGING itab_zycbe224.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_zycbe033_desmemb
USING
c_codmod
c_ktosl_ordem
c_codeven_ordem_sml
* << Fim da inclusão
v_cpochv
<fs_belnr>
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-vlr_associado
wa_zycbt209
p_wa_zycbt228a-nrseq
CHANGING itab_zycbe224.
* >> Início da inclusão: FORM EFETUA_DESMEMB_ORDEM_PAGTO
ENDIF.
* << Fim da inclusão
PERFORM preenche_zycbe036_desmemb
USING
v_cpochv
p_wa_zycbt228a-vlr_associado
v_zuonr.
IF itab_zycbt034 IS INITIAL.
PERFORM executa_f30 USING 'P' 'X' itab_zycbe224.
FREE itab_zycbe224.
wa_mensagem-bukrs = <fs_bukrs>.
wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.
...
...
<fs_budat> TYPE d,
<fs_codmod> LIKE c_codmod,
<fs_ktosl> TYPE /pws/zyglt321-ktosl,
<fs_codeven> TYPE /pws/zyglt321-codeven.
IF wa_controle-processo = c_flag_embarque.
CONCATENATE /pws/zycbe227a-nrinvoic /pws/zycbe227a-nrparcf
/pws/zycbe227a-gsberf INTO v_cpochv.
ASSIGN: /pws/zycbe227a-dtassoc TO <fs_bldat>,
/pws/zycbe227a-budat TO <fs_budat>,
c_codmod TO <fs_codmod>,
* >> Início da exclusão: FORM EFETUA_COMP_ASSOCIACAO
c_ktosl_associa TO <fs_ktosl>,
c_codeven_associa TO <fs_codeven>.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
c_ktosl_associa TO <fs_ktosl>.
IF sy-tcode+13(3) NE 'SML'.
ASSIGN: c_codeven_associa TO <fs_codeven>.
ELSEIF sy-tcode+13(3) EQ 'SML'.
ASSIGN: c_codeven_associa_sml TO <fs_codeven>.
ENDIF.
* << Fim da inclusão
wa_mensagem-bukrs = /pws/zycbe227a-bukrs.
wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.
wa_mensagem-nrinvoic = /pws/zycbe227a-nrinvoic.
wa_mensagem-nrparcf = /pws/zycbe227a-nrparcf.
wa_mensagem-gsberf = /pws/zycbe227a-gsberf.
ELSE.
v_cpochv = /pws/zycbe229a-nrseq.
ASSIGN: /pws/zycbe229a-dtassoc TO <fs_bldat>,
/pws/zycbe229a-budat TO <fs_budat>,
c_codmod_remessa TO <fs_codmod>,
* >> Início da exclusão: FORM EFETUA_COMP_ASSOCIACAO
c_ktosl_remessa TO <fs_ktosl>,
c_codeven_associa_rem TO <fs_codeven>.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
c_ktosl_remessa TO <fs_ktosl>.
IF sy-tcode+13(3) NE 'SML'.
ASSIGN: c_codeven_associa_rem TO <fs_codeven>.
ELSEIF sy-tcode+13(3) EQ 'SML'.
ASSIGN: c_codeven_associa_rem_sml TO <fs_codeven>.
ENDIF.
* << Fim da inclusão
wa_mensagem-bukrs = /pws/zycbe229a-bukrs.
wa_mensagem-nrseq = p_wa_zycbt228a-nrseq.
wa_mensagem-nrseq_remessa = /pws/zycbe229a-nrseq.
ENDIF.
PERFORM limpa_dados_bi.
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_zycbe033_compensacao
USING
space
<fs_codmod>
<fs_ktosl>
c_codeven_associa
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
wa_zycbt209.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_zycbe033_compensacao
USING
space
<fs_codmod>
<fs_ktosl>
c_codeven_associa_sml
* << Fim da inclusão
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
wa_zycbt209.
* >> Início da inclusão: FORM EFETUA_COMP_ASSOCIACAO
ENDIF.
* << Fim da inclusão
PERFORM preenche_partidas
USING
...
...
ENDIF.
PERFORM limpa_dados_bi.
PERFORM preenche_zycbe033_estorno
USING
c_fbra
v_cpochv
p_belnr
<fs_bldat>
<fs_budat>.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM EFETUA_ESTORNO_ASSOCIACAO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_contas_estorno
USING c_codmod c_codeven_associa p_nrseq
* >> Início da inclusão: FORM EFETUA_ESTORNO_ASSOCIACAO
CHANGING itab_zycbe224.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_contas_estorno
USING c_codmod c_codeven_associa_sml p_nrseq
* << Fim da inclusão
CHANGING itab_zycbe224.
* >> Início da inclusão: FORM EFETUA_ESTORNO_ASSOCIACAO
ENDIF.
* << Fim da inclusão
PERFORM executa_fbra_fb08 USING c_fbra itab_zycbe224.
PERFORM verifica_contabilizacao
USING
c_fbra
c_zycbt228
v_cpochv
'Compensação da Associação Anulada'(m41)
CHANGING wa_mensagem.
ENDIF.
IF NOT wa_mensagem IS INITIAL.
...
...
<fs_zycbt230>-belnr TO <fs_belnr>,
<fs_zycbt230>-budat TO <fs_dtdocto>.
ENDIF.
READ TABLE itab_zycbt226
WITH TABLE KEY nrseq = p_wa_zycbt228a-nrseq
ASSIGNING <fs_zycbt226>.
CHECK <fs_zycbt226> IS ASSIGNED.
v_cpochv = p_wa_zycbt228a-nrseq.
v_zuonr = p_wa_zycbt228a-nrseq.
PERFORM limpa_dados_bi.
* >> Início da inclusão: FORM EFETUA_CLEARING_ORDEM_PAGTO
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_zycbe033_compensacao
USING
'X'
c_codmod
c_ktosl_ordem
c_codeven_ordem
* >> Início da inclusão: FORM EFETUA_CLEARING_ORDEM_PAGTO
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
wa_zycbt209.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_zycbe033_compensacao
USING
'X'
c_codmod
c_ktosl_ordem
c_codeven_ordem_sml
* << Fim da inclusão
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
wa_zycbt209.
* >> Início da inclusão: FORM EFETUA_CLEARING_ORDEM_PAGTO
ENDIF.
* << Fim da inclusão
PERFORM preenche_doctos_clearing
USING
...
...
nrparcf = <fs_zycbt209>-nrparcf
gsberf = <fs_zycbt209>-gsberf
dtincl = <fs_zycbt209>-dtincl
nrseq = p_wa_zycbt228a-nrseq
tp_docto = c_tp_desm_liq_and
ASSIGNING <fs_zycbt228>.
CHECK sy-subrc = 0.
CONCATENATE <fs_zycbt209>-nrinvoic <fs_zycbt209>-nrparcf
<fs_zycbt209>-gsberf INTO v_zuonr.
PERFORM limpa_dados_bi.
* >> Início da inclusão: FORM EFETUA_CLEARING_LIQ_AND
IF sy-tcode+13(3) NE 'SML'.
* << Fim da inclusão
PERFORM preenche_zycbe033_compensacao
USING
'X'
c_codmod
c_ktosl_liq_and
c_codeven_liq_and
* >> Início da inclusão: FORM EFETUA_CLEARING_LIQ_AND
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
<fs_zycbt209>.
ELSEIF sy-tcode+13(3) EQ 'SML'.
PERFORM preenche_zycbe033_compensacao
USING
'X'
c_codmod
c_ktosl_liq_and
c_codeven_liq_and_sml
* << Fim da inclusão
v_cpochv
<fs_bldat>
<fs_budat>
p_wa_zycbt228a-nrseq
<fs_zycbt209>.
* >> Início da inclusão: FORM EFETUA_CLEARING_LIQ_AND
ENDIF.
* << Fim da inclusão
PERFORM preenche_doctos_clearing
USING
...
...
<fs_zycbt241>-sld_assoc = <fs_zycbt241>-vlr_ord.
ELSE.
<fs_zycbt241>-sld_assoc = p_zycbt228a-vlr_associado -
( v_total2 - <fs_zycbt241>-vlr_ord ) +
<fs_zycbt241>-sld_assoc.
ENDIF.
ENDLOOP.
ENDIF.
ENDCASE.
ENDFORM.
* >> Início da inclusão:
FORM atualiza_saldos_sml USING p_oper
p_nrseq.
FIELD-SYMBOLS:
<fs_zycbt209> LIKE LINE OF itab_zycbt209,
<fs_zycbt228> LIKE LINE OF itab_zycbt228.
CHECK sy-tcode+13(3) = 'SML'.
LOOP AT itab_zycbt228 ASSIGNING <fs_zycbt228>
WHERE nrseq = p_nrseq
AND tp_docto = 'A'.
IF p_oper = c_novo.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq -
<fs_zycbt228>-vlr_associado.
wa_zycbt017-vlslf = wa_zycbt017-vlslf -
<fs_zycbt228>-vlr_associado.
ELSEIF p_oper = c_eliminado.
wa_zycbt030-vlslliq = wa_zycbt030-vlslliq +
<fs_zycbt228>-vlr_associado.
wa_zycbt017-vlslf = wa_zycbt017-vlslf +
<fs_zycbt228>-vlr_associado.
ENDIF.
UPDATE /pws/zycbt030
SET vlslliq = wa_zycbt030-vlslliq
WHERE nrinvoic = wa_zycbt030-nrinvoic
AND nrparcf = wa_zycbt030-nrparcf
AND gsberf = wa_zycbt030-gsberf.
UPDATE /pws/zycbt017
SET vlslf = wa_zycbt017-vlslf
WHERE nrinvoic = wa_zycbt017-nrinvoic
AND nrparcf = wa_zycbt017-nrparcf
AND gsberf = wa_zycbt017-gsberf.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035I01
MODULE user_command_exit INPUT.
CASE sy-dynnr.
WHEN '0001'.
LEAVE TO SCREEN 0.
WHEN '0010'.
PERFORM verifica_alteracoes.
CASE ok_code.
WHEN 'BACK'.
CASE sy-tcode.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN c_transacao_a OR c_transacao_e.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN c_transacao_a OR c_transacao_e
or c_trans_sml_a or c_trans_sml_e.
* << Fim da inclusão
LEAVE TO SCREEN 1.
WHEN OTHERS.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '%EX' OR 'RW'.
LEAVE PROGRAM.
ENDCASE.
ENDCASE.
ENDMODULE.
MODULE user_command INPUT.
...
...
MODULE ajuda_remessa INPUT.
PERFORM ajuda_remessa.
ENDMODULE.
MODULE ajuda_dtassoc INPUT.
PERFORM ajuda_dtassoc.
ENDMODULE.
MODULE ajuda_ordem_venda INPUT.
PERFORM ajuda_ordem_venda.
ENDMODULE.
MODULE consiste_dtassoc INPUT.
* >> Início da exclusão: MODULE CONSISTE_DTASSOC
CHECK NOT sy-tcode = c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_DTASSOC
CHECK NOT sy-tcode = c_transacao_c
AND NOT sy-tcode = c_trans_sml_c.
* << Fim da inclusão
PERFORM consiste_dtassoc
USING
/pws/zycbe227a-nrinvoic
/pws/zycbe227a-nrparcf
/pws/zycbe227a-gsberf
/pws/zycbe229a-nrseq
/pws/zycbe227a-dtassoc.
ENDMODULE.
MODULE consiste_embarque INPUT.
CHECK btn_embarque = 'X' AND ok_code = 'ENTE'.
...
...
MODULE consiste_campos INPUT.
CHECK btn_remessa = 'X' .
IF /pws/zycbe229a-nrseq IS INITIAL .
IF NOT /pws/zycbe227a-dtassoc IS INITIAL .
MESSAGE e061
WITH 'Favor entrar com'(m19) 'os dados da'(m22) 'remessa'(m06).
ENDIF.
ENDIF.
IF /pws/zycbe227a-dtassoc IS INITIAL.
IF NOT /pws/zycbe229a-nrseq IS INITIAL .
* >> Início da exclusão: MODULE CONSISTE_CAMPOS
IF sy-tcode NE c_transacao_c.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_CAMPOS
IF sy-tcode NE c_transacao_c
and sy-tcode ne c_trans_sml_c.
* << Fim da inclusão
MESSAGE e061
WITH 'Favor entrar com'(m19) 'a data de'(m20) 'associação'(m17).
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycbe227a-dtassoc IS INITIAL AND
NOT /pws/zycbe229a-nrseq IS INITIAL .
PERFORM consiste_remessa
USING /pws/zycbe229a-nrseq.
PERFORM consiste_dtassoc
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035T02
...
dtincl TYPE /pws/zycbt226-dtincl,
dtlimite TYPE /pws/zycbt226-dtlimite,
ref_op TYPE /pws/zycbt226-ref_op,
obs TYPE /pws/zycbt226-obs,
belnr_op TYPE /pws/zycbt226-belnr_op,
conta_contabil TYPE /pws/zycbt226-conta_contabil,
rze TYPE /pws/zycbt226-rze,
tp_conta TYPE /pws/zycbt226-tp_conta,
belnr_assoc TYPE /pws/zycbt226-belnr_assoc,
dt_assoc TYPE /pws/zycbt226-dt_assoc,
* >> Início da inclusão:
origem_op type /pws/zycbt226-origem_op,
* << Fim da inclusão
END OF t_s_zycbt226,
t_t_zycbt226 TYPE SORTED TABLE OF t_s_zycbt226
WITH UNIQUE KEY nrseq,
t_t_ordem_chave TYPE SORTED TABLE OF /pws/zycbe226-nrseq
WITH UNIQUE DEFAULT KEY,
BEGIN OF t_s_zycet001,
nrseq TYPE /pws/zycet001-nrseq,
dtaverb TYPE /pws/zycet001-dtaverb,
dtemb TYPE /pws/zycet001-dtemb,
dtvencto TYPE /pws/zycet001-dtvencto,
...
...
dtincl TYPE /pws/zycbt226-dtincl,
dtlimite TYPE /pws/zycbt226-dtlimite,
ref_op TYPE /pws/zycbt226-ref_op,
obs TYPE /pws/zycbt226-obs,
belnr_op TYPE /pws/zycbt226-belnr_op,
conta_contabil TYPE /pws/zycbt226-conta_contabil,
rze TYPE /pws/zycbt226-rze,
tp_conta TYPE /pws/zycbt226-tp_conta,
belnr_assoc TYPE /pws/zycbt226-belnr_assoc,
dt_assoc TYPE /pws/zycbt226-dt_assoc,
* >> Início da inclusão:
origem_op type /pws/zycbt226-origem_op,
* << Fim da inclusão
END OF itab_zycbt226a.
DATA:BEGIN OF itab_zycbt226a2 OCCURS 0,
nrseq TYPE /pws/zycbt226-nrseq,
gsberf TYPE /pws/zycbt226-gsberf,
bukrs TYPE /pws/zycbt226-bukrs,
werks TYPE /pws/zycbt226-werks,
j_1bbranch TYPE /pws/zycbt226-j_1bbranch,
kunag TYPE /pws/zycbt226-kunag,
waers TYPE /pws/zycbt226-waers,
sld_associar TYPE /pws/zycbt226-sld_associar,
...
...
dtincl TYPE /pws/zycbt226-dtincl,
dtlimite TYPE /pws/zycbt226-dtlimite,
ref_op TYPE /pws/zycbt226-ref_op,
obs TYPE /pws/zycbt226-obs,
belnr_op TYPE /pws/zycbt226-belnr_op,
conta_contabil TYPE /pws/zycbt226-conta_contabil,
rze TYPE /pws/zycbt226-rze,
tp_conta TYPE /pws/zycbt226-tp_conta,
belnr_assoc TYPE /pws/zycbt226-belnr_assoc,
dt_assoc TYPE /pws/zycbt226-dt_assoc,
* >> Início da inclusão:
origem_op type /pws/zycbt226-origem_op,
* << Fim da inclusão
END OF itab_zycbt226a2.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035TOP
...
c_codmod(1) TYPE c VALUE 'E',
c_codmod_remessa(1) TYPE c VALUE 'F',
c_programa TYPE sy-cprog VALUE '/PWS/SAPMZYCB035',
c_embarque TYPE feld-name VALUE 'EMBARQUE',
c_remessa TYPE feld-name VALUE 'REMESSA',
c_flag_embarque(1) TYPE c VALUE 'E',
c_flag_remessa(1) TYPE c VALUE 'R',
c_transacao_a TYPE sy-tcode VALUE '/PWS/ZYCB035_A',
c_transacao_c TYPE sy-tcode VALUE '/PWS/ZYCB035_C',
c_transacao_e TYPE sy-tcode VALUE '/PWS/ZYCB035_E',
* >> Início da inclusão:
c_trans_sml_a TYPE sy-tcode VALUE '/PWS/ZYCB035_SML_A',
c_trans_sml_c TYPE sy-tcode VALUE '/PWS/ZYCB035_SML_C',
c_trans_sml_e TYPE sy-tcode VALUE '/PWS/ZYCB035_SML_E',
* << Fim da inclusão
c_rel_contabil TYPE sy-cprog VALUE '/PWS/ZYGLR040',
c_mensagem(13) TYPE c VALUE 'ITAB_MENSAGEM',
c_alterado(1) TYPE c VALUE 'A',
c_eliminado(1) TYPE c VALUE 'D',
c_novo(1) TYPE c VALUE 'N',
c_grupo_mensagem TYPE smesg-arbgb VALUE '/PWS/ZYCBM',
c_ktosl_liq_and TYPE /pws/zyglt321-ktosl VALUE 'TRE',
c_ktosl_cliente TYPE /pws/zyglt321-ktosl VALUE 'FTE',
c_ktosl_ordem TYPE /pws/zyglt321-ktosl VALUE 'TRE',
c_ktosl_associa TYPE /pws/zyglt321-ktosl VALUE 'TRE',
...
...
c_codeven_cliente TYPE /pws/zyglt321-codeven VALUE '010',
c_codeven_ordem TYPE /pws/zyglt321-codeven VALUE '031',
c_codeven_associa TYPE /pws/zyglt321-codeven VALUE '031',
c_codeven_associa_rem TYPE /pws/zyglt321-codeven VALUE '022',
c_codeven_remessa TYPE /pws/zyglt321-codeven VALUE '003R',
c_tp_comp_assoc TYPE /pws/zycbt228-tp_docto VALUE 'A',
c_tp_desm_cliente TYPE /pws/zycbt228-tp_docto VALUE 'C',
c_tp_desm_liq_and TYPE /pws/zycbt228-tp_docto VALUE 'L',
c_tp_desm_ordem TYPE /pws/zycbt228-tp_docto VALUE 'O',
c_modo_bloqueio TYPE enqmode VALUE 'E',
* >> Início da exclusão:
c_id_remessa(13) TYPE c VALUE '/PWS/ZYCBP377'.
* << Fim da exclusão
* >> Início da inclusão:
c_id_remessa(13) TYPE c VALUE '/PWS/ZYCBP377',
c_codeven_liq_and_sml TYPE /pws/zyglt321-codeven VALUE '032',
c_codeven_ordem_sml TYPE /pws/zyglt321-codeven VALUE '035',
c_codeven_associa_sml TYPE /pws/zyglt321-codeven VALUE '035',
c_codeven_associa_rem_sml TYPE /pws/zyglt321-codeven VALUE '036'.
* << Fim da inclusão
TYPES:
BEGIN OF t_s_controle,
parametros_carregados(1) TYPE c,
limpa_parametros(1) TYPE c,
constantes_carregadas(1) TYPE c,
mensagem_carregada(1) TYPE c,
nivel_tela(3) TYPE c,
nivel_item(3) TYPE c,
edicao(1) TYPE c,
linhas TYPE sy-srows,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (24 caracteres)
"Valor Retido no Exterior"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (17 caracteres)
"Valor Recebimento"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (27 caracteres)
"Data de Crédito no Exterior"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (15 caracteres)
"Data de Crédito"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (22 caracteres)
"Código do Banco C/C ME"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (19 caracteres)
"Código do Banco C/C"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (25 caracteres)
"Descrição do Banco C/C ME"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 056
Texto: (22 caracteres)
"Descrição do Banco C/C"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (36 caracteres)
"Sistema de Pagamentos em Moeda Local"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (5 caracteres)
"Criar"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (9 caracteres)
"Modificar"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (6 caracteres)
"Exibir"
Comprimento máximo: 6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA277
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA277
DESCRIÇÃO BREVE: CB - Ordens de pagamento tipo 2 - pagamento antecipado
INCLUIR PARÂMETROS:
...
NAME1
WAERS
VLR_EXTERIOR
SLD_ASSOCIAR
* >> Início da inclusão:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
ORIGEM_OP ' ' ' ' 0 0 ' ' /PWS/ZYGLL1414 ' ' ' '
* << Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV217
MODIFICAR VISAO : /PWS/ZYCBV217
DESCRIÇÃO BREVE: CB - Ordens de pagamento tipo pagamento antecipado
INCLUIR CPOS. VISÃO
...
NAME1
WAERS
VLR_EXTERIOR
SLD_ASSOCIAR
* >> Início da inclusão:
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
ORIGEM_OP /PWS/ZYCBT226 ORIGEM_OP ' '
* << Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE226
MODIFICAR ESTRUTURA: /PWS/ZYCBE226
MODIFICAR DESCRIÇÃO BREVE: CB - Valores Mantidos no Exterior ou Pagamento Moeda Local
COMPONENTES NOVOS
...
STATUS
BELNR_ASSOC
DT_ASSOC
TIPO_OP
CONTA_CONTAB
* >> Início da inclusão:
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
ORIGEM_OP /PWS/ZYGLL1414
* << Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT226
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT226
MODIFICAR DESCRIÇÃO BREVE: CB - Valores Mantidos no Exterior ou Pagamento Moeda Local
CAMPOS NOVOS
...
STATUS
BELNR_ASSOC
DT_ASSOC
TIPO_OP
CONTA_CONTAB
* >> Início da inclusão:
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
ORIGEM_OP /PWS/ZYGLL1414 ' ' ' ' ' ' ' '
* << Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB034_SML_A
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB034_SML_A
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Sist. Pagto Moeda Local - alterar
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Sist. Pagto Moeda Local - alterar
PROGRAMA: /PWS/SAPMZYCB034
TELA(SELEÇÃO): 0001
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB034_SML_C
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB034_SML_C
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Sist. Pagto Moeda Local - criar
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Sist. Pagto Moeda Local - alterar
PROGRAMA: /PWS/SAPMZYCB034
TELA(SELEÇÃO): 0002
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB034_SML_E
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB034_SML_E
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Sist. Pagto Moeda Local - exibir
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Sist. Pagto Moeda Local - alterar
PROGRAMA: /PWS/SAPMZYCB034
TELA(SELEÇÃO): 0001
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB035_SML_A
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB035_SML_A
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Alterar Associação SML
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Alterar Associação SML
PROGRAMA: /PWS/SAPMZYCB035
TELA(SELEÇÃO): 0001
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB035_SML_C
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB035_SML_C
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Criar Associação SML
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Criar Associação SML
PROGRAMA: /PWS/SAPMZYCB035
TELA(SELEÇÃO): 0001
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCB035_SML_E
CRIAR CÓDIGO DE TRANSAÇÃO: /PWS/ZYCB035_SML_E
ATRIBUTOS DA TRANSAÇÃO
TEXTO BREVE: Exibir Associação SML
OBJETO DE EXECUÇÃO
(X) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)
TEXTO DA TRANSAÇÃO: Criar Associação SML
PROGRAMA: /PWS/SAPMZYCB035
TELA(SELEÇÃO): 0001
(X) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA
CLASSIFICAÇÃO
CLASSIFICAÇÃO DE TRANSAÇÃO:
(X) - TRANSAÇÃO PROFESSIONAL USER
CAPACIDADE GUI:
(X) SAP GUI PARA HTML
(X) SAP GUI PARA JAVA
(X) SAP GUI PARA WINDOWS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHI3 /PWS/ZYCB
Modificações efetuadas em SHI6 /PWS/ZYCB
Modificações efetuadas em TABU TMENU01
Modificações efetuadas em TABU TMENU01R
Modificações efetuadas em TABU TMENU01T
Transação SE43 - Criar no menu /PWS/ZYCB->Exportação as opções abaixo:
...
Pagamento de Juros
Letra de Juros
Carta de Crédito
Valores Mantidos no Exterior
- Criar
- Modificar
- Exibir
- Associação de Ordens de Pagamento
- Criar
- Modificar
- Exibir
* >> Início da inclusão:
Sistema de Pagamentos em Moeda Local
- Criar (transação /PWS/ZYCB034_SML_C)
- Modificar (transação /PWS/ZYCB034_SML_A)
- Exibir (transação /PWS/ZYCB034_SML_E)
- Associação de Ordens de Pagamento(SML)
- Criar (transação /PWS/ZYCB035_SML_C)
- Modificar (transação /PWS/ZYCB035_SML_A)
- Exibir (transação /PWS/ZYCB035_SML_E)
* << Fim da inclusão
Despesas
Rotina de Pagamento