CE PLUS - Nota 001009
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 13/03/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:59:43
Descrição da Nota: PROCESSAR BOLETO COMISSÃO DE AGENTE - DUMP EDIÇÃO CAMPOS
Sintoma
Dump ao processar boleto de comissão de agente. O dump não ocorre
com todas as faturas. Campos no complemento do boleto fechado para
edição.
Solução
Considerar a parcela da invoice no tratamento do processar boleto.
Permitir modificação dos campos Banco Operador, Taxa Negociada,
Dt. Lançto. Prin e Forma Pg. Prin. e deixar o botão SAVE ativo quando
for comissão de agente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01009 Data: 13/03/2006 Hora: 10:30:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01009
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00105
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO COMISSÃO DE AGENTE - DUMP EDIÇÃO CAMPOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO COMISSÃO DE AGENTE DUMP COMPLEMENT DO BOLETO BOTÃO SAVE
MODIFICAÇÃO BANCO OPERADOR TAXA NEGOCIADA DT.LANÇTO.PRIN FORMA PG. PRIN
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB110
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR102
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB110
STATUS: 0100
ATRIBUTOS DE STATUS
TEXTO BREVE: GL - Boleto
CATEGORIA DE STATUS
(X) - STATUS DIÁLOGO
(_) - CAIXA DE DIÁLOGO
(_) - MENU DE CONTEXTO
Teclas de Função - Ativação do botão SAVE - Ctrl+S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
Contexto: Form Desabilitar
...
* Desabilita Banco Operador IR quando não for Juros de DP -
* Cinthia - 07/07/03
IF screen-name = '/PWS/ZYCBE031-BCOOPIR'.
IF /pws/zycbe031-tpcontr(1) EQ 'D' AND
/pws/zycbe031-vlir > 0.
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* Desabilita campos para Comissão CG
* <<Inicio Exclusão>>
* IF ( v_parvw EQ 'CG' OR
* v_parvw EQ 'AD' OR
* v_parvw EQ 'DA' ) AND
** Não contabiliza na conta razão de Provisão de Agente
* /pws/zycbt007-comis NE 'R'. " Daniela - 04/06/03
*
* LOOP AT SCREEN.
* screen-input = '0'.
* MODIFY SCREEN.
* ENDLOOP.
* ENDIF.
* <<Fim Exclusão>>
SELECT * FROM /pws/zyglt009 INTO TABLE itab_zyglt009
WHERE bukrs EQ /pws/zycbe031-bukrs.
IF sy-subrc = 0.
READ TABLE itab_zyglt009 INDEX 1.
LOOP AT SCREEN.
IF itab_zyglt009-contbrl IS INITIAL OR
( /pws/zycbe031-mdcorresp(1) = 'E' AND
/pws/zycbe031-tpcontr(1) NE 'D' ).
IF screen-name = '/PWS/ZYCBE031-FRPAGTOIR' OR
screen-name = '/PWS/ZYCBE031-BCOIR' OR
screen-name = '/PWS/ZYCBE031-AGENCIAIR' OR
screen-name = '/PWS/ZYCBE031-CONTAIR' OR
screen-name = '/PWS/ZYCBE031-NRBCOIR' OR
screen-name = '/PWS/ZYCBE031-PRACAIR' OR
screen-name = '/PWS/ZYCBE031-CONTABREAL' OR
screen-name = 'V_FORMAPGTOIR' OR
screen-name = 'V_BCOIR'.
screen-input = '0'.
MODIFY SCREEN.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF screen-name = '/PWS/ZYCBE031-BELNR_COMP'.
IF /pws/zycbe031-mdcorresp EQ 'EL' OR
/pws/zycbe031-mdcorresp EQ 'ED' OR
/pws/zycbe031-mdcorresp EQ 'CP'.
IF itab_zyglt009-comp_trans EQ 'C'.
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
ELSE.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
...
endform.
Contexto: Form exibe_altera_0100.
...
IF sy-tcode = '/PWS/ZYCB110_E'.
SET TITLEBAR '001E'.
ELSE.
SET TITLEBAR '0200'.
ENDIF.
PERFORM descricoes.
ENDIF.
v_vlmiaux = /pws/zycbe031-vlmi.
v_vlmiiraux = /pws/zycbe031-vlmiir.
IF ( v_parvw EQ 'CG' OR
v_parvw EQ 'AD' OR
v_parvw EQ 'DA' ) AND
* Não contabiliza na conta razão de Provisão de Agente
/pws/zycbt007-comis NE 'R'. " Daniela - 04/06/03
* <<Inicio Exclusão>>
* itab_pf_status-fcode = 'SAVE'.
* APPEND itab_pf_status.
* <<Fim Exclusão>>
itab_pf_status-fcode = 'CHANGE'.
APPEND itab_pf_status.
ENDIF.
IF sy-tcode = '/PWS/ZYCB110_E'.
itab_pf_status-fcode = 'SAVE'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'DEL'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'CHANGE'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'PAG'.
APPEND itab_pf_status.
v_status_s = '0'.
ENDIF.
...
endform.
Contexto: Form desabilitar_100.
...
* Para não aceitar CIDE sem IR
IF wa_cols-screen-name = '/PWS/ZYCBT031-BELNR_CIDE' OR
wa_cols-screen-name = 'V_BELNR_CIDE' OR
wa_cols-screen-name = 'V_VLCIDE' OR
wa_cols-screen-name = '/PWS/ZYCBE064-VLMICIDE'.
IF /pws/zycbe031-vlcide <= 0.
wa_cols-screen-input = '0'.
wa_cols-invisible = '1'.
ELSE.
wa_cols-invisible = '0'.
ENDIF.
ENDIF.
IF /pws/zycbe031-mdcorresp EQ 'CP' AND
wa_cols-screen-group1 NE 'REM'.
wa_cols-screen-input = '0'.
wa_cols-screen-invisible = '1'.
wa_cols-invisible = '1'.
ENDIF.
MODIFY tc_cont-cols FROM wa_cols.
ENDLOOP.
ENDIF.
* <<Inicio Exclusão>>
** Desabilita campos para Comissão CG
* IF ( v_parvw EQ 'CG' OR
* v_parvw EQ 'AD' OR
* v_parvw EQ 'DA' ) AND
** Não contabiliza na conta razão de Provisão de Agente
* /pws/zycbt007-comis NE 'R'. " Daniela - 04/06/03
*
* LOOP AT SCREEN.
* screen-input = '0'.
* MODIFY SCREEN.
* ENDLOOP.
* ENDIF.
* <<Fim Exclusão>>
tc_cont-line_sel_mode = 0.
tc_dados-line_sel_mode = 0.
ENDFORM. " desabilitar_100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
Contexto: FORM seleciona_zycbt030.
...
LOOP AT itab_zycbt017.
* Christian - Chamado 131538 - 17/01/2004 - Inicio
SELECT /pws/zycbt030~nrinvoic /pws/zycbt030~nrparcf
/pws/zycbt030~vbeln /pws/zycbt030~gsberf
/pws/zycbt030~belnr /pws/zycbt030~kwert /pws/zycbt030~waers
/pws/zycbt030~kostl /pws/zycbt030~prctr /pws/zycbt030~fipos
/pws/zycbt030~belnr6 /pws/zycbt030~budat
/pws/zycbt030~vinc /pws/zycbt030~liqu /pws/zycbt017~zterm
APPENDING CORRESPONDING FIELDS OF TABLE itab_zycbt030_a
FROM /pws/zycbt030
INNER JOIN /pws/zycbt017
ON /pws/zycbt017~nrinvoic = itab_zycbt017-nrinvoic
AND /pws/zycbt017~nrparcf = itab_zycbt017-nrparcf
AND /pws/zycbt017~nrinvoic = /pws/zycbt030~nrinvoic
AND /pws/zycbt017~gsberf = /pws/zycbt030~gsberf.
* Christian - Chamado 131538 - 17/01/2004 - Fim
ENDLOOP.
LOOP AT itab_zycbt030_a.
IF v_nrfat IS INITIAL.
MOVE:itab_zycbt030_a-nrinvoic TO v_nrfat,
* Christian - Chamado 131538 - 19/01/2004 - Inicio
* <<Inicio Exclusão>>
* itab_zycbt030_a-nrinvoic TO v_nrpf.
* <<Fim Exclusão>>
* <<Inicio Inclusão>>
itab_zycbt030_a-nrparcf TO v_nrpf.
* <<Fim Inclusão>>
* Christian - Chamado 131538 - 19/01/2004 - Fim
ENDIF.
IF itab_zycbt030_a-nrinvoic NE v_nrfat
* <<Inicio Inclusão>>
AND itab_zycbt030_a-nrparcf NE v_nrpf.
* <<Fim Inclusão>>
itab_zycbt030_a-s_kwert = v_s_kwert.
MODIFY itab_zycbt030_a TRANSPORTING s_kwert
WHERE nrinvoic EQ v_nrfat
* Christian - Chamado 131538 - 19/01/2004 - Inicio
AND nrparcf EQ v_nrpf.
CLEAR v_s_kwert.
MOVE:itab_zycbt030_a-nrinvoic TO v_nrfat,
* <<Inicio Exclusão>>
* itab_zycbt030_a-nrinvoic TO v_nrpf.
* <<Fim Exclusão>>
* <<Inicio Inclusão>>
itab_zycbt030_a-nrparcf TO v_nrpf.
* <<Fim Inclusão>>
* Christian - Chamado 131538 - 19/01/2004 - Fim
ENDIF.
SELECT SINGLE * FROM /pws/zycet002
WHERE nrseq = itab_zycbt030_a-nrinvoic
AND vbeln_vf = itab_zycbt030_a-vbeln.
IF itab_zycbt030_a-budat EQ '00000000' AND
itab_zycbt030_a-belnr6 IS INITIAL.
itab_zycbt030_a-budat = /pws/zycet002-fkdat.
MODIFY itab_zycbt030_a.
ENDIF.
IF /pws/zycet002-shkzg = 'X'. " Indica que é devolução
v_s_kwert = v_s_kwert - itab_zycbt030_a-kwert.
itab_zycbt030_a-flag = 'X'.
MODIFY itab_zycbt030_a.
ELSE.
SELECT SINGLE * FROM /pws/zycet020
WHERE auart EQ /pws/zycet002-auart. " Indica que é devolução
IF /pws/zycet020-tipodoc = 'OC'. " Subtrair
v_s_kwert = v_s_kwert - itab_zycbt030_a-kwert.
itab_zycbt030_a-flag = 'X'.
MODIFY itab_zycbt030_a.
ELSE.
v_s_kwert = v_s_kwert + itab_zycbt030_a-kwert.
* <<Inicio Inclusão>>
itab_zycbt030_a-s_kwert = v_s_kwert.
MODIFY itab_zycbt030_a.
* <<Fim Inclusão>>
ENDIF.
ENDIF.
ENDLOOP.
itab_zycbt030_a-s_kwert = v_s_kwert.
MODIFY itab_zycbt030_a TRANSPORTING s_kwert
WHERE nrinvoic EQ itab_zycbt030_a-nrinvoic
* Christian - Chamado 131538 - 19/01/2004 - Inicio
AND nrparcf EQ itab_zycbt030_a-nrparcf.
* Christian - Chamado 131538 - 19/01/2004 - Fim
ENDFORM. " seleciona_zycbt030
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
DATA: BEGIN OF itab_zycbt157 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt157.
DATA: END OF itab_zycbt157.
* Chamado 285091 - Alexandre Adhmann - 02.02.2006 - INICIO
DATA: BEGIN OF itab_zycet037 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet037.
DATA: END OF itab_zycet037.
* Chamado 285091 - Alexandre Adhmann - 02.02.2006 - FIM
DATA: BEGIN OF itab_zycet013 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet013.
DATA: END OF itab_zycet013.
DATA: BEGIN OF itab_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001.
DATA: END OF itab_zycet001.
* <<Inicio Inclusão>>
DATA: BEGIN OF itab_zycbt007 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt007.
DATA: END OF itab_zycbt007.
* <<Fim Inclusão>>
* CHAMADO 225475 - PWS35557200 - 13/04/2005 - INICIO
TYPES: BEGIN OF t_nrinvoic,
nrinvoic TYPE /pws/zycbt017-nrinvoic,
END OF t_nrinvoic.
DATA itab_zycbt017 TYPE STANDARD TABLE OF /pws/zycbt017
WITH HEADER LINE.
DATA itab_zycet013_aux TYPE STANDARD TABLE OF /pws/zycet013
WITH HEADER LINE.
DATA itab_nrinvoic TYPE STANDARD TABLE OF t_nrinvoic
WITH HEADER LINE.
* CHAMADO 225475 - PWS35557200 - 13/04/2005 - FIM
Contexsto: FORM seleciona_comissao.
...
MOVE:
text-032 TO itab_selreg-mod,
itab_zycet010-nrseq TO itab_selreg-nrchave,
* 218457 - 07/03/2005 - Luciana - Início
* /pws/zycet001-nremb TO itab_selreg-docto,
* 218457 - Luciana - 07/03/2005 - Fim
'/PWS/ZYCET010' TO itab_selreg-tab,
v_tipo TO itab_selreg-tipo,
itab_zycbt017-bukrs TO itab_selreg-bukrs,
* Ana Paula - Chamado 196960 - 10/11/2004 - Início
itab_zycbt017-nrparcf TO itab_selreg-nrparcf,
* Ana Paula - Chamado 196960 - 10/11/2004 - Fim
itab_zycet010-dtvencto TO itab_selreg-dtvencto,
v_taxa_dia TO itab_selreg-txdia,
itab_zycet010-waers TO itab_selreg-waers,
itab_zycet010-vlcomis TO itab_selreg-vlme,
v_usd TO itab_selreg-vlusd,
itab_zycbt017-kunag TO itab_selreg-recebedor,
itab_zycbt017-gsberf TO itab_selreg-gsberf,
* <<Inicio Inclusão>>
itab_zycbt017-nrparcf TO itab_selreg-nrparcf,
* <<Fim Inclusão>>
itab_zycet010-lifnr TO itab_selreg-lifnr,
itab_zycet010-belnr TO itab_selreg-belnr_comis,
itab_zycet010-dtlanc TO itab_selreg-dtlanc,
itab_zycet010-nrseq TO itab_selreg-nrinvoic,
itab_zycet010-ir_calc TO itab_selreg-vlir, "Cham. 168264
itab_zycet010-aliq_ir TO itab_selreg-aliqir, "Cham. 168264
'EL' TO itab_selreg-fmd.
READ TABLE itab_zycbt037 WITH KEY parvw = itab_zycbt017-parvw.
IF sy-subrc = 0.
MOVE itab_zycbt037-codpad TO itab_selreg-codp.
ENDIF.
* CHAMADO 223333 - 01/04/2005 - INICIO
READ TABLE itab_zycet013 WITH KEY nrseq = itab_zycet010-nrseq.
IF sy-subrc EQ 0.
itab_selreg-prctr = itab_zycet013-prctr.
ENDIF.
* CHAMADO 223333 - 01/04/2005 - FIM
IF ( itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
/pws/zycbt007-comis NE 'R'.
MOVE 'N' TO itab_selreg-fcamb.
ELSE.
MOVE 'S' TO itab_selreg-fcamb.
ENDIF.
APPEND itab_selreg.
* Maurício - Chamado 78408 - 17/06/03
CLEAR itab_selreg.
* Maurício - Fim Alteração - 17/06/03
ENDLOOP.
...
LOOP AT itab_zycet013.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycet013-nrseq.
IF sy-subrc EQ 0.
CHECK itab_zycbt017-parvw EQ 'AR'.
READ TABLE itab_zycet013_aux WITH KEY
nrseq = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr
gsber = itab_zycet013-gsber
belnr = itab_zycet013-belnr.
IF sy-subrc EQ 0.
itab_zycet013_aux-vlme =
itab_zycet013_aux-vlme + itab_zycet013-vlme.
MODIFY itab_zycet013_aux INDEX sy-tabix TRANSPORTING vlme.
ELSE.
itab_zycet013_aux = itab_zycet013.
APPEND itab_zycet013_aux.
ENDIF.
ELSE.
DELETE itab_zycet013.
CONTINUE.
ENDIF.
ENDLOOP.
LOOP AT itab_zycet013_aux.
DELETE itab_zycet013
WHERE nrseq EQ itab_zycet013_aux-nrseq AND
lifnr EQ itab_zycet013_aux-lifnr AND
gsber EQ itab_zycet013_aux-gsber AND
belnr EQ itab_zycet013_aux-belnr.
IF sy-subrc EQ 0.
APPEND itab_zycet013_aux TO itab_zycet013.
ENDIF.
ENDLOOP.
* CHAMADO 225475 - PWS35557200 - 13/04/2005 - FIM
* <<Inicio Inclusão>>
SELECT * FROM /pws/zycbt007 INTO TABLE itab_zycbt007.
* <<Fim Inclusão>>
LOOP AT itab_zycet013.
* Chamado 230458 - Renato - 06.05.2005 - Inicio
* SELECT SINGLE * FROM /pws/zycbt017
* WHERE nrinvoic EQ itab_zycet013-nrseq.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycet013-nrseq.
* Chamado 230458 - Renato - 06.05.2005 - Fim
* CHAMADO 225475 - PWS35557200 - 13/04/2005 - INICIO
** Verifica se emb. já foi transferido p/ o Câmbio
* IF sy-subrc NE 0.
* DELETE itab_zycet013.
* CONTINUE.
* ENDIF.
* CHAMADO 225475 - PWS35557200 - 13/04/2005 - FIM
* Chamado 230127 - Renato - 03.05.2005 - Inicio
READ TABLE itab_zycbt089 WITH KEY bukrs = itab_zycbt017-bukrs.
* SELECT SINGLE * FROM /pws/zycbt006
* WHERE nrinvoic EQ itab_zycet013-nrseq.
READ TABLE itab_zycbt006 WITH KEY nrinvoic = itab_zycet013-nrseq.
* Chamado 230127 - Renato - 03.05.2005 - Fim
* Verifica se o sistema está parametrizado para comissão CG
* <<Inicio Inclusão>>
READ TABLE itab_zycbt007 WITH KEY bukrs = itab_zycbt017-bukrs.
* <<Fim Inclusão>>
IF ( itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
* <<Inicio Exclusão>>
* ( /pws/zycbt007-liq_com_cg NE 'RP' OR
* ( /pws/zycbt007-comis EQ 'R' AND sy-subrc NE 0 ) ).
* <<Fim Exclusão>>
* <<Inicio Inclusão>>
( itab_zycbt007-liq_com_cg NE 'RP' OR
( itab_zycbt007-comis EQ 'R' AND sy-subrc NE 0 ) ).
* <<Fim Inclusão>>
DELETE itab_zycet013.
CONTINUE.
ENDIF.
* Chamado 230458 - Renato - 06.05.2005 - Inicio
* SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* WHERE parvw EQ itab_zycbt017-parvw.
* ENDSELECT.
* Chamado 230458 - Renato - 06.05.2005 - Fim
CONCATENATE text-031 itab_zycet013-nrseq INTO v_tipo.
CLEAR: v_me, v_usd.
v_me = itab_zycet013-vlme.
* Chamado 168243 - AnaB - 23/06/2004 - inicio
* Chamado 230127 - Renato - 03.05.2005 - Inicio
IF itab_zycbt089-liq_com_ar EQ 'L'.
* Chamado 230127 - Renato - 03.05.2005 - Fim
IF itab_zycbt017-parvw EQ 'AR' OR
itab_zycbt017-parvw EQ 'AT'.
PERFORM verifica_fatura.
* CHAMADO 263752 - 13/10/2005 - INICIO
IF itab_selreg-fat_liq IS INITIAL.
CONTINUE.
ENDIF.
* CHAMADO 263752 - 13/10/2005 - FIM
ENDIF.
* Chamado 230127 - Renato - 03.05.2005 - Inicio
ELSEIF itab_zycbt089-liq_com_ar EQ 'A'.
* Chamado 230127 - Renato - 03.05.2005 - Fim
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
* Chamado 230127 - Renato - 03.05.2005 - Inicio
ELSEIF itab_zycbt089-liq_com_ar EQ 'X'.
* Chamado 230127 - Renato - 03.05.2005 - Fim
PERFORM verifica_fatura.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
ENDIF.
ENDIF.
...
MOVE:
text-032 TO itab_selreg-mod,
itab_zycet013-nrseq TO itab_selreg-nrchave,
itab_zycet013-nrseq TO itab_selreg-docto,
'/PWS/ZYCET013' TO itab_selreg-tab,
v_tipo TO itab_selreg-tipo,
itab_zycbt017-bukrs TO itab_selreg-bukrs,
v_taxa_dia TO itab_selreg-txdia,
itab_zycet013-waers TO itab_selreg-waers,
itab_zycet013-vlme TO itab_selreg-vlme,
v_usd TO itab_selreg-vlusd,
itab_zycbt017-kunag TO itab_selreg-recebedor,
itab_zycbt017-gsberf TO itab_selreg-gsberf,
* <<Inicio Inclusão>>
itab_zycbt017-nrparcf TO itab_selreg-nrparcf,
* <<Fim Inclusão>>
itab_zycet013-lifnr TO itab_selreg-lifnr,
itab_zycet013-belnr TO itab_selreg-belnr_comis,
itab_zycet013-dtlanc TO itab_selreg-dtlanc,
itab_zycet013-nrseq TO itab_selreg-nrinvoic,
* /pws/zycbt037-codpad TO itab_selreg-codp,
'EL' TO itab_selreg-fmd,
itab_zycet013-gsber TO itab_selreg-gsberf,
itab_zycet010-ir_calc TO itab_selreg-vlir, "Cham. 168264
itab_zycet010-aliq_ir TO itab_selreg-aliqir, "Cham. 168264
itab_zycet010-dtvencto TO itab_selreg-dtvencto, "Cham. 168264
itab_zycet013-prctr TO itab_selreg-prctr.
READ TABLE itab_zycbt037 WITH KEY parvw = itab_zycbt017-parvw.
IF sy-subrc = 0.
MOVE itab_zycbt037-codpad TO itab_selreg-codp.
ENDIF.
IF ( itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
/pws/zycbt007-comis NE 'R'.
MOVE 'N' TO itab_selreg-fcamb.
ELSE.
MOVE 'S' TO itab_selreg-fcamb.
ENDIF.
APPEND itab_selreg.
* Maurício - Chamado 78408 - 17/06/03
CLEAR itab_selreg.
* Maurício - Fim Alteração - 17/06/03
ENDLOOP.
ENDIF. "285091
CLEAR: v_tipo, v_taxa_dia, itab_zycbt017, itab_zycbt037,
itab_selreg.
ENDFORM. " seleciona_comissao