CE PLUS - Nota 011976
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/03/2012 17:03:47
Data/Hora Última Alteração: 02/03/2012 17:03:47
Descrição da Nota: TRILHA DE AUDITORIA NA ANA
Sintoma
A partir de agora, os programas do PWCE devem gravar log das tabelas - trilha de auditoria.
Solução
Novo tratamento para inclusão de trilha de auditoria, que registrará cada alteração no banco de
dados: inserção, modificação,deleção.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11976 Data: 28/02/2012 Hora: 10:03:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11976
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04654 - 00001 - 7.0 - 00003 - AJUSTE DE MENSAGENS DA ANA
04698 - 00002 - 7.0 - 00003 - EXIT PARA CALCULO DE IMPOSTOS NA ANA
04785 - 00003 - 7.0 - 00003 - ABERTURA DE EXIT PARA TRATATIVA DE BOTOES ESPECÍFICOS (ANA)
05087 - 00004 - 7.0 - 00003 - RATEIO DO SEGURO EM PROCESSOS COM MOEDAS DIFERENTES
05604 - 00005 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR
06865 - 00006 - 7.0 - 00006 - ERRO NO DOCUMENTO CONTÁBIL E VALORES DO EMBARQUE
06883 - 00007 - 7.0 - 00006 - CODE INSPECTOR CLASSE /PWS/ZYCI
08961 - 00008 - 7.0 - 00010 - RECEBIMENTO DE PROCESSO ARGENTINA
09397 - 00009 - 8.0 - 00001 - NOS PROCESSOS DO CHILE AVISAR O NUMERO DA DECLARAÇÃO COM 11 DIGIT
09883 - 00010 - 8.0 - 00002 - DESEMBARAÇO - OCULTAR CAMPOS DIVISA E AJUSTE
10023 - 00011 - 8.0 - 00003 - AJUSTADO CALCULO DO SEGURO (ANA)
10038 - 00012 - 8.0 - 00003 - ADICIONAR COLUNA COM VALORES NA MOEDA INTERNA NA PASTA NCM-SUFIXO
10151 - 00013 - 8.0 - 00003 - RATEAR FRETE INTERNACIONAL DE ACORDO COM O PARAMETRIZADO.
10152 - 00014 - 8.0 - 00003 - AJUSTE NA EXIBIÇÃO DOS IMPOSTOS VALORES A RECOLHER PARA A COLOMBI
10276 - 00015 - 8.0 - 00003 - AJUSTADO RATEIO DAS DESPESAS PARA INCLUSÃO NA BASE DOS IMPOSTOS
10316 - 00016 - 8.0 - 00004 - COMPOSIÇÃO DA BASE DOS IMPOSTOS NA ANA
10338 - 00017 - 8.0 - 00004 - AJUSTES CODE INSPECTOR
10400 - 00018 - 8.0 - 00004 - TRATAMENTO DE FATURA LIVRE DE DÉBITO NA CRIAÇÃO DA ANA
10491 - 00019 - 8.0 - 00004 - AO NAVEGAR ENTRE ITENS, MUDA A MOEDA DO PRIMEIRO ITEM.
10507 - 00020 - 8.0 - 00004 - AO ENTRAR EXIBINDO, DADOS DA ANA NÃO APARECEM
10629 - 00021 - 8.0 - 00005 - AO SALVAR CRIANDO ANA, RECLAMA DE EXISTÊNCIA DE RECEBIMENTO
10695 - 00022 - 8.0 - 00005 - DUMP AO ENTRAR NA ANA
10778 - 00023 - 8.0 - 00005 - AO NAVEGAR PELA ANA, TEXTOS ESTÃO INCORRETOS.
10857 - 00024 - 8.0 - 00006 - ANA NÃO MOSTRA EM ITENS OS INCOTERMS DIFERENTES.
10884 - 00025 - 8.0 - 00006 - INCLUÍDO TRATAMENTO PARA FATURA TIPO P EM PROCESSOS QUE UTILIZEM
11032 - 00026 - 8.0 - 00007 - VALOR DO SEGURO MUDA PARA PROCESSOS COM ITENS COM MOEDAS DIFERENT
11060 - 00027 - 8.0 - 00007 - ANA ESTÁ GRAVANDO DESPESAS COM O SEQUENCIAL DE OUTRO PROCESSO
11506 - 00028 - 8.0 - 00009 - TRILHA DE AUDITORIA
11604 - 00029 - 8.0 - 00009 - ALTERAÇÃO DE TEXTOS : ANA PARA DI
11612 - 00030 - 8.0 - 00009 - DESENVOLVIMENTO PARA RATEIO POR PESO BRUTO - PERU
----------------------------------------------------------------------------------------------------
TRILHA DE AUDITORIA NA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
UPDATE - DELETE - INSERT - MODIFY - TRILHA DE AUDITORIA
/PWS/SAPMZYCI059 - ANA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059F02
REPS /PWS/MZYCI059F03
REPS /PWS/MZYCI059X01
REPS /PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
DATA: lt_zycit095 TYPE /pws/zycit095 OCCURS 0 WITH HEADER LINE,
lt_zycit086 TYPE /pws/zycit086 OCCURS 0 WITH HEADER LINE,
lt_zycit087 TYPE /pws/zycit087 OCCURS 0 WITH HEADER LINE,
lt_zycit096 TYPE /pws/zycit096 OCCURS 0 WITH HEADER LINE,
lt_zycit115 TYPE /pws/zycit115 OCCURS 0 WITH HEADER LINE,
lt_zycit403 TYPE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
lt_zycit049 TYPE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
lt_zycit200 TYPE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
lt_zycit100 TYPE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
IF v_nrseq_ant NE /pws/zycie085-nrseqdi.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
ENDIF.
PERFORM verifica_nf.
IF v_msg = 'X'.
EXIT.
ENDIF.
v_salvo = 'X'.
ENDIF.
MODIFY /pws/zycit085 FROM /pws/zycie085.
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDIF.
CLEAR: lt_zycit095, lt_zycit095[].
SELECT * FROM /pws/zycit095 INTO TABLE lt_zycit095
WHERE nrseqdi = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit095.
MOVE-CORRESPONDING lt_zycit095 TO /pws/zycit095.
PERFORM carrega_log USING '/PWS/ZYCIT095' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit095-nrseqdi.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit095 FROM TABLE itab_zycit095.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit095.
MOVE-CORRESPONDING itab_zycit095 TO /pws/zycit095.
PERFORM carrega_log USING '/PWS/ZYCIT095' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit095-nrseqdi.
ENDLOOP.
* << Fim da inclusão
IF NOT /pws/zycie085-nrbl IS INITIAL.
v_calci = 'S'.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
SELECT * FROM /pws/zycit086 INTO TABLE lt_zycit086
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit087 INTO TABLE lt_zycit087
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit096 INTO TABLE lt_zycit096
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit115 INTO TABLE lt_zycit115
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit403 INTO TABLE lt_zycit403
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit049 INTO TABLE lt_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit086.
MOVE-CORRESPONDING lt_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit087.
MOVE-CORRESPONDING lt_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit096.
MOVE-CORRESPONDING lt_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit115.
MOVE-CORRESPONDING lt_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit403.
MOVE-CORRESPONDING lt_zycit403 TO /pws/zycit403.
PERFORM carrega_log USING '/PWS/ZYCIT403' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit403-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit049-nrseq.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit086 FROM TABLE itab_zycit086.
DELETE FROM /pws/zycit087 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit087 FROM TABLE itab_zycit087.
DELETE FROM /pws/zycit096 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit096 FROM TABLE itab_zycit096.
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit115 FROM TABLE itab_zycit115.
DELETE FROM /pws/zycit403 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit403 FROM TABLE itab_zycit403.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit086.
MOVE-CORRESPONDING itab_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit087.
MOVE-CORRESPONDING itab_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit096.
MOVE-CORRESPONDING itab_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit115.
MOVE-CORRESPONDING itab_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit403.
MOVE-CORRESPONDING itab_zycit403 TO /pws/zycit403.
PERFORM carrega_log USING '/PWS/ZYCIT403' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit403-nrseqdi.
ENDLOOP.
* << Fim da inclusão
REFRESH itab_zycit403a.
MOVE itab_zycit403[] TO itab_zycit403a[].
REFRESH: itab_zycit049di2, itab_zycit049di.
LOOP AT itab_zycit049.
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di2.
APPEND itab_zycit049di2.
ENDLOOP.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit049 FROM TABLE itab_zycit049di2.
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc EQ 0.
LOOP AT itab_zycit049di2.
MOVE-CORRESPONDING itab_zycit049di2 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit049-nrseq.
ENDLOOP.
ENDIF.
CLEAR: lt_zycit200, lt_zycit200[].
SELECT * FROM /pws/zycit200 INTO TABLE lt_zycit200
WHERE id = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit200.
MOVE-CORRESPONDING lt_zycit200 TO /pws/zycit200.
PERFORM carrega_log USING '/PWS/ZYCIT200' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit200-id.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit200 WHERE id = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit200 FROM TABLE itab_zycit200.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit200.
MOVE-CORRESPONDING itab_zycit200 TO /pws/zycit200.
PERFORM carrega_log USING '/PWS/ZYCIT200' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit200-id.
ENDLOOP.
CLEAR: lt_zycit100, lt_zycit100[].
SELECT * FROM /pws/zycit100 INTO TABLE lt_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit100.
MOVE-CORRESPONDING lt_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit100-nrseqdi.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
CLEAR: itab_zycit100.
REFRESH: itab_zycit100.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
MODIFY /pws/zycit100 FROM TABLE itab_zycit100.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit100.
MOVE-CORRESPONDING itab_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit100-nrseqdi.
ENDLOOP.
* << Fim da inclusão
PERFORM cria_zycit269.
IF NOT itab_zycit269[] IS INITIAL.
MODIFY /pws/zycit269 FROM TABLE itab_zycit269.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit269.
MOVE-CORRESPONDING itab_zycit269 TO /pws/zycit269.
PERFORM carrega_log USING '/PWS/ZYCIT269' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit269-nrseqdi.
ENDLOOP.
* << Fim da inclusão
ENDIF.
LOOP AT itab_it.
UPDATE /pws/zycit003
SET:
j_1bnbm = itab_it-j_1bnbm
mfrpn = itab_it-mfrpn
naladi = itab_it-naladi
qtdeumest = itab_it-qtdeumest
advalii = itab_it-advalii
advalipi = itab_it-advalipi
...
...
ad_anoemiss = itab_it-ad_anoemiss
naladincca = itab_it-naladincca
nrseqd = itab_it-nrseqd
nrdrawback = itab_it-nrdrawback
modalidade = itab_it-modalidade
basred = itab_it-basred
WHERE
nrseq = itab_it-nrseq AND
ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp.
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_it TO /pws/zycit003.
PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.
ENDIF.
* << Fim da inclusão
ENDLOOP.
SELECT SINGLE * FROM /pws/zycit041 WHERE nrseq = /pws/zycie085-nrseqdi
AND cancel NE 'X'.
IF sy-subrc NE 0.
IF /pws/zycie085-dtreg NE '00000000'.
PERFORM save_origem_nf.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit043 WHERE nrseq = /pws/zycie085-nrseqdi
AND cancel NE 'X'
...
...
ENDIF.
IF sy-subrc = 0.
LOOP AT itab_zycit078_t.
READ TABLE itab_zycit100_t WITH KEY
nrseqli = itab_zycit078_t-nrseqli.
IF sy-subrc = 0.
itab_zycit078_t-dtregdi = /pws/zycie085-dtreg.
itab_zycit078_t-nrdi = /pws/zycie085-nrdi.
itab_zycit078_t-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit078_t-adicao = itab_zycit100_t-adicao.
MODIFY itab_zycit078_t.
* >> Início da inclusão: FORM SAVE_DATA
ELSE.
itab_zycit078_t-dtregdi = /pws/zycie085-dtreg.
itab_zycit078_t-nrdi = /pws/zycie085-nrdi.
itab_zycit078_t-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit078_t.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycit078 SET nrdi = /pws/zycie085-nrdi
nrseqdi = /pws/zycie085-nrseqdi
dtregdi = /pws/zycie085-dtreg
adicao = itab_zycit100_t-adicao
WHERE nrseqli = itab_zycit078_t-nrseqli
AND tpli = 'N'.
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_zycit078_t TO /pws/zycit078.
PERFORM carrega_log USING '/PWS/ZYCIT078' 'U'
' ' '/PWS/SAPMZYCI020' /pws/zycit078-nrseqli.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-nana IS INITIAL.
PERFORM salva_fatura.
ENDIF.
IF NOT /pws/zycie085-nana IS INITIAL OR
...
...
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = itab_it-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
IF /pws/zycie085-dtdesemb IS INITIAL .
IF NOT itab_it-nrseq IS INITIAL.
it_zycit001-status = 'DB' .
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
IF sy-subrc = 0.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT it_zycit001.
MOVE-CORRESPONDING it_zycit001 TO /pws/zycit001.
PERFORM carrega_log USING '/PWS/ZYCIT001' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit001-nrseq.
ENDLOOP.
* << Fim da inclusão
PERFORM atualiza_status.
ENDIF.
ENDIF.
ELSE.
it_zycit001-status = 'DS' .
UPDATE /pws/zycit001 SET status = 'DS'
WHERE nrseq = itab_it-nrseq.
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT it_zycit001.
MOVE-CORRESPONDING it_zycit001 TO /pws/zycit001.
PERFORM carrega_log USING '/PWS/ZYCIT001' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit001-nrseq.
ENDLOOP.
* << Fim da inclusão
IF sy-subrc = 0.
PERFORM atualiza_status.
ENDIF.
ENDIF.
ENDIF.
DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND /pws/zycie085 TO itab_zycit085.
SORT itab_zycit085 BY nrseqdi.
COMMIT WORK.
MESSAGE i017 WITH text-060.
...
...
FORM data_dele.
* >> Início da inclusão: FORM DATA_DELE
DATA:
lt_zycit085 TYPE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
lt_zycit095 TYPE /pws/zycit095 OCCURS 0 WITH HEADER LINE,
lt_zycit100 TYPE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
lt_zycit086 TYPE /pws/zycit086 OCCURS 0 WITH HEADER LINE,
lt_zycit087 TYPE /pws/zycit087 OCCURS 0 WITH HEADER LINE,
lt_zycit096 TYPE /pws/zycit096 OCCURS 0 WITH HEADER LINE,
lt_zycit114 TYPE /pws/zycit114 OCCURS 0 WITH HEADER LINE,
lt_zycit115 TYPE /pws/zycit115 OCCURS 0 WITH HEADER LINE,
lt_zycit403 TYPE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
lt_zycit049 TYPE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
lt_zycit042 TYPE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = itab_it-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
it_zycit001-status = 'AB' .
UPDATE /pws/zycit001 SET status = 'AB'
WHERE nrseq = itab_it-nrseq.
* >> Início da inclusão: FORM DATA_DELE
IF sy-subrc EQ 0.
LOOP AT it_zycit001.
MOVE-CORRESPONDING it_zycit001 TO /pws/zycit001.
PERFORM carrega_log USING '/PWS/ZYCIT001' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit001-nrseq.
ENDLOOP.
ENDIF.
* << Fim da inclusão
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
PERFORM atualiza_status.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' OR
t001-land1 EQ wa_zycit477-land.
* >> Início da inclusão: FORM DATA_DELE
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseqnf = /pws/zycie085-nrseqdi
AND tpnf = '01'
AND nfglobal = /pws/zycit041-nfglobal
AND docnum = /pws/zycit041-docnum.
LOOP AT lt_zycit042.
MOVE-CORRESPONDING lt_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit042 WHERE
nrseqnf = /pws/zycie085-nrseqdi AND
tpnf = '01' AND
nfglobal = /pws/zycit041-nfglobal AND
docnum = /pws/zycit041-docnum.
DELETE FROM /pws/zycit041 WHERE
nrseq = /pws/zycie085-nrseqdi AND
nfglobal = /pws/zycit041-nfglobal AND
docnum = /pws/zycit041-docnum.
* >> Início da inclusão: FORM DATA_DELE
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
READ TABLE itab_zycit100 INDEX 1.
DELETE FROM /pws/zycit036 WHERE origem = 'NF'
AND nrseq = itab_zycit100-nrseq.
ENDIF.
* >> Início da inclusão: FORM DATA_DELE
SELECT * FROM /pws/zycit085 INTO TABLE lt_zycit085
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit095 INTO TABLE lt_zycit095
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit100 INTO TABLE lt_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit086 INTO TABLE lt_zycit086
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit087 INTO TABLE lt_zycit087
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit096 INTO TABLE lt_zycit096
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit114 INTO TABLE lt_zycit114
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit115 INTO TABLE lt_zycit115
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit403 INTO TABLE lt_zycit403
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit049 INTO TABLE lt_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit085.
MOVE-CORRESPONDING lt_zycit085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit095.
MOVE-CORRESPONDING lt_zycit095 TO /pws/zycit095.
PERFORM carrega_log USING '/PWS/ZYCIT095' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit095-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit100.
MOVE-CORRESPONDING lt_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit100-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit086.
MOVE-CORRESPONDING lt_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit087.
MOVE-CORRESPONDING lt_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit096.
MOVE-CORRESPONDING lt_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit114.
MOVE-CORRESPONDING lt_zycit114 TO /pws/zycit114.
PERFORM carrega_log USING '/PWS/ZYCIT114' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit114-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit115.
MOVE-CORRESPONDING lt_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit403.
MOVE-CORRESPONDING lt_zycit403 TO /pws/zycit403.
PERFORM carrega_log USING '/PWS/ZYCIT403' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit403-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI059' /pws/zycit049-nrseq.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit086 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit087 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit096 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit114 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit403 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
...
...
FORM fill_nrseq.
v_nrseq_ant = /pws/zycie085-nrseqdi.
PERFORM: fill_criar.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
WHILE sy-subrc NE 0.
PERFORM findnrseq.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
ENDWHILE.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM FILL_NRSEQ
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
* << Fim da inclusão
itab_zycit095-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit095 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit086-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit086 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit087-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit087 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit096-nrseqdi = /pws/zycie085-nrseqdi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F02
...
IF sy-subrc = 0.
p_text = rtexti-tdline.
IF NOT v_espec IS INITIAL.
UPDATE /pws/zycit100 SET especificacao = p_text
WHERE nrseqdi = /pws/zycie100a-nrseqdi
AND nrseq = /pws/zycie100a-nrseq
AND ebeln = /pws/zycie100a-ebeln
AND ebelp = /pws/zycie100a-ebelp
AND adicao = /pws/zycie100a-adicao.
COMMIT WORK.
* >> Início da inclusão: FORM TEXT_EDIT_BLITEM
IF sy-subrc EQ 0.
/pws/zycie100a-especificacao = p_text.
MOVE-CORRESPONDING /pws/zycie100a TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'U'
' ' '/PWS/SAPMZYCI058' /pws/zycit100-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
CLEAR: wa_zycit136.
wa_zycit136-tp_doc = text-060.
wa_zycit136-nrseq = /pws/zycie085-nrseqdi.
wa_zycit136-bukrs = /pws/zycie085-bukrs.
wa_zycit136-branch = /pws/zycie085-j_1bbranch.
wa_zycit136-identify = /pws/zycie085-identify.
wa_zycit136-dtenvf = sy-datum.
wa_zycit136-uname = sy-uname.
wa_zycit136-stasis = 'A'.
MODIFY /pws/zycit136 FROM wa_zycit136.
* >> Início da inclusão: FORM COMM_SEND
IF sy-subrc EQ 0.
MOVE-CORRESPONDING wa_zycit136 TO /pws/zycit136.
PERFORM carrega_log USING '/PWS/ZYCIT136' 'I'
' ' '/PWS/SAPMZYCI059' /pws/zycit136-nrseq.
ENDIF.
* << Fim da inclusão
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-049
textline1 = text-069
titel = text-070
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
wa_zycit136-dtenvf = sy-datum.
MODIFY /pws/zycit136 FROM wa_zycit136.
* >> Início da inclusão: FORM COMM_SEND
IF sy-subrc EQ 0.
MOVE-CORRESPONDING wa_zycit136 TO /pws/zycit136.
PERFORM carrega_log USING '/PWS/ZYCIT136' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit136-nrseq.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM COMM_SEND
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-029.
ENDIF.
ENDFORM.
...
...
NOT itab_zycit136-nrsiscomex IS INITIAL.
READ TABLE itab_zycit100 WITH KEY
nrseqdi = itab_zycit136-nrseq.
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit100-nrseq.
IF NOT itab_zycit001-status = 'DB'.
itab_zycit001-status = 'DB'.
DELETE itab_zycit001 WHERE nrseq = itab_zycit100-nrseq.
APPEND itab_zycit001 .
MODIFY /pws/zycit001 FROM TABLE itab_zycit001.
* >> Início da inclusão: FORM VERIFY_HIST
LOOP AT itab_zycit001.
MOVE-CORRESPONDING itab_zycit001 TO /pws/zycit001.
PERFORM carrega_log USING '/PWS/ZYCIT001' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit001-nrseq.
ENDLOOP.
* << Fim da inclusão
CLEAR itab_zycit255. REFRESH itab_zycit255.
MOVE: sy-mandt TO itab_zycit255-mandt,
itab_zycit001-nrseq TO itab_zycit255-nrseq,
itab_zycit001-status TO itab_zycit255-status,
sy-datum TO itab_zycit255-data,
sy-uzeit TO itab_zycit255-hora,
sy-uname TO itab_zycit255-usuario.
APPEND itab_zycit255.
INSERT INTO /pws/zycit255 VALUES itab_zycit255.
COMMIT WORK.
...
...
UPDATE /pws/zycit085 SET belnr_0 = /pws/zycie085-belnr_0
belnr_1 = /pws/zycie085-belnr_1
belnr_2 = /pws/zycie085-belnr_2
belnr_3 = /pws/zycie085-belnr_3
budat_0 = /pws/zycie085-budat_0
budat_1 = /pws/zycie085-budat_1
budat_2 = /pws/zycie085-budat_2
budat_3 = /pws/zycie085-budat_3
WHERE nrseqdi = /pws/zycie085-nrseqdi.
COMMIT WORK.
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
DELETE itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tpmsg = 'E'.
IF sy-subrc EQ 0.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM executa_fb08 USING v_belnrf05 sy-datum.
PERFORM limpa_doc_f05.
...
...
/pws/zycie085-belnr_3_f05 = itab_zycbt032-belnr.
v_belnrf05 = /pws/zycie085-belnr_3_f05.
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0_f05 = /pws/zycie085-belnr_0_f05
belnr_1_f05 = /pws/zycie085-belnr_1_f05
belnr_2_f05 = /pws/zycie085-belnr_2_f05
belnr_3_f05 = /pws/zycie085-belnr_3_f05
WHERE nrseqdi = /pws/zycie085-nrseqdi.
COMMIT WORK.
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
...
ELSEIF itab_matuse_aux-j_1bmatuse = 3.
CLEAR /pws/zycie085-belnr_3_f05.
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0_f05 = /pws/zycie085-belnr_0_f05
belnr_1_f05 = /pws/zycie085-belnr_1_f05
belnr_2_f05 = /pws/zycie085-belnr_2_f05
belnr_3_f05 = /pws/zycie085-belnr_3_f05
WHERE nrseqdi = /pws/zycie085-nrseqdi.
COMMIT WORK.
* >> Início da inclusão: FORM LIMPA_DOC_F05
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
/pws/zycit041-docnum = '8888888888'.
/pws/zycit041-nfnum = '1'.
/pws/zycit041-nrdi = /pws/zycie085-identify.
PERFORM find_nrseqc.
INSERT /pws/zycit041.
WHILE sy-subrc NE 0.
PERFORM find_nrseqc.
INSERT /pws/zycit041.
ENDWHILE.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SAVE_ORIGEM_NF
PERFORM carrega_log USING '/PWS/ZYCIT041' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
LOOP AT itab_it.
READ TABLE itab_zycit003
WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
MOVE-CORRESPONDING: itab_zycit003 TO itab_zycit042,
itab_it TO itab_zycit042.
itab_zycit042-nrseqnf = itab_it-nrseqdi.
itab_zycit042-nrseq = itab_it-nrseq.
itab_zycit042-tpnf = '01'.
itab_zycit042-nfnum = '1'.
itab_zycit042-embarca = /pws/zycie001-embarca.
itab_zycit042-nfglobal = /pws/zycit041-nfglobal.
itab_zycit042-docnum = /pws/zycit041-docnum.
APPEND itab_zycit042.
ENDLOOP.
INSERT /pws/zycit041.
* >> Início da inclusão: FORM SAVE_ORIGEM_NF
IF sy-subrc EQ 0.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
* << Fim da inclusão
MODIFY /pws/zycit042 FROM TABLE itab_zycit042.
* >> Início da inclusão: FORM SAVE_ORIGEM_NF
IF sy-subrc EQ 0.
LOOP AT itab_zycit042.
MOVE-CORRESPONDING itab_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_RATEIO_CUSTO'
EXPORTING
v_programa = 'NF'
v_visualiza = v_visualiza
v_bukrs = /pws/zycie085-bukrs
IMPORTING
v_resposta = v_resp
v_erro = v_erro
TABLES
itab_zycit036 = itab_zycit036
...
...
/pws/zycie085-budat_3.
IF v_dele IS INITIAL.
CLEAR: /pws/zycie085-belnr_3_f05.
ENDIF.
ENDIF.
UPDATE /pws/zycit085 SET belnr_0_f05 = /pws/zycie085-belnr_0_f05
belnr_1_f05 = /pws/zycie085-belnr_1_f05
belnr_2_f05 = /pws/zycie085-belnr_2_f05
belnr_3_f05 = /pws/zycie085-belnr_3_f05
WHERE nrseqdi = /pws/zycie085-nrseqdi.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI059' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
PERFORM clear_date_batch.
CALL FUNCTION '/PWS/ZYCI_RECLASSIFICACAO_IA'
EXPORTING
i_zycit001 = itab_zycit001
v_modo = v_modo_bi
i_programa = 'DI'
TABLES
t_zycit100 = itab_zycit100[]
t_zycit003 = itab_itens_funcao[]
t_zycbt032 = itab_zycbt032[]
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059X01
TABLES:
* >> Início da inclusão:
/pws/zycit114,
/pws/zycit136,
/pws/zycit269,
/pws/zycit200,
/pws/zycit049,
/pws/zycit095,
/pws/zycit086,
/pws/zycit087,
/pws/zycit096,
/pws/zycit115,
/pws/zycit403,
/pws/zycit100,
/pws/zycit003,
* << Fim da inclusão
/pws/zycit000,
/pws/zycit001,
/pws/zycit085,
/pws/zycie085,
/pws/zycie085a,
/pws/zycie100a,
/pws/zycie086,
/pws/zycie087,
/pws/zycie088,
/pws/zycit094,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI059
INCLUDE /PWS/MZYCI059TOP.
INCLUDE /PWS/MZYCI059O01.
INCLUDE /PWS/MZYCI059I01.
INCLUDE /PWS/MZYCI059F01.
INCLUDE /PWS/MZYCI059F02.
INCLUDE /PWS/MZYCI059F03.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão