CE PLUS - Nota 009750
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 29/01/2010 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:16:11
Descrição da Nota: TRATAMENTO PARA EXIBIÇÃO DE CONTRATO EM FATURA DE PAGTO ANTECIPADO.
Sintoma
Fatura não exibe dados de contrato de câmbio em fatura de pagamento antecipado.
Solução
Feito tratamento para exibição de contrato em fatura de pagamento antecipado.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09750 Data: 29/01/2010 Hora: 10:23:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09750
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA EXIBIÇÃO DE CONTRATO EM FATURA DE PAGTO ANTECIPADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DADOS DE CONTRATO DE CÂMBIO - PAGAMENTO ANTECIPADO
FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
* >> Início da inclusão:
FORM dados_cambio.
SELECT SINGLE * FROM /pws/zycbt119
INTO /pws/zycbe119
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
IF sy-subrc EQ 0.
PERFORM verifica_pag_antecipado2.
IF v_pg_ant2 NE 'X'.
SELECT SINGLE * FROM /pws/zycbt031
INTO /pws/zycbe031
WHERE bukrs = /pws/zycbe119-bukrs
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq
AND tabela = '/PWS/ZYCBT119'.
SELECT SINGLE name1 FROM lfa1 INTO v_name1
WHERE lifnr = /pws/zycbe031-bcooper.
SELECT SINGLE * FROM /pws/zycbt048
INTO /pws/zycbe048
WHERE bukrs = /pws/zycbe119-bukrs
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq.
SELECT SINGLE * FROM /pws/zycbt115
INTO /pws/zycbe115
WHERE nrcorrep = /pws/zycbe119-nrseq
AND tpdoc = 'P'.
ELSE.
IF NOT itab_zycbt117[] IS INITIAL.
READ TABLE itab_zycbt117 INDEX 1.
SELECT *
FROM /pws/zycbt064
UP TO 1 ROWS
INTO /pws/zycbt064
WHERE nrchave = itab_zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
IF sy-subrc EQ 0.
SELECT *
FROM /pws/zycbt048
UP TO 1 ROWS
INTO /pws/zycbe048
WHERE nrseq = /pws/zycbt064-nrboleto
AND mdcorresp = 'IA'
AND nrcorresp = itab_zycbt117-nrseq.
ENDSELECT.
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
INTO /pws/zycbe031
WHERE nrcorresp = itab_zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
SELECT * FROM /pws/zycbt115
UP TO 1 ROWS
INTO /pws/zycbe115
WHERE nrcorrep = itab_zycbt117-nrfinanc.
ENDSELECT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
MODIFY tc_fat_parc-cols FROM wa_cols.
ENDIF.
IF wa_cols-screen-name = '/PWS/ZYCIE132-NRSEQRE'.
wa_cols-invisible = '0'.
MODIFY tc_fat_parc-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
WHEN '0112'.
* >> Início da exclusão: MODULE SET_SCREEN
SELECT SINGLE * FROM /pws/zycbt119
INTO /pws/zycbe119
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
SELECT SINGLE * FROM /pws/zycbt031
INTO /pws/zycbe031
WHERE bukrs = /pws/zycbe119-bukrs
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq
AND tabela = '/PWS/ZYCBT119'.
SELECT SINGLE name1 FROM lfa1 INTO v_name1
WHERE lifnr = /pws/zycbe031-bcooper.
SELECT SINGLE * FROM /pws/zycbt048
INTO /pws/zycbe048
WHERE bukrs = /pws/zycbe119-bukrs
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq.
SELECT SINGLE * FROM /pws/zycbt115
INTO /pws/zycbe115
WHERE nrcorrep = /pws/zycbe119-nrseq
AND tpdoc = 'P'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
perform dados_cambio.
* << Fim da inclusão
WHEN '0350'.
v_input = '0'.
IF v_acto = 'A'.
v_input = '1'.
ENDIF.
MOVE /pws/zycie006-codcambial TO v_m.
LOOP AT SCREEN.
screen-input = '0'.
screen-invisible = '1'.
CASE v_m.
...