CE PLUS - Nota 011861
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 18/01/2012 15:40:26
Data/Hora Última Alteração: 18/01/2012 15:40:26
Descrição da Nota: TRILHA DE AUDITORIA NA DI
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 11861 Data: 18/01/2012 Hora: 10:08:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11861
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00010
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00132 - 00001 - 6.0 - 00021 - CHAMADA DE EXIT NA DI ANTES DA F-05 E F-51 DA VARIAÇÃO CAMBIAL.
00370 - 00002 - 6.0 - 00021 - PERÍODO DE VIGÊNCIA DA MP252.
00458 - 00003 - 6.0 - 00022 - AJUSTE NO CALCULO DO SEGURO DA DI
00697 - 00004 - 6.0 - 00022 - INSERIR PAGE DOWN E PAGE UP NA TELA DAS DESPESAS DA DI
01203 - 00005 - 6.0 - 00023 - AO EFETUAR A CRIAÇÃO DE UMA DI UTILIZANDO O ACESSO DO MENU
02183 - 00006 - 6.0 - 00025 - TRATAMENTO DE EXIT NA DI
02239 - 00007 - 6.0 - 00025 - TRATAMENTO PARA MOTIVO DE ESTORNO DA FB08 NA DI
02818 - 00008 - 6.0 - 00026 - AJUSTADA SELEÇÃO DOS TEXTOS DOS REGIMES TRIBUTARIOS.
04015 - 00009 - 7.0 - 00001 - FECHAR CAMPOS DE REDUÇÃO II PARA REGIME SUSPENÇÃO E TRATAR VARIAÇ
04176 - 00010 - 7.0 - 00002 - ARREDONDAMENTO DE VALORES NA DI
04289 - 00011 - 7.0 - 00002 - DECLARAÇÃO DE IMPORTAÇÃO (DI) - VARIAÇÃO CAMBIAL
04679 - 00012 - 7.0 - 00003 - DI NÃO ESTÁ RESPEITANDO O PARÂMETRO REG_SUSP DA ZYCIT062 P ICMS
05046 - 00013 - 7.0 - 00003 - NO REGIME 05 ADMISSÃO TEMPORÁRIA O REGIME TRIBUTÁRIO NA DI SERA S
05249 - 00014 - 7.0 - 00003 - AO CANCELAR TRANSMISSÃO DA DI, SISTEMA CONTINUA TRANSMITINDO
05254 - 00015 - 7.0 - 00003 - DI PERMITE ALTERAÇÃO EM CAMPO DE REGISTRO E DATA REGISTRO MESMO C
05284 - 00016 - 7.0 - 00003 - NÃO ESTÁ LEVANDO CÓDIGO SISCOMEX DE PAÍS E MOEDA PARA O ORIENTADO
06431 - 00017 - 7.0 - 00005 - CRIADO NOVOS CAMPOS NO SISCOMEX E DI PARA ATUALIZAÇÃO DE TRANSMIS
06550 - 00018 - 7.0 - 00005 - PADRONIZAÇÃO - CODE INSPECTOR
06770 - 00019 - 7.0 - 00005 - EMITE MENSAGEM DE TAXA MESMO SEM MOEDA DO SEGURO
07293 - 00020 - 7.0 - 00006 - AO CRIAR DI DE FUNDAP, TRAZ ADQUIRENTE ERRADO E NÃO DEIXA TROCAR
07509 - 00021 - 7.0 - 00007 - NÃO GRAVA O VALOR DE PIS E COFINS NA TABELA /PWS/ZYCIT100
07622 - 00022 - 7.0 - 00007 - UTILIZAÇÃO DE TABELA EM EXIT DE TELA
07649 - 00023 - 7.0 - 00007 - COMPARTILHAR DECLARAÇÃO DE TABELAS NO INCLUDE X PARA USO ESPECÍFI
07672 - 00024 - 7.0 - 00007 - DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
07699 - 00025 - 7.0 - 00007 - DI - CÁLCULO DA TAXA DO SISCOMEX NA BASE - PIS E COFINS ISENTO NA
07700 - 00026 - 7.0 - 00007 - SEGURO EMBARQUE NACIONALIZAÇÃO PROPORCIONAL A QUANTIDADE NACIONAL
07852 - 00027 - 7.0 - 00008 - NA DI NÃO ESTA HABILIANDO NA ABA ITEM, TRIBUTO, IPI OS CAMPOS UNI
07854 - 00028 - 7.0 - 00006 - DUMP DE DIVISÃO POR ZERO QUANDO O PESO NÃO ESTÁ PREENCHIDO.
08066 - 00029 - 7.0 - 00008 - NECESSÁRIO UTILIZAÇÃO DE VARIÁVEL EM EXIT
08092 - 00030 - 7.0 - 00008 - DIFERENÇA NO VALOR DO IPI QUANDO HÁ ALÍQUOTA ESPECÍFICA
08183 - 00031 - 7.0 - 00008 - FECHAR CAMPOS APÓS CRIAÇÃO DA NOTA FISCAL
08199 - 00032 - 7.0 - 00009 - TRATAMENTO PARA LEI DE BENEFÍCIO FISCAL NO. 10637
08277 - 00033 - 7.0 - 00009 - AO ENTRAR NA DI NÃO CALCULA O VALOR DA MERCADORIA NA CARGA 2
08309 - 00034 - 7.0 - 00009 - DI TIPO DE CONHECIMENTO TIPO DE DECLARAÇÃO
08748 - 00035 - 7.0 - 00010 - EQUALIZAÇÃO DO FUNDAMENTO LEGAL NA DI DA PASTA ITENS COM AS ADIÇÕ
08870 - 00036 - 7.0 - 00010 - ERRO AO REPLICAR DADOS DA DI
08939 - 00037 - 7.0 - 00010 - NÃO CARREGA O NÚMERO DA ADIÇÃO NO ITEM DA DI
09409 - 00038 - 8.0 - 00001 - AO ENTRAR NA DI EM MODO EXIBIR,OCORRE MENSAGEM DE ERRO
09523 - 00039 - 8.0 - 00002 - O CNPJ ESTÁ SENDO EXIBIDO SEM FORMATAÇÃO NA DI.
09725 - 00040 - 8.0 - 00002 - PREENCHER O EX TARIFARIO QUANDO CADASTRADO NA T604F
09841 - 00041 - 8.0 - 00002 - IMPLEMENTAÇÃO DE CAMPOS DINÂMICOS NA REFERÊNCIA DA DI MEMÓRIA DE
09853 - 00042 - 8.0 - 00002 - IMPLEMENTAÇÃO DA ABERTURA DOS CAMPOS DA NVE NO DETALHE DO ITEM DI
09889 - 00043 - 8.0 - 00002 - DECLARAÇÃO DE IMPORTAÇÃO - VERIFICAÇÃO DO BL
10129 - 00044 - 8.0 - 00003 - QUEBRA POR ADIÇÃO NA DI POR DESCRIÇÃO DO FABRICANTE
10212 - 00045 - 8.0 - 00003 - O VALOR DOS IMPOSTOS ESTÁ ERRADO PARA PROCESSOS DE ADMISSÃO TEMPO
10338 - 00046 - 8.0 - 00004 - AJUSTES CODE INSPECTOR
10535 - 00047 - 8.0 - 00004 - TRATAMENTO DE ADMISSÃO TEMPORÁRIA E CONSUMO NO EMBARQUE
10647 - 00048 - 8.0 - 00005 - ERRO NA DI POR FORA DO EMBARQUE
10653 - 00049 - 8.0 - 00005 - NOME DO EXPORTADOR E FABRICANTE INCOMPLETO
10654 - 00050 - 8.0 - 00005 - VALOR FOB FICA INCORRETO QUANDO POSSUI DESPESA EM JPY
10880 - 00051 - 8.0 - 00006 - CONTABILIZAÇÃO DA FATURA TIPO "P" COM TAXA INCORRETA
10983 - 00052 - 8.0 - 00006 - PREENCHIMENTO DO ITEM DE DRAWBACK NA DESCRIÇÃO DO ITEM.
10987 - 00053 - 8.0 - 00006 - ERRO NA CRIAÇÃO DA DI PELO MENU DO DESEMBARAÇO.
11157 - 00054 - 8.0 - 00007 - LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.
11172 - 00055 - 8.0 - 00007 - TEXTO PRÉ-CONFIGURADO NA TABELA /PWS/ZYCIT104
11230 - 00056 - 8.0 - 00007 - DUMP DYNPRO_FIELD_CONVERSION (CAMPO S_FBVR)
11341 - 00057 - 8.0 - 00008 - VALOR PERCENTUAL DO SEGURO DA DI NÃO CONFERE COM MOEDAS DIFERENTE
11471 - 00058 - 8.0 - 00009 - DESENVOLVIMENTO PARA TRATAMENTO NOVO INCOTERM C+I
11475 - 00059 - 8.0 - 00009 - SEGURO ESTÁ DIVERGENTE DO VALOR DA CAPA DA DI NOS ITENS/ADIÇÃO
11506 - 00060 - 8.0 - 00009 - TRILHA DE AUDITORIA
11637 - 00061 - 8.0 - 00009 - BASE DE PIS E COFINS FICA INCORRETO QUANDO II TEM PERCENTUAL DE R
11728 - 00062 - 8.0 - 00009 - DI - /PWS/SAPMZYCI023 - AJUSTAR A LÓGICA DOS CAMPOS DATAS
11786 - 00063 - 8.0 - 00010 - AO PREENCHER O CAMPO DECLARAÇÃO OU DT.REGISTRO A TAXA SISCOMEX SO
11808 - 00064 - 8.0 - 00010 - DIFERENÇA DE CENTAVOS ENTRE A BASE DE ICMS E O TOTAL DA NOTA FISC
11823 - 00065 - 8.0 - 00010 - PREENCHER INCOTERM DO ITEM
----------------------------------------------------------------------------------------------------
TRILHA DE AUDITORIA NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - UPDATE - DELETE - INSERT - MODIFY
TRILHA DE AUDITORIA - /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023X01
REPS /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
DATA: 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,
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,
lt_zycit485 TYPE /pws/zycit485 OCCURS 0 WITH HEADER LINE,
lt_zycit486 TYPE /pws/zycit486 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
/pws/zycie085-dtusera = sy-datlo.
/pws/zycie085-hrusera = sy-uzeit.
/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.
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/SAPMZYCI023' /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/SAPMZYCI023' /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/SAPMZYCI023' /pws/zycit095-nrseqdi.
ENDLOOP.
* << Fim da inclusão
IF v_dit = 'N'.
IF NOT /pws/zycie085-nrbl IS INITIAL.
v_calci = 'S'.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
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.
SELECT * FROM /pws/zycit485 INTO TABLE lt_zycit485
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit486 INTO TABLE lt_zycit486
WHERE nrseqdi = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit049-nrseq.
ENDLOOP.
LOOP AT lt_zycit086.
MOVE-CORRESPONDING lt_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit087.
MOVE-CORRESPONDING lt_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit096.
MOVE-CORRESPONDING lt_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit114.
MOVE-CORRESPONDING lt_zycit114 TO /pws/zycit114.
PERFORM carrega_log USING '/PWS/ZYCIT114' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit114-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit115.
MOVE-CORRESPONDING lt_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit116.
MOVE-CORRESPONDING lt_zycit116 TO /pws/zycit116.
PERFORM carrega_log USING '/PWS/ZYCIT116' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit116-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit118.
MOVE-CORRESPONDING lt_zycit118 TO /pws/zycit118.
PERFORM carrega_log USING '/PWS/ZYCIT118' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit118-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit121.
MOVE-CORRESPONDING lt_zycit121 TO /pws/zycit121.
PERFORM carrega_log USING '/PWS/ZYCIT121' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit121-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit124.
MOVE-CORRESPONDING lt_zycit124 TO /pws/zycit124.
PERFORM carrega_log USING '/PWS/ZYCIT124' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit124-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit485.
MOVE-CORRESPONDING lt_zycit485 TO /pws/zycit485.
PERFORM carrega_log USING '/PWS/ZYCIT485' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit485-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit486.
MOVE-CORRESPONDING lt_zycit486 TO /pws/zycit486.
PERFORM carrega_log USING '/PWS/ZYCIT486' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit486-nrseqdi.
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/zycit114 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit114 FROM TABLE itab_zycit114.
DELETE FROM /pws/zycit115 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit115 FROM TABLE itab_zycit115.
...
...
DELETE FROM /pws/zycit118 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit118 FROM TABLE itab_zycit118.
DELETE FROM /pws/zycit121 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit121 FROM TABLE itab_zycit121.
DELETE FROM /pws/zycit124 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit124 FROM TABLE itab_zycit124.
DELETE FROM /pws/zycit485 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit485 FROM TABLE itab_zycit485.
DELETE FROM /pws/zycit486 WHERE nrseqdi = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit486 FROM TABLE itab_zycit486.
* >> 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/SAPMZYCI023' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit087.
MOVE-CORRESPONDING itab_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit096.
MOVE-CORRESPONDING itab_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit114.
MOVE-CORRESPONDING itab_zycit114 TO /pws/zycit114.
PERFORM carrega_log USING '/PWS/ZYCIT114' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit114-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit115.
MOVE-CORRESPONDING itab_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit116.
MOVE-CORRESPONDING itab_zycit116 TO /pws/zycit116.
PERFORM carrega_log USING '/PWS/ZYCIT116' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit116-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit118.
MOVE-CORRESPONDING itab_zycit118 TO /pws/zycit118.
PERFORM carrega_log USING '/PWS/ZYCIT118' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit118-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit121.
MOVE-CORRESPONDING itab_zycit121 TO /pws/zycit121.
PERFORM carrega_log USING '/PWS/ZYCIT121' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit121-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit124.
MOVE-CORRESPONDING itab_zycit124 TO /pws/zycit124.
PERFORM carrega_log USING '/PWS/ZYCIT124' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit124-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit485.
MOVE-CORRESPONDING itab_zycit485 TO /pws/zycit485.
PERFORM carrega_log USING '/PWS/ZYCIT485' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit485-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit486.
MOVE-CORRESPONDING itab_zycit486 TO /pws/zycit486.
PERFORM carrega_log USING '/PWS/ZYCIT486' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit486-nrseqdi.
ENDLOOP.
* << Fim da inclusão
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.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
MODIFY /pws/zycit049 FROM TABLE itab_zycit049di2.
* >> 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/SAPMZYCI023' /pws/zycit049-nrseq.
ENDLOOP.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
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/SAPMZYCI023' /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/SAPMZYCI023' /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/SAPMZYCI023' /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.
IF /pws/zycie085-waersfob NE itab_it-waersbem.
PERFORM: calc_conv_moeda:
USING /pws/zycie085-waersfob
itab_it-waersbem
CHANGING itab_it-vlfob.
ENDIF.
MOVE-CORRESPONDING itab_it TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
SORT itab_zycit100 BY nrseqdi nrseq ebeln ebelp adicao.
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/SAPMZYCI023' /pws/zycit100-nrseqdi.
ENDLOOP.
* << Fim da inclusão
CLEAR a_ip.
LOOP AT itab_zycit100.
v_tabix = sy-tabix.
ON CHANGE OF itab_zycit100-adicao.
CLEAR a_ip.
ENDON.
IF itab_zycit100-item_adi_sisc IS INITIAL.
itab_zycit100-item_adi_sisc = a_ip = a_ip + 1.
UPDATE /pws/zycit100 SET
item_adi_sisc = itab_zycit100-item_adi_sisc
WHERE nrseqdi = itab_zycit100-nrseqdi
AND nrseq = itab_zycit100-nrseq
AND ebeln = itab_zycit100-ebeln
AND ebelp = itab_zycit100-ebelp
AND adicao = itab_zycit100-adicao.
* >> Início da inclusão: FORM SAVE_DATA
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'U'
' ' '/PWS/SAPMZYCI023' /pws/zycit100-nrseqdi.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycit100 INDEX v_tabix.
ENDIF.
ENDLOOP.
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/SAPMZYCI023' /pws/zycit269-nrseqdi.
ENDLOOP.
* << Fim da inclusão
ENDIF.
CLEAR: /pws/zycie003-tpnf.
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
...
...
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. "#EC CI_NOFIRST
* >> 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.
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.
...
...
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.
* >> Início da inclusão: FORM SAVE_DATA
MODIFY itab_zycit078_t.
ELSE.
itab_zycit078_t-dtregdi = /pws/zycie085-dtreg.
itab_zycit078_t-nrdi = /pws/zycie085-nrdi.
itab_zycit078_t-nrseqdi = /pws/zycie085-nrseqdi.
* << Fim da inclusão
MODIFY itab_zycit078_t.
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.
SELECT SINGLE * FROM /pws/zycit100 INTO it_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND it_zycit100.
READ TABLE it_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit001 INTO it_zycit001
...
...
IF /pws/zycie085-dtdesemb IS INITIAL .
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0.
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.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0 .
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
ENDIF.
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.
...
...
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,
lt_zycit485 TYPE /pws/zycit485 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
ENDIF.
READ TABLE itab_it INDEX 1.
/pws/zycit496-mandt = /pws/zycie085-mandt .
/pws/zycit496-nrseq = itab_it-nrseq .
/pws/zycit496-func = 'DI' .
/pws/zycit496-nrseqdi = /pws/zycie085-nrseqdi.
/pws/zycit496-nrdi = /pws/zycie085-nrdi .
/pws/zycit496-dtuser = sy-datlo .
/pws/zycit496-hruser = sy-uzeit .
/pws/zycit496-username = sy-uname .
* >> Início da inclusão: FORM DATA_DELE
MOVE-CORRESPONDING /pws/zycie085 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit085-nrseqdi.
* << Fim da inclusão
DELETE FROM /pws/zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit100 INTO it_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
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.
it_zycit001-status = 'AB'.
MODIFY it_zycit001 INDEX 1.
UPDATE /pws/zycit001 SET status = 'AB'
WHERE nrseq = it_zycit001-nrseq.
* >> Início da inclusão: FORM DATA_DELE
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.
* >> Início da inclusão: FORM DATA_DELE
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.
LOOP AT lt_zycit095.
MOVE-CORRESPONDING lt_zycit095 TO /pws/zycit085.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit100.
MOVE-CORRESPONDING lt_zycit100 TO /pws/zycit100.
PERFORM carrega_log USING '/PWS/ZYCIT100' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit100-nrseqdi.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit095 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit100 WHERE nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc EQ 0.
INSERT /pws/zycit496 FROM /pws/zycit496.
ENDIF.
IF v_dit = 'N'.
* >> Início da inclusão: FORM DATA_DELE
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.
SELECT * FROM /pws/zycit049 INTO TABLE lt_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit485 INTO TABLE lt_zycit485
WHERE nrseqdi = /pws/zycie085-nrseqdi.
LOOP AT lt_zycit086.
MOVE-CORRESPONDING lt_zycit086 TO /pws/zycit086.
PERFORM carrega_log USING '/PWS/ZYCIT086' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit086-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit087.
MOVE-CORRESPONDING lt_zycit087 TO /pws/zycit087.
PERFORM carrega_log USING '/PWS/ZYCIT087' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit087-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit096.
MOVE-CORRESPONDING lt_zycit096 TO /pws/zycit096.
PERFORM carrega_log USING '/PWS/ZYCIT096' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit096-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit114.
MOVE-CORRESPONDING lt_zycit114 TO /pws/zycit114.
PERFORM carrega_log USING '/PWS/ZYCIT114' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit114-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit115.
MOVE-CORRESPONDING lt_zycit115 TO /pws/zycit115.
PERFORM carrega_log USING '/PWS/ZYCIT115' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit115-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit116.
MOVE-CORRESPONDING lt_zycit116 TO /pws/zycit116.
PERFORM carrega_log USING '/PWS/ZYCIT116' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit116-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit118.
MOVE-CORRESPONDING lt_zycit118 TO /pws/zycit118.
PERFORM carrega_log USING '/PWS/ZYCIT118' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit118-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit121.
MOVE-CORRESPONDING lt_zycit121 TO /pws/zycit121.
PERFORM carrega_log USING '/PWS/ZYCIT121' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit121-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit124.
MOVE-CORRESPONDING lt_zycit124 TO /pws/zycit124.
PERFORM carrega_log USING '/PWS/ZYCIT124' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit124-nrseqdi.
ENDLOOP.
LOOP AT lt_zycit049.
MOVE-CORRESPONDING lt_zycit049 TO /pws/zycit049.
PERFORM carrega_log USING '/PWS/ZYCIT049' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit049-nrseq.
ENDLOOP.
LOOP AT lt_zycit485.
MOVE-CORRESPONDING lt_zycit485 TO /pws/zycit485.
PERFORM carrega_log USING '/PWS/ZYCIT485' 'D'
' ' '/PWS/SAPMZYCI023' /pws/zycit485-nrseqdi.
ENDLOOP.
* << Fim da inclusão
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.
DELETE FROM /pws/zycit118 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit121 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit124 WHERE nrseqdi = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit049 WHERE nrseq = /pws/zycie085-nrseqdi.
DELETE FROM /pws/zycit485 WHERE nrseqdi = /pws/zycie085-nrseqdi.
PERFORM delete_text.
ENDIF.
COMMIT WORK.
LEAVE PROGRAM.
ENDFORM.
...
...
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.
* >> Início da inclusão: FORM SAVE_ADIC
ENDLOOP.
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/SAPMZYCI023' /pws/zycit200-id.
* << Fim da inclusão
ENDLOOP.
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/SAPMZYCI023' /pws/zycit200-id.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF /pws/zycie006-codcambial = '4'.
CLEAR /pws/zycie116-valtot.
ENDIF.
IF NOT v_pos = 0.
MOVE-CORRESPONDING /pws/zycie116 TO itab_zycit116.
MODIFY itab_zycit116 INDEX v_pos.
IF sy-subrc NE 0.
APPEND itab_zycit116.
ENDIF.
...
...
LOOP AT itab_zycit003 WHERE inco1 EQ space.
CLEAR itab_inco.
READ TABLE itab_inco WITH KEY ebeln = itab_zycit003-ebeln.
itab_zycit003-inco1 = itab_inco-inco1.
MODIFY itab_zycit003 TRANSPORTING inco1
WHERE ebeln EQ itab_zycit003-ebeln.
UPDATE /pws/zycit003
SET inco1 = itab_zycit003-inco1
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln.
* >> Início da inclusão: FORM FILL_ITABIT
MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit003.
PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.
* << Fim da inclusão
ENDLOOP.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
SELECT * FROM /pws/zycit107 INTO TABLE itab_zycit107
FOR ALL ENTRIES IN itab_zycit003
WHERE land1 = itab_zycit003-porigem.
READ TABLE itab_zycit003 INDEX 1.
...
...
PERFORM: fill_criar.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
WHILE sy-subrc NE 0.
PERFORM findnrseq.
INSERT INTO /pws/zycit085 VALUES /pws/zycie085.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
ENDIF.
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/SAPMZYCI023' /pws/zycit085-nrseqdi.
* << Fim da inclusão
itab_zycit095-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit095 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
IF v_dit = 'N'.
itab_zycit049-nrseq = /pws/zycie085-nrseqdi.
MODIFY itab_zycit049 TRANSPORTING nrseq
WHERE nrseq = v_nrseq_ant.
itab_zycit086-nrseqdi = /pws/zycie085-nrseqdi.
MODIFY itab_zycit086 TRANSPORTING nrseqdi
WHERE nrseqdi = v_nrseq_ant.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
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/SAPMZYCI023' /pws/zycit100-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
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-datlo.
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/SAPMZYCI023' /pws/zycit136-nrseq.
ENDIF.
* << Fim da inclusão
IF okcode EQ 'TRANSM'.
ENDIF.
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-datlo.
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/SAPMZYCI023' /pws/zycit136-nrseq.
ENDIF.
* << Fim da inclusão
IF okcode EQ 'TRANSM'.
ENDIF.
ELSEIF v_resposta EQ 'A'.
v_transm = 'N'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-029.
...
...
nrseq = itab_zycit100-nrseq.
IF NOT itab_zycit001-status = 'DB'.
SELECT SINGLE * FROM /pws/zycit041 INTO /pws/zycit041 WHERE
nrseq EQ /pws/zycie085-nrseqdi AND
cancel EQ space.
IF sy-subrc NE 0.
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
ENDIF.
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-datlo 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.
...
...
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/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDIF.
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/SAPMZYCI023' /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-datlo.
PERFORM limpa_doc_f05.
...
...
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/SAPMZYCI023' /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-datlo.
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/SAPMZYCI023' /pws/zycit116-nrseqdi.
ENDLOOP.
* << Fim da inclusão
LOOP AT itab_itb.
READ TABLE itab_it WITH KEY nrseqdi = itab_itb-nrseqdi
nrseq = itab_itb-nrseq
ebeln = itab_itb-ebeln
ebelp = itab_itb-ebelp
adicao = itab_itb-adicao.
IF sy-subrc EQ 0.
itab_it-item_adi_sisc = itab_itb-item_adi_sisc.
MODIFY itab_it TRANSPORTING item_adi_sisc
WHERE nrseqdi = itab_itb-nrseqdi
...
...
AND ebeln = itab_itb-ebeln
AND ebelp = itab_itb-ebelp
AND adicao = itab_itb-adicao.
ENDIF.
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/SAPMZYCI023' /pws/zycit100-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDLOOP.
DELETE itab_zycit121 WHERE adicao = wa_ad-adicao.
LOOP AT itab_zycit121b.
MOVE itab_zycit121b TO itab_zycit121.
APPEND itab_zycit121.
ENDLOOP.
LOOP AT itab_zycit121c.
MOVE itab_zycit121c TO itab_zycit121.
APPEND itab_zycit121.
ENDLOOP.
DELETE itab_zycit124 WHERE adicao = wa_ad-adicao.
LOOP AT itab_zycit124b.
MOVE itab_zycit124b TO itab_zycit124.
APPEND itab_zycit124.
ENDLOOP.
MODIFY /pws/zycit121 FROM TABLE itab_zycit121.
MODIFY /pws/zycit124 FROM TABLE itab_zycit124.
* >> Início da inclusão: FORM SALVA_DADOS_SISCOMEX
LOOP AT itab_zycit121.
MOVE-CORRESPONDING itab_zycit121 TO /pws/zycit121.
PERFORM carrega_log USING '/PWS/ZYCIT121' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit121-nrseqdi.
ENDLOOP.
LOOP AT itab_zycit124.
MOVE-CORRESPONDING itab_zycit124 TO /pws/zycit124.
PERFORM carrega_log USING '/PWS/ZYCIT124' 'I'
' ' '/PWS/SAPMZYCI023' /pws/zycit124-nrseqdi.
ENDLOOP.
* << Fim da inclusão
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/SAPMZYCI023' /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).
...
...
/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/SAPMZYCI023' /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.
ENDIF.
ENDFORM.
...
...
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/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
/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/SAPMZYCI023' /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/MZYCI023X01
...
/pws/zycie093,
/pws/zycie003,
/pws/zycie100a,
/pws/zycit062,
/pws/zycit438,
/pws/zycit078,
/pws/zycit485,
/pws/zycie485,
/pws/zycit486,
/pws/zycie486,
* >> Início da exclusão:
/pws/zycit494.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit494,
/pws/zycit375,
/pws/zycit100,
/pws/zycit136,
/pws/zycit116,
/pws/zycit121,
/pws/zycit124,
/pws/zycit003,
/pws/zycit095,
/pws/zycit086,
/pws/zycit087,
/pws/zycit096,
/pws/zycit114,
/pws/zycit115,
/pws/zycit118,
/pws/zycit049,
/pws/zycit200,
/pws/zycit269.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI023
INCLUDE /pws/mzyci023top.
INCLUDE /pws/mzyci023o01.
INCLUDE /pws/mzyci023i01.
INCLUDE /pws/mzyci023f01.
INCLUDE /pws/mzyci023f02.
INCLUDE /pws/mzyci023f03.
INCLUDE /pws/mzyci023f04.
INCLUDE /PWS/MZYCI023F05.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão