Sintoma

Na DI au verificar o Fundamento Legal no Detalhe dos Itens e verificar o Fundamento legal nas

adições a ajuda de pesquisa esta incompativel

Solução

Verificar corretamente a ajuda de pesquisa no Detalhe dos Itens e nas adições

Informações Complementares

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

Nota Número 08748 Data: 28/07/2009 Hora: 16:21:11

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

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

Nota Número              : 08748

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

EQUALIZAÇÃO DO FUNDAMENTO LEGAL NA DI DA PASTA ITENS COM AS ADIÇÕES

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

Palavras Chave:

DI - FUNDAMENTO - LEGAL - DETALHE - ITEM - ADIÇÃO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0341

DYNP /PWS/SAPMZYCI023                        0346

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023O01

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

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

*Retirar ajuda de pesquisa dos campos

Ajuda pesquisa=/PWS/ZYCIA177

"WA_IT-ADVALCOFINS"

"WA_IT-ADVALPIS"

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

        COMMIT WORK.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM load_fund USING p_codfun.

  CLEAR t_fundes.

  SELECT SINGLE descr FROM /pws/zycit177 INTO t_fundes

         WHERE codigo = p_codfun.                       "#EC CI_NOFIRST

ENDFORM.

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

FORM load_fund_icms USING p_codfun.

  CLEAR t_fundes_icms.

  SELECT SINGLE descr FROM /pws/zycit177 INTO t_fundes_icms

         WHERE codigo = p_codfun.                       "#EC CI_NOFIRST

ENDFORM.

* << Fim da inclusão

FORM load_frvl.

  IF v_dit = 'N'.

    v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -

              /pws/zycie093-ternacion.

  ELSE.

    v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -

              /pws/zycie093-ternacion.

  ENDIF.

  s_frvr_d2 = s_frvr = v_fretc * /pws/zycie085-ukursfre.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

             load_regt USING wa_it-codregtriipi /pws/zycie085-ntimp '2'

                       CHANGING t_regde2,

             load_regt USING wa_it-codregtriicms /pws/zycie085-ntimp '4'

                       CHANGING t_regde3,

             load_lfa1 USING /pws/zycie126-agente CHANGING a_lfa,

             load_moti USING /pws/zycie006-motivo CHANGING a_motiv,

             load_mdpg,

             load_juro,

             load_waers USING wa_it-waers CHANGING t_msis t_mdes,

             load_fund USING wa_it-codfunleg,

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

             load_fund USING wa_it-codfunlegicms,

* << Fim da exclusão

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

             load_fund_icms USING wa_it-codfunlegicms,

* << Fim da inclusão

             load_mval USING wa_it-codmat,

             load_itwa USING wa_it-waersbem,

             load_unit USING wa_it-meinsest CHANGING s_umestt,

             load_alad USING wa_it-aladi,

             load_ifin.

    CLEAR:   rtexto, xtheado.

    REFRESH: rtexto.

    CONCATENATE /pws/zycie085-nrseqdi wa_ad-adicao INTO v_txtki.

    PERFORM text_readadc.

    PERFORM calc_itab_adic.

...