CE PLUS - Nota 008828
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/08/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:14:41
Descrição da Nota: REPLICAR DADOS DA DI
Sintoma
O programa está carregando os dados incorretamente quando replicamos TODOS os dados da DI.
Solução
Atualização da funcionalidade de replicar os dados.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08828 Data: 13/08/2009 Hora: 16:01:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08828
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REPLICAR DADOS DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
REPLICAR TODOS DADOS DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
NOT s_radum IS INITIAL OR
NOT s_radqtad IS INITIAL .
MOVE itab_it TO wa_itb.
MOVE itab_mercosul[] TO itab_mercosul_aux[].
MOVE itab_zycit115b[] TO itab_zycit115_aux[].
LOOP AT itab_itc WHERE NOT mark IS initial.
READ TABLE itab_it WITH KEY
nrseq = itab_itc-nrseq
ebeln = itab_itc-ebeln
ebelp = itab_itc-ebelp.
* >> Início da inclusão: FORM COMM_REPL
v_tabix = sy-tabix.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF NOT s_ometv IS INITIAL.
itab_it-codmat = /pws/zycie100a-codmat.
ENDIF.
IF NOT s_oregt IS INITIAL.
itab_it-codregtri = /pws/zycie100a-codregtri.
ENDIF.
IF NOT s_oregp IS INITIAL.
itab_it-codregtriipi = /pws/zycie100a-codregtriipi.
ENDIF.
...
...
LOOP AT itab_mercosul_aux.
CLEAR itab_zycit485.
MOVE-CORRESPONDING itab_mercosul_aux TO itab_zycit485.
itab_zycit485-ebeln = itab_itc-ebeln .
itab_zycit485-ebelp = itab_itc-ebelp .
itab_zycit485-adicao = itab_itc-adicao.
APPEND itab_zycit485.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM COMM_REPL
MODIFY itab_it INDEX sy-tabix.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_REPL
MODIFY itab_it INDEX v_tabix.
* << Fim da inclusão
ENDIF.
ENDLOOP.
MOVE wa_itb TO itab_it.
LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.
FORM call_text_select.
SELECT * FROM /pws/zycit104 INTO TABLE itab_zycit104 WHERE
codmod = 'I' AND
codint = '023' AND
...