CE PLUS - Nota 006404
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 16/04/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:54:00
Descrição da Nota: PROCESSAR BOLETO - STATUS DA COMISSÃO
Sintoma
o usuario nao consegue ver o status da comissão quando vai processar o boleto ou consultar o
relatorio de comissão de agente.
Solução
adicionado código para verificação do status da comissão.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06404 Data: 16/04/2008 Hora: 16:03:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06404
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00043
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00168 - 00001 - 6.0 - 00021 - PAGAMENTO DA COMISSÃO DE AGENTE (PARÂMETRO FATURA DEVE ESTAR LIQU
00359 - 00002 - 6.0 - 00021 - PROBLEMAS COM ÍCONES: O ABC DÁ DUMP E O CHAMADA DE REL. NÃO TEM F
00874 - 00003 - 6.0 - 00022 - RELATÓRIO DE COMISSÃO DE AGENTE
01798 - 00004 - 6.0 - 00024 - REL. COMISSÃO DE AGENTE NÃO EXIBE VALOR COMISSÃO E CENTRO DE LUCR
03270 - 00005 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03676 - 00006 - 7.0 - 00001 - PROCESSAR BOLETO COMISSÃO DE AGENTE - DUPLICAÇÃO
04598 - 00008 - 7.0 - 00003 - PROCESSAR BOLETO
04716 - 00009 - 7.0 - 00003 - PROCESSAR BOLETO
04741 - 00010 - 7.0 - 00003 - EXPORTAÇÃO ROTINA DE PAGAMENTO PROCESSAR BOLETO
05129 - 00011 - 7.0 - 00003 - COMISSÃO DE AGENTE - SALDO FATURA
05166 - 00012 - 7.0 - 00003 - PROCESSAR BOLETO - PONTO DE EXIT PBI003
05388 - 00013 - 7.0 - 00003 - COMPLEMENTO DO BOLETO PROCESSAR BOLETO-DESPESA-EXIT CBI006 CBF004
05718 - 00014 - 7.0 - 00004 - RELATÓRIO DE COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO - STATUS DA COMISSÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO - STATUS DA COMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYGL007 0117
REPS /PWS/MZYGL007I01
REPS /PWS/MZYGL007O01
REPS /PWS/ZYCBI102
REPS /PWS/ZYCBR027
REPS /PWS/ZYCBR102
REPS /PWS/ZYGLR002
REPT /PWS/ZYCBR027
REPT /PWS/ZYCBR102
REPT /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0117
* Efetuado o download da tela 0117 para arquivo, favor solicitar ao produto.
MODIFICAR FRAME "AVERB_RE"
Comprimento Visível 57
Texto RE precisa estar averbado para pagto. da comiss
MODIFICAR FRAME "COMIS_AR"
Comprimento Visível 43
MODIFICAR FRAME "LIQ_COM_AR"
Comprimento Visível 43
EXCLUIR CAIXA DE VERIFICAÇÃO "V_LIQ_COM_AR1"
EXCLUIR CHTXT "V_LIQ_COM_AR1"
INCLUIR BOTÃO RADIO "V_LIQ_COM_AR1"
Comprimento Visível 1
Linha 7
Coluna 47
Formato CHAR
Texto _
Código função OK
INCLUIR RDTXT "V_LIQ_COM_AR1"
Comprimento Visível 34
Linha 7
Coluna 49
Formato CHAR
Texto Fatura não precisa estar liquidada
EXCLUIR CAIXA DE VERIFICAÇÃO "V_LIQ_COM_AR2"
EXCLUIR CHTXT "V_LIQ_COM_AR2"
INCLUIR BOTÃO RADIO "V_LIQ_COM_AR2"
Comprimento Visível 1
Linha 8
Coluna 47
Formato CHAR
Texto _
Código função OK
INCLUIR RDTXT "V_LIQ_COM_AR2"
Comprimento Visível 27
Linha 8
Coluna 49
Formato CHAR
Texto Fatura deve estar liquidada
EXCLUIR CAIXA DE VERIFICAÇÃO "V_LIQ_COM_AR3"
EXCLUIR CHTXT "V_LIQ_COM_AR3"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007I01
...
IF v_liq_com_ag1 = 'X'.
CLEAR /pws/zycbt007-liq_com_cg.
ELSEIF v_liq_com_ag2 = 'X'.
/pws/zycbt007-liq_com_cg = 'RP'.
ENDIF.
IF v_comisar1 = 'X'.
/pws/zyglt009-comis_ar = 'A'.
ELSEIF v_comisar2 = 'X'.
/pws/zyglt009-comis_ar = 'R'.
ENDIF.
* >> Início da exclusão: MODULE SET_CAMPOS_117
IF v_liq_com_ar1 IS INITIAL AND
v_liq_com_ar2 = 'X' AND
v_liq_com_ar3 = 'X'.
/pws/zycbt089-liq_com_ar = 'X'.
ELSEIF v_liq_com_ar1 = 'X'.
/pws/zycbt089-liq_com_ar = 'N'.
ELSEIF v_liq_com_ar2 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_CAMPOS_117
IF v_liq_com_ar1 IS INITIAL.
* << Fim da inclusão
/pws/zycbt089-liq_com_ar = 'L'.
* >> Início da exclusão: MODULE SET_CAMPOS_117
ELSEIF v_liq_com_ar3 = 'X'.
/pws/zycbt089-liq_com_ar = 'A'.
ELSEIF v_liq_com_ar1 IS INITIAL AND
v_liq_com_ar2 IS INITIAL AND
v_liq_com_ar3 IS INITIAL.
CLEAR: /pws/zycbt089-liq_com_ar.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_CAMPOS_117
ELSE.
CLEAR:
/pws/zycbt089-liq_com_ar.
* << Fim da inclusão
ENDIF.
IF v_averb_re_s = 'X'.
/pws/zycbt089-ver_averb = 'X'.
ELSEIF v_averb_re_n = 'X'.
CLEAR /pws/zycbt089-ver_averb.
ELSEIF /pws/zycbt089-ver_averb = 'X'.
v_averb_re_s = 'X'.
ELSEIF /pws/zycbt089-ver_averb = ' '.
v_averb_re_n = 'X'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL007O01
...
IF screen-group1 EQ 'INV'.
screen-active = 0.
ENDIF.
IF screen-name = '/PWS/ZYCBT089-LIQ_AND_COD_CLI'.
IF v_tp_liq_and2 = 'X'.
screen-input = v_status.
ELSE.
screen-input = '0'.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-name = 'V_LIQ_COM_AR1'.
IF v_liq_com_ar1 = 'X'.
screen-input = '1'.
ELSEIF v_liq_com_ar2 = 'X'.
screen-input = '0'.
ELSEIF v_liq_com_ar3 = 'X'.
screen-input = '0'.
ELSEIF v_liq_com_ar1 = ' '.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name = 'V_LIQ_COM_AR2'.
IF v_liq_com_ar1 = 'X'.
screen-input = '0'.
ELSEIF v_liq_com_ar2 = 'X'.
screen-input = '1'.
ELSEIF v_liq_com_ar3 = 'X'.
screen-input = '1'.
ELSEIF v_liq_com_ar2 = ' '.
screen-input = '1'.
ENDIF.
ENDIF.
IF screen-name = 'V_LIQ_COM_AR3'.
IF v_liq_com_ar1 = 'X'.
screen-input = '0'.
ELSEIF v_liq_com_ar2 = 'X'.
screen-input = '1'.
ELSEIF v_liq_com_ar3 = 'X'.
screen-input = '1'.
ELSEIF v_liq_com_ar3 = ' '.
screen-input = '1'.
ENDIF.
ENDIF.
* << Fim da exclusão
IF sy-ucomm EQ 'SAVE' AND NOT screen-name EQ 'TAB_EMPRESA'
AND NOT screen-name EQ 'TAB_MOEDA'
AND NOT screen-name EQ 'TAB_CONTAB'
AND NOT screen-name EQ 'TAB_MOEDA'
AND NOT screen-name EQ 'TAB_CALEND'
AND NOT screen-name EQ 'SS_ROTINA'
AND NOT screen-name EQ 'TAB_GERAL3'
AND NOT screen-name EQ 'TAB_CORRET'
AND NOT screen-name EQ 'TAB_TAXA'
AND NOT screen-name EQ 'TAB_LIMITE'
...
...
v_liq_com_ag2 = 'X'.
CLEAR v_liq_com_ag1.
ENDIF.
IF /pws/zyglt009-comis_ar = 'A'.
v_comisar1 = 'X'.
CLEAR v_comisar2.
ELSEIF /pws/zyglt009-comis_ar = 'R'.
v_comisar2 = 'X'.
CLEAR v_comisar1.
ENDIF.
* >> Início da exclusão: MODULE SET_CAMPOS_117
IF /pws/zycbt089-liq_com_ar = 'N'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_CAMPOS_117
CLEAR:
v_liq_com_ar1,
v_liq_com_ar2.
IF /pws/zycbt089-liq_com_ar IS INITIAL.
* << Fim da inclusão
v_liq_com_ar1 = 'X'.
* >> Início da exclusão: MODULE SET_CAMPOS_117
CLEAR v_liq_com_ar2.
CLEAR v_liq_com_ar3.
ELSEIF /pws/zycbt089-liq_com_ar = 'L'.
v_liq_com_ar2 = 'X'.
CLEAR v_liq_com_ar1.
ELSEIF /pws/zycbt089-liq_com_ar = 'A'.
v_liq_com_ar3 = 'X'.
CLEAR v_liq_com_ar1.
ELSEIF /pws/zycbt089-liq_com_ar = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_CAMPOS_117
ELSE.
* << Fim da inclusão
v_liq_com_ar2 = 'X'.
* >> Início da exclusão: MODULE SET_CAMPOS_117
v_liq_com_ar3 = 'X'.
CLEAR v_liq_com_ar1.
* << Fim da exclusão
ENDIF.
IF v_averb_re_s = 'X'.
/pws/zycbt089-ver_averb = 'X'.
ELSEIF v_averb_re_n = 'X'.
CLEAR /pws/zycbt089-ver_averb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI102
...
bname LIKE /pws/zycbt118-bname,
dtbname LIKE /pws/zycbt118-dtbname,
hrbname LIKE /pws/zycbt118-hrbname,
frggr LIKE /pws/zycbt118-frggr,
vliss LIKE /pws/zycat025-vlimpme,
vlpis LIKE /pws/zycat025-vlimpme,
vlcofins LIKE /pws/zycat025-vlimpme,
vliof LIKE /pws/zycat025-vlimpme,
dtpagtoir LIKE /pws/zycbt002-dtpagtoir,
dtemb LIKE /pws/zycbt119-dtemb,
* >> Início da inclusão:
statusf(15) TYPE c,
* << Fim da inclusão
END OF itab_selreg.
DATA: itab_selreg_aux LIKE itab_selreg OCCURS 100 WITH HEADER LINE.
DATA: v_gera_boleto TYPE c,
v_codretorno TYPE c,
v_modo_bi_ TYPE /pws/zycbt039-modo,
itab_zycbt032_ TYPE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
itab_zycbe033_ TYPE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
itab_zycbt034_ TYPE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,
BEGIN OF wa_despesa,
tabela TYPE /pws/zycbt013-tabela,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
bukrs TYPE /pws/zycbt017-bukrs,
percomis(10) TYPE c,
status(09) TYPE c,
bstkd TYPE vbkd-bstkd,
dtliquida TYPE /pws/zycbt048-dtliquida,
submi TYPE vbak-submi,
vlfob TYPE /pws/zycbt017-vlfob,
vlavinc TYPE /pws/zycbt017-vlavinc,
vlslf TYPE /pws/zycbt017-vlslf,
nrseq_ TYPE /pws/zycbt031-nrseq,
* >> Início da inclusão:
statusf(15) TYPE c,
* << Fim da inclusão
END OF t_registro,
BEGIN OF t_result,
parvw TYPE /pws/zycbt017-parvw,
nrseq TYPE /pws/zycet001-nrseq,
nremb TYPE /pws/zycet001-nremb,
kunag TYPE /pws/zycet002-kunag,
name TYPE lfa1-name1,
name1 TYPE kna1-name1,
status(09) TYPE c,
nbconeg TYPE lfa1-name1,
...
...
dtliquida TYPE /pws/zycbt048-dtliquida,
submi TYPE vbak-submi,
vlfob TYPE /pws/zycbt017-vlfob,
vlavinc TYPE /pws/zycbt017-vlavinc,
vlslf TYPE /pws/zycbt017-vlslf,
nrseq_ TYPE /pws/zycbt031-nrseq,
nrinvoic TYPE /pws/zycbt004-nrinvoic,
nrparcf TYPE /pws/zycbt004-nrparcf,
gsberf TYPE /pws/zycbt004-gsberf,
selk(1) TYPE c,
* >> Início da inclusão:
statusf(15) TYPE c,
* << Fim da inclusão
END OF t_result,
BEGIN OF t_excel,
f1(50) TYPE c,
f2(50) TYPE c,
f3(50) TYPE c,
f4(50) TYPE c,
f5(50) TYPE c,
f6(50) TYPE c,
f7(50) TYPE c,
f23(50) TYPE c,
...
...
v_lin_re TYPE i,
v_lin_bco TYPE i,
v_index TYPE sy-tabix,
v_zlspr TYPE bseg-zlspr,
itab_nrseq TYPE STANDARD TABLE OF t_nrseq
WITH HEADER LINE,
itab_re TYPE STANDARD TABLE OF t_re
WITH HEADER LINE,
itab_bconegoc TYPE STANDARD TABLE OF t_bconegoc
WITH HEADER LINE.
* >> Início da inclusão: FORM SELEC_DADOS_010
DATA: begin of itab_zycbt030 occurs 0.
INCLUDE STRUCTURE /pws/zycbt030.
DATA: END OF itab_zycbt030.
* << Fim da inclusão
SELECT nrseq lifnr dtvencto vlcomis belnr dtpagto dtlanc
FROM /pws/zycet010
INTO TABLE itab_zycet010
WHERE
nrseq IN embarque AND
dtpagto IN dt_pagto AND
lifnr IN benefi
ORDER BY NRSEQ.
IF NOT paga IS INITIAL.
DELETE itab_zycet010 WHERE dtpagto IS initial.
...
...
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_nrseq
WHERE
nrinvoic EQ itab_nrseq-nrseq AND
gsberf IN divisao AND
parvw IN tipcomis AND
bukrs IN empresa.
SORT itab_zycbt017 BY nrinvoic gsberf nrparcf.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELEC_DADOS_010
SELECT * FROM /pws/zycbt030
INTO TABLE itab_zycbt030
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
SELECT kunnr name1
FROM kna1
INTO TABLE itab_kna1
FOR ALL ENTRIES IN itab_zycbt017
WHERE kunnr EQ itab_zycbt017-kunag.
SELECT
nrseqc tpdesp nrparc dtincl nrinvoic nrparcf gsberf
dtvincul dtvencto bconegoc slpagar
belnr
FROM /pws/zycbt005
...
...
WHERE lifnr EQ itab_zycbt031-bcooper.
ENDIF.
ENDIF.
PERFORM carga_itab_zycbt048.
PERFORM encontra_dados_pedido.
LOOP AT itab_zycet010.
LOOP AT itab_zycbt017 WHERE nrinvoic EQ itab_zycet010-nrseq.
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet010-nrseq.
IF sy-subrc NE 0.
CONTINUE.
* >> Início da inclusão: FORM SELEC_DADOS_010
ENDIF.
READ TABLE itab_zycbt030
WITH KEY nrinvoic = itab_zycbt017-nrinvoic
nrparcf = itab_zycbt017-nrparcf
gsberf = itab_zycbt017-gsberf.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
MOVE 'Não Liquidada'(193) TO itab_registro-statusf.
ENDIF.
IF itab_zycbt030-vlsltrans NE 0 AND
itab_zycbt030-vlsltrans < itab_zycbt030-kwert.
MOVE 'Parc. Liquidada'(194) TO itab_registro-statusf.
ENDIF.
IF itab_zycbt030-vlsltrans = 0.
MOVE 'Total Liquidada'(195) TO itab_registro-statusf.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycet002 WITH KEY nrseq = itab_zycet001-nrseq.
IF sy-subrc = 0.
READ TABLE itab_vbak WITH KEY vbeln = itab_zycet002-vbeln_va.
IF sy-subrc = 0.
CONCATENATE itab_vbak-vkgrp itab_vbak-vkbur INTO
itab_registro-submi SEPARATED BY space.
READ TABLE itab_vbkd WITH KEY vbeln = itab_vbak-vbeln.
IF sy-subrc = 0.
MOVE itab_vbkd-bstkd TO itab_registro-bstkd.
...
...
prctr LIKE /pws/zycet013-prctr,
dtvencto LIKE /pws/zycet010-dtvencto,
dtpror LIKE /pws/zycbt045-dtpror,
END OF itab_nrseq.
DATA: BEGIN OF itab_re OCCURS 2,
nrre LIKE /pws/zycet003-nrre,
END OF itab_re.
DATA: BEGIN OF itab_bconegoc OCCURS 3,
bconegoc LIKE /pws/zycbt005-bconegoc,
END OF itab_bconegoc.
* >> Início da inclusão: FORM SELEC_DADOS_013
DATA: begin of itab_zycbt030 occurs 0.
INCLUDE STRUCTURE /pws/zycbt030.
DATA: END OF itab_zycbt030.
* << Fim da inclusão
SELECT t013~nrseq t013~lifnr t013~gsber t013~prctr t013~vlme
t013~dtpagto t010~dtvencto
FROM /pws/zycet013 AS t013 INNER JOIN /pws/zycet010 AS t010
ON t013~nrseq = t010~nrseq AND
t013~lifnr = t010~lifnr
INTO TABLE itab_zycet013
WHERE
t013~nrseq IN embarque AND
t013~dtpagto IN dt_pagto AND
t013~lifnr IN benefi AND
...
...
nrinvoic nrparcf gsberf bukrs kunag waers vlavinc vlslf vlfob
vlcomis parvw
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_nrseq
WHERE
nrinvoic EQ itab_nrseq-nrseq AND
parvw IN tipcomis AND
bukrs IN empresa.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELEC_DADOS_013
SELECT * FROM /pws/zycbt030
INTO TABLE itab_zycbt030
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
SELECT kunnr name1
FROM kna1
INTO TABLE itab_kna1
FOR ALL ENTRIES IN itab_zycbt017
WHERE kunnr EQ itab_zycbt017-kunag.
SELECT
nrseqc tpdesp nrparc dtincl nrinvoic nrparcf gsberf dtvincul
dtvencto bconegoc slpagar
belnr
FROM /pws/zycbt005
...
...
APPENDING TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycbt031
WHERE lifnr EQ itab_zycbt031-bcooper.
ENDIF.
ENDIF.
PERFORM encontra_dados_pedido.
PERFORM carga_itab_zycbt048.
LOOP AT itab_zycet013.
LOOP AT itab_zycbt017 WHERE nrinvoic EQ itab_zycet013-nrseq
AND gsberf EQ itab_zycet013-gsber.
* >> Início da inclusão: FORM SELEC_DADOS_013
READ TABLE itab_zycbt030
WITH KEY nrinvoic = itab_zycbt017-nrinvoic
nrparcf = itab_zycbt017-nrparcf
gsberf = itab_zycbt017-gsberf.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
MOVE 'Não Liquidada'(193) TO itab_registro-statusf.
ENDIF.
IF itab_zycbt030-vlsltrans NE 0 AND
itab_zycbt030-vlsltrans < itab_zycbt030-kwert.
MOVE 'Parc. Liquidada'(194) TO itab_registro-statusf.
ENDIF.
IF itab_zycbt030-vlsltrans = 0.
MOVE 'Total Liquidada'(195) TO itab_registro-statusf.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet013-nrseq.
IF sy-subrc NE 0.
CONTINUE.
ELSE.
itab_registro-nrsd = itab_zycet001-nrsd.
ENDIF.
READ TABLE itab_zycet002 WITH KEY nrseq = itab_zycet001-nrseq.
IF sy-subrc = 0.
READ TABLE itab_vbak WITH KEY vbeln = itab_zycet002-vbeln_va.
IF sy-subrc = 0.
...
...
ls_line-typ = 'S'.
ls_line-info = text-004.
APPEND ls_line TO e04_lt_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = v_titulo.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.
FORM f_fieldcat_fill.
DATA i TYPE i.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
i = i + 5.
CLEAR afield.
afield-col_pos = i.
afield-fix_column = 'X'.
afield-outputlen = 13.
afield-fieldname = 'STATUSF'.
afield-seltext_s = 'Status da Fatura'(196).
afield-seltext_m = 'Status da Fatura'(196).
afield-seltext_l = 'Status da Fatura'(196).
afield-reptext_ddic = 'Status da Fatura'(196).
APPEND afield TO i_fieldcat.
* << Fim da inclusão
i = i + 5.
CLEAR afield.
afield-col_pos = i.
afield-fieldname = 'PARVW'.
afield-ref_fieldname = 'PARVW'.
afield-ref_tabname = '/PWS/ZYCBT017'.
afield-key = space.
afield-outputlen = 5.
afield-seltext_s = text-018.
afield-seltext_m = text-018.
...
...
APPEND afield TO i_fieldcat.
ENDIF.
ENDFORM.
FORM f_monta_final.
DATA: v_gsber TYPE /pws/zycet013-gsber,
v_prctr TYPE /pws/zycet013-prctr.
CLEAR: v_gsber, v_prctr.
CLEAR v_flag2.
LOOP AT itab_registro.
CLEAR i_result.
* >> Início da inclusão: FORM F_MONTA_FINAL
MOVE:
itab_registro-statusf TO i_result-statusf.
* << Fim da inclusão
ON CHANGE OF itab_registro-nrseq
OR itab_registro-gsber
OR itab_registro-name1
OR itab_registro-dtvencto.
MOVE: itab_registro-vlcomis TO i_result-vlcomis,
itab_registro-parvw TO i_result-parvw,
itab_registro-nrseq TO i_result-nrseq,
itab_registro-nremb TO i_result-nremb,
itab_registro-kunag TO i_result-kunag,
itab_registro-name TO i_result-name,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
prctr LIKE /pws/zycet013-prctr,
dtliquid LIKE /pws/zycbt004-dtliquid,
tpjuros LIKE /pws/zycbt004-tpjuros,
nrparcf LIKE /pws/zycbt004-nrparcf,
kursv LIKE ftpt_req_advance-kursv,
status(4) TYPE c,
vliss LIKE /pws/zycat025-vlimpme,
vlpis LIKE /pws/zycat025-vlimpme,
vlcofins LIKE /pws/zycat025-vlimpme,
vliof LIKE /pws/zycat025-vlimpme,
* >> Início da inclusão:
statusf(15) TYPE c,
* << Fim da inclusão
END OF rs_result.
DATA: i_result LIKE STANDARD TABLE OF rs_result INITIAL SIZE 10
WITH HEADER LINE.
DATA: BEGIN OF i_final OCCURS 0.
INCLUDE STRUCTURE rs_result.
DATA: colinfo TYPE kkblo_t_specialcol,
END OF i_final.
DATA: BEGIN OF itab_dados OCCURS 0.
INCLUDE STRUCTURE /pws/zygle500.
DATA: END OF itab_dados.
...
...
afield-key = 'X'.
afield-outputlen = 13.
afield-seltext_s = text-120.
afield-seltext_m = text-120.
afield-seltext_l = text-120.
afield-reptext_ddic = text-120.
APPEND afield TO i_fieldcat.
i = i + 5.
CLEAR afield.
afield-col_pos = i.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
afield-fieldname = 'STATUSF'.
afield-sp_group = 'A'.
afield-outputlen = 13.
afield-seltext_s = 'Status da Fatura'(204).
afield-seltext_m = 'Status da Fatura'(204).
afield-seltext_l = 'Status da Fatura'(204).
afield-reptext_ddic = 'Status da Fatura'(204).
LOOP AT itab_selreg WHERE fmd = 'EL'.
ENDLOOP.
IF sy-subrc NE 0.
afield-no_out = 'X'.
ENDIF.
APPEND afield TO i_fieldcat.
i = i + 5.
CLEAR afield.
afield-col_pos = i.
* << Fim da inclusão
afield-fieldname = 'BUKRS'.
afield-outputlen = 13.
afield-seltext_s = text-007.
afield-seltext_m = text-007.
afield-seltext_l = text-007.
afield-reptext_ddic = text-007.
APPEND afield TO i_fieldcat.
i = i + 5.
CLEAR afield.
afield-col_pos = i.
...
...
itab_selreg-vlcide TO i_result-vlcide,
itab_selreg-fat_liq TO i_result-fatliq,
itab_selreg-nrparc TO i_result-nrparc,
itab_selreg-dtincl TO i_result-dtincl,
itab_selreg-vlusd TO i_result-vlusd,
itab_selreg-dtliquid TO i_result-dtliquid,
itab_selreg-vlpis TO i_result-vlpis,
itab_selreg-vlcofins TO i_result-vlcofins,
itab_selreg-nrparcf TO i_result-nrparcf,
itab_selreg-vliss TO i_result-vliss,
* >> Início da inclusão: FORM F_MONTA_FINAL
itab_selreg-statusf TO i_result-statusf,
* << Fim da inclusão
itab_selreg-vliof TO i_result-vliof.
IF itab_selreg-fmd EQ 'EL'.
MOVE: itab_selreg-lifnr TO i_result-lifnr,
itab_selreg-gsberf TO i_result-gsberf,
itab_selreg-prctr TO i_result-prctr.
ENDIF.
IF itab_selreg-fcamb = 'S'.
i_result-fcamb = 'X'.
ELSE.
CLEAR i_result-fcamb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
( /pws/zycbt007-liq_com_cg NE 'RP' OR
( /pws/zycbt007-comis EQ 'R' AND sy-subrc NE 0 ) ).
DELETE itab_zycet010.
CONTINUE.
ENDIF.
CONCATENATE text-031 itab_zycet010-nrseq INTO v_tipo.
CLEAR: v_me, v_usd.
v_me = itab_zycet010-vlcomis.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt089-liq_com_ar EQ 'L'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
READ TABLE itab_zycbt030
WITH KEY nrinvoic = itab_zycbt017-nrinvoic
nrparcf = itab_zycbt017-nrparcf
gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
IF itab_zycbt017-parvw EQ 'AR' OR
itab_zycbt017-parvw EQ 'AT'.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
PERFORM verifica_fatura.
IF itab_selreg-fat_liq IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt089-liq_com_ar EQ 'L'.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
* << Fim da inclusão
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'A'.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ENDIF.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
MOVE 'Não Liquidada'(052) TO itab_selreg-statusf.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'N'.
PERFORM verifica_fatura.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt030-vlsltrans > 0 AND
itab_zycbt030-vlsltrans < itab_zycbt030-kwert.
MOVE 'Parc. Liquidada'(053) TO itab_selreg-statusf.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt030-vlsltrans = 0.
MOVE 'Total Liquidada'(054) TO itab_selreg-statusf.
* << Fim da inclusão
ENDIF.
IF itab_zycbt089-ver_averb = 'X'.
PERFORM verifica_averbacao.
IF v_averb = 'X'.
CONTINUE.
...
...
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.
SELECT * FROM /pws/zycbt007 INTO TABLE itab_zycbt007.
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF NOT itab_zycbt017[] IS INITIAL.
SELECT * FROM /pws/zycbt030
INTO TABLE itab_zycbt030
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycet013.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycet013-nrseq.
READ TABLE itab_zycbt089 WITH KEY bukrs = itab_zycbt017-bukrs.
READ TABLE itab_zycbt006 WITH KEY nrinvoic = itab_zycet013-nrseq.
READ TABLE itab_zycbt007 WITH KEY bukrs = itab_zycbt017-bukrs.
IF ( itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD' OR
itab_zycbt017-parvw EQ 'DA' ) AND
( itab_zycbt007-liq_com_cg NE 'RP' OR
( itab_zycbt007-comis EQ 'R' AND sy-subrc NE 0 ) ).
DELETE itab_zycet013.
CONTINUE.
ENDIF.
CONCATENATE text-031 itab_zycet013-nrseq INTO v_tipo.
CLEAR: v_me, v_usd.
v_me = itab_zycet013-vlme.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt089-liq_com_ar EQ 'L'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
READ TABLE itab_zycbt030
WITH KEY nrinvoic = itab_zycbt017-nrinvoic
nrparcf = itab_zycbt017-nrparcf
gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
IF itab_zycbt017-parvw EQ 'AR' OR
itab_zycbt017-parvw EQ 'AT'.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
PERFORM verifica_fatura.
IF itab_selreg-fat_liq IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt089-liq_com_ar EQ 'L'.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
* << Fim da inclusão
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'A'.
PERFORM verifica_fatura_baixada.
IF v_fat = 'X'.
CONTINUE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
ENDIF.
IF itab_zycbt030-kwert = itab_zycbt030-vlsltrans.
MOVE 'Não Liquidada' TO itab_selreg-statusf.
ENDIF.
IF itab_zycbt030-vlsltrans NE 0 AND
itab_zycbt030-vlsltrans < itab_zycbt030-kwert.
MOVE 'Parc. Liquidada' TO itab_selreg-statusf.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
ELSEIF itab_zycbt089-liq_com_ar EQ 'N'.
PERFORM verifica_fatura.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF itab_zycbt030-vlsltrans = 0.
MOVE 'Total Liquidada' TO itab_selreg-statusf.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR027
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 011
Texto: (10 caracteres)
"Nº Invoice"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (7 caracteres)
"Data de"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (10 caracteres)
"Nº Invoice"
Comprimento máximo: 10
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (3 caracteres)
"SBU"
Comprimento máximo: 3
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (13 caracteres)
"Tipo Comissão"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (12 caracteres)
"Dat Embarque"
Comprimento máximo: 12
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 180
Texto: (7 caracteres)
"Nº Seq."
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 193
Texto: (13 caracteres)
"Não Liquidada"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 194
Texto: (15 caracteres)
"Parc. Liquidada"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 195
Texto: (15 caracteres)
"Total Liquidada"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 196
Texto: (16 caracteres)
"Status da Fatura"
Comprimento máximo: 16
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCBR102
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 204
Texto: (16 caracteres)
"Status da Fatura"
Comprimento máximo: 16
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYGLR002
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (13 caracteres)
"Não Liquidada"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (15 caracteres)
"Parc. Liquidada"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (15 caracteres)
"Total Liquidada"
Comprimento máximo: 15