Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 13/02/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:54:18
Descrição da Nota: COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA
Sintoma
Após ter gravado o código da corretora na table controll do complemento do boleto ref. ao pagto de
fatura de importação, ao executar o comando "imprimir boleto", o código e nome da corretora não
estão sendo exibidos no boleto.
Solução
Ajustado para que o programa busque a corretora do local correto.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05916 Data: 13/02/2008 Hora: 14:58:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05916
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01205 - 00001 - 6.0 - 00023 - PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO
01236 - 00002 - 6.0 - 00023 - COMPLEMENTO DO BOLETO - AGRUPAMENTO - DADOS CONTRATO
01532 - 00003 - 6.0 - 00024 - COMPLEMENTO DO BOLETO PROCESSAR BOLETO DESPESAS
01550 - 00004 - 6.0 - 00024 - COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC
01564 - 00005 - 6.0 - 00024 - COMPLEMENTO DO BOLETO
02136 - 00006 - 6.0 - 00025 - PROCESSAR BOLETO AGRUPADO PAGTO. FATURA - DUMP IMPRESSÃO
04054 - 00007 - 7.0 - 00002 - DESPESA EXPORTAÇÃO/COMPLEMENTO DO BOLETO-INVOICE E DADOS DESPESA
04288 - 00008 - 7.0 - 00002 - COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO
04625 - 00009 - 7.0 - 00003 - COMPLEMENTO DO BOLETO - ESTORNO - DESPESA EXP. COM ESTRATÉGIA
04634 - 00010 - 7.0 - 00003 - COMPLEMENTO DO BOLETO - ESTORNO PERÍODO FECHADO - FB08
04712 - 00011 - 7.0 - 00003 - COMPLEMENTO DO BOLETO
04883 - 00012 - 7.0 - 00003 - IMPRESSÃO DO BOLETO
05724 - 00013 - 7.0 - 00004 - CODE INSPECTOR , VERIFICAÇÃO AMPLIADA , RELATORIOS GL
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - AJUSTE PARA MOSTRAR O CAMPO CORRET NA TELA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB110 0100
REPS /PWS/MZYCB110I01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBR102
REPS /PWS/ZYCBR107
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB110 0100
* Tela Foi 0100 anexada no chamado.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
ENDCASE.
ENDMODULE.
MODULE consiste_preenche_taxa2 INPUT.
IF /pws/zycbe031-mdcorresp NE 'CP'.
IF ( sy-ucomm = 'SAVE' OR w_ok = 'SAVE' OR ok_code = 'SAVE' ) AND
/pws/zycbe031-kursf IS INITIAL.
MESSAGE e061 WITH text-238.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
module consiste_corretora input.
READ TABLE itab_zycbt119 WITH KEY NRSEQ = itab_zycbt031_tc-nrcorresp.
IF sy-subrc EQ 0.
CHECK NOT itab_zycbt119-corret IS INITIAL AND
itab_zycbt031_tc-mdcorresp = 'IP'.
/pws/zycbe048-corret = itab_zycbt119-corret.
ENDIF.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
LOOP AT itab_zycbt064.
CLEAR itab_zycbt031_tc.
READ TABLE itab_zycbt119 WITH KEY nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
itab_zycbt031_tc-bukrs = itab_zycbt119-bukrs.
itab_zycbt031_tc-gsber = itab_zycbt119-gsber.
itab_zycbt031_tc-werks = itab_zycbt119-werks.
itab_zycbt031_tc-j_1bbranch = itab_zycbt119-j_1bbranch.
itab_zycbt031_tc-nrpagto = itab_zycbt119-nrpagto.
itab_zycbt031_tc-nrfat = itab_zycbt119-nrfat.
* >> Início da inclusão: FORM CARREGA_DADOS_IP
itab_zycbt031_tc-corret = itab_zycbt119-corret.
* << Fim da inclusão
SELECT SINGLE MAX( dtpror ) FROM /pws/zycmt014
INTO /pws/zycmt014-dtpror
WHERE nrseq = itab_zycbt119-nrseq.
IF sy-subrc = 0 AND
/pws/zycmt014-dtpror NE ' ' AND
/pws/zycmt014-dtpror NE '00000000'.
itab_zycbt031_tc-dtvencto = /pws/zycmt014-dtpror.
ELSE.
itab_zycbt031_tc-dtvencto = itab_zycbt119-dtvencto.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
tpjuros = itab_zycbt064-tpjuros
tpdesp = itab_zycbt064-tpdesp.
IF sy-subrc = 0.
itab_zycbt031_tc-nrcontr = itab_zycbt048-nrcontr.
itab_zycbt031_tc-dtcontr = itab_zycbt048-dtcontr.
itab_zycbt031_tc-dtdebito = itab_zycbt048-dtdebito.
itab_zycbt031_tc-dtliquida = itab_zycbt048-dtliquida.
itab_zycbt031_tc-dtswift = itab_zycbt048-dtswift.
itab_zycbt031_tc-praca = itab_zycbt048-praca.
itab_zycbt031_tc-instituicao = itab_zycbt048-instituicao.
* >> Início da exclusão: FORM CARREGA_DADOS_GLOBAIS
itab_zycbt031_tc-corret = itab_zycbt048-corret.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS
IF /pws/zycbe031-mdcorresp NE 'IP' OR
itab_zycbt031_tc-corret IS INITIAL.
itab_zycbt031_tc-corret = itab_zycbt048-corret.
ENDIF.
* << Fim da inclusão
itab_zycbt031_tc-codnatoper = itab_zycbt048-codnatoper.
itab_zycbt031_tc-codfrmentrega = itab_zycbt048-codfrmentrega.
itab_zycbt031_tc-codmodtransa = itab_zycbt048-codmodtransa.
itab_zycbt031_tc-codnorma = itab_zycbt048-codnorma.
itab_zycbt031_tc-modalidade = itab_zycbt048-modalidade.
ENDIF.
ENDFORM.
FORM executa_f51_cp USING p_tpimp.
DATA v_awkey LIKE bkpf-awkey.
CHECK /pws/zycbe145-cod_fech = 'TR'.
...
...
AND nrparc = itab_zycbt031_tc-nrparc
AND dtliquid = itab_zycbt031_tc-dtliquid
AND dtvencto = itab_zycbt031_tc-dtvencto
AND lifnr = itab_zycbt031_tc-lifnr
AND tpjuros = itab_zycbt031_tc-tpjuros
AND tpdesp = itab_zycbt031_tc-tpdesp
AND nrinvoic = itab_zycbt031_tc-nrinvoic
AND nrparcf = itab_zycbt031_tc-nrparcf
AND gsberf = itab_zycbt031_tc-gsberf
AND prctr = itab_zycbt031_tc-prctr.
* >> Início da inclusão: FORM GRAVAR_DADOS_CONTRATO
IF sy-subrc NE 0.
clear /pws/zycbt048.
/pws/zycbt048-dtliquida = itab_zycbt031_tc-dtliquida.
/pws/zycbt048-nrcontr = itab_zycbt031_tc-nrcontr.
/pws/zycbt048-dtcontr = itab_zycbt031_tc-dtcontr.
/pws/zycbt048-dtdebito = itab_zycbt031_tc-dtdebito.
/pws/zycbt048-dtswift = itab_zycbt031_tc-dtswift.
/pws/zycbt048-praca = itab_zycbt031_tc-praca.
/pws/zycbt048-instituicao = itab_zycbt031_tc-instituicao.
/pws/zycbt048-corret = itab_zycbt031_tc-corret.
/pws/zycbt048-codnatoper = itab_zycbt031_tc-codnatoper.
/pws/zycbt048-codfrmentrega = itab_zycbt031_tc-codfrmentrega.
/pws/zycbt048-codmodtransa = itab_zycbt031_tc-codmodtransa.
/pws/zycbt048-codnorma = itab_zycbt031_tc-codnorma.
/pws/zycbt048-modalidade = itab_zycbt031_tc-modalidade.
/pws/zycbt048-nrseq = itab_zycbt031_tc-nrseq.
/pws/zycbt048-mdcorresp = itab_zycbt031_tc-mdcorresp.
/pws/zycbt048-nrcorresp = itab_zycbt031_tc-nrcorresp.
/pws/zycbt048-tpparc = itab_zycbt031_tc-tpparc.
/pws/zycbt048-nrparc = itab_zycbt031_tc-nrparc.
/pws/zycbt048-dtliquid = itab_zycbt031_tc-dtliquid.
/pws/zycbt048-dtvencto = itab_zycbt031_tc-dtvencto.
/pws/zycbt048-lifnr = itab_zycbt031_tc-lifnr.
/pws/zycbt048-tpjuros = itab_zycbt031_tc-tpjuros.
/pws/zycbt048-tpdesp = itab_zycbt031_tc-tpdesp.
/pws/zycbt048-nrinvoic = itab_zycbt031_tc-nrinvoic.
/pws/zycbt048-nrparcf = itab_zycbt031_tc-nrparcf.
/pws/zycbt048-gsberf = itab_zycbt031_tc-gsberf.
/pws/zycbt048-prctr = itab_zycbt031_tc-prctr.
INSERT INTO /pws/zycbt048
VALUES /pws/zycbt048.
COMMIT WORK.
ENDIF.
* << Fim da inclusão
ENDLOOP.
v_altera_dtliquid = ''.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
MESSAGE s205.
ENDFORM.
FORM limpa_status_liberacao.
IF /pws/zycbe031-mdcorresp EQ 'CP'.
SELECT SINGLE * FROM /pws/zycbt124
INTO wa_zycbt124
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
IF sy-ucomm EQ 'PROC'.
/pws/zycbt048-nrseq = /pws/zycbt031-nrseq.
/pws/zycbt048-dtboleto = /pws/zycbt031-dtboleto.
/pws/zycbt048-bukrs = /pws/zycbt031-bukrs.
/pws/zycbt048-mdcorresp = /pws/zycbt031-mdcorresp.
/pws/zycbt048-nrcorresp = /pws/zycbt031-nrcorresp.
/pws/zycbt048-tpparc = /pws/zycbt031-tpparc.
/pws/zycbt048-nrparc = /pws/zycbt031-nrparc.
/pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.
/pws/zycbt048-corret = itab_selreg_aux-corretora.
* >> Início da inclusão: FORM IMPRIME_BOLETO
IF NOT itab_selreg_aux-nrinvoic IS INITIAL.
/pws/zycbt048-nrinvoic = itab_selreg_aux-nrinvoic.
ELSE.
* << Fim da inclusão
/pws/zycbt048-nrinvoic = itab_selreg_aux-docto.
* >> Início da inclusão: FORM IMPRIME_BOLETO
ENDIF.
* << Fim da inclusão
/pws/zycbt048-nrparcf = itab_selreg_aux-nrparcf.
/pws/zycbt048-dtliquid = itab_selreg_aux-dtliquid.
/pws/zycbt048-dtvencto = itab_selreg_aux-dtvencto.
IF NOT itab_selreg_aux-lifnr IS INITIAL.
/pws/zycbt048-lifnr = itab_selreg_aux-lifnr.
ELSE.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
ELSEIF sy-ucomm = 'PROC'.
MOVE: v_count TO /pws/zycbt064-nrboleto,
sy-datum TO /pws/zycbt064-dtboleto,
itab_selreg_aux-nrchave TO /pws/zycbt064-nrchave,
* >> Início da exclusão: FORM GRAVA_ZYCBT064
itab_selreg_aux-nrinvoic TO /pws/zycbt064-nrinvoic,
* << Fim da exclusão
itab_selreg_aux-nrparcf TO /pws/zycbt064-nrparcf,
itab_selreg_aux-tipo TO /pws/zycbt064-tipo,
itab_selreg_aux-dtvencto TO /pws/zycbt064-dtvencto,
itab_selreg_aux-dtliquid TO /pws/zycbt064-dtliquid.
* >> Início da inclusão: FORM GRAVA_ZYCBT064
IF NOT itab_selreg_aux-nrinvoic IS INITIAL.
/pws/zycbt064-nrinvoic = itab_selreg_aux-nrinvoic.
ELSE.
/pws/zycbt064-nrinvoic = itab_selreg_aux-docto.
ENDIF.
* << Fim da inclusão
IF NOT itab_selreg_aux-lifnr IS INITIAL.
MOVE itab_selreg_aux-lifnr TO /pws/zycbt064-lifnr.
ELSE.
MOVE itab_selreg_aux-benefic TO /pws/zycbt064-lifnr.
ENDIF.
MOVE:
itab_selreg_aux-waers TO /pws/zycbt064-moeda,
itab_selreg_aux-vlme TO /pws/zycbt064-vlme,
itab_selreg_aux-fcamb TO /pws/zycbt064-fcamb,
' ' TO /pws/zycbt064-statuspg,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR107
...
DATA: END OF itab_zycit001.
DATA:BEGIN OF itab_zycbt118 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt118.
DATA: END OF itab_zycbt118.
DATA: BEGIN OF itab_nrpgfat OCCURS 0,"#EC NEEDED
nrpgfat LIKE /pws/zycit006-nrseq_pgfat.
DATA: END OF itab_nrpgfat.
DATA:BEGIN OF itab_zycbt119 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119.
* >> Início da inclusão:
DATA:BEGIN OF itab_zycbt048 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt048.
DATA: END OF itab_zycbt048.
DATA:BEGIN OF itab_corretora OCCURS 0.
DATA: corret type /pws/zycbt119-corret,
descricao type lfa1-name1.
DATA: END OF itab_corretora.
* << Fim da inclusão
DATA:BEGIN OF itab_zycit006 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit006.
DATA: END OF itab_zycit006.
data itab_zycit132 type /pws/zycit132 occurs 0.
data itab_zycit094 type /pws/zycit094 occurs 0.
DATA:BEGIN OF itab_zycit078 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit078.
DATA: END OF itab_zycit078.
DATA:BEGIN OF itab_zycit093 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit093.
...
...
PERFORM voltar.
FORM voltar.
CASE sy-ucomm.
WHEN 'VOLTAR' OR 'CANC'.
LEAVE.
PERFORM lista_dados IN PROGRAM /pws/zycbr102.
ENDCASE.
ENDFORM.
FORM seleciona_dados.
SELECT SINGLE * FROM /pws/zycbt119 WHERE nrseq = v_nrpgfat.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF NOT v_nrpgfat IS INITIAL.
APPEND v_nrpgfat TO itab_nrpgfat.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycbt118 INTO TABLE itab_zycbt118
WHERE codmodul = 'PG'
AND nrref = v_nrpgfat."#EC CI_NOFIELD
IF itab_nrpgfat[] IS INITIAL.
PERFORM seleciona_importacao USING v_nrpgfat.
ELSE.
SELECT * FROM /pws/zycbt119
INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_nrpgfat
WHERE nrseq = itab_nrpgfat-nrpgfat.
...
...
AND nrchave = v_nrpgfat.
endselect.
IF sy-subrc = 0.
SELECT * FROM /pws/zycbt031
up to 1 rows
WHERE nrseq = /pws/zycbt064-nrboleto.
endselect.
ENDIF.
SELECT SINGLE butxt FROM t001 INTO t001-butxt
WHERE bukrs = /pws/zycbt031-bukrs.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF NOT itab_zycbt119[] IS INITIAL.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt048
* >> Início da exclusão: FORM SELECIONA_DADOS
up to 1 rows
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
INTO TABLE itab_zycbt048
FOR ALL ENTRIES IN itab_zycbt119
* << Fim da inclusão
WHERE mdcorresp = 'IP'
* >> Início da exclusão: FORM SELECIONA_DADOS
AND nrcorresp = v_nrpgfat
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND nrcorresp = itab_zycbt119-nrseq
* << Fim da inclusão
AND dtboleto = /pws/zycbt031-dtboleto.
* >> Início da exclusão: FORM SELECIONA_DADOS
endselect.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
ENDIF.
* << Fim da inclusão
CLEAR v_corret.
* >> Início da exclusão: FORM SELECIONA_DADOS
IF NOT /pws/zycbt031-corret IS INITIAL.
SELECT SINGLE name1 FROM lfa1
INTO v_corret
WHERE lifnr EQ /pws/zycbt031-corret.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
IF NOT itab_zycbt119[] IS INITIAL.
SELECT lifnr name1 FROM lfa1
INTO TABLE itab_corretora
FOR ALL ENTRIES IN itab_zycbt119
WHERE lifnr EQ itab_zycbt119-corret.
ENDIF.
IF NOT itab_zycbt048[] IS INITIAL.
SELECT lifnr name1 FROM lfa1
APPENDING TABLE itab_corretora
FOR ALL ENTRIES IN itab_zycbt048
WHERE lifnr EQ itab_zycbt048-corret.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DADOS
SORT itab_corretora.
DELETE ADJACENT DUPLICATES FROM itab_corretora.
* << Fim da inclusão
CLEAR v_bcooper.
IF NOT /pws/zycbt031-bcooper IS INITIAL.
SELECT SINGLE name1 FROM lfa1
INTO v_bcooper
WHERE lifnr EQ /pws/zycbt031-bcooper.
...
...
/ text-027, v_j1bnbm,
/ text-028, v_descr,
/ text-029, v_databoleto.
SKIP 1.
WRITE : / text-052, v_textadic INPUT ON.
SKIP 1.
RESERVE 5 LINES.
FORMAT COLOR COL_HEADING INVERSE.
WRITE:/ text-030.
FORMAT COLOR COL_BACKGROUND INVERSE OFF.
* >> Início da exclusão: FORM EXIBE_DADOS
WRITE:/ text-044, /pws/zycbt031-bcooper, v_bcooper,
/ text-031, /pws/zycbt048-nrcontr,
/ text-033, /pws/zycbt031-corret, v_corret.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_DADOS
WRITE:/ text-044, /pws/zycbt031-bcooper, v_bcooper.
LOOP AT itab_zycbt048.
CLEAR: itab_zycbt119,
itab_corretora.
IF NOT itab_zycbt048-nrcontr IS INITIAL.
WRITE: / text-031, itab_zycbt048-nrcontr.
ENDIF.
READ TABLE itab_zycbt119 WITH KEY nrseq = itab_zycbt048-nrcorresp.
IF itab_zycbt119-corret IS INITIAL.
READ TABLE itab_corretora WITH KEY corret = itab_zycbt048-corret.
ELSE.
READ TABLE itab_corretora WITH KEY corret = itab_zycbt119-corret.
ENDIF.
IF NOT itab_corretora-corret IS INITIAL.
WRITE: / text-033, itab_corretora-corret,
itab_corretora-descricao.
ENDIF.
ENDLOOP.
* << Fim da inclusão
SKIP 1.
RESERVE 2 LINES.
WRITE:/001 text-036,
014 text-037,
026 text-038,
040 text-039,
056 text-040,
069 text-041.
WRITE:/001 /pws/zycbt048-dtcontr,
014 /pws/zycbt031-kursf RIGHT-JUSTIFIED,
...