CE PLUS - Nota 007167
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 20/08/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:15:19
Descrição da Nota: PROCESSAMENTO DE BOLETO E RELATÓRIO DO BOLETO NA REMESSA DE PGTO
Sintoma
No programa de processamento de boleto e relatorio do boleto na remessa de pagamento, quando for
cliente ou fornecedor, a exibição está errada no campo de fornecedor e no campos campos de banco.
Solução
Incluir a verificação do campo cliente/fornecedor e bancos quando for cliente/ fornecedor
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07167 Data: 20/08/2008 Hora: 10:32:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07167
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00061
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02061 - 00008 - 6.0 - 00024 - COMPLEMENTO DO BOLETO REMESSA - IMPRESSÃO - VALOR MI
04202 - 00007 - 7.0 - 00002 - LIMPAR VARIÁVES DE MEMÓRIA DO COMPLEMENTO DE BOLETO
04453 - 00006 - 7.0 - 00002 - FINANCEIRO CRIAÇÃO DE PONTO DE EXIT PBE003
05388 - 00005 - 7.0 - 00003 - COMPLEMENTO DO BOLETO PROCESSAR BOLETO-DESPESA-EXIT CBI006 CBF004
05724 - 00004 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL
06077 - 00003 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
06322 - 00002 - 7.0 - 00005 - PEDIDO PARA FECHAMENTO DE CÂMBIO
06404 - 00001 - 7.0 - 00005 - PROCESSAR BOLETO - STATUS DA COMISSÃO
----------------------------------------------------------------------------------------------------
PROCESSAMENTO DE BOLETO E RELATÓRIO DO BOLETO NA REMESSA DE PGTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAMENTO DE BOLETO E RELATÓRIO DO BOLETO NA REMESSA DE PGTO
PROBLEMA COM A EXIBIÇAO DO FORNEC.QUANDO CLIENTE/FORN.E INF DOBANCO TB.
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK964069 20080820 101012 PWSCB
REPS /PWS/MZYCA110F01
REPS /PWS/MZYGL110F01
REPS /PWS/MZYGL110TOP
REPS /PWS/ZYCBI102
REPS /PWS/ZYCBR102
REPS /PWS/ZYCBR105
REPS /PWS/ZYGLR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
v_vlusd TO itab_boleto-vlusd,
v_vlbrl TO itab_boleto-vlbrl,
'S' TO itab_boleto-fcamb,
itab_zycbt124-tpoper TO itab_boleto-oper,
itab_zycbt124-bcofech TO itab_boleto-bcofinan,
itab_zycbt124-nrfat TO itab_boleto-nrfat,
itab_zycbt124-corret TO itab_boleto-corretora,
itab_zycbt124-recrem TO itab_boleto-lifnr,
itab_zycbt124-txtinf TO itab_boleto-txtinf,
'N' TO itab_boleto-frof,
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
'CP' TO itab_boleto-fmd.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
'CP' TO itab_boleto-fmd,
itab_zycbt124-tpcliente TO itab_boleto-tpcliente.
* << Fim da inclusão
APPEND itab_boleto.
v_vlir = v_vlir + itab_boleto-vlir.
v_vlcide = v_vlcide + itab_boleto-vlcide.
v_vliof = v_vliof + itab_boleto-vliof.
v_vliss = v_vliss + itab_boleto-vliss.
v_vlpis = v_vlpis + itab_boleto-vlpis.
v_vlcofins = v_vlcofins + itab_boleto-vlcofins.
ENDLOOP.
CLEAR: v_tipo2, v_taxa_dia, itab_zycbt124, /pws/zycbt125, itab_boleto.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
AND nrcorresp EQ itab_zycbt031-nrcorresp.
CLEAR: itab_zycbt064_aux2, v_nrchave, v_docto, v_tipo2,
v_lifnr2, v_total, itab_nrpgfat, itab_selreg.
REFRESH: itab_zycbt064_aux2, itab_nrpgfat, itab_selreg.
FREE MEMORY: ID '003',
ID '004',
ID '005',
ID '006',
ID '010',
ID '093',
* >> Início da exclusão: FORM IMPRIME_BOLETO
ID 'E011'.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
ID 'E011',
ID 'E021' .
* << Fim da inclusão
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux2
WHERE nrboleto EQ itab_zycbt031-nrseq. "#EC CI_NOFIRST
IF NOT itab_zycbt064_aux2[] IS INITIAL.
CLEAR itab_zycbt119.
REFRESH itab_zycbt119.
SELECT * FROM /pws/zycbt119
INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_zycbt064_aux2
WHERE nrseq = itab_zycbt064_aux2-nrchave.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110TOP
...
aprova LIKE /pws/zycbt118-aprova,
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,
* >> Início da inclusão:
tpcliente LIKE /PWS/ZYCBT124-tpcliente,
* << Fim da inclusão
END OF itab_boleto.
DATA: BEGIN OF itab_zycbt064_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt064.
DATA: END OF itab_zycbt064_aux2.
DATA: wa_zycbt136 LIKE /pws/zycbt136.
DATA: BEGIN OF itab_thead OCCURS 50.
INCLUDE STRUCTURE thead.
DATA: END OF itab_thead.
DATA: BEGIN OF itab_tline OCCURS 50.
INCLUDE STRUCTURE tline.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI102
...
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,
statusf(15) TYPE c,
* >> Início da inclusão:
tpcliente like /PWS/ZYCBT124-tpcliente,
* << 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,
...
...
cod_area TYPE /pws/zycbt004-cod_area,
bcoavisa TYPE /pws/zycbt156-bcoavisa,
vlme TYPE /pws/zycbt156-vlme,
werks TYPE /pws/zycbt004-werks,
nrref TYPE /pws/zycbt118-nrref,
END OF wa_despesa.
DATA: END OF COMMON PART.
DATA:
itab_selreg_aux2 LIKE itab_selreg OCCURS 100 WITH HEADER LINE,
itab_selreg_aux3 LIKE itab_selreg OCCURS 100 WITH HEADER LINE,
* >> Início da exclusão:
wa_line LIKE itab_selreg_aux,
itab_boleto LIKE /pws/zycbt031 OCCURS 100 WITH HEADER
LINE.
* << Fim da exclusão
* >> Início da inclusão:
itab_boleto LIKE /pws/zycbt031 OCCURS 100 WITH HEADER LINE.
DATA:
BEGIN OF itab_boleto_imp OCCURS 100,
flag TYPE c,
mod(15) TYPE c,
nrchave(10) TYPE c,
docto(10) TYPE c,
tab(30) TYPE c,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
tipo(30) TYPE c,
gsberf LIKE /pws/zycbt017-gsberf,
bukrs LIKE /pws/zycbt112-bukrs,
dtvencto LIKE /pws/zycbt004-dtvencto,
dtliquid LIKE /pws/zycbt004-dtliquid,
txdia LIKE /pws/zycbt004-txcneg,
aliqir LIKE /pws/zycbt113-aliqir,
waers LIKE /pws/zycbt004-waers,
vlme LIKE /pws/zycbt004-vlme,
vlusd LIKE /pws/zycbt004-vlme,
vlbrl LIKE /pws/zycbt004-vlme,
vlir LIKE /pws/zycbt113-vlir,
vlcide LIKE /pws/zycbt124-vcide,
fcamb LIKE /pws/zycbt004-fcambio,
frpagto LIKE /pws/zycbt118-frpagto,
recebedor LIKE /pws/zycbt124-recrem,
nrfat LIKE /pws/zycbt119-nrfat,
modalid LIKE /pws/zycbt119-codmod,
banco LIKE /pws/zycbt112-bcofinan,
modalidade LIKE /pws/zycbt119-codmod,
bcofinan LIKE /pws/zycbt112-bcofinan,
dtinicio LIKE /pws/zycbt113-dtinicio,
prazo(4) TYPE c,
corretora LIKE /pws/zycbt124-corret,
pedido LIKE /pws/zycit003-ebeln,
nrdi LIKE /pws/zycit085-nrdi,
refbanco LIKE /pws/zycbt119-refbanco,
lifnr LIKE /pws/zycbt119-lifnr,
benefic LIKE /pws/zycbt118-benefic,
frof LIKE /pws/zycbt115-tpdoc,
oper LIKE /pws/zycbt124-tpoper,
codp LIKE /pws/zycbt037-codpad,
fmd LIKE /pws/zycbt031-mdcorresp,
dtincl LIKE /pws/zycbt004-dtincl,
tpdesp LIKE /pws/zycbt004-tpdesp,
tpcontr LIKE /pws/zycbt004-tpcontr,
vlcomis LIKE /pws/zycbt119-vlcomis,
percomis LIKE /pws/zycbt119-percomis,
txtinf LIKE /pws/zycbt004-txtinf,
tbn LIKE /pws/zycbt112-tbn,
nrseq LIKE /pws/zycbt028-nrseq,
codmodul LIKE /pws/zycbt118-codmodul,
codint LIKE /pws/zycbt119-codint,
codpagto LIKE /pws/zycbt124-codpagto,
irfat LIKE /pws/zycbt124-irfat,
codigo LIKE /pws/zycbt144-codigo,
formcam LIKE /pws/zycbt138-formcam,
bcofav LIKE /pws/zycbt144-bcofav,
bcointerm LIKE /pws/zycbt142-bcointerm,
prctr LIKE /pws/zycbt112-prctr,
kostl LIKE /pws/zycbt112-kostl,
dtpagto LIKE /pws/zycbt004-dtpagto,
recrem LIKE /pws/zycbt124-recrem,
contcor LIKE /pws/zycbt142-contcor,
tpaut LIKE /pws/zycbt124-codpagto,
zlspr LIKE bsik-zlspr,
belnr_co LIKE /pws/zycbt108-belnr_co,
belnr_comis LIKE /pws/zycet010-belnr,
dtlanc LIKE /pws/zycet010-dtlanc,
nrinvoic LIKE /pws/zycbt017-nrinvoic,
nrparcf LIKE /pws/zycbt017-nrparcf,
embarca LIKE /pws/zycit001-embarca,
xblnr LIKE bsik-xblnr,
fat_liq(1) TYPE c,
controle(1) TYPE c,
mdcambio LIKE /pws/zycbt048-modalidade,
kursv LIKE ftpt_req_advance-kursv,
tpjuros LIKE /pws/zycbt004-tpjuros,
frgzu LIKE /pws/zycbt118-frgzu,
estrat LIKE /pws/zycbt118-estrat,
frgsx1 LIKE /pws/zycbt118-frgsx1,
frgsx2 LIKE /pws/zycbt118-frgsx2,
frgsx3 LIKE /pws/zycbt118-frgsx3,
frgsx4 LIKE /pws/zycbt118-frgsx4,
frgsx5 LIKE /pws/zycbt118-frgsx5,
nlib LIKE /pws/zycbt118-nlib,
seq LIKE /pws/zycbt118-seq,
aprova LIKE /pws/zycbt118-aprova,
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,
tpcliente LIKE /PWS/ZYCBT124-tpcliente,
END OF itab_boleto_imp,
wa_line like itab_boleto_imp.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
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.
ENDIF.
IF tv IS INITIAL.
* >> Início da inclusão: FORM F_MONTA_FINAL
IF itab_selreg-fmd NE 'CP'.
* << Fim da inclusão
SELECT SINGLE name1 INTO i_result-name1 FROM lfa1
WHERE lifnr = itab_selreg-lifnr.
IF sy-subrc NE 0.
SELECT SINGLE name1 INTO i_result-name1 FROM lfa1
WHERE lifnr = itab_selreg-benefic.
* >> Início da inclusão: FORM F_MONTA_FINAL
ENDIF.
ELSE.
if itab_selreg-tpcliente = 'C'.
SELECT SINGLE name1 INTO i_result-name1 FROM kna1
WHERE kunnr = itab_selreg-benefic.
else.
SELECT SINGLE name1 INTO i_result-name1 FROM lfa1
WHERE lifnr = itab_selreg-benefic.
endif.
* << Fim da inclusão
ENDIF.
ELSE.
IF wa_zyglt009-funcforn IS INITIAL.
CLEAR pa0002.
SELECT cname FROM pa0002
UP TO 1 ROWS
INTO pa0002-cname
WHERE pernr EQ itab_selreg-lifnr.
ENDSELECT.
i_result-name1 = pa0002-cname.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR105
...
LINE-COUNT 65
LINE-SIZE 90
NO STANDARD PAGE HEADING.
TYPES: BEGIN OF t_zycbt111,
codmod LIKE /pws/zycbt111-codmod,
descricao LIKE /pws/zycbt111-descricao,
END OF t_zycbt111.
TABLES:
t001,
lfa1,
* >> Início da exclusão:
kna1, "#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
kna1, "#EC NEEDED
* << Fim da inclusão
/pws/zycbt007,
/pws/zycbt001,
/pws/zycbt002,
/pws/zycbt004,
/pws/zycbt028,
/pws/zycbt016,
/pws/zycbt017,
/pws/zycbt031,
/pws/zycbt086,
* >> Início da exclusão:
/pws/zycbt134,"#EC *
/pws/zycbt108,"#EC *
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt134, "#EC *
/pws/zycbt108, "#EC *
* << Fim da inclusão
/pws/zycbt111,
* >> Início da exclusão:
/pws/zycbt118,"#EC NEEDED
/pws/zycbt128,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt118, "#EC NEEDED
/pws/zycbt128, "#EC NEEDED
* << Fim da inclusão
/pws/zycbt112,
* >> Início da exclusão:
/pws/zycbt113,"#EC *
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt113, "#EC *
* << Fim da inclusão
/pws/zycbt117,
/pws/zycbt119,
/pws/zycbt048,
* >> Início da exclusão:
/pws/zycmt003,"#EC *
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycmt003, "#EC *
* << Fim da inclusão
j_1bbranch,
sadr,
* >> Início da inclusão:
knbk,
* << Fim da inclusão
lfbk,
bnka.
DATA: BEGIN OF itab_thead OCCURS 50.
INCLUDE STRUCTURE thead.
DATA: END OF itab_thead.
DATA: itab_tline LIKE tline OCCURS 50 WITH HEADER LINE.
DATA: BEGIN OF itab_nrpgfat OCCURS 0,
nrpgfat LIKE /pws/zycit006-nrseq_pgfat.
DATA: END OF itab_nrpgfat.
DATA: itab_zycbt111 TYPE STANDARD TABLE OF t_zycbt111
...
...
belnr LIKE /pws/zycbt108-belnr,
nrfat LIKE /pws/zycbt108-nrfat,
nrcorresp LIKE /pws/zycbt108-nrcorresp,
END OF itab_zycbt108,
BEGIN OF itab_zycbt115 OCCURS 10,
rof LIKE /pws/zycbt115-rof,
END OF itab_zycbt115,
BEGIN OF itab_zycbt123 OCCURS 10,
ncm LIKE /pws/zycbt123-ncm,
END OF itab_zycbt123,
* >> Início da exclusão:
BEGIN OF itab_zycbt019 OCCURS 10,"#EC *
* << Fim da exclusão
* >> Início da inclusão:
BEGIN OF itab_zycbt019 OCCURS 10, "#EC *
* << Fim da inclusão
nrinvoic LIKE /pws/zycbt019-nrinvoic,
gsberf LIKE /pws/zycbt019-gsberf,
nrre LIKE /pws/zycbt019-nrre,
END OF itab_zycbt019.
DATA: BEGIN OF itab_zycbt113 OCCURS 10,
nrseq LIKE /pws/zycbt113-nrseq,
tpparc LIKE /pws/zycbt113-tpparc,
nrdias LIKE /pws/zycbt113-nrdias,
nrparc LIKE /pws/zycbt113-nrparc.
DATA: END OF itab_zycbt113.
...
...
v_vliss FROM MEMORY ID 'I002',
v_vlpis FROM MEMORY ID 'I003',
v_vlcofins FROM MEMORY ID 'I004',
v_nrfat FROM MEMORY ID '009',
v_lifnr2 FROM MEMORY ID '010',
v_boleto FROM MEMORY ID '011',
v_lifnr FROM MEMORY ID '091',
itab_boleto FROM MEMORY ID '012',
v_total_usd FROM MEMORY ID '013',
itab_nrpgfat FROM MEMORY ID '093',
* >> Início da exclusão:
itab_selreg_aux[] FROM MEMORY ID 'E014'.
* << Fim da exclusão
* >> Início da inclusão:
itab_selreg_aux[] FROM MEMORY ID 'E014',
itab_selreg FROM MEMORY ID 'E011'.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt134
up to 1 rows
INTO wa_zycbt134
WHERE nrseq EQ /pws/zycbt031-nrseq
AND dtboleto EQ /pws/zycbt031-dtboleto.
endselect.
SET PF-STATUS '0200'.
SET TITLEBAR '0001'.
IF wa_line-mod(3) = 'IMP'.
...
...
WHERE bukrs EQ wa_line-bukrs.
ENDSELECT.
SELECT * UP TO 1 ROWS
FROM t001
WHERE bukrs = wa_line-bukrs.
ENDSELECT.
IF wa_line-fmd = 'IP'.
SELECT belnr nrfat nrcorresp
INTO TABLE itab_zycbt108
FROM /pws/zycbt108
* >> Início da exclusão: FORM DADOS_BOLETO_IMP
WHERE nrcorresp EQ wa_line-nrchave."#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BOLETO_IMP
WHERE nrcorresp EQ wa_line-nrchave. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
PERFORM seleciona_rof_ncm TABLES itab_nrpgfat
itab_selreg_aux
USING: wa_line-nrchave
wa_line-frof.
IF /pws/zycbt031-mdcorresp = 'IF'.
SELECT SINGLE *
FROM /pws/zycbt112
WHERE nrseq = wa_line-nrchave.
ELSEIF /pws/zycbt031-mdcorresp = 'IP'.
...
...
ELSE.
WRITE: 02 text-029, 13 v_nrchave.
ENDIF.
SKIP.
IF v_nrchave IS INITIAL.
WRITE: 02 text-030, 20 wa_line-tipo.
ELSE.
WRITE: 02 text-030, 20 v_tipo2.
ENDIF.
SKIP.
* >> Início da exclusão: FORM BOLETO_VENDA_IMP
READ TABLE itab_zycbt108."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM BOLETO_VENDA_IMP
READ TABLE itab_zycbt108. "#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
WRITE: /02 text-031.
LOOP AT itab_zycbt108.
v_count = v_count + 1.
IF v_count = 4.
WRITE: /11 itab_zycbt108-belnr.
v_count = 1.
ELSE.
WRITE: itab_zycbt108-belnr.
ENDIF.
...
...
FROM t001
WHERE bukrs = /pws/zycbt007-bukrs.
ENDSELECT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = wa_line-lifnr
IMPORTING
output = v_lifnr
EXCEPTIONS
OTHERS = 0.
* >> Início da exclusão: FORM DADOS_BOLETO
IF wa_line-oper = 'P' AND wa_line-fmd = 'CP'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BOLETO
IF wa_line-oper = 'P' AND wa_line-fmd = 'CP'.
IF wa_line-tpcliente = 'C'.
SELECT SINGLE name1 INTO v_cliente FROM kna1
WHERE kunnr EQ v_lifnr.
ELSEIF wa_line-tpcliente = 'F'.
SELECT SINGLE name1 INTO v_cliente FROM lfa1
WHERE lifnr EQ v_lifnr.
ELSE.
IF NOT itab_selreg_aux[] IS INITIAL.
READ TABLE itab_selreg_aux WITH KEY nrchave = wa_line-nrchave .
IF itab_selreg_aux-tpcliente = 'C'.
SELECT SINGLE name1 INTO v_cliente FROM kna1
WHERE kunnr EQ v_lifnr.
ELSE.
SELECT SINGLE name1 INTO v_cliente FROM lfa1
WHERE lifnr EQ v_lifnr.
ENDIF.
ELSE.
IF NOT itab_selreg[] IS INITIAL.
READ TABLE itab_selreg WITH KEY nrchave = wa_line-nrchave .
IF itab_selreg-tpcliente = 'C'.
SELECT SINGLE name1 INTO v_cliente FROM kna1
WHERE kunnr EQ v_lifnr.
ELSE.
* << Fim da inclusão
SELECT SINGLE name1 INTO v_cliente FROM lfa1
WHERE lifnr EQ v_lifnr.
* >> Início da inclusão: FORM DADOS_BOLETO
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
ELSEIF wa_line-oper = 'R' AND wa_line-fmd = 'CP'.
SELECT SINGLE name1 INTO v_cliente FROM kna1
...
...
WHERE nrcorrep EQ v_nrcorrep AND
tpdoc EQ 'N'.
endselect.
SELECT *
FROM /pws/zycbt048
up to 1 rows
INTO /pws/zycbt048
WHERE nrseq EQ /pws/zycbt031-nrseq
AND nrcorresp EQ /pws/zycbt031-nrcorresp
AND mdcorresp EQ /pws/zycbt031-mdcorresp.
* >> Início da inclusão: FORM DADOS_BOLETO
ENDSELECT.
IF wa_line-tpcliente = 'F'.
SELECT * FROM lfbk
UP TO 1 ROWS
WHERE lifnr = v_lifnr.
ENDSELECT.
SELECT *
FROM bnka
UP TO 1 ROWS
WHERE banks = lfbk-banks
AND bankl = lfbk-bankl.
ENDSELECT.
ELSEIF wa_line-tpcliente = 'C'.
SELECT *
FROM knbk
UP TO 1 ROWS
WHERE kunnr = v_lifnr.
ENDSELECT.
SELECT *
FROM bnka
UP TO 1 ROWS
WHERE banks = knbk-banks
AND bankl = knbk-bankl.
ENDSELECT.
lfbk-bankn = knbk-bankn.
ELSE.
IF NOT itab_selreg_aux[] IS INITIAL.
READ TABLE itab_selreg_aux WITH KEY nrchave = wa_line-nrchave .
IF itab_selreg_aux-tpcliente = 'C'.
SELECT *
FROM knbk
UP TO 1 ROWS
WHERE kunnr = v_lifnr.
ENDSELECT.
SELECT *
FROM bnka
UP TO 1 ROWS
WHERE banks = knbk-banks
AND bankl = knbk-bankl.
ENDSELECT.
lfbk-bankn = knbk-bankn.
ELSEIF itab_selreg_aux-tpcliente = 'F'.
SELECT * FROM lfbk
UP TO 1 ROWS
WHERE lifnr = v_lifnr.
ENDSELECT.
SELECT *
FROM bnka
UP TO 1 ROWS
WHERE banks = lfbk-banks
AND bankl = lfbk-bankl.
ENDSELECT.
ENDIF.
ELSE.
IF NOT itab_selreg[] IS INITIAL.
READ TABLE itab_selreg WITH KEY nrchave = wa_line-nrchave .
IF itab_selreg-tpcliente = 'C'.
SELECT *
FROM knbk
UP TO 1 ROWS
WHERE kunnr = v_lifnr.
ENDSELECT.
SELECT *
FROM bnka
UP TO 1 ROWS
WHERE banks = knbk-banks
AND bankl = knbk-bankl.
* << Fim da inclusão
endselect.
* >> Início da inclusão: FORM DADOS_BOLETO
lfbk-bankn = knbk-bankn.
ELSEIF itab_selreg-tpcliente = 'F'.
* << Fim da inclusão
SELECT * FROM lfbk
up to 1 rows
WHERE lifnr = v_lifnr.
endselect.
SELECT *
FROM bnka
up to 1 rows
WHERE banks = lfbk-banks
AND bankl = lfbk-bankl.
endselect.
* >> Início da inclusão: FORM DADOS_BOLETO
ENDIF.
ENDIF .
ENDIF.
ENDIF.
* << Fim da inclusão
CONCATENATE bnka-stras '-' bnka-ort01 '-' bnka-provz
INTO v_endereco_completo(55) SEPARATED BY space.
ENDFORM.
FORM boleto_venda_exp.
DATA: v_agente(70) TYPE c.
CLEAR: v_cabecalho,
v_data.
WRITE AT 1(87) t001-butxt CENTERED.
CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum(4)
INTO v_data SEPARATED BY '.'.
...
...
OTHERS = 8.
IF sy-subrc = 0.
LOOP AT itab_tline.
MOVE itab_tline-tdline TO v_descricao.
ENDLOOP.
ENDIF.
ENDFORM.
FORM seleciona_rof_ncm TABLES p_itab_nrpgfat STRUCTURE itab_nrpgfat
p_selreg_aux STRUCTURE itab_selreg_aux
USING p_nrchave
* >> Início da exclusão: FORM SELECIONA_ROF_NCM
p_frof."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ROF_NCM
p_frof. "#EC *
* << Fim da inclusão
IF p_itab_nrpgfat[] IS INITIAL.
SELECT rof
INTO TABLE itab_zycbt115
FROM /pws/zycbt115
WHERE nrcorrep EQ p_nrchave
AND tpdoc EQ p_frof
AND fsta EQ ' '.
SELECT ncm
INTO TABLE itab_zycbt123
FROM /pws/zycbt123
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR003
...
frgsx5 LIKE /pws/zycbt124-frgsx5,
nlib LIKE /pws/zycbt124-nlib,
seq LIKE /pws/zycbt124-seq,
aprova LIKE /pws/zycbt124-aprova,
bname LIKE /pws/zycbt124-bname,
dtbname LIKE /pws/zycbt124-dtbname,
hrbname LIKE /pws/zycbt124-hrbname,
frggr LIKE /pws/zycbt124-frggr,
vlpis LIKE /pws/zycbt124-vlpis,
vlcofins LIKE /pws/zycbt124-vlcofins,
* >> Início da inclusão:
tpcliente like /PWS/ZYCBT124-tpcliente,
* << Fim da inclusão
END OF itab_zycbt124,
BEGIN OF itab_zycbt144 OCCURS 100,
nrseq LIKE /pws/zycbt144-nrseq,
belnr_f43 LIKE /pws/zycbt144-belnr_f43,
bcofav LIKE /pws/zycbt144-bcofav,
vlcide LIKE /pws/zycbt144-vlcide,
codigo LIKE /pws/zycbt144-codigo,
END OF itab_zycbt144,
BEGIN OF itab_zycbt142 OCCURS 100,
nrseq LIKE /pws/zycbt142-nrseq,
...
...
ENDIF.
LEAVE PROGRAM.
ENDIF.
FORM seleciona_remessa.
IF data-high IS INITIAL.
SELECT nrseq nrfech bukrs dtvencto bcofech waers vlme vlir irfat
nrfat tpoper codpagto recrem corret kostl prctr txtinf dtpagto
vcide frpagto frgzu estrat frgsx1 frgsx2 frgsx3 frgsx4 frgsx5
nlib seq aprova bname dtbname hrbname frggr
vlpis vlcofins
* >> Início da inclusão: FORM SELECIONA_REMESSA
tpcliente
* << Fim da inclusão
INTO TABLE itab_zycbt124
FROM /pws/zycbt124
WHERE bukrs IN empresa
AND ( dtpagto EQ '00000000' OR dtpagto EQ ' ' )
AND dtvencto LE v_data
AND status NE 'E'
AND recrem IN fornece
AND waers IN moeda
AND nrseq IN remessa
AND tpoper IN codmod
AND frgzu NE '1'.
ELSE.
SELECT nrseq nrfech bukrs dtvencto bcofech waers vlme vlir irfat
nrfat tpoper codpagto recrem corret kostl prctr txtinf dtpagto
vcide frpagto frgzu estrat frgsx1 frgsx2 frgsx3 frgsx4 frgsx5
nlib seq aprova bname dtbname hrbname frggr
vlpis vlcofins
* >> Início da inclusão: FORM SELECIONA_REMESSA
tpcliente
* << Fim da inclusão
INTO TABLE itab_zycbt124
FROM /pws/zycbt124
WHERE bukrs IN empresa
AND ( dtpagto EQ '00000000' OR dtpagto EQ ' ' )
AND dtvencto IN data
AND status NE 'E'
AND recrem IN fornece
AND waers IN moeda
AND nrseq IN remessa
AND tpoper IN codmod
...
...
itab_zycbt124-frgsx2 TO itab_selreg-frgsx2,
itab_zycbt124-frgsx3 TO itab_selreg-frgsx3,
itab_zycbt124-frgsx4 TO itab_selreg-frgsx4,
itab_zycbt124-frgsx5 TO itab_selreg-frgsx5,
itab_zycbt124-nlib TO itab_selreg-nlib,
itab_zycbt124-seq TO itab_selreg-seq,
itab_zycbt124-aprova TO itab_selreg-aprova,
itab_zycbt124-bname TO itab_selreg-bname,
itab_zycbt124-dtbname TO itab_selreg-dtbname,
itab_zycbt124-hrbname TO itab_selreg-hrbname,
* >> Início da exclusão: FORM SELECIONA_REMESSA
itab_zycbt124-frggr TO itab_selreg-frggr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_REMESSA
itab_zycbt124-frggr TO itab_selreg-frggr,
itab_zycbt124-tpcliente TO itab_selreg-tpcliente.
* << Fim da inclusão
APPEND itab_selreg.
ENDLOOP.
CLEAR: v_tipo, v_taxa_dia, itab_zycbt124, itab_zycbt125,
itab_zycbt144.
ENDFORM.
FORM seleciona_despesa.
IF data-high IS INITIAL.
SELECT nrseq nrdesp tpdesp bukrs codmodul nrref dtvencto benefic
fcambio kursf ftaxa waers vlme kostl prctr frpagto txtinf
dtpagto frgzu estrat frgsx1 frgsx2 frgsx3 frgsx4 frgsx5 nlib
...