CE PLUS - Nota 006081
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 29/02/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:54:38
Descrição da Nota: COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE
Sintoma
O programa não grava corretamente os dados do contrato.
Solução
Ajustado para buscar a data de vencimento da tabela /pws/zycbt064.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06081 Data: 29/02/2008 Hora: 16:36:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06081
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04288 - 00001 - 7.0 - 00002 - COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
( ( /pws/zycbe031-taxair / v_dfact ) * v_pfact ) * v_vlmeaux.
IF wa_tcurx-currdec = 0.
itab_zycbt031_tc-v_vlmiir = itab_zycbt031_tc-v_vlmiir *
( 10 ** ( wa_tcurx-currdec - 2 ) ).
ENDIF.
ENDIF.
itab_zycbt031_tc-nrpagto = itab_zycet010-nrseq.
itab_zycbt031_tc-lifnr = itab_zycet010-lifnr.
itab_zycbt031_tc-belnr_p = itab_zycet010-belnr.
PERFORM carrega_dados_globais.
* >> Início da inclusão: FORM CARREGA_DADOS_EL
itab_zycbt031_tc-dtvencto = itab_zycbt064-dtvencto.
* << Fim da inclusão
APPEND itab_zycbt031_tc.
ENDIF.
ENDIF.
ELSEIF /pws/zycet037-comis_provisao = '1'.
READ TABLE itab_zycet013 WITH KEY nrseq = itab_zycbt064-nrchave
lifnr = itab_zycbt064-lifnr
gsber = itab_zycbt064-gsberf
prctr = itab_zycbt064-prctr.
IF sy-subrc = 0.
itab_zycbt031_tc-bukrs = /pws/zycbe031-bukrs.
...