CE PLUS - Nota 011840
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 12/01/2012 00:00:00
Data/Hora Última Alteração: 13/01/2012 10:13:51
Descrição da Nota: TRILHA DE AUDITORIA NA NOTA FISCAL
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 11840 Data: 12/01/2012 Hora: 10:43:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11840
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
00289 - 00001 - 6.0 - 00021 - SUBSTITUIÇÃO DA MENSAGEM DO PROGRAMA DE NF /PWS/SAPMZYCI016.
00783 - 00002 - 6.0 - 00022 - ERRO NA CRIAÇÃO DA NF QUANDO TEM DOIS FORNECEDORES DIF.
00840 - 00003 - 6.0 - 00022 - MELHORIA NA MENSAGEM DO BATCH INPUT VIA SHIFT F9
00842 - 00004 - 6.0 - 00022 - FECHAR O CAMPO DATA DA TAXA NA DI, APÓS A CRIAÇÃO DA NOTA FISCAL
00882 - 00005 - 6.0 - 00022 - PROBLEMA DE PERFORMANCE NA GERAÇÃO DA NF
01748 - 00006 - 6.0 - 00024 - O RECEBIMENTO DO EMBARQUE 295I06 GEROU UM LANÇAMENTO NA MIRO
01780 - 00007 - 6.0 - 00024 - ERRO AO CRIAR 'NF POR FORA' E ALTERAR EMBARQUE AO MESMO TEMPO.
01937 - 00008 - 6.0 - 00024 - AO SOLICITAR BATCH INPUT VISÍVEL O SISTEMA NÃO DÁ PERMISSÃO
01955 - 00009 - 6.0 - 00024 - ERRO EM BATCH INPUT AO UTILIZAR FUNÇÃO SHIFT + F9 NO RECEBIMENTO.
02845 - 00010 - 6.0 - 00026 - ATUALIZAÇÃO DO DOCNUM NA NOTA FISCAL
04960 - 00011 - 7.0 - 00003 - NOTA FISCAL COM QUEBRA DE ITENS
05293 - 00012 - 7.0 - 00003 - A EXIT DO DRAFT DA NF REMESSA NÃO FUNCIONA QUANDO EXIBIMOS
05551 - 00013 - 7.0 - 00004 - IMPLEMENTAÇÃO DE EXIT NA NOTA FISCAL GLOBAL
05734 - 00014 - 7.0 - 00004 - PADRONIZAÇÃO - CODE INSPECTOR
05762 - 00015 - 7.0 - 00004 - SELECIONAR VALORES FUNDAP QUANDO A NOTA FISCAL É EXIBIDA
05780 - 00016 - 7.0 - 00004 - PREENCHIMENTO AUTOMATICO DA QUANTIDADE DOS ITENS NA NF REMESSA
06804 - 00017 - 7.0 - 00006 - MENSAGEM AO ACESSAR A NOTA FISCAL DE REMESSA.
07276 - 00018 - 7.0 - 00006 - DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA
07393 - 00019 - 7.0 - 00007 - ESTÁ LEVANDO VALOR DE ICMS NAS MENSAGENS DA NF MESMO ISENTO
07495 - 00020 - 7.0 - 00007 - AO EXECUTAR A EXIT DNF013 NA NF, NÃO CHAMA PROGRAMA ESPECÍFICO.
08224 - 00021 - 7.0 - 00009 - IMPLEMENTAÇÃO DE EXIT NOTA FISCAL REMESSA NA CRIAÇÃO DA NOTA
08253 - 00022 - 7.0 - 00009 - ABERTURA DE PONTO DE EXIT NA NOTA FISCAL DE REMESSA AO CRIAR A NF
08846 - 00023 - 7.0 - 00010 - NECESSÁRIO PONTO DE EXIT AO CRIAR NF DE CONTINGÊNCIA
08861 - 00024 - 7.0 - 00010 - AO CLICAR NO BOTÃO DA NF DE CONTINGÊNCIA NÃO FAZ NADA.
08933 - 00025 - 8.0 - 00001 - FRETE E SEGURO DE ACORDO COM INCOTERM NA NACION. ADMISS. TEMP.
08973 - 00026 - 8.0 - 00001 - RATEIO DO PESO BRUTO NA NOTA FISCAL DE REMESSA
08994 - 00027 - 8.0 - 00001 - CATEGORIA DE NF SEM CENTRO PARAMETRIZADO ESTA PARANDO BATCH INPUT
09093 - 00028 - 8.0 - 00001 - ALTERAÇÃO MENSAGENS DSI NA NF
09158 - 00029 - 8.0 - 00001 - AO CRIAR NOTA FISCAL E ABORTAR O PROCESSO ESTA GRAVANDO DOCNUM
10041 - 00030 - 8.0 - 00003 - NÃO PREENCHER II NAS MENSAGENS DA NOTA FISCAL QUANDO NÃO POSSUIR
10115 - 00031 - 8.0 - 00003 - CORREÇÃO DO RATEIO DE DESPESAS POR VALOR REALIZADO
10138 - 00032 - 8.0 - 00003 - INFORMAR A CONDIÇÃO DE PAGAMENTO NA NOTA FISCAL GLOBAL
10186 - 00033 - 8.0 - 00003 - AJUSTE NA FORMATAÇÃO DOS VALORES DAS DESPESAS NAS MENSAGENS DA NO
10286 - 00034 - 8.0 - 00004 - LANÇAR OS VALORES DE FRETE E SEGURO NA NFR CRIADA PÓS RECEBIMENTO
10290 - 00035 - 8.0 - 00004 - TRATAMENTO DOS IMPOSTOS NA CRIAÇÃO DA NOTA FISCAL PARA ADMIS. TEM
10338 - 00036 - 8.0 - 00004 - AJUSTES CODE INSPECTOR
10577 - 00037 - 8.0 - 00004 - ALTERAR ALÍQUOTA DE ICMS NA NF DE FUNDAP
10578 - 00038 - 8.0 - 00004 - RATEIO DESPESA POR PESO EM PROCESSO A GRANEL
10589 - 00039 - 8.0 - 00004 - VALOR DA TAXA SISCOMEX MAIOR QUE O VALOR INFORMADO NA DI
10591 - 00040 - 8.0 - 00004 - VALOR ERRADO PARA A TAXA SISCOMEX NAS MENSAGENS DA NOTA FISCAL
10598 - 00041 - 8.0 - 00004 - DATA DE LANÇAMENTO 30 DIAS APÓS DATA DE EMISSÃO (NFE)
10732 - 00042 - 8.0 - 00005 - NOTA DE REMESSA COM MONTANTE BASE EXCLUÍDA (ICMS)
10794 - 00043 - 8.0 - 00005 - VALORES DE FUNDAP FICAM ERRADOS AO ALTERAR O TIPO DE NOTA FISCAL
10898 - 00044 - 8.0 - 00006 - NÃO LEVA A TAXA SISCOMEX PARA AS MENSAGENS DA NOTA FISCAL
10946 - 00045 - 8.0 - 00006 - PREENCHER LOTE NA NOTA FISCAL - MATERIAL SUJEITO A LOTE
11017 - 00046 - 8.0 - 00006 - VALOR CIF COM ORIGEM NA NOTA FISCAL ESTÁ ERRADO NO CUSTO EFETIVO
11129 - 00047 - 8.0 - 00007 - NECESSÁRIO ALTERAÇÕES NO PROGRAMA PARA DESENVOLVIMENTO ESPECIFICO
11157 - 00048 - 8.0 - 00007 - LEGISLAÇÃO PARA DESENVOLVIMENTO DE ICMS ST NA DI E NF.
11183 - 00049 - 8.0 - 00007 - NÃO ESTÁ LANÇANDO O VALOR DA TAXA SISCOMEX NAS MENSAGENS DA NOTA
11219 - 00050 - 8.0 - 00007 - NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
11351 - 00051 - 8.0 - 00008 - NÃO SAI O NÚMERO DO ATO VINCULADO A LI NAS MGS DA NF REMESSA.
11424 - 00052 - 8.0 - 00008 - NOTA FISCAL - MENSAGEM REPETIDA POR ITEM
11435 - 00053 - 8.0 - 00008 - AO CRIAR NF SÓ LEVA QUANTIDADE DA PRIMEIRA LINHA DO BL
11439 - 00054 - 8.0 - 00008 - VALOR DO ITEM FICA ERRADO PARA PROCESSOS A GRANEL COM FRETE NACIO
11451 - 00055 - 8.0 - 00009 - NOTA FISCAL DE REMESSA GRAVA NUMERO DE ITEM ERRADO NO PWCE.
11457 - 00056 - 8.0 - 00009 - QUANTIDADE DOS ITENS DA NOTA DE REMESSA É ALTERADA AO FAZER ORDEN
11471 - 00057 - 8.0 - 00009 - DESENVOLVIMENTO PARA TRATAMENTO NOVO INCOTERM C+I
11487 - 00058 - 8.0 - 00009 - AO DAR DUPLO CLIQUE NO PEDIDO DE COMPRAS NÃO ABRE TRANSAÇÃO
11494 - 00059 - 8.0 - 00009 - ACRESCENTAR TRATAMENTO PARA LINHA DO II NA NF.
11504 - 00060 - 8.0 - 00009 - NOTA FISCAL DE REMESSA DESPESA BASE DE II EM DUPLICIDADE NA LINHA
11506 - 00061 - 8.0 - 00009 - TRILHA DE AUDITORIA
11617 - 00062 - 8.0 - 00009 - TRAT. PARA ARRED. VALOR DA NOTA E PREENCH. LINHA II NA NOTA DE RE
11641 - 00063 - 8.0 - 00009 - FEITO DESENVOLVIMENTO PARA PREENCHIMENTO DA NOVA PASTA NF
11732 - 00064 - 8.0 - 00009 - NÃO FAZ NF REMESSA PARA ARGENTINA
11779 - 00065 - 8.0 - 00010 - TRATAMENTO DE CAMPOS EM EXIBIÇÃO
----------------------------------------------------------------------------------------------------
TRILHA DE AUDITORIA NA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF - UPDATE - DELETE - INSERT - MODIFY - TRILHA DE AUDITORIA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
REPS /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc EQ 0.
MOVE: itab_matuse_aux-matnr TO /pws/zycie042-matnr.
ENDIF.
IF NOT itab_zycit042-docnum IS INITIAL AND
itab_zycit042-nfnum IS INITIAL.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042-docnum
IMPORTING
nfnum = /pws/zycie042-nfnum
series = /pws/zycie042-series
subser = /pws/zycie042-subser.
IF NOT /pws/zycie042-nfnum IS INITIAL.
UPDATE /pws/zycit042 SET nfnum = /pws/zycie042-nfnum
series = /pws/zycie042-series
subser = /pws/zycie042-subser
WHERE nrseq = /pws/zycie042-nrseq AND
nrseqnf = /pws/zycie042-nrseqnf AND
ebeln = /pws/zycie042-ebeln AND
ebelp = /pws/zycie042-ebelp AND
nfglobal = /pws/zycie042-nfglobal.
* >> Início da inclusão: FORM CARREGA_ZYCIE042
MOVE-CORRESPONDING /pws/zycie042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_embarca IS INITIAL.
SELECT SINGLE embarca FROM /pws/zycit001
INTO v_embarca
WHERE nrseq EQ /pws/zycie042-nrseq.
IF v_embarca EQ /pws/zycie001-embarca.
UPDATE /pws/zycit042 SET embarca = /pws/zycie042-embarca
WHERE nrseq = /pws/zycie042-nrseq.
ENDIF.
ENDIF.
ENDFORM.
...
...
FORM carrega_zycie044.
* >> Início da inclusão: FORM CARREGA_ZYCIE044
DATA: lt_zycit043 TYPE /pws/zycit043.
* << Fim da inclusão
...
...
READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
IF sy-subrc EQ 0.
MOVE: itab_matuse_aux-matnr TO /pws/zycie044-matnr.
ENDIF.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit044-docnum
IMPORTING
nfnum = /pws/zycie044-nfnum
series = /pws/zycie044-series
subser = /pws/zycie044-subser.
IF NOT /pws/zycie044-nfnum IS INITIAL.
UPDATE /pws/zycit044 SET nfnum = /pws/zycie044-nfnum
series = /pws/zycie044-series
WHERE nrseq = /pws/zycie044-nrseq AND
nrseqnf = /pws/zycie044-nrseqnf AND
ebeln = /pws/zycie044-ebeln AND
ebelp = /pws/zycie044-ebelp AND
nfglobal = /pws/zycie044-nfglobal AND
nfremessa = /pws/zycie044-nfremessa.
* >> Início da inclusão: FORM CARREGA_ZYCIE044
MOVE-CORRESPONDING /pws/zycie044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
SELECT SINGLE * FROM /pws/zycit043 INTO lt_zycit043
WHERE nrseq = /pws/zycie044-nrseqnf AND
nfglobal = /pws/zycie044-nfglobal AND
nfremessa = /pws/zycie044-nfremessa AND
docnum = itab_zycit044-docnum.
* << Fim da inclusão
UPDATE /pws/zycit043 SET nfnum = /pws/zycie044-nfnum
series = /pws/zycie044-series
WHERE nrseq = /pws/zycie044-nrseqnf AND
nfglobal = /pws/zycie044-nfglobal AND
nfremessa = /pws/zycie044-nfremessa AND
docnum = itab_zycit044-docnum.
* >> Início da inclusão: FORM CARREGA_ZYCIE044
IF sy-subrc EQ 0.
lt_zycit043-nfnum = /pws/zycie044-nfnum.
lt_zycit043-series = /pws/zycie044-series.
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
FORM cria_nota_fiscal_r.
* >> Início da inclusão: FORM CRIA_NOTA_FISCAL_R
DATA: lw_zycit045 TYPE /pws/zycit045.
* << Fim da inclusão
...
...
IF lv_erro EQ 'X'.
EXIT.
ENDIF.
MOVE itab_zycit044[] TO itab_zycit044_aux[].
tc_lista_nfr-lines = tc_lista_nfr-lines + 1.
CLEAR v_sucesso.
PERFORM fill_data_j1b1_r.
IF v_sucesso = 'OK'.
v_status_s_nfr = 0.
LOOP AT itab_zycit044.
* >> Início da inclusão: FORM CRIA_NOTA_FISCAL_R
CLEAR: lw_zycit045.
SELECT SINGLE * FROM /pws/zycit045 INTO lw_zycit045
WHERE nrseqnf = itab_zycit044-nrseqnf
AND nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit044 TO /pws/zycie045.
MODIFY /pws/zycit045 FROM /pws/zycie045.
* >> Início da inclusão: FORM CRIA_NOTA_FISCAL_R
IF lw_zycit045-nrseqnf IS INITIAL.
MOVE-CORRESPONDING /pws/zycie045 TO /pws/zycit045.
PERFORM carrega_log USING '/PWS/ZYCIT045' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit045-nrseqnf.
ELSE.
MOVE-CORRESPONDING /pws/zycie045 TO /pws/zycit045.
PERFORM carrega_log USING '/PWS/ZYCIT045' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit045-nrseqnf.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDFORM.
...
...
ELSE.
CALL SCREEN '0050'.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
MODIFY /pws/zycit053 FROM TABLE itab_zycit053_s.
IF NOT itab_zycit480[] IS INITIAL.
MODIFY /pws/zycit480 FROM TABLE itab_zycit480.
* >> Início da inclusão: FORM FILL_DATA_J1B1
LOOP AT itab_zycit480.
MOVE-CORRESPONDING itab_zycit480 TO /pws/zycit480.
PERFORM carrega_log USING '/PWS/ZYCIT480' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit480-nrseq.
ENDLOOP.
* << Fim da inclusão
ENDIF.
COMMIT WORK.
IF v_modalidade = '99' OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
LOOP AT itab_zycit042 WHERE docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888'.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM contabiliza_impostos.
ENDIF.
...
...
FORM fill_data_j1b3.
* >> Início da inclusão: FORM FILL_DATA_J1B3
DATA: lt_zycit042 TYPE /pws/zycit042 OCCURS 0 WITH HEADER LINE,
lt_zycit043 TYPE /pws/zycit043 OCCURS 0 WITH HEADER LINE,
lt_zycit053 TYPE /pws/zycit053 OCCURS 0 WITH HEADER LINE,
lt_zycit223 TYPE /pws/zycit223 OCCURS 0 WITH HEADER LINE,
lt_zycit045 TYPE /pws/zycit045 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
READ TABLE it_zycet005 WITH KEY tcode = text-030
tabela = text-014
cpochv = /pws/zycie041-nfglobal
tpmsg = 'S'.
IF sy-subrc EQ 0 OR
NOT j_1bnfdoc-cancel IS INITIAL.
IF ( v_modalidade NE '99' ) OR
( v_modalidade = '99' AND v_apaga NE 'X' )
AND ( t001-land1 NE 'AR' AND t001-land1 NE 'CL' ).
PERFORM deleta_fundap.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
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 nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
IF sy-subrc = 0.
...
...
DELETE itab_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit223, lt_zycit223[].
SELECT * FROM /pws/zycit223 INTO TABLE lt_zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq AND
nrseqnf = itab_zycit042-nrseqnf.
LOOP AT lt_zycit223.
MOVE-CORRESPONDING lt_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq AND
nrseqnf = itab_zycit042-nrseqnf.
COMMIT WORK.
ELSEIF v_apaga EQ 'X' AND v_modalidade = '99'.
itab_zycit042-docnum = '9999999999'.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* << Fim da inclusão
UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum
series = itab_zycit042-series
nfnum = itab_zycit042-nfnum
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
LOOP AT lt_zycit042.
lt_zycit042-docnum = itab_zycit042-docnum.
lt_zycit042-series = itab_zycit042-series.
lt_zycit042-nfnum = itab_zycit042-nfnum.
MOVE-CORRESPONDING lt_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
* << Fim da inclusão
MODIFY itab_zycit042.
IF v_modalidade = '99'.
/pws/zycie041-docnum = '9999999999'.
CLEAR /pws/zycie041-cancel.
MODIFY /pws/zycit041 FROM /pws/zycie041.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
CLEAR /pws/zycie041-cancel.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit043, lt_zycit043[].
SELECT * FROM /pws/zycit043 INTO TABLE lt_zycit043
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
* << Fim da inclusão
UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
* >> Início da inclusão: FORM FILL_DATA_J1B3
LOOP AT lt_zycit043.
lt_zycit043-docnumnfg = /pws/zycie041-docnum.
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDLOOP.
* << Fim da inclusão
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'NF'
AND nrseqori = v_valor.
IF
( v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) ) AND NOT
/pws/zycie041-belnr_f_02 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
ENDIF.
ELSEIF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
itab_zycit042-docnum = '8888888888'.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* << Fim da inclusão
UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum
series = itab_zycit042-series
nfnum = itab_zycit042-nfnum
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
LOOP AT lt_zycit042.
lt_zycit042-docnum = itab_zycit042-docnum.
lt_zycit042-series = itab_zycit042-series.
lt_zycit042-nfnum = itab_zycit042-nfnum.
MOVE-CORRESPONDING lt_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
* << Fim da inclusão
MODIFY itab_zycit042.
/pws/zycie041-docnum = '8888888888'.
CLEAR /pws/zycie041-cancel.
MODIFY /pws/zycit041 FROM /pws/zycie041.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
/pws/zycie041-cancel = 'X'.
UPDATE /pws/zycit041 SET cancel = /pws/zycie041-cancel
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
CLEAR: lt_zycit043, lt_zycit043[].
SELECT * FROM /pws/zycit043 INTO TABLE lt_zycit043
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
* << Fim da inclusão
UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
* >> Início da inclusão: FORM FILL_DATA_J1B3
LOOP AT lt_zycit043.
lt_zycit043-docnumnfg = /pws/zycie041-docnum.
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ELSE.
READ TABLE it_zycet005 WITH KEY
tcode = text-030
tabela = text-014
cpochv = /pws/zycie041-nfglobal
tpmsg = 'E'.
IF sy-subrc EQ 0.
LOOP AT it_zycet005.
MOVE it_zycet005-msg TO it_erro-msg.
...
...
MESSAGE i015 WITH it_erro-msg+0(50)
it_erro-msg+50(50).
ENDLOOP.
CLEAR: it_erro[].
REFRESH: it_erro[].
ENDIF.
ELSEIF ( v_apaga NE 'X' AND v_modalidade NE '99' ) OR
v_apaga = 'X'.
LOOP AT itab_zycit042.
PERFORM deleta_fundap.
* >> Início da inclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor.
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
* << Fim da inclusão
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
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 nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
IF sy-subrc = 0.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'NF'.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
...
...
ENDIF.
DELETE itab_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit223, lt_zycit223[].
SELECT * FROM /pws/zycit223 INTO TABLE lt_zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq.
LOOP AT lt_zycit223.
MOVE-CORRESPONDING lt_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq.
IF v_modalidade = '99' OR
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
* >> Início da inclusão: FORM FILL_DATA_J1B3
CLEAR: lt_zycit045, lt_zycit045[].
SELECT * FROM /pws/zycit045 INTO TABLE lt_zycit045
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
LOOP AT lt_zycit045.
MOVE-CORRESPONDING lt_zycit045 TO /pws/zycit045.
PERFORM carrega_log USING '/PWS/ZYCIT045' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit045-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit045
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
ENDIF.
COMMIT WORK.
ENDLOOP.
IF sy-subrc = 0 AND
( v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) ) AND NOT
/pws/zycie041-belnr_f_02 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
ENDIF.
ENDIF.
...
...
FORM fill_data_j1b3_r.
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
DATA: lt_zycit044 TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE,
lt_zycit223 TYPE /pws/zycit223 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
tpmsg = 'S'.
IF sy-subrc EQ 0 OR NOT j_1bnfdoc-cancel IS INITIAL OR
( ( v_modalidade = '99' OR t001-land1 EQ 'AR'
OR t001-land1 EQ 'CL' ) AND /pws/zycie043-belnr_mr1m IS INITIAL ).
/pws/zycie043-cancel = 'X'.
UPDATE /pws/zycit043 SET cancel = /pws/zycie043-cancel
WHERE nrseq = /pws/zycie043-nrseq
AND nfglobal = /pws/zycie043-nfglobal
AND nfremessa = /pws/zycie043-nfremessa
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
MOVE-CORRESPONDING /pws/zycie043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
* << Fim da inclusão
CLEAR: /pws/zycit045.
SELECT SINGLE * FROM /pws/zycit045
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
/pws/zycit045-saldo = /pws/zycit045-saldo +
itab_zycit044-qtd_item.
MODIFY /pws/zycit045.
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
PERFORM carrega_log USING '/PWS/ZYCIT045' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit045-nrseqnf.
CLEAR: lt_zycit044, lt_zycit044[].
SELECT * FROM /pws/zycit044 INTO TABLE lt_zycit044
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf
AND docnum = v_valor.
LOOP AT lt_zycit044.
MOVE-CORRESPONDING lt_zycit044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit044
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf
AND docnum = v_valor.
DELETE itab_zycit044
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf
AND docnum = v_valor.
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
CLEAR: lt_zycit223, lt_zycit223[].
SELECT * FROM /pws/zycit223 INTO TABLE lt_zycit223
WHERE nrseq = itab_zycit044-nrseq
AND nrseqnf = itab_zycit044-nrseqnf
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
LOOP AT lt_zycit223.
MOVE-CORRESPONDING lt_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit223 WHERE nrseq = itab_zycit044-nrseq
AND nrseqnf = itab_zycit044-nrseqnf
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
FREE itab_zycit043_lista.
CLEAR itab_zycit043_lista.
v_cancel = 'OK'.
COMMIT WORK.
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = v_trans
tabela = '/PWS/ZYCIT041'
cpochv = /pws/zycie041a-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
MESSAGE i057 WITH itab_zycbt032-belnr.
/pws/zycie041a-belnr_f_02_c = itab_zycbt032-belnr.
/pws/zycie041a-dt_f_02_c = sy-datlo.
UPDATE /pws/zycit041 SET belnr_f_02_c = itab_zycbt032-belnr
dt_f_02_c = sy-datlo
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
COMMIT WORK.
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTO_C
IF sy-subrc EQ 0.
/pws/zycie041-belnr_f_02_c = itab_zycbt032-belnr.
/pws/zycie041-dt_f_02_c = sy-datlo.
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
* << Fim da inclusão
ELSE.
erro_bi = 'X'.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
...
...
FORM grava_tab_sep_c.
/pws/zycie042a-docnum_c = it_zycee005-belnr.
/pws/zycie041-nfnum = itab_zycit042_aux-nfnum.
/pws/zycie041-series = itab_zycit042_aux-series.
itab_zycit042-docnum_c = it_zycee005-belnr.
MODIFY /pws/zycit041 FROM /pws/zycie041.
* >> Início da inclusão: FORM GRAVA_TAB_SEP_C
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
itab_zycit042_c-docnum_c = it_zycee005-belnr.
MODIFY itab_zycit042_c TRANSPORTING docnum_c
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr.
MODIFY /pws/zycit042 FROM itab_zycit042_c.
* >> Início da inclusão: FORM GRAVA_TAB_SEP_C
MOVE-CORRESPONDING itab_zycit042_c TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
* << Fim da inclusão
ENDFORM.
...
...
tpmsg = 'S'.
IF sy-subrc EQ 0.
MESSAGE i057 WITH itab_zycbt032-belnr.
/pws/zycie041-statusp_f_02 = 'C'.
/pws/zycie041-statusp_f_02 = 'C'.
/pws/zycie041-belnr_f_02 = itab_zycbt032-belnr.
/pws/zycie041-belnr_f_02 = itab_zycbt032-belnr.
/pws/zycie041-dt_f_02 = sy-datlo.
/pws/zycie041-dt_f_02 = sy-datlo.
MODIFY /pws/zycit041 FROM /pws/zycie041.
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTOS
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
/pws/zycie050-tpnf = 'G'.
IF sy-tcode EQ '/PWS/ZYCI017'.
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycie050.
MODIFY /pws/zycit050 FROM /pws/zycie050.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCIT041'
cpochv = /pws/zycie041-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
MESSAGE i030 WITH v_belnr_ant.
CLEAR: /pws/zycie041-statusp_f_02, /pws/zycie041-belnr_f_02,
/pws/zycie041-dt_f_02.
MODIFY /pws/zycit041 FROM /pws/zycie041.
COMMIT WORK.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
...
...
FORM atualiza_dados_nota.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
DATA: lt_zycit043 TYPE /pws/zycit043 OCCURS 0 WITH HEADER LINE,
lt_zycit003 TYPE /pws/zycit003.
* << Fim da inclusão
...
...
/pws/zycie041-dt_f02fre.
itab_zycit042-docnum = it_zycee005-belnr.
IF it_zycet005-belnr = '9999999999'.
itab_zycit042-docnum = it_zycet005-belnr.
ENDIF.
IF it_zycet005-belnr = '8888888888'.
/pws/zycit042-docnum = it_zycet005-belnr.
ENDIF.
itab_zycit042-mark = ' '.
MODIFY /pws/zycit041 FROM /pws/zycie041.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
IF NOT /pws/zycie041-docnum = '9999999999'
AND NOT /pws/zycie041-docnum = '8888888888'.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq AND
nfglobal = /pws/zycie041-nfglobal AND
( docnum = '9999999999' OR
docnum = '8888888888' ).
ENDIF.
MODIFY itab_zycit042
TRANSPORTING docnum mark
...
...
docnum = '8888888888' )
AND mark = 'X'
AND processado = 'X'.
READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc = 0.
MOVE itab_matuse_aux-matnr TO
itab_zycit042-matnr.
ENDIF.
MODIFY /pws/zycit042 FROM itab_zycit042.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
MOVE-CORRESPONDING itab_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
CLEAR: lt_zycit003.
SELECT SINGLE * FROM /pws/zycit003 INTO lt_zycit003
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
* << Fim da inclusão
UPDATE /pws/zycit003 SET tpnf = itab_zycit042-tpnf
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
lt_zycit003-tpnf = itab_zycit042-tpnf.
MOVE-CORRESPONDING lt_zycit003 TO /pws/zycit003.
PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'
' ' '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.
* << Fim da inclusão
IF v_modalidade = '99' OR
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
CLEAR: lt_zycit043, lt_zycit043[].
SELECT * FROM /pws/zycit043 INTO TABLE lt_zycit043
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND cancel = space.
* << Fim da inclusão
UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum
WHERE nrseq = /pws/zycie041-nrseq AND
nfglobal = /pws/zycie041-nfglobal AND
cancel = space.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
LOOP AT lt_zycit043.
lt_zycit043-docnumnfg = /pws/zycie041-docnum.
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDLOOP.
* << Fim da inclusão
ENDIF.
v_status_s = 0.
COMMIT WORK.
IF v_modalidade NE '99' OR
( v_modalidade = '99' AND
v_libera IS INITIAL ).
PERFORM congela_despesa.
ENDIF.
ENDIF.
ENDIF.
...
...
CLEAR: /pws/zycie043-belnr_mr1m, /pws/zycie043-mblnr_mb01,
/pws/zycie043-belnr_f_51,
/pws/zycie043-belnr_f_02, /pws/zycie043-statusp_mr1m,
/pws/zycie043-statusp_mb01, /pws/zycie043-statusp_f_51,
/pws/zycie043-statusp_f_02, /pws/zycie043-dt_mr1m,
/pws/zycie043-dt_mb01, /pws/zycie043-dt_f_51,
/pws/zycie043-dt_f_02,
/pws/zycie043-belnrf02seg, /pws/zycie043-dt_f02seg,
/pws/zycie043-belnrf02fre, /pws/zycie043-dt_f02fre.
MODIFY /pws/zycit043 FROM /pws/zycie043.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA_R
MOVE-CORRESPONDING /pws/zycie043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
* << Fim da inclusão
MODIFY itab_zycit044 TRANSPORTING docnum
nfnum series subser
WHERE nrseqnf = itab_zycit044-nrseqnf
AND nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf.
MODIFY /pws/zycit044 FROM TABLE itab_zycit044.
v_sucesso = 'OK'.
COMMIT WORK.
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA_R
LOOP AT itab_zycit044.
MOVE-CORRESPONDING itab_zycit044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
READ TABLE it_zycet005 WITH KEY tcode = text-065
tabela = text-025
cpochv =
/pws/zycie043-nfremessa
tpmsg = 'E'.
IF sy-subrc EQ 0.
it_erro-nrseq = itab_zycit042-nrseq.
...
...
FORM deleta_fundap.
* >> Início da inclusão: FORM DELETA_FUNDAP
DATA: lt_zycit480 TYPE /pws/zycit480 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
IF NOT /pws/zycit085-opfundap IS INITIAL.
* >> Início da inclusão: FORM DELETA_FUNDAP
CLEAR: lt_zycit480, lt_zycit480[].
SELECT * FROM /pws/zycit480 INTO TABLE lt_zycit480
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
LOOP AT lt_zycit480.
MOVE-CORRESPONDING lt_zycit480 TO /pws/zycit480.
PERFORM carrega_log USING '/PWS/ZYCIT480' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit480-nrseq.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit480
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
ENDIF.
ENDFORM.
...
...
AND cancel EQ space .
IF sy-subrc EQ 0.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
ENDIF.
IF e_subrc EQ 0.
PERFORM consiste_msg.
MOVE : /pws/zycie041 TO wa_zycie041.
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
MOVE v_conting TO wa_zycie041-docnum.
LOOP AT itab_zycit042 WHERE docnum EQ v_valor.
IF itab_zycit042-docnum_cont IS INITIAL.
MOVE: itab_zycit042-docnum TO itab_zycit042-docnum_cont,
v_conting TO itab_zycit042-docnum.
MODIFY itab_zycit042.
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING itab_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
* << Fim da inclusão
DELETE FROM /pws/zycit042
WHERE nrseqnf = itab_zycit042-nrseqnf
AND nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
ENDIF.
ENDLOOP.
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit036
...
...
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND nrseqori = v_valor
AND origem = 'NF'.
ENDIF.
MODIFY :
/pws/zycit041 FROM wa_zycie041 ,
/pws/zycit042 FROM TABLE itab_zycit042[] .
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING wa_zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
LOOP AT itab_zycit042.
MOVE-CORRESPONDING itab_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
* << Fim da inclusão
LOOP AT itab_zycit036.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit036-nrseq
AND ebeln = itab_zycit036-ebeln
AND ebelp = itab_zycit036-ebelp
AND nrseqori = itab_zycit036-nrseqori
AND origem = 'NF'.
itab_zycit036-nrseqori = v_conting.
MODIFY itab_zycit036.
ENDLOOP.
MODIFY /pws/zycit036 FROM TABLE itab_zycit036[].
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.
PERFORM consiste_msg.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
ENDIF.
IF e_subrc EQ 0.
MOVE : /pws/zycie043 TO wa_zycie043.
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING /pws/zycie043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
* << Fim da inclusão
DELETE FROM /pws/zycit043
WHERE nrseq = /pws/zycie043-nrseq
AND nfglobal = /pws/zycie043-nfglobal
AND nfremessa = /pws/zycie043-nfremessa
AND docnum = v_valor.
MOVE v_conting TO wa_zycie043-docnum.
LOOP AT itab_zycit044 WHERE docnum EQ v_valor.
MOVE: itab_zycit044-docnum TO itab_zycit044-docnum_cont,
v_conting TO itab_zycit044-docnum.
MODIFY itab_zycit044.
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING itab_zycit044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
* << Fim da inclusão
DELETE FROM /pws/zycit044
WHERE nrseqnf = itab_zycit044-nrseqnf
AND nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
ENDLOOP.
MODIFY :
/pws/zycit043 FROM wa_zycie043 ,
/pws/zycit044 FROM TABLE itab_zycit044[] .
* >> Início da inclusão: FORM NF_CONTINGENCIA
MOVE-CORRESPONDING wa_zycie043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
LOOP AT itab_zycit044.
MOVE-CORRESPONDING itab_zycit044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
MESSAGE i015 WITH text-112.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
MODULE user_command_exit INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
DATA: lt_zycit043 TYPE /pws/zycit043 OCCURS 0 WITH HEADER LINE,
lt_zycit044 TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
READ TABLE itab_zycit044 INDEX 1.
IF sy-subrc EQ 0 AND
itab_zycit044-docnum NE space.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit044-docnum
IMPORTING
nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
CLEAR: lt_zycit043, lt_zycit043[], lt_zycit044, lt_zycit044[].
SELECT * FROM /pws/zycit043 INTO TABLE lt_zycit043
WHERE nrseq = itab_zycit044-nrseqnf
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND docnum = itab_zycit044-docnum.
SELECT * FROM /pws/zycit044 INTO TABLE lt_zycit044
WHERE nrseq = itab_zycit044-nrseq AND
nrseqnf = itab_zycit044-nrseqnf AND
nfglobal = itab_zycit044-nfglobal AND
nfremessa = itab_zycit044-nfremessa.
* << Fim da inclusão
UPDATE /pws/zycit044
SET nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser
WHERE nrseq = itab_zycit044-nrseq AND
nrseqnf = itab_zycit044-nrseqnf AND
nfglobal = itab_zycit044-nfglobal AND
nfremessa = itab_zycit044-nfremessa.
UPDATE /pws/zycit043
SET nfnum = itab_zycit044-nfnum
series = itab_zycit044-series
subser = itab_zycit044-subser
WHERE nrseq = itab_zycit044-nrseqnf AND
nfglobal = itab_zycit044-nfglobal AND
nfremessa = itab_zycit044-nfremessa AND
docnum = itab_zycit044-docnum.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
LOOP AT lt_zycit044.
lt_zycit044-nfnum = itab_zycit044-nfnum.
lt_zycit044-series = itab_zycit044-series.
lt_zycit044-subser = itab_zycit044-subser.
MOVE-CORRESPONDING lt_zycit044 TO /pws/zycit044.
PERFORM carrega_log USING '/PWS/ZYCIT044' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit044-nrseqnf.
ENDLOOP.
LOOP AT lt_zycit043.
lt_zycit043-nfnum = itab_zycit044-nfnum.
lt_zycit043-series = itab_zycit044-series.
lt_zycit043-subser = itab_zycit044-subser.
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDLOOP.
* << Fim da inclusão
ENDIF.
LOOP AT tc_itens_nfr-cols INTO wa_cols WHERE selected EQ 'X'.
CLEAR wa_cols-selected.
MODIFY tc_itens_nfr-cols FROM wa_cols.
ENDLOOP.
IF okcode = '%EX'.
CLEAR: wa_zycie044.
itab_zycit044-mark = ' '.
MODIFY itab_zycit044 TRANSPORTING mark WHERE mark = 'X'.
LEAVE PROGRAM.
...
...
MODULE atualiza_itab_zycit042 INPUT.
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042
DATA: lt_zycit041 TYPE /pws/zycit041 OCCURS 0 WITH HEADER LINE,
lt_zycit042 TYPE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
LOOP AT itab_zycit042 WHERE docnum NE space.
itab_zycit042-processado = ' '.
MODIFY itab_zycit042.
CHECK itab_zycit042-nfnum IS INITIAL AND
itab_zycit042-series IS INITIAL AND
itab_zycit042-subser IS INITIAL.
itab_zycit042-nfglobal = /pws/zycie041-nfglobal.
itab_zycit042-processado = space.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042-docnum
IMPORTING
nfnum = itab_zycit042-nfnum
series = itab_zycit042-series
subser = itab_zycit042-subser.
MODIFY itab_zycit042.
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042
CLEAR: lt_zycit041, lt_zycit041[], lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit041 INTO TABLE lt_zycit041
WHERE docnum = itab_zycit042-docnum
AND nrseq = /pws/zycie041-nrseq.
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE docnum = itab_zycit042-docnum.
* << Fim da inclusão
UPDATE /pws/zycit042 SET nfnum = itab_zycit042-nfnum
series = itab_zycit042-series
subser = itab_zycit042-subser
WHERE docnum = itab_zycit042-docnum.
UPDATE /pws/zycit041 SET nfnum = itab_zycit042-nfnum
series = itab_zycit042-series
subser = itab_zycit042-subser
WHERE docnum = itab_zycit042-docnum
AND nrseq = /pws/zycie041-nrseq.
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042
LOOP AT lt_zycit041.
lt_zycit041-nfnum = itab_zycit042-nfnum.
lt_zycit041-series = itab_zycit042-series.
lt_zycit041-subser = itab_zycit042-subser.
MOVE-CORRESPONDING lt_zycit041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDLOOP.
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042
LOOP AT lt_zycit042.
lt_zycit042-nfnum = itab_zycit042-nfnum.
lt_zycit042-series = itab_zycit042-series.
lt_zycit042-subser = itab_zycit042-subser.
MOVE-CORRESPONDING lt_zycit042 TO /pws/zycit042.
PERFORM carrega_log USING '/PWS/ZYCIT042' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit042-nrseqnf.
ENDLOOP.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
...
...
MODULE user_command_0121 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0121
DATA: lt_zycit223 TYPE /pws/zycit223 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: v_seq TYPE i.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF020'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF020' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_exec_okcode IS INITIAL.
CASE okcode.
WHEN 'SAVE'.
* >> Início da inclusão: MODULE USER_COMMAND_0121
LOOP AT itab_zycit223_del.
MOVE-CORRESPONDING itab_zycit223_del TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE /pws/zycit223 FROM TABLE itab_zycit223_del.
REFRESH itab_zycit223_del. CLEAR itab_zycit223_del.
DELETE itab_zycit223 WHERE qtde IS initial.
IF v_remessa = 'X'.
IF NOT v_soma_qtde = wa_zycie044-qtd_item.
IF itab_zycit223-lote IS INITIAL AND
itab_zycit223-qtde IS INITIAL AND
itab_zycit223-nrvolume IS INITIAL AND
itab_zycit223-tpvolume IS INITIAL AND
itab_zycit223-certificado IS INITIAL AND
...
...
itab_zycit042-nrseq TO itab_zycit223-nrseq,
itab_zycit042-nfglobal TO itab_zycit223-nfglobal,
space TO itab_zycit223-nfremessa,
itab_zycit042-docnum TO itab_zycit223-docnum,
v_seq TO itab_zycit223-seq.
MODIFY itab_zycit223.
ENDLOOP.
ENDIF.
ENDIF.
IF v_remessa = 'X'.
* >> Início da inclusão: MODULE USER_COMMAND_0121
CLEAR: lt_zycit223, lt_zycit223[].
SELECT * FROM /pws/zycit223 INTO TABLE lt_zycit223
WHERE nrseq = wa_zycie044-nrseq
AND nrseqnf = wa_zycie044-nrseqnf
AND nfglobal = wa_zycie044-nfglobal
AND nfremessa = wa_zycie044-nfremessa
AND ebeln = wa_zycie044-ebeln
AND ebelp = wa_zycie044-ebelp.
LOOP AT lt_zycit223.
MOVE-CORRESPONDING lt_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit223 WHERE nrseq = wa_zycie044-nrseq
AND nrseqnf = wa_zycie044-nrseqnf
AND nfglobal = wa_zycie044-nfglobal
AND nfremessa = wa_zycie044-nfremessa
AND ebeln = wa_zycie044-ebeln
AND ebelp = wa_zycie044-ebelp.
ELSE.
* >> Início da inclusão: MODULE USER_COMMAND_0121
CLEAR: lt_zycit223, lt_zycit223[].
SELECT * FROM /pws/zycit223 INTO TABLE lt_zycit223
WHERE nrseq = wa_zycie042-nrseq
AND nrseqnf = wa_zycie042-nrseqnf
AND nfglobal = wa_zycie042-nfglobal
AND ebeln = wa_zycie042-ebeln
AND ebelp = wa_zycie042-ebelp.
LOOP AT lt_zycit223.
MOVE-CORRESPONDING lt_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'D'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
DELETE FROM /pws/zycit223 WHERE nrseq = wa_zycie042-nrseq
AND nrseqnf = wa_zycie042-nrseqnf
AND nfglobal = wa_zycie042-nfglobal
AND ebeln = wa_zycie042-ebeln
AND ebelp = wa_zycie042-ebelp.
ENDIF.
MODIFY /pws/zycit223 FROM TABLE itab_zycit223.
* >> Início da inclusão: MODULE USER_COMMAND_0121
LOOP AT itab_zycit223.
MOVE-CORRESPONDING itab_zycit223 TO /pws/zycit223.
PERFORM carrega_log USING '/PWS/ZYCIT223' 'I'
' ' '/PWS/SAPMZYCI016' /pws/zycit223-nrseqnf.
ENDLOOP.
* << Fim da inclusão
LEAVE TO SCREEN 0.
WHEN 'CANC'.
LEAVE TO SCREEN 0.
WHEN 'DELE'.
IF v_remessa = 'X' AND NOT wa_zycie044-docnum IS INITIAL.
CLEAR okcode.
MESSAGE i015 WITH text-123.
EXIT.
ELSEIF v_remessa = ' ' AND NOT wa_zycie042-docnum IS INITIAL.
CLEAR okcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI016
INCLUDE /PWS/MZYCI016TOP.
INCLUDE /PWS/MZYCI016O01.
INCLUDE /PWS/MZYCI016F01.
INCLUDE /PWS/MZYCI016I01.
INCLUDE /PWS/MZYCI016F02.
* >> Início da inclusão:
INCLUDE /pws/zygllog.
* << Fim da inclusão