CE PLUS - Nota 011847
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 13/01/2012 00:00:00
Data/Hora Última Alteração: 13/01/2012 13:36:52
Descrição da Nota: TRILHA DE AUDITORIA NA DSI
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 11847 Data: 13/01/2012 Hora: 10:21:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11847
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00370 - 00001 - 6.0 - 00021 - PERÍODO DE VIGÊNCIA DA MP252.
01196 - 00002 - 6.0 - 00023 - FATURAS DO TIPO "P", CRIAÇÃO DA DSI O NÃO É EXIBIDA A MGS DE CONT
02027 - 00003 - 6.0 - 00024 - DSI - VERIFICAÇÃO DE FOR ALL ENTRIES
02125 - 00004 - 6.0 - 00024 - AO DAR UM F5 NA DSI, ESTÁ ZERANDO BASE DE PIS E COFINS.
02187 - 00005 - 6.0 - 00025 - AO CRIAR NF DE DSI O VALOR DA DESPESA ESTÁ INDO ZERADA
02232 - 00006 - 6.0 - 00025 - ESTORNO DSI
02681 - 00007 - 6.0 - 00026 - TRATAMENTO PARA TRAZER A TAXA DE SISCOMEX PARA A DSI, PASTA DESPE
03163 - 00008 - 6.0 - 00026 - VARIAÇÃO CAMBIAL DE DSI CIF ESTÁ INCORRETA.
03164 - 00009 - 6.0 - 00026 - ICMS SUSPENÇÃO ESTA COM VALO NA PASTA PAGAMENTOS
03256 - 00010 - 6.0 - 00026 - DSI COM CAMPOS DE ALIQUOTAS FECHADO E DESPESA(DEBITO EM CONTA)
03317 - 00011 - 7.0 - 00001 - DSI VERIFICA A TABELA /PWS/ZYCIT062 PARA NÃO INCIDÊNCIA
03326 - 00012 - 7.0 - 00001 - ERRO NA VARIAÇÃO CAMBIAL DA DSI.
03833 - 00013 - 7.0 - 00001 - AO CRIAR A DSI, PROPÕE ALÍQUOTA INCORRETA PARA O ICMS.
03985 - 00014 - 6.0 - 00002 - ERRO NO FUNDAMENTO LEGAL, NÃO RESPEITAVA OS PARÂMETROS
04617 - 00015 - 7.0 - 00003 - NOTA FISCAL
04976 - 00016 - 7.0 - 00003 - DSI - REGIME DE TRIBUTAÇÃO PIS/COFINS - IPI
05033 - 00017 - 7.0 - 00003 - DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊN
05291 - 00018 - 7.0 - 00003 - NÃO HÁ TAXA SISCOMEX NA DSI.
05339 - 00019 - 7.0 - 00003 - RATEIO DE DESPESA POR VALOR PLANEJADO ESTÁ INCORRETO.
05408 - 00020 - 7.0 - 00003 - DSI - CAMPO ESPECIFICAÇÃO
05415 - 00021 - 7.0 - 00003 - PREENCHE CAMPO MATERIAL USADO NA DSI CONFORME O INFORMADO NO EMBA
05474 - 00022 - 7.0 - 00003 - DUMP AO GERAR A VARIAÇÃO CAMBIAL NA DSI PARA PROCESSOS COM FATURA
05481 - 00023 - 7.0 - 00003 - AJUST. DO RATEIO DAS DESPESAS NA NF E A GRAVAÇÃO DO FRETE NA DSI
05602 - 00024 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR
05664 - 00025 - 7.0 - 00004 - ERRO AO TRANSMITIR DADOS DA DSI AO SISCOMEX
06147 - 00026 - 7.0 - 00004 - EXIT AO SELECIONAR TAXA DA DSI
06314 - 00027 - 7.0 - 00005 - AO ALTERAR A ALÍQUOTA DE UM ITEM ESTÁ ALTERANDO PARA TODOS OS ITE
07274 - 00028 - 7.0 - 00006 - AO CRIAR DSI COURRIER NÃO ESTÁ DEIXANDO MUDAR O REGIME DE TRIBUTA
07288 - 00029 - 7.0 - 00006 - AO CRIAR DSI, NÃO PROPÕE O CÓDIGO DO REGIME TRIBUTÁRIO DO PIS E C
07493 - 00030 - 7.0 - 00007 - QDO O VALOR DO FRETE É MAIOR QUE O VALOR DA MERCADORIA,DÁ DUMP NA
07639 - 00031 - 7.0 - 00007 - DSI NÃO ESTA GERANDO VARIAÇÃO CAMBIAL
07672 - 00032 - 7.0 - 00007 - DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
07680 - 00033 - 7.0 - 00007 - PREENCHE CENTRO LUCRO NA VARIAÇÃO CAMBIAL DA DSI
07683 - 00034 - 7.0 - 00007 - BASE DE ICMS DSI
07955 - 00035 - 7.0 - 00008 - DSI NÃO ESTA GRAVANDO A ADIÇÃO E O ITENS DA ADIÇÃO COM MAIS DE 99
08018 - 00036 - 7.0 - 00008 - DUMP AO SELECIONAR O TEXTO DO PEDIDO
08356 - 00037 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
09956 - 00038 - 8.0 - 00002 - (DSI)CASAS DECIMAIS DA MOEDA NO DRAFT E VALOR DO SEGURO PARA CIF
10829 - 00039 - 8.0 - 00005 - PREENCHER VALOR DO ITEM QUANDO A MOEDA É BRL
10997 - 00040 - 8.0 - 00006 - ERRO NA CRIAÇÃO DA DSI PELO MENU DO DESEMBARAÇO.
11479 - 00041 - 8.0 - 00009 - VALOR DOS ITENS DO SEGURO NÃO BATE COM CAPA DA DSI
11506 - 00042 - 8.0 - 00009 - TRILHA DE AUDITORIA
11726 - 00043 - 8.0 - 00009 - AO TROCAR DATA DA TAXA NÃO AVISA QUE JÁ EXISTE FATURA P
11747 - 00044 - 8.0 - 00009 - BASE DE ICMS NÃO BATE COM TOTAL DA NOTA MESMO COM FLAG DE ARREDON
11754 - 00045 - 8.0 - 00009 - VALORES FICAM DIFERENTES AO ENTRAR NA DSI E DAR UM REFRESH
----------------------------------------------------------------------------------------------------
TRILHA DE AUDITORIA NA DSI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DSI - UPDATE - DELETE - INSERT - MODIFY - TRILHA DE AUDITORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F02
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058X01
REPS /PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
DATA: lw_zycit085 TYPE /pws/zycit085,
lt_zycit095 TYPE /pws/zycit095 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,
lt_zycit049 TYPE /pws/zycit049 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
ELSE.
IF sy-tcode <> '/PWS/ZYCI023_C' AND sy-tcode <> '/PWS/ZYCI058_C'.
/pws/zycie085-dtusera = sy-datum.
/pws/zycie085-usernamea = sy-uname.
ELSEIF v_salvo NE 'X'.
v_salvo = 'X'.
PERFORM fill_nrseq.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR: lw_zycit085.
SELECT SINGLE * FROM /pws/zycit085 INTO lw_zycit085
WHERE nrseqdi = /pws/zycit085-nrseqdi.
* << Fim da inclusão
MODIFY /pws/zycit085 FROM /pws/zycie085.
* >> Início da inclusão: FORM SAVE_DATA
IF lw_zycit085-nrseqdi IS INITIAL.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'I'
' ' '/PWS/SAPMZYCI058' /pws/zycit085-nrseqdi.
ELSE.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI058' /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/SAPMZYCI058' /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/SAPMZYCI058' /pws/zycit095-nrseqdi.
ENDLOOP.
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/SAPMZYCI058' /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/SAPMZYCI058' /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/SAPMZYCI058' /pws/zycit100-nrseqdi.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
CLEAR: itab_zycit100.
REFRESH: itab_zycit100.
CLEAR v_cont.
v_adicao = '001'.
LOOP AT itab_it.
v_cont = v_cont + 1 .
IF v_cont < 999 .
itab_it-adicao = v_adicao .
itab_it-item_adi_sisc = v_cont.
ELSE.
itab_it-adicao = v_adicao .
itab_it-item_adi_sisc = v_cont.
v_adicao = v_adicao + 1 .
CLEAR v_cont.
ENDIF.
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/SAPMZYCI058' /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/SAPMZYCI058' /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
...
...
ipi_tipo = itab_it-ipi_tipo
ipi_orgemiss = itab_it-ipi_orgemiss
ipi_numero = itab_it-ipi_numero
ipi_anoemiss = itab_it-ipi_anoemiss
ad_extarif = itab_it-ad_extarif
ad_tipo = itab_it-ad_tipo
ad_orgemiss = itab_it-ad_orgemiss
ad_numero = itab_it-ad_numero
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
MOVE-CORRESPONDING itab_it TO /pws/zycit003.
PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.
* << Fim da inclusão
ENDLOOP.
CLEAR: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
REFRESH: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085_t WHERE
nrseqdi = /pws/zycie085-nrseqdi AND
nrdi = /pws/zycie085-nrdi.
IF sy-subrc = 0.
IF NOT itab_zycit085_t[] IS INITIAL.
...
...
ebelp = itab_zycit100_t-ebelp.
ENDIF.
IF sy-subrc = 0.
IF NOT itab_zycit003_t[] IS INITIAL.
SELECT * FROM /pws/zycit078 INTO TABLE itab_zycit078_t
FOR ALL ENTRIES IN itab_zycit003_t
WHERE nrseqli = itab_zycit003_t-nrseqli.
ENDIF.
IF sy-subrc = 0.
LOOP AT itab_zycit078_t.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR: itab_zycit100_t.
* << Fim da inclusão
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
MOVE-CORRESPONDING itab_zycit078_t TO /pws/zycit078.
PERFORM carrega_log USING '/PWS/ZYCIT078' 'U'
' ' '/PWS/SAPMZYCI020' /pws/zycit078-nrseqli.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtreg IS INITIAL AND
NOT /pws/zycie085-nrdi IS INITIAL.
PERFORM salva_fatura.
ENDIF.
IF NOT /pws/zycie085-nrdi IS INITIAL OR
NOT /pws/zycie085-dtreg IS INITIAL.
PERFORM atualiza_status.
ENDIF.
DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND /pws/zycie085 TO itab_zycit085.
SORT itab_zycit085 BY nrseqdi.
REFRESH: itab_zycit049di2, itab_zycit049di.
LOOP AT itab_zycit049.
* >> Início da inclusão: FORM SAVE_DATA
IF itab_zycit049-vlreal NE '0.00' OR
itab_zycit049-vldp NE '0.00'.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di2.
APPEND itab_zycit049di2.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM SAVE_DATA
CLEAR: lt_zycit049, lt_zycit049[].
SELECT * FROM /pws/zycit049 INTO TABLE lt_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit049-nrseq.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit049 FROM TABLE itab_zycit049di2.
COMMIT WORK.
MESSAGE i017 WITH text-061.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit049di2.
MOVE-CORRESPONDING itab_zycit049di2 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'I'
' ' '/PWS/SAPMZYCI058' /pws/zycit049-nrseq.
ENDLOOP.
* << Fim da inclusão
CLEAR: v_changed,
itab_zycit086a,
itab_zycit087a,
itab_zycit095a,
itab_zycit096a,
itab_zycit100a,
itab_zycit003a,
itab_zycit114a,
itab_zycit115a,
itab_zycit116a,
...
...
FORM data_dele.
* >> Início da inclusão: FORM DATA_DELE
DATA: lt_zycit095 TYPE /pws/zycit095 OCCURS 0 WITH HEADER LINE,
lt_zycit100 TYPE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
lt_zycit049 TYPE /pws/zycit049 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_zycit116 TYPE /pws/zycit116 OCCURS 0 WITH HEADER LINE,
lt_zycit118 TYPE /pws/zycit118 OCCURS 0 WITH HEADER LINE,
lt_zycit121 TYPE /pws/zycit121 OCCURS 0 WITH HEADER LINE,
lt_zycit124 TYPE /pws/zycit124 OCCURS 0 WITH HEADER LINE.
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/zycit049 INTO TABLE lt_zycit049
WHERE nrseq = /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/zycit116 INTO TABLE lt_zycit116
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit118 INTO TABLE lt_zycit118
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit121 INTO TABLE lt_zycit121
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit124 INTO TABLE lt_zycit124
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit085-nrseqdi.
LOOP AT lt_zycit095.
MOVE-CORRESPONDING lt_zycit095 TO /pws/zycit095.
PERFORM carrega_log USING '/PWS/ZYCIT095' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit095-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit100.
MOVE-CORRESPONDING lt_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit100-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit049-nrseq.
ENDLOOP.
LOOP AT lt_zycit086.
MOVE-CORRESPONDING lt_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit087.
MOVE-CORRESPONDING lt_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit096.
MOVE-CORRESPONDING lt_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit114.
MOVE-CORRESPONDING lt_zycit114 TO /pws/zycit114.
PERFORM carrega_log USING '/PWS/ZYCIT114' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit114-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit115.
MOVE-CORRESPONDING lt_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit116.
MOVE-CORRESPONDING lt_zycit116 TO /pws/zycit116.
PERFORM carrega_log USING '/PWS/ZYCIT116' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit116-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit118.
MOVE-CORRESPONDING lt_zycit118 TO /pws/zycit118.
PERFORM carrega_log USING '/PWS/ZYCIT118' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit118-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit121.
MOVE-CORRESPONDING lt_zycit121 TO /pws/zycit121.
PERFORM carrega_log USING '/PWS/ZYCIT121' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit121-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit124.
MOVE-CORRESPONDING lt_zycit124 TO /pws/zycit124.
PERFORM carrega_log USING '/PWS/ZYCIT124' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit124-nrseqdi.
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/zycit049 WHERE nrseq = /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/zycit116 WHERE nrseqdi = /pws/zycie085-nrseqdi.
...
...
FORM save_adic.
* >> Início da inclusão: FORM SAVE_ADIC
DATA: lt_zycit200 TYPE /pws/zycit200 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
IF sy-dynnr EQ '0300'.
CALL METHOD editor->get_text_as_r3table IMPORTING table = ittxt[].
CLEAR: itab_zycit200b. REFRESH: itab_zycit200b.
LOOP AT ittxt.
WRITE: sy-tabix TO v_tix RIGHT-JUSTIFIED.
itab_zycit200b-id = v_txtki.
itab_zycit200b-seq = v_tix.
itab_zycit200b-linha = ittxt-line.
APPEND itab_zycit200b.
ENDLOOP.
* >> Início da inclusão: FORM SAVE_ADIC
SELECT * FROM /pws/zycit200 INTO TABLE lt_zycit200
WHERE id = v_txtki.
LOOP AT lt_zycit200.
MOVE-CORRESPONDING lt_zycit200 TO /pws/zycit200.
PERFORM carrega_log USING '/PWS/ZYCIT200' 'D'
' ' '/PWS/SAPMZYCI058' /pws/zycit200-id.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit200 WHERE id = v_txtki.
MODIFY /pws/zycit200 FROM TABLE itab_zycit200b.
* >> Início da inclusão: FORM SAVE_ADIC
LOOP AT itab_zycit200b.
MOVE-CORRESPONDING itab_zycit200b TO /pws/zycit200.
PERFORM carrega_log USING '/PWS/ZYCIT200' 'I'
' ' '/PWS/SAPMZYCI058' /pws/zycit200-id.
ENDLOOP.
* << Fim da inclusão
ENDIF.
...
...
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/SAPMZYCI058' /pws/zycit085-nrseqdi.
* << Fim da inclusão
itab_zycit095-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit095 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_it-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_it TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
itab_zycit100-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit100 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
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.
...
...
/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/SAPMZYCI058' /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_zycit003[]
t_zycbt032 = itab_zycbt032[]
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
wa_zycit136-tp_doc = text-061.
ENDIF.
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
MOVE-CORRESPONDING wa_zycit136 TO /pws/zycit136.
PERFORM carrega_log USING '/PWS/ZYCIT136' 'I'
' ' '/PWS/SAPMZYCI058' /pws/zycit136-nrseq.
* << 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
MOVE-CORRESPONDING wa_zycit136 TO /pws/zycit136.
PERFORM carrega_log USING '/PWS/ZYCIT136' 'U'
' ' '/PWS/SAPMZYCI058' /pws/zycit136-nrseq.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-029.
ENDIF.
ENDFORM.
...
...
APPEND it_zycit100.
READ TABLE it_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
WHERE nrseq = it_zycit100-nrseq.
APPEND it_zycit001.
READ TABLE it_zycit001 INDEX 1.
IF NOT it_zycit001-status = 'DB'.
it_zycit001-status = 'DB'.
MODIFY it_zycit001 INDEX 1.
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
* >> Início da inclusão: FORM ATUALIZA_STATUS
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
CLEAR it_zycit255. REFRESH it_zycit255.
MOVE: sy-mandt TO it_zycit255-mandt,
it_zycit001-nrseq TO it_zycit255-nrseq,
it_zycit001-status TO it_zycit255-status,
sy-datum TO it_zycit255-data,
sy-uzeit TO it_zycit255-hora,
sy-uname TO it_zycit255-usuario.
APPEND it_zycit255.
INSERT INTO /pws/zycit255 VALUES it_zycit255.
ENDIF.
...
...
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.
...
...
ELSE.
MESSAGE i015 WITH text-218.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT v_rec_ia IS INITIAL AND v_rec_ia = v_rec_ia_1.
UPDATE /pws/zycit085 SET flag_reclass = 'X'
WHERE nrseqdi = /pws/zycie085-nrseqdi.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
IF sy-subrc EQ 0.
/pws/zycie085-flag_reclass = 'X'.
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI058' /pws/zycit085-nrseqdi.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
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/SAPMZYCI058' /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.
...
...
FORM salva_dados_siscomex.
MODIFY /pws/zycit116 FROM TABLE itab_zycit116.
* >> Início da inclusão: FORM SALVA_DADOS_SISCOMEX
LOOP AT itab_zycit116.
MOVE-CORRESPONDING itab_zycit116 TO /pws/zycit116.
PERFORM carrega_log USING '/PWS/ZYCIT116' 'I'
' ' '/PWS/SAPMZYCI058' /pws/zycit116-nrseqdi.
ENDLOOP.
* << Fim da inclusão
LOOP AT itab_itb.
UPDATE /pws/zycit100 SET item_adi_sisc = itab_itb-item_adi_sisc
WHERE nrseqdi = itab_itb-nrseqdi
AND nrseq = itab_itb-nrseq
AND ebeln = itab_itb-ebeln
AND ebelp = itab_itb-ebelp
AND adicao = itab_itb-adicao.
* >> Início da inclusão: FORM SALVA_DADOS_SISCOMEX
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_itb TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'U'
' ' '/PWS/SAPMZYCI058' /pws/zycit100-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
...
...
/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/SAPMZYCI058' /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/SAPMZYCI058' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058X01
TABLES: /pws/zycit000,
/pws/zycie085,
/pws/zycit085,
/pws/zycie093,
/pws/zycie003,
/pws/zycie100a,
/pws/zycit062,
/pws/zycit438,
* >> Início da exclusão:
/pws/zycit078.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit078,
/pws/zycit375,
/pws/zycit003,
/pws/zycit100,
/pws/zycit095,
/pws/zycit200,
/pws/zycit269,
/pws/zycit049,
/pws/zycit136,
/pws/zycit116,
/pws/zycit086,
/pws/zycit087,
/pws/zycit096,
/PWS/ZYCIT114,
/PWS/ZYCIT115,
/PWS/ZYCIT118,
/PWS/ZYCIT121,
/PWS/ZYCIT124.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI058
INCLUDE /PWS/MZYCI058TOP.
INCLUDE /PWS/MZYCI058O01.
INCLUDE /PWS/MZYCI058I01.
INCLUDE /PWS/MZYCI058F01.
INCLUDE /PWS/MZYCI058F02.
INCLUDE /PWS/MZYCI058F03.
INCLUDE /PWS/MZYCI058F04.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão