CE PLUS - Nota 006286
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Contrato
Data/Hora da Publicação: 31/03/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:59:15
Descrição da Nota: LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
Sintoma
Na Liquidação de ACC c/Pré-Pg(pws/zycb014) com o tipo de contrato DP, não faz o tratamento para
controle na criação de uma captação, como C/C ME.
Solução
Alteradas includes /PWS/MZYCB001I01, /PWS/MZYCB001TOP, /PWS/MZYCB014F01, /PWS/MZYCB014O01 e
/PWS/MZYCB014TOP, para que o programa possa consistir o campo Tipo de Pagamento Antecipado na
Liquidação ACC.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06286 Data: 31/03/2008 Hora: 11:03:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06286
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05479 - 00001 - 7.0 - 00003 - CAPTAÇÂO - ORDEM DE PAGAMENTO
06005 - 00002 - 7.0 - 00004 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE ACC COM PRÉ PAGTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO DE ACC COM PRÉ PAGTO PARA DP COM C/C ME E NORMAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB014 0100
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001TOP
REPS /PWS/MZYCB014F01
REPS /PWS/MZYCB014I01
REPS /PWS/MZYCB014O01
REPS /PWS/MZYCB014TOP
REPT /PWS/SAPMZYCB014
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB014 0100
MODIFICAR CAIXA DE VERIFICAÇÃO "ITAB_ZYCBT061-MARK" em tbl.contr./tabstr
Texto _
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100
...
CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.
LOOP AT itab_zycbt061
WITH CONTROL tc_itens CURSOR tc_itens-current_line.
MODULE preenche_dados.
ENDLOOP.
MODULE copia_itab_zycbt061.
PROCESS AFTER INPUT.
CALL SUBSCREEN ss_html.
FIELD /pws/zycbe060-tpcontr MODULE consiste_tpcontr ON REQUEST.
FIELD /pws/zycbe060-dtdesemb MODULE date_consistency ON REQUEST.
* >> Início da inclusão:
FIELD /pws/zycbe001-tp_pagt_antc MODULE verifica_tp_patg_antc.
* << Fim da inclusão
MODULE limpa_zycbt061.
LOOP AT itab_zycbt061.
MODULE altera_itab_zycbt061.
ENDLOOP.
MODULE calculos_itab_zycbt061.
MODULE: user_command_0100,
user_command_exit AT EXIT-COMMAND.
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB014
0100
46C
40
%_HEADER
/PWS/SAPMZYCB014 0100 0100 29119192 35 0 0 29119 0G P
20080327172315
%_DESCRIPTION
CB - Tela do Inicial - Pré Pagamento
%_FIELDS
CC_TOOLBAR
820030003000 1 3 0 0 0 1U 1 41106
SS_HTML
340000003000 1 87 0 0 0 29B 1 1102
/PWS/ZYCBE060-NRCONTR
0CHAR 193000003000 2 3 0 0 0 0 0 0
Contrato/Seqüencial
X
/PWS/ZYCBE060-NRCONTR
CCHAR 15A000800000 2 24 0 0 0 0 15 0
_______________
/PWS/ZYCBE060-NRSEQ
CCHAR 8A000883000 2 40 0 0 0 0 /PWS/ZYCBP019 ALPHA 8 0
________
/PWS/ZYCBE060-DTINCLU
0CHAR 153000003000 2 54 0 0 0 0 0 0
Data_Lançamento
X
/PWS/ZYCBE060-DTINCLU
DDATS 10A000803008 2 75 0 0 0 0 8 0
TRA __________
X
/PWS/ZYCBE060-BUKRS
2CHAR 153000003000 3 3 0 0 0 0 0 0
Empresa________
X
/PWS/ZYCBE060-BUKRS
CCHAR 4A000A40008 3 24 0 0 0 0 BUK 4 0
?___
X
/PWS/ZYCBE060-DTDESEMB
2CHAR 203000003000 3 54 0 0 0 0 0 0
Data_Desembolso_____
X
/PWS/ZYCBE060-DTDESEMB
DDATS 10A000A00008 3 75 0 0 0 0 8 0
?_________
X
/PWS/ZYCBE060-TPCONTR
2CHAR 203000003000 4 3 0 0 0 0 0 0
Tipo_Contrato_______
X
/PWS/ZYCBE060-TPCONTR
CCHAR 2A000A40008 4 24 0 0 0 0 2 0
/PWS/ZYCBA208
?_
X
/PWS/ZYCBE001-TP_PAGT_ANTC
CCHAR 1A000810008 4 27 0 0 0 0 1 0
_
X
/PWS/ZYCBE060-DTENT
2CHAR 203000003000 4 54 0 0 0 0 0 0
Data_Entrega________
X
/PWS/ZYCBE060-DTENT
DDATS 10A000803008 4 75 0 0 0 0 8 0
__________
X
/PWS/ZYCBE060-NRCA
0CHAR 143000003000 5 3 0 0 0 0 0 0
Número_ROF/RDE
X
/PWS/ZYCBE060-NRCA
CCHAR 10A000800000 5 24 0 0 0 0 10 0
__________
/PWS/ZYCBE060-DTLIQUID
2CHAR 203000003000 5 54 0 0 0 0 0 0
Data_Liquidação_____
X
/PWS/ZYCBE060-DTLIQUID
DDATS 10A000803008 5 75 0 0 0 0 8 0
__________
X
%#AUTOTEXT001
CHAR 830000083000 7 2 0 0 0 13R 0 0103
Vinculação_para_Pré_Pagamento_____________________________________________________
TC_ITENS
81F9F8000000 8 3E101 1 1 11T 0 0
/PWS/ZYCBE061-NRSEQ_C
0CHAR 1130000030A0 1 1T101 1 1 12 0 0
Seq._Contr.
/PWS/ZYCBE061-NRCONTR_C
0CHAR 143000003080 1 2T101 1 1 12 0 0
Contrato______
/PWS/ZYCBE061-TPCONTR_C
0CHAR 93000003080 1 3T101 1 1 9 0 0
Tp._Cont.
/PWS/ZYCBE061-WAERS_C
2CHAR 153000003080 1 4T101 1 1 6 0 0
Moeda__________
/PWS/ZYCBE061-VLME_C
0CHAR 153000003080 1 5T101 1 1 15 0 0
Valor_ACC/TRAVA
/PWS/ZYCBE061-SLVINC_C
0CHAR 153000003080 1 6T101 1 1 15 0 0
Saldo_ACC/TRAVA
/PWS/ZYCBE061-VLALT
0CHAR 143000003080 1 7T101 1 1 17 0 0
Valor_Pré_Pag.
/PWS/ZYCBE061-PARIDADE
0CHAR 83000003080 1 8T101 1 1 8 0 0
Paridade
/PWS/ZYCBE061-WAERS
2CHAR 153000003080 1 9T101 1 1 6 0 0
Moeda__________
/PWS/ZYCBE061-VLCALC
0CHAR 153000003080 1 10T101 1 1 16 0 0
Valor_Pré_Conv.
/PWS/ZYCBE061-DTCONTR_C
0CHAR 123000003080 1 11T101 1 1 11 0 0
Dt.Contrato_
/PWS/ZYCBE061-DTCRED_C
0CHAR 183000003080 1 12T101 1 1 10 0 0
Dt.Crédito________
/PWS/ZYCBE061-DTENTR_C
0CHAR 103000003080 1 13T101 1 1 10 0 0
Dt.Entrega
/PWS/ZYCBE061-DTENTR
0CHAR 113000003080 1 14T101 1 1 11 0 0
Entrega_Pré
/PWS/ZYCBE061-PRENT
0CHAR 93000003080 1 15T101 1 1 9 0 0
Prz._Ent.
/PWS/ZYCBE061-DTLIQUID_C
0CHAR 153000003080 1 16T101 1 1 15 0 0
Data_Liquidação
/PWS/ZYCBE061-DTLIQUID
0CHAR 143000003080 1 17T101 1 1 14 0 0
Liquidação_Pré
/PWS/ZYCBE061-PRLIQ
0CHAR 93000003080 1 18T101 1 1 9 0 0
Prz._Liq.
ITAB_ZYCBT061-MARK
CHAR 18000800020 1 0T101 1 1 1C 0 0105
_
/PWS/ZYCBE061-NRSEQ_C
CCHAR 8A000880028 1 1T101 1 1 12 /PWS/ZYCBP019 ALPHA 8 0
/PWS/ZYCBA202
________
/PWS/ZYCBE061-NRCONTR_C
CCHAR 15A100803000 1 2T101 1 1 12 15 0
TRA _______________
/PWS/ZYCBE061-TPCONTR_C
CCHAR 2A000803000 1 3T101 1 1 9 2 0
TRA __
X
/PWS/ZYCBE061-WAERS_C
CCUKY 5A000883000 1 4T101 1 1 6 FWS 5 0
TRA _____
/PWS/ZYCBE061-VLME_C
PCURR 16A020807000 1 5T101 1 1 15 13 2 /PWS/ZYCBE061-WAERS
TRA ________________
/PWS/ZYCBE061-SLVINC_C
PCURR 16A020803000 1 6T101 1 1 15 13 2 /PWS/ZYCBE061-WAERS
TRA ________________
/PWS/ZYCBE061-VLALT
PCURR 16A020800000 1 7T101 1 1 17 13 2 /PWS/ZYCBE061-WAERS
________________
/PWS/ZYCBE061-PARIDADE
PDEC 12A000900000 1 8T101 1 1 8 EXCRT 9 5
_.___,_____V
/PWS/ZYCBE061-WAERS
CCUKY 5A000883000 1 9T101 1 1 6 FWS 5 0
TRA _____
/PWS/ZYCBE061-VLCALC
PCURR 16A020803000 1 10T101 1 1 16 13 2 /PWS/ZYCBE061-WAERS
TRA ________________
/PWS/ZYCBE061-DTCONTR_C
DDATS 10A000803008 1 11T101 1 1 11 8 0
TRA __________
X
/PWS/ZYCBE061-DTCRED_C
DDATS 10A000803008 1 12T101 1 1 10 8 0
TRA __________
X
/PWS/ZYCBE061-DTENTR_C
DDATS 10A000803008 1 13T101 1 1 10 8 0
TRA __________
X
/PWS/ZYCBE061-DTENTR
DDATS 10A000800008 1 14T101 1 1 11 8 0
__________
X
/PWS/ZYCBE061-PRENT
NNUMC 5A000800000 1 15T101 1 1 9 5 0
_____
/PWS/ZYCBE061-DTLIQUID_C
DDATS 10A000803008 1 16T101 1 1 15 8 0
TRA __________
X
/PWS/ZYCBE061-DTLIQUID
DDATS 10A000800008 1 17T101 1 1 14 8 0
__________
X
/PWS/ZYCBE061-PRLIQ
NNUMC 9B000800000 1 18T101 1 1 11 5 0
_________
TEXT1
CHAR 250000083000 21 19 0 0 0 0 0 0
Moeda/Total_Pré_Pagamento
X
/PWS/ZYCBE060-WAERS
CCUKY 5A000A40008 21 45 0 0 0 0 FWS 5 0
TRA ?____
X
/PWS/ZYCBE060-VLME
PCURR 16A000803000 21 51 0 0 0 0 13 2 /PWS/ZYCBE060-WAERS
________________
OKCODE
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE status_0100.
MODULE: set_screen,
status_0100_custom. "206393 - Luciana - 15/03/2005
* CHAMADO 216415 - 10/03/2005 - INICIO
CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.
* CHAMADO 216415 - 10/03/2005 - FIM
LOOP AT itab_zycbt061
WITH CONTROL tc_itens CURSOR tc_itens-current_line.
MODULE preenche_dados.
ENDLOOP.
MODULE copia_itab_zycbt061.
PROCESS AFTER INPUT.
* CHAMADO 216415 - 10/03/2005 - INICIO
CALL SUBSCREEN ss_html.
* CHAMADO 216415 - 10/03/2005 - FIM
FIELD /pws/zycbe060-tpcontr MODULE consiste_tpcontr ON REQUEST.
FIELD /pws/zycbe060-dtdesemb MODULE date_consistency ON REQUEST.
* Chamado 449402 - Rafael - 27.03.2008 - Início
FIELD /pws/zycbe001-tp_pagt_antc MODULE verifica_tp_patg_antc.
* Chamado 449402 - Rafael - 27.03.2008 - Fim
MODULE limpa_zycbt061.
LOOP AT itab_zycbt061.
* field /pws/zycbe061-waers module consiste_moeda on input.
MODULE altera_itab_zycbt061.
ENDLOOP.
MODULE calculos_itab_zycbt061.
MODULE: user_command_0100,
user_command_exit AT EXIT-COMMAND.
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
SELECT * FROM /pws/zycbt136
INTO TABLE itab_zycbt136
WHERE nrseqc = /pws/zycbe001-nrseqc.
SELECT * FROM /pws/zyglt209
INTO TABLE itab_zyglt209
WHERE nrseq = /pws/zycbe001-nrseqc.
SELECT MAX( dtpagto )
INTO v_dtpagto
FROM /pws/zycbt006
WHERE nrseqc EQ /pws/zycbe001-nrseqc.
* >> Início da inclusão: MODULE USER_COMMAND_0002
IMPORT v_tp_pagt_dp FROM MEMORY ID 'v_tp_pagt'.
IF v_tp_pagt_dp = 'X'.
/pws/zycbe001-tp_pagt_antc = 'C'.
ENDIF.
CLEAR: v_tp_pagt_dp.
FREE MEMORY ID' v_tp_pagt'.
* << Fim da inclusão
IF /pws/zycbe001-tp_pagt_antc = 'C'.
v_opccme = 'X'.
PERFORM exporta_banco_cliente.
CALL SCREEN '0150'.
ELSE.
CALL SCREEN '0100'.
ENDIF.
ELSE.
MESSAGE w010.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
v_callscr TYPE i VALUE 0,
v_idioma TYPE t002t-spras,
v_idioma2 TYPE t002t-spras,
v_svdoc(1) TYPE c VALUE ' ',
v_kunnr LIKE /pws/zycbe001-kunnr,
v_zterm LIKE /pws/zycbe001-zterm,
v_bukrs_perf LIKE /pws/zycbe074-bukrs_perf,
v_txtcli(50) TYPE c,
v_txtcpt(50) TYPE c,
v_txtemp(50) TYPE c,
* >> Início da inclusão:
v_tp_pagt_dp(1) TYPE c,
* << Fim da inclusão
mrof(1) TYPE c,
v_bcocred(10) TYPE c,
v_codaux LIKE /pws/zyglt316-codaux1,
v_calcula(1) TYPE c,
v_cpochv LIKE /pws/zycbe033-cpochv,
v_date_est LIKE t009b-bdatj,
v_novo,
v_contac LIKE /pws/zycbt012-saknr1,
v_belnr_pt LIKE /pws/zycbt001-belnr,
estorno_ok(1),
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014F01
...
ELSEIF sy-tcode = '/PWS/ZYCB014_A'.
MESSAGE i268 WITH /pws/zycbe060-nrcontr /pws/zycbe060-nrseq."#EC *
ENDIF.
ENDFORM.
FORM exibir.
SET PF-STATUS '0100_E' EXCLUDING 'SAVE'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: FORM EXIBIR
PERFORM ativa_tpa.
* << Fim da inclusão
IF sy-tcode = '/PWS/ZYCB014_A'.
SET PF-STATUS '0100_A'.
ENDIF.
LOOP AT tc_itens-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_itens-cols FROM wa_cols.
ENDLOOP.
ENDFORM.
FORM alterar_excluir.
SET PF-STATUS '0100_A'.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE060-NRCONTR' OR
screen-name = '/PWS/ZYCBE060-BUKRS' OR
* >> Início da exclusão: FORM ALTERAR_EXCLUIR
screen-name = '/PWS/ZYCBE060-TPCONTR'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERAR_EXCLUIR
screen-name = '/PWS/ZYCBE060-TPCONTR' OR
screen-name = '/PWS/ZYCBE001-TP_PAGT_ANTC'.
* << Fim da inclusão
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: FORM ALTERAR_EXCLUIR
PERFORM ativa_tpa.
* << Fim da inclusão
LOOP AT tc_itens-cols INTO wa_cols.
wa_cols-screen-input = 1.
IF wa_cols-screen-group2 = 'TRA'.
...
...
/pws/zycbe060-dtliquid, /pws/zycbe060-waers ,
/pws/zycbe060-vlme)
WHERE nrseq = /pws/zycbe060a-nrseq.
MOVE /pws/zycbe060 TO wa_zycbe060_aux2.
IF sy-subrc = 0 .
v_existe = 'YES'.
SELECT *
FROM /pws/zycbt061
INTO TABLE itab_zycbt061
WHERE nrseq = /pws/zycbe060-nrseq.
* >> Início da inclusão: FORM LOCALIZA_REGISTRO
SELECT tp_pagt_antc
FROM /pws/zycbt001
INTO /pws/zycbe001-tp_pagt_antc
WHERE nrseqc = /pws/zycbe060-nrseq.
ENDSELECT.
* << Fim da inclusão
MOVE itab_zycbt061[] TO itab_aux_zycbt061[].
MOVE itab_zycbt061[] TO itab_aux2_zycbt061[].
IF sy-tcode = '/PWS/ZYCB014_A'.
SELECT * FROM /pws/zycbt002
UP TO 1 ROWS
WHERE nrseqc = /pws/zycbe060a-nrseq AND
tpparc = 'P' AND
belnr NE '0000000000' AND
belnr NE ' ' AND
belnr NE 0.
...
...
IF okcode <> 'ERAS'.
PERFORM grava_tabelas.
v_incluido = 'YES'.
ENDIF.
ENDIF.
ENDFORM.
FORM call_zycb001.
DATA: v_altera(1).
PERFORM verifica_alteracao CHANGING v_altera.
IF v_altera IS INITIAL.
* >> Início da inclusão: FORM CALL_ZYCB001
IF /pws/zycbe060-tpcontr(1) = 'D' AND
/pws/zycbe001-tp_pagt_antc = 'C'.
v_tp_pagt_dp = 'X'.
ELSE.
v_tp_pagt_dp = ''.
ENDIF.
EXPORT v_tp_pagt_dp TO MEMORY ID 'v_tp_pagt'.
* << Fim da inclusão
v_transacao = sy-tcode.
EXPORT v_transacao TO MEMORY ID 'E007'.
IF sy-tcode = '/PWS/ZYCB014_C'.
SET PARAMETER ID '/PWS/ZYCBP002' FIELD v_nrseq.
CALL TRANSACTION '/PWS/ZYCB001_A' AND SKIP FIRST SCREEN.
ELSEIF sy-tcode = '/PWS/ZYCB014_A' AND v_exibe = 'NO'.
v_nrseq = /pws/zycbe060-nrseq.
SET PARAMETER ID '/PWS/ZYCBP002' FIELD v_nrseq.
CALL TRANSACTION '/PWS/ZYCB001_A' AND SKIP FIRST SCREEN.
ELSEIF sy-tcode = '/PWS/ZYCB014_A' AND v_exibe = 'YES'.
...
...
/pws/zycbt007-gsber TO /pws/zycbt001-gsber,
/pws/zycbe060-tpcontr TO /pws/zycbt001-tpcontr,
/pws/zycbe060-vlme TO /pws/zycbt001-vlme,
/pws/zycbe060-vlme TO /pws/zycbt001-slvinc,
/pws/zycbe060-vlme TO /pws/zycbt001-slpagar,
/pws/zycbe060-waers TO /pws/zycbt001-waers,
/pws/zycbe060-dtdesemb TO /pws/zycbt001-dtdesem,
/pws/zycbe060-dtent TO /pws/zycbt001-dtentr,
/pws/zycbe060-dtliquid TO /pws/zycbt001-dtliquid,
/pws/zycbe060-nrca TO /pws/zycbt001-nrca,
* >> Início da inclusão: FORM GRAVA_ZYCBT001
/pws/zycbe001-tp_pagt_antc TO /pws/zycbt001-tp_pagt_antc,
* << Fim da inclusão
'X' TO /pws/zycbt001-f_pre,
'I' TO /pws/zycbt001-status.
MODIFY /pws/zycbt001.
ENDFORM.
FORM grava_zycbt060.
CLEAR /pws/zycbt060.
MOVE /pws/zycbe060 TO /pws/zycbt060.
IF /pws/zycbt007-cfm = 'X'.
SELECT *
FROM /pws/zycbt060
...
...
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt003
WHERE tppror = 'L'.
IF itab_zycbt061-dtliquid_c <= itab_zycbt003-dtpror.
itab_zycbt061-dtliquid_c = itab_zycbt003-dtpror.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM ativa_tpa.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE001-TP_PAGT_ANTC' AND
/pws/zycbe060-tpcontr(1) EQ 'D'.
screen-invisible = 0.
MODIFY SCREEN.
ELSEIF screen-name = '/PWS/ZYCBE001-TP_PAGT_ANTC' AND
/pws/zycbe060-tpcontr(1) NE 'D'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014I01
...
MODULE user_command_0051 INPUT.
CASE okcode.
WHEN 'BC'.
CALL METHOD html_control->go_back.
CLEAR okcode.
WHEN 'AVAN'.
CALL METHOD html_control->go_forward.
CLEAR okcode.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE verifica_tp_patg_antc INPUT.
IF /pws/zycbe060-tpcontr(1) EQ 'D' AND
/pws/zycbe001-tp_pagt_antc IS INITIAL.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE001-TP_PAGT_ANTC' AND
screen-invisible = 0.
MESSAGE e061 WITH 'Informe o Tipo de Pagamento Antecipado'(058).
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014O01
...
ENDMODULE.
MODULE set_screen OUTPUT.
CASE sy-dynnr.
WHEN '0100'.
IF sy-tcode = '/PWS/ZYCB014_C' AND /pws/zycbe060-nrseq IS
INITIAL .
PERFORM find_nrseq.
/pws/zycbe060-dtinclu = sy-datum.
/pws/zycbe060-nrseq = v_nrseq.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
PERFORM ativa_tpa.
* << Fim da inclusão
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE061-VLCALC'.
IF /pws/zycbe061-waers_c NE /pws/zycbe060-waers AND
NOT /pws/zycbe061-waers_c IS INITIAL AND
NOT /pws/zycbe060-waers IS INITIAL.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB014TOP
PROGRAM /pws/sapmzycb014 MESSAGE-ID /pws/zycbm.
INCLUDE /pws/zygli100.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
INCLUDE /pws/zygli101.
DATA v_tela_help LIKE sy-dynnr VALUE '0052'. "#EC *
CONTROLS: tc_itens TYPE TABLEVIEW USING SCREEN 100,
tc_juros TYPE TABLEVIEW USING SCREEN 200.
TABLES: /pws/zycbt001,
* >> Início da inclusão:
/pws/zycbe001,
* << Fim da inclusão
/pws/zycbt002,
/pws/zycbt003, "#EC *
/pws/zycbt007,
/pws/zycbt004,
indx,
tcurx. "#EC *
DATA: wa_zycbe060_aux2 LIKE /pws/zycbe060,
wa_zycbt001 LIKE /pws/zycbe001,
wa_zycbt062_aux LIKE /pws/zycbt062.
DATA: BEGIN OF itab_zycbt061_aux OCCURS 0.
...
...
v_len TYPE i. "#EC *
DATA: mark, "#EC *
v_lin TYPE i, "#EC *
v_nrseq LIKE /pws/zycbe060-nrseq,
v_campo(20) TYPE c, "#EC *
v_valor(8) TYPE c, "#EC *
v_status_s VALUE 1,
v_tot LIKE /pws/zycbt060-vlme,"#EC *
wa_cols TYPE cxtab_column,
v_flag(3) TYPE c,
* >> Início da inclusão:
v_tp_pagt_dp(1) TYPE c,
* << Fim da inclusão
v_resp,
v_incl, "#EC *
v_sair(3) TYPE c VALUE 'NO',
v_nrcontr LIKE /pws/zycbt060-nrcontr,
v_continua , "#EC *
v_empresa LIKE /pws/zycbt060-bukrs,
v_transacao LIKE shkontext-tcode,
v_incluido(3) TYPE c VALUE 'NO',
v_salvar(3) TYPE c VALUE 'NO', "#EC *
v_cont TYPE i VALUE 0,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB014
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (38 caracteres)
"Informe o Tipo de Pagamento Antecipado"
Comprimento máximo: 38