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.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11579 Data: 26/10/2011 Hora: 16:04:56

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 11579

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00091

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00154  - 00001 - 6.0    - 00021  - DUMP AO SOMAR PESO LÍQUIDO TOTAL DO EMBARQUE NA FATURA DE DESPESA

00172  - 00002 - 6.0    - 00021  - CATEGORIA DE TAXA DE CÂMBIO ERRADA NA FATURA.

00232  - 00003 - 6.0    - 00021  - FATURA PARCELADA - AJUSTE NO ENVIO DA DATA DE TESOURARIA.

00238  - 00004 - 6.0    - 00021  - ERRO NA EXIBIÇÃO DO DOCUMENTO DA MIRO 46B

00809  - 00005 - 6.0    - 00022  - PRÉ,LINEAR AO ANO SOBRE SLD DEV,S/ OPÇ DEDUZ J,CALCULA ERRADO ULT

00810  - 00006 - 6.0    - 00022  - DUMP NA SELEÇÃO DOS DADOS DO RELATÓRIO

00884  - 00007 - 6.0    - 00022  - ERRO AO CRIAR EMBARQUE.

00965  - 00008 - 6.0    - 00022  - FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)

00966  - 00009 - 6.0    - 00022  - ERRO AO CRIAR DUAS FATURAS

01085  - 00010 - 6.0    - 00023  - AO ESTORNAR FATURA DE DESPESA ESTÁ ELIMINANDO LINHA DO CUSTO

01157  - 00011 - 6.0    - 00023  - PARA OS PROCESSOS DE SERVIÇO, ONDE FAZEMOS O RECEBIMENTO PELA TRA

01170  - 00012 - 6.0    - 00023  - CRIEI UMA NOVA FATURA 04 COM A MESMA DESPESA (SDA),

01176  - 00013 - 6.0    - 00023  - ESTOU COM O ERRO NAS FATURAS NA DESCRIÇÃO DA MOEDA NA TELA PRINCI

01240  - 00014 - 6.0    - 00023  - AUTHORITY-CHECK PARA A EMPRESA.

01654  - 00015 - 6.0    - 00024  - DUMP NA DATA DA FATURA PARA CLIENTES NA VERSÃO 4.5

01678  - 00016 - 6.0    - 00024  - NR. DA DA É EXLUIDA DO EMBARQUE AO CRIAR UMA FATURA POR FORA DO E

01753  - 00017 - 6.0    - 00024  - ERRO NO RECEBIMENTO ESTORNA DOC.REV.FATURA MAS MANTEM DOCTO NA TA

01794  - 00018 - 6.0    - 00024  - PROGRAMA ESTÁ ALTERANDO AS TABELAS DO CÂMBIO APAGANDO AS INFORMAÇ

01842  - 00019 - 6.0    - 00024  - O PWCE DEVERÁ ALIMENTAR O CAMPO BKTXT DA MIRO

01847  - 00020 - 6.0    - 00024  - FATURA DESPESAS (TIPO 04)-NÃO ESTÁ DEIXANDO CRIAR A DESPESA SEGUR

01884  - 00021 - 6.0    - 00024  - EM FATURAS COM MAIS DE 9 ITENS O CAMPO R/3 VEM EM BRANCO.

01899  - 00022 - 6.0    - 00024  - EM UM EMBARQUE DE MATERIAL + SERVIÇO, ONDE TEMOS 04 ITENS.

01921  - 00023 - 6.0    - 00024  - O CAMPO REFERÊNCIA DA FATURA ESTÁ CONSISTINDO COM AS ELIMINADAS.

02081  - 00024 - 6.0    - 00024  - QUANDO TEMOS MAIS DE UMA FATURA, O PROGRAMA ESTÁ MISTURANDO FORNE

02249  - 00025 - 6.0    - 00025  - DI DESPESAS PROVISIONADAS NÃO APARECEM NA INVOICES

02312  - 00026 - 6.0    - 00025  - EXIT PARA FATURA: COMPARTILHAMENTO DA VARIÁVEL V_RATVAL

02460  - 00027 - 6.0    - 00025  - FATURA TIPO 11 TAXA NÃO ESTA INDO PARA CAMBIO

02520  - 00028 - 6.0    - 00025  - VALOR DO SEGURO INCORRETO QND YEN NO CUSTO

02558  - 00029 - 6.0    - 00025  - NA FATURA DE MERCADORIA NÃO ESTÁ RECONHECENDO O FORNECEDOR PARCEI

02613  - 00030 - 6.0    - 00025  - NA FATURA 04 DÁ MENSAGEM COM DECIMAIS ERRADA.

02668  - 00031 - 6.0    - 00025  - FATURA DO TIPO P PARCELADA

02858  - 00032 - 6.0    - 00026  - FATURA DE SERVIÇO COM PAGAMENTO APÓS DI

02968  - 00033 - 6.0    - 00026  - PERMITE GRAVAR FATURA DO TIPO 2 SEM TER CRIADO DO TIPO1

02985  - 00034 - 6.0    - 00026  - QUANDO HÁ MAIS DE 100 DESPESAS NA FATURA, NÃO APARECEM NA TELA

02992  - 00035 - 6.0    - 00026  - FATURA NÃO RATEIA CORRETAMENTO QUANDO POR PROPORÇÃO, DIVISÃO ABSO

03002  - 00036 - 6.0    - 00026  - O RECEBIMENTO DA FATURA DE SERVIÇO SÓ FAZ A MIRO E DÁ ERRO NA MIG

03027  - 00037 - 6.0    - 00026  - MESMO SEM TER RECONTABILIZADO ATUALIZANDO A DATA DE VENCIMENTO.

03029  - 00038 - 6.0    - 00026  - AO CRIAR FATURA PARCIAL O SISTEMA CALCULA O PESO TOTAL DO EMBARQU

03117  - 00039 - 6.0    - 00026  - DUMP NO ESTORNO DA FATURA DE SERVIÇO

03259  - 00040 - 6.0    - 00026  - O SISTEMA ESTÁ LEVANDO O VALOR DO REALIZADO ERRADO NO

03336  - 00041 - 7.0    - 00001  - CENTRO DE CUSTO PARA CONTA BALANÇO NA F 51

03349  - 00042 - 7.0    - 00001  - AO MUDAR PESO NA FATURA, DÁ ERRO, MESMO SOMANDO IGUAL AO CABEÇALH

03400  - 00043 - 7.0    - 00001  - SALVAR ALTERAÇÃO REALIZADA NA QUANTIDADE ESTATISTICA

03501  - 00044 - 7.0    - 00001  - CALCULO DA DATA DE VENCIMENTO DE ACORDO COM A OBB8

03503  - 00045 - 7.0    - 00001  - ERRO AO ESTORNAR RECEBIMENTO DA FATURA DE SERVIÇO

03742  - 00046 - 7.0    - 00001  - CLASSIFICAÇÂO CONTABIL MULTIPLA M8 321ITEM DE PEDIDO EXISTE VÁRIA

03900  - 00047 - 7.0    - 00001  - VALOR REALIZADO DA FATURA CALCULADO INCORRETAMENTE, ERRO NA DI

04295  - 00048 - 7.0    - 00002  - NÃO ESTÁ SELECIONANDO OS REGISTROS NA /PWS/ZYCBT011 UTILIZANDO A

04371  - 00049 - 7.0    - 00002  - ERROS AO NAVEGAR NO FORNECEDOR DA FATURA , TIPO 0 E TIPO 2.

04403  - 00050 - 7.0    - 00002  - FATURA DE SERVIÇO

04428  - 00051 - 7.0    - 00002  - AJUSTE PARA FATURA DE SERVIÇO PARA ATENDER AMERICA LATINA

04442  - 00052 - 7.0    - 00002  - PESO DO ITEM DE SERVIÇO ERRADO

04474  - 00053 - 7.0    - 00002  - NECESSÁRIO CRIAR CHAMADAS DE EXITS EM VÁRIOS PONTOS DA FATURA

04494  - 00054 - 7.0    - 00002  - FATURA DE SERVIÇO

04544  - 00055 - 7.0    - 00002  - AJUSTADO O ESTORNO DA FATURA PARCELADA CONTABILIZADA PELA MIRO.

04574  - 00056 - 7.0    - 00002  - TRATAMENTO DE CASAS DECIMAIS PARA A MOEDA DA FATURA DE DESPESAS

04600  - 00057 - 7.0    - 00002  - SELECIONAR PARAMETROS DE MOEDA APENAS QUANDO A EMPRESA FOR INFORM

04610  - 00058 - 7.0    - 00003  - AJUSTADO ESTORNO DE PROCESSOS CONTABILIZADOS PELA MIRO.

04696  - 00059 - 7.0    - 00003  - NÃO ESTÁ UTILIZANDO A TAXA DA DI PARA CONTABILIZAR A FATURAS FRET

04697  - 00060 - 7.0    - 00003  - VISUALIZAÇÃO DE FATURA DE DESPESAS

04826  - 00061 - 7.0    - 00003  - EMBARQUE DE SERVIÇO, DEIXA CRIAR FATURA DE FRETE

04937  - 00062 - 7.0    - 00003  - NECESSÁRIO EXIT PARA CÁLCULO DE VALOR REALIZADO NA FATURA

04978  - 00063 - 7.0    - 00003  - DESENVOLVIMENTO DE CONTABILIZAÇÃO DE IMPOSTOS ATRAVÉS DA MIRO

05027  - 00064 - 7.0    - 00003  - AJUSTADO RATEIO DO VALOR NA FATURA E A ATUALIZAÇÃO DO CUSTO EFETI

05052  - 00065 - 7.0    - 00003  - AO CRIAR FATURA DE REMESSA NÃO ENVIA O CAMPO DIVISÃO PARA CÂMBIO

05072  - 00066 - 7.0    - 00003  - DUMP AO CRIAR FATURA DE DESPESAS COM CONTABILIZAÇÃO DE IMPOSTOS

05077  - 00067 - 7.0    - 00003  - CRIAÇÃO DE FATURAS DE DESPESAS FRETE E SEGURO ANTES DA CRIAÇÃO DA

05187  - 00068 - 7.0    - 00003  - LANÇAMENTO DE CENTRO DE LUCRO

05673  - 00069 - 7.0    - 00004  - PADRONIZAÇÃO DE CÓDIGO COM A FERRAMENTA CODE INSPECTOR NA FATURA

05977  - 00070 - 7.0    - 00004  - PADRONIZAÇÃO - CODE INSPECTOR

06126  - 00071 - 7.0    - 00004  - A FATURA ESTÁ APAGANDO O PESO DOS ITENS DO EMBARQUE

06137  - 00072 -        - 00000  - RYUR

06138  - 00073 - 7.0    - 00004  - SDFGD

06155  - 00074 - 7.0    - 00004  - TRATAMENTO PARA DOCUMENTOS ESTORNADOS POR FORA DO PWCE

06237  - 00075 - 7.0    - 00005  - REPLICAÇÃO DE FORNECEDOR/FABRICANTE NO ITEM DA FATURA

06345  - 00076 - 7.0    - 00005  - EXIT DE MÚLTIPLOS LANÇAMENTOS NA FATURA.

06394  - 00077 - 7.0    - 00005  - FATURA AJUSTE LIVRE NÃO ABRE CAMPO REALIZADO DA MERCADORIA PARA I

06461  - 00078 - 7.0    - 00005  - ERRO NO ANO CONTÁBIL DA F-51 DA FATURA DE SERVIÇO

06701  - 00079 - 7.0    - 00005  - AJUSTE NA BUSCA DOS VALORES DE FRETE DO BL PARA A FATURA

06716  - 00080 - 7.0    - 00005  - AO CONSISTIR PESO DA FATURA, PROGRAMA EXIBE MENSAGEM COM PESO TOT

06732  - 00081 - 7.0    - 00005  - AO SELECIONAR FATURA, TRAZ ELEMENTO ELIMINADO.

06779  - 00082 - 7.0    - 00005  - AO ESTORNAR FATURA DE PAGTO ANTECIPADO DÁ ERRO.

07052  - 00083 - 7.0    - 00006  - ERRO AO ESTORNAR FATURA

07058  - 00084 - 7.0    - 00006  - NÃO ESTÁ PASSANDO CONDIÇÃO DE PAGAMENTO PARA FATURA PARCELADA.

07064  - 00085 - 7.0    - 00006  - DUMP AO SOLICITAR CRIAÇÃO DA FATURA OU DI

07168  - 00086 - 7.0    - 00006  - ESTAVA PERMITINDO ALTERAR A FATURA MESMO DEPOIS DA CRIAÇÃO DA DI

07211  - 00087 - 7.0    - 00006  - NÃO LEVAR ZEROS NO ELEMENTO PEP DA FATURA DE MERCADORIAS

07234  - 00088 - 7.0    - 00006  - NÃO PREENCHE TIPO DE CLIENTE AO FAZER FATURA DE REMESSA EM CÂMBIO

07266  - 00089 - 7.0    - 00006  - AO ALTERAR VALOR TOTAL DA FATURA, NÃO RECALCULA PARCELAS DOS ITEN

07279  - 00090 - 7.0    - 00006  - QUANDO FATURA DE SERVIÇO LIVRE DE DÉBITO RECLAMA DE QUE NÃO POSSU

07280  - 00091 - 7.0    - 00007  - FATURA PERMITE ESTORNO MESMO QUE EXISTA BOLETO OU FATURA DE CÂMBI

07318  - 00092 - 7.0    - 00006  - AJUSTE SELEÇÃO DE CONTAS PARA BANCO FORNECEDOR

07475  - 00093 - 7.0    - 00007  - ERRO NO VALOR DO DOCUMENTO CONTÁBIL DE FATURA EM JPY

07641  - 00094 - 7.0    - 00007  - FATURA DE FRETE TRAZER O VALOR E A MOEDA AUTOMÁTICAMENTE DO BL

07736  - 00095 - 7.0    - 00007  - ELIMINA AJUSTE PARA ARREDONDAMENTO NO RATEIO DE PESO DA FATURA.

07754  - 00096 - 7.0    - 00008  - AO CRIAR FATURA E ELIMINAR ITEM DENTRO DA FATURA O SISTEMA PERDE

07799  - 00097 - 7.0    - 00008  - NÃO ESTAVA LEVANDO O PAÍS DO FABRICANTE CORRETAMENTE PARA A FATUR

07921  - 00098 - 7.0    - 00008  - UTILIZANDO DATA INCORRETA NA VERIFICAÇÃO DO ESTORNO DO DOCUMENTO.

08057  - 00099 - 7.0    - 00008  - PARAMETRO DE CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO

08077  - 00100 - 7.0    - 00008  - CRIADA EXIT FAT014

08116  - 00101 - 7.0    - 00008  - IMPLEMENTAÇÃO DA FATURA DE SERVIÇO COM PEDIDO DE SERVIÇO

08121  - 00102 - 7.0    - 00008  - FATURA DE MERCADORIA ABERTURA DE EXIT

08127  - 00103 - 7.0    - 00008  - FATURA AO EXIBIR ESTA PERMITINDO ALTERAR FRETE E SEGURO NA ABA IT

08161  - 00104 - 7.0    - 00008  - ESTORNA FATURA DE PAGTO ANTECIPADO ESTA FIXANDO TIPO DE DOCUMENTO

08189  - 00105 - 7.0    - 00008  - EMBARQUE DE SERVIÇO NÃO ESTA PERMITINDO ENCERRAR CUSTO E CONTABIL

08196  - 00106 - 7.0    - 00008  - AJUSTE NA VINCULAÇÃO DA FATURA PARA PREENCHER A DATA DE VINCULAÇÃ

08222  - 00107 - 7.0    - 00009  - PERMITIR RECEBER FATURA DE SERVIÇO COM MATUSE

08232  - 00108 - 7.0    - 00009  - PADRONIZAÇÃO CODE INSPECTOR

08250  - 00109 - 7.0    - 00009  - SELEÇÃO DE CONTAS PARA ITENS SEM MATUSE

08293  - 00110 - 7.0    - 00009  - AO FAZER FATURA DE SERVIÇO, NÃO CONSIDERA MATUSE PARA FAZER MIGO

08301  - 00111 - 7.0    - 00009  - FATURA MIRO AMÉRICA LATINA CÓDIGO IVA

08336  - 00112 - 7.0    - 00009  - FATURA - ASSOCIAÇÃO DE PAGAMENTO ANTECIPADO

08430  - 00113 - 7.0    - 00009  - NO MODO EXIBIÇÃO, ALGUMAS FUNCIONALIDADES FICAM COM CAMPO ABERTO

08441  - 00114 - 7.0    - 00009  - TAXA DE CONVERSÃO DE MOEDA NA FATURA PÓS DI

08460  - 00115 - 7.0    - 00009  - FALHA AO ALTERAR UMA FATURA DE PAGAMENTO ANTECIPADO

08546  - 00116 - 7.0    - 00010  - AO NAVEGAR NO DETALHE DO ITEM DA FATURA, ITENS PERDE FORNECEDOR.

08636  - 00117 - 7.0    - 00010  - AJUSTES DE LAYOUT E DE EXIBIÇÃO

08651  - 00118 - 7.0    - 00010  - FATURA DE MERCADORIA COM DATA PLANEJADA NA OBBO PARA DATA BASE

08717  - 00119 - 7.0    - 00010  - TRATAMENTO PARA QUEBRAR ADIÇÃO DA DI POR INCOTERMS DIFERENTE.

08765  - 00120 - 7.0    - 00010  - AO SALVAR FATURA E NAVEGAR PELOS ITENS, DÁ ERRO NO VALOR DA FATUR

08792  - 00121 - 7.0    - 00010  - FATURA DE SERVIÇO NÃO ABRE O DRILL DOWN NA ABA RECEBIMENTO

08850  - 00122 - 7.0    - 00010  - FATURA PAGAMENTO PARCELADO CONFIGURADO NA OBB8 PARÂMETRO SEM PROP

08918  - 00123 - 7.0    - 00010  - AO SALVAR DI COM FATURA TIPO P, NÃO VERIFICA PAGAMENTO ANTECIPADO

08937  - 00124 - 7.0    - 00010  - NÃO CONTABILIZA FATURA DE SEGURO COM INCOTERM CFR, CIF

08977  - 00125 - 7.0    - 00010  - HÁ ERRO NO CONTROLE DE SALDO DA FATURA.

08986  - 00126 - 7.0    - 00010  - EXCLUSÃO DO BOTÃO DE ELIMINAR ITEM DA FATURA APÓS CONTABILIZAÇÃO.

09095  - 00127 - 8.0    - 00001  - DIFERENÇA VALOR TOTAL DA FATURA COM O TOTAL DOS ITENS(JPY)

09122  - 00128 - 8.0    - 00001  - NÃO PERMITIR CRIAR FATURA COM ITENS DE ICOTERM¿S DIFERENTES.

09164  - 00129 - 8.0    - 00001  - FATURA DE MERCADORIA NÃO ACEITAVA SUGESTÃO DA DATA BASE OBB8

09165  - 00130 - 8.0    - 00001  - AO SELECIONAR A DATA BASE, FATURA NAO CALCULA VENCIMENTO

09407  - 00131 - 8.0    - 00001  - CONTABILIZAÇÃO DE FATURA DE SEGURO SEM FAT. FRETE PROCESSO FOB.

09498  - 00132 - 8.0    - 00002  - NECESSÁRIO TRATAR FATURA DE DESPESA EM EMBARQUE DE SERVIÇO

09519  - 00133 - 8.0    - 00002  - NECESSÁRIO COMPARTILHAR DECLARAÇÃO DE TABELAS E VARIÁVEIS.

09532  - 00134 - 8.0    - 00002  - ESTORNO DE FATURA DE MERCADORIA EXISTINDO FATURA DE SEGURO/FRE

09539  - 00135 - 8.0    - 00002  - VERIFICAÇÃO VALOR TOTAL FATURA DE MERCADORIA (ARGENTINA)

09557  - 00136 - 8.0    - 00002  - AO CRIAR UMA FATURA DE DESPESA ESTÁ ABRINDO O CAMPO FRETE

09589  - 00137 - 8.0    - 00002  - AO CRIAR UMA FATURA DE DESPESAS,APRESENTA UMA SÉRIE DE ERROS

09626  - 00138 - 8.0    - 00002  - AO CRIAR FATURA TIPO P NAO GRAVA VALOR CONVERTIDO COM TAXA DA DI.

09644  - 00139 - 8.0    - 00002  - VALOR PLANEJADO PARA MOEDAS COM MAIS DE 2 CASAS DECIMAIS ERRADO N

09685  - 00140 - 8.0    - 00002  - FATURA FRETE INFORMA QUE FORNECEDOR É SUJEITO A IR INDEVIDAMENTE.

09750  - 00141 - 8.0    - 00002  - TRATAMENTO PARA EXIBIÇÃO DE CONTRATO EM FATURA DE PAGTO ANTECIPAD

09784  - 00142 - 8.0    - 00002  - CORREÇÃO DO TRATAMENTO PARA O FLAG VINCULO SERVIÇO.

09790  - 00143 - 8.0    - 00002  - UTILIZAR DATA LANÇAMENTO PARA ENCONTRAR O ANO CONTABIL

09838  - 00144 - 8.0    - 00002  - ABERTURA DE EXIT AO SALVAR FATURA MENSAGEM DO BOTÃO BACK

09860  - 00145 - 8.0    - 00002  - NA FATURA NÃO ESTA VERIFICANDO O CAMPO FDTAG PARA TESOURARIA

09942  - 00146 - 8.0    - 00002  - TRATAMENTO DE CASAS DECIMAIS DA MOEDA NA FATURA DE DESPESAS.

09952  - 00147 - 8.0    - 00002  - FATURA DE SEGURO CONTABILIZA TODOS OS ITENS INCLUSIVE O DE SERVIÇ

09985  - 00148 - 8.0    - 00003  - TRATAMENTO DE CASAS DECIMAIS PARA AS DESPESAS DA FATURA.

10027  - 00149 - 8.0    - 00003  - FATURA MERCADORIA SE PERDE NO TRATAMENTO DE FABRICANTE NO BOTÃO R

10028  - 00150 - 8.0    - 00003  - FATURA PERMITE ALTERAR CONDIÇÃO DE PAGTO NAS FATURAS CONTABILIZAD

10044  - 00151 - 8.0    - 00003  - CORRIGIDO CONTABILIZAÇÃO(MIRO) DE PROCESSOS CIF

10090  - 00152 - 8.0    - 00003  - RENEGOCIAÇÃO DE PARCELA

10176  - 00153 - 8.0    - 00003  - RETENÇÃO DE IMPOSTOS PARA FATURA DE DESPESAS CONTABILIZADA VIA MI

10197  - 00154 - 8.0    - 00003  - PREENCHER O TEXTO NO LANÇAMENTO DA F-51 AO RECEBER A FATURA

10233  - 00155 - 8.0    - 00003  - AJUSTE PARA LANÇAMNETO DO IMPOSTO COM BASE NO MONTANTE IVA

10267  - 00156 - 8.0    - 00003  - AJUSTE PARA EXIGIR PREENCHIMENTO DA FILIAL APENAS EM PROCESSOS DO

10338  - 00157 - 8.0    - 00004  - AJUSTES CODE INSPECTOR

10419  - 00158 - 8.0    - 00004  - TRATAMENTO DE FATURA LIVRE DE DÉBITO NA CONTAB. DA PRESTAÇÃO DE C

10449  - 00159 - 8.0    - 00004  - UTILIZAR CHAVE DE BLOQUEIO INFORMADA PARA LANÇAMENTO DA MIRO

10533  - 00160 - 8.0    - 00004  - MENSAGEM DE WARNING EXIBIDA COMO ERRO EM FUNÇÃO STANDARD

10643  - 00161 - 8.0    - 00005  - ERRO NO CÁLCULO DO REALIZADO DO SEGURO NA FATURA

10709  - 00162 - 8.0    - 00005  - ELIMINA FATURA MESMO COM ERRO NA CONTABILIZAÇÃO

10723  - 00163 - 8.0    - 00005  - CONTABILIZAR FATURA COM ELEMENTO PEP,NÃO CONSIDERA CLASSE DE AVAL

10827  - 00164 - 8.0    - 00005  - FATURA FRETE/SEGURO PERMITE CONTABILIZAR COM ITENS NÃO FATURADOS.

10848  - 00165 - 8.0    - 00006  - FATURA DE MERCADORIA NÃO SALVOU OS ITENS.

10884  - 00166 - 8.0    - 00006  - INCLUÍDO TRATAMENTO PARA FATURA TIPO P EM PROCESSOS QUE UTILIZEM

10948  - 00167 - 8.0    - 00006  - NÃO VERIFICAR PESO DO ITEM NA LI QUANDO O PROCESSO FOR DE GRANEL

10951  - 00168 - 8.0    - 00006  - AJUSTE PARA AO ELIMINAR A FATURA(AL) O PROGRAMA NÃO GERE MIRO.

10976  - 00169 - 8.0    - 00006  - SUJEIRA NOS CAMPOS DOS DADOS DO FABRICANTE

10981  - 00170 - 8.0    - 00006  - AO SELECIONAR ITENS DA FATURA POR PEDIDO, TRAZ MAIS DE UM EMBARQU

10989  - 00171 - 8.0    - 00006  - INFORMAÇÕES DA DIRF NA FATURA

11000  - 00172 - 8.0    - 00006  - NÃO PERMITIR ALTERAR O TIPO DE FATURA DEPOIS DE SALVAR

11005  - 00173 - 8.0    - 00006  - FATURA SEGURO E FATURA FRETE

11067  - 00174 - 8.0    - 00007  - PROGRAMA ELIMINA FATURA MESMO OCORRENDO ERRO NO ESTORNO DA MIROV

11098  - 00175 - 8.0    - 00007  - ATUALIZADOIPO DE FABRICANTE - PAÍS DO FABRICANTE

11134  - 00176 - 8.0    - 00007  - HABILITAR O BOTÃO DETALHE DO ITEM EM MODO DE EXIBIÇÃO.

11195  - 00177 - 8.0    - 00007  - FATURA - PAGAMENTO ANTECIPADO

11202  - 00178 - 8.0    - 00007  - AJUSTES EM MENSAGENS DE FATURA DE DESPESA

11289  - 00179 - 8.0    - 00008  - FATURA - CONDIÇÃO DE PAGAMENTO ZFPC - ESTORNO DA FATURA UTILIZAND

11358  - 00180 - 8.0    - 00008  - AO SALVAR FATURA RECLAMA DE CÓDIGO DO FABRICANTE PARA TIPO 0 E 2.

11365  - 00181 - 8.0    - 00008  - AO ALTERAR OPÇÕES DE DATA DE VENCIMENTO DA FATURA, NÃO GRAVA.

11408  - 00182 - 8.0    - 00008  - MIRO - PRESTAÇÃO DE CONTAS - FATURA - ARGENTINA

11419  - 00183 - 8.0    - 00008  - ERRO NO ESTORNO DA FATURA COM PRESTAÇÃO DE CONTAS COM VALOR REAL

11438  - 00184 - 8.0    - 00008  - NECESSÁRIA CHAMADA DE EXIT PARA DESENVOLVIMENTO ESPECÍFICO

11471  - 00185 - 8.0    - 00009  - DESENVOLVIMENTO PARA TRATAMENTO NOVO INCOTERM C+I

11485  - 00186 - 8.0    - 00009  - AO ALTERAR DADOS DA FATURA, ELIMINA O DOCUMENTO E GERA UM NOVO

11495  - 00187 - 8.0    - 00009  - ESTÁ PERMITINDO FAZER MIRO COM REFERÊNCIA DUPLICADA

11506  - 00188 - 8.0    - 00009  - TRILHA DE AUDITORIA

11507  - 00189 - 8.0    - 00009  - DESENVOLVIMENTO FATURA INTERCOMPANY

11517  - 00190 - 8.0    - 00009  - NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO NA FATURA

11540  - 00191 - 8.0    - 00009  - DUMP NA CONTABILIZAÇÃO DA FATURA (AL)

11547  - 00192 - 8.0    - 00009  - COM INCOTERM FOB O CAMPO FRETE ESTÁ ABERTO.

----------------------------------------------------------------------------------------------------

TRILHA DE AUDITORIA NA FATURA

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA - UPDATE - DELETE - INSERT - MODIFY - TRILHA DE AUDITORIA

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003F03

REPS /PWS/MZYCI003O01

REPS /PWS/MZYCI003TOP

REPS /PWS/MZYCI003X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F01

FORM salvar_dados.

* >> Início da inclusão: FORM SALVAR_DADOS

  DATA: lt_zycit483 TYPE /pws/zycit483 OCCURS 0 WITH HEADER LINE,

        lt_zycit129 TYPE /pws/zycit129 OCCURS 0 WITH HEADER LINE,

        lt_zycit126 TYPE /pws/zycit126 OCCURS 0 WITH HEADER LINE,

        lt_zycit130 TYPE /pws/zycit130 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: BEGIN OF itab_zycit006_al OCCURS 0,

        nrseq   TYPE /pws/zycit006-nrseq,

        frpagto TYPE /pws/zycit006-frpagto,

        END OF itab_zycit006_al.

  DATA: BEGIN OF itab_zycit079 OCCURS 0 .

          INCLUDE STRUCTURE /pws/zycit079.

  DATA: END OF itab_zycit079.

  DATA v_trunc TYPE /pws/zycit003-vlreal.

  DATA v_qtd_iten LIKE itab_zycit003-invoiced.

  DATA :v_tot_fat2 LIKE /pws/zycie006-vltotal,

        v_salva_desp.

* >> Início da exclusão: FORM SALVAR_DADOS

  DATA: itab_zycit483s TYPE /pws/zycit483 OCCURS 0.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_DADOS

  DATA: itab_zycit483s TYPE /pws/zycit483 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI003'

                              'FAT014'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'FAT014' BINARY SEARCH.

  IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

    PERFORM (itab_zyglt100-formulario) IN PROGRAM

        (itab_zyglt100-programa) IF FOUND.

...

...

  IF sy-binpt EQ 'X'.

    EXPORT /pws/zycie006 TO MEMORY ID 'BPFATIMP_01'.

  ENDIF.

  IF /pws/zycie006-tpfatura EQ '04' AND v_salva_desp EQ 'X'.

    PERFORM salva_zycit047.

  ENDIF.

  IF /pws/zycie006-tpfatura EQ '04' AND v_resp EQ 'S'.

    itab_zycit483-nrseqfat = /pws/zycie006-nrseq.

    MODIFY itab_zycit483 TRANSPORTING nrseqfat

              WHERE nrseq EQ /pws/zycit001-nrseq.

* >> Início da inclusão: FORM SALVAR_DADOS

    itab_zycit483s[] = itab_zycit483[].

    SELECT * FROM /pws/zycit483 INTO TABLE lt_zycit483

       WHERE nrseqfat = /pws/zycie006-nrseq.

    LOOP AT lt_zycit483.

     READ TABLE itab_zycit483s WITH KEY nrseqfat = lt_zycit483-nrseqfat

                                           nrseq    = lt_zycit483-nrseq

                                          tpdesp   = lt_zycit483-tpdesp.

      IF sy-subrc NE 0.

        MOVE-CORRESPONDING lt_zycit483 TO /pws/zycit483.

        PERFORM carrega_log USING '/PWS/ZYCIT483' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

    ENDLOOP.

* << Fim da inclusão

    DELETE FROM /pws/zycit483 WHERE nrseqfat = /pws/zycie006-nrseq.

* >> Início da exclusão: FORM SALVAR_DADOS

    itab_zycit483s[] = itab_zycit483[].

* << Fim da exclusão

    INSERT /pws/zycit483 FROM TABLE itab_zycit483s.

* >> Início da inclusão: FORM SALVAR_DADOS

    LOOP AT itab_zycit483s.

      MOVE-CORRESPONDING itab_zycit483s TO /pws/zycit483.

     READ TABLE lt_zycit483 WITH KEY nrseqfat = itab_zycit483s-nrseqfat

                                         nrseq   = itab_zycit483s-nrseq

                                        tpdesp  = itab_zycit483s-tpdesp.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT483' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT483' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

    ENDLOOP.

  ENDIF.

  IF NOT itab_zycit126[] IS INITIAL.

    CLEAR: lt_zycit126, lt_zycit126[].

    SELECT * FROM /pws/zycit126 INTO TABLE lt_zycit126

      FOR ALL ENTRIES IN itab_zycit126

      WHERE nrseq  = itab_zycit126-nrseq

        AND agente = itab_zycit126-agente.

* << Fim da inclusão

  ENDIF.

  LOOP AT itab_zycit126.

    itab_zycit126-nrseq = /pws/zycie006-nrseq.

    MOVE itab_zycit126 TO /pws/zycit126.

    MODIFY /pws/zycit126.

* >> Início da inclusão: FORM SALVAR_DADOS

    READ TABLE lt_zycit126 WITH KEY nrseq  = itab_zycit126-nrseq

                                    agente = itab_zycit126-agente.

    IF sy-subrc EQ 0.

      PERFORM carrega_log USING '/PWS/ZYCIT126' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ELSE.

      PERFORM carrega_log USING '/PWS/ZYCIT126' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  LOOP AT itab_zycit126_ini.

    READ TABLE itab_zycit126 WITH KEY nrseq = itab_zycit126_ini-nrseq

                                    agente = itab_zycit126_ini-agente.

    IF sy-subrc NE 0.

* >> Início da inclusão: FORM SALVAR_DADOS

      MOVE-CORRESPONDING itab_zycit126_ini TO /pws/zycit126.

      PERFORM carrega_log USING '/PWS/ZYCIT126' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      DELETE FROM /pws/zycit126

         WHERE nrseq = itab_zycit126_ini-nrseq

           AND agente = itab_zycit126_ini-agente.

    ENDIF.

  ENDLOOP.

* >> Início da inclusão: FORM SALVAR_DADOS

  IF NOT itab_zycit130[] IS INITIAL.

    CLEAR: lt_zycit130, lt_zycit130[].

    SELECT * FROM /pws/zycit130 INTO TABLE lt_zycit130

      FOR ALL ENTRIES IN itab_zycit130

      WHERE nrseq  = itab_zycit130-nrseq

        AND motivo = itab_zycit130-motivo.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_zycit130.

    IF itab_zycit130-username IS INITIAL.

      itab_zycit130-username = sy-uname.

    ENDIF.

    itab_zycit130-nrseq = /pws/zycie006-nrseq.

    itab_zycit130-waers = /pws/zycie006-waers.

    IF /pws/zycie006-tpfatura = '05'.

      CLEAR itab_zycit130-montante.

    ENDIF.

    MOVE itab_zycit130 TO /pws/zycit130.

    IF /pws/zycie006-tpfatura = '05' AND

         NOT itab_zycit130-devolucao IS INITIAL.

      MODIFY /pws/zycit130.

* >> Início da inclusão: FORM SALVAR_DADOS

      READ TABLE lt_zycit130 WITH KEY nrseq  = itab_zycit130-nrseq

                                      motivo = itab_zycit130-motivo.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT130' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT130' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ELSEIF /pws/zycie006-tpfatura = '01' OR

           /pws/zycie006-tpfatura = '11' OR

           /pws/zycie006-tpfatura = '02' OR

           /pws/zycie006-tpfatura = '03'.

      MODIFY /pws/zycit130.

* >> Início da inclusão: FORM SALVAR_DADOS

      READ TABLE lt_zycit130 WITH KEY nrseq  = itab_zycit130-nrseq

                                      motivo = itab_zycit130-motivo.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT130' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT130' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    ENDIF.

* >> Início da inclusão: FORM SALVAR_DADOS

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  IF /pws/zycie006-tpfatura = '05'.

    PERFORM salva_zycit130.

  ENDIF.

  LOOP AT itab_zycit129_ini.

    READ TABLE itab_zycit129 WITH KEY nrseq = itab_zycit129_ini-nrseq

                              bcointerm = itab_zycit129_ini-bcointerm.

    IF sy-subrc NE 0.

* >> Início da inclusão: FORM SALVAR_DADOS

      CLEAR: /pws/zyglt209.

      SELECT SINGLE * FROM /pws/zyglt209 INTO /pws/zyglt209

             WHERE nrseq = /pws/zycie006-nrseq_pgfat   AND

               bcointerm = itab_zycit129_ini-bcointerm AND

               mdcorresp = 'IP'                        AND

               contcor   = itab_zycit129_ini-contcor.

      PERFORM carrega_log USING '/PWS/ZYGLT209' 'D'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

* << Fim da inclusão

      DELETE FROM /pws/zyglt209

         WHERE nrseq = /pws/zycie006-nrseq_pgfat AND

               bcointerm = itab_zycit129_ini-bcointerm AND

               mdcorresp = 'IP' AND

               contcor   = itab_zycit129_ini-contcor.

* >> Início da inclusão: FORM SALVAR_DADOS

      CLEAR: lt_zycit129, lt_zycit129[].

      SELECT * FROM /pws/zycit129 INTO TABLE lt_zycit129

        WHERE nrseq      = itab_zycit129_ini-nrseq

           AND bcointerm = itab_zycit129_ini-bcointerm.

      LOOP AT lt_zycit129.

        MOVE-CORRESPONDING lt_zycit129 TO /pws/zycit129.

        PERFORM carrega_log USING '/PWS/ZYCIT129' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDLOOP.

* << Fim da inclusão

      DELETE FROM /pws/zycit129

* >> Início da exclusão: FORM SALVAR_DADOS

         WHERE nrseq = itab_zycit129_ini-nrseq

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_DADOS

         WHERE nrseq     = itab_zycit129_ini-nrseq

* << Fim da inclusão

           AND bcointerm = itab_zycit129_ini-bcointerm.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_zycit130_ini.

    READ TABLE itab_zycit130 WITH KEY nrseq = itab_zycit130_ini-nrseq

                                motivo = itab_zycit130_ini-motivo.

    IF sy-subrc NE 0.

* >> Início da inclusão: FORM SALVAR_DADOS

      MOVE-CORRESPONDING itab_zycit130_ini TO /pws/zycit130.

      PERFORM carrega_log USING '/PWS/ZYCIT130' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      DELETE FROM /pws/zycit130

* >> Início da exclusão: FORM SALVAR_DADOS

         WHERE nrseq = itab_zycit130_ini-nrseq

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_DADOS

          WHERE nrseq  = itab_zycit130_ini-nrseq

* << Fim da inclusão

           AND motivo = itab_zycit130_ini-motivo.

    ENDIF.

  ENDLOOP.

...

...

FORM fill_date_f-43_f-02.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

  DATA: lw_zycit006 TYPE /pws/zycit006.

* << Fim da inclusão

  CLEAR:  v_ukurs, v_de , v_para .

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI003'

                              'FAT013'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'FAT013' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

...

...

            ENDIF.

            /pws/zycie006-belnr_p   = itab_zycbt032-belnr.

            /pws/zycie006-dt_belnrp = sy-datum.

            /pws/zycie006-hr_belnrp = sy-uzeit.

            PERFORM altera_data_base

              USING v_parcela

                    /pws/zycie006-bukrs

                    itab_zycbe033-budat

                    itab_zycbt032-belnr

                    itab_zycbe033-zterm.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

            CLEAR: lw_zycit006.

            SELECT SINGLE * FROM /pws/zycit006 INTO lw_zycit006

               WHERE nrseq = /pws/zycie006-nrseq.

* << Fim da inclusão

            MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

            IF lw_zycit006-nrseq IS INITIAL.

              MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

              PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

            ELSE.

              MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

              PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

            ENDIF.

* << Fim da inclusão

          ELSE.

            erro_bi = 'X'.

            LOOP AT itab_zycbt032.

              IF /pws/zycie006-tpfatura = '01' AND

                 sy-tcode EQ '/PWS/ZYCI003_C'.

                itab_mensagens-mensagem = itab_zycbt032-msg.

                APPEND itab_mensagens.

              ELSE.

                MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                                  itab_zycbt032-msg+50(50).

...

...

  ENDIF.

  IF e_subrc EQ '0'.

    CLEAR v_erro.

    IF v_parcela = 'X'.

      IF itab_zycit132-miro EQ 'X'.

        PERFORM estorn_miro_la.

        IF okcode NE 'DELE'.

          CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.

          MODIFY /pws/zycit006 FROM /pws/zycie006.

          COMMIT WORK.

* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08

          MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

          PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

          PERFORM fill_date_f-43_f-02.

        ENDIF.

        EXIT.

      ENDIF.

      itab_zycbe033-tabela = '/PWS/ZYCIT132'.

      itab_zycbe033-cpochv = itab_zycit132-nrseq.

      itab_zycbe033-belnr  = itab_zycit132-belnr_p.

      IF NOT itab_zycit132-dt_belnrp IS INITIAL.

        CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

...

...

        ENDIF.

      ENDIF.

      v_belnr_ant = itab_zycit132-belnr_p.

    ELSE.

      IF /pws/zycie006-statusp_mr1m EQ 'X'.

        PERFORM estorn_miro_la.

        IF okcode NE 'DELE'.

          CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.

          MODIFY /pws/zycit006 FROM /pws/zycie006.

          COMMIT WORK.

* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08

          MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

          PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

          PERFORM fill_date_f-43_f-02.

        ENDIF.

        EXIT.

      ENDIF.

      itab_zycbe033-tabela = '/PWS/ZYCIT006'.

      itab_zycbe033-cpochv = /pws/zycie006-nrseq.

      itab_zycbe033-belnr  = /pws/zycie006-belnr_p.

      IF NOT itab_zycit132-dt_belnrp IS INITIAL.

        CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'

...

...

FORM custeando_despesa_inco.

* >> Início da exclusão: FORM CUSTEANDO_DESPESA_INCO

  DATA:

        v_real_acum LIKE /pws/zycit036-vlreal.

* << Fim da exclusão

* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO

  DATA: v_real_acum LIKE /pws/zycit036-vlreal.

* << Fim da inclusão

  DATA itab_zycit036_plan LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

  IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).

    PERFORM fill_nrseq_pgfat.

    LOOP AT itab_zycit003_ini.

      READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit003_ini-nrseq

                                        ebeln = itab_zycit003_ini-ebeln

                                        ebelp = itab_zycit003_ini-ebelp.

      IF sy-subrc NE 0.

        CLEAR: itab_zycit003_ini-vlreal, itab_zycit003_ini-vlmov,

               itab_zycit003_ini-nrseq_pgfat, itab_zycit003_ini-livre.

        MOVE-CORRESPONDING itab_zycit003_ini TO /pws/zycit003.

        MODIFY /pws/zycit003.

* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO

        PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'

                ' '  '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.

* << Fim da inclusão

        DELETE FROM /pws/zycit036

           WHERE nrseq EQ itab_zycit003_ini-nrseq AND

                 ebeln EQ itab_zycit003_ini-ebeln AND

                 ebelp EQ itab_zycit003_ini-ebelp AND

                 codigo EQ /pws/zycit031-inco1_ci AND

                 origem EQ 'FAT' AND

                 nrseqori EQ /pws/zycie006-nrseq.

      ENDIF.

    ENDLOOP.

    IF NOT itab_zycit003[] IS INITIAL.

...

...

                                 dtuserc    = sy-datum

                                 hruserc    = sy-uzeit

                           WHERE nrseq    EQ itab_zycit036-nrseq

                             AND ebeln    EQ itab_zycit036-ebeln

                             AND ebelp    EQ itab_zycit036-ebelp

                             AND codigo   EQ itab_zycit036-codigo

                             AND origem   EQ 'FAT'

                             AND nrseqori EQ itab_zycit036-nrseqori.

        IF sy-subrc NE 0.

          MODIFY /pws/zycit036 FROM itab_zycit036_aux2.

* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO

        ELSE.

          itab_zycit036-usernamec  = sy-uname.

          itab_zycit036-dtuserc    = sy-datum.

          itab_zycit036-hruserc    = sy-uzeit.

* << Fim da inclusão

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit003.

    SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001

      WHERE nrseq = itab_zycit003-nrseq.

* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO

    IF sy-subrc = 0.

* << Fim da inclusão

    /pws/zycie001-status_e = 'A'.

* >> Início da exclusão: FORM CUSTEANDO_DESPESA_INCO

    IF sy-subrc = 0.

* << Fim da exclusão

      MODIFY /pws/zycit001 FROM /pws/zycie001.

* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO

      MOVE-CORRESPONDING /pws/zycie001 TO /pws/zycit001.

      PERFORM carrega_log USING '/PWS/ZYCIT001' 'U'

                ' '  '/PWS/SAPMZYCI001' /pws/zycit001-nrseq.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

ENDFORM.

...

...

FORM eliminar_fatura.

* >> Início da inclusão: FORM ELIMINAR_FATURA

  DATA: lt_zycbt108 TYPE /pws/zycbt108 OCCURS 0 WITH HEADER LINE,

        lt_zycbt119 TYPE /pws/zycbt119 OCCURS 0 WITH HEADER LINE,

        lt_zycit263 TYPE /pws/zycit263 OCCURS 0 WITH HEADER LINE,

        lt_zycit130 TYPE /pws/zycit130 OCCURS 0 WITH HEADER LINE,

        lt_zycit126 TYPE /pws/zycit126 OCCURS 0 WITH HEADER LINE,

        lt_zycit129 TYPE /pws/zycit129 OCCURS 0 WITH HEADER LINE,

        lt_zyglt209 TYPE /pws/zyglt209 OCCURS 0 WITH HEADER LINE,

        lt_zycit047 TYPE /pws/zycit047 OCCURS 0 WITH HEADER LINE,

        lt_zycit132 TYPE /pws/zycit132 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: v_data LIKE /pws/zycie006-dtincl.

  PERFORM verifica_boleto.

  IF v_stop = 'X'.

    EXIT.

  ENDIF.

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc

                                CHANGING v_ano .

  IF  /pws/zycie006-tpfatura = '04'.

* >> Início da inclusão: FORM ELIMINAR_FATURA

    CLEAR: lt_zycit047, lt_zycit047[].

    SELECT * FROM /pws/zycit047 INTO TABLE lt_zycit047

     WHERE nrseq = /pws/zycie006-nrseq

       AND nrfat = /pws/zycie006-nrfat.

    LOOP AT lt_zycit047.

      MOVE-CORRESPONDING lt_zycit047 TO /pws/zycit047.

      PERFORM carrega_log USING '/PWS/ZYCIT047' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDLOOP.

* << Fim da inclusão

    DELETE FROM /pws/zycit047 WHERE nrseq = /pws/zycie006-nrseq AND

                               nrfat = /pws/zycie006-nrfat.

    PERFORM atualiza_despesas.

  ENDIF.

  IF v_existe_di NE 'S'.

    IF ( NOT itab_zycit132[] IS INITIAL

          AND ( /pws/zycie006-tpfatura = '01' OR

          /pws/zycie006-tpfatura = '11' )

          AND /pws/zycie006-frpagto = 'N' )

          OR  ( NOT itab_zycit132[] IS INITIAL

...

...

          IF v_erro = 'X'.

            EXIT.

          ENDIF.

          MODIFY itab_zycit132.

        ENDLOOP.

        IF v_erro = 'X'.

          EXIT.

        ENDIF.

        /pws/zycie006-eliminado = 'X'.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        LOOP AT itab_zycit132 .

          UPDATE /pws/zycbt108 SET status   = 'E'

                WHERE bukrs    = /pws/zycie006-bukrs

                  AND belnr    = /pws/zycie006-nrseq

                  AND gjahr    = v_ano

                  AND belnr_co = itab_zycit132-belnr_p.

          UPDATE /pws/zycbt119 SET status   = 'E'

* >> Início da inclusão: FORM ELIMINAR_FATURA

             WHERE nrseq   = itab_zycit132-nrseq_pgfat.

        ENDLOOP.

        IF NOT itab_zycit132[] IS INITIAL.

          SELECT * FROM /pws/zycbt108

              INTO TABLE lt_zycbt108

              FOR ALL ENTRIES IN itab_zycit132

               WHERE bukrs    = /pws/zycie006-bukrs

                 AND belnr    = /pws/zycie006-nrseq

                 AND gjahr    = v_ano

                 AND belnr_co = itab_zycit132-belnr_p.

          SELECT * FROM /pws/zycbt119

              INTO TABLE lt_zycbt119

              FOR ALL ENTRIES IN itab_zycit132

* << Fim da inclusão

             WHERE nrseq   = itab_zycit132-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          LOOP AT lt_zycbt108.

            MOVE-CORRESPONDING lt_zycbt108 TO /pws/zycbt108.

            PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

          ENDLOOP.

          LOOP AT lt_zycbt119.

            MOVE-CORRESPONDING lt_zycbt119 TO /pws/zycbt119.

            PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

          ENDLOOP.

        ENDIF.

* << Fim da inclusão

          IF NOT /pws/zycie006-nrseqre IS INITIAL.

* >> Início da exclusão: FORM ELIMINAR_FATURA

            DELETE FROM /pws/zycbt124

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

          SELECT SINGLE * FROM /pws/zycbt124

             INTO /pws/zycbt124

* << Fim da inclusão

            WHERE nrseq = /pws/zycie006-nrseqre.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCBT124' 'D'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

          DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycie006-nrseqre.

          ENDIF.

* << Fim da inclusão

          ENDIF.

* >> Início da exclusão: FORM ELIMINAR_FATURA

        ENDLOOP.

* << Fim da exclusão

        CLEAR: v_dbanco, v_dforn, v_dmoeda, v_dmoeda_emb,

             v_dtpfatura, v_dfrpagto, v_livre.

        PERFORM verifica_exit USING 'D'

                                    '/PWS/SAPMZYCI003'

                                    'FAT014'.

        CLEAR itab_zyglt100 .

...

...

                         zexit = 'FAT014' 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.

        MESSAGE s015 WITH text-038.

        PERFORM atualiza_historico.

        SET SCREEN 0.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        CLEAR:   lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

        REFRESH: lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

        SELECT * FROM /pws/zycit130 INTO TABLE lt_zycit130

          WHERE nrseq = /pws/zycie006-nrseq.

        SELECT * FROM /pws/zycit126 INTO TABLE lt_zycit126

          WHERE nrseq = /pws/zycie006-nrseq.

        SELECT * FROM /pws/zycit129 INTO TABLE lt_zycit129

          WHERE nrseq = /pws/zycie006-nrseq.

        SELECT * FROM /pws/zyglt209 INTO TABLE lt_zyglt209

          WHERE nrseq     = /pws/zycie006-nrseq_pgfat

            AND mdcorresp = 'IP'.

        LOOP AT lt_zycit130.

          MOVE-CORRESPONDING lt_zycit130 TO /pws/zycit130.

          PERFORM carrega_log USING '/PWS/ZYCIT130' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDLOOP.

        LOOP AT lt_zycit126.

          MOVE-CORRESPONDING lt_zycit126 TO /pws/zycit126.

          PERFORM carrega_log USING '/PWS/ZYCIT126' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDLOOP.

        LOOP AT lt_zycit129.

          MOVE-CORRESPONDING lt_zycit129 TO /pws/zycit129.

          PERFORM carrega_log USING '/PWS/ZYCIT129' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDLOOP.

        LOOP AT lt_zyglt209.

          MOVE-CORRESPONDING lt_zyglt209 TO /pws/zyglt209.

          PERFORM carrega_log USING '/PWS/ZYGLT209' 'D'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

        ENDLOOP.

* << Fim da inclusão

        DELETE FROM /pws/zycit130 WHERE nrseq = /pws/zycie006-nrseq.

        DELETE FROM /pws/zycit126 WHERE nrseq = /pws/zycie006-nrseq.

        DELETE FROM /pws/zycit129 WHERE nrseq = /pws/zycie006-nrseq.

* >> Início da exclusão: FORM ELIMINAR_FATURA

        DELETE FROM /pws/zyglt209

        WHERE nrseq = /pws/zycie006-nrseq_pgfat

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

      DELETE FROM /pws/zyglt209 WHERE nrseq = /pws/zycie006-nrseq_pgfat

* << Fim da inclusão

        AND   mdcorresp = 'IP'.

        IF /pws/zycie006-tpfatura = '05'.

          PERFORM salva_zycit130.

        ENDIF.

        IF ( /pws/zycie006-tpfatura = '01'

          OR /pws/zycie006-tpfatura = '11' ).

          CLEAR: itab_zycit003-paisfab,

                 itab_zycit003-porigem,

                 itab_zycit003-mfrpn,

                 itab_zycit003-descfab,

...

...

                 itab_zycit003-lifnrfabr,

                 itab_zycit003-flagfabr.

          MODIFY itab_zycit003 TRANSPORTING paisfab porigem mfrpn

          descfab fabric lifnrfabr flagfabr

          WHERE nrseq_pgfat IS initial.

          CLEAR: itab_zycit003-nrseq_pgfat, itab_zycit003-vlreal,

                 itab_zycit003-fabric.

          MODIFY itab_zycit003 TRANSPORTING vlreal nrseq_pgfat

                        WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

          MODIFY /pws/zycit003 FROM TABLE itab_zycit003.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          LOOP AT itab_zycit003.

            MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit003.

            PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'

                ' '  '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.

          ENDLOOP.

* << Fim da inclusão

          PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

          LOOP AT itab_zycit003.

            UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                      nrseq       = itab_zycit003-nrseq AND

                      ebeln       = itab_zycit003-ebeln AND

                      ebelp       = itab_zycit003-ebelp AND

                      nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          ENDLOOP.

          IF NOT itab_zycit003[] IS INITIAL.

            SELECT * FROM /pws/zycit263

               INTO TABLE lt_zycit263

               FOR ALL ENTRIES IN itab_zycit003

               WHERE nrseq       = itab_zycit003-nrseq

                 AND ebeln       = itab_zycit003-ebeln

                 AND ebelp       = itab_zycit003-ebelp

                 AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

            LOOP AT lt_zycit263.

              MOVE-CORRESPONDING lt_zycit263 TO /pws/zycit263.

              PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

          ENDLOOP.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          ENDIF.

* << Fim da inclusão

          PERFORM calc_vlreal.

          CLEAR  /pws/zycie006.

        ELSE.

          IF itab_zycit003[] IS INITIAL.

            IF itab_zycit094[] IS INITIAL.

              SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094

...

...

        PERFORM reverse_document_fb08.

      ENDIF.

      IF v_erro = 'X'.

        EXIT.

      ENDIF.

      IF NOT v_pag_antecipado IS INITIAL.

        PERFORM hist_contabil.

      ENDIF.

      /pws/zycie006-eliminado = 'X'.

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ELIMINAR_FATURA

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      UPDATE /pws/zycbt108 SET status   = 'E'

                      WHERE bukrs    = /pws/zycie006-bukrs

                        AND belnr    = /pws/zycie006-nrseq

                        AND gjahr    = v_ano.

      UPDATE /pws/zycbt119 SET status   = 'E'

* >> Início da inclusão: FORM ELIMINAR_FATURA

                    WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

      CLEAR: lt_zycbt108[], lt_zycbt108, lt_zycbt119[], lt_zycbt119.

      SELECT * FROM /pws/zycbt108

          INTO TABLE lt_zycbt108

           WHERE bukrs    = /pws/zycie006-bukrs

             AND belnr    = /pws/zycie006-nrseq

             AND gjahr    = v_ano.

      SELECT * FROM /pws/zycbt119

          INTO TABLE lt_zycbt119

* << Fim da inclusão

                    WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

      LOOP AT lt_zycbt108.

        MOVE-CORRESPONDING lt_zycbt108 TO /pws/zycbt108.

        PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

      ENDLOOP.

      LOOP AT lt_zycbt119.

        MOVE-CORRESPONDING lt_zycbt119 TO /pws/zycbt119.

        PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

      ENDLOOP.

* << Fim da inclusão

      IF NOT /pws/zycie006-nrseqre IS INITIAL.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        CLEAR: /pws/zycbt124.

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

           WHERE nrseq   = /pws/zycie006-nrseqre.

* << Fim da inclusão

        IF NOT /pws/zycie006-tpfatura EQ '11'.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          IF NOT /pws/zycbt124-nrseq IS INITIAL.

            PERFORM carrega_log USING '/PWS/ZYCBT124' 'D'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

          ENDIF.

* << Fim da inclusão

          DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycie006-nrseqre.

        ELSE.

          UPDATE /pws/zycbt124 SET status   = 'E'

                   WHERE nrseq   = /pws/zycie006-nrseqre.

* >> Início da inclusão: FORM ELIMINAR_FATURA

          IF NOT /pws/zycbt124-nrseq IS INITIAL.

            /pws/zycbt124-status = 'E'.

            PERFORM carrega_log USING '/PWS/ZYCBT124' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      CLEAR: v_dbanco, v_dforn, v_dmoeda, v_dmoeda_emb,

             v_dtpfatura, v_dfrpagto, v_livre.

      PERFORM verifica_exit USING 'D'

                                  '/PWS/SAPMZYCI003'

                                  'FAT014'.

      CLEAR itab_zyglt100 .

      READ TABLE itab_zyglt100 WITH KEY

                       zexit = 'FAT014' 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.

      MESSAGE s015 WITH text-038.

      PERFORM atualiza_historico.

      SET SCREEN 0.

* >> Início da inclusão: FORM ELIMINAR_FATURA

      CLEAR:   lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

      REFRESH: lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

      SELECT * FROM /pws/zycit130 INTO TABLE lt_zycit130

        WHERE nrseq = /pws/zycie006-nrseq.

      SELECT * FROM /pws/zycit126 INTO TABLE lt_zycit126

        WHERE nrseq = /pws/zycie006-nrseq.

      SELECT * FROM /pws/zycit129 INTO TABLE lt_zycit129

        WHERE nrseq = /pws/zycie006-nrseq.

      SELECT * FROM /pws/zyglt209 INTO TABLE lt_zyglt209

        WHERE nrseq     = /pws/zycie006-nrseq_pgfat

          AND mdcorresp = 'IP'.

      LOOP AT lt_zycit130.

        MOVE-CORRESPONDING lt_zycit130 TO /pws/zycit130.

        PERFORM carrega_log USING '/PWS/ZYCIT130' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDLOOP.

      LOOP AT lt_zycit126.

        MOVE-CORRESPONDING lt_zycit126 TO /pws/zycit126.

        PERFORM carrega_log USING '/PWS/ZYCIT126' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDLOOP.

      LOOP AT lt_zycit129.

        MOVE-CORRESPONDING lt_zycit129 TO /pws/zycit129.

        PERFORM carrega_log USING '/PWS/ZYCIT129' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDLOOP.

      LOOP AT lt_zyglt209.

        MOVE-CORRESPONDING lt_zyglt209 TO /pws/zyglt209.

        PERFORM carrega_log USING '/PWS/ZYGLT209' 'D'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

      ENDLOOP.

* << Fim da inclusão

      DELETE FROM /pws/zycit130 WHERE nrseq = /pws/zycie006-nrseq.

      DELETE FROM /pws/zycit126 WHERE nrseq = /pws/zycie006-nrseq.

      DELETE FROM /pws/zycit129 WHERE nrseq = /pws/zycie006-nrseq.

* >> Início da exclusão: FORM ELIMINAR_FATURA

      DELETE FROM /pws/zyglt209 WHERE

          nrseq = /pws/zycie006-nrseq_pgfat AND mdcorresp = 'IP'.

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

      DELETE FROM /pws/zyglt209 WHERE nrseq = /pws/zycie006-nrseq_pgfat

                                  AND mdcorresp = 'IP'.

* << Fim da inclusão

      IF /pws/zycie006-tpfatura = '05'.

        PERFORM salva_zycit130.

      ENDIF.

      IF ( /pws/zycie006-tpfatura = '01'

        OR /pws/zycie006-tpfatura = '11' ).

        CLEAR: itab_zycit003-paisfab,

               itab_zycit003-porigem,

               itab_zycit003-mfrpn,

               itab_zycit003-descfab,

               itab_zycit003-fabric,

               itab_zycit003-lifnrfabr,

               itab_zycit003-flagfabr.

        MODIFY itab_zycit003 TRANSPORTING paisfab porigem mfrpn

        descfab fabric lifnrfabr flagfabr

        WHERE nrseq_pgfat IS initial.

        CLEAR: itab_zycit003-nrseq_pgfat, itab_zycit003-vlreal.

        MODIFY itab_zycit003 TRANSPORTING vlreal nrseq_pgfat

* >> Início da exclusão: FORM ELIMINAR_FATURA

                           WHERE nrseq_pgfat =

  /pws/zycie006-nrseq_pgfat.

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

                  WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

* << Fim da inclusão

        MODIFY /pws/zycit003 FROM TABLE itab_zycit003.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        LOOP AT itab_zycit003.

          MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit003.

          PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'

                ' '  '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.

        ENDLOOP.

* << Fim da inclusão

        PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

        LOOP AT itab_zycit003.

          UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                    nrseq       = itab_zycit003-nrseq AND

                    ebeln       = itab_zycit003-ebeln AND

                    ebelp       = itab_zycit003-ebelp AND

                    nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        ENDLOOP.

        IF NOT itab_zycit003[] IS INITIAL.

          CLEAR: lt_zycit263[], lt_zycit263.

          SELECT * FROM /pws/zycit263 INTO TABLE lt_zycit263

             FOR ALL ENTRIES IN itab_zycit003

             WHERE nrseq = itab_zycit003-nrseq

               AND ebeln = itab_zycit003-ebeln

               AND ebelp = itab_zycit003-ebelp

               AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

          LOOP AT lt_zycit263.

            MOVE-CORRESPONDING lt_zycit263 TO /pws/zycit263.

            PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        ENDLOOP.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        ENDIF.

* << Fim da inclusão

        PERFORM calc_vlreal.

        CLEAR  /pws/zycie006.

      ELSE.

        IF itab_zycit003[] IS INITIAL.

          IF itab_zycit094[] IS INITIAL.

            SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094

...

...

                       AND nrseqori = /pws/zycie006-nrseq.

            ENDIF.

          ENDLOOP.

        ENDIF.

      ENDIF.

      UPDATE /pws/zycbt108 SET status   = 'E'

                      WHERE bukrs    = /pws/zycie006-bukrs

                        AND belnr    = /pws/zycie006-nrseq

                        AND gjahr    = v_ano.

      UPDATE /pws/zycbt119 SET status   = 'E'

* >> Início da inclusão: FORM ELIMINAR_FATURA

                    WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

      CLEAR: lt_zycbt108[], lt_zycbt108, lt_zycbt119[], lt_zycbt119.

      SELECT * FROM /pws/zycbt108

          INTO TABLE lt_zycbt108

           WHERE bukrs    = /pws/zycie006-bukrs

             AND belnr    = /pws/zycie006-nrseq

             AND gjahr    = v_ano.

      SELECT * FROM /pws/zycbt119

          INTO TABLE lt_zycbt119

* << Fim da inclusão

                    WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

      LOOP AT lt_zycbt108.

        MOVE-CORRESPONDING lt_zycbt108 TO /pws/zycbt108.

        PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

      ENDLOOP.

      LOOP AT lt_zycbt119.

        MOVE-CORRESPONDING lt_zycbt119 TO /pws/zycbt119.

        PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

      ENDLOOP.

* << Fim da inclusão

      IF NOT /pws/zycie006-nrseqre IS INITIAL.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        CLEAR: /pws/zycbt124.

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

           WHERE nrseq   = /pws/zycie006-nrseqre.

        IF NOT /pws/zycbt124-nrseq IS INITIAL.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'D'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ENDIF.

* << Fim da inclusão

        DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycie006-nrseqre.

      ENDIF.

    ENDIF.

  ELSEIF /pws/zycie006-tpfatura NE '01'.

    IF /pws/zycie006-tpfatura = '09'.

      SELECT SINGLE * FROM /pws/zycit094

        WHERE nrseqce = /pws/zycie006-nrseqce.

      SELECT SINGLE * FROM /pws/zycit042

* >> Início da exclusão: FORM ELIMINAR_FATURA

       WHERE nrseq = /pws/zycit094-nrseq.               "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

    WHERE nrseq = /pws/zycit094-nrseq.                  "#EC CI_NOFIRST

* << Fim da inclusão

      SELECT SINGLE * FROM /pws/zycit041

        WHERE nrseq = /pws/zycit042-nrseqnf AND

              belnr_mr1m NE space AND

              cancel NE space.

      IF sy-subrc NE 0.

        SELECT SINGLE * FROM /pws/zycit043

       WHERE nrseq = /pws/zycit042-nrseqnf AND

             belnr_mr1m NE space AND

             cancel NE space.

        IF sy-subrc EQ 0.

...

...

      ENDIF.

    ENDIF.

    IF v_erro = 'X'.

      EXIT.

    ENDIF.

    IF NOT v_pag_antecipado IS INITIAL.

      PERFORM hist_contabil.

    ENDIF.

    /pws/zycie006-eliminado = 'X'.

    MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ELIMINAR_FATURA

    MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

    PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    UPDATE /pws/zycbt108 SET status   = 'E'

                    WHERE bukrs    = /pws/zycie006-bukrs

                      AND belnr    = /pws/zycie006-nrseq

                      AND gjahr    = v_ano.

    UPDATE /pws/zycbt119 SET status   = 'E'

* >> Início da inclusão: FORM ELIMINAR_FATURA

                  WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

    CLEAR: lt_zycbt108[], lt_zycbt108, lt_zycbt119[], lt_zycbt119.

    SELECT * FROM /pws/zycbt108

        INTO TABLE lt_zycbt108

         WHERE bukrs    = /pws/zycie006-bukrs

           AND belnr    = /pws/zycie006-nrseq

           AND gjahr    = v_ano.

    SELECT * FROM /pws/zycbt119

        INTO TABLE lt_zycbt119

* << Fim da inclusão

                  WHERE nrseq   = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

    LOOP AT lt_zycbt108.

      MOVE-CORRESPONDING lt_zycbt108 TO /pws/zycbt108.

      PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

    ENDLOOP.

    LOOP AT lt_zycbt119.

      MOVE-CORRESPONDING lt_zycbt119 TO /pws/zycbt119.

      PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

    ENDLOOP.

* << Fim da inclusão

    IF NOT /pws/zycie006-nrseqre IS INITIAL.

      IF NOT /pws/zycie006-tpfatura EQ '11'.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        CLEAR: /pws/zycbt124.

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

           WHERE nrseq   = /pws/zycie006-nrseqre.

        IF NOT /pws/zycbt124-nrseq IS INITIAL.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'D'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ENDIF.

* << Fim da inclusão

        DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycie006-nrseqre.

      ELSE.

        LOOP AT itab_zycit003.

          UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                    nrseq       = itab_zycit003-nrseq AND

                    ebeln       = itab_zycit003-ebeln AND

                    ebelp       = itab_zycit003-ebelp AND

                    nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        ENDLOOP.

        IF NOT itab_zycit003[] IS INITIAL.

          CLEAR: lt_zycit263, lt_zycit263[].

          SELECT * FROM /pws/zycit263 INTO TABLE lt_zycit263

             FOR ALL ENTRIES IN itab_zycit003

             WHERE nrseq = itab_zycit003-nrseq

               AND ebeln = itab_zycit003-ebeln

               AND ebelp = itab_zycit003-ebelp

               AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

          LOOP AT lt_zycit263.

            MOVE-CORRESPONDING lt_zycit263 TO /pws/zycit263.

            PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        ENDLOOP.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        ENDIF.

* << Fim da inclusão

        UPDATE /pws/zycbt124 SET status   = 'E'

* >> Início da inclusão: FORM ELIMINAR_FATURA

                 WHERE nrseq   = /pws/zycie006-nrseqre.

        CLEAR: /pws/zycbt124.

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

* << Fim da inclusão

                 WHERE nrseq   = /pws/zycie006-nrseqre.

* >> Início da inclusão: FORM ELIMINAR_FATURA

        IF NOT /pws/zycbt124-nrseq IS INITIAL.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    CLEAR: v_dbanco, v_dforn, v_dmoeda, v_dmoeda_emb,

...

...

                   AND nrseq    = itab_zycit003-nrseq

                   AND ebeln    = itab_zycit003-ebeln

                   AND ebelp    = itab_zycit003-ebelp

                   AND codmod   = 'D'

                   AND origem   = 'FAT'

                   AND nrseqori = /pws/zycie006-nrseq.

        ENDIF.

      ENDLOOP.

    ENDIF.

    SET SCREEN 0.

* >> Início da inclusão: FORM ELIMINAR_FATURA

    CLEAR:   lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

    REFRESH: lt_zycit130, lt_zycit126, lt_zycit129, lt_zyglt209.

    SELECT * FROM /pws/zycit130 INTO TABLE lt_zycit130

      WHERE nrseq = /pws/zycie006-nrseq.

    SELECT * FROM /pws/zycit126 INTO TABLE lt_zycit126

      WHERE nrseq = /pws/zycie006-nrseq.

    SELECT * FROM /pws/zycit129 INTO TABLE lt_zycit129

      WHERE nrseq = /pws/zycie006-nrseq.

    SELECT * FROM /pws/zyglt209 INTO TABLE lt_zyglt209

      WHERE nrseq     = /pws/zycie006-nrseq_pgfat

        AND mdcorresp = 'IP'.

    LOOP AT lt_zycit130.

      MOVE-CORRESPONDING lt_zycit130 TO /pws/zycit130.

      PERFORM carrega_log USING '/PWS/ZYCIT130' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDLOOP.

    LOOP AT lt_zycit126.

      MOVE-CORRESPONDING lt_zycit126 TO /pws/zycit126.

      PERFORM carrega_log USING '/PWS/ZYCIT126' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDLOOP.

    LOOP AT lt_zycit129.

      MOVE-CORRESPONDING lt_zycit129 TO /pws/zycit129.

      PERFORM carrega_log USING '/PWS/ZYCIT129' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDLOOP.

    LOOP AT lt_zyglt209.

      MOVE-CORRESPONDING lt_zyglt209 TO /pws/zyglt209.

      PERFORM carrega_log USING '/PWS/ZYGLT209' 'D'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

    ENDLOOP.

* << Fim da inclusão

    DELETE FROM /pws/zycit130 WHERE nrseq = /pws/zycie006-nrseq.

    DELETE FROM /pws/zycit126 WHERE nrseq = /pws/zycie006-nrseq.

    DELETE FROM /pws/zycit129 WHERE nrseq = /pws/zycie006-nrseq.

* >> Início da exclusão: FORM ELIMINAR_FATURA

    DELETE FROM /pws/zyglt209 WHERE

    nrseq = /pws/zycie006-nrseq_pgfat AND mdcorresp = 'IP'.

* << Fim da exclusão

* >> Início da inclusão: FORM ELIMINAR_FATURA

    DELETE FROM /pws/zyglt209 WHERE nrseq = /pws/zycie006-nrseq_pgfat

                            AND mdcorresp = 'IP'.

* << Fim da inclusão

    COMMIT WORK.

    IF /pws/zycie006-tpfatura = '05'.

      PERFORM salva_zycit130.

    ENDIF.

  ELSE.

    MESSAGE s015 WITH  text-042.

  ENDIF.

  IF okcode = 'DELE'.

* >> Início da inclusão: FORM ELIMINAR_FATURA

    SELECT * FROM /pws/zycit132 INTO TABLE lt_zycit132

       FOR ALL ENTRIES IN itab_zycit132

       WHERE nrseq  = itab_zycit132-nrseq

         AND nrfat  = itab_zycit132-nrfat

         AND nrparc = itab_zycit132-nrparc.

* << Fim da inclusão

    LOOP AT itab_zycit132.

      MOVE itab_zycit132 TO /pws/zycit132.

      MODIFY /pws/zycit132.

* >> Início da inclusão: FORM ELIMINAR_FATURA

      READ TABLE lt_zycit132 WITH KEY nrseq  = itab_zycit132-nrseq

                                      nrfat  = itab_zycit132-nrfat

                                      nrparc = itab_zycit132-nrparc.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT132' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT132' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ENDLOOP.

  ENDIF.

ENDFORM.

...

...

            WHERE nrseq_pgfat EQ

              itab_zycit263-nrseq_pgfat.                "#EC CI_NOFIELD

          LOOP AT itab_zycit263.

            v_tabix = sy-tabix.

            READ TABLE itab_zycit006 WITH KEY

                 nrseq_pgfat = itab_zycit263-nrseq_pgfat

                 eliminado   = space.

            IF sy-subrc NE 0.

              itab_zycit263-eliminado = 'X'.

              MODIFY itab_zycit263 INDEX v_tabix.

* >> Início da exclusão: FORM SELECIONAR_ITENS

              MODIFY /pws/zycit263 FROM itab_zycit263 .

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONAR_ITENS

              MODIFY /pws/zycit263 FROM itab_zycit263.

              MOVE-CORRESPONDING itab_zycit263 TO /pws/zycit263.

              PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

            ENDIF.

          ENDLOOP.

          LOOP AT itab_zycit006.

            v_tabix = sy-tabix.

            READ TABLE itab_zycit263 WITH KEY

                 nrseq_pgfat = itab_zycit006-nrseq_pgfat

                 eliminado   = space.

            IF sy-subrc NE 0.

              itab_zycit006-eliminado = 'X'.

              MODIFY itab_zycit006 INDEX v_tabix.

              MODIFY /pws/zycit006 FROM itab_zycit006 .

* >> Início da inclusão: FORM SELECIONAR_ITENS

              MOVE-CORRESPONDING itab_zycit006 TO /pws/zycit006.

              PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

            ENDIF.

          ENDLOOP.

          DELETE itab_zycit006 WHERE eliminado = 'X'.

          DELETE itab_zycit263 WHERE eliminado = 'X'.

        ENDIF.

      ENDIF.

      CLEAR v_flag_saldo.

      LOOP AT itab_zycit003_aux.

        CLEAR vsaldo.

        LOOP AT itab_zycit263_aux WHERE

...

...

FORM salva_zycit047.

* >> Início da inclusão: FORM SALVA_ZYCIT047

  DATA: lt_zycit047 TYPE /pws/zycit047 OCCURS 0 WITH HEADER LINE.

  SELECT * FROM /pws/zycit047 INTO TABLE lt_zycit047

      WHERE nrseq = /pws/zycie006-nrseq

        AND nrfat = /pws/zycie006-nrfat.

* << Fim da inclusão

  IF sy-tcode = '/PWS/ZYCI003_C'.

    IF /pws/zycie006-nrseq = itab_zycit047-nrseq AND

       /pws/zycie006-nrfat = itab_zycit047-nrfat.

      LOOP AT itab_zycit047.

        IF NOT itab_zycit047-vldp = ' 0.00 '.

          MOVE /pws/zycie006-nrseq         TO /pws/zycit047-nrseq.

          MOVE /pws/zycie006-nrfat         TO /pws/zycit047-nrfat.

* >> Início da exclusão: FORM SALVA_ZYCIT047

          MOVE itab_zycit047-tpdesp   TO /pws/zycit047-tpdesp.

          MOVE itab_zycit047-descr    TO /pws/zycit047-descr.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT047

          MOVE itab_zycit047-tpdesp        TO /pws/zycit047-tpdesp.

          MOVE itab_zycit047-descr         TO /pws/zycit047-descr.

* << Fim da inclusão

          MOVE /pws/zycie006-embarca       TO /pws/zycit047-embarca.

          MOVE /pws/zycie006-bukrs         TO /pws/zycit047-bukrs.

          MOVE /pws/zycie006-werks         TO /pws/zycit047-werks.

          MOVE /pws/zycie006-waers         TO /pws/zycit047-waers.

* >> Início da exclusão: FORM SALVA_ZYCIT047

          MOVE itab_zycit047-vldp     TO /pws/zycit047-vldp.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT047

          MOVE itab_zycit047-vldp          TO /pws/zycit047-vldp.

* << Fim da inclusão

          MODIFY /pws/zycit047.

* >> Início da inclusão: FORM SALVA_ZYCIT047

          READ TABLE lt_zycit047 WITH KEY nrseq  = /pws/zycit047-nrseq

                                          nrfat  = /pws/zycit047-nrfat

                                          tpdesp = /pws/zycit047-tpdesp.

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCIT047' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ELSE.

            PERFORM carrega_log USING '/PWS/ZYCIT047' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

        ELSE.

* >> Início da inclusão: FORM SALVA_ZYCIT047

          READ TABLE lt_zycit047 WITH KEY nrseq  = itab_zycit047-nrseq

                                          nrfat  = itab_zycit047-nrfat

                                          tpdesp = itab_zycit047-tpdesp.

          IF sy-subrc EQ 0.

            MOVE-CORRESPONDING itab_zycit047 TO /pws/zycit047.

            PERFORM carrega_log USING '/PWS/ZYCIT047' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

          DELETE FROM /pws/zycit047 WHERE nrseq  =  itab_zycit047-nrseq

                                 AND nrfat  =  itab_zycit047-nrfat

                                 AND tpdesp =  itab_zycit047-tpdesp

                                 AND descr  =  itab_zycit047-descr.

        ENDIF.

      ENDLOOP.

    ELSE.

      LOOP AT itab_zycit047.

        IF NOT itab_zycit047-vldp = ' 0.00 '.

          MOVE /pws/zycie006-nrseq         TO /pws/zycit047-nrseq.

          MOVE /pws/zycie006-nrfat         TO /pws/zycit047-nrfat.

          MOVE itab_zycit047-tpdesp   TO /pws/zycit047-tpdesp.

          MOVE itab_zycit047-descr    TO /pws/zycit047-descr.

          MOVE /pws/zycie006-embarca       TO /pws/zycit047-embarca.

          MOVE /pws/zycie006-bukrs         TO /pws/zycit047-bukrs.

          MOVE /pws/zycie006-werks         TO /pws/zycit047-werks.

          MOVE /pws/zycie006-waers         TO /pws/zycit047-waers.

          MOVE itab_zycit047-vldp     TO /pws/zycit047-vldp.

          INSERT /pws/zycit047.

* >> Início da inclusão: FORM SALVA_ZYCIT047

          READ TABLE lt_zycit047 WITH KEY nrseq  = /pws/zycit047-nrseq

                                          nrfat  = /pws/zycit047-nrfat

                                          tpdesp = /pws/zycit047-tpdesp.

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCIT047' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ELSE.

            PERFORM carrega_log USING '/PWS/ZYCIT047' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDLOOP.

    ENDIF.

  ELSE.

    LOOP AT itab_zycit047.

      IF NOT itab_zycit047-vldp = ' 0.00 '.

        MOVE /pws/zycie006-nrseq         TO /pws/zycit047-nrseq.

        MOVE /pws/zycie006-nrfat         TO /pws/zycit047-nrfat.

        MOVE itab_zycit047-tpdesp   TO /pws/zycit047-tpdesp.

        MOVE itab_zycit047-descr    TO /pws/zycit047-descr.

        MOVE /pws/zycie006-embarca       TO /pws/zycit047-embarca.

        MOVE /pws/zycie006-bukrs         TO /pws/zycit047-bukrs.

        MOVE /pws/zycie006-werks         TO /pws/zycit047-werks.

        MOVE /pws/zycie006-waers         TO /pws/zycit047-waers.

        MOVE itab_zycit047-vldp     TO /pws/zycit047-vldp.

        MODIFY /pws/zycit047.

* >> Início da inclusão: FORM SALVA_ZYCIT047

        READ TABLE lt_zycit047 WITH KEY nrseq  = /pws/zycit047-nrseq

                                        nrfat  = /pws/zycit047-nrfat

                                        tpdesp = /pws/zycit047-tpdesp.

        IF sy-subrc EQ 0.

          PERFORM carrega_log USING '/PWS/ZYCIT047' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ELSE.

          PERFORM carrega_log USING '/PWS/ZYCIT047' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDIF.

* << Fim da inclusão

      ELSE.

* >> Início da inclusão: FORM SALVA_ZYCIT047

        READ TABLE lt_zycit047 WITH KEY nrseq  = itab_zycit047-nrseq

                                        nrfat  = itab_zycit047-nrfat

                                        tpdesp = itab_zycit047-tpdesp.

        IF sy-subrc EQ 0.

          MOVE-CORRESPONDING itab_zycit047 TO /pws/zycit047.

          PERFORM carrega_log USING '/PWS/ZYCIT047' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDIF.

* << Fim da inclusão

        DELETE FROM /pws/zycit047 WHERE nrseq  =  itab_zycit047-nrseq

                               AND nrfat  =  itab_zycit047-nrfat

                               AND tpdesp =  itab_zycit047-tpdesp

                               AND descr  =  itab_zycit047-descr.

      ENDIF.

    ENDLOOP.

  ENDIF.

  v_salva = 1.

ENDFORM.

...

...

FORM salva_zycit130.

* >> Início da exclusão: FORM SALVA_ZYCIT130

  DATA:

        v_motiv LIKE /pws/zycit130-motivo,

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

  DATA: v_motiv           LIKE /pws/zycit130-motivo,

* << Fim da inclusão

        v_devolucao_atual LIKE /pws/zycit130-montante,

* >> Início da exclusão: FORM SALVA_ZYCIT130

        v_montante_aux LIKE /pws/zycie130-montante,

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

        v_montante_aux    LIKE /pws/zycie130-montante,

* << Fim da inclusão

        itab_zycit130_aux LIKE /pws/zycit130 OCCURS 0 WITH HEADER LINE,

        itab_zycit006_aux LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE.

  SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_aux

...

...

      FOR ALL ENTRIES IN itab_zycit006_aux

      WHERE nrseq = itab_zycit006_aux-nrseq.

  ENDIF.

  SORT itab_zycit130_aux BY motivo.

  READ TABLE itab_zycit130_aux INDEX 1.

  v_motiv = itab_zycit130_aux-motivo.

  DESCRIBE TABLE itab_zycit130_aux LINES v_line.

  LOOP AT itab_zycit130_aux.

    v_tabix = sy-tabix.

    IF v_motiv NE itab_zycit130_aux-motivo.

* >> Início da exclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-nrseq = wa_zycit006_ded-nrseq.

      /pws/zycit130-motivo = v_motiv.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

      MOVE-CORRESPONDING itab_zycit130_aux TO /pws/zycit130.

      /pws/zycit130-nrseq     = wa_zycit006_ded-nrseq.

      /pws/zycit130-motivo    = v_motiv.

* << Fim da inclusão

      /pws/zycit130-devolucao = v_devolucao_atual.

* >> Início da exclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-waers = /pws/zycie006-waers.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-waers     = /pws/zycie006-waers.

* << Fim da inclusão

      UPDATE /pws/zycit130 SET devolucao = v_devolucao_atual

         WHERE nrseq = /pws/zycit130-nrseq

           AND motivo = /pws/zycit130-motivo.

* >> Início da inclusão: FORM SALVA_ZYCIT130

      PERFORM carrega_log USING '/PWS/ZYCIT130' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      CLEAR v_devolucao_atual.

      v_motiv = itab_zycit130_aux-motivo.

    ENDIF.

    v_montante_aux    = itab_zycit130_aux-montante.

* >> Início da exclusão: FORM SALVA_ZYCIT130

    v_devolucao_atual = itab_zycit130_aux-devolucao

                         + v_devolucao_atual.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

    v_devolucao_atual = itab_zycit130_aux-devolucao + v_devolucao_atual.

* << Fim da inclusão

    IF v_line = v_tabix.

* >> Início da exclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-nrseq = wa_zycit006_ded-nrseq.

      /pws/zycit130-motivo = itab_zycit130_aux-motivo.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

      MOVE-CORRESPONDING itab_zycit130_aux TO /pws/zycit130.

      /pws/zycit130-nrseq     = wa_zycit006_ded-nrseq.

      /pws/zycit130-motivo    = itab_zycit130_aux-motivo.

* << Fim da inclusão

      /pws/zycit130-devolucao = v_devolucao_atual.

* >> Início da exclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-waers = /pws/zycie006-waers.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_ZYCIT130

      /pws/zycit130-waers     = /pws/zycie006-waers.

* << Fim da inclusão

      UPDATE /pws/zycit130 SET devolucao = v_devolucao_atual

         WHERE nrseq = /pws/zycit130-nrseq

           AND motivo = /pws/zycit130-motivo.

* >> Início da inclusão: FORM SALVA_ZYCIT130

      PERFORM carrega_log USING '/PWS/ZYCIT130' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

ENDFORM.

...

...

FORM rotina_de_contabilizacao.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

  DATA: lw_zycit006 TYPE /pws/zycit006,

        lt_zycit132 TYPE /pws/zycit132 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: v_nrseqori LIKE /pws/zycie036-nrseqori.

  DATA v_par.

  CLEAR v_congela.

  IF /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11'.

    SELECT MAX( nrseqori ) INTO (v_nrseqori) FROM /pws/zycit036

    WHERE nrseq      EQ itab_zycit003-nrseq

      AND ebeln      EQ itab_zycit003-ebeln

      AND ebelp      EQ itab_zycit003-ebelp

      AND origem     EQ 'FAT'.

   DATA: itab_zycit036_rec LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

...

...

      IF v_parcela NE 'X'.

        PERFORM cria_remessa.

      ELSE.

        LOOP AT itab_zycit132 WHERE status = 'C' OR status = space.

          v_idx = sy-tabix.

          PERFORM cria_remessa.

          MODIFY itab_zycit132 INDEX v_idx.

        ENDLOOP.

      ENDIF.

    ENDIF.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

    CLEAR: lw_zycit006.

    SELECT SINGLE * FROM /pws/zycit006 INTO lw_zycit006

       WHERE nrseq = /pws/zycie006-nrseq.

* << Fim da inclusão

    MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

    IF lw_zycit006-nrseq IS INITIAL.

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ELSE.

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

    ENDIF.

* << Fim da inclusão

    PERFORM verifica_associacao.

    PERFORM verifica_exit USING 'D'

                                '/PWS/SAPMZYCI003'

                                'FAT015'.

    CLEAR itab_zyglt100 .

    READ TABLE itab_zyglt100 WITH KEY

                     zexit = 'FAT015' BINARY SEARCH.

    IF sy-subrc EQ 0.

      IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

        PERFORM (itab_zyglt100-formulario) IN PROGRAM

...

...

    IF /pws/zycie006-flagdesc NE wa_zycie006_ini-flagdesc OR

       /pws/zycie006-bcofav   NE wa_zycie006_ini-bcofav OR

       wa_zycbt078_ini IS INITIAL.

      /pws/zycbt078-nrseq = /pws/zycie006-nrseq.

      /pws/zycbt078-dtmodif = sy-datum.

      /pws/zycbt078-username = sy-uname.

      /pws/zycbt078-uzeit = sy-uzeit.

      /pws/zycbt078-bcofav = /pws/zycie006-bcofav.

      /pws/zycbt078-flagdesc = /pws/zycie006-flagdesc.

      MODIFY /pws/zycbt078.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

      PERFORM carrega_log USING '/PWS/ZYCBT078' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt078-nrseq.

* << Fim da inclusão

    ENDIF.

    MOVE /pws/zycbt078 TO wa_zycbt078_ini.

    MOVE itab_zycit003[] TO itab_zycit003_ini[].

    MOVE /pws/zycie006 TO wa_zycie006_ini.

    MOVE itab_zycit047[] TO itab_zycit047_ini[].

    MOVE itab_zycit132[] TO itab_zycit132_ini[].

* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO

  IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).

* << Fim da exclusão

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

    IF ( /pws/zycie006-tpfatura = '01' OR

         /pws/zycie006-tpfatura = '11' ).

* << Fim da inclusão

    ENDIF.

    MESSAGE s015 WITH text-002.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

    SELECT * FROM /pws/zycit132 INTO TABLE lt_zycit132

       FOR ALL ENTRIES IN itab_zycit132

       WHERE nrseq  = itab_zycit132-nrseq

         AND nrfat  = itab_zycit132-nrfat

         AND nrparc = itab_zycit132-nrparc.

* << Fim da inclusão

    LOOP AT itab_zycit132.

      IF itab_zycit132-waers IS INITIAL.

        itab_zycit132-waers = /pws/zycie006-waers.

      ENDIF.

      MOVE itab_zycit132 TO /pws/zycit132.

      MODIFY /pws/zycit132.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

      READ TABLE lt_zycit132 WITH KEY nrseq  = itab_zycit132-nrseq

                                      nrfat  = itab_zycit132-nrfat

                                      nrparc = itab_zycit132-nrparc.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT132' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT132' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ENDLOOP.

  ELSE.

    IF sy-tcode EQ '/PWS/ZYCI003_C'.

* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      DELETE FROM /pws/zycit006 WHERE nrseq = /pws/zycie006-nrseq.

    ENDIF.

  ENDIF.

  CLEAR v_modo_bi.

ENDFORM.

FORM gravar_cambio.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

  DATA: lw_zycit006 TYPE /pws/zycit006.

* << Fim da inclusão

  DATA wa_zycbt119 LIKE /pws/zycbt119.

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc

                                CHANGING v_ano .

  IF /pws/zycie006-tpfatura EQ '11'.

    SELECT SINGLE * FROM /pws/zycbt064

      WHERE nrchave   = /pws/zycie006-nrseqre

      AND   mdcorresp = 'CP'.

  ELSE.

    SELECT SINGLE * FROM /pws/zycbt064

      WHERE nrchave   = /pws/zycie006-nrseq_pgfat

...

...

 /pws/zycbt119-txtinf.

  IF v_parcela = 'X'.

    IF sy-tcode EQ '/PWS/ZYCI003_C' OR

       itab_zycit132-nrseq_pgfat IS INITIAL.

      PERFORM busca_sequencial.

      INSERT /pws/zycbt119 .

      WHILE sy-subrc NE 0.

        PERFORM busca_sequencial.

        INSERT /pws/zycbt119.

      ENDWHILE.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT119' 'I'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

      MOVE /pws/zycbt119-nrseq TO itab_zycit132-nrseq_pgfat.

      IF /pws/zycie006-nrseq_pgfat IS INITIAL.

        MOVE /pws/zycbt119-nrseq TO /pws/zycie006-nrseq_pgfat.

      ENDIF.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      CLEAR: lw_zycit006.

      SELECT SINGLE * FROM /pws/zycit006 INTO lw_zycit006

         WHERE nrseq = /pws/zycie006-nrseq.

* << Fim da inclusão

      MODIFY /pws/zycit006 FROM /pws/zycie006.

      APPEND /pws/zycie006 TO itab_zycit006.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      IF lw_zycit006-nrseq IS INITIAL.

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

      IF ( /pws/zycie006-frpagto EQ 'N'

      OR /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL ).

        IF /pws/zycie006-tpfatura = '01' AND

           sy-tcode EQ '/PWS/ZYCI003_C'.

          CLEAR: itab_mensagens, itab_msg.

          itab_msg-msgid = '/PWS/ZYCIM'.

          itab_msg-msgnr = '061'.

          itab_msg-msgv1 = text-008.

          itab_msg-msgv2 = /pws/zycbt119-nrfat.

          itab_msg-msgv3 = text-009.

...

...

                    message_not_found      = 2

                    OTHERS                 = 3.

          APPEND itab_mensagens.

        ELSE.

          MESSAGE i061 WITH text-008 /pws/zycbt119-nrfat

                            text-009 /pws/zycbt119-nrseq.

        ENDIF.

      ELSE.

        /pws/zycbt119-status = 'E'.

        MODIFY /pws/zycbt119.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

        PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

      ENDIF.

    ELSE.

      IF /pws/zycie006-frpagto NE 'N' .

        /pws/zycbt119-status = 'E'.

      ENDIF.

      IF ( /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL )

          AND NOT itab_zycit132-belnr_p IS INITIAL AND

          /pws/zycie006-eliminado NE 'X'.

        CLEAR /pws/zycbt119-status.

      ENDIF.

      MOVE itab_zycit132-nrseq_pgfat TO /pws/zycbt119-nrseq.

      MODIFY /pws/zycbt119.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

    ENDIF.

    MODIFY itab_zycit132 INDEX v_idx.

  ELSE.

    IF sy-tcode EQ '/PWS/ZYCI003_C' OR

         /pws/zycie006-nrseq_pgfat IS INITIAL.

      PERFORM busca_sequencial.

      INSERT /pws/zycbt119 .

      WHILE sy-subrc NE 0.

        PERFORM busca_sequencial.

        INSERT /pws/zycbt119.

      ENDWHILE.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT119' 'I'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

      MOVE /pws/zycbt119-nrseq TO /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      CLEAR: lw_zycit006.

      SELECT SINGLE * FROM /pws/zycit006 INTO lw_zycit006

         WHERE nrseq = /pws/zycie006-nrseq.

* << Fim da inclusão

      MODIFY /pws/zycit006 FROM /pws/zycie006.

      APPEND /pws/zycie006 TO itab_zycit006.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      IF lw_zycit006-nrseq IS INITIAL.

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

      IF ( /pws/zycie006-frpagto EQ 'N' OR

           /pws/zycie006-frpagto EQ 'P'

           AND NOT v_di IS INITIAL ).

        IF /pws/zycie006-tpfatura = '01' AND

           sy-tcode EQ '/PWS/ZYCI003_C'.

          CLEAR: itab_mensagens, itab_msg.

          itab_msg-msgid = '/PWS/ZYCIM'.

          itab_msg-msgnr = '061'.

          itab_msg-msgv1 = text-008.

          itab_msg-msgv2 = /pws/zycbt119-nrfat.

...

...

                      message_not_found      = 2

                      OTHERS                 = 3.

            APPEND itab_mensagens.

          ELSE.

            MESSAGE i061 WITH text-008 /pws/zycbt119-nrfat

                              text-009 /pws/zycbt119-nrseq.

          ENDIF.

        ENDIF.

        /pws/zycbt119-status = 'E'.

        MODIFY /pws/zycbt119.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

        PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

      ENDIF.

    ELSE.

      IF /pws/zycie006-frpagto NE 'N' .

        /pws/zycbt119-status = 'E'.

      ENDIF.

      IF ( /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL )

          AND NOT /pws/zycie006-belnr_p IS INITIAL AND

          /pws/zycie006-eliminado NE 'X'.

        CLEAR /pws/zycbt119-status.

      ENDIF.

      MOVE /pws/zycie006-nrseq_pgfat TO /pws/zycbt119-nrseq.

      MODIFY /pws/zycbt119.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  DATA v_data_lanc.

  CLEAR v_data_lanc.

  IF /pws/zycie006-belnr_p NE /pws/zycbt108-belnr_co.

    v_data_lanc = 'X'.

  ENDIF.

  MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycbt108.

  MOVE: /pws/zycie006-nrseq       TO /pws/zycbt108-belnr,

        /pws/zycie006-nrfat       TO /pws/zycbt108-nrfat,

...

...

           nrpfatura    = /pws/zycbt108-nrpfatura

           vlassoccc    = /pws/zycbt108-vlassoccc

           vlassocfi    = /pws/zycbt108-vlassocfi

           vlassocpa    = /pws/zycbt108-vlassocpa

           vlassocpf    = /pws/zycbt108-vlassocpf

           vlassoc      = /pws/zycbt108-vlassoc

          WHERE nrseq_pgfat = itab_zycit132-nrseq_pgfat

           AND belnr       = /pws/zycie006-nrseq.       "#EC CI_NOFIRST

    IF sy-subrc NE 0.

      MODIFY /pws/zycbt108.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT108' 'I'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

    ELSE.

      PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

* << Fim da inclusão

    ENDIF.

  ELSE.

    UPDATE /pws/zycbt108 SET

           nrfat        = /pws/zycbt108-nrfat

           werks        = /pws/zycbt108-werks

           gsber        = /pws/zycbt108-gsber

           j_1bbranch   = /pws/zycbt108-j_1bbranch

           dtincl       = /pws/zycbt108-dtincl

           dtemb        = /pws/zycbt108-dtemb

           bldat        = /pws/zycbt108-bldat

...

...

           nrpfatura    = /pws/zycbt108-nrpfatura

           vlassoccc    = /pws/zycbt108-vlassoccc

           vlassocfi    = /pws/zycbt108-vlassocfi

           vlassocpa    = /pws/zycbt108-vlassocpa

           vlassocpf    = /pws/zycbt108-vlassocpf

           vlassoc      = /pws/zycbt108-vlassoc

          WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat

           AND belnr       = /pws/zycie006-nrseq.       "#EC CI_NOFIRST

    IF sy-subrc NE 0.

      MODIFY /pws/zycbt108.

* >> Início da inclusão: FORM GRAVAR_CAMBIO

      PERFORM carrega_log USING '/PWS/ZYCBT108' 'I'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

    ELSE.

      PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

* << Fim da inclusão

    ENDIF.

  ENDIF.

ENDFORM.

...

...

FORM consiste_sequencial.

  DATA: wa_nrseq LIKE /pws/zycie001-nrseq.

* >> Início da exclusão: FORM CONSISTE_SEQUENCIAL

 IF /pws/zycie006-nrseq_pgfat IS INITIAL AND /pws/zycie006-eliminado NE

                                                                    'X'

                                           AND v_flag_sequencial NE 'X'.

* << Fim da exclusão

* >> Início da inclusão: FORM CONSISTE_SEQUENCIAL

  IF /pws/zycie006-nrseq_pgfat IS INITIAL AND

     /pws/zycie006-eliminado NE 'X'       AND

     v_flag_sequencial NE 'X'.

* << Fim da inclusão

    IF sy-tcode EQ '/PWS/ZYCI003_C'.

      SELECT SINGLE nrseq FROM /pws/zycit006 INTO wa_nrseq

       WHERE nrseq = /pws/zycie006-nrseq.

      IF sy-subrc EQ 0.

        PERFORM busca_sequencial_fatura.

        MESSAGE i061 WITH text-008 /pws/zycie001-embarca

                          text-009 /pws/zycie001-nrseq.

        INSERT INTO /pws/zycit006 VALUES /pws/zycie006.

        WHILE sy-subrc NE 0.

          PERFORM busca_sequencial_fatura.

          MESSAGE i061 WITH text-008 /pws/zycie001-embarca

                            text-009 /pws/zycie006-nrseq.

          INSERT INTO /pws/zycit006 VALUES /pws/zycie006.

          PERFORM atualiza_novo_seq.

        ENDWHILE.

* >> Início da inclusão: FORM CONSISTE_SEQUENCIAL

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        v_flag_sequencial = 'X'.

        v_existe = 'S'.

      ELSE.

        INSERT INTO /pws/zycit006 VALUES /pws/zycie006.

        WHILE sy-subrc NE 0.

          PERFORM busca_sequencial_fatura.

          MESSAGE i061 WITH text-008 /pws/zycie001-embarca

                            text-009 /pws/zycie006-nrseq.

          INSERT INTO /pws/zycit006 VALUES /pws/zycie006.

          PERFORM atualiza_novo_seq.

        ENDWHILE.

* >> Início da inclusão: FORM CONSISTE_SEQUENCIAL

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        v_flag_sequencial = 'X'.

        v_existe = 'S'.

      ENDIF.

      COMMIT WORK AND WAIT.

    ENDIF.

  ENDIF.

  IF v_existe = 'S' AND NOT itab_zycit132[] IS INITIAL.

    LOOP AT itab_zycit132.

      itab_zycit132-nrseq = /pws/zycie006-nrseq.

      MODIFY itab_zycit132 INDEX sy-tabix.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

FORM salvar_bco.

  DATA itab_zycit129_aux LIKE itab_zycit129 OCCURS 0 WITH HEADER LINE.

  SELECT * FROM /pws/zycit129

    INTO TABLE itab_zycit129_aux

    WHERE nrseq = /pws/zycie006-nrseq.

  LOOP AT itab_zycit129.

    READ TABLE itab_zycit129_aux WITH KEY nrseq  = /pws/zycie006-nrseq

                            codint = itab_zycit129-codint.

    IF sy-subrc EQ 0.

* >> Início da exclusão: FORM SALVAR_BCO

      UPDATE /pws/zycit129 SET nrseq      = itab_zycit129-nrseq

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_BCO

      UPDATE /pws/zycit129 SET nrseq = itab_zycit129-nrseq

* << Fim da inclusão

                          codint     = itab_zycit129-codint

                          bcointerm  = itab_zycit129-bcointerm

                          contcor    = itab_zycit129-contcor

* >> Início da exclusão: FORM SALVAR_BCO

                    WHERE nrseq       = itab_zycit129-nrseq AND

                          codint      = itab_zycit129-codint.

      UPDATE /pws/zyglt209 SET codmod = 'D'

                           bcofav = /pws/zycie006-bcofav

                  WHERE nrseq      = /pws/zycie006-nrseq_pgfat AND

                       mdcorresp     = 'IP' AND

                       bcointerm     = itab_zycit129-bcointerm AND

                          contcor    = itab_zycit129-contcor.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_BCO

                    WHERE nrseq      = itab_zycit129-nrseq AND

                          codint     = itab_zycit129-codint.

      MOVE-CORRESPONDING itab_zycit129 TO /pws/zycit129.

      PERFORM carrega_log USING '/PWS/ZYCIT129' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      UPDATE /pws/zyglt209 SET codmod    = 'D'

                               bcofav    = /pws/zycie006-bcofav

                         WHERE nrseq     = /pws/zycie006-nrseq_pgfat AND

                               mdcorresp = 'IP' AND

                               bcointerm = itab_zycit129-bcointerm AND

                                contcor  = itab_zycit129-contcor.

      MOVE: /pws/zycie006-nrseq_pgfat TO /pws/zyglt209-nrseq,

            'IP'                      TO /pws/zyglt209-mdcorresp,

            itab_zycit129-bcointerm   TO /pws/zyglt209-bcointerm,

            itab_zycit129-contcor     TO /pws/zyglt209-contcor,

            'D'                       TO /pws/zyglt209-codmod,

            /pws/zycie006-bcofav      TO /pws/zyglt209-bcofav.

      PERFORM carrega_log USING '/PWS/ZYGLT209' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

* << Fim da inclusão

      DELETE itab_zycit129_aux WHERE nrseq  = itab_zycit129-nrseq

                                 AND codint = itab_zycit129-codint.

    ELSE.

      MOVE: itab_zycit129-mandt       TO  /pws/zycit129-mandt,

* >> Início da exclusão: FORM SALVAR_BCO

            /pws/zycie006-nrseq            TO  /pws/zycit129-nrseq,

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_BCO

            /pws/zycie006-nrseq       TO  /pws/zycit129-nrseq,

* << Fim da inclusão

            itab_zycit129-codint      TO  /pws/zycit129-codint,

            itab_zycit129-bcointerm   TO  /pws/zycit129-bcointerm,

            itab_zycit129-contcor     TO  /pws/zycit129-contcor.

      INSERT /pws/zycit129.

* >> Início da exclusão: FORM SALVAR_BCO

      MOVE: /pws/zycie006-nrseq_pgfat      TO /pws/zyglt209-nrseq,

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_BCO

      PERFORM carrega_log USING '/PWS/ZYCIT129' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      MOVE: /pws/zycie006-nrseq_pgfat TO /pws/zyglt209-nrseq,

* << Fim da inclusão

            'IP'                      TO /pws/zyglt209-mdcorresp,

            itab_zycit129-bcointerm   TO /pws/zyglt209-bcointerm,

            itab_zycit129-contcor     TO /pws/zyglt209-contcor,

            'D'                       TO /pws/zyglt209-codmod,

* >> Início da exclusão: FORM SALVAR_BCO

            /pws/zycie006-bcofav           TO /pws/zyglt209-bcofav.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVAR_BCO

            /pws/zycie006-bcofav      TO /pws/zyglt209-bcofav.

* << Fim da inclusão

      INSERT /pws/zyglt209.

* >> Início da inclusão: FORM SALVAR_BCO

      PERFORM carrega_log USING '/PWS/ZYGLT209' 'I'

                ' '  '/PWS/SAPMZYCB106' /pws/zyglt209-nrseq.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

  LOOP AT itab_zycit129_aux.

* >> Início da inclusão: FORM SALVAR_BCO

    MOVE-CORRESPONDING itab_zycit129_aux TO /pws/zycit129.

    PERFORM carrega_log USING '/PWS/ZYCIT129' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    DELETE FROM /pws/zycit129 WHERE nrseq  = itab_zycit129_aux-nrseq

                           AND codint = itab_zycit129_aux-codint.

  ENDLOOP.

ENDFORM.

...

...

FORM cria_remessa.

* >> Início da inclusão: FORM CRIA_REMESSA

  DATA: lt_zycit263 TYPE /pws/zycit263 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: v_count LIKE /pws/zycbt124-nrseq.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs                = /pws/zycie006-bukrs

            v_date                 = /pws/zycie006-dtlanc

       IMPORTING

            v_year                 = v_ano

       EXCEPTIONS

            variante_de_exercicio  = 1

            data_nao_encontrada    = 2

...

...

      IF /pws/zycie006-nrseqre IS INITIAL.

        PERFORM busca_sequencialre.

        INSERT /pws/zycbt124 .

        WHILE sy-subrc NE 0.

          PERFORM busca_sequencialre.

        ENDWHILE.

        /pws/zycie006-nrseqre = /pws/zycbt124-nrseq.

        v_count =  /pws/zycbt124-nrseq+1(9).

        CONCATENATE v_count 'I' INTO  /pws/zycie006-nrseq_pgfat.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM CRIA_REMESSA

        SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006

           WHERE nrseq = /pws/zycie006-nrseq.

        IF sy-subrc EQ 0.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ELSE.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDIF.

        PERFORM carrega_log USING '/PWS/ZYCBT124' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

* << Fim da inclusão

      ELSE.

        SELECT SINGLE * FROM /pws/zycbt124

          WHERE nrseq = /pws/zycie006-nrseqre.

      ENDIF.

      READ TABLE itab_zycit003 INDEX 1.

      IF NOT /pws/zycie006-belnr_p IS INITIAL.

        READ TABLE itab_zycbe033 INDEX 1.

        MOVE:

           /pws/zycie006-nrfat      TO /pws/zycbt124-nrfech      ,

           /pws/zycie006-bukrs      TO /pws/zycbt124-bukrs       ,

...

...

        'D'                      TO /pws/zycbt124-criacao     ,

        'F'                      TO /pws/zycbt124-tprecrem    ,

        itab_zycit003-gsber    TO /pws/zycbt124-gsber       ,

        itab_zycit003-werks      TO /pws/zycbt124-werks       ,

        '001'                    TO /pws/zycbt124-buzei       .

        /pws/zycbt124-vlmi = /pws/zycbt124-vlme * v_kursf     .

        CONCATENATE /pws/zycie006-belnr_p /pws/zycie006-bukrs

          v_ano INTO v_awkey.

        MOVE v_awkey TO /pws/zycbt124-nrfat       .

        MODIFY /pws/zycbt124 FROM /pws/zycbt124.

* >> Início da inclusão: FORM CRIA_REMESSA

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

           WHERE nrseq = /pws/zycbt124-nrseq.

        IF sy-subrc EQ 0.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ELSE.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ENDIF.

* << Fim da inclusão

        LOOP AT itab_zycbt035 WHERE bschl EQ '40'.

          CLEAR /pws/zycbt141.

          MOVE:

            /pws/zycie006-nrseqre     TO /pws/zycbt141-nrseq       ,

            itab_zycbt035-d_newko     TO /pws/zycbt141-saknr1      ,

            itab_zycbt035-d_kostl     TO /pws/zycbt141-kostl       ,

            itab_zycbt035-d_prctr     TO /pws/zycbt141-prctr       ,

            itab_zycbt035-aufnr       TO /pws/zycbt141-aufnr       ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_psp_pnr  .

          IF NOT /pws/zycie006-ps_psp_pnr IS INITIAL.

            MOVE:

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_posid  .

          ENDIF.

          MOVE:

            itab_zycbt035-d_fipos     TO /pws/zycbt141-fipos       ,

            itab_zycbt035-d_fictr     TO /pws/zycbt141-fictr       ,

            itab_zycbt035-d_gsber     TO /pws/zycbt141-gsber       ,

            text-175                  TO /pws/zycbt141-tpimp       ,

            itab_zycbt035-wrbtr       TO /pws/zycbt141-vlremessa   .

          MODIFY /pws/zycbt141 FROM /pws/zycbt141.

* >> Início da inclusão: FORM CRIA_REMESSA

          SELECT SINGLE * FROM /pws/zycbt141 INTO /pws/zycbt141

             WHERE nrseq = /pws/zycbt141-nrseq

               AND saknr1 = /pws/zycbt141-saknr1

               AND kostl = /pws/zycbt141-kostl

               AND prctr = /pws/zycbt141-prctr

               AND aufnr = /pws/zycbt141-aufnr

               AND ps_psp_pnr = /pws/zycbt141-ps_psp_pnr

               AND fipos = /pws/zycbt141-fipos

               AND fictr = /pws/zycbt141-fictr

               AND gsber = /pws/zycbt141-gsber

               AND tpimp = /pws/zycbt141-tpimp

               AND ps_posid = /pws/zycbt141-ps_posid

               AND ebeln = /pws/zycbt141-ebeln

               AND ebelp = /pws/zycbt141-ebelp

               AND nplnr = /pws/zycbt141-nplnr

               AND item = /pws/zycbt141-item.

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCBT141' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt141-nrseq.

          ELSE.

            PERFORM carrega_log USING '/PWS/ZYCBT141' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt141-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDLOOP.

      ENDIF.

    ENDIF.

  ELSE.

    CLEAR /pws/zycbt124.

    IF NOT itab_zycit132-vlparc IS INITIAL.

      IF itab_zycit132-nrseqre IS INITIAL.

        PERFORM busca_sequencialre.

        INSERT /pws/zycbt124 .

        WHILE sy-subrc NE 0.

          PERFORM busca_sequencialre.

        ENDWHILE.

        itab_zycit132-nrseqre = /pws/zycbt124-nrseq.

        v_count =  /pws/zycbt124-nrseq+1(9).

        CONCATENATE v_count 'I' INTO  /pws/zycie006-nrseq_pgfat.

        CONCATENATE v_count 'I' INTO  itab_zycit132-nrseq_pgfat.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM CRIA_REMESSA

        SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006

           WHERE nrseq = /pws/zycie006-nrseq.

        IF sy-subrc EQ 0.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      ELSE.

* >> Início da inclusão: FORM CRIA_REMESSA

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDIF.

        PERFORM carrega_log USING '/PWS/ZYCBT124' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

      ELSE.

* << Fim da inclusão

        SELECT SINGLE * FROM /pws/zycbt124

...

...

           'D'                      TO /pws/zycbt124-criacao     ,

           'F'                      TO /pws/zycbt124-tprecrem    ,

           itab_zycbe033-c_gsber    TO /pws/zycbt124-gsber       ,

           itab_zycit003-werks      TO /pws/zycbt124-werks       ,

           '001'                    TO /pws/zycbt124-buzei       .

        /pws/zycbt124-vlmi = /pws/zycbt124-vlme * v_kursf     .

        CONCATENATE itab_zycit132-belnr_p /pws/zycie006-bukrs

          v_ano INTO v_awkey.

        MOVE v_awkey TO /pws/zycbt124-nrfat       .

        MODIFY /pws/zycbt124 FROM /pws/zycbt124.

* >> Início da inclusão: FORM CRIA_REMESSA

        SELECT SINGLE * FROM /pws/zycbt124 INTO /pws/zycbt124

           WHERE nrseq = /pws/zycbt124-nrseq.

        IF sy-subrc EQ 0.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ELSE.

          PERFORM carrega_log USING '/PWS/ZYCBT124' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt124-nrseq.

        ENDIF.

* << Fim da inclusão

        LOOP AT itab_zycbt035 WHERE bschl EQ '40'.

          CLEAR /pws/zycbt141.

          MOVE:

            itab_zycit132-nrseqre     TO /pws/zycbt141-nrseq       ,

            itab_zycbt035-d_newko     TO /pws/zycbt141-saknr1      ,

            itab_zycbt035-d_kostl     TO /pws/zycbt141-kostl       ,

            itab_zycbt035-d_prctr     TO /pws/zycbt141-prctr       ,

            itab_zycbt035-aufnr       TO /pws/zycbt141-aufnr       ,

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_psp_pnr  .

          IF NOT /pws/zycie006-ps_psp_pnr IS INITIAL.

            MOVE:

            /pws/zycie006-ps_psp_pnr  TO /pws/zycbt141-ps_posid  .

          ENDIF.

          MOVE:

            itab_zycbt035-d_fipos     TO /pws/zycbt141-fipos       ,

            itab_zycbt035-d_fictr     TO /pws/zycbt141-fictr       ,

            itab_zycbt035-d_gsber     TO /pws/zycbt141-gsber       ,

            text-175                  TO /pws/zycbt141-tpimp       ,

            itab_zycbt035-wrbtr       TO /pws/zycbt141-vlremessa   .

          MODIFY /pws/zycbt141 FROM /pws/zycbt141.

* >> Início da inclusão: FORM CRIA_REMESSA

          SELECT SINGLE * FROM /pws/zycbt141 INTO /pws/zycbt141

             WHERE nrseq = /pws/zycbt141-nrseq

               AND saknr1 = /pws/zycbt141-saknr1

               AND kostl = /pws/zycbt141-kostl

               AND prctr = /pws/zycbt141-prctr

               AND aufnr = /pws/zycbt141-aufnr

               AND ps_psp_pnr = /pws/zycbt141-ps_psp_pnr

               AND fipos = /pws/zycbt141-fipos

               AND fictr = /pws/zycbt141-fictr

               AND gsber = /pws/zycbt141-gsber

               AND tpimp = /pws/zycbt141-tpimp

               AND ps_posid = /pws/zycbt141-ps_posid

               AND ebeln = /pws/zycbt141-ebeln

               AND ebelp = /pws/zycbt141-ebelp

               AND nplnr = /pws/zycbt141-nplnr

               AND item = /pws/zycbt141-item.

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCBT141' 'U'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt141-nrseq.

          ELSE.

            PERFORM carrega_log USING '/PWS/ZYCBT141' 'I'

                ' '  '/PWS/SAPMZYCA109' /pws/zycbt141-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDLOOP.

      ENDIF.

    ENDIF.

  ENDIF.

* >> Início da inclusão: FORM CRIA_REMESSA

  SELECT * FROM /pws/zycit263 INTO TABLE lt_zycit263

   WHERE nrseq = itab_zycit003-nrseq

     AND ebeln = itab_zycit003-ebeln

     AND ebelp = itab_zycit003-ebelp

     AND eliminado EQ space.

  LOOP AT lt_zycit263.

    MOVE-CORRESPONDING lt_zycit263 TO /pws/zycit263.

    PERFORM carrega_log USING '/PWS/ZYCIT263' 'D'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

  ENDLOOP.

* << Fim da inclusão

  DELETE FROM /pws/zycit263

   WHERE nrseq = itab_zycit003-nrseq

   AND   ebeln = itab_zycit003-ebeln

   AND   ebelp = itab_zycit003-ebelp

   AND   eliminado EQ space.

  PERFORM fill_nrseq_pgfat.

ENDFORM.

...

...

FORM fill_nrseq_pgfat.

* >> Início da inclusão: FORM FILL_NRSEQ_PGFAT

  DATA: lt_zycit263 TYPE /pws/zycit263 OCCURS 0 WITH HEADER LINE.

  CLEAR: /pws/zycit263.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit263 INTO TABLE lt_zycit263

       FOR ALL ENTRIES IN itab_zycit003

       WHERE nrseq = itab_zycit003-nrseq

         AND ebeln = itab_zycit003-ebeln

         AND ebelp = itab_zycit003-ebelp

         AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

  ENDIF.

* << Fim da inclusão

  IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).

    LOOP AT itab_zycit003.

      /pws/zycit263-nrseq       = itab_zycit003-nrseq.

      /pws/zycit263-ebeln       = itab_zycit003-ebeln.

      /pws/zycit263-ebelp       = itab_zycit003-ebelp.

      /pws/zycit263-nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

      /pws/zycit263-qtd_iten    = itab_zycit003-toinv.

      /pws/zycit263-meins       = itab_zycit003-meins.

      /pws/zycit263-vlreal      = itab_zycit003-vlreal.

      /pws/zycit263-vlfre_fat   = itab_zycit003-vlfre_fat.

      /pws/zycit263-vlseg_fat   = itab_zycit003-vlseg_fat.

      /pws/zycit263-waers_real  = itab_zycit003-waers_real.

      /pws/zycit263-ntgew       = itab_zycit003-ntgew.

      /pws/zycit263-gewei       = itab_zycit003-gewei.

      MODIFY /pws/zycit263.

* >> Início da inclusão: FORM FILL_NRSEQ_PGFAT

      READ TABLE lt_zycit263 WITH KEY nrseq = itab_zycit003-nrseq

                                      ebeln = itab_zycit003-ebeln

                                      ebelp = itab_zycit003-ebelp

                                nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

      IF sy-subrc EQ 0.

        PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT263' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ENDLOOP.

    LOOP AT itab_mensagens.

      MESSAGE i061 WITH itab_mensagens-mensagem(50)

                        itab_mensagens-mensagem+50(50)

                        itab_mensagens-mensagem+100(50)

                        itab_mensagens-mensagem+150(50).

    ENDLOOP.

    REFRESH itab_mensagens.

  ENDIF.

ENDFORM.

...

...

            AND eliminado = space.

    IF NOT itab_zycit263[] IS INITIAL.

      REFRESH itab_fat_temp.

      LOOP AT itab_zycit263.

        itab_fat_temp-nrseq_pgfat = itab_zycit263-nrseq_pgfat.

        COLLECT itab_fat_temp.

      ENDLOOP.

      SELECT * FROM /pws/zycit006

        INTO TABLE itab_zycit006

        FOR ALL ENTRIES IN itab_fat_temp

* >> Início da exclusão: FORM CALC_VLREAL

        WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat. "#EC CI_NOFIELD

* << Fim da exclusão

* >> Início da inclusão: FORM CALC_VLREAL

        WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat.

* << Fim da inclusão

      LOOP AT itab_zycit263.

        v_tabix = sy-tabix.

        READ TABLE itab_zycit006 WITH KEY

             nrseq_pgfat = itab_zycit263-nrseq_pgfat

             eliminado   = space.

        IF sy-subrc NE 0.

          itab_zycit263-eliminado = 'X'.

          MODIFY itab_zycit263 INDEX v_tabix.

* >> Início da exclusão: FORM CALC_VLREAL

          MODIFY /pws/zycit263 FROM itab_zycit263 .

* << Fim da exclusão

* >> Início da inclusão: FORM CALC_VLREAL

          MODIFY /pws/zycit263 FROM itab_zycit263.

          MOVE-CORRESPONDING itab_zycit263 TO /pws/zycit263.

          PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        ENDIF.

      ENDLOOP.

      LOOP AT itab_zycit006.

        v_tabix = sy-tabix.

        READ TABLE itab_zycit263 WITH KEY

             nrseq_pgfat = itab_zycit006-nrseq_pgfat

             eliminado   = space.

        IF sy-subrc NE 0.

          itab_zycit006-eliminado = 'X'.

          MODIFY itab_zycit006 INDEX v_tabix.

* >> Início da exclusão: FORM CALC_VLREAL

          MODIFY /pws/zycit006 FROM itab_zycit006 .

* << Fim da exclusão

* >> Início da inclusão: FORM CALC_VLREAL

          MODIFY /pws/zycit006 FROM itab_zycit006.

          MOVE-CORRESPONDING itab_zycit006 TO /pws/zycit006.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        ENDIF.

      ENDLOOP.

      DELETE itab_zycit006 WHERE eliminado = 'X'.

      DELETE itab_zycit263 WHERE eliminado = 'X'.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit003.

    v_idx = sy-tabix.

    CLEAR: tqtd, tvlr, tntg, tfre, tseg.

    LOOP AT itab_zycit263 WHERE ebeln = itab_zycit003-ebeln AND

...

...

      IF /pws/zycie001-modalidade NE '02' AND

         itab_zycit003-servico    NE 'X'.

        itab_zycit003-ntgew     = tntg.

      ENDIF.

    ENDIF.

    itab_zycit003-vlreal    = tvlr / tqtd.

    MODIFY itab_zycit003 INDEX v_idx

                    TRANSPORTING ntgew vlseg_fat vlfre_fat vlreal.

  ENDLOOP.

  MODIFY /pws/zycit003 FROM TABLE itab_zycit003.

* >> Início da inclusão: FORM CALC_VLREAL

  LOOP AT itab_zycit003.

    MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit003.

    PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'

                ' '  '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.

  ENDLOOP.

* << Fim da inclusão

ENDFORM.

...

...

              lvlr = wa_zycie006_ini-vltotal - lt.

            ELSE.

              lvlr = ( it003-vlreal * it003-qtd_iten ) / ld *

                     wa_zycie006_ini-vltotal.

              lt = lt + lvlr.

            ENDIF.

          WHEN OTHERS.

            lvlr = ( it003-vlreal    * it003-toinv ) +

                     it003-vlfre_fat + it003-vlseg_fat.

        ENDCASE.

* >> Início da exclusão: FORM DELE_CUSTO

        PERFORM trata_decimais USING    itab_zycit036-waers

* << Fim da exclusão

* >> Início da inclusão: FORM DELE_CUSTO

        PERFORM trata_decimais USING itab_zycit036-waers

* << Fim da inclusão

                                 CHANGING lvlr.

        itab_zycit036-vlreal = itab_zycit036-vlreal - lvlr.

        DELETE FROM /pws/zycit036

                        WHERE nrseq  = it003-nrseq

                          AND ebeln  = it003-ebeln

                          AND ebelp  = it003-ebelp

                          AND codigo = pcodigo

                          AND origem = 'FAT'

                          AND nrseqori = /pws/zycie006-nrseq.

        IF ptype = 'X'.

          UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                           nrseq       = it003-nrseq AND

* >> Início da inclusão: FORM DELE_CUSTO

                           ebeln       = it003-ebeln AND

                           ebelp       = it003-ebelp AND

                           nrseq_pgfat = /pws/zycie006-nrseq.

          SELECT SINGLE * FROM /pws/zycit263 INTO /pws/zycit263

             WHERE nrseq       = it003-nrseq AND

* << Fim da inclusão

                           ebeln       = it003-ebeln AND

                           ebelp       = it003-ebelp AND

                           nrseq_pgfat = /pws/zycie006-nrseq.

* >> Início da inclusão: FORM DELE_CUSTO

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      IF sy-subrc NE 0.

        DELETE FROM /pws/zycit036

* >> Início da exclusão: FORM DELE_CUSTO

        WHERE codigo = pcodigo

          AND origem = 'FAT'

         AND nrseqori = /pws/zycie006-nrseq.            "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM DELE_CUSTO

        WHERE codigo   = pcodigo

          AND origem   = 'FAT'

          AND nrseqori = /pws/zycie006-nrseq.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    IF sy-subrc NE 0.

      DELETE FROM /pws/zycit036

      WHERE codigo = pcodigo

        AND origem = 'FAT'

* >> Início da exclusão: FORM DELE_CUSTO

       AND nrseqori = /pws/zycie006-nrseq.              "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM DELE_CUSTO

       AND nrseqori = /pws/zycie006-nrseq.

* << Fim da inclusão

    ENDIF.

  ELSEIF /pws/zycie006-tpfatura EQ '11'.

    IF NOT itab_zycit003[] IS INITIAL.

      SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036

               FOR ALL ENTRIES IN itab_zycit003 WHERE

               nrseq  = itab_zycit003-nrseq AND

               ebeln  = itab_zycit003-ebeln AND

               ebelp  = itab_zycit003-ebelp AND

               codigo = pcodigo AND

               nrseqori = /pws/zycie006-nrseq AND

...

...

                          AND ebelp  = it003-ebelp

                          AND codigo = pcodigo

                          AND origem = 'FAT'

                          AND nrseqori = /pws/zycie006-nrseq.

        IF ptype = 'X'.

          UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                           nrseq       = it003-nrseq AND

                           ebeln       = it003-ebeln AND

                           ebelp       = it003-ebelp AND

                           nrseq_pgfat = /pws/zycie006-nrseq.

* >> Início da inclusão: FORM DELE_CUSTO

          SELECT SINGLE * FROM /pws/zycit263 INTO /pws/zycit263

             WHERE nrseq       = it003-nrseq AND

                   ebeln       = it003-ebeln AND

                   ebelp       = it003-ebelp AND

                   nrseq_pgfat = /pws/zycie006-nrseq.

          IF sy-subrc EQ 0.

            PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      IF sy-subrc NE 0.

        DELETE FROM /pws/zycit036

        WHERE codigo = pcodigo

          AND origem = 'FAT'

* >> Início da exclusão: FORM DELE_CUSTO

         AND nrseqori = /pws/zycie006-nrseq.            "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM DELE_CUSTO

         AND nrseqori = /pws/zycie006-nrseq.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    IF sy-subrc NE 0.

      DELETE FROM /pws/zycit036

      WHERE codigo = pcodigo

        AND origem = 'FAT'

* >> Início da exclusão: FORM DELE_CUSTO

       AND nrseqori = /pws/zycie006-nrseq.              "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM DELE_CUSTO

       AND nrseqori = /pws/zycie006-nrseq.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  IF ptype = 'X'.

    CLEAR /pws/zycie006.

  ENDIF.

  COMMIT WORK.

ENDFORM.

...

...

FORM fill_date_mr1m.

* >> Início da inclusão: FORM FILL_DATE_MR1M

  DATA: lv_status.

* << Fim da inclusão

  CLEAR :

         v_indice,

         v_iva(2),

         v_cont2 ,

         v_cont  ,

         v_year  ,

         v_belnr_mr1m,

         v_invoice ,

         v_gjahr   ,

         v_creditmemo,

...

...

              return           = itab_return.

    IF NOT  v_belnr_mr1m IS INITIAL.

      /pws/zycie006-belnr_mr1m = v_belnr_mr1m.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

           EXPORTING

                wait = 'X'.

      MESSAGE i010 WITH v_belnr_mr1m.

      /pws/zycie006-statusp_mr1m = 'C'.

      /pws/zycie006-dt_mr1m      = sy-datlo.

      v_mr1m_ok = 'S'.

* >> Início da inclusão: FORM FILL_DATE_MR1M

      CLEAR: lv_status.

      SELECT SINGLE * FROM /pws/zycit006

         WHERE nrseq =  /pws/zycie006-nrseq.

      IF sy-subrc EQ 0.

        lv_status = 'X'.

      ENDIF.

* << Fim da inclusão

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM FILL_DATE_MR1M

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      IF lv_status = 'X'.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    ELSE.

* >> Início da inclusão: FORM FILL_DATE_MR1M

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

    ELSE.

* << Fim da inclusão

      LOOP AT itab_return.

        CONCATENATE  itab_return-id itab_return-number

                     itab_return-message INTO v_mensagem

                    SEPARATED BY space.

        MESSAGE i061 WITH v_mensagem+0(50)

                          v_mensagem+50(50)

                          v_mensagem+100(50)

                          v_mensagem+150(50).

      ENDLOOP.

    ENDIF.

...

...

FORM fill_date_mb01.

* >> Início da inclusão: FORM FILL_DATE_MB01

  DATA: lv_status.

* << Fim da inclusão

  CLEAR itab_zycit031_aux.

  REFRESH itab_zycit031_aux.

  PERFORM get_parameters_mb01_receb.

  itab_zycie033-mandt = sy-mandt.

  itab_zycie033-tcode = 'MIGO'.

  itab_zycie033-tabela = '/PWS/ZYCIT006'.

  itab_zycie033-cpochv  = /pws/zycie006-nrseq.

  itab_zycie033-bldat   = sy-datum.

  itab_zycie033-budat   = sy-datum.

  itab_zycie033-bktxt   = /pws/zycie006-nrfat.

...

...

                                        cpochv = /pws/zycie006-nrseq

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        GET PARAMETER ID 'MBN' FIELD xmkpf-mblnr.

        itab_zycit032-belnr = xmkpf-mblnr.

        MESSAGE i010 WITH text-007 itab_zycit032-belnr.

        /pws/zycie006-statusp_mb01 = 'C'.

        /pws/zycie006-mblnr_mb01   = itab_zycit032-belnr.

        /pws/zycie006-dt_mb01      = sy-datlo.

        v_mb01_ok = 'S'.

* >> Início da inclusão: FORM FILL_DATE_MB01

        CLEAR: lv_status.

        SELECT SINGLE * FROM /pws/zycit006

           WHERE nrseq =  /pws/zycie006-nrseq.

        IF sy-subrc EQ 0.

          lv_status = 'X'.

        ENDIF.

* << Fim da inclusão

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM FILL_DATE_MB01

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        IF lv_status = 'X'.

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      ELSE.

* >> Início da inclusão: FORM FILL_DATE_MB01

          PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

        ENDIF.

      ELSE.

* << Fim da inclusão

        LOOP AT itab_zycit032.

          MESSAGE i015 WITH itab_zycit032-msg+0(50)

                            itab_zycit032-msg+50(50).

        ENDLOOP.

      ENDIF.

    ELSE.

      LOOP AT itab_zycit034.

        MESSAGE i016 WITH itab_zycit034-descricao.

      ENDLOOP.

    ENDIF.

...

...

FORM fill_date_f_51.

* >> Início da inclusão: FORM FILL_DATE_F_51

  DATA: lv_status.

* << Fim da inclusão

  CLEAR v_sede.

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI003'

                              'FAT013'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'FAT013' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

...

...

      IF sy-subrc = 0.

        READ TABLE itab_zycbt032 WITH KEY tcode  = v_trans

                                          tabela = '/PWS/ZYCIT006'

                                          cpochv = /pws/zycie006-nrseq

                                          tpmsg  = 'S'.

        IF sy-subrc EQ 0.

          MESSAGE i057 WITH itab_zycbt032-belnr.

          /pws/zycie006-statusp_f_51 = 'C'.

          /pws/zycie006-belnr_f_51  = itab_zycbt032-belnr.

          /pws/zycie006-dt_f_51     = sy-datum.

* >> Início da inclusão: FORM FILL_DATE_F_51

          CLEAR: lv_status.

          SELECT SINGLE * FROM /pws/zycit006

             WHERE nrseq =  /pws/zycie006-nrseq.

          IF sy-subrc EQ 0.

            lv_status = 'X'.

          ENDIF.

* << Fim da inclusão

          MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM FILL_DATE_F_51

          MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

          IF lv_status = 'X'.

            PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ELSE.

            PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

          ENDIF.

* << Fim da inclusão

          v_f_51_ok = 'S'.

          IF NOT itab_zycbt032-belnr IS INITIAL.

            PERFORM preenche_atribuicao_f51 USING

            itab_zycbt032-belnr /pws/zycie006-bukrs v_modo_bi.

          ENDIF.

        ELSE.

          LOOP AT itab_zycbt032.

            MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                              itab_zycbt032-msg+50(50).

          ENDLOOP.

...

...

                                        tabela = '/PWS/ZYCIT006'

                                        cpochv = /pws/zycie006-nrseq

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

        PERFORM fill_date_f_51_docs_miro.

        MESSAGE i030 WITH v_belnr_ant.

        CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

               /pws/zycie006-dt_mr1m.

        PERFORM clear_date_batch.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM REVERSE_DOCUMENT_MR8M

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        v_mr8m_ok = 'S'.

        CLEAR v_mr1m_ok.

      ELSE.

        LOOP AT itab_zycit032.

          MESSAGE i015 WITH itab_zycit032-msg+0(50)

                            itab_zycit032-msg+50(50).

        ENDLOOP.

        PERFORM clear_date_batch.

        PERFORM verifica_estorno_r3 CHANGING v_mr8m_ok

                                             v_answer.

...

...

    ENDIF.

  ELSE.

    IF NOT /pws/zycie006-mblnr_mb01 IS INITIAL

       AND /pws/zycit001-status_e   NE 'E'.

      PERFORM: reverse_documento_fisico_fbra,

               historico_recebimento USING /pws/zycie006-mblnr_mb01

                                           'MIGO'.

    ENDIF.

  ENDIF.

  MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ESTORNA_DOCUMENTOS

  MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

  PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

  COMMIT WORK AND WAIT.

  UPDATE /pws/zycit036 SET congelamov = ''

  WHERE nrseq = /pws/zycie001-nrseq

    AND origem = 'FAT'.

ENDFORM.

...

...

    CLEAR /pws/zycit270.

    /pws/zycit270-belnr     =  p_belnr.

    /pws/zycit270-bukrs     =  /pws/zycie006-bukrs.

    /pws/zycit270-gjahr     =  /pws/zycie006-dtincl(4).

    /pws/zycit270-programa  =  sy-repid.

    /pws/zycit270-nrseq     =  /pws/zycie006-nrseq.

    /pws/zycit270-embarca   =  /pws/zycie006-nrfat.

    /pws/zycit270-nrseqemb  =  itab_zycit003-nrseq.

    /pws/zycit270-tcode     =  sy-tcode.

    /pws/zycit270-dtestorno =  sy-datum.

* >> Início da exclusão: FORM HISTORICO_RECEBIMENTO

    IF p_documento     EQ 'F-51'.

      /pws/zycit270-compl     =  text-158.

* << Fim da exclusão

* >> Início da inclusão: FORM HISTORICO_RECEBIMENTO

    IF p_documento EQ 'F-51'.

      /pws/zycit270-compl =  text-158.

* << Fim da inclusão

    ELSEIF p_documento EQ 'MIGO'.

* >> Início da exclusão: FORM HISTORICO_RECEBIMENTO

      /pws/zycit270-compl     =  text-157.

* << Fim da exclusão

* >> Início da inclusão: FORM HISTORICO_RECEBIMENTO

      /pws/zycit270-compl =  text-157.

* << Fim da inclusão

    ELSEIF p_documento EQ 'MIRO'.

* >> Início da exclusão: FORM HISTORICO_RECEBIMENTO

      /pws/zycit270-compl     =  text-156.

* << Fim da exclusão

* >> Início da inclusão: FORM HISTORICO_RECEBIMENTO

      /pws/zycit270-compl =  text-156.

* << Fim da inclusão

    ENDIF.

    INSERT /pws/zycit270.

  ENDIF.

ENDFORM.

...

...

FORM atualiza_fb08_fat.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

  DATA: lt_zycbt108 TYPE /pws/zycbt108 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  PERFORM verifica_ano_contabil USING /pws/zycie006-dtlanc

                            CHANGING v_ano.

  IF v_parcela = 'X'.

    READ TABLE itab_zycbt032 WITH KEY tcode  = 'FB08'

                                      tabela = '/PWS/ZYCIT132'

                                      cpochv = /pws/zycie006-nrseq

                                      tpmsg  = 'S'.

    IF sy-subrc = 0.

      MESSAGE i030 WITH v_belnr_ant.

      IF okcode NE 'DELE'.

        CLEAR: /pws/zycie006-statusp , /pws/zycie006-belnr_p.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        v_rev = 'X'.

        PERFORM clear_date_batch.

        IF v_estorno IS INITIAL.

          IF itab_zycit132-mark NE 'X' AND itab_zycit132-status NE 'X'.

            PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

            PERFORM fill_date_f-43_f-02.

          ELSE.

            itab_zycit132-status = 'X'.

            MODIFY itab_zycit132.

            UPDATE /pws/zycbt108 SET status   = 'E'

                WHERE bukrs    = /pws/zycie006-bukrs

                  AND belnr    = /pws/zycie006-nrseq

                  AND gjahr    = v_ano

                  AND belnr_co = itab_zycit132-belnr_p.

            UPDATE /pws/zycbt119 SET status   = 'E'

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

               WHERE nrseq   = itab_zycit132-nrseq_pgfat.

            SELECT * FROM /pws/zycbt108 INTO TABLE lt_zycbt108

               WHERE  bukrs    = /pws/zycie006-bukrs

                  AND belnr    = /pws/zycie006-nrseq

                  AND gjahr    = v_ano

                  AND belnr_co = itab_zycit132-belnr_p.

            LOOP AT lt_zycbt108.

              MOVE-CORRESPONDING lt_zycbt108 TO /pws/zycbt108.

              PERFORM carrega_log USING '/PWS/ZYCBT108' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt108-nrseq_pgfat.

            ENDLOOP.

            SELECT SINGLE * FROM /pws/zycbt119 INTO /pws/zycbt119

* << Fim da inclusão

               WHERE nrseq   = itab_zycit132-nrseq_pgfat.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

            IF sy-subrc EQ 0.

              PERFORM carrega_log USING '/PWS/ZYCBT119' 'U'

                ' '  '/PWS/SAPMZYCB106' /pws/zycbt119-nrseq.

* << Fim da inclusão

          ENDIF.

        ENDIF.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

        ENDIF.

* << Fim da inclusão

      ELSE.

        itab_zycit132-status = 'X'.

        itab_zycit132-eliminado = 'X'.

        MODIFY itab_zycit132.

      ENDIF.

    ELSE.

      LOOP AT itab_zycbt032.

        MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                          itab_zycbt032-msg+50(50).

      ENDLOOP.

      PERFORM clear_date_batch.

      PERFORM verifica_estorno_r3 CHANGING v_erro

                                           v_answer.

      IF v_erro = 'S'.

        v_erro = 'X'.

        EXIT.

      ENDIF.

      IF v_answer = 'J'.

        CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        COMMIT WORK.

        PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

        itab_zycit132-status = 'X'.

        itab_zycit132-eliminado = 'X'.

      ELSE.

        v_erro = 'X'.

      ENDIF.

    ENDIF.

  ELSE.

    READ TABLE itab_zycbt032 WITH KEY tcode  = 'FB08'

                                      tabela = '/PWS/ZYCIT006'

                                      cpochv = /pws/zycie006-nrseq

                                      tpmsg  = 'S'.

    IF sy-subrc = 0.

      MESSAGE i030 WITH v_belnr_ant.

      IF okcode NE 'DELE'.

        CLEAR: /pws/zycie006-statusp , /pws/zycie006-belnr_p.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        PERFORM clear_date_batch.

        IF v_estorno IS INITIAL.

          PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

          PERFORM fill_date_f-43_f-02.

        ENDIF.

      ENDIF.

    ELSE.

      LOOP AT itab_zycbt032.

        MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                          itab_zycbt032-msg+50(50).

      ENDLOOP.

      PERFORM verifica_estorno_r3 CHANGING v_erro

                                           v_answer.

      IF v_erro = 'S'.

        v_erro = 'X'.

        EXIT.

      ENDIF.

      IF v_answer = 'J'.

        CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp.

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_FB08_FAT

        MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

        COMMIT WORK.

        PERFORM dele_custo USING /pws/zycit031-inco1_ci space.

        PERFORM fill_date_f-43_f-02.

      ELSE.

        v_erro = 'X'.

      ENDIF.

      /pws/zycie006 = wa_zycie006_ini.

    ENDIF.

  ENDIF.

ENDFORM.

...

...

    LOOP AT itab_zycbt032.

      MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                                          itab_zycbt032-msg+50(50).

    ENDLOOP.

    IF v_answer = 'J' AND v_fbra_ok = 'S'.

      CLEAR: /pws/zycie006-statusp_f_51,

             /pws/zycie006-belnr_f_51  ,

             /pws/zycie006-dt_f_51     .

      v_fb08_ok = 'S'.

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_FB08_REC

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    ENDIF.

    PERFORM clear_date_batch.

  ENDIF.

ENDFORM.

...

...

                                    cpochv = /pws/zycie006-nrseq

                                    tpmsg  = 'S'.

  IF sy-subrc EQ 0.

    PERFORM fill_date_f_51_docs_miro.

    MESSAGE i030 WITH v_belnr_ant.

    PERFORM historico_recebimento USING /pws/zycie006-belnr_mr1m

                                        'MIRO'.

    CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

           /pws/zycie006-dt_mr1m.

    MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_MR8M_FAT

    MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

    PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

    v_mr8m_ok = 'S'.

    CLEAR v_mr1m_ok.

  ELSE.

    LOOP AT itab_zycit032.

      MESSAGE i015 WITH itab_zycit032-msg+0(50)

                        itab_zycit032-msg+50(50).

    ENDLOOP.

    PERFORM verifica_estorno_r3 CHANGING v_mr8m_ok

                                         v_answer.

    IF v_answer = 'J'.

      PERFORM historico_recebimento USING /pws/zycie006-belnr_mr1m

                                          'MIRO'.

      CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

             /pws/zycie006-dt_mr1m.

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM ATUALIZA_MR8M_FAT

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

      v_mr8m_ok = 'S'.

    ENDIF.

  ENDIF.

ENDFORM.

...

...

FORM miro_am_la.

* >> Início da inclusão: FORM MIRO_AM_LA

  DATA: lv_status.

* << Fim da inclusão

  DATA: itab_zycit003a TYPE /pws/zycit003 OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF itab_ekko_a OCCURS 0.

  DATA: ebeln TYPE ekko-ebeln,

        knumv TYPE ekko-knumv.

  DATA: END OF itab_ekko_a.

* >> Início da exclusão: FORM MIRO_AM_LA

  TYPES: BEGIN OF mmcr_drseg_co.

          INCLUDE STRUCTURE cobl_mrm_d.

  TYPES: cr LIKE drseg_cr    OCCURS 0,

         unpl_refwr TYPE refwr,

         END OF mmcr_drseg_co.

  TYPES: BEGIN OF mmcr_drseg.

          INCLUDE STRUCTURE drseg.

  TYPES: cr LIKE drseg_cr OCCURS 0,

         co TYPE mmcr_drseg_co OCCURS 0,

         sm LIKE drseg_sm OCCURS 0,

         charact TYPE rbcharact_instance OCCURS 3,

         uebgmat  TYPE matnr,

         uebrblgp TYPE rblgp,

         selkz_db TYPE selkz,

         rblgp_old TYPE rblgp,

         END OF mmcr_drseg.

* << Fim da exclusão

  DATA:

        v_indice TYPE i,

        v_cont2 TYPE sy-tabix,

        v_cont TYPE sy-tabix,

        v_awkey TYPE bkpf-awkey,

        v_doc_miro TYPE bkpf-belnr,

        v_vltotal TYPE /pws/zycie006-vltotal,

        v_gross_amount TYPE /pws/zycit006-vlmerc.

  DATA: v_invoice TYPE rbkp-xrech,

        v_creditmemo TYPE rbkp-xrech.

...

...

                            WHERE belnr_p EQ space.

      ELSE.

        /pws/zycie006-statusp_mr1m = 'X'.

        /pws/zycie006-statusp = 'C'.

        /pws/zycie006-belnr_mr1m = v_belnr_mr1m.

        /pws/zycie006-belnr_p    = v_doc_miro.

        /pws/zycie006-dt_mr1m   = sy-datum.

        /pws/zycie006-dt_belnrp  = wa_headerdata-pstng_date.

        /pws/zycie006-hr_belnrp  = sy-uzeit.

      ENDIF.

* >> Início da inclusão: FORM MIRO_AM_LA

      CLEAR: lv_status.

      SELECT SINGLE * FROM /pws/zycit006

         WHERE nrseq =  /pws/zycie006-nrseq.

      IF sy-subrc EQ 0.

        lv_status = 'X'.

      ENDIF.

* << Fim da inclusão

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM MIRO_AM_LA

      MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

      IF lv_status = 'X'.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ELSE.

        PERFORM carrega_log USING '/PWS/ZYCIT006' 'I'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ELSE.

      LOOP AT itab_return.

        CONCATENATE  itab_return-id itab_return-number

                     itab_return-message INTO v_mensagem

                    SEPARATED BY space.

        IF /pws/zycie006-tpfatura = '01' AND

           sy-tcode EQ '/PWS/ZYCI003_C'.

          itab_mensagens-mensagem = v_mensagem.

          APPEND itab_mensagens.

        ELSE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F03

FORM dele_fatura_intercompany CHANGING v_del.

* >> Início da inclusão: FORM DELE_FATURA_INTERCOMPANY

  DATA: lt_zycit263 TYPE /pws/zycit263 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  PERFORM verifica_ano_contabil USING /pws/zycie006-dt_mr1m

                                CHANGING v_ano .

  SELECT SINGLE * FROM rbkp

            WHERE belnr EQ /pws/zycie006-belnr_mr1m

            AND   gjahr EQ v_ano.

  IF sy-subrc EQ 0 AND rbkp-stblg IS INITIAL.

    v_del = 'X' .

    MESSAGE i016 WITH text-213 text-214.

  ELSE.

* >> Início da inclusão: FORM DELE_FATURA_INTERCOMPANY

    IF NOT itab_zycit003[] IS INITIAL.

      CLEAR: lt_zycit263, lt_zycit263[].

      SELECT * FROM /pws/zycit263 INTO TABLE lt_zycit263

        FOR ALL ENTRIES IN itab_zycit003

        WHERE nrseq       = itab_zycit003-nrseq AND

              ebeln       = itab_zycit003-ebeln AND

              ebelp       = itab_zycit003-ebelp AND

              nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

    ENDIF.

* << Fim da inclusão

    LOOP AT itab_zycit003.

      UPDATE /pws/zycit263 SET eliminado   = 'X' WHERE

                nrseq       = itab_zycit003-nrseq AND

                ebeln       = itab_zycit003-ebeln AND

                ebelp       = itab_zycit003-ebelp AND

                nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

* >> Início da inclusão: FORM DELE_FATURA_INTERCOMPANY

      READ TABLE lt_zycit263 WITH KEY nrseq  = itab_zycit003-nrseq

                                       ebeln = itab_zycit003-ebeln

                                       ebelp = itab_zycit003-ebelp

                           nrseq_pgfat = /pws/zycie006-nrseq_pgfat.

      IF sy-subrc EQ 0.

        lt_zycit263-eliminado = 'X'.

        MOVE-CORRESPONDING lt_zycit263 TO /pws/zycit263.

        PERFORM carrega_log USING '/PWS/ZYCIT263' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

      ENDIF.

* << Fim da inclusão

    ENDLOOP.

    CLEAR: /pws/zycie006-belnr_p, /pws/zycie006-statusp,

           /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

           /pws/zycie006-dt_mr1m.

* >> Início da exclusão: FORM DELE_FATURA_INTERCOMPANY

    MODIFY /pws/zycit006 FROM /pws/zycie006.

* << Fim da exclusão

    /pws/zycie006-eliminado = 'X'.

    MODIFY /pws/zycit006 FROM /pws/zycie006.

    COMMIT WORK.

* >> Início da inclusão: FORM DELE_FATURA_INTERCOMPANY

    MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycit006.

    PERFORM carrega_log USING '/PWS/ZYCIT006' 'U'

                ' '  '/PWS/SAPMZYCI003' /pws/zycie006-nrseq.

* << Fim da inclusão

  ENDIF.

ENDFORM.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

    IF ( screen-name = '/PWS/ZYCIE003-VLREAL' OR

       screen-name = '/PWS/ZYCIE036-VLDIF' ) AND

       /pws/zycie006-tpfatura EQ '01'.

      READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.

      SELECT SINGLE * FROM /pws/zycit042

        WHERE nrseq  EQ /pws/zycit003-nrseq.            "#EC CI_NOFIRST

      IF sy-subrc EQ 0.

        screen-input = 0.

      ENDIF.

    ENDIF.

* >> Início da exclusão: MODULE SET_SCREEN_TC_0106

    IF v_existe_bol EQ 'X'.

* << Fim da exclusão

* >> Início da inclusão: MODULE SET_SCREEN_TC_0106

    IF v_existe_bol EQ 'X' AND

       screen-name NE 'ITAB_ZYCIT003-MARC'.

* << Fim da inclusão

      screen-input = '0'.

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003TOP

PROGRAM /pws/sapmzyci003 MESSAGE-ID /pws/zycim.

INCLUDE: /pws/mzyci003oo,

         /pws/zygli100,

         /pws/zygli101,

* >> Início da exclusão:

         /pws/mzyci003x01.

* << Fim da exclusão

* >> Início da inclusão:

         /pws/mzyci003x01,

         /pws/zygllog.

* << Fim da inclusão

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003X01

TABLES:

* >> Início da inclusão:

  /pws/zycit483,

* << Fim da inclusão

...

...

TABLES /pws/zycbt064.

* >> Início da inclusão:

type-pools: mmcr.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

...