CE PLUS - Nota 006858
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 26/06/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:51:47
Descrição da Nota: INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.
Sintoma
O programa não faz o Authority Check por empresa nos relatórios.
Solução
Foi adicionado tratamento.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06858 Data: 26/06/2008 Hora: 15:02:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06858
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01245 - 00001 - 6.0 - 00023 - RELATÓRIO DE IMPORTAÇÕES PAGAS - AJUSTES GERAIS
06288 - 00002 - 7.0 - 00005 - RELATÓRIO CÂMBIOS FECHADOS - CONSISTÊNCIA NRO. CONTRATO OU VINCUL
----------------------------------------------------------------------------------------------------
INCLUSÃO DE AUTHORITY CHECK EM PROGRAMAS E RELATÓRIOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
AUTHORITY CHECK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCBT133F01
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL344F01
REPS /PWS/MZYGLT357I01
REPS /PWS/ZYCAR018
REPS /PWS/ZYCBR001
REPS /PWS/ZYCBR004
REPS /PWS/ZYCBR010
REPS /PWS/ZYCBR014
REPS /PWS/ZYCBR022
REPS /PWS/ZYCBR024
REPS /PWS/ZYCBR026
REPS /PWS/ZYCBR027
REPS /PWS/ZYCBR028
REPS /PWS/ZYCBR045
REPS /PWS/ZYCBR046
REPS /PWS/ZYCBR047
REPS /PWS/ZYCBR048
REPS /PWS/ZYCBR057
REPS /PWS/ZYCBR058
REPS /PWS/ZYCBR063
REPS /PWS/ZYCBR078
REPS /PWS/ZYCBR098
REPS /PWS/ZYCBR109
REPS /PWS/ZYCBR111
REPS /PWS/ZYCBR115
REPS /PWS/ZYCBR118
REPS /PWS/ZYCBR119
REPS /PWS/ZYCBR120
REPS /PWS/ZYCBR127
REPS /PWS/ZYCBR130
REPS /PWS/ZYCBR138
REPS /PWS/ZYCBR139
REPS /PWS/ZYCBR140
REPS /PWS/ZYCBR358
REPS /PWS/ZYCBR359
REPS /PWS/ZYCMR106
REPS /PWS/ZYCMR114
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCBT133F01
...
INSERT /pws/zycbt133 FROM TABLE itab_zycbt133.
v_tcode = '/PWS/ZYCBT133'.
CLEAR v_alt.
MESSAGE s016 WITH text-013.
ENDIF.
ELSE.
v_tcode = '/PWS/ZYCBT133'.
MESSAGE w016 WITH text-012.
ENDIF.
WHEN 'NOVA'.
* >> Início da inclusão: FORM SALVAR
LOOP AT itab_zycbt133.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt133-bukrs
ID 'ACTVT'
FIELD '01'.
IF sy-subrc NE 0.
MESSAGE w031 WITH itab_zycbt133-bukrs.
DELETE itab_zycbt133 INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
IF NOT itab_zycbt133[] IS INITIAL.
LOOP AT itab_zycbt133.
v_index1 = sy-tabix.
READ TABLE itab_zycbt133_aux WITH KEY
bukrs = itab_zycbt133-bukrs
codmod = itab_zycbt133-codmod.
IF sy-subrc = 0.
IF itab_zycbt133-insert = 'X'.
MOVE-CORRESPONDING itab_zycbt133 TO
itab_zycbt133_insert.
...
...
itab_zycbt133-codmod.
MESSAGE s016 WITH text-002.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona.
IF itab_zycbt133[] IS INITIAL AND okcode NE 'DELE'.
SELECT *
FROM /pws/zycbt133
INTO TABLE itab_zycbt133.
* >> Início da inclusão: FORM SELECIONA
PERFORM authority_check.
* << Fim da inclusão
MOVE itab_zycbt133[] TO itab_zycbt133_aux[].
ENDIF.
v_current = 1.
ENDFORM.
FORM linha_tc.
CASE sy-dynnr.
WHEN '0100'.
DESCRIBE TABLE itab_zycbt133 LINES v_line.
tc_param-lines = v_line.
CLEAR v_line.
...
...
v_alt = 1.
ENDIF.
ENDCASE.
ENDFORM.
FORM set_cursor.
SET CURSOR FIELD v_field LINE v_line OFFSET v_offset.
ENDFORM.
FORM get_cursor.
GET CURSOR FIELD v_field LINE v_linha OFFSET v_offset.
ENDFORM.
* >> Início da inclusão:
FORM authority_check .
LOOP AT itab_zycbt133.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt133-bukrs
ID 'ACTVT'
FIELD '01'.
IF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt133-bukrs
ID 'ACTVT'
FIELD '02'.
ELSEIF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt133-bukrs
ID 'ACTVT'
FIELD '03'.
ENDIF.
IF sy-subrc NE 0.
DELETE itab_zycbt133 INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
MODULE set_bx_cli INPUT.
IF v_bx_cli1 = 'X'.
/pws/zycbt089-bx_cli_vinc = 'X'.
ELSEIF v_bx_cli2 = 'X'.
CLEAR /pws/zycbt089-bx_cli_vinc.
ENDIF.
ENDMODULE.
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
WHEN 'ENTER'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD /pws/zycbt007-bukrs
ID 'ACTVT'
FIELD '01'.
IF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD /pws/zycbt007-bukrs
ID 'ACTVT'
FIELD '02'.
ELSEIF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD /pws/zycbt007-bukrs
ID 'ACTVT'
FIELD '03'.
ENDIF.
IF sy-subrc EQ 0.
* << Fim da inclusão
LEAVE TO SCREEN 0.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ELSE.
MESSAGE w120 WITH /pws/zycbt007-bukrs.
ENDIF.
* << Fim da inclusão
WHEN 'CANCEL'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL344F01
...
LOOP AT ITAB_ZYGLT368.
ITAB_ZYGLT368-MARC = 'X'.
MODIFY ITAB_ZYGLT368.
ENDLOOP.
ENDCASE.
ENDFORM.
FORM USER_COMMAND_0200.
CASE OK_CODE.
WHEN 'ENTER'.
MOVE /PWS/ZYGLE368-BUKRS TO V_EMP.
* >> Início da inclusão: FORM USER_COMMAND_0200
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD v_emp
ID 'ACTVT'
FIELD '01'.
IF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD v_emp
ID 'ACTVT'
FIELD '02'.
ELSEIF sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD v_emp
ID 'ACTVT'
FIELD '03'.
ENDIF.
IF sy-subrc NE 0.
MESSAGE w004 WITH v_emp.
ELSE.
* << Fim da inclusão
LEAVE TO SCREEN 0.
* >> Início da inclusão: FORM USER_COMMAND_0200
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDFORM.
form unlock_record.
CHECK sy-tcode EQ '/PWS/ZYGL344'.
CALL FUNCTION '/PWS/ZYGL_DEQUEUE_ZYGL344'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGLT357I01
MODULE user_command_0001 INPUT.
CASE okcode.
WHEN 'ENTER'.
IF NOT /pws/zygle357-hbkid IS INITIAL AND
NOT /pws/zygle357-bukrs IS INITIAL AND
NOT /pws/zygle357-land1 IS INITIAL.
* >> Início da inclusão: MODULE USER_COMMAND_0001
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD /pws/zygle357-bukrs
ID 'ACTVT'
FIELD '02'.
IF sy-subrc EQ 0.
* << Fim da inclusão
CALL SCREEN '0100'.
* >> Início da inclusão: MODULE USER_COMMAND_0001
ELSE.
MESSAGE w120 WITH /pws/zygle357-bukrs.
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-006.
ENDIF.
WHEN 'BACK'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCAR018
...
ENDFORM.
FORM processa_dados.
IF NOT itab_zycbt124[] IS INITIAL.
SELECT * FROM bkpf
INTO TABLE itab_bkpf
FOR ALL ENTRIES IN itab_zycbt124
WHERE bukrs EQ itab_zycbt124-bukrs
AND belnr EQ itab_zycbt124-belnr
AND gjahr EQ itab_zycbt124-gjahr.
LOOP AT itab_zycbt124.
* >> Início da inclusão: FORM PROCESSA_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt124-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
MOVE: itab_zycbt124-nrseq TO itab_final-nrseq,
itab_zycbt124-bukrs TO itab_final-bukrs,
itab_zycbt124-ff TO itab_final-check,
itab_zycbt124-contcom TO itab_final-checkcc,
itab_zycbt124-nrfat TO itab_final-nrfat,
itab_zycbt124-nrfech TO itab_final-nrfech,
itab_zycbt124-nrcontr TO itab_final-nrcontr,
itab_zycbt124-gsber TO itab_final-gsber,
itab_zycbt124-j_1bbranch TO itab_final-j_1bbranch,
itab_zycbt124-werks TO itab_final-werks,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR001
...
COLLECT itab_sumario_tp.
CLEAR itab_sumario_nrseqc-vlvinc.
ENDAT.
ENDLOOP.
CLEAR v_index.
ENDIF.
ENDIF.
FREE: itab_zycbt005, itab_kna1, itab_zycbt045, itab_zycbt001,
itab_zycbt016, itab_zycbt006, itab_zycet001, itab_zycet003,
itab_zycbt003, itab_bancos.
* >> Início da inclusão: FORM PROCESSAR_DADOS
LOOP AT itab_relat.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_relat-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_relat INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDFORM.
FORM converter_moeda USING p_devlme
p_dewaers
p_parawaers
p_ctmoeda
CHANGING p_paravlme p_taxa."#EC *
CLEAR itab_log.
SELECT SINGLE *
FROM /pws/zycbt009
WHERE codpadr EQ p_ctmoeda.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR004
...
itab_relat-nrsd = itab_aux2-nrsd.
ENDIF.
itab_relat-nrre = itab_aux2-nrre.
APPEND itab_relat.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
SORT itab_relat BY nrinvoic ASCENDING dtbl DESCENDING.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_relat.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_relat-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_relat INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt207
INTO TABLE itab_zycbt207
WHERE nrseqc IN s_direc.
IF NOT s_direc IS INITIAL.
LOOP AT itab_relat.
READ TABLE itab_zycbt207 WITH KEY nrinvoic = itab_relat-nrinvoic
gsberf = itab_relat-gsberf
.
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR010
...
AND dtreceb LE s_posic
AND tpdev = 'RP'.
SORT itab_zycbt051 BY nrseqc nrinvoic nrparcf gsberf.
SELECT lifnr name1
FROM lfa1
INTO TABLE itab_bancos
FOR ALL ENTRIES IN itab_zycbt001
WHERE lifnr = itab_zycbt001-bconegoc
OR lifnr = itab_zycbt001-bcofinan.
LOOP AT itab_zycbt001.
* >> Início da inclusão: FORM PROCESSAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR: itab_relat, v_vldev, v_slpagar, v_vlvinc, v_vlreceb,
v_slvinc.
LOOP AT itab_zycbt003 WHERE nrseqc = itab_zycbt001-nrseqc.
IF itab_zycbt001-dtentr LE itab_zycbt003-dtpror.
itab_zycbt001-dtentr = itab_zycbt003-dtpror.
ENDIF.
ENDLOOP.
READ TABLE itab_zycbt016 WITH KEY tpcontr = itab_zycbt001-tpcontr.
IF sy-subrc = 0.
MOVE:
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR014
...
belnr EQ itab_zycbt004-belnr AND
gjahr EQ itab_zycbt004-gjahr.
SELECT DISTINCT tpdesp txtdesc
FROM /pws/zycbt015
INTO TABLE itab_zycbt015
FOR ALL ENTRIES IN itab_zycbt004
WHERE tpdesp EQ itab_zycbt004-tpdesp. "#EC CI_BYPASS
ENDIF.
ENDIF.
LOOP AT itab_zycbt004.
* >> Início da inclusão: FORM PROCESSAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt004-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
READ TABLE itab_tcurx WITH KEY currkey = itab_zycbt004-waers
TRANSPORTING currdec.
IF sy-subrc NE 0.
tcurx-currdec = 2.
ENDIF.
IF tcurx-currdec = 0.
itab_zycbt004-vlme = itab_zycbt004-vlme *
( 10 ** ( tcurx-currdec - 2 ) ).
ENDIF.
CLEAR: itab_zycbt044, itab_zycbt043.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR022
...
FROM /pws/zycbt004 AS a
INNER JOIN /pws/zycbt001 AS b
ON b~nrseqc = a~nrseqc
WHERE a~nrseqc IN s_nrseqc AND
a~tpdesp IN s_tpdesp AND
a~nrcontr IN s_nrcont AND
a~bukrs IN s_bukrs AND
a~benefic IN s_benef AND
a~dtvencto IN s_dtvcto AND
a~dtpagto IN s_dtpgto.
* >> Início da exclusão: FORM SELECIONA_DADOS
IF NOT sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_relat.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_relat-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_relat INDEX sy-tabix.
ENDIF.
ENDLOOP.
IF itab_relat[] IS INITIAL.
* << Fim da inclusão
MESSAGE i222.
STOP.
ENDIF.
IF NOT itab_relat[] IS INITIAL.
SELECT nrinvoic nrparcf gsberf nremb
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_relat
WHERE nrinvoic = itab_relat-nrinvoic AND
nrparcf = itab_relat-nrparcf AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR024
...
SELECT SINGLE calc_rot_sep INTO v_calc_rot_sep
FROM /pws/zyglt009 WHERE bukrs EQ /pws/zycbt017-bukrs.
SELECT SINGLE name1 INTO kna1-name1
FROM kna1 WHERE kunnr EQ /pws/zycbt017-kunag.
SELECT SINGLE * FROM /pws/zycet001
WHERE nrseq EQ /pws/zycbt017-nrinvoic.
PERFORM verifica_taxa_averbacao.
PERFORM calcula_valor_faturado.
PERFORM verifica_condicao_pagto.
PERFORM verifica_prorrogacao.
* >> Início da inclusão: FORM PROCESSAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD /pws/zycbt017-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
MOVE: /pws/zycbt017-nrinvoic TO itab_relat-nrinvoic,
/pws/zycbt017-nrparcf TO itab_relat-nrparcf ,
/pws/zycbt017-bukrs TO itab_relat-bukrs,
/pws/zycbt017-gsberf TO itab_relat-gsberf,
/pws/zycbt017-dtvencto TO itab_relat-dtvencto,
/pws/zycet001-dtemb TO itab_relat-dtbl,
/pws/zycet001-dtaverb TO itab_relat-dtaverb,
/pws/zycbt017-dtvencto TO itab_relat-dtvecnto,
/pws/zycbt017-kunag TO itab_relat-kunag,
kna1-name1 TO itab_relat-name1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR026
...
itab_dados-bcofinan = v_bcofinan.
itab_dados-nrseqc = wa_zycbt001-nrseqc.
itab_dados-nrcontr = wa_zycbt001-nrcontr.
itab_dados-belnr = wa_zycbt005-belnr.
itab_dados-waers = wa_zycbt005-waers.
IF /pws/zycbt001-tpcontr = 'A' OR /pws/zycbt001-tpcontr = 'E'.
itab_dados-dtcred = wa_zycbt001-dtcred.
ELSE.
CLEAR itab_dados-dtcred.
ENDIF.
* >> Início da inclusão: FORM PROCESSAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_dados-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc EQ 0.
* << Fim da inclusão
APPEND itab_dados.
* >> Início da inclusão: FORM PROCESSAR_DADOS
ENDIF.
* << Fim da inclusão
CLEAR: v_bconegoc, v_bcofinan, v_cliente, itab_dados.
ENDLOOP.
ENDFORM.
FORM imprime_relatorio."#EC CALLED
FORMAT COLOR OFF INTENSIFIED OFF.
SORT itab_dados BY gsberf dtvencto bukrs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
gjahr = itab_zycet010-dtlanc(4) AND
buzei = '001'.
IF sy-subrc EQ 0.
IF v_zlspr IS INITIAL.
itab_registro-status = text-185.
ELSEIF v_zlspr = 'A'.
itab_registro-status = text-184.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELEC_DADOS_010
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_registro-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
APPEND itab_registro.
AT LAST.
IF v_lin_re GT v_lin_bco.
v_index = v_index + 1.
LOOP AT itab_re FROM v_index.
itab_registro-nrre = itab_re-nrre.
CLEAR: itab_registro-vlcomis,
itab_registro-waers .
APPEND itab_registro.
ENDLOOP.
...
...
itab_registro-vlcomis = itab_zycet013-vlme.
itab_registro-vlslf = v_vlslf.
ENDON.
CLEAR itab_nrseq.
READ TABLE itab_nrseq WITH KEY nrseq2 = itab_zycet010-nrseq.
IF sy-subrc EQ '0' AND NOT itab_nrseq-dtpror IS INITIAL.
itab_registro-dtvencto = itab_nrseq-dtpror.
ELSE.
itab_registro-dtvencto = itab_zycet013-dtvencto.
ENDIF.
* >> Início da inclusão: FORM SELEC_DADOS_013
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_registro-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
APPEND itab_registro.
AT LAST.
IF v_lin_re GT v_lin_bco.
v_index = v_index + 1.
LOOP AT itab_re FROM v_index.
itab_registro-nrre = itab_re-nrre.
CLEAR: itab_registro-vlcomis,
itab_registro-waers .
APPEND itab_registro.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR028
...
into table itab_zycbt017
for all entries in itab_zycbt005
WHERE nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf.
endif.
endif.
SELECT SINGLE * FROM /pws/zycbt009
WHERE codpadr EQ 'M'.
LOOP AT itab_zycet001.
* >> Início da inclusão: FORM SELECIONAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycet001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
LOOP AT itab_zycbt005 where nrinvoic = itab_zycet001-nrseq.
clear itab_zycbt001.
read table itab_zycbt001 with key nrseqc = itab_zycbt005-nrseqc.
if sy-subrc = 0.
itab_impr-bconegoc = itab_zycbt001-bconegoc.
itab_impr-nrcontr = itab_zycbt001-nrcontr.
itab_impr-dtcontr = itab_zycbt001-dtcontr.
itab_impr-txcneg = itab_zycbt001-txcneg.
itab_impr-nrseqc = itab_zycbt001-nrseqc.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR045
...
ELSE.
CLEAR: itab_relat-vlavinc.
APPEND itab_relat.
ENDIF.
ENDLOOP.
CLEAR v_tabix.
ENDLOOP.
SORT itab_relat BY nrinvoic nrparcf nrre nrsd DESCENDING
vlavinc ASCENDING.
DELETE itab_relat WHERE dtbl IS initial.
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_relat.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_relat-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_relat INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDFORM.
FORM cabecalho.
DATA:
v_descricao(263),
v_dia(2) TYPE c,
v_mes(2) TYPE c,
v_ano(4) TYPE c,
v_diah(2) TYPE c,
v_mesh(2) TYPE c,
v_anoh(4) TYPE c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR046
...
WHERE zterm EQ itab_zycet002-zterm.
ENDIF.
SORT itab_zycet055 BY nrinvoic gsberf ASCENDING.
SORT itab_zycbt053 BY nrinvoic nrparcf gsber ASCENDING.
LOOP AT itab_zycet055.
READ TABLE itab_zycet001 WITH KEY
nrseq = itab_zycet055-nrinvoic.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
* >> Início da inclusão: FORM SALDO_A_CONFIRMAR
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycet001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CONCATENATE itab_zycet001-bukrs itab_zycet001-werks
INTO itab_dados_geral-bukrswerks.
MOVE: itab_zycet001-bukrs TO itab_dados_geral-bukrs ,
itab_zycet001-gsber TO itab_dados_geral-gsber ,
itab_zycet001-werks TO itab_dados_geral-werks ,
itab_zycet001-dtprev TO itab_dados_geral-dtprev .
READ TABLE itab_zycet002 WITH KEY
nrseq = itab_zycet055-nrinvoic.
IF sy-subrc NE 0.
CLEAR: itab_dados_geral.
...
...
WHERE zterm EQ itab_zycet002-zterm.
ENDIF.
SORT itab_zycbt017 BY nrinvoic nrparcf gsberf ASCENDING.
SORT itab_zycbt005 BY nrinvoic nrparcf gsberf ASCENDING.
LOOP AT itab_zycbt017.
READ TABLE itab_zycet001 WITH KEY
nrseq = itab_zycbt017-nrinvoic.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
* >> Início da inclusão: FORM SALDO_CONFIRMADO
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycet001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CONCATENATE itab_zycet001-bukrs itab_zycet001-werks
INTO itab_dados_geral-bukrswerks.
READ TABLE itab_zycet002 WITH KEY
nrseq = itab_zycbt017-nrinvoic.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
MOVE: itab_zycet002-vkorg TO itab_dados_geral-vkorg,
itab_zycet002-vtweg TO itab_dados_geral-vtweg,
itab_zycet002-spara TO itab_dados_geral-spara.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR047
...
DATA: v_credext LIKE /pws/zycbt006-dtpagext.
SORT itab_zycbt001 BY nrcontr bukrs.
SORT itab_zycbt002 BY nrseqc.
SORT itab_zycbt005 BY nrseqc.
SORT itab_zycbt006 BY nrseqc.
SORT itab_zycbt017 BY nrinvoic nrparcf.
SORT itab_zycbt044 BY nrseqc nrinvoic nrparcf nrparc dtincl.
SORT itab_zycbt043 BY nrpagto.
SORT itab_zycbt004 BY nrseqc.
LOOP AT itab_zycbt001.
* >> Início da inclusão: FORM IMPRIME_RELATORIO
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR: itab_zycbt005, itab_zycbt017, itab_lfa1, itab_kna1cli.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycbt001-corret.
READ TABLE itab_zycbt005
WITH KEY nrseqc = itab_zycbt001-nrseqc.
READ TABLE itab_kna1cli WITH KEY kunnr = itab_zycbt001-kunnr.
IF sy-subrc = 0.
READ TABLE itab_zycbt017
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
...
...
/pws/zycbt007-waersb
v_jurapgme
itab_zycbt001-dtcontr
CHANGING v_jurapgbrl.
ENDIF.
v_tvlvinc = itab_zycbt001-vlme - itab_zycbt001-slvinc.
ENDLOOP.
LOOP AT i_result.
CLEAR i_final.
MOVE-CORRESPONDING i_result TO i_final.
* >> Início da inclusão: FORM F_MONTA_FINAL
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD i_final-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc EQ 0.
* << Fim da inclusão
APPEND i_final.
* >> Início da inclusão: FORM F_MONTA_FINAL
ELSE.
CLEAR i_final.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM monta_rel_alv.
CALL FUNCTION '/PWS/ZYGL_GERA_RELATORIO_ALV'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR048
...
CLEAR itab_excel.
FORMAT COLOR OFF.
WRITE: 252'|'.
ULINE AT /01(252).
CLEAR: v_totfob, v_totfrete, v_totseguro, v_totcomis,
v_total.
CLEAR: v_totfob, v_totfrete, v_totseguro, v_totcomis,
v_total, v_flag2.
ENDFORM.
FORM move_dados.
* >> Início da inclusão: FORM MOVE_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycet001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR itab_relat.
itab_relat-dtemb = itab_zycet001-dtemb.
itab_relat-dtprev = itab_zycet001-dtprev.
itab_relat-nrseq = itab_zycet001-nrseq.
itab_relat-bukrs = itab_zycet001-bukrs.
itab_relat-werks = itab_zycet001-werks.
itab_relat-gsber = itab_zycet001-gsber.
itab_relat-dtvencto = itab_zycet001-dtvencto.
READ TABLE itab_zycet002 WITH KEY nrseq =
itab_zycet001-nrseq BINARY SEARCH.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR057
...
ENDLOOP.
ENDFORM.
FORM processar_dados.
SORT itab_zycbt001 BY nrseqc.
SORT itab_zycbt005 BY nrseqc nrinvoic.
SORT itab_zycbt017 BY nrinvoic nrparcf gsberf refbco .
SORT itab_d_export_aux BY nrseq.
SORT itab_zycet003 BY nrseq nrre.
SORT itab_zycet047 BY nrseq nrbl.
LOOP AT itab_zycbt001.
* >> Início da inclusão: FORM PROCESSAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR itab_lfa1.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycbt001-bconegoc.
LOOP AT itab_zycbt005 WHERE nrseqc = itab_zycbt001-nrseqc.
IF NOT p_refbco IS INITIAL.
LOOP AT itab_zycbt017 WHERE refbco NE ''
AND nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf.
PERFORM move_dados.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR058
...
FOR ALL ENTRIES IN itab_zycet002
WHERE docnum = itab_zycet002-docnum.
SELECT vbeln bstnk FROM vbak
INTO CORRESPONDING FIELDS OF TABLE itab_vbak
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln = itab_zycet002-vbeln_va.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt017.
* >> Início da inclusão: FORM SELECIONAR_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt017-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
READ TABLE itab_zycet001 WITH KEY
nrseq = itab_zycbt017-nrinvoic. "#EC *
IF sy-subrc EQ 0.
CLEAR: v_somat, v_vlaliq.
LOOP AT itab_zycbt006 WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf
AND waers = itab_zycbt017-waers.
v_somat = v_somat + itab_zycbt006-vlme.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR063
...
SELECT * FROM lfa1
INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycbt001
WHERE lifnr EQ itab_zycbt001-bcocred.
ENDIF.
ENDFORM.
FORM move_dados.
CLEAR itab_dados.
FREE itab_dados.
LOOP AT itab_zycbt001.
* >> Início da inclusão: FORM MOVE_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
LOOP AT itab_zycbt002 WHERE nrseqc = itab_zycbt001-nrseqc.
itab_dados-nrcontr = itab_zycbt001-nrcontr.
itab_dados-nrseqc = itab_zycbt001-nrseqc.
itab_dados-tpcontr = itab_zycbt001-tpcontr.
itab_dados-dtcontr = itab_zycbt001-dtcontr.
itab_dados-moeda = itab_zycbt001-waers.
itab_dados-vlme = itab_zycbt001-vlme.
itab_dados-bcocred = itab_zycbt001-bcocred.
itab_dados-bukrs = itab_zycbt001-bukrs.
itab_dados-tpdesp = itab_zycbt002-tpparc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR078
...
/pws/zycbt005~nrinvoic IN s_nrinv AND
/pws/zycbt001~nrseqc IN s_nrseq AND
/pws/zycbt050~dtdevol IN s_dtdev AND
/pws/zycbt050~dtcanc IN s_dtcan AND
/pws/zycbt050~banco IN s_banco
ORDER BY /pws/zycbt005~bukrs
/pws/zycbt005~waers
/pws/zycbt005~nrinvoic
/pws/zycbt005~nrparcf
/pws/zycbt005~nrseqc.
* >> Início da exclusão: FORM SELECIONA_DADOS
IF sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_dados.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_dados-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc EQ 0.
DELETE itab_dados INDEX sy-tabix.
ENDIF.
ENDLOOP.
IF itab_dados[] IS INITIAL.
* << Fim da inclusão
MESSAGE i222.
LEAVE LIST-PROCESSING.
ENDIF.
DELETE itab_dados WHERE NOT dtreceb IN s_dtrec.
DELETE itab_dados WHERE NOT dtfech IN s_dtfec.
DELETE itab_dados WHERE NOT dtapr IN s_dtapr.
DELETE itab_dados WHERE NOT dtpdd IN s_dtpdd.
DESCRIBE TABLE itab_dados LINES v_linhas.
IF v_linhas EQ 0.
MESSAGE i222.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR098
...
itab_zycbt001,
itab_zycbt204,
itab_lfa1.
REFRESH: itab_dados,
itab_zycbt001,
itab_zycbt204,
itab_lfa1.
ENDFORM.
FORM move_dados.
LOOP AT itab_zycbt001.
* >> Início da inclusão: FORM MOVE_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt001-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
LOOP AT itab_zycbt204 WHERE nrseqc = itab_zycbt001-nrseqc.
CLEAR itab_lfa1.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycbt001-bconegoc.
CLEAR itab_kna1.
READ TABLE itab_kna1 WITH KEY kunnr = itab_zycbt001-kunnr.
itab_dados-cliente = itab_kna1-name1.
itab_dados-nrseqc = itab_zycbt001-nrseqc.
itab_dados-bukrs = itab_zycbt001-bukrs.
itab_dados-dtdevol = itab_zycbt204-dtdevol.
itab_dados-nrcontr = itab_zycbt001-nrcontr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR109
...
f19(70) TYPE c ,
f20(70) TYPE c ,
f21(70) TYPE c ,
f22(70) TYPE c ,
f23(70) TYPE c ,
f24(70) TYPE c ,
f25(70) TYPE c ,
f26(70) TYPE c ,
f27(70) TYPE c ,
END OF itab_excel.
* >> Início da inclusão:
DATA v_tabix LIKE sy-tabix.
DATA: BEGIN OF t_t001 OCCURS 20,
bukrs LIKE t001-bukrs,
butxt LIKE t001-butxt,
END OF t_t001.
* << Fim da inclusão
FREE itab_excel.
DATA: BEGIN OF rs_result,
divisao LIKE /pws/zycbt112-gsber,
tppagto(23) TYPE c,
empresa(35) TYPE c,
tpmat LIKE /pws/zycbt112-codint,
refint LIKE /pws/zycbt112-nrseq,
desc(30) TYPE c,
tbn LIKE /pws/zycbt112-tbn,
dtfecham LIKE /pws/zycbt112-dtvencto,
...
...
ELSE.
SORT itab_dados BY dtvencto ASCENDING.
READ TABLE itab_dados INDEX 1.
WRITE itab_dados-dtvencto TO v_datai.
SORT itab_dados BY dtvencto DESCENDING.
READ TABLE itab_dados INDEX 1.
WRITE itab_dados-dtvencto TO v_dataf.
CONCATENATE /pws/zycbt021-txtdesc '-' v_datai text-063 v_dataf
INTO v_titulo SEPARATED BY space.
ENDIF.
* >> Início da inclusão:
PERFORM authority_check.
* << Fim da inclusão
IF itab_dados[] IS INITIAL.
MESSAGE i268.
STOP.
ELSE.
IF NOT p_alv IS INITIAL.
PERFORM imprime_relatorio.
ELSE.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM f_fieldcat_fill.
PERFORM subtotal.
...
...
gsber = itab_zycbt119-gsber.
v_num_dias = v_num_dias + itab_zycmt014-nrdias.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM verifica_data USING itab_zycbt119-dtvencto.
ELSE.
v_dtpror = itab_zycbt119-dtvencto + v_num_dias.
PERFORM verifica_data USING v_dtpror.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM authority_check .
CHECK NOT itab_dados[] IS INITIAL.
SELECT bukrs butxt
INTO TABLE t_t001
FROM t001
FOR ALL ENTRIES IN itab_dados
WHERE butxt EQ itab_dados-empresa(25).
LOOP AT itab_dados.
ADD 1 TO v_tabix.
READ TABLE t_t001 WITH KEY butxt = itab_dados-empresa.
CHECK sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD t_t001-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
ENDIF.
ENDLOOP.
CLEAR: t_t001, v_tabix.
REFRESH t_t001.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR111
...
DATA: BEGIN OF itab_zycmt023 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt023.
DATA: END OF itab_zycmt023.
DATA: BEGIN OF itab_bkpf OCCURS 0,
budat LIKE bkpf-budat,
belnr LIKE bkpf-belnr,
gjahr LIKE bkpf-gjahr,
bukrs LIKE bkpf-bukrs,
kursf LIKE bkpf-kursf,
END OF itab_bkpf.
* >> Início da inclusão:
DATA v_tabix LIKE sy-tabix.
DATA: BEGIN OF t_t001 OCCURS 20,
bukrs LIKE t001-bukrs,
butxt LIKE t001-butxt,
END OF t_t001.
* << Fim da inclusão
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
msgv2 LIKE balm-msgv2,
...
...
INTO v_titulo SEPARATED BY space.
ELSE.
READ TABLE itab_dados INDEX 1.
WRITE itab_dados-dtpagto TO v_datai.
SORT i_result BY dtpagto DESCENDING.
READ TABLE itab_dados INDEX 1.
WRITE itab_dados-dtpagto TO v_dataf.
CONCATENATE /pws/zycbt021-txtdesc '-' v_datai text-047 v_dataf
INTO v_titulo SEPARATED BY space.
ENDIF.
* >> Início da inclusão:
PERFORM authority_check.
* << Fim da inclusão
IF itab_dados[] IS INITIAL.
MESSAGE i268.
STOP.
ELSE.
IF NOT p_alv IS INITIAL.
IF pantec EQ 'X' AND
pfatur EQ ' ' AND
financ EQ ' ' AND
desp EQ ' '.
PERFORM imprime_relatorio_pant.
...
...
WHERE nrcorresp = itab_zycbt119-nrseq
AND mdcorresp = 'IP'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM authority_check .
CHECK NOT itab_dados[] IS INITIAL.
SELECT bukrs butxt
INTO TABLE t_t001
FROM t001
FOR ALL ENTRIES IN itab_dados
WHERE butxt EQ itab_dados-empresa.
LOOP AT itab_dados.
ADD 1 TO v_tabix.
READ TABLE t_t001 WITH KEY butxt = itab_dados-empresa.
CHECK sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD t_t001-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
ENDIF.
ENDLOOP.
CLEAR: t_t001, v_tabix.
REFRESH t_t001.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR115
...
nrseq LIKE /pws/zycbt031-bcooper,
bcooper LIKE /pws/zycbt031-nrseq,
dtboleto LIKE /pws/zycbt031-dtboleto,
tipo LIKE /pws/zycbt031-tipo,
kursf LIKE /pws/zycbt031-kursf,
nrcontr LIKE /pws/zycbt048-nrcontr,
statuspg LIKE /pws/zycbt031-statuspg,
belnr_p LIKE /pws/zycbt031-belnr_p,
vlmi LIKE /pws/zycbt031-vlmi.
DATA: END OF t_boleto.
* >> Início da inclusão:
DATA: BEGIN OF t_t001 OCCURS 20,
bukrs LIKE t001-bukrs,
butxt LIKE t001-butxt,
END OF t_t001.
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt134 OCCURS 0,
nrseq LIKE /pws/zycbt134-nrseq,
dtlanc LIKE /pws/zycbt134-dtlanc,
END OF itab_zycbt134.
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_log OCCURS 0,
nrseq LIKE /pws/zycbt124-nrseq,
tppag LIKE /pws/zycbt031-tipo,
msgerro(40) TYPE c.
DATA: END OF itab_log.
...
...
MOVE sy-repid TO v_repid.
SELECT * UP TO 1 ROWS
FROM /pws/zycbt007
WHERE bukrs IN so_empr.
ENDSELECT.
PERFORM parametros.
IF NOT so_empr IS INITIAL.
PERFORM verifica_empresa.
ENDIF.
PERFORM seleciona_pagamento.
* >> Início da inclusão:
PERFORM authority_check.
* << Fim da inclusão
IF NOT itab_resultado[] IS INITIAL.
IF NOT p_alv IS INITIAL.
PERFORM imprime_relatorio.
ELSE.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM f_fieldcat_fill.
PERFORM f_monta_final.
PERFORM monta_rel_alv.
ENDIF.
ELSE.
...
...
AT 2(081) text-062 CENTERED,
text-062 TO itab_excel-f3.
APPEND itab_excel.
CLEAR itab_excel.
WRITE: 83 '|'.
ENDFORM.
FORM limpa_tabelas.
CLEAR: t_lfa1, t_kna1, t_zycbt064, t_boleto.
REFRESH: t_lfa1, t_kna1, t_zycbt064, t_boleto.
ENDFORM.
* >> Início da inclusão:
FORM authority_check .
CHECK NOT itab_resultado[] IS INITIAL.
SELECT bukrs butxt
INTO TABLE t_t001
FROM t001
FOR ALL ENTRIES IN itab_resultado
WHERE butxt EQ itab_resultado-empresa.
LOOP AT itab_resultado.
ADD 1 TO v_tabix.
READ TABLE t_t001 WITH KEY butxt = itab_resultado-empresa.
CHECK sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD t_t001-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_resultado INDEX v_tabix.
ENDIF.
ENDLOOP.
CLEAR: t_t001, v_tabix.
REFRESH t_t001.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR118
...
ENDIF.
SELECT lifnr name1 FROM lfa1 INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycbt121
WHERE lifnr EQ itab_zycbt121-benefic.
SELECT bukrs butxt FROM t001 INTO TABLE itab_t001
FOR ALL ENTRIES IN itab_zycbt121
WHERE bukrs EQ itab_zycbt121-bukrs.
ENDIF.
SORT itab_zycbt121 BY nrccred nrseq dtabert bcoemiss benefic.
LOOP AT itab_zycbt121.
* >> Início da inclusão: FORM SELECIONA_CARTA
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt121-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR: itab_lfa1, itab_t001, v_usd, v_slemb, v_vldesp.
IF itab_zycbt121-waers EQ /pws/zycbt007-waersa.
v_usd = itab_zycbt121-vlme.
ELSE.
CALL FUNCTION '/PWS/ZYGL_CALCULA_CASAS_DEC' "#EC *
EXPORTING
i_moeda = itab_zycbt121-waers
i_valor = itab_zycbt121-vlme
i_casa = v_casa
IMPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR119
...
into table itab_lfa1
for all entries in itab_zycbt121
where lifnr eq itab_zycbt121-bcoemiss.
select lifnr name1
from lfa1
appending table itab_lfa1
for all entries in itab_zycbt121
where lifnr eq itab_zycbt121-benefic.
sort itab_zycbt121 by nrseq nrccred dtabert bcoemiss benefic.
loop at itab_zycbt121.
* >> Início da inclusão: FORM SELECIONA_CARTA
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt121-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
clear itab_lfa1.
read table itab_lfa1 with key lifnr = itab_zycbt121-bcoemiss.
move: itab_lfa1-name1 to itab_resultado-descbcoemiss.
read table itab_lfa1 with key lifnr = itab_zycbt121-benefic.
move: itab_lfa1-name1 to itab_resultado-descbenefic.
write itab_zycbt121-nrseq to v_nrseq.
select * from /pws/zycbt118
into table itab_zycbt118 "#EC CI_NOFIELD
where nrref eq itab_zycbt121-nrseq
and not nrref is null
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR120
...
txtdesc LIKE /pws/zycbt015-txtdesc,
END OF itab_zycbt015,
BEGIN OF itab_t001 OCCURS 0,
bukrs LIKE t001-bukrs,
butxt LIKE t001-butxt,
END OF itab_t001,
BEGIN OF itab_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
END OF itab_lfa1.
* >> Início da inclusão:
DATA v_tabix LIKE sy-tabix.
DATA: BEGIN OF t_t001 OCCURS 20,
bukrs LIKE t001-bukrs,
butxt LIKE t001-butxt,
END OF t_t001.
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt118 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt118.
DATA: END OF itab_zycbt118.
DATA: BEGIN OF itab_zycbt031 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt031.
DATA: END OF itab_zycbt031.
DATA: BEGIN OF itab_zycbt113 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt113.
DATA: END OF itab_zycbt113.
DATA: BEGIN OF itab_zycmt014 OCCURS 0.
...
...
ENDWHILE.
ENDIF.
ENDIF.
WRITE itab_dados2-dtpagto TO v_datai.
SORT itab_dados2 BY dtpagto DESCENDING.
READ TABLE itab_dados2 INDEX 1.
WRITE itab_dados2-dtpagto TO v_dataf.
CONCATENATE /pws/zycbt021-txtdesc text-113 v_datai text-049 v_dataf
INTO v_titulo SEPARATED BY space.
ENDIF.
* >> Início da inclusão:
PERFORM authority_check.
* << Fim da inclusão
IF itab_dados[] IS INITIAL.
MESSAGE i268.
STOP.
ENDIF.
IF NOT p_alv IS INITIAL.
PERFORM imprime_relatorio.
ELSE.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM f_fieldcat_fill.
PERFORM subtotal.
...
...
p_lifnr.
READ TABLE itab_t001 WITH KEY bukrs = p_bukrs.
IF sy-subrc = 0.
itab_dados-empresa = itab_t001-butxt.
ENDIF.
READ TABLE itab_lfa1 WITH KEY lifnr = p_lifnr.
IF sy-subrc = 0.
itab_dados-lifnr = itab_lfa1-name1.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM authority_check .
CHECK NOT itab_dados[] IS INITIAL.
SELECT bukrs butxt
INTO TABLE t_t001
FROM t001
FOR ALL ENTRIES IN itab_dados
WHERE butxt EQ itab_dados-empresa.
LOOP AT itab_dados.
ADD 1 TO v_tabix.
READ TABLE t_t001 WITH KEY butxt = itab_dados-empresa.
CHECK sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD t_t001-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX v_tabix.
ENDIF.
ENDLOOP.
CLEAR: t_t001, v_tabix.
REFRESH t_t001.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR127
...
INTO TABLE itab_zycbt113
FOR ALL ENTRIES IN itab_zycbt112
WHERE nrseq = itab_zycbt112-nrseq
AND status NE 'E'.
SELECT lifnr name1 FROM lfa1 INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycbt112
WHERE lifnr EQ itab_zycbt112-lifnr
OR lifnr EQ itab_zycbt112-bcofinan.
ENDIF.
LOOP AT itab_zycbt112.
* >> Início da inclusão: FORM PROCESSAR_FINANC
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt112-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR /pws/zyglt009.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs = itab_zycbt112-bukrs.
LOOP AT itab_zycbt113 WHERE nrseq = itab_zycbt112-nrseq.
CLEAR: v_me, v_moeda, v_usd, v_ir_usd, itab_dados, v_fornec,
v_banco.
IF itab_zycbt113-dtpagto GT so_dtvn OR
itab_zycbt113-dtpagto EQ '00000000'.
IF itab_zycbt112-waers <> /pws/zycbt007-waersa.
v_me = itab_zycbt113-vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR130
...
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO v_type
WHERE codpadr = 'M' .
SORT itab_zycbt113 BY nrseq nrparc.
ELSE.
MESSAGE i268.
STOP.
ENDIF.
LOOP AT itab_zycbt112.
* >> Início da inclusão: FORM SELEC_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt112-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR itab_forn.
READ TABLE itab_forn WITH KEY lifnr = itab_zycbt112-lifnr.
if sy-subrc = 0.
itab_registro-name = itab_forn-name1.
endif.
clear itab_t001.
READ TABLE itab_t001 WITH KEY bukrs = itab_zycbt112-bukrs.
IF sy-subrc = 0.
itab_registro-empresa = itab_t001-butxt.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR138
...
itab_dados-waers TO i_result-waers,
itab_dados-vlccred TO i_result-vlccred,
itab_dados-vbeln_va TO i_result-vbeln_va,
itab_dados-embarque TO i_result-embarque,
itab_dados-dtlimemb TO i_result-dtlimemb,
itab_dados-slccred TO i_result-slccred,
itab_dados-v_utilizado TO i_result-v_utilizado,
itab_dados-canc_saldo TO i_result-canc_saldo,
itab_dados-v_discrep TO i_result-v_discrep,
itab_dados-v_emenda TO i_result-v_emenda.
* >> Início da inclusão: FORM F_MONTA_FINAL
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD i_result-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc EQ 0.
* << Fim da inclusão
APPEND i_result.
* >> Início da inclusão: FORM F_MONTA_FINAL
ENDIF.
* << Fim da inclusão
CLEAR i_result.
ENDLOOP.
ENDFORM.
FORM f4_for_variant.
DATA locl_variant LIKE disvariant.
CLEAR exit.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR139
...
MOVE itab_zycbt017-waers TO itab_dados-waers.
ELSE.
itab_dados-vlusd = itab_dados-vlavinc.
ENDIF.
MODIFY itab_dados INDEX v_tabix TRANSPORTING vlavinc waers vlusd.
ENDON.
ENDLOOP.
FREE: itab_zycbt209, itab_zycbt017, itab_zycbt045,
itab_zycbt006, itab_kna1.
CLEAR v_tabix.
* >> Início da inclusão: FORM MOVE_DADOS
LOOP AT itab_dados.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_dados-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_dados INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDFORM.
FORM processa_alv USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield."#EC CALLED
DATA v_nrparcf LIKE /pws/zycbt017-nrparcf.
CASE ucomm.
WHEN 'BEAN'.
READ TABLE itab_dados INDEX selfield-tabindex.
REPLACE '1-' WITH ' ' INTO selfield-sel_tab_field.
CONDENSE selfield-sel_tab_field NO-GAPS.
feld = selfield-sel_tab_field.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR140
...
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
WHERE bukrs IN s_bukrs AND
gsberf IN s_gsberf AND
kunag IN s_kunag AND
dtbl IN s_dtbl AND
nrinvoic IN s_nremb AND
waers IN s_waers AND
dtvencto IN s_dtvcto.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_zycbt017.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt017-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_zycbt017 INDEX sy-tabix.
ENDIF.
ENDLOOP.
CHECK NOT itab_zycbt017[] IS INITIAL.
* << Fim da inclusão
SELECT nrinvoic nrparcf dtpror
FROM /pws/zycbt045
INTO TABLE itab_zycbt045
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
nrparcf = itab_zycbt017-nrparcf AND
gsberf = itab_zycbt017-gsberf .
SORT itab_zycbt045 BY nrinvoic nrparcf dtpror DESCENDING.
DELETE ADJACENT DUPLICATES FROM itab_zycbt045 COMPARING nrinvoic
nrparcf .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR358
...
COLLECT itab_zycbt209_soma.
ENDLOOP.
ENDFORM.
FORM mover_dados.
DATA: v_controla TYPE c,
v_reg TYPE i,
v_cont_reg(1) TYPE n.
SORT: itab_zycbt017, itab_zycbt209_soma, itab_zycbt006_soma,
itab_zycbt213, itab_zycet001, itab_kna1.
LOOP AT itab_zycbt017.
* >> Início da inclusão: FORM MOVER_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt017-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
CLEAR: itab_dados, v_it209, v_it006, v_subrc006, v_subrc.
MOVE: itab_zycbt017-bukrs TO itab_dados-bukrs,
itab_zycbt017-werks TO itab_dados-werks,
itab_zycbt017-kunag TO itab_dados-kunag,
itab_zycbt017-nrinvoic TO itab_dados-nrinvoic,
itab_zycbt017-waers TO itab_dados-waers,
itab_zycbt017-dtbl TO itab_dados-dtbl,
itab_zycbt017-zterm TO itab_dados-zterm,
itab_zycbt017-bconegoc TO itab_dados-bconegoc,
itab_zycbt017-txtint TO itab_dados-txtint,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR359
...
ENDFORM.
FORM seleciona_dados.
SELECT *
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
WHERE nrinvoic IN so_nrinv AND
gsberf IN so_gsber AND
bukrs IN so_bukrs AND
dtbl IN so_dtbl .
IF NOT itab_zycbt017[] IS INITIAL.
* >> Início da inclusão: FORM SELECIONA_DADOS
LOOP AT itab_zycbt017.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_zycbt017-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_zycbt017 INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
SORT itab_zycbt017 BY nrinvoic.
SELECT *
FROM /pws/zycet001
INTO TABLE itab_zycet001
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrseq EQ itab_zycbt017-nrinvoic(10) AND
nrsd IN so_nrsd.
SELECT *
FROM /pws/zycet003
INTO TABLE itab_zycet003
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR106
...
IF NOT itab_zycit006[] IS INITIAL.
SELECT ebeln nrseq_pgfat
FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit006
WHERE nrseq_pgfat = itab_zycit006-nrseq_pgfat. "#EC CI_NOFIELD
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CARREGA_TABELAS
LOOP AT itab_imprime.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD itab_imprime-bukrs
ID 'ACTVT'
FIELD '03'.
IF sy-subrc NE 0.
DELETE itab_imprime INDEX sy-tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados.
LOOP AT itab_imprime.
ADD 1 TO v_index.
CLEAR itab_imprime-lifnr.
IF itab_imprime-mdcorresp EQ 'IF'.
READ TABLE itab_zycbt112 WITH KEY nrseq = itab_imprime-nrcorresp.
IF sy-subrc = 0.
itab_imprime-descr = text-060.
itab_imprime-nrseqns = itab_zycbt112-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR114
...
spras EQ sy-langu.
ENDIF.
IF NOT itab_t119[] IS INITIAL.
SELECT nrcorrep rof tpdoc fsta dtrof
FROM /pws/zycbt115
INTO TABLE itab_zycbt115
FOR ALL ENTRIES IN itab_t119
WHERE nrcorrep EQ itab_t119-nrseq.
ENDIF.
LOOP AT itab_t119 INTO wa_t119.
* >> Início da inclusão: FORM SELECIONA_DADOS
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS'
FIELD wa_t119-bukrs
ID 'ACTVT'
FIELD '03'.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = wa_t119-lifnr INTO wa_lfa1.
IF sy-subrc EQ 0.
MOVE wa_lfa1-name1 TO wa_relat-nome_forn.
ENDIF.
READ TABLE itab_zycit006 WITH KEY nrseq = wa_t119-nrpagto
INTO wa_zycit006.
IF sy-subrc = 0.
READ TABLE itab_zycit093 WITH KEY nrseqce = wa_zycit006-nrseqce
INTO wa_zycit093.
IF sy-subrc = 0.
...