Sintoma

Ao replicar itens, alguns campos estão sendo apagados.

Solução

Mover e salvar campos ao replicar itens na DI.

Informações Complementares

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

Nota Número 09530 Data: 08/12/2009 Hora: 15:18:04

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

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

Nota Número              : 09530

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

01520  - 00001 - 6.0    - 00023  - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI

01846  - 00002 - 6.0    - 00024  - NA DI, QUANDO FLEGO ICMS DIFERIDO O PROGRAMA APAGA O FLEG.

02325  - 00003 - 6.0    - 00025  - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO

02472  - 00004 - 6.0    - 00025  - PROGRAMA NÃO ACEITA ALTERAR REGIME TRIBUTÁRIO DOS IMPOSTOS NA DI.

02806  - 00005 - 6.0    - 00026  - SISTEMA NÃO MANTÉM INFORMAÇÕES ALTERADAS NA DI

04850  - 00006 - 7.0    - 00003  - DI - FORNECEDOR

05046  - 00007 - 7.0    - 00003  - NO REGIME 05 ADMISSÃO TEMPORÁRIA O REGIME TRIBUTÁRIO NA DI SERA S

05335  - 00008 - 7.0    - 00003  - QUANDO PREENCHEMOS PORCENTAGEM DE ACORDO, NÃO RECALCULA IMPOSTOS

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

AO REPLICAR ITENS, ALGUNS CAMPOS ESTÃO SENDO APAGADOS

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

Palavras Chave:

REPLICAR - ITENS - DI - FUNDAMENTO LEGAL - II - IPI

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0431

REPS /PWS/MZYCI023I01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0431

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0431

...

module: set_screen.

process after input.

field: /pws/zycie100a-aladi      module load_alad on request.

field: /PWS/ZYCIE100A-CODREGTRI  module propoe_regtriii.

chain.

       field: /pws/zycie003-advalii,

              /pws/zycie100a-acordorate,

              /pws/zycie100a-reduzida,

              /pws/zycie100a-percreduz,

              /pws/zycie100a-codregtri,

* >> Início da inclusão:

              /pws/zycie100a-codfunleg,

* << Fim da inclusão

              /pws/zycie100a-acordo.

   module calc_vii on chain-request.

   module calc_vicms on chain-request.

endchain.

module: load_fund.

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

MODULE calc_vii INPUT.

* >> Início da inclusão: MODULE CALC_VII

  MOVE-CORRESPONDING /pws/zycie003  TO itab_it.

* << Fim da inclusão

  MOVE-CORRESPONDING /pws/zycie100a TO itab_it.

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

  itab_it-codregtri  = /pws/zycie100a-codregtri .

* << Fim da exclusão

  v_tipop = 'T'.

  PERFORM calcula_impostos USING v_tipop.

  wa_it-baseii   = itab_it-baseii.

  wa_it-vlii     = itab_it-vlii.

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

  wa_it-baseicms = itab_it-baseicms.

  wa_it-vlicms   = itab_it-vlicms.

  wa_it-advalii  = itab_it-advalii = /pws/zycie003-advalii.

  IF /pws/zycie100a-codregtri NE v_icodr1.

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

    IF v_dit = 'S'.

      PERFORM: load_regt USING    /pws/zycie100a-codregtri

  /pws/zycie085-ntimp '1'

                            CHANGING t_regdes.

    ELSEIF v_dit = 'N'.

* << Fim da exclusão

      CLEAR: /pws/zycie085-ntimp.

      PERFORM: load_regt USING /pws/zycie100a-codregtri

                               /pws/zycie085-ntimp '1'

                         CHANGING t_regdes.

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

    ENDIF.

    CLEAR: /pws/zycie100a-codfunleg, t_fundes.

* << Fim da exclusão

    IF ' 269' NA /pws/zycie100a-codregtri.

      IF NOT /pws/zycie003-aliqii IS INITIAL

         AND /pws/zycie003-advalii IS INITIAL.

        /pws/zycie003-advalii = /pws/zycie003-aliqii.

      ENDIF.

    ENDIF.

    IF /pws/zycie100a-codregtri EQ '6'.

      CLEAR /pws/zycie003-advalii.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE calc_vipi INPUT.

* >> Início da inclusão: MODULE CALC_VIPI

  MOVE-CORRESPONDING /pws/zycie003  TO itab_it.

* << Fim da inclusão

  MOVE-CORRESPONDING /pws/zycie100a TO itab_it.

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

  itab_it-codregtriipi = /pws/zycie100a-codregtriipi.

* << Fim da exclusão

  v_tipop = 'T' .

  PERFORM calcula_impostos USING v_tipop.

  wa_it-baseipi  = itab_it-baseipi.

  wa_it-vlipi    = itab_it-vlipi.

  wa_it-baseicms = itab_it-baseicms.

  wa_it-vlicms   = itab_it-vlicms.

  wa_it-advalipi  = itab_it-advalipi = /pws/zycie003-advalipi.

  PERFORM: load_regt USING    /pws/zycie100a-codregtriipi

 /pws/zycie085-ntimp '2'

                     CHANGING t_regde2.

ENDMODULE.

MODULE calc_vicms INPUT.

* >> Início da inclusão: MODULE CALC_VICMS

  MOVE-CORRESPONDING /pws/zycie003  TO itab_it.

* << Fim da inclusão

  MOVE-CORRESPONDING /pws/zycie100a TO itab_it.

  itab_it-basepis     =   t_pisbs  .

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

  itab_it-advalpis    =   /pws/zycie100a-advalpis .

  itab_it-basredpis   =   /pws/zycie100a-basredpis.

* << Fim da exclusão

  itab_it-basecofins  =   t_cofinsbs          .

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

  itab_it-advalcofins =   /pws/zycie100a-advalcofins.

  itab_it-basredcof   =   /pws/zycie100a-basredcof .

  itab_it-aliqpis          = /pws/zycie100a-aliqpis.

  itab_it-aliqcof          = /pws/zycie100a-aliqcof.

  itab_it-codregtripiscofi = /pws/zycie100a-codregtripiscofi.

  itab_it-codfunlegpiscofi = /pws/zycie100a-codfunlegpiscofi.

  itab_it-redpiscofi       = /pws/zycie100a-redpiscofi      .

  itab_it-codredpiscofi    = /pws/zycie100a-codredpiscofi   .

  itab_it-percreduzpc      = /pws/zycie100a-percreduzpc     .

  itab_it-nrseqd = /pws/zycie003-nrseqd.

  itab_it-modalidade = /pws/zycie003-modalidade .

  itab_it-icms_dif   = /pws/zycie100a-icms_dif.

  itab_it-codregtriicms   = /pws/zycie100a-codregtriicms .

* << Fim da exclusão

  PERFORM set_codregtri.

  PERFORM: load_regt USING    /pws/zycie100a-codregtriicms

 /pws/zycie085-ntimp '4'    CHANGING t_regde3.

  PERFORM load_fun_icms.

  IF /pws/zycie003-advalicms >= '100'.

    /pws/zycie003-advalicms = '0'.

  ENDIF.

...