Sintoma

No Processar boleto, ao tentar gerar boleto surge mensagem "C.Conta débito não está preenchido". E o

boleto não é gerado.

Solução

Alterada includes /PWS/MZYGL110F01 e /PWS/ZYCBN102 diferenciando corretamente Despesa de Exportação

e Exportação de Captação.

Informações Complementares

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

Nota Número 06158 Data: 12/03/2008 Hora: 15:32:11

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

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

Nota Número              : 06158

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00037

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

06077  - 00001 - 7.0    - 00004  - DESPESAS DE EXPORTAÇÃO

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

PROCESSAR BOLETO

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

Palavras Chave:

PROCESSAR BOLETO - CONTA DÉBITO PREENCHIDA COM PARÂMETRO

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

Objetos da nota:

REPS /PWS/MZYGL110F01

REPS /PWS/ZYCBN102

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

  ENDIF.

  itab_pf_status-fcode = 'ADIC'.

  APPEND itab_pf_status.

  IF ok_code = 'EXEC'.

    IF /pws/zycbe031-mdcorresp = 'CD' OR

       /pws/zycbe031-mdcorresp = 'ED' OR

       /pws/zycbe031-mdcorresp = 'ID' OR

       /pws/zycbe031-mdcorresp = 'EC'.

      IF v_fcambio               IS INITIAL AND

         ( /pws/zycbe031-mdcorresp EQ 'CD' OR

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

         ( /pws/zycbe031-mdcorresp EQ 'CD' AND

* << Fim da exclusão

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

         ( /pws/zycbe031-mdcorresp EQ 'ED' AND

* << Fim da inclusão

           /pws/zycbe031-tabela    EQ '/PWS/ZYCBT118' ) OR

           /pws/zycbe031-mdcorresp EQ 'ID' ).

        SELECT SINGLE fcambio

               FROM /pws/zycbt118

               INTO v_fcambio

               WHERE nrseq = /pws/zycbe031-nrcorresp.

      ELSEIF v_fcambio               IS INITIAL AND

             /pws/zycbe031-mdcorresp EQ 'ED'.

        SELECT SINGLE fcambio

                      FROM /pws/zycbt004 INTO v_fcambio

...

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

Modificações efetuadas em REPS /PWS/ZYCBN102

...

ENDFORM.

FORM retorna_flag.

  MOVE: 'Z' TO itab_selreg_aux-flag.

  MODIFY itab_selreg_aux.

ENDFORM.

FORM dados_batch_despesa USING value(p_wa_despesa) LIKE wa_despesa.

  DATA: v_sai VALUE ' ',

        v_chvoper LIKE /pws/zyglt321-ktosl.

  IF itab_selreg_aux-frpagto EQ 'C'  AND

     itab_selreg_aux-fmd     NE 'ID' AND

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

     ( itab_selreg_aux-fmd   NE 'ED' AND

       p_wa_despesa-tabela   NE '/PWS/ZYCBT118' ) AND

* << Fim da exclusão

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

     p_wa_despesa-tabela     NE '/PWS/ZYCBT118' AND

* << Fim da inclusão

     itab_selreg_aux-fmd     NE 'CD'.

    SELECT *

      FROM /pws/zycbt004

        UP TO 1 ROWS

      WHERE nrseqc   = itab_selreg_aux-nrchave

        AND tpdesp   = itab_selreg_aux-tpdesp

        AND nrparc   = itab_selreg_aux-nrparc

        AND dtincl   = itab_selreg_aux-dtincl

        AND dtliquid = itab_selreg_aux-dtliquid

        AND tpjuros  = itab_selreg_aux-tpjuros.

...

...

      PERFORM verify_null_field USING itab_zycbe033-agkon

                                      'AGKON'

                                      text-013.

      itab_zycbe033-c_newko = p_wa_despesa-benefic.

      PERFORM verify_null_field USING itab_zycbe033-c_newko

                                      'NEWKO'

                                      text-013.

      itab_zycbe033-agkoa = 'K'.

    ELSE.

      IF itab_selreg_aux-fmd NE 'ID' AND

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

         ( itab_selreg_aux-fmd  NE 'ED' AND

           p_wa_despesa-tabela  NE '/PWS/ZYCBT118' ) AND

* << Fim da exclusão

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

         p_wa_despesa-tabela  NE '/PWS/ZYCBT118' AND

* << Fim da inclusão

         itab_selreg_aux-fmd NE 'CD'.

        SELECT  * FROM /pws/zycbt004

            UP TO 1 ROWS

          WHERE nrseqc   = itab_selreg_aux-nrchave

            AND tpdesp   = itab_selreg_aux-tpdesp

            AND nrparc   = itab_selreg_aux-nrparc

            AND dtincl   = itab_selreg_aux-dtincl

            AND dtliquid = itab_selreg_aux-dtliquid

            AND tpjuros  = itab_selreg_aux-tpjuros.

        ENDSELECT.

...

...

          itab_zycbe033-d_newko = itab_zyglt316-konts.

          itab_contas-conta = itab_zyglt316-konts.

          APPEND itab_contas.

        ENDIF.

        PERFORM verify_null_field USING itab_zycbe033-d_newko

                                        'NEWKO'

                                        text-012.

      ENDIF.

      IF p_wa_despesa-frpagto = 'R' AND

         ( itab_selreg_aux-fmd = 'ID' OR

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

         ( itab_selreg_aux-fmd = 'ED' AND

           p_wa_despesa-tabela = '/PWS/ZYCBT118' ) OR

* << Fim da exclusão

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

           p_wa_despesa-tabela = '/PWS/ZYCBT118' OR

* << Fim da inclusão

           itab_selreg_aux-fmd = 'CD' ).

        IF p_wa_despesa-codmod = 'I'.

          v_ktosl = 'PDI'.

        ELSEIF p_wa_despesa-codmod = 'E'.

          v_ktosl = 'DSE'.

        ELSEIF p_wa_despesa-codmod = 'F'.

          v_ktosl = 'PDS'.

        ENDIF.

        CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

             EXPORTING

...