CE PLUS - Nota 004029
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 25/06/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:56:54
Descrição da Nota: COMPLEMENTO DO BOLETO - DADOS CONTRATO - COMISSÃO CONTRATO
Sintoma
Ao gravar os dados do contrato de um boleto que já foi efetuada a saída de pagamento, boleto de
comissão de contrato, é exibida e mensagem de Dados Gravados, mas ao sair e entrar novamente os
dados não aparecem na tela.
Solução
Para gravar o campo LIFNR na /PWS/ZYCBT048, tem que carregar os dados no complemento do boleto.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04029 Data: 25/06/2007 Hora: 10:31:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04029
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03563 - 00001 - 7.0 - 00001 - COMPLEMENTO DO BOLETO - CAMPOS BUPLA E BRNCH
03957 - 00002 - 7.0 - 00002 - COMPLEMENTO DO BOLETO - COMISSÃO CONTRATO - CENTRO
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - DADOS CONTRATO - COMISSÃO CONTRATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO DADOS CONTRATO COMISSÃO CONTRATO
/PWS/ZYCBT048 LIFNR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
itab_zycbt031_tc-dtincl = /pws/zycbt002-dtinicio.
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbt001
WHERE nrseqc = /pws/zycbt002-nrseqc.
IF sy-subrc EQ 0.
itab_zycbt031_tc-gsber = /pws/zycbt001-gsber.
itab_zycbt031_tc-nrpagto = /pws/zycbt001-nrcontr.
itab_zycbt031_tc-bukrs = /pws/zycbt001-bukrs.
itab_zycbt031_tc-werks = /pws/zycbt001-werks.
itab_zycbt031_tc-j_1bbranch = /pws/zycbt001-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS_EO
itab_zycbt031_tc-lifnr = itab_zycbt064-lifnr.
* << Fim da inclusão
IF itab_zycbt064-vlmi GT 0.
itab_zycbt031_tc-v_vlmi = itab_zycbt064-vlmi.
ELSE.
v_vlmeaux =
itab_zycbt064-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
itab_zycbt031_tc-v_vlmi =
( ( /pws/zycbe031-kursf / v_dfact ) * v_pfact ) * v_vlmeaux.
IF wa_tcurx-currdec = 0.
itab_zycbt031_tc-v_vlmi =
itab_zycbt031_tc-v_vlmi * ( 10 ** ( wa_tcurx-currdec - 2 ) ).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
ENDIF.
IF v_fcambio EQ 'N'.
v_status_s = '0'.
v_status_despesa = '1'.
wa_zycbt031 = /pws/zycbe031.
ENDIF.
ELSE.
v_status_despesa = '0'.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM EXIBE_ALTERA_100
IF v_status_s EQ '0'.
itab_pf_status-fcode = 'SAVE'.
APPEND itab_pf_status.
ENDIF.
* << Fim da exclusão
SET PF-STATUS '0200' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
ENDFORM.
FORM desabilitar_100.
IF v_status_s = '1'.
SELECT SINGLE * FROM /pws/zycbt134
WHERE nrseq = /pws/zycbe031-nrseq AND
dtboleto = /pws/zycbe031-dtboleto.
IF sy-subrc EQ 0.
IF v_altera_dtliquid = 'X'.
...