Sintoma

1- Processei o boleto para uma fatura de importação. Ao entrar no complemento do boleto, preenchi os

dados para contabilização e na table control, preenchi os dados do contrato (Nr contrato, data

contrato,...) e salvei, e os dados do contrato foram gravados corretamente na tabela /pws/zycbt048.

Mas se eu sair do boleto e entrar novamente no complemento do boleto, os dados do contrato não

aparecem mais preenchidos na table control, sendo que os mesmos estão gravados corretamente na

tabela 48.dados do contrato foram preenchidos.

2-  Ao gerar um boleto com várias faturas de importação agrupadas ainda está ocorrendo os seguintes

problemas: - Se eu preencho na table control os dados do contrato para apenas algumas faturas, ao

dar um ENTER a data de liquidação está sendo preenchida para todas as faturas com a data de

liquidação da 1ª fatura. - Se eu informo os dados do contrato na table control, ao gravar, as

informações são gravadas corretamente na tabela 48, porém quando eu saio do complemento do boleto e

retorno, os dados do contrato não aparecem mais na table control.

3- Ao gravar os dados do contrato na table control do complemento do boleto, ao entrar na tabela 48

verifiquei que o programa está gravando duas linhas para cada fatura. Pode verificar os boletos:

7197 (agrupado) e 7199 (não agrupado). 2) (Esse problema também ocorre para boletos agrupados e não

agrupados) - Ao salvar o complemento do boleto, mesmo se eu não preencher nenhuma informação

referente à dados do contrato, o programa grava dois registros em branco na tabela 48. Pode

verificar os boletos: 7197 e 7201. 3) Ao agrupar várias faturas em um unico boleto. Na table control

informei os dados do contrato somente para a primeira fatura e fleguei a opção (Propor dados do

contrato), nesse momento todos os campos (referentes à dados do contrato) são preenchidos para todas

as faturas, exceto o campo "Data Liquidação", ou seja, o programa não está levando a data da

liquidação para todas as faturas, quando eu flego a opção (propor dados contrato).

Solução

1- 2- Ajuste efetuado para que o campo NRINVOIC da tabela /pws/zycbt048 seja preenchido pela SELREG-

DOCTO. Tanto para 1 boleto quanto para agrupamento de boleto, também foi ajustado o campo Data de

Liquidação, pois havia uma inconsistencia que copiava a primeira linha para todas as demais da TC.

3- Ajustes efetuados para realizar consistencia no campo NRINVOIC no complemento de boleto para 1 ou

mais faturas. Realizada consistencia com o campo V_PROPOR para a Data de Liquidação na TC.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 01550 Data: 09/06/2006 Hora: 11:47:36

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 01550

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00119

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC

----------------------------------------------------------------------------------------------------

Palavras Chave:

COMPLEMENTO DO BOLETO - PROCESSAR BOLETO - CAMPO NRINVOIC

TABELA /PWS/ZYCBT048 DADOS CONTRATO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYGL110F01

REPS /PWS/ZYCBR102

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL110F01

FORM SALVAR_DADOS.

...

          /pws/zycbt048-codmodtransa  = itab_zycbt031_tc-codmodtransa.

          /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.

*         Chamado 302025 - Renato - 13.04.2006 - Inicio

          /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.

*         Chamado 302025 - Renato - 13.04.2006 - Fim

* >> Inicio da Inclusã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 Inclusão: Form SALVAR_DADOS

          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

                           and dtincl    = itab_zycbt031_tc-dtincl

...

ENDFORM.

-----------------------------

FORM ALTERA_DADOS.

...

  else.

    itab_zycbt031_tc-v_vlmicide = /pws/zycbe064-vlmicide.

  endif.

  if tc_cont-current_line = 1.

    v_dtliquida = /pws/zycbe048-dtliquida.

* >> Inicio da Exclusão: Form ALTERA_DADOS

*  elseif tc_cont-current_line > 1.

* << Fim da Exclusão: Form ALTERA_DADOS

* >> Inicio da Inclusão: Form ALTERA_DADOS

  elseif tc_cont-current_line > 1

  and v_propor eq 'X'.

* << Fim da Inclusão: Form ALTERA_DADOS

    itab_zycbt031_tc-dtliquida = v_dtliquida.

  endif.

  modify itab_zycbt031_tc index tc_cont-current_line.

endform.                    " altera_dados

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR102

FORM IMPRIME_BOLETO.

....

    if sy-ucomm eq 'PROC'. "CHAMADO 257025 - 12/09/2005

      /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.

*     Chamado 302025 - Renato - 13.04.2006 - Inicio

* >> Inicio da exclusão: Form IMPRIME_BOLETO

*      /pws/zycbt048-nrinvoic   = itab_selreg_aux-nrinvoic.

* >> Fim da exclusão: Form IMPRIME_BOLETO

* >> Inicio da inclusão: Form IMPRIME_BOLETO

      /pws/zycbt048-nrinvoic   = itab_selreg_aux-docto.

* >> Fim da inclusão: Form IMPRIME_BOLETO

      /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.

        /pws/zycbt048-lifnr    = itab_selreg_aux-benefic.

      endif.

      /pws/zycbt048-gsberf     = itab_selreg_aux-gsberf.

      /pws/zycbt048-prctr      = itab_selreg_aux-prctr.

      /pws/zycbt048-tpjuros    = itab_selreg_aux-tpjuros.

      /pws/zycbt048-tpdesp     = itab_selreg_aux-tpdesp.

*     Chamado 302025 - Renato - 13.04.2006 - Inicio

      insert into /pws/zycbt048 values /pws/zycbt048.

    elseif sy-ucomm eq 'AGRUPAR'. "CHAMADO 257025 - 12/09/2005

*   Chamado 241483 - Renato - 27.06.2005 - Inicio

      loop at itab_selreg_aux.

        clear /pws/zycbt048.

        /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  = itab_selreg_aux-nrchave.

        /pws/zycbt048-tpparc     = itab_selreg_aux-tpparc.

        /pws/zycbt048-nrparc     = itab_selreg_aux-nrparc.

        /pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.

        /pws/zycbt048-corret     = itab_selreg_aux-corretora.

*       Chamado 302025 - Renato - 13.04.2006 - Inicio

* >> Inicio da exclusão: Form IMPRIME_BOLETO

*      /pws/zycbt048-nrinvoic   = itab_selreg_aux-nrinvoic.

* >> Fim da exclusão: Form IMPRIME_BOLETO

* >> Inicio da inclusão: Form IMPRIME_BOLETO

      /pws/zycbt048-nrinvoic   = itab_selreg_aux-docto.

* >> Fim da inclusão: Form IMPRIME_BOLETO

        /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.

          /pws/zycbt048-lifnr    = itab_selreg_aux-benefic.

        endif.

        /pws/zycbt048-gsberf     = itab_selreg_aux-gsberf.

        /pws/zycbt048-prctr      = itab_selreg_aux-prctr.

        /pws/zycbt048-tpjuros    = itab_selreg_aux-tpjuros.

...

ENDFORM.