CE PLUS - Nota 011151
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 11/05/2011 00:00:00
Data/Hora Última Alteração: 19/05/2011 09:11:06
Descrição da Nota: COMISSÃO AGENTE
Sintoma
O sistema estava considerando as parametrizações de contas e campos antigas para contabilização
da baixa da comissão
Solução
As novas parametrizações de campos e contas foram implementados no processo de baixa de
comissão de agente
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11151 Data: 11/05/2011 Hora: 10:26:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11151
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05724 - 00001 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL
05967 - 00002 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR - EXIT VME001
06287 - 00003 - 7.0 - 00005 - LIQUIDAÇÃO DE FATURAS COMISSÃO DE AGENTE
07117 - 00004 - 7.0 - 00006 - BOTÕES "VINCULAR TOTAL" E "SELECIONAR FATURAS" - VME
07606 - 00005 - 7.0 - 00007 - COMPLEMENTO DO BOLETO - ANO FISCAL
08619 - 00006 - 7.0 - 00010 - VINCULAÇÃO - LIQUIDAÇÃO - PARÂMETROS NO IDIOMA - 166/167/168/169
09055 - 00007 - 8.0 - 00001 - CODE INSPECTOR - CAMBIO EXPORTAÇÃO
09133 - 00008 - 8.0 - 00001 - CODE INSPECTOR - CAMBIO EXPORTAÇÃO
09221 - 00009 - 8.0 - 00001 - CODE INSPECTOR CÂMBIO
09254 - 00010 - 8.0 - 00001 - CODE INSPECTOR - CAMBIO
09262 - 00011 - 8.0 - 00001 - CODE INSPECTOR CÂMBIO
09268 - 00012 - 8.0 - 00001 - CODE INSPECTOR CÂMBIO
09642 - 00013 - 8.0 - 00002 - VALORES MANTIDOS NO EXTERIOR-SALDO DISPONIBILIDADE-VINCULAÇÃO SEM
10204 - 00014 - 8.0 - 00003 - LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
10638 - 00015 - 8.0 - 00005 - LIQUIDAÇÃO ARBITRAGEM VALOR INCORRETO DA FATURA NA MOEDA DO CONTR
10852 - 00016 - 8.0 - 00006 - VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR CG
11118 - 00017 - 8.0 - 00007 - COMISSÃO CONTA GRÁFICA
----------------------------------------------------------------------------------------------------
COMISSÃO AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMISSÃO AGENTE - LIQUIDAÇÃO - ROTINA PAGAMENTO
PROCESSAR BOLETO - VALORES MANTIDOS NO EXTERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004TOP
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034TOP
REPS /PWS/MZYCB110F01
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
ENDIF.
ENDFORM.
FORM fill_date_f30_comissao.
DATA: v_chave(50), v_erro_f28(1), v_aux,
v_status_f30(1) VALUE 'E',
v_vlslliq LIKE /pws/zycbt030-vlslliq.
PERFORM clear_date_batch.
CLEAR: itab_zycbt032a, itab_zycbt036.
REFRESH: itab_zycbt032a, itab_zycbt036.
PERFORM get_parameters_comissao.
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
IF wa_zycbt007-comis = 'C'.
READ TABLE itab_zycbt012a WITH KEY chlanc = 'C'.
ENDIF.
* << Fim da exclusão
PERFORM verifica_rateio1.
LOOP AT itab_aux.
CLEAR v_chave.
IF itab_aux-flag NE 'X'.
IF wa_zycbt007-comis = 'C'.
itab_zycbe033-newbs = '40'.
ELSE.
itab_zycbe033-newbs = '21'.
ENDIF.
ELSE.
IF wa_zycbt007-comis = 'C'.
itab_zycbe033-newbs = '50'.
ELSE.
itab_zycbe033-newbs = '31'.
ENDIF.
ENDIF.
IF wa_zycbt007-comis = 'C'.
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
itab_zycbe033-d_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
itab_zycbe033-d_newko = itab_zyglt316-konth.
* << Fim da inclusão
ELSE.
itab_zycbe033-d_newko = itab_selreg-lifnr.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-016.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = /pws/zycbt017-kunag.
PERFORM verify_null_field USING itab_zycbe033-agkon
'AGKON'
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_comissao.
DATA: v_codeven LIKE /pws/zycbt011-codeven,
v_codaux LIKE /pws/zycbt012-codaux,
v_nrseq LIKE /pws/zycet010-nrseq.
v_trans = 'F-30'.
PERFORM clear_date_batch.
v_nrseq = itab_zycbt006-nrinvoic+0(10).
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCET010'.
* << Fim da exclusão
IF wa_zycbt007-liq_trans EQ 'R'.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
ELSE.
CONCATENATE '004' itab_selreg-codp INTO v_codeven.
ENDIF.
v_codaux = itab_selreg-lifnr.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'E'
AND bukrs = itab_zycbt006-bukrs.
IF wa_zycbt007-comis = 'C'.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = 'E' AND
tpcodaux = 'C' AND
codaux = v_codaux.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = 'E' AND
tpcodaux = 'C' AND
codaux = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
clear itab_zyglt316.
refresh itab_zyglt316.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = itab_zycbt006-bukrs
ktosl = 'PVE'
codaux1 = 'COMAG'
tables
account = itab_zyglt316
exceptions
key_not_found = 1
rules_not_found = 2
others = 3.
if sy-subrc eq 0.
read table itab_zyglt316 index 1.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
refresh itab_zyglt321.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'DSE' and
codeven = v_codeven.
* << Fim da inclusão
ENDFORM.
...
...
itab_zycbe033-tabela = '/PWS/ZYCET010'.
itab_zycbe033-cpochv = itab_selreg-nrchave.
itab_zycbe033-budat = v_dtpagto.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM DADOS_BATCH
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
clear itab_zycbt017.
read table itab_zycbt017 with key nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-d_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-augtx = itab_zycbt006-nrseqc.
when 'TXTINF'.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
when others.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endcase.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM DADOS_BATCH
CASE itab_zycbt013-cpocb.
WHEN 'NRSEQC'.
itab_zycbe033-xblnr = itab_selreg-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
clear: v_ms.
case itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM DADOS_BATCH
itab_zycbe033-xblnr = itab_selreg-nrchave.
WHEN 'NRCONTR'.
itab_zycbe033-xblnr = itab_zycbt006-nrcontr.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-xblnr = itab_zycbt006-nrseqc.
when 'NRINVOIC+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nrinvoic v_ms
into itab_zycbe033-xblnr separated by space.
when 'NREMB+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nremb v_ms
into itab_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt006-nrseqc v_ms
into itab_zycbe033-xblnr separated by space.
when others.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
when 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt006-dtpagto.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM DADOS_BATCH
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
when 'DTLINCL'.
itab_zycbe033-d_valut = itab_zycbt006-dtpagto.
itab_zycbe033-c_valut = itab_zycbt006-dtpagto.
endcase.
* << Fim da inclusão
WHEN 'ZUONR'.
* >> Início da exclusão: FORM DADOS_BATCH
CASE itab_zycbt013-cpocb.
WHEN 'NRSEQC'.
itab_zycbe033-d_zuonr = itab_selreg-nrchave.
itab_zycbe033-c_zuonr = itab_selreg-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
case itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM DADOS_BATCH
itab_zycbe033-d_zuonr = itab_selreg-nrchave.
itab_zycbe033-c_zuonr = itab_selreg-nrchave.
WHEN 'NRCONTR'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrcontr.
itab_zycbe033-c_zuonr = itab_zycbt006-nrcontr.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrseqc.
itab_zycbe033-c_zuonr = itab_zycbt006-nrseqc.
when others.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM DADOS_BATCH
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* >> Início da inclusão: FORM DADOS_BATCH
if itab_zycbe033-d_sgtxt is initial.
* << Fim da inclusão
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM DADOS_BATCH
endif.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbt006-bukrs
'BUKRS'
text-048.
itab_zycbe033-bukrs = itab_zycbt006-bukrs.
...
...
itab_zycbt006-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
PERFORM verify_null_field USING itab_zycbe033-kursf
'TXCAMB'
text-051.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-050.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da exclusão: FORM DADOS_BATCH
itab_zycbe033-zfbdt = v_dtpagto.
* << Fim da exclusão
itab_zycbe033-d_gsber = /pws/zycbt017-gsberf.
READ TABLE itab_zycbt005 WITH KEY
nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
itab_zycbe033-d_prctr = itab_zycbt005-prctr.
itab_zycbe033-d_fipos = itab_zycbt005-fipos.
itab_zycbe033-c_gsber = itab_zycbt005-gsberf.
itab_zycbe033-c_prctr = itab_zycbt005-prctr.
itab_zycbe033-c_fipos = itab_zycbt005-fipos.
...
...
PERFORM verify_null_field USING itab_zycbe033-kursf
'TXCAMB'
text-051.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-d_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-augtx = itab_zycbt006-nrseqc.
when 'TXTINF'.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
when others.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endcase.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-xblnr = itab_zycbt006-nrcontr.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
clear: v_ms.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-xblnr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
WHEN 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when 'NRINVOIC+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nrinvoic v_ms
into itab_zycbe033-xblnr separated by space.
when 'NREMB+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nremb v_ms
into itab_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt006-nrseqc v_ms
into itab_zycbe033-xblnr separated by space.
when others.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
when 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt006-dtpagto.
endcase.
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
when 'DTLINCL'.
itab_zycbe033-d_valut = itab_zycbt006-dtpagto.
itab_zycbe033-c_valut = itab_zycbt006-dtpagto.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrcontr.
itab_zycbe033-c_zuonr = itab_zycbt005-nrinvoic.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
case itab_zyglt321-cpocb.
when 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-d_zuonr = itab_zycbt006-nrseqc.
itab_zycbe033-c_zuonr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
WHEN 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when others.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
PERFORM verify_null_field USING itab_zycbt006-bukrs
...
...
itab_zycbe033-vbund = /pws/zycbe001-vbund.
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
ENDIF.
APPEND itab_zycbe033.
IF itab_zycbt006-v_status NE 'E'.
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.
...
...
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkon = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
itab_partidas-agums = space.
itab_partidas-v_sinal = '+'.
ENDIF.
CLEAR v_year.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = itab_zycbt006-bukrs
v_date = itab_zycbt032a-budat
IMPORTING
...
...
APPEND itab_selreg.
PERFORM fill_date6_f22_comissao.
ENDIF.
ENDLOOP.
ENDFORM.
FORM fill_date6_f22_comissao.
CLEAR: itab_zycbt032a, itab_zycbt036.
REFRESH: itab_zycbt032a, itab_zycbt036.
PERFORM get_parameters_comissao.
PERFORM verifica_rateio1.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
IF wa_zycbt007-comis = 'C'.
READ TABLE itab_zycbt012a WITH KEY chlanc = 'C'.
ENDIF.
* << Fim da exclusão
LOOP AT itab_aux.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'F-22'.
itab_zycbe033-tabela = '/PWS/ZYCBT006'.
CONCATENATE itab_aux-nrinvoic itab_aux-vbeln
itab_aux-gsberf INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
...
...
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
PERFORM get_parameters_003.
PERFORM verifica_taxa_original.
itab_zycbe033-kursf = v_taxa.
PERFORM verify_null_field USING itab_zycbe033-kursf
'TXCAMB'
text-051.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* << Fim da exclusão
itab_zycbe033-wrbtr = itab_aux-valor.
PERFORM verify_null_field USING itab_zycbe033-wrbtr
'WRBTR'
text-007.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
clear itab_zycbt017.
read table itab_zycbt017 with key nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-d_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-augtx = itab_zycbt006-nrseqc.
when 'TXTINF'.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
when others.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endcase.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-xblnr = itab_zycbt006-nrcontr.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
clear: v_ms.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-xblnr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
WHEN 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when 'NRINVOIC+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nrinvoic v_ms
into itab_zycbe033-xblnr separated by space.
when 'NREMB+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nremb v_ms
into itab_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt006-nrseqc v_ms
into itab_zycbe033-xblnr separated by space.
when others.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
when 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt006-dtpagto.
endcase.
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
when 'DTLINCL'.
itab_zycbe033-d_valut = itab_zycbt006-dtpagto.
itab_zycbe033-c_valut = itab_zycbt006-dtpagto.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-c_zuonr = itab_zycbt006-nrcontr.
itab_zycbe033-c_zuonr = itab_zycbt006-nrcontr.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
case itab_zyglt321-cpocb.
when 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-d_zuonr = itab_zycbt006-nrseqc.
itab_zycbe033-c_zuonr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
WHEN 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when others.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
if itab_zycbe033-d_sgtxt is initial.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
endif.
* << Fim da inclusão
PERFORM data_estorno_com USING itab_zycbt006-dtpagto+4(2)
itab_zycbt006-bukrs
itab_zycbt006-dtpagto(4)
itab_zycbt006-dtpagto
itab_selreg-lifnr
CHANGING itab_zycbe033-budat.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_newko = /pws/zycbt017-kunag.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-116.
IF wa_zycbt007-comis = 'C'.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
itab_zycbe033-c_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
itab_zycbe033-c_newko = itab_zyglt316-konth.
* << Fim da inclusão
ELSE.
itab_zycbe033-c_newko = itab_selreg-lifnr.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'KONTO'
text-117.
IF wa_zycbt007-comis EQ 'A'.
IF itab_aux-flag <> 'X'.
itab_zycbe033-newbs = '01'.
itab_zycbe033-newbs1 = '31'.
...
...
PERFORM verify_null_field USING itab_zycbe033-kursf
'TXCAMB'
text-051.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
clear itab_zycbt017.
read table itab_zycbt017 with key nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
when 'NRSEQ'.
itab_zycbe033-d_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrseqc.
itab_zycbe033-augtx = itab_zycbt006-nrseqc.
when 'TXTINF'.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
when others.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endcase.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-xblnr = itab_zycbt006-nrcontr.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
clear: v_ms.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-xblnr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
WHEN 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when 'NRINVOIC+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nrinvoic v_ms
into itab_zycbe033-xblnr separated by space.
when 'NREMB+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nremb v_ms
into itab_zycbe033-xblnr separated by space.
when 'NRSEQ+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt006-nrseqc v_ms
into itab_zycbe033-xblnr separated by space.
when others.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
when 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt006-dtpagto.
endcase.
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
when 'DTLINCL'.
itab_zycbe033-d_valut = itab_zycbt006-dtpagto.
itab_zycbe033-c_valut = itab_zycbt006-dtpagto.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
CASE itab_zycbt013-cpocb.
WHEN 'NRCONTR'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrcontr.
itab_zycbe033-c_zuonr = itab_zycbt005-nrinvoic.
WHEN 'NRSEQC'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
case itab_zyglt321-cpocb.
when 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
when 'NRSEQ'.
* << Fim da inclusão
itab_zycbe033-d_zuonr = itab_zycbt006-nrseqc.
itab_zycbe033-c_zuonr = itab_zycbt006-nrseqc.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
WHEN 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt006-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when others.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
PERFORM verify_null_field USING itab_zycbt006-bukrs
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
v_repid LIKE sy-repid,
v_campo(35) TYPE c.
DATA: BEGIN OF itab_zycbt006_ca OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_ca.
DATA: v_line TYPE n.
DATA: v_vlme TYPE /pws/zycet013-vlme,
v_belnr_cg TYPE /pws/zycet013-belnr.
DATA: v_loop TYPE i .
DATA: v_total_liq LIKE /pws/zycbt006-vlme.
* >> Início da inclusão:
data: v_ms(5) type c.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
select * from /pws/zyglt321
into table itab_zyglt321_cg
where ktosl = 'DSE' and
codeven = v_codeven.
v_codaux = itab_selreg-lifnr.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
and codmod = 'E'.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
if wa_zycbt007-comis = 'C'.
select * from /pws/zycbt012
into table itab_zycbt012a
where codeven = v_codeven and
codmod = 'E' and
tpcodaux = 'C' and
codaux = v_codaux.
if sy-subrc ne 0.
select * from /pws/zycbt012
into table itab_zycbt012a
where codeven = v_codeven and
codmod = 'E' and
tpcodaux = 'C' and
codaux = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
clear: itab_zyglt316, wa_zyglt316_cg.
refresh itab_zyglt316.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = <fs_op>-bukrs
ktosl = 'PVE'
codaux1 = 'COMAG'
tables
account = itab_zyglt316
exceptions
key_not_found = 1
rules_not_found = 2
others = 3.
if sy-subrc eq 0.
read table itab_zyglt316 into wa_zyglt316_cg index 1.
* << Fim da inclusão
endif.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
endif.
* << Fim da exclusão
endform.
form verifica_rateio1 .
data: v_s_kwert like /pws/zycbt030-kwert.
clear: itab_aux.
refresh: itab_aux.
loop at itab_zycbt030 into wa_zycbt030
...
...
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_zycbe033-agkon = wa_zyglt316_cg-konth.
* << Fim da inclusão
endif.
endif.
append wa_zycbe033 to itab_zycbe033.
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.
...
...
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
wa_partidas-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
wa_partidas-agkon = wa_zyglt316_cg-konth.
* << Fim da inclusão
endif.
wa_partidas-agums = space.
wa_partidas-v_sinal = '+'.
endif.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = itab_zycbt032a-budat
importing
...
...
endif.
endform.
form fill_date_f30_comissao .
data: v_chave(50), v_erro_f28(1), v_aux,
v_status_f30(1) value 'E',
v_vlslliq like /pws/zycbt030-vlslliq.
perform clear_date_batch.
clear: itab_zycbt032a, itab_zycbt036.
refresh: itab_zycbt032a, itab_zycbt036.
perform get_parameters_comissao .
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
if wa_zycbt007-comis = 'C'.
read table itab_zycbt012a with key chlanc = 'C'.
endif.
* << Fim da exclusão
perform verifica_rateio1 .
loop at itab_aux.
clear v_chave.
if itab_aux-flag ne 'X'.
if wa_zycbt007-comis = 'C'.
wa_zycbe033-newbs = '40'.
else.
wa_zycbe033-newbs = '21'.
endif.
else.
if wa_zycbt007-comis = 'C'.
wa_zycbe033-newbs = '50'.
else.
wa_zycbe033-newbs = '31'.
endif.
endif.
if wa_zycbt007-comis = 'C'.
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
wa_zycbe033-d_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
wa_zycbe033-d_newko = wa_zyglt316_cg-konth.
* << Fim da inclusão
else.
wa_zycbe033-d_newko = itab_selreg-lifnr.
endif.
perform verify_null_field using wa_zycbe033-d_newko
'KONTO'
text-035.
wa_zycbe033-agkoa = 'D'.
wa_zycbe033-agkon = itab_zycbt017_cg-kunag.
perform verify_null_field using wa_zycbe033-agkon
'AGKON'
...
...
append itab_selreg.
perform fill_date6_f22_comissao.
endif.
endform.
form fill_date6_f22_comissao.
clear: itab_zycbt032a, itab_zycbt036.
refresh: itab_zycbt032a, itab_zycbt036.
perform clear_date_batch.
perform get_parameters_comissao.
perform verifica_rateio1.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
if wa_zycbt007-comis = 'C'.
read table itab_zycbt012a with key chlanc = 'C'.
endif.
* << Fim da exclusão
loop at itab_aux.
wa_zycbe033-tcode = 'F-22'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
concatenate itab_aux-nrinvoic itab_aux-vbeln
itab_aux-gsberf into v_cpochv.
wa_zycbe033-cpochv = v_cpochv.
perform verifica_pais_filial using <fs_op>-bukrs
<fs_op>-j_1bbranch.
wa_zycbe033-brnch = <fs_op>-j_1bbranch.
perform get_parameters_003.
...
...
endif.
endcase.
endloop.
wa_zycbe033-bldat = <fs_op>-dtlancto.
wa_zycbe033-budat = <fs_op>-dtlancto.
wa_zycbe033-d_newko = itab_zycbt017_cg-kunag.
perform verify_null_field using wa_zycbe033-d_newko
'KONTO'
text-035.
if wa_zycbt007-comis = 'C'.
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
wa_zycbe033-c_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
wa_zycbe033-c_newko = wa_zyglt316_cg-konth.
* << Fim da inclusão
else.
wa_zycbe033-c_newko = itab_selreg-lifnr.
endif.
perform verify_null_field using wa_zycbe033-c_newko
'KONTO'
text-036.
if wa_zycbt007-comis eq 'A'.
if itab_aux-flag <> 'X'.
wa_zycbe033-newbs = '01'.
wa_zycbe033-newbs1 = '31'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
include structure /pws/zycbe226.
data : mark(1) type c,
operacao(1) type c,
bloqueado(1) type c,
acesso_emp(1) type c,
drilldown(1) type c.
data: end of itab_zycbt226_aux .
data: begin of itab_zycbt226_all occurs 0.
include structure /pws/zycbt226.
data: end of itab_zycbt226_all.
* >> Início da inclusão:
DATA: wa_zyglt316_cg TYPE t_s_zyglt316.
* << Fim da inclusão
include /pws/mzycb034x01.
selection-screen begin of screen 0001.
selection-screen begin of block a with frame title text-011.
select-options: s_bukrs for /pws/zycbe226-bukrs,
s_nrseq for /pws/zycbe226-nrseq
matchcode object /pws/zycba297,
s_invoic for /pws/zycbe226-nrinvoic,
s_gsber for /pws/zycbe226-gsberf,
s_nrparc for /pws/zycbe226-nrparcf,
s_kunag for /pws/zycbe017-kunag,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
SELECT * FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycet013_aux
WHERE nrinvoic EQ itab_zycet013_aux-nrseq.
ENDIF.
ENDIF.
CLEAR: itab_zycbt032a, itab_zycbt036.
REFRESH: itab_zycbt032a, itab_zycbt036.
PERFORM get_parameters_comissao.
PERFORM verifica_rateio2.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
IF /pws/zycbt007-comis = 'C'.
READ TABLE itab_zycbt012a WITH KEY chlanc = 'C'.
ENDIF.
* << Fim da exclusão
LOOP AT itab_aux2.
MOVE sy-tabix TO v_tabix.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'F-22'.
itab_zycbe033-tabela = text-094.
CONCATENATE itab_aux2-nrinvoic itab_aux2-vbeln
itab_aux2-gsberf INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
PERFORM verify_null_field USING /pws/zycbe031-bukrs
...
...
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM define_cambio USING /pws/zycbe031-dtboleto
/pws/zycbe031-waers
/pws/zycbt007-waersb
itab_zycbe033-kursf.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
* << Fim da exclusão
itab_zycbe033-wrbtr = itab_aux2-valor.
itab_zycbe033-d_gsber = itab_aux2-gsberf.
PERFORM verify_null_field USING itab_zycbe033-wrbtr
'WRBTR'
text-115.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE itab_zyglt321-cpocb .
WHEN 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDCASE.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
CLEAR: v_ms.
CASE itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-xblnr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
WHEN 'NRINVOIC+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nrinvoic v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN 'NREMB+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nremb v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN OTHERS.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDCASE.
WHEN 'ZFBDT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
WHEN 'DTINCL'.
itab_zycbe033-zfbdt = /pws/zycbe031-dtboleto.
ENDCASE.
WHEN 'VALUT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
WHEN 'DTLINCL'.
itab_zycbe033-d_valut = /pws/zycbe031-dtboleto.
itab_zycbe033-c_valut = /pws/zycbe031-dtboleto.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
CASE itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-d_zuonr = /pws/zycbe031-nrinvoic.
itab_zycbe033-c_zuonr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
IF itab_zycbe033-d_sgtxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ENDIF.
* << Fim da inclusão
PERFORM determina_ano USING /pws/zycbe031-dtboleto
/pws/zycbe031-bukrs
CHANGING v_ano.
PERFORM determina_periodo USING /pws/zycbe031-dtboleto
/pws/zycbe031-bukrs
CHANGING v_monat.
PERFORM data_estorno_com USING v_monat
/pws/zycbe031-bukrs
v_ano
/pws/zycbe031-dtboleto
/pws/zycbe031-lifnr
CHANGING itab_zycbe033-budat.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_newko = itab_zycbt017-kunag.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-116.
IF /pws/zycbt007-comis = 'C'.
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-c_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
itab_zycbe033-c_newko = itab_zyglt316-konth.
* << Fim da inclusão
ELSE.
itab_zycbe033-c_newko = itab_aux2-lifnr.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'KONTO'
text-117.
IF wa_zycbt007-comis EQ 'A'.
IF itab_aux2-flag <> 'X'.
itab_zycbe033-newbs = '01'.
itab_zycbe033-newbs1 = '31'.
...
...
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.
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
DATA: v_codpad TYPE /pws/zycbt037-codpad.
* << Fim da inclusão
PERFORM clear_date_batch.
v_trans = 'F-30'.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
v_codeven = '004G'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
CLEAR: v_parvw, itab_zycbt017.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = /pws/zycbe031-nrcorresp
nrparcf = /pws/zycbe031-nrparcf
gsberf = /pws/zycbe031-gsberf.
SELECT SINGLE codpad
FROM /pws/zycbt037
INTO v_codpad
WHERE parvw = itab_zycbt017-parvw.
CONCATENATE '004' v_codpad INTO v_codeven.
* << Fim da inclusão
IF /pws/zycet037-comis_provisao EQ '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
v_codaux = /pws/zycet010-lifnr.
ELSEIF /pws/zycet037-comis_provisao EQ '1'.
v_codaux = itab_zycet013-lifnr.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = text-094.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSE' AND
codeven = v_codeven.
* << Fim da inclusão
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = text-034
AND bukrs = /pws/zycbe031-bukrs.
IF /pws/zycbt007-comis = 'C'.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = text-034 AND
tpcodaux = 'C' AND
codaux = v_codaux.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = text-034 AND
tpcodaux = 'C' AND
codaux = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
CLEAR itab_zyglt316.
REFRESH itab_zyglt316.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'DSE'
codaux1 = itab_zycbt017-parvw
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_rateio2.
CLEAR: itab_aux2.
REFRESH: itab_aux2.
PERFORM seleciona_zycbt030.
LOOP AT itab_zycbt030_a.
IF /pws/zycet037-comis_provisao EQ '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
...
...
/pws/zycbe031-waers
/pws/zycbt007-waersb
itab_zycbe033-kursf.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE itab_zyglt321-cpocb .
WHEN 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDCASE.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
CLEAR: v_ms.
CASE itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbe033-xblnr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
WHEN 'NRINVOIC+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nrinvoic v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN 'NREMB+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nremb v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN OTHERS.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
WHEN 'ZFBDT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
WHEN 'DTINCL'.
itab_zycbe033-zfbdt = /pws/zycbe031-dtboleto.
ENDCASE.
WHEN 'VALUT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
WHEN 'DTLINCL'.
itab_zycbe033-d_valut = /pws/zycbe031-dtboleto.
itab_zycbe033-c_valut = /pws/zycbe031-dtboleto.
ENDCASE.
* << Fim da inclusão
WHEN 'ZUONR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
CASE itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbe033-d_zuonr = /pws/zycbe031-nrinvoic.
itab_zycbe033-c_zuonr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
PERFORM verify_null_field USING /pws/zycbe031-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
PERFORM verify_null_field USING /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
itab_zycbe033-c_gsber = itab_zycbt017-gsberf.
itab_zycbe033-d_gsber = itab_zycbt017-gsberf.
itab_zycbe033-agkon = itab_zycbt017-kunag.
itab_zycbe033-agkoa = 'D'.
...
...
itab_zycbe033-cpochv = v_cpochv.
PERFORM verify_null_field USING /pws/zycbe031-dtboleto
'DTPAGTO'
text-118.
itab_zycbe033-budat = /pws/zycbe031-dtboleto.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
* << Fim da exclusão
PERFORM define_cambio USING /pws/zycbe031-dtboleto
/pws/zycbe031-waers
/pws/zycbt007-waersb
itab_zycbe033-kursf.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE itab_zyglt321-cpocb .
WHEN 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDCASE.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR: v_ms.
CASE itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-xblnr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
WHEN 'NRINVOIC+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nrinvoic v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN 'NREMB+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nremb v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN OTHERS.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDCASE.
WHEN 'ZFBDT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
WHEN 'DTINCL'.
itab_zycbe033-zfbdt = /pws/zycbe031-dtboleto.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
WHEN 'VALUT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
WHEN 'DTLINCL'.
itab_zycbe033-d_valut = /pws/zycbe031-dtboleto.
itab_zycbe033-c_valut = /pws/zycbe031-dtboleto.
ENDCASE.
* << Fim da inclusão
WHEN 'ZUONR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_zuonr = /pws/zycbe031-nrinvoic.
itab_zycbe033-c_zuonr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbe033-d_sgtxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ENDIF.
* << Fim da inclusão
PERFORM verify_null_field USING /pws/zycbe031-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
PERFORM verify_null_field USING /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbe033-augtx IS INITIAL.
* << Fim da inclusão
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
ENDIF.
* << Fim da inclusão
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
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.
APPEND itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
...
...
itab_zycbe033-cpochv = v_cpochv.
PERFORM verify_null_field USING /pws/zycbe031-dtboleto
'DTPAGTO'
text-118.
itab_zycbe033-budat = /pws/zycbe031-dtboleto.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
* << Fim da exclusão
PERFORM define_cambio USING /pws/zycbe031-dtboleto
/pws/zycbe031-waers
/pws/zycbt007-waersb
itab_zycbe033-kursf.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE itab_zyglt321-cpocb .
WHEN 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDCASE.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CLEAR: v_ms.
CASE itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-xblnr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
WHEN 'NRINVOIC+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nrinvoic v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN 'NREMB+MS'.
CONCATENATE sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO v_ms.
CONCATENATE itab_zycbt017-nremb v_ms
INTO itab_zycbe033-xblnr SEPARATED BY space.
WHEN OTHERS.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDCASE.
WHEN 'ZFBDT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
WHEN 'DTINCL'.
itab_zycbe033-zfbdt = /pws/zycbe031-dtboleto.
ENDCASE.
WHEN 'VALUT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
WHEN 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
WHEN 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
WHEN 'DTLINCL'.
itab_zycbe033-d_valut = /pws/zycbe031-dtboleto.
itab_zycbe033-c_valut = /pws/zycbe031-dtboleto.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
CASE itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_zuonr = /pws/zycbe031-nrinvoic.
itab_zycbe033-c_zuonr = /pws/zycbe031-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
WHEN 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
WHEN OTHERS.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
IF itab_zycbe033-d_sgtxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
* << Fim da inclusão
PERFORM verify_null_field USING /pws/zycbe031-bukrs
'BUKRS'
text-010.
itab_zycbe033-bukrs = /pws/zycbe031-bukrs.
PERFORM verify_null_field USING /pws/zycbe031-waers
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* << Fim da exclusão
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'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-agkon = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
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.
APPEND itab_zycbe033.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
MOVE 'X' TO v_nkunag.
ENDIF.
ENDLOOP.
IF v_nkunag EQ 'X'.
MESSAGE i061 WITH text-062 text-134.
v_erro = 1.
EXIT.
ENDIF.
PERFORM clear_date_batch.
PERFORM get_parameters_comissao.
* >> Início da exclusão: FORM CONTAB_COMIS_CG
IF /pws/zycbt007-comis = 'C' OR
/pws/zycbt007-comis = 'R'.
READ TABLE itab_zycbt012a WITH KEY chlanc = 'C'.
ENDIF.
* << Fim da exclusão
PERFORM verifica_rateio1.
LOOP AT itab_aux2.
CLEAR v_chave.
IF itab_aux2-flag NE 'X'.
IF /pws/zycbt007-comis = 'C' OR
/pws/zycbt007-comis = 'R' .
itab_zycbe033-newbs = '40'.
ELSE.
itab_zycbe033-newbs = '21'.
ENDIF.
ELSE.
IF /pws/zycbt007-comis = 'C' OR
/pws/zycbt007-comis = 'R' .
itab_zycbe033-newbs = '50'.
ELSE.
itab_zycbe033-newbs = '31'.
ENDIF.
ENDIF.
IF /pws/zycbt007-comis = 'C' OR
/pws/zycbt007-comis = 'R' .
* >> Início da exclusão: FORM CONTAB_COMIS_CG
itab_zycbe033-d_newko = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_COMIS_CG
itab_zycbe033-d_newko = itab_zyglt316-konth.
* << Fim da inclusão
ELSE.
itab_zycbe033-d_newko = itab_selreg_aux-lifnr.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-012.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = itab_zycbt017-kunag.
PERFORM verify_null_field USING itab_zycbe033-agkon
'AGKON'
...
...
ENDIF.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
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.
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
data: v_parvw type /pws/zycbt037-parvw.
* << Fim da inclusão
v_trans = 'F-30'.
SELECT * FROM /pws/zycbt007
UP TO 1 ROWS
WHERE bukrs = itab_selreg_aux-bukrs.
ENDSELECT.
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = text-131.
v_codeven = '004G'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
concatenate '004' itab_selreg_aux-codp into v_codeven.
clear itab_zyglt321.
refresh itab_zyglt321.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'DSE' and
codeven = v_codeven.
* << Fim da inclusão
v_codaux = itab_selreg_aux-lifnr.
CLEAR wa_zycbt011.
SELECT * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = text-034.
ENDSELECT.
IF /pws/zycbt007-comis = 'C' OR
/pws/zycbt007-comis = 'R' .
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = text-034 AND
tpcodaux = 'C' AND
codaux = v_codaux.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = text-034 AND
tpcodaux = 'C' AND
codaux = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
clear itab_zyglt316.
refresh itab_zyglt316.
select single parvw
from /pws/zycbt037
into v_parvw
where codpad = itab_selreg_aux-codp.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = itab_selreg_aux-bukrs
ktosl = 'DSE'
codaux1 = v_parvw
tables
account = itab_zyglt316
exceptions
key_not_found = 1
rules_not_found = 2
others = 3.
if sy-subrc eq 0.
read table itab_zyglt316 index 1.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_rateio1.
DATA: v_vlaux LIKE /pws/zycbt030-kwert.
PERFORM seleciona_zycbt030.
CLEAR: itab_aux2.
REFRESH: itab_aux2.
LOOP AT itab_zycbt030_a.
CLEAR itab_aux2.
...
...
itab_zycbe033-tabela = text-131.
itab_zycbe033-cpochv = itab_selreg_aux-nrchave.
itab_zycbe033-budat = v_datalanc.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
ENDIF.
* >> Início da exclusão: FORM DADOS_BATCH_COMIS
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
clear itab_zycbt017.
read table itab_zycbt017 with key nrinvoic = itab_selreg_aux-nrchave
gsberf = itab_selreg_aux-gsberf
nrparcf = itab_selreg_aux-nrparcf.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
case itab_zyglt321-cpocb .
when 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
when others.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endcase.
* << Fim da inclusão
WHEN 'XBLNR'.
* >> Início da exclusão: FORM DADOS_BATCH_COMIS
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
clear: v_ms.
case itab_zyglt321-cpocb .
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM DADOS_BATCH_COMIS
itab_zycbe033-xblnr = itab_selreg_aux-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
when 'NRINVOIC+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nrinvoic v_ms
into itab_zycbe033-xblnr separated by space.
when 'NREMB+MS'.
concatenate sy-uzeit+2(2) ':' sy-uzeit+4(2) into v_ms.
concatenate itab_zycbt017-nremb v_ms
into itab_zycbe033-xblnr separated by space.
when others.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endcase.
when 'ZFBDT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
when 'DTINCL'.
itab_zycbe033-zfbdt = v_data2.
endcase.
when 'VALUT'.
case itab_zyglt321-cpocb.
when 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
when 'DTINVOIC'.
itab_zycbe033-d_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
when 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
when 'DTLINCL'.
itab_zycbe033-d_valut = v_data2.
itab_zycbe033-c_valut = v_data2.
* << Fim da inclusão
ENDCASE.
WHEN 'ZUONR'.
* >> Início da exclusão: FORM DADOS_BATCH_COMIS
CASE itab_zycbt013-cpocb.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
case itab_zyglt321-cpocb.
* << Fim da inclusão
WHEN 'NRINVOIC'.
* >> Início da exclusão: FORM DADOS_BATCH_COMIS
itab_zycbe033-d_zuonr = itab_selreg_aux-nrchave.
itab_zycbe033-c_zuonr = itab_selreg_aux-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt017-nrinvoic.
when 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
itab_zycbe033-c_zuonr = itab_zycbt017-nremb.
when others.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
if itab_zycbe033-d_sgtxt is initial.
* << Fim da inclusão
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM DADOS_BATCH_COMIS
endif.
* << Fim da inclusão
PERFORM verify_null_field USING itab_selreg_aux-bukrs
'BUKRS'
text-007.
itab_zycbe033-bukrs = itab_selreg_aux-bukrs.
...
...
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 = '+'.
IF /pws/zycbt007-comis = 'A' OR /pws/zycbt007-comis = ' '.
itab_partidas-agkon = itab_selreg_aux-lifnr.
itab_partidas-agkoa = 'K'.
ELSE.
itab_partidas-agkoa = 'S'.
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkon = itab_zycbt012a-saknr1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_partidas-agkon = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
SELECT * FROM bkpf
WHERE bukrs = itab_selreg_aux-bukrs
AND belnr = itab_zycbt032a-belnr
AND gjahr = itab_zycbt032a-budat(4).
ENDSELECT.
itab_partidas-dtdocto = bkpf-budat.
APPEND itab_partidas.
ENDLOOP.
LOOP AT itab_selreg_aux.
...