CE PLUS - Nota 001020

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Rotina de Pagamento

Data/Hora da Publicação: 14/03/2006 00:00:00

Data/Hora Última Alteração: 18/02/2011 13:59:33

Descrição da Nota: COMPLEMENTO DE BOLETO REMESSA CAMPO LIFNR ZYCAT024

Sintoma

Ao contabilizar o complemento de boleto, o programa não busca a conta de credito da tabela zycat024

- campo - LIFNR.

 

 

Solução

A gravação da tabela zycat024 foi recolocada para depois da chamada do programa especifico.

 

Versões Tratadas

6.0

Informações Complementares

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

Nota Número 01020 Data: 14/03/2006 Hora: 14:02:11

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

 

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

Nota Número              : 01020

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00105

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

COMPLEMENTO DE BOLETO REMESSA CAMPO LIFNR ZYCAT024

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

Palavras Chave:

COMPLEMENTO DE BOLETO REMESSA CAMPO LIFNR ZYCAT024

EXIT PBE002 - PROGRAMA ESPECIFICO ZBMCEI012

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

Objetos da nota:

REPS /PWS/MZYCA110F01

 

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

 

...

                                    'NEWKO'

                                    text-016.

  ENDIF.

  itab_zycbe033-d_gsber = itab_zycbt124_aux-gsber.

  itab_zycbe033-c_gsber = itab_zycbt124_aux-gsber.

* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP

  APPEND itab_zycbe033.

  PERFORM lancamento_multiplo USING p_tpimp

                                    p_recontabiliza

                                    p_recuperar.

* << Fim da exclusão

  MOVE sy-repid TO v_repid.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       EXPORTING

            i_codmod                = v_cod_mod

            i_func                  = v_repid

...

 

...

    IF sy-subrc EQ 0.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ENDIF.

  ENDIF.

* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP

  APPEND itab_zycbe033.

  PERFORM lancamento_multiplo USING p_tpimp

                                    p_recontabiliza

                                    p_recuperar.

* << Fim da inclusão

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

    IF itab_zycbt124_aux-tpoper = 'R'.

...