Sintoma

1) Ao entrar para criar uma Remessa de pagamento com impostos, preencho todos os dados do principal

e incluo os impostos e sem preencher nenhuma informação na table control dos impostos eu dou um

ENTER, nesse momento o programa exige somente o preenchimento dos campos "Forma de pagamento do

imposto" e "Data de lançamento" e somente se dou um outro ENTER ou mando gravar é que o programa

exige o preenchimento do campo "Ad Valorem". Favor efetuar os ajustes para tornar esse campo também

de preenchimento obrigatório igual aos campos "Forma de pagamento" e "Data de lançamento". Para

verificar é só criar uma remessa de pagamento com impostos. 2) (Esse problema só ocorre no ambiente

da Metalcorte e não conseguí identificar o porque) - Ao entrar para criar uma remessa de pagamento

com impostos, eu preencho os dados de Principal e não dou ENTER, vou na table control dos impostos e

incluo o IRRF por exemplo e não preencho nenhuma informação na table control, mas ao dar um ENTER, o

programa exige o preenchimento da "Forma de pagamento", mas após os preenchimento, está sendo

exibida a mensagem "Entrada IRRF não existente na tabela zycat024 (verificar entrada)" e não permite

que eu grave a remessa, sendo que o registro do IRRF está parametrizado corretamente na zycat024.

Solução

1- Campo "Ad Valorem" passou a ser obrigatorio na tela.

2- Removida tela 004, para o programa voltar a tratar a tela da maneira antiga, isto é, primeiro o

usuário precisa consistir o principal, pressionar ENTER, e só depois realizar o preenchimento dos

impostos.

Informações Complementares

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

Nota Número 02709 Data: 15/12/2006 Hora: 13:28:21

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

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

Nota Número              : 02709

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

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

02171  - 00001 - 6.0    - 00025  - REMESSA - DA STATUS CAMPOS TELA PAGAMENTO/RECEBIMENTO

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

REMESSA - CAMPO "AD VALOREM" E REMOÇÃO DA TELA 004

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

Palavras Chave:

REMESSA - CAMPO "AD VALOREM" E REMOÇÃO DA TELA 004

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

Objetos da nota:

CUAD /PWS/SAPMZYCA109

DYNP /PWS/SAPMZYCA109                        0004

DYNP /PWS/SAPMZYCA109                        0101

REPS /PWS/MZYCA109I01

REPS /PWS/MZYCA109TOP

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

Modificações efetuadas em CUAD /PWS/SAPMZYCA109

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA109                        0004

Exclusão da Tela 004.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA109                        0101

Tornar o campo /PWS/ZYCBE124-TPOPER aberto para digitação e obrigatório.

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

Modificações efetuadas em REPS /PWS/MZYCA109I01

...

  ENDIF.

  PERFORM pega_descricao_dominio USING   '/PWS/ZYCBE124-MODALIDADE'

                                          /pws/zycbe124-modalidade

                                 CHANGING txtmodalidade.

ENDMODULE.

MODULE user_command_0002 INPUT.

  CASE ok_code.

    WHEN 'ENTE'.

      IF v_sori = 'X'.

        /pws/zycbe124-criacao = 'S'.

* >> Início da exclusão: MODULE USER_COMMAND_0002

        CALL SCREEN '0004' STARTING AT 2 2 ENDING AT 27 4.

* << Fim da exclusão

        IF ok_code EQ 'ENTE'.

* >> Início da exclusão: MODULE USER_COMMAND_0002

          IF rb_rec = 'X'.

            /pws/zycbe124-tpoper = 'R'.

          ELSE.

            /pws/zycbe124-tpoper = 'P'.

          ENDIF.

* << Fim da exclusão

          LEAVE TO SCREEN '0100'.

        ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCA109TOP

...

  v_basecalc_iof      LIKE /pws/zycat025-basecalc,

  v_basecalc_iss      LIKE /pws/zycat025-basecalc,

  v_basecalc_pis      LIKE /pws/zycat025-basecalc,

  v_basecalc_cofins   LIKE /pws/zycat025-basecalc,

  v_defator           LIKE tcurr-ffact,

  v_parafator         LIKE tcurr-ffact,

  v_control_ci(10)       TYPE n,

  v_control_is(10)       TYPE n,

  v_control_pi(10)       TYPE n,

  v_control_co(10)       TYPE n,

* >> Início da exclusão:

  v_indice TYPE i,

  rb_rec(1)           type c,

  rb_pag(1)           type c.

* << Fim da exclusão

* >> Início da inclusão:

  v_indice TYPE i.

* << Fim da inclusão

DATA: v_nome_campo(35) TYPE c,

      v_comp(35)       TYPE c,

      v_cod_grupo      LIKE /pws/zyglt320-cod_grupo,

      cont             TYPE i VALUE 0,

      v_tela           LIKE sy-ucomm,

      wa_zycbe141_aux  LIKE /pws/zycbe141,

      v_dtlanc(10)     TYPE c.

DATA: e_subrc       LIKE sy-subrc.