Sintoma

No complemento do boleto, criei vários boletos de uma vez só,

em seguida para fazer o complemento, inclui no filtro os números

destes boletos, mostrando várias linhas. Selecionei linha a linha

e fui incluindo os dados de fechamento de câmbio, na terceira

ou quarta remessa notei que os valores ME dos impostos estavam diferentes dos

valores da própria remessa. Erro também ao efetuar a contabilização

dos boletos sem sair da tela de seleção, onde a partir do segundo

boleto de remessa regime de caixa, o sistema parou e não prosseguiu.

Solução

Selecionar sempre os dados das tabelas /pws/zycbt141 e /pws/zycbt124,

para trazer os valores corretos e contabilizar corretamente.

Informações Complementares

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

Nota Número 00640 Data: 11/01/2006 Hora: 15:50:36

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

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

Nota Número              : 00640

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00096

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO BOLETO DE REMESSA VALORES IMPOSTOS E TIME OUT

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

Palavras Chave:

COMPLEMENTO BOLETO TIME OUT CONTABILIZAÇÃO REMESSA

DE REGIME DE CAIXA VALORES IMPOSTOS INCORRETOS

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

Objetos da nota:

REPS /PWS/MZYCA110F01

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

Contexto: FORM selecionar_cp.

*<< Inicio exclusão >>

* IF wa_zycbt124-nrseq IS INITIAL.

*<< Fim exclusão >>

  SELECT SINGLE * FROM /pws/zycbt124 INTO wa_zycbt124

                  WHERE nrseq = /pws/zycbe031-nrcorresp.

*<< Inicio exclusão >>

* ENDIF.

*<< Fim exclusão >>

* Buscando viajante

  SELECT SINGLE * FROM /pws/zycbt127

                  WHERE nrseq = wa_zycbt124-nrseq.

  SELECT SINGLE tprem FROM /pws/zycbt125

                      INTO /pws/zycbt125-tprem

                      WHERE codpagto EQ wa_zycbt124-codpagto

                        AND tpoper EQ 'R'.

*<< Inicio inclusão >>

  IF NOT itab_zycbt064[] IS INITIAL.

    SELECT * FROM /pws/zycbt141 INTO TABLE itab_zycbt141

             FOR ALL ENTRIES IN itab_zycbt064

             WHERE nrseq = itab_zycbt064-nrchave.

  ENDIF.

*<< Inicio inclusão >>

* Parâmetros Gerais

  SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                  WHERE bukrs EQ /pws/zycbe031-bukrs.

  SELECT SINGLE * FROM /pws/zycbt089

                  WHERE bukrs EQ /pws/zycbe031-bukrs.

  SELECT SINGLE * FROM /pws/zyglt009

                  WHERE bukrs EQ /pws/zycbe031-bukrs.

  SELECT * FROM /pws/zycat024 INTO TABLE itab_zycat024

           WHERE bukrs = /pws/zycbe031-bukrs.

  IF itab_zycbt064[] IS INITIAL.

    SELECT * FROM /pws/zycbt064

             INTO TABLE itab_zycbt064

             WHERE nrboleto = /pws/zycbe031-nrseq.

  ENDIF.

  IF NOT itab_zycbt064[] IS INITIAL AND

     itab_zycbt124_aux[] IS INITIAL.

    SELECT * FROM /pws/zycbt124 INTO TABLE itab_zycbt124_aux

             FOR ALL ENTRIES IN itab_zycbt064

             WHERE nrseq EQ itab_zycbt064-nrchave.

  ENDIF.

...

endform.

Contexto: FORM carrega_dados_imp_cp.

*<< Inicio exclusão >>

* IF itab_zycbt141[] IS INITIAL AND

*    NOT itab_zycbt064[] IS INITIAL.

*    SELECT * FROM /pws/zycbt141 INTO TABLE itab_zycbt141

*             FOR ALL ENTRIES IN itab_zycbt064

*             WHERE nrseq = itab_zycbt064-nrchave.

*  ENDIF.

*<< Fim exclusão >>

  IF NOT itab_zycbt064[] IS INITIAL.

    SELECT * FROM /pws/zycat025 INTO TABLE itab_zycat025

             FOR ALL ENTRIES IN itab_zycbt064

             WHERE nrseq = itab_zycbt064-nrchave.

  ENDIF.

  CLEAR   itab_dados_tc.

  REFRESH itab_dados_tc.

* Principal

  itab_dados_tc-index       = 0.

  itab_dados_tc-tpimp       = 'PRINCIPAL'.

  itab_dados_tc-kursf       = /pws/zycbe031-kursf.

  itab_dados_tc-waers       = /pws/zycbe031-waers.

  itab_dados_tc-vlme        = /pws/zycbe031-vlme.

  itab_dados_tc-vlmi        = /pws/zycbe031-vlmi.

  itab_dados_tc-bcooper     = /pws/zycbe031-bcooper.

  itab_dados_tc-dtlanc      = /pws/zycbe031-dtcredpr.

  itab_dados_tc-vlded       = ' '.

  itab_dados_tc-zlsch       = /pws/zycbe145-zlsch.

  itab_dados_tc-pagtoirrf   = ' '.

  IF NOT /pws/zycbe031-belnr_p   IS INITIAL AND

     ( /pws/zycbe145-cod_fech    EQ 'TR'    OR  "Trava

       itab_zycbt124_aux-frpagto EQ 'R'     OR  "Regime de Caixa

       itab_zycbt124_aux-tpoper  EQ 'R' ).      "Remessa Recebimento

    itab_dados_tc-belnr     = /pws/zycbe031-belnr_p.

  ENDIF.

...

endform.

endform.