Sintoma

O programa de remessa não mostra os valores na base de calculo dos impostos cfe. a formula

parametrizada na (/pws/zycbt026).

Solução

aumentar os campos onde se lê a formula para o programa poder entendê-la inteira.

Informações Complementares

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

Nota Número 07449 Data: 17/10/2008 Hora: 09:29:34

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

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

Nota Número              : 07449

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00069

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

Referência às notas relacionadas:

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

06115  - 00001 - 7.0    - 00004  - REMESSA CÂMBIO FINANCEIRO

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

ERRO NA BASE DE CALCULO NO PROGRAMA DE REMESSA

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

Palavras Chave:

ERRO NA BASE DE CALCULO NO PROGRAMA DE REMESSA - /PWS/ZYCAT026

NÃO SÃO CALCULADOS CONFORME A FORMULA PARAMETRIZADA NA (/PWS/ZYCBT026)

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

Objetos da nota:

FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO

MERG F6DK965697 20081014 151500 PWSCB

RELE F6DK965705 20081014 151515 PWSCB

REPS /PWS/ZYGLR039

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

Modificações efetuadas em FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO

FUNCTION /pws/zyca_base_calculo_imposto.

  DATA: wa_irrf   TYPE /pws/zycat025,

        wa_cide   TYPE /pws/zycat025,

        wa_pis    TYPE /pws/zycat025,

        wa_cofins TYPE /pws/zycat025,

        wa_iss    TYPE /pws/zycat025,

        wa_iof    TYPE /pws/zycat025.

  DATA: v_pos          TYPE i,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

        v_calculo(140) TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

        v_calculo(300) TYPE c,

* << Fim da inclusão

        v_chamada(50)  TYPE c.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

  DATA: t_prog(150) TYPE c OCCURS 1000 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

  DATA: t_prog(300) TYPE c OCCURS 1000 WITH HEADER LINE.

* << Fim da inclusão

  CLEAR: wa_irrf, wa_cide, wa_pis, wa_cofins, wa_iss, wa_iof, vl_base.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'PIS'    INTO wa_pis.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'ISS'    INTO wa_iss.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'IOF'    INTO wa_iof.

  READ TABLE t_zycat025 WITH KEY tpimp(4) = 'IRRF'   INTO wa_irrf.

  READ TABLE t_zycat025 WITH KEY tpimp(4) = 'CIDE'   INTO wa_cide.

  READ TABLE t_zycat025 WITH KEY tpimp(6) = 'COFINS' INTO wa_cofins.

  v_calculo = formula.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

  DO 126 TIMES.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

  DO 250 TIMES.

* << Fim da inclusão

    v_pos = sy-index - 1.

    IF v_calculo+v_pos(9) = 'PRINCIPAL'.

      CLEAR v_calculo+v_pos(9).

      CONDENSE v_calculo+v_pos.

      CONCATENATE 'VL_REMESSA' v_calculo+v_pos

                                INTO v_calculo+v_pos SEPARATED BY space.

    ELSEIF v_calculo+v_pos(7) = 'VA_IRRF'.

      CLEAR v_calculo+v_pos(7).

      CONDENSE v_calculo+v_pos.

      CONCATENATE 'WA_IRRF-VLIMPME' v_calculo+v_pos

...

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

Modificações efetuadas em REPS /PWS/ZYGLR039

report  /pws/zyglr039.

data: begin of itab_saida occurs 0,

        campo(242)         type c,

      end of itab_saida.

data: wa_saida like itab_saida.

* >> Início da exclusão:

data: t_prog(150)   type c occurs 1000 with header line,

* << Fim da exclusão

* >> Início da inclusão:

data: t_prog(300)   type c occurs 1000 with header line,"#EC NEEDED

* << Fim da inclusão

      vl_remessa    type /pws/zycbt124-vlme,

      vl_base       type /pws/zycbt124-vlme,

      wa_irrf       type /pws/zycat025,

      wa_cide       type /pws/zycat025,

      wa_pis        type /pws/zycat025,

      wa_cofins     type /pws/zycat025,

      wa_iss        type /pws/zycat025,

      wa_iof        type /pws/zycat025,

      w_prog        like trdir-name,

      v_chamada(50) type c.

...

...

...