CE PLUS - Nota 004288
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 27/07/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:56:45
Descrição da Nota: COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO
Sintoma
Ao salvar os dados do contrato de um boleto de comissão de agente, os dados estão na tabela, mas o
programa não lê novamente e não aparece na tela quando retorno ao boleto.
Solução
Carregar os dados da tabela /pws/zycbt048, /pws/zycbt064 e tablecontrol iguais, como data de
vencimento, centro de custo, parcela, para que consiga gravar e ler os dados do contrato
corretamente.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04288 Data: 27/07/2007 Hora: 10:31:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04288
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
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
01550 - 00003 - 6.0 - 00024 - COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - COMISSÃO DE AGENTE - DADOS CONTRATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO COMISSÃO DE AGENTE DADOS CONTRATO
/PWS/ZYCBT048
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
v_vlmeaux = itab_zycet010-ir_calc /
( 10 ** ( tcurx-currdec - 2 ) ).
itab_zycbt031_tc-v_vlmiir =
( ( /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.
* >> Início da exclusão: FORM CARREGA_DADOS_EL
itab_zycbt031_tc-dtvencto = itab_zycet010-dtvencto.
* << Fim da exclusão
itab_zycbt031_tc-lifnr = itab_zycet010-lifnr.
itab_zycbt031_tc-belnr_p = itab_zycet010-belnr.
PERFORM carrega_dados_globais.
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.
itab_zycbt031_tc-gsber = itab_zycet013-gsber.
itab_zycbt031_tc-nrpagto = itab_zycet013-nrseq.
* >> Início da exclusão: FORM CARREGA_DADOS_EL
itab_zycbt031_tc-dtvencto = itab_zycet013-dtlanc.
* << Fim da exclusão
itab_zycbt031_tc-lifnr = itab_zycet013-lifnr.
itab_zycbt031_tc-belnr_p = itab_zycet013-belnr.
IF itab_zycbt064-vlmi > 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.
...
...
( 10 ** ( tcurx-currdec - 2 ) ).
itab_zycbt031_tc-v_vlmiir =
( ( /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.
ENDIF.
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.
ENDLOOP.
ENDFORM.
FORM carrega_dados_ej.
LOOP AT itab_zycbt064.
CLEAR itab_zycbt031_tc.
SELECT SINGLE * FROM /pws/zycbt086 INTO /pws/zycbt086
WHERE nrseq = itab_zycbt064-nrchave.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
/pws/zycbt048-codnorma = itab_zycbt031_tc-codnorma.
/pws/zycbt048-modalidade = itab_zycbt031_tc-modalidade.
/pws/zycbt048-tpparc = itab_zycbt031_tc-tpparc.
/pws/zycbt048-nrparc = itab_zycbt031_tc-nrparc.
/pws/zycbt048-dtliquida = itab_zycbt031_tc-dtliquida.
/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.
* >> Início da exclusão: FORM SALVAR_DADOS
READ TABLE itab_zycbt064
WITH KEY nrboleto = itab_zycbt031_tc-nrseq
mdcorresp = itab_zycbt031_tc-mdcorresp
nrchave = itab_zycbt031_tc-nrcorresp
tpparc = itab_zycbt031_tc-tpparc
tpdesp = itab_zycbt031_tc-tpdesp
nrparc = itab_zycbt031_tc-nrparc
dtincl = itab_zycbt031_tc-dtincl
dtliquid = itab_zycbt031_tc-dtliquid
tpjuros = itab_zycbt031_tc-tpjuros.
/pws/zycbt048-nrinvoic = itab_zycbt064-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
/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.
* << Fim da inclusão
MODIFY /pws/zycbt048 FROM /pws/zycbt048.
UPDATE /pws/zycbt064 SET vlmi = itab_zycbt031_tc-v_vlmi
vlmiir = itab_zycbt031_tc-v_vlmiir
vlmicide = itab_zycbt031_tc-v_vlmicide
WHERE nrboleto = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrchave = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
AND tpdesp = itab_zycbt031_tc-tpdesp
AND nrparc = itab_zycbt031_tc-nrparc
...
...
( 10 ** ( tcurx-currdec - 2 ) ).
ENDIF.
itab_zycbt031_tc-waers = /pws/zycbe031-waers.
ENDIF.
itab_zycbt031_tc-nrseq = itab_zycbt064-nrboleto.
itab_zycbt031_tc-nrcorresp = itab_zycbt064-nrchave.
itab_zycbt031_tc-mdcorresp = itab_zycbt064-mdcorresp.
itab_zycbt031_tc-tpparc = itab_zycbt064-tpparc.
itab_zycbt031_tc-nrparc = itab_zycbt064-nrparc.
itab_zycbt031_tc-dtincl = itab_zycbt064-dtincl.
* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS
itab_zycbt031_tc-nrinvoic = itab_zycbt064-nrinvoic.
itab_zycbt031_tc-nrparcf = itab_zycbt064-nrparcf.
itab_zycbt031_tc-gsberf = itab_zycbt064-gsberf.
itab_zycbt031_tc-prctr = itab_zycbt064-prctr.
* << Fim da inclusão
IF itab_zycbt031_tc-belnr_p IS INITIAL.
itab_zycbt031_tc-belnr_p = /pws/zycbe031-belnr_p.
ENDIF.
IF itab_zycbt031_tc-belnr_pi IS INITIAL.
itab_zycbt031_tc-belnr_pi = /pws/zycbe031-belnr_pi.
ENDIF.
IF itab_zycbt031_tc-belnr_cide IS INITIAL.
itab_zycbt031_tc-belnr_cide = /pws/zycbe031-belnr_cide.
ENDIF.
itab_zycbt031_tc-tipo = itab_zycbt064-tipo.
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
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
* >> Início da exclusão: FORM GRAVAR_DADOS_CONTRATO
AND tpdesp = itab_zycbt031_tc-tpdesp.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_DADOS_CONTRATO
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.
* << 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.
...