CE PLUS - Nota 012228
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/05/2012 00:00:00
Data/Hora Última Alteração: 23/05/2012 16:25:54
Descrição da Nota: AO ACESSAR A DI APÓS A CRIAÇÃO APENAS AS DESPESAS COM VALOR SÃO EXIBIDAS
Sintoma
Não está sendo possivel inserir novas despesas em DI já salvas pois ao acessar uma DI já criada, na
pasta despesas são exibidas apenas as despesas em que foram informados valores na criação.
Solução
Ajustado programa para realizar a montagem das despesas mesmo que a DI já tenha sido salva.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12228 Data: 23/05/2012 Hora: 11:27:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12228
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00115
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02049 - 00001 - 6.0 - 00024 - NA DI POR FORA,A MOEDA PROPOSTA NA PASTA DESPESA É A IGUAL A DO E
05409 - 00002 - 7.0 - 00003 - AO ALTERAR DI NÃO INCLUI TAXA SISCOMEX NA BASE DE ICMS
----------------------------------------------------------------------------------------------------
AO ACESSAR A DI APÓS A CRIAÇÃO APENAS AS DESPESAS COM VALOR SÃO EXIBIDAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - DESPESA - ACESSO - EXIBIR - MODIFICAR - VALOR
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM loading_all.
DATA: vl_erro TYPE c.
MOVE /pws/zycie085 TO wa_zycit085.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
PERFORM find_region.
* >> Início da exclusão: FORM LOADING_ALL
SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
PERFORM fill_desp.
* << Fim da inclusão
IF NOT itab_zycit049[] IS INITIAL.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit049 WHERE
regio = v_region AND
tpdesp = itab_zycit049-tpdesp AND
land1 = t001-land1 .
ENDIF.
IF sy-subrc NE 0.
IF NOT itab_zycit049[] IS INITIAL.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM fill_desp.
* >> Início da inclusão: FORM FILL_DESP
IF itab_zycit049[] IS INITIAL.
* << Fim da inclusão
SELECT mandt nrseq tpdesp descr waers vldp FROM /pws/zycit049
INTO TABLE itab_zycit049
WHERE nrseq EQ /pws/zycie085-nrseqdi.
* >> Início da exclusão: FORM FILL_DESP
IF sy-subrc NE 0.
* << Fim da exclusão
PERFORM find_region.
SELECT SINGLE * FROM t001w INTO wa_t001w
WHERE werks EQ s_local.
IF wa_zycbt007 IS INITIAL AND NOT
...
...
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit039 INTO TABLE itab_zycit039
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo
AND land1 = t001-land1. "#EC CI_NOFIRST
ENDIF.
* >> Início da exclusão: FORM FILL_DESP
IF itab_zycit049[] IS INITIAL.
* << Fim da exclusão
LOOP AT itab_zycit019.
* >> Início da inclusão: FORM FILL_DESP
CLEAR: itab_zycit049.
* << Fim da inclusão
READ TABLE itab_zycit049 WITH KEY
tpdesp = itab_zycit019-tpdesp.
v_sub = sy-subrc.
v_idx = sy-tabix.
* >> Início da exclusão: FORM FILL_DESP
CLEAR: itab_zycit049.
* << Fim da exclusão
READ TABLE itab_zycit020 WITH KEY
codigo = itab_zycit019-codigo.
IF sy-subrc EQ 0.
itab_zycit049-baseicms = itab_zycit020-baseicms.
itab_zycit049-baseii = itab_zycit020-baseii.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit020-codigo.
IF sy-subrc EQ 0.
itab_zycit049-divabs = itab_zycit039-divabs.
itab_zycit049-peso = itab_zycit039-peso.
...
...
IF /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
REFRESH: itab_zycit049di.
LOOP AT itab_zycit049.
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di.
APPEND itab_zycit049di.
ENDLOOP.
SORT itab_zycit049di BY tpdesp.
* >> Início da exclusão: FORM FILL_DESP
ENDIF.
* << Fim da exclusão
ENDIF.
DELETE itab_zycit049 WHERE tpdesp = '001'.
DELETE itab_zycit049 WHERE tpdesp = '002'.
DELETE itab_zycit049 WHERE tpdesp = '003'.
ENDFORM.
...