CE PLUS - Nota 004532
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/08/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:47:22
Descrição da Nota: BANCO - DI NACIONALIZAÇÃO - PASTA PAGAMENTOS
Sintoma
Sistema não está aproximando os valores da redução de base de ICMS
Solução
Foi desenvolvida regra de cálculo para aproximar o valor
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04532 Data: 27/08/2007 Hora: 15:27:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04532
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00009
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00805 - 00001 - 6.0 - 00022 - NÃO ESTÃO SENDO INCLUIDOS OS DADOS NA PASTA CAMBIO
----------------------------------------------------------------------------------------------------
BANCO - DI NACIONALIZAÇÃO - PASTA PAGAMENTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BANCO - DI NACIONALIZAÇÃO - PASTA PAGAMENTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
PERFORM visualiza_rateio.
IF v_resp NE 'S'
AND NOT itab_zycit036[] IS INITIAL.
EXIT.
ENDIF.
IF NOT v_nottax IS INITIAL.
MESSAGE i015 WITH text-231 text-232.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
DATA tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
CLEAR tdynpread. REFRESH tdynpread.
tdynpread-fieldname = '/PWS/ZYCIE095A-LIFNR'.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = '/PWS/SAPMZYCI023'
dynumb = '0141'
TABLES
dynpfields = tdynpread.
IF NOT tdynpread-fieldvalue IS INITIAL.
/pws/zycie095a-lifnr = tdynpread-fieldvalue.
UNPACK /pws/zycie095a-lifnr TO /pws/zycie095a-lifnr.
ENDIF.
IF NOT /pws/zycie095a-lifnr IS INITIAL.
PERFORM load_banco USING /pws/zycie095a-lifnr space
/pws/zycie095a-bankl /pws/zycie095a-bankn
/pws/zycie095a-banks.
LOOP AT itab_zycit095.
itab_zycit095-mandt = sy-mandt.
itab_zycit095-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit095-lifnr = /pws/zycie095a-lifnr.
itab_zycit095-banks = s_pgbks.
itab_zycit095-bankl = s_pgbkl.
itab_zycit095-bankn = s_pgbkn.
MODIFY itab_zycit095.
ENDLOOP.
ENDIF.
* << Fim da inclusão
PERFORM refresh_all.
SELECT SINGLE * FROM /pws/zycit085 INTO /pws/zycit085 WHERE
nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc NE 0.
PERFORM fill_nrseq.
ELSE.
IF sy-tcode <> '/PWS/ZYCI023_C' AND sy-tcode <> '/PWS/ZYCI023_I'.
/pws/zycie085-dtusera = sy-datlo.
/pws/zycie085-usernamea = sy-uname.
ELSEIF v_salvo NE 'X'.
...