CE PLUS - Nota 006371
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 11/04/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:47:50
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
Sintoma
o programa de valores mantidos no exterior não faz a devolução de valores.
Solução
Criar Funcionalidade para a devolução de pagamento antecipado de exportação recebido e mantido em
moeda estrangeira no exterior.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06371 Data: 11/04/2008 Hora: 11:03:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06371
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
05482 - 00002 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
05967 - 00003 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR - EXIT VME001
06218 - 00004 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DISPONIBILIDADE NO EXTERIOR
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB034
DOMA /PWS/ZYGLD579
DOMA /PWS/ZYGLD580
DTEL /PWS/ZYGLL1377
DTEL /PWS/ZYGLL1378
DYNP /PWS/SAPMZYCB034 0110
DYNP /PWS/SAPMZYCB034 0200
DYNP /PWS/SAPMZYGL007 0118
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034I01
REPS /PWS/MZYCB034O01
REPS /PWS/MZYCB034TOP
REPT /PWS/SAPMZYCB034
TABD /PWS/ZYCBT089
TABL /PWS/ZYCBE242
TABL /PWS/ZYCBT242
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB034
STATUS: 0200
ATRIBUTOS DE STATUS
TEXTO BREVE: Devolução de Ordem de Pagamento
CATEGORIA DE STATUS
(X) - STATUS DIÁLOGO
(_) - CAIXA DE DIÁLOGO
(_) - MENU DE CONTEXTO
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: NOVO
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Criar Devolução
NOME DE ÍCONE: ICON_CREATE
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: SALVAR
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Salvar dados e gravar contabilizações
NOME DE ÍCONE: ICON_SYSTEM_SAVE
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: ELIMINAR
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Eliminar Linha
NOME DE ÍCONE: ICON_DELETE_ROW
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: ESTORNAR
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Estornar Devolução
NOME DE ÍCONE: ICON_DELETE
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: NOOP
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Não alterar itens selecionados
NOME DE ÍCONE: ICON_SKIP
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: CANCEL
CATEGORIA DE FUNÇÃO: E
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Cancelar
NOME DE ÍCONE: ICON_CANCEL
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD579
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYGLD579
Descrição breve incluída (24 caracteres), idioma: EN
"Payment Order Sequential"
Descrição breve incluída (31 caracteres), idioma: PT
"GL - Nº SEQUENCIAL DA DEVOLUÇÃO"
Descrição breve incluída (31 caracteres), idioma: ES
"Secuencial del orden de lo pago"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 10
Comprimento de saída: 10
Rotina de conversão: ALPHA
Letras minúsculas: NÃO
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD580
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYGLD580
Descrição breve incluída (44 caracteres), idioma: PT
"GL -Taxa Devolução OP - Pagamento Antecipado"
Descrição breve incluída (29 caracteres), idioma: ES
"GL - Tasa del Contabilización"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 10
Comprimento de saída: 10
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "DTDEVOL"
Texto incluído, idioma: PT (33 caracteres):
"Taxa Cambial da Data da Devolução"
Incluído valor fixo "DTOP"
Texto incluído, idioma: PT (34 caracteres):
"Taxa Cambial da Ordem de Pagamento"
Incluído valor fixo "DTLANC"
Texto incluído, idioma: PT (34 caracteres):
"Taxa Cambial da data do lançamento"
Texto incluído, idioma: ES (28 caracteres):
"Tasa Cambial del Lanzamiento"
Incluído valor fixo "DTFECH"
Texto incluído, idioma: PT (33 caracteres):
"Taxa Cambial do Último Fechamento"
Texto incluído, idioma: ES (37 caracteres):
"Tasa Cambial del Último Encerramiento"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYGLL1377
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYGLL1377
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (43 caracteres), idioma: EN
"GL - Sequential Number- Amounts kept abroad"
Descrição breve incluída: (31 caracteres), idioma: PT
"GL - Nº SEQUENCIAL DA DEVOLUÇÃO"
Descrição breve incluída: (56 caracteres), idioma: ES
"GL - Nº Secuencial - los valores mantuvieron el exterior"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD579
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: EN
"Paym.Order"
Denominador breve incluído (9 caracteres), idioma: PT
"Devolução"
Denominador breve incluído (10 caracteres), idioma: ES
"Orden Pago"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (13 caracteres), idioma: EN
"Payment Order"
Denominador médio incluído (14 caracteres), idioma: PT
"Seq. Devolução"
Denominador médio incluído (14 caracteres), idioma: ES
"Orden del Pago"
Comprimento máximo do denominador longo: 23
Denominador longo incluído (18 caracteres), idioma: EN
"Payment Order Seq."
Denominador longo incluído (23 caracteres), idioma: PT
"Sequencial da Devolução"
Denominador longo incluído (21 caracteres), idioma: ES
"Sec. Orden de lo Pago"
Comprimento máximo do título: 31
Título incluído (24 caracteres), idioma: EN
"Payment Order Sequential"
Título incluído (30 caracteres), idioma: PT
"Numero Sequencial da Devolução"
Título incluído (31 caracteres), idioma: ES
"Secuencial del orden de lo pago"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYGLL1378
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYGLL1378
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (45 caracteres), idioma: PT
"GL - Taxa Devolução OP - Pagamento Antecipado"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD580
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Tx. Devol."
Comprimento máximo do denominador médio: 16
Denominador médio incluído (16 caracteres), idioma: PT
"Tx. Devolucao OP"
Comprimento máximo do denominador longo: 31
Denominador longo incluído (31 caracteres), idioma: PT
"Taxa Devolução OP - Pag. Antec."
Comprimento máximo do título: 40
Título incluído (40 caracteres), idioma: PT
"Taxa Devolução OP - Pagamento Antecipado"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0110
* Efetuado o download da tela 110 para arquivo, favor solicitar o arquivo.
MODIFICAR OKCODE ""
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BCO_ME" em tbl.contr./tabstr.
Coluna 23
MODIFICAR TEXTO "/PWS/ZYCBE226-BCO_ME" em tbl.contr./tabstr.
Coluna 23
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BCO_RECEBEDOR" em tbl.contr./tabstr
Coluna 25
MODIFICAR TEXTO "/PWS/ZYCBE226-BCO_RECEBEDOR" em tbl.contr./tabstr.
Coluna 25
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BELNR_COMPENS" em tbl.contr./tabstr
Coluna 32
MODIFICAR TEXTO "/PWS/ZYCBE226-BELNR_COMPENS" em tbl.contr./tabstr.
Coluna 32
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BELNR_DESMLIQAND" em tbl.contr./tab
Coluna 31
MODIFICAR TEXTO "/PWS/ZYCBE226-BELNR_DESMLIQAND" em tbl.contr./tabstr.
Coluna 31
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BELNR_DESM_CLI" em tbl.contr./tabst
Coluna 30
MODIFICAR TEXTO "/PWS/ZYCBE226-BELNR_DESM_CLI" em tbl.contr./tabstr.
Coluna 30
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BELNR_OP" em tbl.contr./tabstr.
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCBE226-BELNR_OP" em tbl.contr./tabstr.
Coluna 29
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-BUKRS" em tbl.contr./tabstr.
Coluna 8
MODIFICAR TEXTO "/PWS/ZYCBE226-BUKRS" em tbl.contr./tabstr.
Coluna 8
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-CONTA_CONTABIL" em tbl.contr./tabst
Coluna 33
MODIFICAR TEXTO "/PWS/ZYCBE226-CONTA_CONTABIL" em tbl.contr./tabstr.
Coluna 33
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DESCR_BCOME" em tbl.contr./tabstr.
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCBE226-DESCR_BCOME" em tbl.contr./tabstr.
Coluna 24
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DESCR_BCORECEB" em tbl.contr./tabst
Coluna 26
MODIFICAR TEXTO "/PWS/ZYCBE226-DESCR_BCORECEB" em tbl.contr./tabstr.
Coluna 26
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DESCR_KUNAG" em tbl.contr./tabstr.
Coluna 12
MODIFICAR TEXTO "/PWS/ZYCBE226-DESCR_KUNAG" em tbl.contr./tabstr.
Coluna 12
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DTCREDEXT" em tbl.contr./tabstr.
Coluna 19
MODIFICAR TEXTO "/PWS/ZYCBE226-DTCREDEXT" em tbl.contr./tabstr.
Coluna 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DTINCL" em tbl.contr./tabstr.
Coluna 21
MODIFICAR TEXTO "/PWS/ZYCBE226-DTINCL" em tbl.contr./tabstr.
Coluna 21
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DTLANCTO" em tbl.contr./tabstr.
Coluna 20
MODIFICAR TEXTO "/PWS/ZYCBE226-DTLANCTO" em tbl.contr./tabstr.
Coluna 20
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-DTLIMITE" em tbl.contr./tabstr.
Coluna 22
MODIFICAR TEXTO "/PWS/ZYCBE226-DTLIMITE" em tbl.contr./tabstr.
Coluna 22
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-GSBERF" em tbl.contr./tabstr.
Coluna 6
MODIFICAR TEXTO "/PWS/ZYCBE226-GSBERF" em tbl.contr./tabstr.
Coluna 6
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-J_1BBRANCH" em tbl.contr./tabstr.
Coluna 10
MODIFICAR TEXTO "/PWS/ZYCBE226-J_1BBRANCH" em tbl.contr./tabstr.
Coluna 10
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-KUNAG" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCBE226-KUNAG" em tbl.contr./tabstr.
Coluna 11
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-NREMB" em tbl.contr./tabstr.
Coluna 7
MODIFICAR TEXTO "/PWS/ZYCBE226-NREMB" em tbl.contr./tabstr.
Coluna 7
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-NRINVOIC" em tbl.contr./tabstr.
Coluna 4
MODIFICAR TEXTO "/PWS/ZYCBE226-NRINVOIC" em tbl.contr./tabstr.
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-NRPARCF" em tbl.contr./tabstr.
Coluna 5
MODIFICAR TEXTO "/PWS/ZYCBE226-NRPARCF" em tbl.contr./tabstr.
Coluna 5
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-NRSEQ" em tbl.contr./tabstr.
Coluna 3
MODIFICAR TEXTO "/PWS/ZYCBE226-NRSEQ" em tbl.contr./tabstr.
Coluna 3
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-OBS" em tbl.contr./tabstr.
Coluna 28
MODIFICAR TEXTO "/PWS/ZYCBE226-OBS" em tbl.contr./tabstr.
Coluna 28
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-REF_OP" em tbl.contr./tabstr.
Coluna 27
MODIFICAR TEXTO "/PWS/ZYCBE226-REF_OP" em tbl.contr./tabstr.
Coluna 27
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-SLD_ASSOCIAR" em tbl.contr./tabstr.
Coluna 18
MODIFICAR TEXTO "/PWS/ZYCBE226-SLD_ASSOCIAR" em tbl.contr./tabstr.
Coluna 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-SLD_EXTERIOR" em tbl.contr./tabstr.
Coluna 17
MODIFICAR TEXTO "/PWS/ZYCBE226-SLD_EXTERIOR" em tbl.contr./tabstr.
Coluna 17
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-SLD_TRANSFERIR" em tbl.contr./tabst
Coluna 15
MODIFICAR TEXTO "/PWS/ZYCBE226-SLD_TRANSFERIR" em tbl.contr./tabstr.
Coluna 15
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-STATUS" em tbl.contr./tabstr.
Coluna 35
MODIFICAR TEXTO "/PWS/ZYCBE226-STATUS" em tbl.contr./tabstr.
Coluna 35
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-TIPO_OP" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Coluna 2
Formato CHAR
Texto _
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-TP_CONTA" em tbl.contr./tabstr.
Coluna 34
MODIFICAR TEXTO "/PWS/ZYCBE226-TP_CONTA" em tbl.contr./tabstr.
Coluna 34
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-VLAVINC" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCBE226-VLAVINC" em tbl.contr./tabstr.
Coluna 14
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-VLR_EXTERIOR" em tbl.contr./tabstr.
Coluna 16
MODIFICAR TEXTO "/PWS/ZYCBE226-VLR_EXTERIOR" em tbl.contr./tabstr.
Coluna 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-WAERS" em tbl.contr./tabstr.
Coluna 13
MODIFICAR TEXTO "/PWS/ZYCBE226-WAERS" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE226-WERKS" em tbl.contr./tabstr.
Coluna 9
MODIFICAR TEXTO "/PWS/ZYCBE226-WERKS" em tbl.contr./tabstr.
Coluna 9
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB034 0200
* Efetuado o download da tela 200 para arquivo, favor solicitar o arquivo.
INCLUIR CX.DIÁLOGO 0200
Descrição Devolução de Ordem de Pagamento
Tela seguinte 0200
Altura atual (linhas) 14
Largura atual (colunas) 94
INCLUIR CONTROLE DE TABELA "TC_DEVOLUCAO"
Altura 14
Comprimento Visível 94
Linha 1
Coluna 2
INCLUIR TEXTO "/PWS/ZYCBE242-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 2
Formato CHAR
Texto Seq. Devolução
INCLUIR TEXTO "/PWS/ZYCBE242-NRSEQOP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 18
Linha 1
Coluna 3
Formato CHAR
Texto Ordem de Pagamento
INCLUIR TEXTO "/PWS/ZYCBE242-NRDEVOLUCAO" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 12
Linha 1
Coluna 4
Formato CHAR
Texto Nº Devolução
INCLUIR TEXTO "/PWS/ZYCBE242-DTDEVOLUCAO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 17
Linha 1
Coluna 5
Formato CHAR
Texto Data da Devolução
INCLUIR TEXTO "/PWS/ZYCBE242-VLDEVOLUCAO" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 15
Linha 1
Coluna 6
Formato CHAR
Texto Valor Devolução
INCLUIR TEXTO "/PWS/ZYCBE226-BUKRS" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 15
Linha 1
Coluna 7
Formato CHAR
Texto Empresa
INCLUIR TEXTO "/PWS/ZYCBE226-J_1BBRANCH" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 15
Linha 1
Coluna 8
Formato CHAR
Texto Local negócio
INCLUIR TEXTO "/PWS/ZYCBE242-BELNR" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 9
Formato CHAR
Texto Nº documento
INCLUIR TEXTO "/PWS/ZYCBE242-DTLANCTO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 10
Formato CHAR
Texto Data lançamento
INCLUIR TEXTO "/PWS/ZYCBE226-BCO_ME" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 11
Formato CHAR
Texto Banco C/C ME
INCLUIR TEXTO "/PWS/ZYCBE242-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 12
Formato CHAR
Texto Moeda
INCLUIR TEXTO "/PWS/ZYCBE226-KUNAG" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 13
Formato CHAR
Texto Emissor ordem
INCLUIR TEXTO "/PWS/ZYCBE226-SLD_EXTERIOR" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 20
Linha 1
Coluna 14
Formato CHAR
Texto Sld. Retido Exterior
INCLUIR TEXTO "/PWS/ZYCBE226-SLD_ASSOCIAR" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 15
Formato CHAR
Texto Saldo à Associar
INCLUIR TEXTO "/PWS/ZYCBE242-BELNR_DESM_OP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 41
Linha 1
Coluna 16
Formato CHAR
Texto Doc. Desmembramento da Ordem de Pagamento
INCLUIR TEXTO "/PWS/ZYCBE242-DTLANCTO_OP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 17
Formato CHAR
Texto Data lançamento
INCLUIR TEXTO "/PWS/ZYCBE242-BELNR_COMP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 16
Linha 1
Coluna 18
Formato CHAR
Texto Doc. Compensação
INCLUIR TEXTO "/PWS/ZYCBE242-DTLANCTO_COMP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 19
Formato CHAR
Texto Data lançamento
INCLUIR CAIXA DE VERIFICAÇÃO "V_MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
INCLUIR CAMPO TEXTO "V_ICONE" em tbl.contr./tabstr.
Altura 2
Comprimento Visível 132
Linha 1
Coluna 1
Formato CHAR
Texto _______________________________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-NRSEQ" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 2
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-NRSEQOP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-NRDEVOLUCAO" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 30
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 30
Texto ______________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-DTDEVOLUCAO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 5
Formato DATE
Linhas mínimas 8
Texto __________
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-VLDEVOLUCAO" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 6
Formato CURR
Campo referência /PWS/ZYCBE242-WAERS
Linhas mínimas 13
Colunas mínimas 2
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-BUKRS" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 4
Linha 1
Coluna 7
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-J_1BBRANCH" em tbl.contr./tabstr.
Altura 4
Comprimento Visível 4
Linha 1
Coluna 8
Formato CHAR
Linhas mínimas 4
Texto ____
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-BELNR" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 9
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-DTLANCTO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 10
Formato DATE
Linhas mínimas 8
Texto __________
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-BCO_ME" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 11
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-WAERS" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 12
Formato CUKY
Linhas mínimas 5
Texto _____
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-KUNAG" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 13
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-SLD_EXTERIOR" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 14
Formato CURR
Campo referência /PWS/ZYCBE242-WAERS
Linhas mínimas 13
Colunas mínimas 2
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE226-SLD_ASSOCIAR" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 15
Formato CURR
Campo referência /PWS/ZYCBE242-WAERS
Linhas mínimas 13
Colunas mínimas 2
Texto ________________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-BELNR_DESM_OP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 16
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-DTLANCTO_OP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 17
Formato DATE
Linhas mínimas 8
Texto __________
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-BELNR_COMP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 18
Formato CHAR
Linhas mínimas 10
Texto __________
INCLUIR CAMPO TEXTO "/PWS/ZYCBE242-DTLANCTO_COMP" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 19
Formato DATE
Linhas mínimas 8
Texto __________
Código função
INCLUIR OKCODE "OK_CODE"
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0200
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE: screen,
verificar_linhas.
LOOP WITH CONTROL tc_devolucao.
MODULE preenche_tc_devolucao.
ENDLOOP.
MODULE:
exibe_msgs.
PROCESS AFTER INPUT.
LOOP WITH CONTROL tc_devolucao.
FIELD /pws/zycbe242-dtdevolucao
MODULE verifica_data_devolucao ON INPUT.
FIELD /pws/zycbe242-vldevolucao
MODULE: verifica_valor_devolucao ON INPUT.
MODULE atualiza_tc.
ENDLOOP.
MODULE: user_command,
user_command_exit AT EXIT-COMMAND.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYGL007 0118
* Efetuado o download da tela 118 para arquivo, favor solicitar o arquivo.
MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0118
Altura atual (linhas) 40
INCLUIR TEXTO "%#AUTOTEXT001"
Comprimento Visível 40
Linha 26
Coluna 2
Formato CHAR
Texto Taxa Devolução OP - Pagamento Antecipado
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCBT089-TX_DEVOL_OP"
Altura 27
Comprimento Visível 10
Linha 26
Coluna 45
Formato CHAR
Linhas mínimas 10
Texto __________
Código função
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0118
...
FIELD /pws/zycbt089-tx_cl_acc MODULE help_campos.
FIELD /pws/zycbt089-tx_desm_dev MODULE help_campos.
FIELD /pws/zycbt089-tx_liq_and MODULE help_campos.
FIELD /pws/zycbt089-tx_est_liq_and MODULE help_campos.
FIELD /pws/zycbt089-tx_desm_liq_and MODULE help_campos.
FIELD /pws/zycbt089-tx_cl_liq_and MODULE help_campos.
FIELD /pws/zycbt089-tx_c_ordem_pagto MODULE help_campos.
FIELD /pws/zycbt089-tx_est_ord_pagto MODULE help_campos.
FIELD /pws/zycbt089-tx_lanc_dispon MODULE help_campos.
FIELD /pws/zycbt089-tx_est_dispon MODULE help_campos.
* >> Início da inclusão:
FIELD /pws/zycbt089-tx_devol_op MODULE help_campos.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
FORM status_gui.
DEFINE define_titulo.
if sy-tcode = c_transacao_c.
set titlebar '0100' with '- '(020) 'Criar'(015).
elseif sy-tcode = c_transacao_a.
set titlebar '0100' with '- '(020) 'Alterar'(016).
elseif sy-tcode = c_transacao_e.
set titlebar '0100' with '- '(020) 'Exibir'(017).
endif.
END-OF-DEFINITION.
* >> Início da inclusão: FORM STATUS_GUI
DEFINE verifica_devolucao.
READ TABLE itab_zycbt226
WITH KEY tipo_op = c_pagamento_antecipado
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0 OR
( ts_principal-activetab NE c_tela_receb AND
ts_principal-activetab NE space ).
preenche_itab_status_exc 'SEL_DEVOL'.
ENDIF.
END-OF-DEFINITION.
* << Fim da inclusão
TYPES: BEGIN OF t_s_status_exc,
fcode TYPE rsmpe-func,
END OF t_s_status_exc,
t_t_status_exc TYPE TABLE OF t_s_status_exc WITH DEFAULT KEY.
DATA: wa_status_exc TYPE t_s_status_exc,
itab_status_exc TYPE t_t_status_exc.
DEFINE preenche_itab_status_exc.
wa_status_exc-fcode = &1.
append wa_status_exc to itab_status_exc.
END-OF-DEFINITION.
...
...
WHEN '0002'.
SET PF-STATUS '0001' EXCLUDING 'SPOS'.
SET TITLEBAR '0100' WITH '- '(020) 'Criar'(015).
WHEN '0100'.
CASE sy-tcode.
WHEN c_transacao_c.
preenche_itab_status_exc 'AEND'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MOVE_DATA'.
* >> Início da inclusão: FORM STATUS_GUI
preenche_itab_status_exc 'SEL_DEVOL'.
* << Fim da inclusão
WHEN c_transacao_a.
* >> Início da inclusão: FORM STATUS_GUI
verifica_devolucao.
* << Fim da inclusão
preenche_itab_status_exc 'AEND'.
preenche_itab_status_exc 'RECEB_TOT'.
WHEN c_transacao_e.
* >> Início da inclusão: FORM STATUS_GUI
verifica_devolucao.
* << Fim da inclusão
preenche_itab_status_exc 'RECEB_TOT'.
preenche_itab_status_exc 'MOVE_DATA'.
preenche_itab_status_exc 'ESTORNO'.
preenche_itab_status_exc 'NOOP'.
preenche_itab_status_exc 'MARK'.
preenche_itab_status_exc 'UNMARK'.
preenche_itab_status_exc 'DEL_LINE'.
preenche_itab_status_exc 'SAVE'.
ENDCASE.
SET PF-STATUS '0100' EXCLUDING itab_status_exc.
define_titulo.
* >> Início da inclusão: FORM STATUS_GUI
WHEN '0200'.
CASE sy-tcode.
WHEN c_transacao_e.
preenche_itab_status_exc 'NOVO'.
preenche_itab_status_exc 'SALVAR'.
preenche_itab_status_exc 'ELIMINAR'.
preenche_itab_status_exc 'ESTORNAR'.
preenche_itab_status_exc 'NOOP'.
ENDCASE.
SET PF-STATUS '0200' EXCLUDING itab_status_exc.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM trata_tela.
CASE sy-dynnr.
WHEN '0100'.
PERFORM trata_tela_0100.
WHEN '0120'.
PERFORM trata_tela_0120.
* >> Início da inclusão: FORM TRATA_TELA
WHEN '0150'.
PERFORM trata_tela_0150.
WHEN '0200'.
PERFORM trata_tela_0200.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM botao_especifico.
DATA: myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event,
v_icone TYPE iconname.
CLEAR : myevent.
REFRESH: myevent_tab.
IF itab_zyglt376[] IS INITIAL.
SELECT * FROM /pws/zyglt376 INTO TABLE itab_zyglt376
...
...
ts_principal-activetab = ok_code.
ELSEIF ok_code(6) EQ 'TAB130'.
ts_70-activetab = ok_code.
ENDIF.
ENDCASE.
ENDFORM.
FORM seleciona_parametros.
IF wa_controle-parametros_carregados IS INITIAL.
SELECT *
FROM /pws/zycbt007
* >> Início da exclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zycbt007."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zycbt007. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT *
FROM /pws/zycbt089
* >> Início da exclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zycbt089."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zycbt089. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT *
FROM /pws/zyglt009
* >> Início da exclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zyglt009."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
INTO TABLE itab_zyglt009. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ( ktosl = c_chave_oper OR
ktosl = c_chv_oper_fat )
AND ( codeven = c_codeven_op_emb OR
codeven = c_codeven_liqand OR
codeven = c_codeven_liqand_op OR
codeven = c_codeven_op_pagant ).
SELECT *
FROM /pws/zycbt009
INTO TABLE itab_zycbt009.
SELECT *
FROM /pws/zycbt011
INTO TABLE itab_zycbt011
* >> Início da exclusão: FORM SELECIONA_PARAMETROS
WHERE codmod = c_modulo."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARAMETROS
WHERE codmod = c_modulo. "#EC CI_NOFIRST
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = c_modulo
i_func = c_op
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
...
...
SELECT * FROM /pws/zycbt238
INTO TABLE itab_disp_00
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrseq = itab_zycbt226-nrseq
AND destino = c_00.
APPEND LINES OF itab_disp_00 TO itab_disp_ant.
IF NOT itab_disp_70[] IS INITIAL.
SELECT * FROM /pws/zycbt239
INTO TABLE itab_contrato
FOR ALL ENTRIES IN itab_disp_70
* >> Início da exclusão: FORM SELECIONA_OP
WHERE nrseq = itab_disp_70-nrseq."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
WHERE nrseq = itab_disp_70-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SORT itab_contrato BY nrseq dtdisp tpcontr ASCENDING.
APPEND LINES OF itab_contrato TO itab_contrato_ant.
ENDIF.
CLEAR:
v_indice.
LOOP AT itab_disp_70 ASSIGNING <fs_disp>.
v_indice = v_indice + 1.
LOOP AT itab_contrato ASSIGNING <fs_contrato>
WHERE nrseq = <fs_disp>-nrseq
AND destino = <fs_disp>-destino
AND dtdisp = <fs_disp>-dtdisp.
<fs_contrato>-indice = v_indice.
ENDLOOP.
<fs_disp>-indice = v_indice.
ENDLOOP.
ENDIF.
SELECT * FROM /pws/zycbt240
* >> Início da exclusão: FORM SELECIONA_OP
INTO TABLE itab_rendimentos."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_OP
INTO TABLE itab_rendimentos. "#EC CI_NOWHERE
* << Fim da inclusão
itab_rendimentos_ant = itab_rendimentos.
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>.
READ TABLE itab_zycbt017 INTO wa_zycbt017 WITH KEY
nrinvoic = <fs_zycbt226>-nrinvoic
gsberf = <fs_zycbt226>-gsberf
nrparcf = <fs_zycbt226>-nrparcf.
IF sy-subrc EQ '0'.
<fs_zycbt226>-vlavinc = wa_zycbt017-vlavinc.
ENDIF.
ENDLOOP.
...
...
CHECK wa_controle-msg_inicializada IS INITIAL.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
wa_controle-msg_inicializada = 'X'.
ENDFORM.
FORM message_store USING p_classe
p_tipo
p_msg1
p_msg2
p_msg3
p_msg4
* >> Início da exclusão: FORM MESSAGE_STORE
p_nro."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_STORE
p_nro. "#EC *
* << Fim da inclusão
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = p_classe
msgty = p_tipo
msgv1 = p_msg1
msgv2 = p_msg2
msgv3 = p_msg3
msgv4 = p_msg4
txtnr = p_nro
EXCEPTIONS
message_type_not_valid = 1
not_active = 2
* >> Início da exclusão: FORM MESSAGE_STORE
OTHERS = 3."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM MESSAGE_STORE
OTHERS = 3. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
else.
ENDIF.
ENDFORM.
FORM message_show USING value(p_limpa_msg) TYPE c.
DATA: v_num_messages TYPE sy-tabix.
CALL FUNCTION 'MESSAGES_COUNT'
IMPORTING
count = v_num_messages
EXCEPTIONS
...
...
ELSEIF opt_origem_pagantec = 'X' AND
opt_origem_embarque IS INITIAL.
IF <fs_cols>-screen-name = '/PWS/ZYCBE226-SLD_ASSOCIAR'.
<fs_cols>-invisible = '0'.
ENDIF.
ELSEIF ( opt_origem_embarque = 'X' AND
opt_origem_pagantec = 'X' ) OR
( opt_origem_embarque IS INITIAL AND
opt_origem_pagantec IS INITIAL ).
<fs_cols>-invisible = '0'.
* >> Início da inclusão: FORM TRATA_TELA_0100
ENDIF.
IF <fs_cols>-screen-name EQ '/PWS/ZYCBE226-TIPO_OP'.
<fs_cols>-invisible = '1'.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDFORM.
FORM trata_tela_0120.
DATA: v_linhas TYPE sy-tabix.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
DESCRIBE TABLE itab_disp_30 LINES v_linhas.
tc_30-lines = v_linhas.
LOOP AT SCREEN.
IF sy-tcode = c_transacao_e.
...
...
IF <fs_cols>-screen-group3 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group3 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da inclusão: FORM VERIFICA_AUTORIZACAO
FORM trata_tela_0200.
DATA: v_linhas TYPE sy-tabix.
FIELD-SYMBOLS: <fs_cols> TYPE cxtab_column.
DESCRIBE TABLE itab_devolucao LINES v_linhas.
tc_devolucao-lines = v_linhas.
LOOP AT SCREEN.
IF sy-tcode = c_transacao_e.
IF screen-group1 CA 'E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_devolucao-cols ASSIGNING <fs_cols>.
IF sy-tcode = c_transacao_e.
IF <fs_cols>-screen-group1 CA 'E'.
<fs_cols>-screen-input = 0.
ENDIF.
ELSEIF sy-tcode = c_transacao_a.
IF <fs_cols>-screen-group1 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group1 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ELSEIF sy-tcode = c_transacao_c.
IF opt_origem_pagantec = 'X'.
IF <fs_cols>-screen-group2 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group2 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
IF opt_origem_embarque = 'X'.
IF <fs_cols>-screen-group3 CA 'A'.
<fs_cols>-screen-input = 1.
ENDIF.
IF <fs_cols>-screen-group3 CA 'F'.
<fs_cols>-screen-input = 0.
ENDIF.
ENDIF.
ENDIF.
IF <fs_cols>-screen-name EQ '/PWS/ZYCBE242-DTLANCTO' OR
<fs_cols>-screen-name EQ '/PWS/ZYCBE242-DTLANCTO_OP' OR
<fs_cols>-screen-name EQ '/PWS/ZYCBE242-DTLANCTO_COMP'.
<fs_cols>-invisible = '1'.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
FORM verifica_autorizacao USING value(p_tipo).
DATA: p_oper(2) TYPE c,
wa_zycbt017 TYPE t_s_zycbt017.
FIELD-SYMBOLS <fs_zycbt226> TYPE t_s_zycbe226.
CASE p_tipo.
WHEN 'TCODE'.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD'
FIELD sy-tcode.
IF sy-subrc NE 0.
...
...
ENDFORM.
FORM paginacao_tc USING p_linhas
CHANGING p_top_line.
CASE ok_code.
WHEN 'P--'.
p_top_line = 1.
WHEN 'P-'.
p_top_line =
p_top_line - wa_controle-tc_linhas.
IF p_top_line LE 0.
* >> Início da exclusão: FORM PAGINACAO_TC
p_top_line = 1."#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM PAGINACAO_TC
p_top_line = 1. "#EC PORTABLE
* << Fim da inclusão
ENDIF.
WHEN 'P+'.
p_top_line =
p_top_line + wa_controle-tc_linhas.
IF p_top_line GE p_linhas.
* >> Início da exclusão: FORM PAGINACAO_TC
p_top_line = p_linhas."#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM PAGINACAO_TC
p_top_line = p_linhas. "#EC PORTABLE
* << Fim da inclusão
ENDIF.
WHEN 'P++'.
p_top_line = p_linhas.
ENDCASE.
ENDFORM.
FORM preenche_tc_op.
FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_zycbe226,
<fs_zycbt209> TYPE t_s_zycbt209.
DATA: wa_zycbt017 TYPE t_s_zycbt017,
wa_kna1 TYPE t_s_kna1,
...
...
ENDFORM.
FORM importa_selecao.
DATA:
wa_nrseq LIKE LINE OF s_nrseq,
v_param(20) TYPE c,
v_index(3) TYPE n,
v_contador(3) TYPE n.
CLEAR:
v_index,
v_contador.
* >> Início da exclusão: FORM IMPORTA_SELECAO
GET PARAMETER ID 'ZYCB034-QTD' FIELD v_index."#EC *
SET PARAMETER ID 'ZYCB034-QTD' FIELD space."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM IMPORTA_SELECAO
GET PARAMETER ID 'ZYCB034-QTD' FIELD v_index. "#EC *
SET PARAMETER ID 'ZYCB034-QTD' FIELD space. "#EC *
* << Fim da inclusão
wa_nrseq-sign = 'I'.
wa_nrseq-option = 'EQ'.
DO v_index TIMES.
CONCATENATE c_parametro v_contador INTO v_param.
GET PARAMETER ID v_param FIELD wa_nrseq-low.
SET PARAMETER ID v_param FIELD space.
APPEND wa_nrseq TO s_nrseq.
v_contador = v_contador + 1.
ENDDO.
ENDFORM.
FORM processamento.
DATA: v_excecao(01) TYPE c,
* >> Início da exclusão: FORM PROCESSAMENTO
wa_zycbt226 LIKE LINE OF itab_zycbt226,"#EC NEEDED
v_indice_226 TYPE sy-tabix."#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAMENTO
wa_zycbt226 LIKE LINE OF itab_zycbt226, "#EC NEEDED
v_indice_226 TYPE sy-tabix. "#EC NEEDED
* << Fim da inclusão
PERFORM: seleciona_op,
seleciona_dados,
armazena_dados_antigos.
LOOP AT itab_zycbt226 ASSIGNING <fs_op>.
v_indice_226 = sy-tabix.
IF <fs_op>-status = 'C'.
IF <fs_op>-operacao = 'E'.
READ TABLE itab_disp_30 WITH KEY nrseq = <fs_op>-nrseq
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
...
...
ENDFORM.
FORM preenche_campos_contab_exc
USING
value(p_bukrs) TYPE /pws/zycbt011-bukrs
value(p_ktosl) TYPE /pws/zyglt321-ktosl
value(p_codeven) TYPE /pws/zyglt321-codeven
value(p_desmemb) TYPE c
value(p_wa_zycbt226) TYPE t_s_zycbe226
value(p_wa_zycbt017) TYPE t_s_zycbt017
CHANGING
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
p_wa_zycbe033 TYPE t_s_zycbe033."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
p_wa_zycbe033 TYPE t_s_zycbe033. "#EC *
* << Fim da inclusão
CONSTANTS:
c_sgtxt(05) TYPE c VALUE 'SGTXT',
c_xblnr(05) TYPE c VALUE 'XBLNR',
c_zuonr(05) TYPE c VALUE 'ZUONR',
c_zfbdt(05) TYPE c VALUE 'ZFBDT',
c_valut(05) TYPE c VALUE 'VALUT',
c_nrinvoic(08) TYPE c VALUE 'NRINVOIC',
c_nremb(05) TYPE c VALUE 'NREMB',
c_nrseq(05) TYPE c VALUE 'NRSEQ',
c_ref(06) TYPE c VALUE 'REF_OP',
...
...
CASE p_tpcontab.
WHEN 'O'.
v_op = c_dtlanc.
CASE v_op.
WHEN c_dtlanc.
v_dt_taxa = p_dtlanc.
WHEN c_dtcredext.
v_dt_taxa = <fs_op>-dtcredext.
WHEN c_txfat.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt030 INTO wa_zycbt030
WITH KEY nrinvoic = <fs_op>-nrinvoic
gsberf = <fs_op>-gsberf
nrparcf = <fs_op>-nrparcf.
IF sy-subrc = 0.
CHECK ( NOT wa_zycbt030-belnr IS INITIAL OR
NOT wa_zycbt030-belnr_t IS INITIAL OR
NOT wa_zycbt030-belnr6 IS INITIAL ) AND
NOT wa_zycbt030-gjahr IS INITIAL.
...
...
gjahr = wa_zycbt030-gjahr(4).
ENDIF.
ENDIF.
IF sy-subrc = 0.
p_kursf = wa_bkpf-kursf.
ENDIF.
ENDIF.
ENDIF.
WHEN c_viatrans.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = p_nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = p_nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycit054 INTO wa_zycit054
WITH KEY vktra_ci = wa_zycet001-viatrans.
IF sy-subrc = 0.
CHECK NOT wa_zycit054-vktra IS INITIAL.
READ TABLE itab_zycet048 INTO wa_zycet048
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY vktrt = wa_zycit054-vktra."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY vktrt = wa_zycit054-vktra. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
IF wa_zycet048-dtvrc EQ wa_zycet048-dtvencto.
v_dt_taxa = wa_zycet001-kurrf_bl.
ELSE.
IF wa_zycet048-dtvrc EQ 'DTBL'.
READ TABLE itab_zycet047 INTO wa_zycet047
WITH KEY nrseq = wa_zycet001-nrseq.
IF sy-subrc = 0.
v_dt_taxa = wa_zycet047-dtbl.
ENDIF.
...
...
v_dt_taxa = wa_zycet001-dtaverb.
ELSEIF wa_zycet048-dtvrc EQ 'DTCRUZE'.
v_dt_taxa = wa_zycet001-dtcruze.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN c_dtemb.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
v_dt_taxa = wa_zycet001-dtemb.
ENDIF.
WHEN c_dtfech.
v_dt_taxa = <fs_op>-dtincl.
v_dt_taxa+6(2) = '01'.
v_dt_taxa = v_dt_taxa - 1.
v_dt_taxa = v_dt_taxa.
ENDCASE.
WHEN 'C'.
...
...
v_cli = wa_zycbt089-tx_desm_cli.
ELSE.
v_cli = wa_zycbt089-tx_cl_cli.
ENDIF.
CASE v_cli.
WHEN c_dtlanc.
v_dt_taxa = p_dtlanc.
WHEN c_dtfech.
READ TABLE itab_zycet001
WITH KEY nrseq = p_nrinvoic
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
wa_zycet001-dtemb+6(2) = '01'.
<fs_op>-dtcredext+6(2) = '01'.
IF wa_zycet001-dtemb EQ <fs_op>-dtcredext.
v_dt_taxa = wa_zycet001-dtemb.
ELSE.
v_dt_taxa = <fs_op>-dtincl.
v_dt_taxa+6(2) = '01'.
v_dt_taxa = v_dt_taxa - 1.
ENDIF.
ENDIF.
WHEN c_dtemb.
READ TABLE itab_zycet001
WITH KEY nrseq = p_nrinvoic
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
v_dt_taxa = wa_zycet001-dtemb.
ENDIF.
WHEN c_txfat.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt030 INTO wa_zycbt030 WITH KEY
nrinvoic = <fs_op>-nrinvoic
gsberf = <fs_op>-gsberf
nrparcf = <fs_op>-nrparcf.
IF sy-subrc = 0.
IF ( NOT wa_zycbt030-belnr IS INITIAL OR
NOT wa_zycbt030-belnr_t IS INITIAL OR
NOT wa_zycbt030-belnr6 IS INITIAL ) AND
NOT wa_zycbt030-gjahr IS INITIAL.
...
...
p_kursf = wa_bkpf-kursf.
CLEAR v_dt_taxa.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN c_viatrans OR
c_dtcontr.
READ TABLE itab_zycet001
WITH KEY nrseq = p_nrinvoic
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycit054
WITH KEY vktra_ci = wa_zycet001-viatrans
INTO wa_zycit054.
IF sy-subrc = 0.
IF NOT wa_zycit054-vktra IS INITIAL.
READ TABLE itab_zycet048
WITH KEY vktrt = wa_zycit054-vktra
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet048."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet048. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CASE wa_zycet048-dtvrc.
WHEN c_dtemb.
v_dt_taxa = wa_zycet001-dtemb.
WHEN c_dtaverb.
v_dt_taxa = wa_zycet001-dtaverb.
WHEN c_dtcruze.
v_dt_taxa = wa_zycet001-dtcruze.
ENDCASE.
ENDIF.
...
...
IF p_estorno IS INITIAL.
v_liqand = wa_zycbt089-tx_desm_liq_and.
ELSE.
v_liqand = wa_zycbt089-tx_cl_liq_and.
ENDIF.
CASE v_liqand.
WHEN c_dtlanc.
v_dt_taxa = p_dtlanc.
WHEN 'DTEMB'.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
v_dt_taxa = wa_zycet001-dtemb.
ENDIF.
WHEN 'DTFECH'.
READ TABLE itab_zycet001
WITH KEY nrseq = p_nrinvoic
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
wa_zycet001-dtemb+6(2) = '01'.
<fs_op>-dtcredext+6(2) = '01'.
IF wa_zycet001-dtemb EQ <fs_op>-dtcredext.
v_dt_taxa = wa_zycet001-dtemb.
ELSE.
v_dt_taxa = <fs_op>-dtincl.
v_dt_taxa+6(2) = '01'.
v_dt_taxa = v_dt_taxa - 1.
ENDIF.
ENDIF.
WHEN 'DTFECH1'.
READ TABLE itab_zycet001
WITH KEY nrseq = p_nrinvoic
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
INTO wa_zycet001. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
wa_zycet001-dtemb+6(2) = '01'.
<fs_op>-dtcredext+6(2) = '01'.
IF wa_zycet001-dtemb EQ <fs_op>-dtcredext.
v_dt_taxa = wa_zycet001-dtemb.
ELSE.
v_dt_taxa = <fs_op>-dtincl.
v_dt_taxa+6(2) = '01'.
ENDIF.
ENDIF.
WHEN 'VIATRANS'.
CLEAR wa_zycet048.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycit054 INTO wa_zycit054
WITH KEY vktra_ci = wa_zycet001-viatrans.
IF sy-subrc = 0.
IF NOT wa_zycit054-vktra IS INITIAL.
READ TABLE itab_zycet048 INTO wa_zycet048
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY vktrt = wa_zycit054-vktra."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY vktrt = wa_zycit054-vktra. "#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
IF wa_zycet048-dtvrc = wa_zycet048-dtvencto.
CLEAR v_dt_taxa.
p_kursf = wa_zycet001-kurrf_bl.
ELSE.
IF wa_zycet048-dtvrc EQ 'DTBL'.
READ TABLE itab_zycet047 INTO wa_zycet047
WITH KEY nrseq = wa_zycet001-nrseq.
IF sy-subrc = 0.
v_dt_taxa = wa_zycet047-dtbl.
...
...
ELSEIF wa_zycet048-dtvrc EQ 'DTCRUZE'.
v_dt_taxa = wa_zycet001-dtcruze.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN 'TXFAT'.
READ TABLE itab_zycet001 INTO wa_zycet001
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
WITH KEY nrseq = <fs_op>-nrinvoic. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt030 INTO wa_zycbt030
WITH KEY nrinvoic = <fs_op>-nrinvoic
gsberf = <fs_op>-gsberf
nrparcf = <fs_op>-nrparcf.
IF sy-subrc = 0.
IF NOT wa_zycbt030-belnr IS INITIAL AND
NOT wa_zycet001-dtemb IS INITIAL.
READ TABLE itab_bkpf INTO wa_bkpf
WITH KEY bukrs = <fs_op>-bukrs
...
...
p_bukrs
<fs_op>-waers
wa_zycbt007-waersb
v_dt_taxa
CHANGING
p_kursf.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_dados.
* >> Início da exclusão: FORM SELECIONA_DADOS
DATA: BEGIN OF itab_054 OCCURS 0,"#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
DATA: BEGIN OF itab_054 OCCURS 0, "#EC *
* << Fim da inclusão
mandt TYPE /pws/zycit054-mandt,
vktra_ci TYPE /pws/zycit054-vktra_ci,
vktra(2) TYPE n,
bezei TYPE /pws/zycit054-bezei,
codvias TYPE /pws/zycit054-codvias,
dtprescarga TYPE /pws/zycit054-dtprescarga,
nrdias TYPE /pws/zycit054-nrdias,
END OF itab_054.
SELECT modo descr
FROM /pws/zycbt039
* >> Início da exclusão: FORM SELECIONA_DADOS
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt039."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
IF NOT itab_zycbt226[] IS INITIAL.
SELECT *
FROM kna1
INTO TABLE itab_kna1
FOR ALL ENTRIES IN itab_zycbt226
WHERE kunnr = itab_zycbt226-kunag.
SELECT *
FROM lfa1
INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycbt226
...
...
AND nrparcf EQ wa_zycbt030-nrparcf.
ENDLOOP.
SELECT *
FROM bkpf
INTO CORRESPONDING FIELDS OF TABLE itab_bkpf
FOR ALL ENTRIES IN itab_zycbt030
WHERE ( belnr = itab_zycbt030-belnr OR
belnr = itab_zycbt030-belnr_t OR
belnr = itab_zycbt030-belnr6 )
AND bukrs = itab_zycbt030-bukrs
* >> Início da exclusão: FORM SELECIONA_DADOS
AND gjahr = itab_zycbt030-gjahr. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND gjahr = itab_zycbt030-gjahr. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT *
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
* >> Início da exclusão: FORM SELECIONA_DADOS
AND gsberf = itab_zycbt017-gsberf."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zyglt368
INTO TABLE itab_zyglt368
FOR ALL ENTRIES IN itab_zycbt017
WHERE bukrs = itab_zycbt017-bukrs.
ENDIF.
ENDFORM.
FORM busca_taxa USING
value(p_codeven) TYPE /pws/zycbt011-codeven
value(p_bukrs) TYPE t001-bukrs
...
...
READ TABLE itab_zycbt011
WITH TABLE KEY
codeven = p_codeven
codmod = c_modulo
bukrs = p_bukrs
ASSIGNING <fs_zycbt011>.
IF sy-subrc = 0.
READ TABLE itab_zycbt009
WITH TABLE KEY
codpadr = <fs_zycbt011>-ctmoed
* >> Início da exclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>. "#EC *
* << Fim da inclusão
ENDIF.
IF <fs_zycbt009> IS ASSIGNED.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = p_waersde
i_paramoeda = p_waerspara
i_ctmoeda = <fs_zycbt009>-kurst
i_dtbase = p_dtbase
IMPORTING
...
...
INTO wa_fat.
ENDFORM.
FORM busca_conta USING
value(p_bukrs) TYPE /pws/zycbt001-bukrs
value(p_kunnr) TYPE /pws/zycbt001-kunnr
value(p_sld_liq_and) TYPE wrbtr
value(p_wa_zycbt209) TYPE t_s_zycbt209
value(p_estorno) TYPE c
CHANGING
p_wa_zycbe033 TYPE t_s_zycbe033
* >> Início da exclusão: FORM BUSCA_CONTA
p_newbs2 TYPE newbs."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA
p_newbs2 TYPE newbs. "#EC *
* << Fim da inclusão
DEFINE atualiza_cmps_contabeis_op.
<fs_op>-tp_conta = &1.
<fs_op>-conta_contabil = &2.
<fs_op>-rze = &3.
END-OF-DEFINITION.
DATA:
wa_zyglt316 TYPE t_s_zyglt316,
wa_zycbt011 TYPE t_s_zycbt011,
v_codeven TYPE /pws/zycbt011-codeven,
v_banco TYPE /pws/zycbt226-bco_me.
...
...
ENDIF.
ENDIF.
IF <fs_op>-tipo_op = 'P'.
IF p_estorno IS INITIAL.
p_wa_zycbe033-newbs1 = '19'.
ELSE.
p_wa_zycbe033-newbs1 = '09'.
ENDIF.
p_wa_zycbe033-c_newko = <fs_op>-kunag.
p_wa_zycbe033-agkoa2 = 'D'.
* >> Início da exclusão: FORM BUSCA_CONTA
v_codeven = '001DP'.
* << Fim da exclusão
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
codeven = v_codeven
codmod = c_modulo
bukrs = p_bukrs.
IF sy-subrc NE 0.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH TABLE KEY
codeven = v_codeven
codmod = c_modulo
...
...
else.
endif.
SELECT SINGLE zuonr
FROM bseg
INTO wa_zycbe033-c_zuonr
WHERE bukrs = <fs_op>-bukrs AND
belnr = wa_zycbt030-belnr6 AND
gjahr = v_year AND
augbl = space AND
koart = 'D' AND
* >> Início da exclusão: FORM DOC_COMPENSACAO
buzei <= 2."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_COMPENSACAO
buzei <= 2. "#EC *
* << Fim da inclusão
APPEND wa_partidas TO itab_partidas.
ENDIF.
ENDIF.
IF v_desm_liqand = 'X'.
LOOP AT itab_zycbt209 INTO wa_zycbt209
WHERE nrinvoic = <fs_op>-nrinvoic
AND nrparcf = <fs_op>-nrparcf
AND gsberf = <fs_op>-gsberf.
LOOP AT itab_zycbt225 INTO wa_zycbt225
WHERE nrseq = <fs_op>-nrseq
...
...
else.
endif.
SELECT SINGLE zuonr
FROM bseg
INTO wa_zycbe033-c_zuonr
WHERE bukrs = wa_zycbt209-bukrs AND
belnr = wa_zycbt225-belnr_desmliqand AND
gjahr = v_year AND
augbl = space AND
koart = wa_zycbt209-koart AND
* >> Início da exclusão: FORM DOC_COMPENSACAO
buzei <= 2."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM DOC_COMPENSACAO
buzei <= 2. "#EC *
* << Fim da inclusão
APPEND wa_partidas TO itab_partidas.
ENDLOOP.
ENDLOOP.
ENDIF.
LOOP AT itab_partidas INTO wa_partidas.
PERFORM preenche_contas_bloqueio USING sy-mandt
<fs_op>-bukrs
wa_partidas-agkoa
wa_partidas-agkon(10)
'S'.
...
...
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
IF sy-subrc = 0.
else.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_EXCECOES
FORM verifica_excecoes CHANGING p_mensagens TYPE sy-tabix."#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXCECOES
FORM verifica_excecoes CHANGING p_mensagens TYPE sy-tabix. "#EC CALLED
* << Fim da inclusão
CALL FUNCTION 'MESSAGES_COUNT'
IMPORTING
count = p_mensagens
EXCEPTIONS
inconsistent_range = 1
inconsistent_range_severity = 2
OTHERS = 3.
IF sy-subrc = 0.
else.
ENDIF.
...
...
AND nrparcf = record_tab-string+23(2)
AND gsberf = record_tab-string+25(4).
endselect.
IF NOT v_pendcomm IS INITIAL.
MESSAGE i061 WITH text-029 record_tab-string+3(20) text-030.
CONTINUE.
ENDIF.
READ TABLE itab_invoice INTO wa_invoice
WITH KEY nrinvoic = record_tab-string+3(20)
nrparcf = record_tab-string+23(2)
* >> Início da exclusão: FORM GET_INVOICE
gsberf = record_tab-string+25(4)."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
gsberf = record_tab-string+25(4). "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
APPEND wa_invoice TO itab_invoice_aux.
ENDIF.
ENDLOOP.
LOOP AT itab_invoice_aux INTO wa_invoice.
IF sy-tabix > 1.
v_line = v_line + 1.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt017 INTO wa_zycbt017
WHERE nrinvoic = wa_invoice-nrinvoic
...
...
wa_moeda TYPE t_moeda,
itab_moeda TYPE TABLE OF t_moeda WITH DEFAULT KEY,
v_kursf TYPE tcurr-ukurs,
v_ctg_moeda TYPE /pws/zycbt011-ctmoed,
wa_zycbt009 TYPE t_s_zycbt009,
itab_226 TYPE t_t_zycbt226.
CHECK wa_controle-total_30_70 IS INITIAL.
CLEAR: v_total_30,
v_total_70.
SELECT * FROM /pws/zycbt226
* >> Início da exclusão: FORM CALCULA_TOTAL_DESTINO
INTO CORRESPONDING FIELDS OF TABLE itab_226."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL_DESTINO
INTO CORRESPONDING FIELDS OF TABLE itab_226. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_226 BY destino waers ASCENDING.
LOOP AT itab_226 INTO wa_zycbt226.
IF ( wa_zycbt226-destino NE v_destino AND
wa_zycbt226-waers NE v_moeda ) OR
( wa_zycbt226-destino = v_destino AND
wa_zycbt226-waers NE v_moeda ) OR
( wa_zycbt226-destino NE v_destino AND
wa_zycbt226-waers = v_moeda ).
CLEAR wa_moeda.
wa_moeda-destino = wa_zycbt226-destino.
...
...
IF p_moedag = 'X'.
v_ctg_moeda = 'G'.
ENDIF.
IF p_moedam = 'X'.
v_ctg_moeda = 'M'.
ENDIF.
IF p_moedab = 'X'.
v_ctg_moeda = 'B'.
ENDIF.
READ TABLE itab_zycbt009 INTO wa_zycbt009
* >> Início da exclusão: FORM CALCULA_TOTAL_DESTINO
WITH KEY codpadr = v_ctg_moeda."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAL_DESTINO
WITH KEY codpadr = v_ctg_moeda. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = '1'
i_demoeda = wa_moeda-waers
i_paramoeda = c_paramoeda
i_ctmoeda = wa_zycbt009-kurst
i_dtbase = sy-datum
IMPORTING
e_txc = v_kursf
...
...
p_dtlancto_est_f02 TYPE /pws/zycbt226-dtlancto.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
wa_zycbe033 TYPE t_s_zycbe033,
wa_zycbt034 TYPE t_s_zycbt034,
wa_partidas TYPE t_s_zycbe033,
wa_zycbt209 TYPE t_s_zycbt209,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zyglt316 TYPE t_s_zyglt316,
wa_zycbt011 TYPE t_s_zycbt011,
wa_cont TYPE t_contabilizacoes,
* >> Início da exclusão: FORM F02_REVERSA
v_lancto_multiplo TYPE c,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM F02_REVERSA
v_lancto_multiplo TYPE c, "#EC NEEDED
* << Fim da inclusão
v_titulo(31) TYPE c,
v_codeven TYPE /pws/zycbt011-codeven,
v_banco TYPE /pws/zycbt226-bco_me,
v_belnr TYPE /pws/zycbt226-belnr_op,
v_gjahr TYPE bkpf-gjahr,
v_tot_liqand TYPE wrbtr.
CONSTANTS:
c_est_op(31) TYPE c VALUE 'DOC. ESTORNO ORDEM DE PAGAMENTO'.
CHECK <fs_op>-tipo_op = 'E'.
v_titulo = c_est_op.
...
...
/pws/zycbe238 TO wa_disp.
MOVE:
v_mark TO wa_disp-mark,
/pws/zycbe226-waers TO wa_disp-waers,
/pws/zycbe238-vldisp TO wa_disp-saldo.
MODIFY p_itab_disp FROM wa_disp INDEX p_tc-current_line.
ENDFORM.
FORM loop_at_screen_disp
USING p_itab_disp TYPE t_t_disponibilidade
p_tc TYPE cxtab_control
* >> Início da exclusão: FORM LOOP_AT_SCREEN_DISP
p_destino TYPE /pws/zycbe238-destino."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DISP
p_destino TYPE /pws/zycbe238-destino. "#EC *
* << Fim da inclusão
DATA:
v_fecha_linha TYPE c.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = /pws/zycbe226-bukrs.
READ TABLE itab_disp_ant
WITH KEY nrseq = /pws/zycbe238-nrseq
destino = p_destino
dtdisp = /pws/zycbe238-dtdisp
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
...
...
WHEN 'ESTORNO'.
PERFORM marcar_estorno
USING 'X'
CHANGING itab_zycbt226.
WHEN 'NOOP'.
PERFORM marcar_estorno
USING ' '
CHANGING itab_zycbt226.
WHEN 'MOVE_DATA'.
PERFORM adicionar_disponibilidade.
* >> Início da inclusão: FORM USER_COMMAND_0110
WHEN 'SEL_DEVOL'.
PERFORM seleciona_devolucao.
* << Fim da inclusão
ENDCASE.
ENDFORM.
FORM mover_dados
USING p_itab_origem TYPE t_t_zycbt226
p_destino TYPE /pws/zycbt238-destino
CHANGING p_itab_destino TYPE t_t_disponibilidade.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
...
...
v_total = v_total + wa_disp-vldisp.
ENDLOOP.
LOOP AT itab_disp_70 INTO wa_disp
WHERE nrseq = wa_zycbt226-nrseq.
v_total = v_total + wa_disp-vldisp.
ENDLOOP.
LOOP AT itab_disp_00 INTO wa_disp
WHERE nrseq = wa_zycbt226-nrseq.
v_total = v_total + wa_disp-vldisp.
ENDLOOP.
* >> Início da exclusão: FORM ADICIONAR_DISPONIBILIDADE
IF v_total GE wa_zycbt226-vlr_exterior.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONAR_DISPONIBILIDADE
IF v_total GE wa_zycbt226-vlr_exterior OR
wa_zycbt226-sld_exterior EQ 0 OR
wa_zycbt226-sld_exterior EQ 0.
* << Fim da inclusão
v_ok = 'X'.
ENDIF.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE w061 WITH
'Por favor, selecionar pelo menos uma fatura.'(m01).
EXIT.
ENDIF.
IF v_ok EQ 'X'.
MESSAGE w061 WITH
...
...
CHECK NOT p_contrato-operacao IS INITIAL.
CASE p_contrato-operacao.
WHEN c_novo.
INSERT INTO /pws/zycbt239 VALUES p_contrato.
WHEN c_alterado.
UPDATE /pws/zycbt239 FROM p_contrato.
WHEN c_excluido.
DELETE FROM /pws/zycbt239
WHERE nrseq = p_contrato-nrseq
AND destino = p_contrato-destino
* >> Início da exclusão: FORM SALVAR_DADOS_CONTRATO
AND dtdisp = p_contrato-dtdisp."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS_CONTRATO
AND dtdisp = p_contrato-dtdisp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDCASE.
IF sy-subrc EQ 0.
CASE p_contrato-operacao.
WHEN c_novo.
APPEND p_contrato TO itab_contrato_ant.
v_msg = p_contrato-nrseq.
SHIFT v_msg LEFT DELETING LEADING '0'.
CONCATENATE 'para a disponibilidade'(m35)
v_msg
INTO v_msg
...
...
wa_zycbt226 LIKE LINE OF itab_zycbt226,
v_param(20) TYPE c,
v_index(3) TYPE n.
CLEAR:
v_index.
LOOP AT itab_zycbt226 INTO wa_zycbt226.
CONCATENATE c_parametro v_index INTO v_param.
SET PARAMETER ID v_param FIELD wa_zycbt226-nrseq.
v_index = v_index + 1.
ENDLOOP.
* >> Início da exclusão: FORM LEAVE_TO_TRANSACTION
SET PARAMETER ID 'ZYCB034-QTD' FIELD v_index."#EC *
SET PARAMETER ID 'UCOMM' FIELD 'CRET'."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM LEAVE_TO_TRANSACTION
SET PARAMETER ID 'ZYCB034-QTD' FIELD v_index. "#EC *
SET PARAMETER ID 'UCOMM' FIELD 'CRET'. "#EC *
* << Fim da inclusão
LEAVE TO TRANSACTION p_transacao AND SKIP FIRST SCREEN.
ENDFORM.
FORM contabiliza_contrato
USING p_disp LIKE LINE OF itab_disp_70
CHANGING p_contrato LIKE LINE OF itab_contrato.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
...
...
'061'.
ENDLOOP.
FREE p_wa_mensagem.
ENDIF.
ENDFORM.
FORM preenche_f02_contrato
USING p_disp LIKE LINE OF itab_disp_70
p_contrato LIKE LINE OF itab_contrato
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
* >> Início da exclusão: FORM PREENCHE_F02_CONTRATO
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_F02_CONTRATO
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033. "#EC *
* << Fim da inclusão
p_zycbe033-tcode = c_f02.
p_zycbe033-tabela = c_zycbt239.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_contrato-dtdebito.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-bktxt = p_contrato-txtlanc.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
p_zycbe033-werks = <fs_op>-werks.
...
...
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDFORM.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
FORM executa_f02_rze.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02G'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDFORM.
* << Fim da inclusão
FORM busca_parametros_321
USING p_evento
p_chave
p_txtlanc TYPE /pws/zycbe239-txtlanc
* >> Início da exclusão: FORM BUSCA_PARAMETROS_321
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033. "#EC *
* << Fim da inclusão
DATA:
v_hora(8) TYPE c,
itab_zyglt321 TYPE STANDARD TABLE OF /pws/zyglt321,
wa_zyglt321 LIKE LINE OF itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = p_chave AND
codeven = p_evento.
LOOP AT itab_zyglt321 INTO wa_zyglt321.
CASE wa_zyglt321-cpor3.
...
...
wa_zycbt034-descricao
'061'.
ENDLOOP.
ENDFORM.
FORM clearing_contrato
USING p_disp LIKE LINE OF itab_disp_70
p_itab_contrato TYPE t_t_contrato.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
* >> Início da exclusão: FORM CLEARING_CONTRATO
wa_contrato LIKE LINE OF p_itab_contrato,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTRATO
wa_contrato LIKE LINE OF p_itab_contrato, "#EC NEEDED
* << Fim da inclusão
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
FIELD-SYMBOLS:
<fs_contrato> TYPE t_contrato.
READ TABLE p_itab_contrato
WITH KEY nrseq = p_disp-nrseq
destino = p_disp-destino
dtdisp = p_disp-dtdisp
...
...
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDFORM.
FORM preenche_f30_clearing_contrato
USING p_disp LIKE LINE OF itab_disp_70
p_itab_contrato TYPE t_t_contrato
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
* >> Início da exclusão: FORM PREENCHE_F30_CLEARING_CONTRATO
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_F30_CLEARING_CONTRATO
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033. "#EC *
* << Fim da inclusão
DATA:
wa_doctos LIKE LINE OF itab_doctos,
wa_contrato LIKE LINE OF p_itab_contrato.
p_zycbe033-tcode = c_f30.
p_zycbe033-tabela = c_zycbt239.
p_zycbe033-cpochv = p_cpochv.
READ TABLE p_itab_contrato INTO wa_contrato
WITH KEY nrseq = p_disp-nrseq
destino = p_disp-destino
dtdisp = p_disp-dtdisp.
...
...
USING itab_zycbt034.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ENDFORM.
FORM verifica_periodo
USING p_empresa
p_data
* >> Início da exclusão: FORM VERIFICA_PERIODO
p_msg."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PERIODO
p_msg. "#EC *
* << Fim da inclusão
DATA: v_periodo TYPE frper,
v_ano TYPE gjahr,
v_periodo_fechado(1) TYPE c.
PERFORM determina_periodo_contabil
USING p_empresa
p_data
CHANGING v_periodo
v_ano.
PERFORM verifica_periodo_contabil
USING
p_empresa
v_periodo
v_ano
* >> Início da exclusão: FORM VERIFICA_PERIODO
CHANGING v_periodo_fechado."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PERIODO
CHANGING v_periodo_fechado. "#EC *
* << Fim da inclusão
IF v_periodo_fechado = 'X'.
PERFORM message_store
USING '/PWS/ZYCBM'
'E'
p_msg
space
space
space
'061'.
ENDIF.
...
...
TRANSPORTING nrseqr.
IF sy-subrc NE 0.
CLEAR wa_rend-nrseqr.
ENDIF.
IF sy-subrc EQ 0.
MODIFY p_itab_rendimentos FROM wa_rend INDEX p_tc-current_line.
ELSE.
APPEND wa_rend TO p_itab_rendimentos.
ENDIF.
ENDFORM.
* >> Início da inclusão: FORM PREENCHE_TC_RENDIMENTOS
FORM atualiza_tc_devolucao
USING p_itab_devolucao TYPE t_t_devolucao
p_tc TYPE cxtab_control.
DATA:
wa_zycbt226 LIKE LINE OF itab_zycbt226,
wa_devolucao TYPE t_devolucao.
READ TABLE p_itab_devolucao INDEX p_tc-current_line
INTO wa_devolucao.
IF sy-subrc EQ 0.
IF wa_devolucao-operacao EQ c_novo.
MOVE:
/pws/zycbe242-vldevolucao TO wa_devolucao-vldevolucao,
/pws/zycbe242-nrdevolucao TO wa_devolucao-nrdevolucao,
/pws/zycbe242-dtdevolucao TO wa_devolucao-dtdevolucao.
ENDIF.
MOVE:
v_mark TO wa_devolucao-mark.
MODIFY p_itab_devolucao FROM wa_devolucao INDEX p_tc-current_line.
ENDIF.
ENDFORM.
* << Fim da inclusão
FORM preenche_tc_rendimentos
USING p_itab_rendimentos TYPE t_t_rendimentos
p_tc TYPE cxtab_control.
DATA:
wa_rend TYPE t_rendimentos.
READ TABLE p_itab_rendimentos INTO wa_rend
INDEX p_tc-current_line.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING:
wa_rend TO /pws/zycbe240.
...
...
wa_rend-mark TO v_mark.
ENDIF.
ENDFORM.
FORM salva_rendimentos.
DATA:
v_nrseqr TYPE /pws/zycbt240-nrseqr.
FIELD-SYMBOLS:
<fs_rend> TYPE t_rendimentos.
IF v_nrseqr IS INITIAL.
SELECT MAX( nrseqr ) FROM /pws/zycbt240
* >> Início da exclusão: FORM SALVA_RENDIMENTOS
INTO v_nrseqr."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
INTO v_nrseqr. "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
LOOP AT itab_rendimentos_ant ASSIGNING <fs_rend>.
READ TABLE itab_rendimentos
WITH KEY nrseqr = <fs_rend>-nrseqr
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
DELETE FROM /pws/zycbt240 WHERE nrseqr = <fs_rend>-nrseqr.
DELETE itab_rendimentos_ant WHERE nrseqr = <fs_rend>-nrseqr.
ENDIF.
ENDLOOP.
...
...
<fs_rend>-nrseqr = v_nrseqr.
ENDIF.
READ TABLE itab_rendimentos_ant
WITH KEY nrseqr = <fs_rend>-nrseqr
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
INSERT INTO /pws/zycbt240 VALUES <fs_rend>.
ENDIF.
ENDLOOP.
IF sy-subrc NE 0 AND sy-tcode NE c_transacao_c.
* >> Início da exclusão: FORM SALVA_RENDIMENTOS
DELETE FROM /pws/zycbt240 WHERE nrseqr <> space."#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_RENDIMENTOS
DELETE FROM /pws/zycbt240 WHERE nrseqr <> space. "#EC CI_NOFIELD
* << Fim da inclusão
REFRESH itab_rendimentos_ant.
ENDIF.
MODIFY /pws/zycbt240 FROM TABLE itab_rendimentos.
ENDFORM.
FORM user_command_0140.
CASE ok_code.
WHEN 'MARK'.
PERFORM preenche_campo_itab
USING 'MARK'
'X'
...
...
PERFORM elimina_linha_marcada
CHANGING itab_rendimentos.
ENDCASE.
ENDFORM.
FORM user_command_0132.
CASE ok_code.
WHEN '/CS'.
PERFORM drill_down.
ENDCASE.
ENDFORM.
* >> Início da inclusão: FORM VERIFICA_ALTERACAO_CONTRATO
FORM user_command_0200.
CASE ok_code.
WHEN 'MODO'.
PERFORM modo_bi.
WHEN 'MARK'.
PERFORM preenche_campo_itab
USING 'MARK'
'X'
CHANGING itab_devolucao.
WHEN 'UNMARK'.
PERFORM preenche_campo_itab
USING 'MARK'
' '
CHANGING itab_devolucao.
WHEN 'DEL_LINE'.
PERFORM elimina_linha_marcada
CHANGING itab_devolucao.
WHEN 'P--' OR 'P-' OR 'P++' OR 'P+'.
DESCRIBE TABLE itab_devolucao LINES v_linhas.
PERFORM paginacao_tc USING v_linhas
CHANGING tc_devolucao-top_line.
WHEN 'NOVO'.
PERFORM adicionar_nova_devolucao.
WHEN 'SALVAR'.
PERFORM processar_devolucoes.
WHEN 'ELIMINAR'.
PERFORM elimina_linha_marcada
CHANGING itab_devolucao.
WHEN 'ESTORNAR'.
PERFORM marcar_estorno
USING 'X'
CHANGING itab_devolucao.
WHEN 'NOOP'.
PERFORM marcar_estorno
USING ' '
CHANGING itab_devolucao.
ENDCASE.
PERFORM atualizar_saldo_devolucao.
ENDFORM.
* << Fim da inclusão
FORM verifica_alteracao_contrato
CHANGING p_contrato TYPE t_contrato.
DATA:
wa_contrato TYPE t_contrato.
CHECK p_contrato-operacao IS INITIAL
OR p_contrato-operacao EQ c_alterado.
READ TABLE itab_contrato_ant INTO wa_contrato
WITH KEY tpcontr = p_contrato-tpcontr
nrseq = p_contrato-nrseq
destino = p_contrato-destino
...
...
CHANGING v_periodo
v_ano.
PERFORM verifica_periodo_contabil
USING
<fs_op>-bukrs
v_periodo
v_ano
CHANGING v_periodo_fechado.
IF v_periodo_fechado = 'X'.
p_zycbe033-stgrd = wa_zycbt007-perencer.
* >> Início da inclusão: FORM ESTORNA_DOCUMENTO
p_zycbe033-bldat = sy-datum.
p_zycbe033-budat = p_zycbe033-bldat.
* << Fim da inclusão
ELSE.
p_zycbe033-stgrd = wa_zycbt007-percorr.
ENDIF.
APPEND p_zycbe033 TO itab_zycbe033.
IF itab_zycbt034 IS INITIAL.
PERFORM executa_fb08.
PERFORM verifica_contabilizacao
USING c_fb08 c_zycbt239 p_cpochv
'Estorno do documento'(m26)
CHANGING wa_mensagem.
...
...
p_cpochv TYPE /pws/zycbe033-cpochv
CHANGING p_zycbe033 TYPE t_s_zycbe033
p_doc TYPE /pws/zycbt238-doc_comp.
DATA:
wa_mensagem TYPE t_mensagem.
CHECK NOT p_doc IS INITIAL.
PERFORM limpa_dados_bi.
p_zycbe033-tcode = c_fbra.
p_zycbe033-belnr = p_doc.
p_zycbe033-bldat = p_dtlanc.
* >> Início da inclusão: FORM CANCELA_DOCUMENTO
p_zycbe033-budat = p_dtlanc.
* << Fim da inclusão
APPEND p_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_fbra.
PERFORM verifica_contabilizacao
USING c_fbra c_zycbt239 p_cpochv
'Cancelamento do documento'(m25)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
PERFORM message_store
USING '/PWS/ZYCBM'
...
...
wa_zycbe033 TYPE t_s_zycbe033,
wa_cont TYPE t_contabilizacoes.
FIELD-SYMBOLS:
<fs_tabela> TYPE INDEX TABLE,
<fs_linha> TYPE ANY,
<fs_campo> TYPE ANY,
<fs_campo_valor> TYPE ANY.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
'** ERRO NO ESTORNO **'(m33)
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_CONTABILIZACOES
'** ERRO **'(m33)
* << Fim da inclusão
space
space
space
'061'.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
<fs_op>-nrseq
INTO v_cpochv.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
SORT p_itab_cont BY belnr DESCENDING.
LOOP AT p_itab_cont INTO wa_cont.
IF wa_cont-fbra EQ 'X'.
PERFORM cancela_documento
USING wa_cont-dtlancto
v_cpochv
CHANGING wa_zycbe033
wa_cont-belnr.
ENDIF.
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
IF NOT wa_cont-belnr_ant IS INITIAL AND
wa_cont-valor_ant IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_CONTABILIZACOES
IF NOT wa_cont-tabela IS INITIAL AND
NOT wa_cont-campo IS INITIAL.
* << Fim da inclusão
ASSIGN (wa_cont-tabela) TO <fs_tabela>.
CHECK <fs_tabela> IS ASSIGNED.
LOOP AT <fs_tabela> ASSIGNING <fs_linha>.
ASSIGN COMPONENT wa_cont-campo
OF STRUCTURE <fs_linha> TO <fs_campo>.
CHECK <fs_campo> IS ASSIGNED.
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
CHECK NOT wa_cont-belnr_ant IS INITIAL.
* << Fim da exclusão
IF <fs_campo> EQ wa_cont-belnr OR
...
...
wa_cont-belnr.
ENDIF.
ENDLOOP.
REFRESH:
p_itab_cont.
ENDFORM.
FORM loop_at_screen_rendimentos
USING p_itab_rend TYPE t_t_rendimentos
p_tc TYPE cxtab_control.
DATA:
* >> Início da exclusão: FORM LOOP_AT_SCREEN_RENDIMENTOS
wa_rend TYPE t_rendimentos."#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_RENDIMENTOS
wa_rend TYPE t_rendimentos. "#EC NEEDED
* << Fim da inclusão
READ TABLE p_itab_rend INTO wa_rend
INDEX p_tc-current_line.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = /pws/zycbe226-bukrs.
LOOP AT SCREEN.
IF sy-tcode EQ c_transacao_e.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
...
...
WHEN 'ESTORNO'.
PERFORM marcar_estorno
USING 'X'
CHANGING itab_disp_00.
WHEN 'NOOP'.
PERFORM marcar_estorno
USING ' '
CHANGING itab_disp_00.
ENDCASE.
endform.
* >> Início da inclusão:
FORM seleciona_devolucao.
DATA:
it_zycbt226_temp TYPE t_t_zycbt226,
wa_zycbt226 TYPE t_s_zycbe226.
FIELD-SYMBOLS:
<fs_devolucao> TYPE t_devolucao.
LOOP AT itab_zycbt226 INTO wa_zycbt226
WHERE mark = 'X'
AND tipo_op = c_pagamento_antecipado.
APPEND wa_zycbt226 TO it_zycbt226_temp.
ENDLOOP.
IF NOT it_zycbt226_temp[] IS INITIAL.
SELECT * FROM /pws/zycbt242
INTO TABLE itab_devolucao
FOR ALL ENTRIES IN it_zycbt226_temp
WHERE nrseqop = it_zycbt226_temp-nrseq.
ENDIF.
LOOP AT it_zycbt226_temp INTO wa_zycbt226.
LOOP AT itab_devolucao ASSIGNING <fs_devolucao>
WHERE nrseqop = wa_zycbt226-nrseq.
<fs_devolucao>-sld_exterior = wa_zycbt226-sld_exterior.
<fs_devolucao>-sld_associar = wa_zycbt226-sld_associar.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM adicionar_item_devolucao
USING wa_zycbt226.
ENDIF.
ENDLOOP.
IF NOT itab_devolucao[] IS INITIAL.
CALL SCREEN '0200' STARTING AT 5 3.
REFRESH itab_devolucao.
ENDIF.
ENDFORM.
FORM adicionar_item_devolucao
USING p_zycbt226 LIKE LINE OF itab_zycbt226.
DATA:
wa_devolucao LIKE LINE OF itab_devolucao.
FIELD-SYMBOLS:
<fs_devolucao> LIKE LINE OF itab_devolucao.
CHECK sy-tcode NE c_transacao_e.
IF p_zycbt226-sld_exterior EQ 0 OR
p_zycbt226-sld_associar EQ 0.
PERFORM message_store USING
'/PWS/ZYCBM'
'I'
'Ordem de Pagamento'(001)
p_zycbt226-nrseq
'não possui saldo para devolução.'(m42)
space
'061'.
EXIT.
ENDIF.
READ TABLE itab_devolucao
WITH KEY nrseqop = p_zycbt226-nrseq
operacao = c_novo
ASSIGNING <fs_devolucao>.
IF sy-subrc NE 0.
MOVE-CORRESPONDING:
p_zycbt226 TO wa_devolucao.
CLEAR:
wa_devolucao-mark,
wa_devolucao-nrseq.
READ TABLE itab_devolucao
WITH KEY nrseqop = p_zycbt226-nrseq
dtdevolucao = sy-datum
TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
MOVE:
sy-datum TO wa_devolucao-dtdevolucao.
ENDIF.
MOVE:
c_novo TO wa_devolucao-operacao,
p_zycbt226-nrseq TO wa_devolucao-nrseqop.
APPEND wa_devolucao TO itab_devolucao.
ENDIF.
ENDFORM.
FORM preenche_tc_devolucao
USING p_itab_devolucao TYPE t_t_devolucao
p_tc TYPE cxtab_control.
DATA:
wa_zycbt226 LIKE LINE OF itab_zycbt226,
wa_devolucao LIKE LINE OF itab_devolucao.
READ TABLE p_itab_devolucao INDEX p_tc-current_line
INTO wa_devolucao.
IF sy-subrc EQ 0.
v_mark = wa_devolucao-mark.
READ TABLE itab_zycbt226 INTO wa_zycbt226
WITH KEY nrseq = wa_devolucao-nrseqop.
MOVE-CORRESPONDING:
wa_zycbt226 TO /pws/zycbe226,
wa_devolucao TO /pws/zycbe242.
MOVE:
wa_devolucao-sld_exterior TO /pws/zycbe226-sld_exterior,
wa_devolucao-sld_associar TO /pws/zycbe226-sld_associar.
PERFORM atualiza_icone
USING wa_devolucao-operacao
CHANGING v_icone.
ENDIF.
IF wa_devolucao-operacao NE c_novo.
LOOP AT SCREEN.
CHECK screen-name NE 'V_MARK'.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
CHECK screen-name EQ '/PWS/ZYCBE242-DTDEVOLUCAO' OR
screen-name EQ '/PWS/ZYCBE242-VLDEVOLUCAO'.
screen-required = 1.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM.
FORM adicionar_nova_devolucao.
DATA:
wa_zycbt226 LIKE LINE OF itab_zycbt226,
wa_devolucao LIKE LINE OF itab_devolucao.
LOOP AT itab_devolucao INTO wa_devolucao
WHERE mark EQ 'X'.
READ TABLE itab_zycbt226 INTO wa_zycbt226
WITH KEY nrseq = wa_devolucao-nrseqop.
PERFORM adicionar_item_devolucao
USING wa_zycbt226.
ENDLOOP.
ENDFORM.
FORM atualizar_saldo_devolucao.
DATA:
wa_devolucao LIKE LINE OF itab_devolucao,
wa_dev LIKE LINE OF itab_devolucao,
wa_zycbt226 LIKE LINE OF itab_zycbt226.
LOOP AT itab_zycbt226 INTO wa_zycbt226
WHERE mark EQ 'X'.
CLEAR:
wa_devolucao.
wa_devolucao-nrseqop = wa_zycbt226-nrseq.
LOOP AT itab_devolucao INTO wa_dev
WHERE nrseqop = wa_zycbt226-nrseq
AND operacao = c_novo.
wa_devolucao-sld_exterior =
wa_zycbt226-sld_exterior - wa_dev-vldevolucao.
wa_devolucao-sld_associar =
wa_zycbt226-sld_associar - wa_dev-vldevolucao.
ENDLOOP.
IF sy-subrc NE 0.
wa_devolucao-sld_exterior = wa_zycbt226-sld_exterior.
wa_devolucao-sld_associar = wa_zycbt226-sld_associar.
ENDIF.
MODIFY itab_devolucao FROM wa_devolucao
TRANSPORTING sld_associar sld_exterior
WHERE nrseqop = wa_devolucao-nrseqop.
ENDLOOP.
ENDFORM.
FORM processar_devolucoes.
FIELD-SYMBOLS:
<fs_devolucao> LIKE LINE OF itab_devolucao.
LOOP AT itab_devolucao ASSIGNING <fs_devolucao>.
READ TABLE itab_zycbt226 ASSIGNING <fs_op>
WITH KEY nrseq = <fs_devolucao>-nrseqop.
PERFORM excluir_devolucao
CHANGING <fs_devolucao>.
PERFORM adicionar_devolucao
CHANGING <fs_devolucao>.
ENDLOOP.
DELETE itab_devolucao
WHERE operacao EQ c_excluido
AND belnr IS INITIAL.
REFRESH:
itab_contabilizacoes.
ENDFORM.
FORM excluir_devolucao
CHANGING p_devolucao TYPE t_devolucao.
CHECK p_devolucao-operacao = c_excluido.
PERFORM cancela_clearing_devolucao
USING p_devolucao.
PERFORM estorna_desm_devolucao
USING p_devolucao.
PERFORM estorna_devolucao
USING p_devolucao.
CHECK p_devolucao-belnr IS INITIAL.
PERFORM salvar_dados_devolucao
CHANGING p_devolucao.
ENDFORM.
FORM adicionar_devolucao
CHANGING p_devolucao TYPE t_devolucao.
CHECK p_devolucao-operacao = c_novo.
PERFORM busca_sequencial_devolucao
CHANGING p_devolucao-nrseq.
PERFORM contabiliza_devolucao
CHANGING p_devolucao.
PERFORM contabiliza_desm_devolucao
CHANGING p_devolucao.
PERFORM contabiliza_comp_devolucao
CHANGING p_devolucao.
CHECK NOT p_devolucao-belnr_comp IS INITIAL.
PERFORM salvar_dados_devolucao
CHANGING p_devolucao.
CLEAR:
p_devolucao-operacao.
ENDFORM.
form salvar_dados_devolucao
changing p_devolucao TYPE t_devolucao.
CASE p_devolucao-operacao.
WHEN c_excluido.
<fs_op>-sld_exterior =
<fs_op>-sld_exterior + p_devolucao-vldevolucao.
<fs_op>-sld_associar =
<fs_op>-sld_associar + p_devolucao-vldevolucao.
DELETE FROM /pws/zycbt242 WHERE nrseq = p_devolucao-nrseq.
WHEN c_novo.
<fs_op>-sld_exterior =
<fs_op>-sld_exterior - p_devolucao-vldevolucao.
<fs_op>-sld_associar =
<fs_op>-sld_associar - p_devolucao-vldevolucao.
INSERT INTO /pws/zycbt242 VALUES p_devolucao.
ENDCASE.
IF p_devolucao-belnr_desm_op IS INITIAL.
<fs_op>-belnr_assoc = p_devolucao-belnr_comp.
ELSE.
<fs_op>-belnr_assoc = p_devolucao-belnr_desm_op.
ENDIF.
<fs_op>-dt_assoc = p_devolucao-dtdevolucao.
UPDATE /pws/zycbt226
SET sld_exterior = <fs_op>-sld_exterior
sld_associar = <fs_op>-sld_associar
belnr_assoc = <fs_op>-belnr_assoc
dt_assoc = <fs_op>-dt_assoc
WHERE nrseq = <fs_op>-nrseq.
COMMIT WORK.
endform.
form busca_sequencial_devolucao
changing p_nrseq.
DATA:
v_ano(3) TYPE c,
v_nrseq TYPE /pws/zycbt242-nrseq.
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO v_nrseq
FROM /pws/zycbt242
WHERE nrseq LIKE v_ano.
IF v_nrseq IS INITIAL.
CONCATENATE '00000000' sy-datum+2(2) INTO v_nrseq.
ENDIF.
v_nrseq(8) = v_nrseq(8) + 1.
CONCATENATE v_nrseq(8) sy-datum+2(2) INTO p_nrseq.
SHIFT p_nrseq RIGHT DELETING TRAILING space.
TRANSLATE p_nrseq USING ' 0'.
endform.
FORM contabiliza_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
wa_cont TYPE t_contabilizacoes,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM busca_parametros
USING '030'
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321_devolucao
USING '030'
'FBK'
p_devolucao
CHANGING wa_zycbe033.
PERFORM preenche_f02_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f02_rze.
PERFORM verifica_contabilizacao
USING c_f02 c_zycbt242 v_cpochv
'Lançamento da Provisão da devolução'(m43)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr = wa_mensagem-belnr.
p_devolucao-dtlancto = wa_zycbe033-budat.
wa_cont-belnr_ant = space.
wa_cont-tabela = 'ITAB_DEVOLUCAO'.
wa_cont-campo = 'BELNR'.
wa_cont-belnr = wa_mensagem-belnr.
wa_cont-dtlancto = wa_mensagem-bldat.
wa_cont-fb08 = 'X'.
APPEND wa_cont TO itab_contabilizacoes.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_count
wa_mensagem-msg
p_devolucao-nrseq
'realizada com sucesso.'(m24)
'061'.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
wa_mensagem-msg_doc
space
space
space
'061'.
PERFORM limpa_dados_bi.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ENDFORM.
FORM preenche_f02_devolucao
USING p_devolucao LIKE LINE OF itab_devolucao
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
wa_partidas LIKE LINE OF itab_partidas,
wa_zycbt089 LIKE LINE OF itab_zycbt089.
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = <fs_op>-bukrs.
p_zycbe033-tcode = c_f02.
p_zycbe033-tabela = c_zycbt242.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_devolucao-dtdevolucao.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
p_zycbe033-werks = <fs_op>-werks.
p_zycbe033-brnch = <fs_op>-j_1bbranch.
p_zycbe033-wrbtr = p_devolucao-vldevolucao.
PERFORM busca_taxa_devolucao
USING p_devolucao
p_zycbt011
wa_zycbt089-tx_devol_op
CHANGING p_zycbe033-kursf.
p_zycbe033-newbs = '50'.
p_zycbe033-agkoa = 'S'.
v_codaux2 = <fs_op>-waers.
v_codaux1 = <fs_op>-bco_me.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
CLEAR p_zycbe033-agums.
PERFORM busca_conta_contabil
USING c_credito
<fs_op>-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING p_zycbe033-d_newko.
wa_partidas-wrbtr = p_zycbe033-wrbtr.
wa_partidas-newbs = '09'.
wa_partidas-d_newko = <fs_op>-kunag.
wa_partidas-agums = p_zycbt011-agums.
wa_partidas-cpochv = p_zycbe033-cpochv.
wa_partidas-tabela = p_zycbe033-tabela.
wa_partidas-tcode = p_zycbe033-tcode.
CONCATENATE text-037
p_devolucao-nrseq
p_devolucao-nrseqop
<fs_op>-nrparcf
INTO wa_partidas-d_zuonr
SEPARATED BY space.
APPEND wa_partidas TO itab_partidas.
PERFORM verifica_campo_vazio USING p_zycbe033-budat
'DTCREDEXT'
'Data do Documento'(005).
PERFORM verifica_campo_vazio USING p_zycbe033-bldat
'DTLANCTO'
'Data de Lançamento'(004).
PERFORM verifica_campo_vazio USING p_zycbe033-bukrs
'BUKRS'
'Empresa'(006).
PERFORM verifica_campo_vazio USING p_zycbe033-waers
'WAERS'
'Moeda'(010).
PERFORM verifica_campo_vazio USING p_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING p_zycbe033-d_newko
'NEWKO'
'Conta Débito'(035).
ENDFORM.
FORM busca_taxa_devolucao
USING p_devolucao TYPE t_devolucao
p_zycbt011 TYPE /pws/zycbe011
p_taxa TYPE /pws/zycbt089-tx_lanc_dispon
CHANGING p_kursf TYPE /pws/zycbe033-kursf.
DATA:
v_dt_taxa TYPE /pws/zycbe242-dtdevolucao.
READ TABLE itab_zycbt007 INTO wa_zycbt007
WITH KEY bukrs = <fs_op>-bukrs.
CASE p_taxa.
WHEN 'DTDEVOL'.
v_dt_taxa = p_devolucao-dtdevolucao.
WHEN 'DTFECH'.
v_dt_taxa = p_devolucao-dtdevolucao.
v_dt_taxa+6(2) = '01'.
v_dt_taxa = v_dt_taxa - 1.
WHEN 'DTOP'.
IF <fs_op>-dtlancto2 IS INITIAL.
v_dt_taxa = <fs_op>-dtlancto.
ELSE.
v_dt_taxa = <fs_op>-dtlancto2.
ENDIF.
WHEN 'DTLANC'.
v_dt_taxa = sy-datum.
ENDCASE.
PERFORM busca_taxa
USING
p_zycbt011-codeven
<fs_op>-bukrs
<fs_op>-waers
wa_zycbt007-waersb
v_dt_taxa
CHANGING
p_kursf.
ENDFORM.
FORM busca_parametros_321_devolucao
USING p_evento
p_chave
p_devolucao LIKE LINE OF itab_devolucao
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033. "#EC *
DATA:
itab_zyglt321 TYPE STANDARD TABLE OF /pws/zyglt321,
wa_zyglt321 LIKE LINE OF itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = p_chave AND
codeven = p_evento.
LOOP AT itab_zyglt321 INTO wa_zyglt321.
CASE wa_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE wa_zyglt321-cpocb.
WHEN 'NRSEQ_OP'.
p_zycbe033-d_sgtxt = <fs_op>-nrseq.
p_zycbe033-c_sgtxt = <fs_op>-nrseq.
p_zycbe033-augtx = <fs_op>-nrseq.
WHEN 'NRSEQ'.
p_zycbe033-d_sgtxt = p_devolucao-nrseq.
p_zycbe033-c_sgtxt = p_devolucao-nrseq.
p_zycbe033-augtx = p_devolucao-nrseq.
WHEN 'REF_OP'.
p_zycbe033-d_sgtxt = <fs_op>-ref_op.
p_zycbe033-c_sgtxt = <fs_op>-ref_op.
p_zycbe033-augtx = <fs_op>-ref_op.
WHEN 'NRDEV'.
p_zycbe033-d_sgtxt = p_devolucao-nrdevolucao.
p_zycbe033-c_sgtxt = p_devolucao-nrdevolucao.
p_zycbe033-augtx = p_devolucao-nrdevolucao.
ENDCASE.
WHEN 'XBLNR'.
CASE wa_zyglt321-cpocb.
WHEN 'NRSEQ'.
p_zycbe033-xblnr = p_devolucao-nrseq.
WHEN 'REF_OP'.
p_zycbe033-xblnr = <fs_op>-ref_op.
WHEN 'NRDEV'.
p_zycbe033-xblnr = p_devolucao-nrdevolucao.
WHEN 'NRSEQ_OP'.
p_zycbe033-xblnr = <fs_op>-nrseq.
ENDCASE.
WHEN 'ZFBDT'.
CASE wa_zyglt321-cpocb.
WHEN 'DTINCL'.
p_zycbe033-zfbdt = sy-datum.
WHEN 'DTDEVOL'.
p_zycbe033-zfbdt = p_devolucao-dtdevolucao.
WHEN 'DTLIMITE'.
p_zycbe033-zfbdt = <fs_op>-dtlimite.
ENDCASE.
WHEN 'VALUT'.
CASE wa_zyglt321-cpocb.
WHEN 'DTINCL'.
p_zycbe033-d_valut = sy-datum.
p_zycbe033-c_valut = sy-datum.
WHEN 'DTLIMITE'.
p_zycbe033-d_valut = <fs_op>-dtlimite.
p_zycbe033-c_valut = <fs_op>-dtlimite.
ENDCASE.
WHEN 'ZUONR'.
CASE wa_zyglt321-cpocb.
WHEN 'NRSEQ_OP'.
p_zycbe033-d_zuonr = <fs_op>-nrseq.
p_zycbe033-c_zuonr = <fs_op>-nrseq.
WHEN 'REF_OP'.
p_zycbe033-d_zuonr = <fs_op>-ref_op.
p_zycbe033-c_zuonr = <fs_op>-ref_op.
WHEN 'NRSEQ'.
p_zycbe033-d_zuonr = p_devolucao-nrseq.
p_zycbe033-c_zuonr = p_devolucao-nrseq.
ENDCASE.
ENDCASE.
ENDLOOP.
ENDFORM.
FORM contabiliza_desm_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
wa_cont TYPE t_contabilizacoes,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr_desm_op IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM busca_parametros
USING '030'
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING '030'
'TRE'
space
CHANGING wa_zycbe033.
PERFORM preenche_f30_desm_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Desmembramento da devolução'(m44)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_desm_op = wa_mensagem-belnr.
p_devolucao-dtlancto_op = wa_zycbe033-budat.
wa_cont-belnr_ant = space.
wa_cont-tabela = 'ITAB_DEVOLUCAO'.
wa_cont-campo = 'BELNR_DESM_OP'.
wa_cont-belnr = wa_mensagem-belnr.
wa_cont-dtlancto = wa_zycbe033-bldat.
wa_cont-fbra = 'X'.
wa_cont-fb08 = 'X'.
APPEND wa_cont TO itab_contabilizacoes.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_count
wa_mensagem-msg
p_devolucao-nrseq
'realizada com sucesso.'(m24)
'061'.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
wa_mensagem-msg_doc
space
space
space
'061'.
PERFORM limpa_dados_bi.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
PERFORM estornar_contabilizacoes
USING itab_contabilizacoes.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
PERFORM estornar_contabilizacoes
USING itab_contabilizacoes.
ENDIF.
ENDFORM.
FORM preenche_f30_desm_devolucao
USING p_devolucao LIKE LINE OF itab_devolucao
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
wa_doctos LIKE LINE OF itab_doctos,
wa_zycbt089 LIKE LINE OF itab_zycbt089.
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = <fs_op>-bukrs.
p_zycbe033-tcode = c_f30.
p_zycbe033-tabela = c_zycbt242.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_devolucao-dtdevolucao.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
p_zycbe033-werks = <fs_op>-werks.
p_zycbe033-brnch = <fs_op>-j_1bbranch.
p_zycbe033-wrbtr = p_devolucao-vldevolucao.
PERFORM busca_taxa_devolucao
USING p_devolucao
p_zycbt011
wa_zycbt089-tx_devol_op
CHANGING p_zycbe033-kursf.
p_zycbe033-newbs = '19'.
p_zycbe033-umskz = p_zycbt011-agums.
p_zycbe033-d_newko = <fs_op>-kunag.
p_zycbe033-c_newko = <fs_op>-kunag.
wa_doctos-tcode = p_zycbe033-tcode.
wa_doctos-tabela = p_zycbe033-tabela.
wa_doctos-cpochv = p_zycbe033-cpochv.
wa_doctos-residuo = p_zycbe033-wrbtr.
IF <fs_op>-belnr_assoc IS INITIAL.
IF <fs_op>-belnr_op2 IS INITIAL.
wa_doctos-belnr = <fs_op>-belnr_op.
wa_doctos-dtdocto = <fs_op>-dtlancto.
ELSE.
wa_doctos-belnr = <fs_op>-belnr_op2.
wa_doctos-dtdocto = <fs_op>-dtlancto2.
ENDIF.
ELSE.
wa_doctos-belnr = <fs_op>-belnr_assoc.
wa_doctos-dtdocto = <fs_op>-dt_assoc.
ENDIF.
APPEND wa_doctos TO itab_zycbt036.
APPEND wa_doctos TO itab_doctos.
CONCATENATE text-037
p_devolucao-nrseq
p_devolucao-nrseqop
<fs_op>-nrparcf
INTO p_zycbe033-d_zuonr
SEPARATED BY space.
PERFORM verifica_campo_vazio USING p_zycbe033-budat
'DTCREDEXT'
'Data do Documento'(005).
PERFORM verifica_campo_vazio USING p_zycbe033-bldat
'DTLANCTO'
'Data de Lançamento'(004).
PERFORM verifica_campo_vazio USING p_zycbe033-bukrs
'BUKRS'
'Empresa'(006).
PERFORM verifica_campo_vazio USING p_zycbe033-waers
'WAERS'
'Moeda'(010).
PERFORM verifica_campo_vazio USING p_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING p_zycbe033-d_newko
'NEWKO'
'Conta Débito'(035).
ENDFORM.
FORM contabiliza_comp_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK NOT p_devolucao-belnr IS INITIAL.
CHECK p_devolucao-operacao NE c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM busca_parametros
USING '030'
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING '030'
'TRE'
space
CHANGING wa_zycbe033.
PERFORM preenche_f30_comp_devolucao
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Clearing da devolução'(m45)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_comp = wa_mensagem-belnr.
p_devolucao-dtlancto_comp = wa_zycbe033-budat.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_count
wa_mensagem-msg
p_devolucao-nrseq
'realizada com sucesso.'(m24)
'061'.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
wa_mensagem-msg_doc
space
space
space
'061'.
PERFORM limpa_dados_bi.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
PERFORM estornar_contabilizacoes
USING itab_contabilizacoes.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
PERFORM estornar_contabilizacoes
USING itab_contabilizacoes.
ENDIF.
ENDFORM.
FORM preenche_f30_comp_devolucao
USING p_devolucao LIKE LINE OF itab_devolucao
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
wa_doctos LIKE LINE OF itab_doctos,
wa_zycbt089 LIKE LINE OF itab_zycbt089.
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = <fs_op>-bukrs.
p_zycbe033-tcode = c_f30.
p_zycbe033-tabela = c_zycbt242.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_devolucao-dtdevolucao.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
p_zycbe033-werks = <fs_op>-werks.
p_zycbe033-brnch = <fs_op>-j_1bbranch.
p_zycbe033-wrbtr = p_devolucao-vldevolucao.
PERFORM busca_taxa_devolucao
USING p_devolucao
p_zycbt011
wa_zycbt089-tx_devol_op
CHANGING p_zycbe033-kursf.
CLEAR:
p_zycbe033-c_zuonr.
p_zycbe033-umskz = p_zycbt011-agums.
p_zycbe033-d_newko = <fs_op>-kunag.
wa_doctos-tcode = p_zycbe033-tcode.
wa_doctos-tabela = p_zycbe033-tabela.
wa_doctos-cpochv = p_zycbe033-cpochv.
wa_doctos-belnr = p_devolucao-belnr.
wa_doctos-dtdocto = p_devolucao-dtlancto.
APPEND wa_doctos TO itab_doctos.
IF p_devolucao-belnr_desm_op IS INITIAL.
IF <fs_op>-belnr_assoc IS INITIAL.
IF <fs_op>-belnr_op2 IS INITIAL.
wa_doctos-belnr = <fs_op>-belnr_op.
wa_doctos-dtdocto = <fs_op>-dtlancto.
ELSE.
wa_doctos-belnr = <fs_op>-belnr_op2.
wa_doctos-dtdocto = <fs_op>-dtlancto2.
ENDIF.
ELSE.
wa_doctos-belnr = <fs_op>-belnr_assoc.
wa_doctos-dtdocto = <fs_op>-dt_assoc.
ENDIF.
ELSE.
wa_doctos-belnr = p_devolucao-belnr_desm_op.
wa_doctos-dtdocto = p_devolucao-dtlancto_op.
ENDIF.
CONCATENATE text-037
p_devolucao-nrseq
p_devolucao-nrseqop
<fs_op>-nrparcf
INTO wa_doctos-zuonr
SEPARATED BY space.
APPEND wa_doctos TO itab_doctos.
p_zycbe033-newbs = '19'.
p_zycbe033-flag_nc = 'X'.
PERFORM verifica_campo_vazio USING p_zycbe033-budat
'DTCREDEXT'
'Data do Documento'(005).
PERFORM verifica_campo_vazio USING p_zycbe033-bldat
'DTLANCTO'
'Data de Lançamento'(004).
PERFORM verifica_campo_vazio USING p_zycbe033-bukrs
'BUKRS'
'Empresa'(006).
PERFORM verifica_campo_vazio USING p_zycbe033-waers
'WAERS'
'Moeda'(010).
PERFORM verifica_campo_vazio USING p_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING p_zycbe033-d_newko
'NEWKO'
'Conta Débito'(035).
ENDFORM.
form cancela_clearing_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbe033 LIKE LINE OF itab_zycbe033.
CHECK NOT p_devolucao-belnr_comp IS INITIAL.
PERFORM limpa_dados_bi.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM cancela_documento
USING p_devolucao-dtlancto_comp
v_cpochv
CHANGING wa_zycbe033
p_devolucao-belnr_comp.
IF itab_zycbt034[] IS INITIAL.
CLEAR:
p_devolucao-belnr_comp,
p_devolucao-dtlancto_comp.
ENDIF.
endform.
form estorna_desm_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_count TYPE t_mensagem-msg,
v_msg TYPE t_mensagem-msg,
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbt011 TYPE /pws/zycbe011,
wa_cont TYPE t_contabilizacoes,
wa_zycbe033 LIKE LINE OF itab_zycbe033,
wa_mensagem TYPE t_mensagem.
CHECK p_devolucao-belnr_comp IS INITIAL.
CHECK NOT p_devolucao-belnr_desm_op IS INITIAL.
CHECK p_devolucao-operacao EQ c_excluido.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM busca_parametros
USING '030'
'E'
CHANGING wa_zycbt011 wa_zycbe033.
PERFORM busca_parametros_321
USING '030'
'TRE'
space
CHANGING wa_zycbe033.
PERFORM preenche_f30_est_desm_devol
USING p_devolucao
wa_zycbt011
v_cpochv
CHANGING wa_zycbe033.
APPEND wa_zycbe033 TO itab_zycbe033.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_f30.
PERFORM verifica_contabilizacao
USING c_f30 c_zycbt242 v_cpochv
'Lançamento do Desmembramento da devolução'(m44)
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
p_devolucao-belnr_desm_op = wa_mensagem-belnr.
p_devolucao-dtlancto_op = wa_zycbe033-budat.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_count
wa_mensagem-msg
p_devolucao-nrseq
'realizada com sucesso.'(m24)
'061'.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
wa_mensagem-msg_doc
space
space
space
'061'.
PERFORM limpa_dados_bi.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
endform.
FORM preenche_f30_est_desm_devol
USING p_devolucao LIKE LINE OF itab_devolucao
p_zycbt011 TYPE /pws/zycbe011
p_cpochv TYPE /pws/zycbe033-cpochv
CHANGING p_zycbe033 LIKE LINE OF itab_zycbe033.
DATA:
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_codaux3 TYPE /pws/zygle316-codaux3,
wa_doctos LIKE LINE OF itab_doctos,
wa_zycbt089 LIKE LINE OF itab_zycbt089.
READ TABLE itab_zycbt089 INTO wa_zycbt089
WITH KEY bukrs = <fs_op>-bukrs.
p_zycbe033-tcode = c_f30.
p_zycbe033-tabela = c_zycbt242.
p_zycbe033-cpochv = p_cpochv.
p_zycbe033-bukrs = <fs_op>-bukrs.
p_zycbe033-budat = p_devolucao-dtdevolucao.
p_zycbe033-bldat = p_zycbe033-budat.
p_zycbe033-waers = <fs_op>-waers.
p_zycbe033-gsber = <fs_op>-gsberf.
p_zycbe033-werks = <fs_op>-werks.
p_zycbe033-brnch = <fs_op>-j_1bbranch.
p_zycbe033-wrbtr = p_devolucao-vldevolucao.
PERFORM busca_taxa_devolucao
USING p_devolucao
p_zycbt011
wa_zycbt089-tx_devol_op
CHANGING p_zycbe033-kursf.
p_zycbe033-newbs = '19'.
p_zycbe033-umskz = p_zycbt011-agums.
p_zycbe033-d_newko = <fs_op>-kunag.
wa_doctos-tcode = p_zycbe033-tcode.
wa_doctos-tabela = p_zycbe033-tabela.
wa_doctos-cpochv = p_zycbe033-cpochv.
wa_doctos-belnr = p_devolucao-belnr_desm_op.
wa_doctos-dtdocto = p_devolucao-dtlancto_op.
APPEND wa_doctos TO itab_doctos.
wa_doctos-belnr = <fs_op>-belnr_assoc.
wa_doctos-dtdocto = <fs_op>-dt_assoc.
APPEND wa_doctos TO itab_doctos.
PERFORM verifica_campo_vazio USING p_zycbe033-budat
'DTCREDEXT'
'Data do Documento'(005).
PERFORM verifica_campo_vazio USING p_zycbe033-bldat
'DTLANCTO'
'Data de Lançamento'(004).
PERFORM verifica_campo_vazio USING p_zycbe033-bukrs
'BUKRS'
'Empresa'(006).
PERFORM verifica_campo_vazio USING p_zycbe033-waers
'WAERS'
'Moeda'(010).
PERFORM verifica_campo_vazio USING p_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
PERFORM verifica_campo_vazio USING p_zycbe033-d_newko
'NEWKO'
'Conta Débito'(035).
ENDFORM.
form estorna_devolucao
CHANGING p_devolucao TYPE t_devolucao.
DATA:
v_cpochv TYPE /pws/zycbe033-cpochv,
wa_zycbe033 LIKE LINE OF itab_zycbe033.
CHECK p_devolucao-belnr_comp IS INITIAL.
CHECK NOT p_devolucao-belnr IS INITIAL.
PERFORM limpa_dados_bi.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
CONCATENATE <fs_op>-bukrs
p_devolucao-nrseq
p_devolucao-dtdevolucao
INTO v_cpochv.
PERFORM estorna_documento
USING p_devolucao-dtlancto
v_cpochv
CHANGING wa_zycbe033
p_devolucao-belnr.
IF itab_zycbt034[] IS INITIAL.
CLEAR:
p_devolucao-belnr,
p_devolucao-dtlancto.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034I01
...
WHEN '0120'.
PERFORM user_command_0120.
WHEN '0131'.
PERFORM user_command_0131.
WHEN '0132'.
PERFORM user_command_0132.
WHEN '0140'.
PERFORM user_command_0140.
WHEN '0150'.
PERFORM user_command_0150.
* >> Início da inclusão: MODULE USER_COMMAND
WHEN '0200'.
PERFORM user_command_0200.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE user_command_exit INPUT.
CASE sy-dynnr.
WHEN '0100'.
CASE sy-tcode.
WHEN c_transacao_a OR
c_transacao_e.
LEAVE TO SCREEN 0001.
WHEN OTHERS.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0002'.
LEAVE TO SCREEN 0.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN '0200'.
LEAVE TO SCREEN 0.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE verifica_processo INPUT.
PERFORM: verifica_autorizacao USING 'TCODE'.
ENDMODULE.
MODULE atualiza_tc_op INPUT.
PERFORM atualiza_tc_op.
ENDMODULE.
MODULE verifica_vlr_exterior INPUT.
DATA: v_exit.
...
...
tc_contrato.
WHEN '0140'.
PERFORM atualiza_tc_rendimentos
USING itab_rendimentos
tc_rendimentos.
WHEN '0150'.
PERFORM atualiza_tc_disponibilidade
USING itab_disp_00
tc_00
c_00.
* >> Início da inclusão: MODULE ATUALIZA_TC
WHEN '0200'.
PERFORM atualiza_tc_devolucao
USING itab_devolucao
tc_devolucao.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE guarda_ts_atual INPUT.
wa_controle-ts_atual = ts_principal-activetab.
ENDMODULE.
MODULE verifica_campos INPUT.
DATA:
wa_disp LIKE LINE OF itab_disp_30,
v_sldext TYPE /pws/zycbe226-sld_exterior.
CLEAR:
...
...
MODIFY SCREEN.
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt226 ASSIGNING <fs_receb>.
MOVE:
<fs_receb>-SLD_TRANSFERIR TO <fs_receb>-VLR_EXTERIOR,
'X' TO <fs_receb>-drilldown.
ENDLOOP.
ENDCASE.
endmodule.
* >> Início da inclusão:
module verifica_valor_devolucao input.
DATA:
wa_zycbt226 LIKE LINE OF itab_zycbt226.
READ TABLE itab_zycbt226 INTO wa_zycbt226
WITH KEY nrseq = /pws/zycbe242-nrseqop.
IF /pws/zycbe242-vldevolucao > wa_zycbt226-sld_exterior.
PERFORM message_store USING '/PWS/ZYCBM'
'E'
'Valor da Devolução'(043)
'deve ser menor ou igual ao'(m10)
'Saldo no Exterior'(044)
space
'061'.
CLEAR:
/pws/zycbe242-vldevolucao.
ENDIF.
IF /pws/zycbe242-vldevolucao > wa_zycbt226-sld_associar.
PERFORM message_store USING '/PWS/ZYCBM'
'E'
'Valor da Devolução'(043)
'deve ser menor ou igual ao'(m10)
'Saldo a Associar'(042)
space
'061'.
CLEAR:
/pws/zycbe242-vldevolucao.
ENDIF.
endmodule.
module verifica_data_devolucao input.
DATA:
v_periodo TYPE frper,
v_ano TYPE gjahr,
v_periodo_fechado,
wa_devolucao LIKE LINE OF itab_devolucao.
CLEAR v_periodo_fechado.
PERFORM determina_periodo_contabil
USING /pws/zycbe226-bukrs
/pws/zycbe242-dtdevolucao
CHANGING v_periodo
v_ano.
PERFORM verifica_periodo_contabil
USING
/pws/zycbe226-bukrs
v_periodo
v_ano
CHANGING v_periodo_fechado.
IF v_periodo_fechado = 'X'.
MESSAGE e061 WITH 'Data Inválida, Favor redigitar.'(034).
ENDIF.
READ TABLE itab_devolucao INTO wa_devolucao
WITH KEY nrseqop = /pws/zycbe242-nrseqop
dtdevolucao = /pws/zycbe242-dtdevolucao.
IF sy-subrc EQ 0.
CHECK wa_devolucao-operacao NE c_novo.
MESSAGE e061 WITH 'Data Inválida, Favor redigitar.'(034).
ENDIF.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034O01
...
tc_70-lines = v_linhas.
WHEN '0132'.
DESCRIBE TABLE itab_contrato LINES v_linhas.
tc_contrato-lines = v_linhas.
WHEN '0140'.
DESCRIBE TABLE itab_rendimentos LINES v_linhas.
tc_rendimentos-lines = v_linhas.
WHEN '0150'.
DESCRIBE TABLE itab_disp_00 LINES v_linhas.
tc_00-lines = v_linhas.
* >> Início da inclusão: MODULE VERIFICAR_LINHAS
WHEN '0200'.
DESCRIBE TABLE itab_devolucao LINES v_linhas.
tc_devolucao-lines = v_linhas.
* << Fim da inclusão
ENDCASE.
endmodule.
* >> Início da inclusão:
module preenche_tc_devolucao output.
PERFORM preenche_tc_devolucao
USING itab_devolucao
tc_devolucao.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
PROGRAM /pws/sapmzycb034 MESSAGE-ID /pws/zycbm.
INCLUDE: /pws/zygli100,
/pws/zygli101,
<icon>.
TYPE-POOLS: icon.
TABLES:
/pws/zycbe226,
/pws/zycbe238,
/pws/zycbe239,
/pws/zycbe240,
* >> Início da inclusão:
/pws/zycbe242,
* << Fim da inclusão
/pws/zycbe017,
/pws/zycbt089.
CONTROLS:
ts_70 TYPE TABSTRIP,
ts_principal TYPE TABSTRIP,
tc_op TYPE TABLEVIEW USING SCREEN '0110',
tc_30 TYPE TABLEVIEW USING SCREEN '0120',
tc_70 TYPE TABLEVIEW USING SCREEN '0131',
tc_contrato TYPE TABLEVIEW USING SCREEN '0132',
tc_00 TYPE TABLEVIEW USING SCREEN '0150',
* >> Início da exclusão:
tc_rendimentos TYPE TABLEVIEW USING SCREEN '0140'.
* << Fim da exclusão
* >> Início da inclusão:
tc_rendimentos TYPE TABLEVIEW USING SCREEN '0140',
tc_devolucao TYPE TABLEVIEW USING SCREEN '0200'.
* << Fim da inclusão
CONSTANTS:
c_debito TYPE c VALUE 'D',
c_credito TYPE c VALUE 'C',
c_30(2) TYPE c VALUE '30',
c_70(2) TYPE c VALUE '70',
c_00(2) TYPE c VALUE '00',
c_tp1 TYPE /pws/zycbt239-tpcontr VALUE 'TIPO 01',
c_tp4 TYPE /pws/zycbt239-tpcontr VALUE 'TIPO 04',
c_contabilizado TYPE /pws/zycbt226-status VALUE 'C',
c_excluido TYPE c VALUE 'E',
...
...
c_tela_ts_70 TYPE FELD-FCOD VALUE 'TAB100_70',
c_tela_disp_70 TYPE FELD-FCOD VALUE 'TAB130_DISP',
c_tela_disp_00 TYPE FELD-FCOD VALUE 'TAB100_00',
c_mark(6) TYPE c VALUE 'V_MARK',
c_parametro(14) TYPE C VALUE 'ZYCBE034-NRSEQ',
c_f02 TYPE /pws/zycbt032-tcode VALUE 'F-02',
c_f30 TYPE /pws/zycbt032-tcode VALUE 'F-30',
c_fb08 TYPE /pws/zycbt032-tcode VALUE 'FB08',
c_fbra TYPE /pws/zycbt032-tcode VALUE 'FBRA',
c_zycbt239 TYPE /pws/zycbe033-tabela VALUE '/PWS/ZYCBT239',
* >> Início da inclusão:
c_zycbt242 TYPE /pws/zycbe033-tabela VALUE '/PWS/ZYCBT242',
* << Fim da inclusão
c_embarque_exportacao TYPE /pws/zycbt226-tipo_op VALUE 'E',
c_pagamento_antecipado TYPE /pws/zycbt226-tipo_op VALUE 'P',
c_transacao_c(14) TYPE c VALUE '/PWS/ZYCB034_C',
c_transacao_a(14) TYPE c VALUE '/PWS/ZYCB034_A',
c_transacao_e(14) TYPE c VALUE '/PWS/ZYCB034_E',
c_op TYPE sy-cprog VALUE '/PWS/SAPMZYCB034',
c_modulo(1) TYPE c VALUE 'E',
c_chave_oper(3) TYPE c VALUE 'TRE',
c_chv_oper_fat(3) TYPE c VALUE 'FTE',
c_codeven_op_emb(5) TYPE c VALUE '029',
...
...
parametros_carregados(1) TYPE c,
msg_inicializada(1) TYPE c,
tc_linhas TYPE sy-srows,
autorizacao_emp(1) TYPE c,
total_30_70(1) TYPE c,
periodo_fechado(1) TYPE c,
ts_atual LIKE ts_principal-activetab,
msg_cnt(3) TYPE N,
msg_lei_mostrada TYPE c,
END OF t_controle,
* >> Início da inclusão:
BEGIN OF t_devolucao.
INCLUDE STRUCTURE /pws/zycbt242.
TYPES:
sld_exterior TYPE /pws/zycbt226-sld_exterior,
sld_associar TYPE /pws/zycbt226-sld_associar,
belnr_f02 TYPE /pws/zycbt238-doc_cont,
mark(1) TYPE c,
operacao(1) TYPE c,
END OF t_devolucao,
* << Fim da inclusão
BEGIN OF t_disponibilidade.
INCLUDE STRUCTURE /pws/zycbt238.
TYPES:
belnr_f02 type /pws/zycbt238-doc_cont,
indice TYPE sy-index,
mark(1) TYPE c,
operacao(1) TYPE c,
END OF t_disponibilidade,
BEGIN OF t_contrato.
INCLUDE STRUCTURE /pws/zycbt239.
...
...
t_t_kna1 TYPE SORTED TABLE OF t_s_kna1
WITH UNIQUE KEY kunnr,
t_t_lfa1 TYPE SORTED TABLE OF t_s_lfa1
WITH UNIQUE KEY lifnr,
t_t_zycbt011 TYPE SORTED TABLE OF t_s_zycbt011
WITH UNIQUE KEY codeven codmod bukrs,
t_t_zycbt009 TYPE SORTED TABLE OF t_s_zycbt009
WITH UNIQUE KEY codpadr,
t_t_zycbt039 TYPE SORTED TABLE OF t_s_zycbt039
WITH UNIQUE KEY modo,
* >> Início da inclusão:
t_t_devolucao TYPE TABLE OF t_devolucao WITH DEFAULT KEY,
* << Fim da inclusão
t_t_disponibilidade TYPE TABLE OF t_disponibilidade WITH DEFAULT KEY,
t_t_contrato TYPE TABLE OF t_contrato WITH DEFAULT KEY,
t_t_zycbt227 TYPE TABLE OF t_zycbt227 WITH DEFAULT KEY,
t_t_doctos TYPE TABLE OF t_doctos WITH DEFAULT KEY,
t_t_rendimentos TYPE TABLE OF t_rendimentos WITH DEFAULT KEY,
t_t_contabilizacoes TYPE TABLE OF t_contabilizacoes WITH DEFAULT KEY,
t_t_zycbt032 TYPE TABLE OF t_s_zycbt032 WITH DEFAULT KEY,
t_t_zycbe033 TYPE TABLE OF t_s_zycbe033 WITH DEFAULT KEY,
t_t_zycbt034 TYPE TABLE OF t_s_zycbt034 WITH DEFAULT KEY,
t_t_zycbt036 TYPE TABLE OF t_s_zycbt036 WITH DEFAULT KEY,
...
...
itab_zyglt368 TYPE t_t_zyglt368,"#EC NEEDED
itab_zycbt011 TYPE t_t_zycbt011,
itab_zycet001 TYPE t_t_zycet001,
itab_zycet047 TYPE t_t_zycet047,
itab_zycet048 TYPE t_t_zycet048,
itab_zycit054 TYPE t_t_zycit054,
itab_kna1 TYPE t_t_kna1,
itab_lfa1 TYPE t_t_lfa1,
itab_bkpf TYPE t_t_bkpf,
itab_zycbe224 TYPE t_t_zycbe224,
* >> Início da inclusão:
itab_devolucao TYPE t_t_devolucao,
* << Fim da inclusão
itab_disp_30 TYPE t_t_disponibilidade,
itab_disp_70 TYPE t_t_disponibilidade,
itab_contrato TYPE t_t_contrato,
itab_zycbt227 TYPE t_t_zycbt227,
itab_rendimentos TYPE t_t_rendimentos,
itab_disp_00 TYPE t_t_disponibilidade,
itab_disp_ant TYPE t_t_disponibilidade,
itab_contrato_ant TYPE t_t_contrato,
itab_doctos TYPE t_t_doctos,
itab_rendimentos_ant TYPE t_t_rendimentos,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 042
Texto: (16 caracteres)
"Saldo a Associar"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (18 caracteres)
"Valor da Devolução"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 044
Texto: (17 caracteres)
"Saldo no Exterior"
Comprimento máximo: 17
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: M33
Texto: (10 caracteres)
"** ERRO **"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M42
Texto: (32 caracteres)
"não possui saldo para devolução."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M43
Texto: (35 caracteres)
"Lançamento da Provisão da devolução"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M44
Texto: (41 caracteres)
"Lançamento do Desmembramento da devolução"
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M45
Texto: (35 caracteres)
"Lançamento do Clearing da devolução"
Comprimento máximo: 35
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT089
...
PREVISTO_USD /PWS/ZYGLL1351
TX_LANC_DISPON /PWS/ZYGLL1369
TX_EST_DISPON /PWS/ZYGLL1370
* >> Inicio da inclusão
TX_DEVOL_OP /PWS/ZYGLL1378
* >> Fim da Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBE242
* >> Inclusão de tabela
Descrição Breve: DEVOLUÇÃO DE ORDEM DE PAGAMENTO ANTECIPADO
CARACTERISTICAS:
Classe desenvolvimento: /PWS/ZYCB
Idioma original: PT
Categoria de tabela: Tabela transparente
Classe de entrega: A
Atualização de Tabelas Permitida: X
CAMPOS:
Campos chv inic. Tipo de Campo
MANDT X X MANDT
NRSEQ X X /PWS/ZYGLL1377
NRDEVOLUCAO NOTE_TXT
NRSEQOP /PWS/ZYGLL1342
BELNR BELNR_D
DTLANCTO BUDAT
VLDEVOLUCAO WRBTR
WAERS WAERS
DTDEVOLUCAO BUDAT
BELNR_DESM_OP BELNR_D
DTLANCTO_OP BUDAT
BELNR_COMP BELNR_D
DTLANCTO_COMP BUDAT
CAMPOS MOEDA/QUANT:
Campos TpCampo Tabela Referencia Cop.ref.
VLDEVOLUCAO WRBTR /PWS/ZYCBT242 WAERS
OPÇÕES TÉCNICAS:
Tipo de dados: APPL0
Categor.tamanho : 1
* >> Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBT242
* >> Inclusão de Estrutura
Descrição breve: DEVOLUÇÃO DE ORDEM DE PAGAMENTO ANTECIPADO
CARACTERISTICAS:
Classe desenvolvimento: /PWS/ZYCB
Idioma original: PT
COMPONENTES:
Componente TipoComponente
MANDT MANDT
NRSEQ /PWS/ZYGLL1377
NRDEVOLUCAO NOTE_TXT
NRSEQOP /PWS/ZYGLL1342
BELNR BELNR_D
DTLANCTO BUDAT
VLDEVOLUCAO WRBTR
WAERS WAERS
DTDEVOLUCAO BUDAT
BELNR_DESM_OP BELNR_D
DTLANCTO_OP BUDAT
BELNR_COMP BELNR_D
DTLANCTO_COMP BUDAT
CAMPOS MOEDA/QUANTIDADE:
Componente TipoComp. Tabela Referencia Cpo.ref.
VLDEVOLUCAO WRBTR /PWS/ZYCBE242 WAERS
* >> Fim Inclusão