CE PLUS - Nota 011118
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Comissão
Data/Hora da Publicação: 26/04/2011 00:00:00
Data/Hora Última Alteração: 26/04/2011 11:25:14
Descrição da Nota: COMISSÃO CONTA GRÁFICA
Sintoma
O sistema não efetuava o clearing na conta do fornecedor quando a parametrização da baixa da
comissão estava marcada para efetuar o lançamento na Conta de Comissões a Pagar
Solução
Os lançamentos de clearing do fornecedor na baixa da comissão foram ajustados para utilizar uma
função que contemple lançamentos em contas diferentes
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11118 Data: 26/04/2011 Hora: 09:31:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11118
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00068
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
01111 - 00001 - 6.0 - 00023 - ESTORNO DE COMISSÃO DE AGENTE CONTA GRÁFICA
03703 - 00002 - 7.0 - 00001 - COMPLEMENTO DO BOLETO - ATUALIZACAO CAMPO VLMI
05724 - 00003 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL
06887 - 00004 - 7.0 - 00006 - LIQUIDAÇÃO - ESTORNO COMISSÃO DE AGENTE
07606 - 00005 - 7.0 - 00007 - COMPLEMENTO DO BOLETO - ANO FISCAL
07801 - 00006 - 7.0 - 00008 - LIQUIDAÇÃO - MENSAGEM FALTA DATA DE PRORROGAÇÃO INCORRETA
07882 - 00007 - 7.0 - 00008 - LIQUIDAÇÃO - PONTO DE EXIT LIQ031 - EVITA PROVISÃO DE JUROS
08164 - 00008 - 7.0 - 00008 - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURIT
08195 - 00009 - 7.0 - 00008 - VALORES MANTIDOS NO EXTERIOR - BAIXA DE COMISSÃO DE AGENTE CG NA R
08239 - 00010 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE
08907 - 00011 - 7.0 - 00010 - PROCESSAR BOLETO - COMISSÃO DE AGENTE LIQUIDADA FORA DO PW.CE
09148 - 00012 - 8.0 - 00001 - CAPTAÇÃO - CAMPO MONTANTE MI OCULTO NA TELA(DMBTR) - ERRO F-02/F-3
09200 - 00013 - 8.0 - 00001 - ROTINA MENSAL EXPORTAÇÃO - DEDUZ JUROS, DATA PAGAMENTO EXTERIOR-LI
10135 - 00014 - 8.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO-MENSAGEM SALDO INCORRETA
10204 - 00015 - 8.0 - 00003 - LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
10396 - 00016 - 8.0 - 00004 - LIQUIDAÇÃO-COMISS DE AGENTE-F-30(IDA,ZFBDT)/F-22(ESTORNO,PERDE OK_
10852 - 00017 - 8.0 - 00006 - VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR CG
10889 - 00018 - 8.0 - 00006 - VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAVO
----------------------------------------------------------------------------------------------------
Texto Rápido:
COMISSÃO CONTA GRÁFICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMISSÃO CONTA GRÁFICA - VALORES MANTIDOS NO EXTERIOR
LIQUIDAÇÃO - PROCESSAR BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_A
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR102
REPS /PWS/ZYGLR002
REPT /PWS/SAPMZYCB110
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_A
...
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING: 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
IF t_dados-newbs EQ '21'.
v_chv = 'D'.
ELSEIF t_dados-newbs EQ '31'.
v_chv = 'C'.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-DMBTR'
chave = v_chv.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A
IF NOT v_dmbtr IS INITIAL AND sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A
IF NOT t_dados-dmbtr IS INITIAL AND sy-subrc NE 0.
* << Fim da inclusão
PERFORM bdc_field USING:
'BSEG-DMBTR' v_dmbtr.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'
chave = v_chv.
IF NOT t_dados-d_gsber IS INITIAL
AND sy-subrc NE 0.
PERFORM bdc_field USING:
'BSEG-GSBER' t_dados-d_gsber.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
and codmod = 'E'
and liquid = 'X'.
if sy-tcode ne c_transacao_c.
perform estorna_diferenca_juros.
endif.
perform busca_liquidacoes.
perform provisiona_diferenca_juros.
endif.
endif.
endif.
* >> Início da exclusão: FORM GRAVA_TABELAS
if itab_zycbt226 is initial.
select *
from /pws/zycbt006
into corresponding fields of table itab_zycbt006_ca
where nrinvoic = itab_zycbt006-nrinvoic. "#EC CI_NOFIRST
describe table itab_zycbt006_ca lines v_linha.
if v_linha < 2.
* << Fim da exclusão
if wa_zycbt007-liq_com_cg ne 'RP'.
perform estorna_comissao.
* >> Início da exclusão: FORM GRAVA_TABELAS
endif.
endif.
* << Fim da exclusão
endif.
perform atualiza_tabelas_transp2.
if wa_zycbt007-liq_com_cg ne 'RP'.
perform liquida_comissao_agente.
...
...
case /pws/zycbt001-fdtlanc.
when 'D'.
v_dtaux = /pws/zycbt001-dtdesem.
when 'O'.
v_dtaux = /pws/zycbt001-dtcontr.
when 'C' or ' '.
v_dtaux = /pws/zycbt001-dtcred.
endcase.
if v_dtpagto lt v_dtaux.
message i011(pc) with text-026.
* >> Início da inclusão: FORM VERIFICA_DTPAGTO
IF /pws/zycbe001-tpcontr(1) = 'C' AND
wa_zycbt007-liq_cp EQ 'X'.
v_dtpagto = '00000000'.
ELSE.
* << Fim da inclusão
v_dtpagto = sy-datum.
* >> Início da inclusão: FORM VERIFICA_DTPAGTO
ENDIF.
* << Fim da inclusão
perform seleciona_dados.
call screen '0100'.
endif.
if v_dtpagto > /pws/zycbt001-dtliquid.
if /pws/zycbe001-tpcontr(1) = 'S' or
/pws/zycbe001-tpcontr(1) = 'P'.
...
...
if sy-tabix = 1.
v_vlme = v_vlme + itab_zycet013-vlme .
v_belnr_cg = itab_zycet013-belnr.
else.
if itab_zycet013-belnr = v_belnr_cg .
v_vlme = v_vlme + itab_zycet013-vlme .
endif.
endif.
endloop.
read table itab_zycet013 index 1.
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
CHECK sy-subrc EQ 0.
* << Fim da inclusão
if not itab_zycet013-belnr is initial.
move: itab_zycet013-nrseq to itab_selreg-nrchave,
itab_zycbt006-nrseqc to itab_selreg-docto,
v_vlme to itab_selreg-vlme,
itab_zycet013-lifnr to itab_selreg-lifnr,
/pws/zycbt037-codpad to itab_selreg-codp.
append itab_selreg.
if wa_zycbt007-liq_trans eq 'R'.
perform liquida_comis_trans.
else.
...
...
and gsberf = itab_zycbt005-gsberf.
endif.
endform.
form local_negocio.
clear wa_t001w.
select single * from t001w into wa_t001w
where werks = /pws/zycbe005-werks.
endform.
form executa_clearing_agente.
perform clear_date_batch.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
clear itab_zycbt036.
refresh itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR: itab_zycbt036, itab_partidas.
REFRESH: itab_zycbt036, itab_partidas.
* << Fim da inclusão
concatenate itab_selreg-nrchave
itab_selreg-lifnr
into v_cpochv.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT006'.
itab_zycbe033-cpochv = v_cpochv.
perform verify_null_field using v_dtpagto
'DTPAGTO'
text-003.
itab_zycbe033-budat = v_dtpagto.
...
...
'WAERS'
text-049.
itab_zycbe033-waers = /pws/zycbt017-waers.
if itab_zycbt006-ftxt is initial.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
else.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
endif.
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if wa_zycbt007-comis = 'A' or wa_zycbt007-comis = ' '.
itab_zycbe033-agkon = itab_selreg-lifnr.
itab_zycbe033-agkoa = 'K'.
else.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
endif.
* << Fim da exclusão
if wa_zycbt007-liq_trans eq 'R'.
itab_zycbe033-d_newko = itab_zycbt012-saknr2.
itab_zycbe033-newbs = '50'.
itab_zycbe033-agkon = itab_selreg-lifnr.
itab_zycbe033-agkoa = 'K'.
itab_zycbe033-wrbtr = v_valorc.
itab_zycbe033-belnr = itab_zycet010-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
...
...
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet010-belnr
and gjahr = v_year.
endif.
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbt006-v_status = 'E'.
itab_zycbe033-wrbtr = itab_aux-valor.
itab_zycbe033-newbs = '31'.
itab_zycbe033-d_newko = itab_selreg-lifnr.
IF wa_zycbt007-comis = 'A' OR wa_zycbt007-comis = ' '.
itab_zycbe033-agkon = itab_selreg-lifnr.
itab_zycbe033-agkoa = 'K'.
ELSE.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
ENDIF.
ENDIF.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt006-v_status ne 'E'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT006'.
itab_zycbt036-cpochv = v_cpochv.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = '/PWS/ZYCBT006'.
itab_partidas-cpochv = v_cpochv.
itab_partidas-agums = space.
itab_partidas-bukrs = itab_zycbt006-bukrs.
itab_partidas-agkon = itab_selreg-lifnr.
itab_partidas-agkoa = 'K'.
itab_partidas-v_sinal = '+'.
* << Fim da inclusão
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-belnr = itab_zycet010-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-belnr = itab_zycet010-belnr.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet010-belnr
and gjahr = v_year.
else.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-belnr = itab_zycet013-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-belnr = itab_zycet013-belnr.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_zycbt006-bukrs
v_date = itab_zycet013-dtlanc
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet013-belnr
and gjahr = v_year.
endif.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-dtdocto = bkpf-budat.
APPEND itab_partidas.
* << Fim da inclusão
endif.
if wa_zycbt007-liq_trans ne 'R'.
loop at itab_zycbt032a where tpmsg = 'S'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbt006-v_status = 'E'.
* << Fim da inclusão
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT006'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt032a-belnr.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
ELSE.
CLEAR itab_partidas.
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = '/PWS/ZYCBT006'.
itab_partidas-cpochv = v_cpochv.
itab_partidas-belnr = itab_zycbt032a-belnr.
IF wa_zycbt007-comis = 'A' OR wa_zycbt007-comis = ' '.
itab_partidas-agkon = itab_selreg-lifnr.
itab_partidas-agkoa = 'K'.
ELSE.
itab_partidas-agkoa = 'S'.
itab_partidas-agkon = itab_zycbt012a-saknr1.
ENDIF.
itab_partidas-agums = space.
itab_partidas-v_sinal = '+'.
ENDIF.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_zycbt006-bukrs
v_date = itab_zycbt032a-budat
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycbt032a-belnr
and gjahr = v_year.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbt006-v_status = 'E'.
* << Fim da inclusão
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
ELSE.
itab_partidas-dtdocto = bkpf-budat.
APPEND itab_partidas.
ENDIF.
* << Fim da inclusão
endloop.
endif.
if itab_zycbt034 is initial.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if wa_zycbt007-liq_trans eq 'R'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF wa_zycbt007-liq_trans EQ 'R' OR
itab_zycbt006-v_status = 'E'.
* << Fim da inclusão
call function '/PWS/ZYCB_TRANSACAO_F_30_A'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
else.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
* << Fim da inclusão
exporting
v_modo = v_modo_bi
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
v_vinc_tot = 'X'
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
t_zycbt036 = itab_zycbt036
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
t_partidas = itab_partidas
* << Fim da inclusão
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'F-30'
tabela = '/PWS/ZYCBT006'
cpochv = v_cpochv
tpmsg = 'S'.
...
...
else.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
endif.
endif.
endform.
form estorna_comissao.
loop at itab_zycbt006 where v_status eq 'E'
and not vlcomis is initial.
* >> Início da inclusão: FORM ESTORNA_COMISSAO
READ TABLE itab_zycbt226 into wa_zycbt226
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
CHECK sy-subrc NE 0.
SELECT *
FROM /pws/zycbt006
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt006_ca
WHERE nrinvoic = itab_zycbt006-nrinvoic.
DESCRIBE TABLE itab_zycbt006_ca LINES v_linha.
CHECK v_linha < 2.
* << Fim da inclusão
clear: itab_selreg,
itab_zycet010,
itab_zycet013.
refresh: itab_zycet010,
itab_zycet013.
select single * from /pws/zycbt017
where nrinvoic eq itab_zycbt006-nrinvoic
and nrparcf eq itab_zycbt006-nrparcf.
select single * from /pws/zycbt037
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
( /pws/zycbe001-tpcontr(1) = 'P' or
/pws/zycbe001-tpcontr(1) = 'S' ).
screen-invisible = '0'.
screen-input = v_status_s.
endif.
when '/PWS/ZYCBE006-DTPAGEXT' or 'V_DTPAGEXT'.
if ( /pws/zycbe001-tpcontr(1) = 'P' or
/pws/zycbe001-tpcontr(1) = 'S' ) and
not vg_flag is initial.
screen-input = '0'.
* >> Início da inclusão: FORM OCULTA_DEDUZ_JUROS
elseif ( /pws/zycbe001-tpcontr(1) = 'C' and
wa_zycbt007-liq_cp eq 'X' and
sy-tcode = '/PWS/ZYCB004_A').
screen-input = '0'.
* << Fim da inclusão
elseif vg_flag is initial.
screen-input = v_status_s.
endif.
endcase.
modify screen.
endloop.
endform.
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: wa_zycbt005 type /pws/zycbt005,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
endif.
else.
wa_zycbe033-wrbtr = itab_aux-valor.
endif.
else.
wa_zycbe033-wrbtr = itab_aux-valor.
endif.
endform.
form executa_clearing_agente.
perform clear_date_batch.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
clear itab_zycbt036.
refresh itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
clear: itab_zycbt036, itab_partidas, wa_zycbe033.
refresh: itab_zycbt036, itab_partidas.
data: wa_partidas type line of t_t_zycbe033.
* << Fim da inclusão
concatenate itab_selreg-nrchave
itab_selreg-lifnr
into v_cpochv.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
wa_zycbe033-cpochv = v_cpochv.
perform verify_null_field using v_dtpagto
'DTPAGTO'
text-069.
wa_zycbe033-budat = v_dtpagto.
...
...
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
text-006.
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
text-010.
wa_zycbe033-waers = itab_zycbt017_cg-waers.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if wa_zycbt007-comis = 'A' or wa_zycbt007-comis = ' '.
wa_zycbe033-agkon = itab_selreg-lifnr.
wa_zycbe033-agkoa = 'K'.
else.
wa_zycbe033-agkoa = 'S'.
wa_zycbe033-agkon = itab_zycbt012a-saknr1.
endif.
* << Fim da exclusão
if wa_zycbt007-liq_trans eq 'R'.
wa_zycbe033-d_newko = itab_zycbt012-saknr2.
wa_zycbe033-newbs = '50'.
wa_zycbe033-agkon = itab_selreg-lifnr.
wa_zycbe033-agkoa = 'K'.
wa_zycbe033-wrbtr = v_valorc.
wa_zycbe033-belnr = itab_zycet010-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
...
...
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet010-belnr
and gjahr = v_year.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
endif.
if <fs_op>-operacao = 'E'.
wa_zycbe033-wrbtr = itab_aux-valor.
wa_zycbe033-newbs = '31'.
wa_zycbe033-d_newko = itab_selreg-lifnr.
if wa_zycbt007-comis = 'A' or wa_zycbt007-comis = ' '.
wa_zycbe033-agkon = itab_selreg-lifnr.
wa_zycbe033-agkoa = 'K'.
else.
wa_zycbe033-agkoa = 'S'.
wa_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
endif.
* << Fim da inclusão
append wa_zycbe033 to itab_zycbe033.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-status ne 'E'.
wa_zycbt036-tcode = 'F-30'.
wa_zycbt036-tabela = '/PWS/ZYCBT226'.
wa_zycbt036-cpochv = v_cpochv.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-operacao is initial.
wa_partidas-tcode = 'F-30'.
wa_partidas-tabela = '/PWS/ZYCBT226'.
wa_partidas-cpochv = v_cpochv.
wa_partidas-agums = space.
wa_partidas-bukrs = <fs_op>-bukrs.
wa_partidas-agkon = itab_selreg-lifnr.
wa_partidas-agkoa = 'K'.
wa_partidas-v_sinal = '+'.
* << Fim da inclusão
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbt036-belnr = itab_zycet010-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_partidas-belnr = itab_zycet010-belnr.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet010-belnr
and gjahr = v_year.
else.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbt036-belnr = itab_zycet013-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_partidas-belnr = itab_zycet013-belnr.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = itab_zycet013-dtlanc
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = <fs_op>-bukrs
and belnr = itab_zycet013-belnr
and gjahr = v_year.
endif.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbt036-dtdocto = bkpf-budat.
append wa_zycbt036 to itab_zycbt036 .
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_partidas-dtdocto = bkpf-budat.
append wa_partidas to itab_partidas.
clear wa_partidas.
* << Fim da inclusão
endif.
if wa_zycbt007-liq_trans ne 'R'.
loop at itab_zycbt032a where tpmsg = 'S'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-operacao = 'E'.
* << Fim da inclusão
wa_zycbt036-tcode = 'F-30'.
wa_zycbt036-tabela = '/PWS/ZYCBT226'.
wa_zycbt036-cpochv = v_cpochv.
wa_zycbt036-belnr = itab_zycbt032a-belnr.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
elseif <fs_op>-operacao is initial.
clear wa_partidas.
wa_partidas-tcode = 'F-30'.
wa_partidas-tabela = '/PWS/ZYCBT226'.
wa_partidas-cpochv = v_cpochv.
wa_partidas-belnr = itab_zycbt032a-belnr.
if wa_zycbt007-comis = 'A' or wa_zycbt007-comis = ' '.
wa_partidas-agkon = itab_selreg-lifnr.
wa_partidas-agkoa = 'K'.
else.
wa_partidas-agkoa = 'S'.
wa_partidas-agkon = itab_zycbt012a-saknr1.
endif.
wa_partidas-agums = space.
wa_partidas-v_sinal = '+'.
endif.
* << Fim da inclusão
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = itab_zycbt032a-budat
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = <fs_op>-bukrs
and belnr = itab_zycbt032a-belnr
and gjahr = v_year.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-operacao eq 'E'.
* << Fim da inclusão
wa_zycbt036-dtdocto = bkpf-budat.
append wa_zycbt036 to itab_zycbt036.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
elseif <fs_op>-operacao is initial.
wa_partidas-dtdocto = bkpf-budat.
append wa_partidas to itab_partidas.
endif.
* << Fim da inclusão
endloop.
endif.
if itab_zycbt034 is initial.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if wa_zycbt007-liq_trans eq 'R'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if wa_zycbt007-liq_trans eq 'R' or
<fs_op>-operacao eq 'E'.
* << Fim da inclusão
call function '/PWS/ZYCB_TRANSACAO_F_30_A'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
else.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
elseif <fs_op>-operacao is initial.
* << Fim da inclusão
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30_W'
* << Fim da inclusão
exporting
v_modo = v_modo_bi
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
v_vinc_tot = 'X'
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
t_zycbt036 = itab_zycbt036
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
t_partidas = itab_partidas
* << Fim da inclusão
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zycbt032 into wa_zycbt032
with key tcode = 'F-30'
tabela = '/PWS/ZYCBT226'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-status <> 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-operacao <> 'E'.
* << Fim da inclusão
itab_zycet010-belnr51 = wa_zycbt032-belnr.
modify itab_zycet010 transporting belnr51
where nrseq = itab_zycet010-nrseq
and lifnr = itab_zycet010-lifnr
and dtvencto = itab_zycet010-dtvencto.
else.
itab_zycet010-belnr = wa_zycbt032-belnr.
itab_zycet010-dtlanc = wa_zycbe033-budat.
itab_zycet010-status = space.
itab_zycet010-dtpagto = '00000000'.
...
...
status
dtpagto
belnr51
belnr_p
where nrseq = itab_zycet010-nrseq and
lifnr = itab_zycet010-lifnr and
dtvencto = itab_zycet010-dtvencto.
endif.
modify /pws/zycet010 from itab_zycet010.
else.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-status <> 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
if <fs_op>-operacao <> 'E'.
* << Fim da inclusão
loop at itab_zycet013 where nrseq eq <fs_op>-nrinvoic .
itab_zycet013-belnr_cl = wa_zycbt032-belnr.
modify itab_zycet013 transporting belnr_cl
where nrseq = itab_zycet013-nrseq
and gsber = itab_zycet013-gsber
and lifnr = itab_zycet013-lifnr
and prctr = itab_zycet013-prctr.
modify /pws/zycet013 from itab_zycet013 .
commit work.
endloop.
...
...
itab_zycbt224 = itab_zycbe224
exceptions
zycbe224_null = 1
erro_bloqueio = 2
others = 3.
if sy-subrc <> 0.
exit.
endif.
endif.
endloop.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
if not itab_zycbt032a[] is initial.
perform executa_clearing_agente.
endif.
* << Fim da inclusão
endform.
form local_negocio.
clear wa_t001w.
select single * from t001w into wa_t001w
where werks = <fs_op>-werks.
endform.
form get_parameters_003.
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
others = 2.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'F-22'
tabela = text-094
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
move itab_zycbt032-belnr to itab_aux2-belnr22.
modify itab_aux2 index v_tabix.
move 'X' to v_okcomis.
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
CLEAR itab_zycbt032-msgv1.
CONCATENATE text-460 ':' INTO itab_zycbt032-msgv1.
CONCATENATE itab_zycbt032-msgv1 text-141
itab_zycbt032-belnr INTO itab_zycbt032-msgv1
SEPARATED BY space.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_s
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
else.
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
itab_zycbt032-msgv1 = text-463.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-22'
and tabela = text-094
and cpochv = v_cpochv.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
itab_erro-vbeln = itab_zycbt030-vbeln.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
itab_zycbt032-msgv1 = itab_zycbt032-msg.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
endloop.
endif.
endif.
endif.
endloop.
if v_okcomis eq 'X'.
perform executa_clearing_cliente.
perform executa_clearing_agente.
delete itab_zycbt031
where nrseq eq /pws/zycbe031-nrseq
...
...
space
079.
delete from /pws/zycbt048
where nrseq eq /pws/zycbe031-nrseq
and dtboleto eq /pws/zycbe031-dtboleto.
endif.
delete from /pws/zycbt064
where nrboleto eq /pws/zycbe031-nrseq
and dtboleto eq /pws/zycbe031-dtboleto. "#EC CI_NOFIRST
describe table itab_zycbt031 lines v_linha.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
leave to screen 0.
* << Fim da exclusão
endif.
if not itab_erro[] is initial.
export itab_erro[] to memory id '001'.
submit /pws/zycbr126 and return.
endif.
endif.
endform.
form get_parameters_comissao.
data: v_codeven like /pws/zycbt011-codeven,
v_codaux like /pws/zycbt012-codaux.
...
...
where nrinvoic = itab_aux2-nrinvoic.
itab_aux2-belnr6 = itab_zycbt032-belnr.
itab_aux2-budat = itab_zycbe033-budat.
modify itab_aux2 transporting belnr6
where belnr6 = v_belnr6.
update /pws/zycbt030 set belnr6 = itab_zycbt030_a-belnr6
budat = itab_zycbt030_a-budat
where nrinvoic = itab_zycbt030_a-nrinvoic
and gsberf = itab_zycbt030_a-gsberf
and vbeln = itab_zycbt030_a-vbeln.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
CLEAR itab_zycbt032-msgv1.
CONCATENATE text-461 ':' INTO itab_zycbt032-msgv1.
CONCATENATE itab_zycbt032-msgv1 text-141
itab_zycbt032-belnr INTO itab_zycbt032-msgv1
SEPARATED BY space.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_s
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
else.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbt032-msgv1 = text-464.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-30'
and tabela = text-094
and cpochv = v_cpochv.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_erro-vbeln = itab_zycbt030_a-vbeln.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbt032-msgv1 = itab_zycbt032-msg.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
endloop.
endif.
else.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
...
...
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-c_gsber = itab_zycbt017-gsberf.
itab_zycbe033-d_gsber = itab_zycbt017-gsberf.
if /pws/zycbt007-comis = 'A' or /pws/zycbt007-comis = ' '.
itab_zycbe033-agkon = itab_zycet010-lifnr.
itab_zycbe033-agkoa = 'K'.
else.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR itab_aux2.
READ TABLE itab_aux2 WITH KEY nrinvoic = itab_zycet010-nrseq
lifnr = itab_zycet010-lifnr
dtvencto = itab_zycet010-dtvencto.
itab_zycbe033-wrbtr = itab_aux2-valor.
itab_zycbe033-newbs = '31'.
itab_zycbe033-d_newko = itab_zycet010-lifnr.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = text-094.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycet010-belnr51.
perform determina_ano using itab_zycet010-dtlanc
/pws/zycbe031-bukrs
changing v_ano.
select * from bkpf
where bukrs = /pws/zycbe031-bukrs
...
...
changing v_ano.
select * from bkpf
where bukrs = /pws/zycbe031-bukrs
and belnr = itab_aux2-belnr22
and gjahr = v_ano.
endselect.
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
endloop.
if itab_zycbt034 is initial.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_A'
* << Fim da inclusão
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
...
...
if sy-subrc = 0.
update /pws/zycet010 set belnr = itab_zycbt032-belnr
status = space
dtpagto = '00000000'
belnr51 = space
belnr_p = space
dtlanc = /pws/zycbe031-dtboleto
where nrseq eq itab_zycet010-nrseq
and lifnr eq itab_zycet010-lifnr
and dtvencto eq itab_zycet010-dtvencto.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR itab_zycbt032-msgv1.
CONCATENATE text-462 ':' INTO itab_zycbt032-msgv1.
CONCATENATE itab_zycbt032-msgv1 text-141
itab_zycbt032-belnr INTO itab_zycbt032-msgv1
SEPARATED BY space.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_s
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
else.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt032-msgv1 = text-465.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-30'
and tabela = text-094
and cpochv = v_cpochv.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_erro-vbeln = itab_zycbt030-vbeln.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt032-msgv1 = itab_zycbt032-msg.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
endloop.
endif.
else.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
...
...
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-c_gsber = itab_zycbt017-gsberf.
itab_zycbe033-d_gsber = itab_zycbt017-gsberf.
if /pws/zycbt007-comis = 'A' or /pws/zycbt007-comis = ' '.
itab_zycbe033-agkon = itab_zycet013-lifnr.
itab_zycbe033-agkoa = 'K'.
else.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR itab_aux2.
READ TABLE itab_aux2 WITH KEY nrinvoic = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr
gsberf = itab_zycet013-gsber
prctr = itab_zycet013-prctr.
itab_zycbe033-wrbtr = itab_aux2-valor.
itab_zycbe033-newbs = '31'.
itab_zycbe033-d_newko = itab_zycet013-lifnr.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = text-094.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycet013-belnr_cl.
perform determina_ano using itab_zycet013-dtlanc
/pws/zycbe031-bukrs
changing v_ano.
select * from bkpf
where bukrs = /pws/zycbe031-bukrs
...
...
changing v_ano.
select * from bkpf
where bukrs = /pws/zycbe031-bukrs
and belnr = itab_aux2-belnr22
and gjahr = v_ano.
endselect.
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
endloop.
if itab_zycbt034[] is initial.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_A'
* << Fim da inclusão
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
...
...
update /pws/zycet013 set belnr = itab_zycbt032-belnr
status = space
dtpagto = '00000000'
belnr_cl = space
belnr_c = space
dtlanc = /pws/zycbe031-dtboleto
where nrseq eq itab_zycet013-nrseq
and lifnr eq itab_zycet013-lifnr
and gsber eq itab_zycet013-gsber
and prctr eq itab_zycet013-prctr.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR itab_zycbt032-msgv1.
CONCATENATE text-462 ':' INTO itab_zycbt032-msgv1.
CONCATENATE itab_zycbt032-msgv1 text-141
itab_zycbt032-belnr INTO itab_zycbt032-msgv1
SEPARATED BY space.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_s
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
else.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt032-msgv1 = text-465.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
loop at itab_zycbt032 where tcode = 'F-30'
and tabela = text-094
and cpochv = v_cpochv.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_erro-vbeln = itab_zycbt030-vbeln.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt032-msgv1 = itab_zycbt032-msg.
PERFORM message_store
USING c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
space
space
015.
* << Fim da inclusão
endloop.
endif.
else.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
space
...
...
if wa_tcurx-currdec = 0.
/pws/zycbe031-vlmi = /pws/zycbe031-vlmi /
( 10 ** ( wa_tcurx-currdec - 2 ) ).
/pws/zycbe031-vlmiir = /pws/zycbe031-vlmiir /
( 10 ** ( wa_tcurx-currdec - 2 ) ).
/pws/zycbe031-vlmicide = /pws/zycbe031-vlmicide /
( 10 ** ( wa_tcurx-currdec - 2 ) ).
endif.
endif.
describe table itab_zycbt031_tc lines v_linha.
* >> Início da inclusão: FORM CALCULA_VLMI
READ TABLE itab_zycbt009 WITH KEY codpadr = v_ctmoeda.
IF sy-subrc = 0.
v_ctmoeda = itab_zycbt009-kurst.
ENDIF.
* << Fim da inclusão
loop at itab_zycbt031_tc.
v_tabix = sy-tabix.
if v_tabix = 1.
clear: v_vlmi_tot,
v_vlmiir_tot.
endif.
select single * from /pws/zycbt007
where bukrs = /pws/zycbe031-bukrs.
if not /pws/zycbt007-waersb is initial.
call function '/PWS/ZYCB_MONTANTE_CONVERTE'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
itab_zycbt032_aux,
itab_zycbt036,
itab_doctos,
itab_zycmt020,
itab_item.
endform.
form converte_reais.
if v_ctmoeda is initial.
v_ctmoeda = 'M'.
endif.
* >> Início da inclusão: FORM CONVERTE_REAIS
READ TABLE itab_zycbt009 WITH KEY codpadr = v_ctmoeda.
IF sy-subrc = 0.
v_ctmoeda = itab_zycbt009-kurst.
ENDIF.
* << Fim da inclusão
call function '/PWS/ZYCB_MONTANTE_CONVERTE'
exporting
i_montante = v_vlme
i_demoeda = v_waers
* >> Início da exclusão: FORM CONVERTE_REAIS
i_paramoeda = /pws/zycbt007-waersb
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_REAIS
i_paramoeda =
/pws/zycbt007-waersb
* << Fim da inclusão
i_ctmoeda = v_ctmoeda
i_dtbase = sy-datum
importing
e_montante = v_vlbrl
tables
t_ctgmoeda = itab_zycbt009
exceptions
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
...
...
form converte_usd.
if v_ctmoeda is initial.
v_ctmoeda = 'M'.
endif.
if v_waers = /pws/zycbt007-waersa.
v_vlusd = v_vlme.
else.
call function '/PWS/ZYCB_MONTANTE_CONVERTE'
exporting
i_montante = v_vlbrl
* >> Início da exclusão: FORM CONVERTE_USD
i_demoeda = /pws/zycbt007-waersb
i_paramoeda = /pws/zycbt007-waersa
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_USD
i_demoeda =
/pws/zycbt007-waersb
i_paramoeda =
/pws/zycbt007-waersa
* << Fim da inclusão
i_ctmoeda = v_ctmoeda
i_dtbase = sy-datum
importing
e_montante = v_vlusd
tables
t_ctgmoeda = itab_zycbt009
exceptions
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
...
...
itab_zycbt032-msgv2
space
space
015.
perform message_show.
exit.
endif.
endif.
if v_parvw eq 'CG' or
v_parvw eq 'AD'.
* >> Início da exclusão: FORM EXCLUIR_DADOS
itab_zycbt032-msgv1 = text-256.
itab_zycbt032-msgv2 = text-257.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
015.
perform message_show.
exit.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
PERFORM estorna_comis_cg.
* << Fim da inclusão
elseif v_parvw eq 'DA' and
/pws/zycbt007-comis ne 'R'.
perform estorna_comis_cg.
else.
if /pws/zycbe145-cod_fech eq 'TR' or
( /pws/zycbe145-cod_fech ne 'TR' and
( /pws/zycbt007-saida_auto is initial or
( not /pws/zycbt007-saida_auto is initial and
( /pws/zycbe031-mdcorresp ne 'IP' or
( /pws/zycbe031-mdcorresp eq 'IP' and
...
...
delete from /pws/zycbt048
where nrseq eq /pws/zycbe031-nrseq
and dtboleto eq /pws/zycbe031-dtboleto.
endif.
delete from /pws/zycbt064
where nrboleto eq /pws/zycbe031-nrseq
and dtboleto eq /pws/zycbe031-dtboleto. "#EC CI_NOFIRST
if /pws/zycbe031-mdcorresp = 'EP'.
loop at itab_zycbt064.
update /pws/zycet033 set statuscb = ''
* >> Início da exclusão: FORM EXCLUIR_DADOS
where nrpres = itab_zycbt064-nrchave. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
WHERE nrpres = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
endloop.
endif.
describe table itab_zycbt031 lines v_linha.
clear /pws/zycbe031.
set screen '0002'.
endif.
endif.
perform message_show.
endform.
form executa_aprovacao.
...
...
else.
perform marca_exclusao.
endif.
else.
perform marca_exclusao.
endif.
if /pws/zycbe031-mdcorresp = 'EL'.
perform verifica_tipo_comis.
if /pws/zycbt017-parvw = 'CG' or
/pws/zycbt017-parvw = 'AD'.
* >> Início da exclusão: FORM APAGA_REGISTRO
itab_zycbt032-msgv1 = text-256.
itab_zycbt032-msgv2 = text-257.
perform message_store
using c_classe_msg
c_tipo_msg_i
itab_zycbt032-msgv1
itab_zycbt032-msgv2
space
space
015.
exit.
* << Fim da exclusão
* >> Início da inclusão: FORM APAGA_REGISTRO
PERFORM estorna_comis_cg.
* << Fim da inclusão
endif.
endif.
if /pws/zycbe031-status eq 'E'.
if v_prog_origem eq c_prog_cotacao.
clear wa_zycbt031_temp.
modify itab_zycbt031 from wa_zycbt031_temp
transporting kursf bcooper dtcredpr frpagto pagtoirrf
pagtocide bcoopir taxair dtcredir vlmi statusp
belnr_p belnr_pi vlmiir belnr_cide
pagtocide taxacide dtcide vlmicide bcoopcide
...
...
where currkey = /pws/zycbe031-waers.
if sy-subrc ne 0.
tcurx-currdec = 2.
endif.
select single * from tcurx into wa_tcurx
where currkey = wa_zycbt007-waersb.
if sy-subrc ne 0.
wa_tcurx-currdec = 2.
endif.
read table itab_zycbt236 into /pws/zycbe236
* >> Início da exclusão: FORM CARREGA_DADOS
with key nrboleto = /pws/zycbe031-nrseq. "#EC ENHOK
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
WITH KEY nrboleto = /pws/zycbe031-nrseq. "#EC ENHOK
* << Fim da inclusão
if itab_zycbt009[] is initial.
select * from /pws/zycbt009 into table itab_zycbt009.
endif.
if /pws/zycbe031-mdcorresp = 'CP'.
read table itab_zycbt124_aux with key
nrseq = /pws/zycbe031-nrcorresp.
if sy-subrc = 0 and v_ctmoeda is initial.
perform get_parameters_cp using 'PRINCIPAL'.
v_ctmoeda = wa_zycbt011-ctmoed.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
msg like /pws/zycbt032-msg,
end of itab_erro.
data: begin of itab_zycbt032a occurs 10.
include structure /pws/zycbt032.
data budat like /pws/zycbe033-budat.
data: end of itab_zycbt032a.
data: begin of itab_zycbt017 occurs 0.
include structure /pws/zycbt017.
data: end of itab_zycbt017.
data: itab_zycbt036 like /pws/zycbt036 occurs 10 with header line.
* >> Início da inclusão:
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
* << Fim da inclusão
data: begin of itab_zycbt066 occurs 0.
include structure /pws/zycbt066.
data: end of itab_zycbt066.
data: begin of itab_lfa1 occurs 100,
lifnr like lfa1-lifnr,
name1 like lfa1-name1,
end of itab_lfa1.
data: itab_lfa1_aux like itab_lfa1 occurs 0 with header line,
itab_zycbt066_aux like itab_zycbt066 occurs 0 with header line.
data: begin of itab_zycbt031 occurs 0. "#EC *
...
...
not /pws/zycbt108-belnr_co is initial ).
update /pws/zycbt119 set slpgfat = 0
where nrseq = itab_zycbt064-nrchave.
update /pws/zycbt108 set slfat = 0
where nrseq_pgfat = itab_zycbt064-nrchave. "#EC CI_NOFIRST
endif.
endif.
endif.
if itab_zycbt064-mdcorresp eq 'EP'.
update /pws/zycet033 set statuscb = 'E'
* >> Início da exclusão: FORM GRAVA_ZYCBT064
where nrpres = itab_zycbt064-nrchave. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT064
WHERE nrpres = itab_zycbt064-nrchave. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endloop.
clear itab_zycbt064.
refresh itab_zycbt064.
elseif sy-ucomm = 'PROC'.
move: v_count to /pws/zycbt064-nrboleto,
sy-datum to /pws/zycbt064-dtboleto,
itab_selreg_aux-nrchave to /pws/zycbt064-nrchave,
itab_selreg_aux-nrparcf to /pws/zycbt064-nrparcf,
itab_selreg_aux-tipo to /pws/zycbt064-tipo,
...
...
itab_selreg_aux-nrparc to /pws/zycbt064-nrparc,
itab_selreg_aux-dtincl to /pws/zycbt064-dtincl,
itab_selreg_aux-tpdesp to /pws/zycbt064-tpdesp,
itab_zycbt064-nrseq to /pws/zycbt064-nrseq,
itab_selreg_aux-gsberf to /pws/zycbt064-gsberf,
itab_selreg_aux-prctr to /pws/zycbt064-prctr,
itab_selreg_aux-tpjuros to /pws/zycbt064-tpjuros.
insert /pws/zycbt064.
if itab_selreg_aux-fmd eq 'EP'.
update /pws/zycet033 set statuscb = 'E'
* >> Início da exclusão: FORM GRAVA_ZYCBT064
where nrpres = itab_selreg_aux-nrchave. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT064
WHERE nrpres = itab_selreg_aux-nrchave. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endif.
endform.
form seleciona_fornecedor.
if not itab_selreg[] is initial.
select lifnr name1
from lfa1
into table itab_lfa1
for all entries in itab_selreg
where lifnr = itab_selreg-lifnr.
...
...
append w_sort to i_sort.
endform.
form contab_comis_cg.
data: v_chave(50),
v_status_f30(1) value 'E',
v_kunag like /pws/zycbt017-kunag,
v_nkunag(1) type c.
if not itab_selreg_aux[] is initial.
select * from /pws/zycet037
up to 1 rows
* >> Início da exclusão: FORM CONTAB_COMIS_CG
where bukrs in empresa.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_COMIS_CG
WHERE bukrs = itab_selreg_aux-bukrs.
* << Fim da inclusão
endselect.
if sy-subrc ne 0.
select single * from /pws/zycet037
where bukrs eq space.
endif.
if /pws/zycet037-comis_provisao = '0'
or /pws/zycet037-comis_provisao is initial.
select * from /pws/zycet010
into table itab_zycet010
* >> Início da exclusão: FORM CONTAB_COMIS_CG
for all entries in itab_selreg_aux
* << Fim da exclusão
where nrseq eq itab_selreg_aux-nrchave
and lifnr eq itab_selreg_aux-lifnr
and dtvencto eq itab_selreg_aux-dtvencto.
elseif /pws/zycet037-comis_provisao = '1'.
select * from /pws/zycet013
into table itab_zycet013
* >> Início da exclusão: FORM CONTAB_COMIS_CG
for all entries in itab_selreg_aux
* << Fim da exclusão
where nrseq eq itab_selreg_aux-nrchave
and lifnr eq itab_selreg_aux-lifnr
and gsber eq itab_selreg_aux-gsberf
and prctr eq itab_selreg_aux-prctr.
endif.
select * from /pws/zycbt017
into table itab_zycbt017
* >> Início da exclusão: FORM CONTAB_COMIS_CG
for all entries in itab_selreg_aux
* << Fim da exclusão
where nrinvoic eq itab_selreg_aux-nrinvoic
and nrparcf eq itab_selreg_aux-nrparcf.
endif.
loop at itab_zycbt017.
if v_kunag is initial.
move itab_zycbt017-kunag to v_kunag.
endif.
if itab_zycbt017-kunag ne v_kunag.
move 'X' to v_nkunag.
endif.
...
...
submit /pws/zycbr126 and return.
refresh itab_erro.
endif.
endform.
form get_parameters_comissao.
data: v_codeven like /pws/zycbt011-codeven,
v_codaux like /pws/zycbt012-codaux.
v_trans = 'F-30'.
select * from /pws/zycbt007
up to 1 rows
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
where bukrs in empresa.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
WHERE bukrs = itab_selreg_aux-bukrs.
* << Fim da inclusão
endselect.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = text-131.
v_codeven = '004G'.
v_codaux = itab_selreg_aux-lifnr.
clear wa_zycbt011.
select * from /pws/zycbt011
into wa_zycbt011
...
...
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
others = 8. "#EC *
if sy-subrc = 0.
else.
endif.
endform.
form executa_clearing_agente.
perform clear_date_batch.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
clear itab_zycbt036.
refresh itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR: itab_zycbt036, itab_partidas.
REFRESH: itab_zycbt036, itab_partidas.
* << Fim da inclusão
concatenate itab_selreg_aux-nrchave itab_selreg_aux-lifnr
into v_cpochv.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = text-131.
itab_zycbe033-cpochv = v_cpochv.
perform verify_null_field using v_datalanc
'DTPAGTO'
text-132.
itab_zycbe033-budat = v_datalanc.
perform verify_null_field using wa_zycbt011-blart
...
...
'BUKRS'
text-007.
itab_zycbe033-bukrs = itab_selreg_aux-bukrs.
perform verify_null_field using itab_selreg_aux-waers
'WAERS'
text-008.
itab_zycbe033-waers = itab_selreg_aux-waers.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-c_gsber = itab_zycbt017-gsberf.
itab_zycbe033-d_gsber = itab_zycbt017-gsberf.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
APPEND itab_zycbe033.
LOOP AT itab_zycbt032a WHERE tpmsg = 'S'.
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = text-131.
itab_partidas-cpochv = v_cpochv.
itab_partidas-belnr = itab_zycbt032a-belnr.
itab_partidas-agums = space.
itab_partidas-bukrs = itab_selreg_aux-bukrs.
itab_partidas-v_sinal = '+'.
* << Fim da inclusão
if /pws/zycbt007-comis = 'A' or /pws/zycbt007-comis = ' '.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_selreg_aux-lifnr.
itab_zycbe033-agkoa = 'K'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkon = itab_selreg_aux-lifnr.
itab_partidas-agkoa = 'K'.
* << Fim da inclusão
else.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkoa = 'S'.
itab_partidas-agkon = itab_zycbt012a-saknr1.
* << Fim da inclusão
endif.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
append itab_zycbe033.
loop at itab_zycbt032a where tpmsg = 'S'.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = text-131.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt032a-belnr.
* << Fim da exclusão
select * from bkpf
where bukrs = itab_selreg_aux-bukrs
and belnr = itab_zycbt032a-belnr
and gjahr = itab_zycbt032a-budat(4).
endselect.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-dtdocto = bkpf-budat.
APPEND itab_partidas.
* << Fim da inclusão
endloop.
loop at itab_selreg_aux.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = text-131.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_selreg_aux-belnr_comis.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = text-131.
itab_partidas-cpochv = v_cpochv.
itab_partidas-belnr = itab_selreg_aux-belnr_comis.
itab_partidas-agums = space.
itab_partidas-bukrs = itab_selreg_aux-bukrs.
itab_partidas-agkon = itab_selreg_aux-lifnr.
itab_partidas-agkoa = 'K'.
itab_partidas-v_sinal = '+'.
* << Fim da inclusão
select * from bkpf
where bukrs = itab_selreg_aux-bukrs
and belnr = itab_selreg_aux-belnr_comis
and gjahr = itab_selreg_aux-dtlanc.
endselect.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-dtdocto = bkpf-budat.
APPEND itab_partidas.
* << Fim da inclusão
endloop.
if itab_zycbt034 is initial.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
call function '/PWS/ZYCB_TRANSACAO_F_30'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
* << Fim da inclusão
exporting
v_modo = v_modo_bi
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
v_vinc_tot = 'X'
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
t_zycbt036 = itab_zycbt036
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
t_partidas = itab_partidas
* << Fim da inclusão
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'F-30'
tabela = text-131
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc = 0.
...
...
up to 1 rows
where nrseq = v_nrseq_agrp.
endselect.
if sy-subrc ne 0.
move:v_nrseq_agrp to /pws/zycme013-nrseq,
itab_selreg_aux-bukrs to /pws/zycme013-bukrs,
itab_selreg_aux-docto to /pws/zycme013-belnr,
itab_selreg_aux-nrchave to /pws/zycme013-nrseq_pgfat,
itab_selreg_aux-waers to /pws/zycme013-waers,
itab_selreg_aux-vlme to /pws/zycme013-vlme.
* >> Início da exclusão: FORM EXECUTAR
insert /pws/zycmt013 from /pws/zycme013. "#EC ENHOK
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTAR
INSERT /pws/zycmt013 FROM /pws/zycme013. "#EC ENHOK
* << Fim da inclusão
else.
move: itab_selreg_aux-bukrs to /pws/zycme013-bukrs,
itab_selreg_aux-docto to /pws/zycme013-belnr,
itab_selreg_aux-nrchave to /pws/zycme013-nrseq_pgfat,
itab_selreg_aux-waers to /pws/zycme013-waers,
itab_selreg_aux-vlme to /pws/zycme013-vlme.
* >> Início da exclusão: FORM EXECUTAR
insert /pws/zycmt013 from /pws/zycme013. "#EC ENHOK
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTAR
INSERT /pws/zycmt013 FROM /pws/zycme013. "#EC ENHOK
* << Fim da inclusão
endif.
endif.
endloop.
clear: v_flag, v_verifica_lifnr, /pws/zycbe112-lifnr.
loop at itab_selreg_aux where flag eq 'X'.
if v_flag is initial.
v_reg_ant = itab_selreg_aux-lifnr.
v_flag = 'X'.
continue.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
endif.
endif.
endif.
if itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
move text-052 to itab_selreg-statusf.
endif.
if itab_zycbt030-vlsltrans ne 0 and
itab_zycbt030-vlsltrans < itab_zycbt030-kwert.
move text-053 to itab_selreg-statusf.
endif.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
if itab_zycbt030-vlsltrans = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
if itab_zycbt030-vlsltrans = 0 or
itab_zycbt030-vlsltrans = itab_zycet013-vlme.
* << Fim da inclusão
move text-054 to itab_selreg-statusf.
move 'X' to itab_selreg-fat_liq.
endif.
if not itab_zycbt089-liq_com_ar eq ' '.
move 'X' to itab_selreg-controle.
endif.
else.
perform verifica_fatura.
if not itab_selreg-fat_liq is initial.
move 'Total Liquidada'(054) to itab_selreg-statusf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB110
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 460
Texto: (16 caracteres)
"Estorno Comissão"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 461
Texto: (19 caracteres)
"Clearing do Cliente"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (18 caracteres)
"Clearing do Agente"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (33 caracteres)
"Erro Geração Documento de Estorno"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (45 caracteres)
"Erro Geração Documento de Clearing do Cliente"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (44 caracteres)
"Erro Geração Documento de Clearing do Agente"
Comprimento máximo: 44