CE PLUS - Nota 005479
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 17/12/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:38:35
Descrição da Nota: CAPTAÇÂO - ORDEM DE PAGAMENTO
Sintoma
Desenvolvimento adicional de Captação.
Solução
Desenvolvimento adicional de Captação.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05479 Data: 17/12/2007 Hora: 12:04:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05479
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00027
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÂO - ORDEM DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÂO - ORDEM DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB001
DOMA /PWS/ZYCBD331
DTEL /PWS/ZYCBL419
DTEL /PWS/ZYCBL483
DTEL /PWS/ZYCBL484
DYNP /PWS/SAPMZYCB001 0007
DYNP /PWS/SAPMZYCB001 0101
DYNP /PWS/SAPMZYCB001 0117
DYNP /PWS/SAPMZYCB001 0150
FUNC /PWS/ZYCBA282
MESS /PWS/ZYCBM307
REPS /PWS/LZYCBGF3UXX
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
REPS /PWS/MZYCB009I01
REPS /PWS/SAPMZYCB001
REPT /PWS/SAPMZYCB001
REPT /PWS/SAPMZYCB009
SHLP /PWS/ZYCBA282
TABD /PWS/ZYCBE001
TABD /PWS/ZYCBT001
TABL /PWS/ZYCBE241
TABL /PWS/ZYCBT241
VIEW /PWS/ZYCBV220
TABL /PWS/ZYCBE226
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB001
STATUS: 0100
ATRIBUTOS DE STATUS
TEXTO BREVE: CB - Captações
CATEGORIA DE STATUS
(X) - STATUS DIÁLOGO
(_) - CAIXA DE DIÁLOGO
(_) - MENU DE CONTEXTO
ALTERAR BOTÕES ESTÁTICOS:
NA POSIÇÂO DO BOTAO P-- (1ª Página)
CÓDIGO DE FUNÇÃO: F21
NA POSIÇÂO DO BOTAO P- (Página anterior)
CÓDIGO DE FUNÇÃO: F22
NA POSIÇÂO DO BOTAO P+ (Página seguinte)
CÓDIGO DE FUNÇÃO: F23
NA POSIÇÂO DO BOTAO P++ (Última página)
CÓDIGO DE FUNÇÃO: F24
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCBD331
CRIAR DOMÍNIO: /PWS/ZYCBD331
DESCRIÇÃO BREVE: CB - Tipo de Pagamento Antecipado
DEFINIÇÃO
FORMATO:
CATEGORIA DE DADOS: CHAR
NUM. POISÇÕES: 1
DECIMAIS: 0
CARACTERÍSTICAS DE SAÍDA:
COMPRIM. SAÍDA: 1
ROTINA CONVERSÃO: ____________
(_) - SINAL(+/-)
(_) - LETR. MAIÚSCULAS: ________
ÁREA DE VALORES
VALORES INDIVIDUAIS
VALOR FIXO: DESCRIÇÃO BREVE:
N Operação Normal
C Operação Com C/C ME
INTERVALOS
LIMITE INF.: LIMITE SUP.: DESCRIÇÃO BREVE:
TABELA VALORES: _________________________
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCBD331
Descrição breve incluída (33 caracteres), idioma: PT
"CB - Tipo de Pagamento Antecipado"
Classe de desenvolvimento: /PWS/ZYCB
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "N"
Texto incluído, idioma: PT (15 caracteres):
"Operação Normal"
Incluído valor fixo "C"
Texto incluído, idioma: PT (19 caracteres):
"Operação Com C/C ME"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCBL419
CRIAR ELEMENTO DE DADOS: /PWS/ZYCBL419
DESCRIÇÃO BREVE: CB - Valor Utilizado da Ordem
DEFINIÇÃO
CATEGORIA DE DADOS:
(X) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO WERT7
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
ATRIBUTOS:
REDIMENS: (_) - VERTICAL (_) - HORIZONTAL
___ - LINHAS MIN. ___ - COLUNAS MIN.
CARACTERÍSTICAS:
ID PARÂMETRO: ____________________
NOME COMPENENTE DEFAULT: ________________________
(X) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
BREVE : 10 Vlr. Ord.
MÉDIO : 15 Valor Ordem
LONGA : 24 Valor Utilizado da Ordem
TÍTULO: 24 Valor Utilizado da Ordem
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCBL419
Classe de desenvolvimento: /PWS/ZYCB
Idioma original: PT
Descrição breve incluída: (29 caracteres), idioma: PT
"CB - Valor Utilizado da Ordem"
Categoria de dados: Domínio
Domínio: WERT7
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (9 caracteres), idioma: PT
"Vlr. Ord."
Comprimento máximo do denominador médio: 15
Denominador médio incluído (11 caracteres), idioma: PT
"Valor Ordem"
Comprimento máximo do denominador longo: 24
Denominador longo incluído (24 caracteres), idioma: PT
"Valor Utilizado da Ordem"
Comprimento máximo do título: 24
Título incluído (24 caracteres), idioma: PT
"Valor Utilizado da Ordem"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCBL483
CRIAR ELEMENTO DE DADOS: /PWS/ZYCBL483
DESCRIÇÃO BREVE: CB - Tipo de Pagamento Antecipado
DEFINIÇÃO
CATEGORIA DE DADOS:
(X) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO /PWS/ZYCBD331
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
CARACTERÍSTICAS:
ID PARÂMETRO: ____________________
NOME COMPENENTE DEFAULT: ________________________
(X) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
BREVE : 10 Tp. Pg. At
MÉDIO : 17 Tp. Pagto. Antec.
LONGA : 28 Tipo de Pagamento Antecipado
TÍTULO: 28 Tipo de Pagamento Antecipado
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCBL483
Classe de desenvolvimento: /PWS/ZYCB
Idioma original: PT
Descrição breve incluída: (33 caracteres), idioma: PT
"CB - Tipo de Pagamento Antecipado"
Categoria de dados: Domínio
Domínio: /PWS/ZYCBD331
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
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
"Tp. Pg. At"
Comprimento máximo do denominador médio: 17
Denominador médio incluído (17 caracteres), idioma: PT
"Tp. Pagto. Antec."
Comprimento máximo do denominador longo: 28
Denominador longo incluído (28 caracteres), idioma: PT
"Tipo de Pagamento Antecipado"
Comprimento máximo do título: 28
Título incluído (28 caracteres), idioma: PT
"Tipo de Pagamento Antecipado"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCBL484
CRIAR ELEMENTO DE DADOS: /PWS/ZYCBL484
DESCRIÇÃO BREVE: CB - Saldo de Ordem de Pagamento Antecipado
DEFINIÇÃO
CATEGORIA DE DADOS:
(X) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO WERT7
(_) - TIPO INSTALADO CTG. DADOS: ________________
CUMPRIMEN.________ DECIMAIS.________
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
ATRIBUTOS:
CARACTERÍSTICAS:
ID PARÂMETRO: ____________________
NOME COMPENENTE DEFAULT: ________________________
(_) DOC. MODIFICAÇÃO
AJUDA PARA PESQUISA
NOME: __________________________
PARÂMETROS: __________________________
DENOM. DE CAMPO:
BREVE : 10 Pag. Ant.
MÉDIO : 20 Saldo Ord. Pag. Ant.
LONGA : 38 Saldo de Ordem de Pagamento Antecipado
TÍTULO: 38 Saldo de Ordem de Pagamento Antecipado
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCBL484
Classe de desenvolvimento: /PWS/ZYCB
Idioma original: PT
Descrição breve incluída: (43 caracteres), idioma: PT
"CB - Saldo de Ordem de Pagamento Antecipado"
Categoria de dados: Domínio
Domínio: WERT7
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 (9 caracteres), idioma: PT
"Pag. Ant."
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Saldo Ord. Pag. Ant."
Comprimento máximo do denominador longo: 38
Denominador longo incluído (38 caracteres), idioma: PT
"Saldo de Ordem de Pagamento Antecipado"
Comprimento máximo do título: 38
Título incluído (38 caracteres), idioma: PT
"Saldo de Ordem de Pagamento Antecipado"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0007
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB001
0007
46C
40
%_HEADER
/PWS/SAPMZYCB001 0007M0007 2 22192 35 0 0 27127 0G P
20071119135309
%_DESCRIPTION
CB - Tipo de Pagamento Antecipado
%_FIELDS
V_OPNOR
CCHAR 18000800000 1 3 0 0 0 0A 0 0104
_
V_OPNOR
0CHAR 150000003000 1 5 0 0 0 0A 0 0104
Operação_Normal
V_OPCCME
CCHAR 18000800000 2 3 0 0 0 0A 0 0104
_
V_OPCCME
0CHAR 190000003000 2 5 0 0 0 0A 0 0104
Operação_com_C/C_ME
OKCODE
CHAR 208010000000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
* Chamado 419791 - Rafael - 19.11.2007 - Início
PROCESS BEFORE OUTPUT.
MODULE status_0007.
PROCESS AFTER INPUT.
MODULE: user_command_0007 ,
user_command_0007_exit AT EXIT-COMMAND.
* Chamado 419791 - Rafael - 19.11.2007 - Início
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0101
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB001
0101
46C
40
%_HEADER
/PWS/SAPMZYCB001 0101I0101 13 87192 35 0 0 13 88 0G P
20071207183741
%_DESCRIPTION
CB - Subtela contratos
%_FIELDS
/PWS/ZYCBE001-F_ENCERRADO
0CHAR 183000013000 1 2 0 0 0 0 0 0
Contrato_Encerrado
X
/PWS/ZYCBE001-F_ENCERRADO
CCHAR 1B000813018 1 21 0 0 0 16 1 0
_
XDL
/PWS/ZYCBE001-DTCONTR
0CHAR 243000003000 1 54 0 0 0 0 0 0
Data_Contrato___________
X
/PWS/ZYCBE001-DTCONTR
DDATS 10A000A00008 1 79 0 0 0 0 8 0
?_________
X
/PWS/ZYCBE001-BCOCRED
0CHAR 183000003000 2 2 0 0 0 0 0 0
Banco_Crédito_____
X
/PWS/ZYCBE001-BCOCRED
CCHAR 10B100840008 2 21 0 0 0 0 ALPHA 10 0
__________
X
BCODESCR
CHAR 208000883100 2 32 0 0 0 0 0 0
____________________
/PWS/ZYCBE001-DTCRED
0CHAR 243000003000 2 54 0 0 0 0 0 0
Data_Crédito____________
X
/PWS/ZYCBE001-DTCRED
DDATS 10A000800008 2 79 0 0 0 0 8 0
__________
X
/PWS/ZYCBE001-DTDESEM
0CHAR 243000003000 3 54 0 0 0 0 0 0
Data_Desembolso_________
X
/PWS/ZYCBE001-DTDESEM
DDATS 10A000800008 3 79 0 0 0 0 8 0
__________
X
/PWS/ZYCBE001-VLME
0CHAR 183000003000 4 2 0 0 0 0 0 0
Valor_ME__________
X
/PWS/ZYCBE001-VLME
PCURR 16A000A00000 4 21 0 0 0 0 13 2 /PWS/ZYCBE001-WAERS
?_______________
/PWS/ZYCBE001-FDTLANC
0CHAR 193000013000 4 54 0 0 0 0 0 0
Data_Lançto/Crédito
X
/PWS/ZYCBE001-FDTLANC
CCHAR 1A000A10018 4 74 0 0 0 7 1 0
?
XDL
/PWS/ZYCBE001-FDTJUROS
CCHAR 1B000810018 4 82 0 0 0 7 1 0
_
XDL
/PWS/ZYCBE001-WAERS
2CHAR 153000043000 5 2 0 0 0 0 0 0
Moeda__________
X
/PWS/ZYCBE001-WAERS
CCUKY 5A0008C4008 5 21 0 0 0 0 FWS 5 0
_____
X
MOEDA
CHAR 258000883100 5 27 0 0 0 0 0 0
_________________________
/PWS/ZYCBE001-DTENTR
0CHAR 243000003000 5 54 0 0 0 0 0 0
Data_Entrega____________
X
/PWS/ZYCBE001-DTENTR
DDATS 10A000A00008 5 79 0 0 0 0 8 0
?_________
X
/PWS/ZYCBE001-TXCNEG
0CHAR 183000003000 6 2 0 0 0 0 0 0
Taxa_de_câmbio____
X
/PWS/ZYCBE001-TXCNEG
PDEC 12A000A00000 6 21 0 0 0 10 EXCRT 9 5
?_.___,_____
/PWS/ZYCBE001-DTLIQUID
0CHAR 243000003000 6 54 0 0 0 0 0 0
Data_Liquidação_________
X
/PWS/ZYCBE001-DTLIQUID
DDATS 10A000A00008 6 79 0 0 0 0 8 0
?_________
X
/PWS/ZYCBE001-VLMI
0CHAR 183000003000 7 2 0 0 0 0 0 0
Total_em_MI_______
X
/PWS/ZYCBE001-VLMI
PCURR 16A000800000 7 21 0 0 0 0 13 2 /PWS/ZYCBT007-WAERSB
________________
/PWS/ZYCBE001-DTINIJUR
0CHAR 243000003000 7 54 0 0 0 0 0 0
Dt_Inicial_Juros________
X
/PWS/ZYCBE001-DTINIJUR
DDATS 10A000800008 7 79 0 0 0 0 8 0
__________
X
/PWS/ZYCBE001-FRECEB
0CHAR 183000013000 9 2 0 0 0 0 0 0
Forma_Recebimento_
X
/PWS/ZYCBE001-FRECEB
CCHAR 4A000840018 9 21 0 0 0 16 4 0
____
XDL
/PWS/ZYCBE001-FFRCALC
0CHAR 183000013000 10 2 0 0 0 0 0 0
Forma_Cálculo_____
X
/PWS/ZYCBE001-FFRCALC
CCHAR 1A000810018 10 21 0 0 0 31 1 0
_
XDL
/PWS/ZYCBE001-TPCALCJUR
0CHAR 243000013000 10 54 0 0 0 0 0 0
Escalonamento___________
X
/PWS/ZYCBE001-TPCALCJUR
CCHAR 1A000814008 10 79 0 0 0 10 1 0
_
XDL
/PWS/ZYCBE001-CORRET
0CHAR 183000003000 11 2 0 0 0 0 0 0
Corretora_________
X
/PWS/ZYCBE001-CORRET
CCHAR 10A000840008 11 21 0 0 0 0 /PWS/ZYGLP001 ALPHA 10 0
KRED
__________
X
CORRETORA
CHAR 208000883100 11 32 0 0 0 0 0 0
____________________
/PWS/ZYCBE001-FTXT
0CHAR 183000013000 12 2 0 0 0 0 0 0
Texto_p/_Lançto___
X
/PWS/ZYCBE001-FTXT
CCHAR 1B000810018 12 21 0 0 0 31 1 0
_
XDL
/PWS/ZYCBE001-TXTINF
0CHAR 183000003000 13 2 0 0 0 0 0 0
Texto_Informativo_
X
/PWS/ZYCBE001-TXTINF
CCHAR 50B102800000 13 21 0 0 0 31 50 0
__________________________________________________
NRDIASCONTR
CHAR 240000083000 13 54 0 0 0 0 0 0
Número_de_Dias__________
X
V_NRDIASCONTR
INT4 108000883000 13 79 0 0 0 0 0 0
__________
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE: set_screen,
flag_texto. " Gisele 01.10.02
PROCESS AFTER INPUT.
* Cliente mercado Externo
* Christian - Chamado 170848 - 29/06/2004 - Inicio
FIELD /pws/zycbe001-waers MODULE trata_decimais.
FIELD /pws/zycbe001-vlme.
* Christian - Chamado 170848 - 29/06/2004 - Fim
* Consistência para Data Lanç. do Contrato - O
CHAIN.
FIELD: /pws/zycbe001-dtcontr,
/pws/zycbe001-fdtlanc.
MODULE dtl_consist_contr ON CHAIN-REQUEST.
ENDCHAIN.
* Consistência para Data Lanç. de Crédito - C
CHAIN.
FIELD: /pws/zycbe001-dtcred,
/pws/zycbe001-fdtlanc.
MODULE dtl_consist_cred ON CHAIN-REQUEST.
ENDCHAIN.
* Consistência para Data Lanç. de Desembolso - D
CHAIN.
FIELD: /pws/zycbe001-dtdesem,
/pws/zycbe001-fdtlanc.
MODULE dtl_consist_desem ON CHAIN-REQUEST.
ENDCHAIN.
* Consistência para Data Juros do Contrato - O
CHAIN.
FIELD: /pws/zycbe001-dtcontr,
/pws/zycbe001-fdtjuros.
MODULE dtj_consist_contr ON CHAIN-REQUEST.
ENDCHAIN.
* Consistência para Data Juros de Crédito - C
CHAIN.
FIELD: /pws/zycbe001-dtcred,
/pws/zycbe001-fdtjuros.
MODULE dtj_consist_cred ON CHAIN-REQUEST.
ENDCHAIN.
* Consistência para Data Juros de Desembolso - D
CHAIN.
FIELD: /pws/zycbe001-dtdesem,
/pws/zycbe001-fdtjuros.
MODULE dtj_consist_desem ON CHAIN-REQUEST.
ENDCHAIN.
CHAIN.
FIELD: /pws/zycbe001-dtcontr,
/pws/zycbe001-dtcred,
/pws/zycbe001-dtdesem,
/pws/zycbe001-dtentr,
/pws/zycbe001-dtliquid,
/pws/zycbe001-fdtlanc,
/pws/zycbe001-fdtjuros.
MODULE date_consistency ON CHAIN-REQUEST.
ENDCHAIN.
* Gisele Ferreira - 12/06/2002------------------------------*
FIELD /pws/zycbe001-bcocred MODULE empresa_banco_cred.
*-----------------------------------------------------------*
* A cada mudança de parcela
FIELD /pws/zycbe001-fdtjuros MODULE fdtlanc_consistency2 ON INPUT.
* Tipo de data de lançamento
FIELD /pws/zycbe001-fdtlanc MODULE fdtlanc_consistency.
* Texto para lançamento
CHAIN.
FIELD: /pws/zycbe001-ftxt,
/pws/zycbe001-txtinf.
MODULE ftxt_consistency.
ENDCHAIN.
FIELD /pws/zycbe001-ffrcalc MODULE juros_dp.
CHAIN.
FIELD: /pws/zycbe001-dtentr, /pws/zycbe001-dtliquid.
MODULE limpa_zycbt002 ON CHAIN-REQUEST.
ENDCHAIN.
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0117
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB001
0117
46C
40
%_HEADER
/PWS/SAPMZYCB001 0117I0117 12 88192 35 0 0 13 89 0G P
20071213160728
%_DESCRIPTION
CB - Ordem de Pagamento
%_FIELDS
BTN_MK
CHAR 40000003000 1 2 0 0 0 2P 0 0102
@4B@
MK
BTN_DEMARK
CHAR 40000083000 1 5 0 0 0 2P 0 0103
@4D@
DEMARK
BTN_DEL
CHAR 40000083000 1 9 0 0 0 2P 0 0104
@18@
DEL
TC_ORDPAG
88F9C8000000 2 2E101 1 1 11T 0 0
/PWS/ZYCBE226-NRSEQ
1CHAR 103000003080 1 1T101 1 1 10 0 0
Ordem_Pgto
/PWS/ZYCBE226-BUKRS
1CHAR 63000043080 1 2T101 1 1 5 0 0
Empr._
/PWS/ZYCBE226-GSBERF
1CHAR 103000043080 1 3T101 1 1 9 0 0
Divisão___
/PWS/ZYCBE226-WERKS
1CHAR 103000043080 1 4T101 1 1 12 0 0
Centro____
/PWS/ZYCBE226-J_1BBRANCH
1CHAR 103000043080 1 5T101 1 1 12 0 0
Local.neg.
/PWS/ZYCBE226-WAERS
1CHAR 103000043080 1 6T101 1 1 5 0 0
Moeda_____
/PWS/ZYCBE226-KUNAG
0CHAR 93000003080 1 7T101 1 1 10 0 0
Cod._Cli.
/PWS/ZYCBE226-BCO_ME
2CHAR 153000043080 1 8T101 1 1 10 0 0
Banco_C/C_ME___
/PWS/ZYCBE226-CONTA_CONTABIL
1CHAR 103000003080 1 9T101 1 1 10 0 0
Nº_conta__
/PWS/ZYCBE226-VLR_EXTERIOR
1CHAR 103000003080 1 10T101 1 1 14 0 0
Retido_Ext
/PWS/ZYCBE226-SLD_EXTERIOR
1CHAR 103000003080 1 11T101 1 1 16 0 0
Sld_Ext.__
/PWS/ZYCBE241-VLR_ORD
0CHAR 143000003080 1 12T101 1 1 13 0 0
Val._Utz._Ord.
/PWS/ZYCBE226-REF_OP
1CHAR 103000003080 1 13T101 1 1 10 0 0
Ref_Ord___
MARK
CCHAR 18000800020 1 0T101 1 1 1C 0 0105
_
/PWS/ZYCBE226-NRSEQ
CCHAR 10A000804008 1 1T101 1 1 10 /PWS/ZYGLP115 ALPHA 10 0
/PWS/ZYCBA282
__________
/PWS/ZYCBE226-BUKRS
CCHAR 4A0008C7008 1 2T101 1 1 5 BUK 4 0
____
X
/PWS/ZYCBE226-GSBERF
CCHAR 4A0008C7008 1 3T101 1 1 9 GSB 4 0
____
X
/PWS/ZYCBE226-WERKS
CCHAR 4A0008C7008 1 4T101 1 1 12 WRK 4 0
____
X
/PWS/ZYCBE226-J_1BBRANCH
CCHAR 4A0008C7008 1 5T101 1 1 12 4 0
____
X
/PWS/ZYCBE226-WAERS
CCUKY 5A0008C7008 1 6T101 1 1 6 FWS 5 0
_____
X
/PWS/ZYCBE226-KUNAG
CCHAR 10A1008C7008 1 7T101 1 1 9 VAG ALPHA 10 0
__________
X
/PWS/ZYCBE226-BCO_ME
CCHAR 10A0008C7008 1 8T101 1 1 17 ALPHA 10 0
__________
X
/PWS/ZYCBE226-CONTA_CONTABIL
CCHAR 10A000807000 1 9T101 1 1 10 ALPHA 10 0
__________
/PWS/ZYCBE226-VLR_EXTERIOR
PCURR 16A000807000 1 10T101 1 1 14 13 2 /PWS/ZYCBE226-WAERS
________________
/PWS/ZYCBE226-SLD_EXTERIOR
PCURR 16A000807000 1 11T101 1 1 14 13 2 /PWS/ZYCBE226-WAERS
________________
/PWS/ZYCBE241-VLR_ORD
PCURR 16A000804000 1 12T101 1 1 13 13 2 /PWS/ZYCBE241-WAERS
________________
/PWS/ZYCBE226-REF_OP
CCHAR 30A100807000 1 13T101 1 1 10 30 0
______________________________
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
* Chamado 419791 - Rafael - 20.11.2007 - Início
PROCESS BEFORE OUTPUT.
MODULE set_screen.
LOOP AT itab_zycbt226 WITH CONTROL tc_ordpag
CURSOR tc_ordpag-current_line.
MODULE insert_line.
MODULE move_mark.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_zycbt226.
FIELD: /pws/zycbe226-nrseq,
/pws/zycbe226-sld_exterior,
/pws/zycbe241-vlr_ord.
MODULE modify_line.
MODULE move_mark_table.
ENDLOOP.
MODULE user_command_0117.
* Chamado 419791 - Rafael - 20.11.2007 - Fim
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0150
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB001
0150
46C
40
%_HEADER
/PWS/SAPMZYCB001 0150 0150 29126192 35 0 0 29126 0G P
20071212190841
%_DESCRIPTION
CB - Captações de contratos - Operação com C/C ME
%_FIELDS
CC_TOOLBAR
900030003000 1 3 0 0 0 1U 1 45127
SS_HTML
340000003000 1 94 0 0 0 29B 1 1102
/PWS/ZYCBE001-NRCONTR
0CHAR 203000003000 2 3 0 0 0 0 0 0
NºContrato/Seq._____
X
/PWS/ZYCBE001-NRCONTR
CCHAR 15A100800000 2 24 0 0 0 10 15 0
_______________
X
V_NRSEQCVIEW
CHAR 98000883000 2 35 0 0 0 0 0 0
_________
/PWS/ZYCBE001-BCONEGOC
0CHAR 243000003000 2 46 0 0 0 0 0 0
Banco_Negociador________
X
/PWS/ZYCBE001-BCONEGOC
CCHAR 10A100840008 2 71 0 0 0 0 ALPHA 10 0
__________
X
BCONEG
CHAR 208100887900 2 82 0 0 0 11 0 0
____________________
/PWS/ZYCBE001-TPCONTR
0CHAR 203000043000 3 3 0 0 0 0 0 0
Tipo_Contrato_______
X
/PWS/ZYCBE001-TPCONTR
CCHAR 2A000847808 3 24 0 0 0 0 2 0
__
X
TPCONTR
CHAR 208100887900 3 27 0 0 0 17 0 0
____________________
/PWS/ZYCBE001-BCOFINAN
0CHAR 243000003000 3 46 0 0 0 0 0 0
Banco_Financiador_______
X
/PWS/ZYCBE001-BCOFINAN
CCHAR 10A100840008 3 71 0 0 0 0 ALPHA 10 0
__________
X
BCOFIN
CHAR 208100887900 3 82 0 0 0 11 0 0
____________________
/PWS/ZYCBE001-BUKRS
0CHAR 203000043000 4 3 0 0 0 0 0 0
Empresa/Filial______
X
/PWS/ZYCBE001-BUKRS
CCHAR 4A000A40008 4 24 0 0 0 0 BUK 4 0
?___
X
/PWS/ZYCBE001-J_1BBRANCH
CCHAR 4A100840008 4 29 0 0 0 0 4 0
____
X
/PWS/ZYCBE001-WERKS
0CHAR 243000003000 4 46 0 0 0 0 0 0
Centro/Divisão__________
X
/PWS/ZYCBE001-WERKS
CCHAR 4A000840008 4 71 0 0 0 0 WRK 4 0
____
X
/PWS/ZYCBE001-GSBER
CCHAR 4A100844008 4 76 0 0 0 0 GSB 4 0
____
X
/PWS/ZYCBE001-FCANC
0CHAR 203000003000 5 3 0 0 0 0 0 0
Cancelamento________
X
/PWS/ZYCBE001-FCANC
CCHAR 1A000803000 5 24 0 0 0 0 1 0
_
/PWS/ZYCBE001-BELNR
0CHAR 243000003000 5 46 0 0 0 0 0 0
Docto_Contábil__________
X
/PWS/ZYCBE001-BELNR
CCHAR 10A000803800 5 71 0 0 0 0 BLN ALPHA 10 0
__________
/PWS/ZYCBE001-DESC_RECEB
CCHAR 1A000800000 6 3 0 0 0 0C 1 0103
_
V_CONT_RECEB
0CHAR 340000003000 6 5 0 0 0 0 0 0
Contrato_de_Desconto_de_Recebíveis
/PWS/ZYCBE001-BELNR_COMP
0CHAR 243000003000 6 46 0 0 0 0 0 0
Docto_Compensação_______
X
/PWS/ZYCBE001-BELNR_COMP
CCHAR 10A000803800 6 71 0 0 0 0 BLN ALPHA 10 0
__________
TS_CONTR
900800000000 8 3J101 1 1 17I 17 90
TAB_CONTR
CHAR 110000083000 1 1I101 1 1 0P 0 0105SS_CONTR
TAB Contrato___
PFC_CONTR
TAB_PERP
CHAR 190000083000 1 2I101 1 1 0P 0 0106SS_PERP
TAB Período_Principal__
PFC_PERP
TAB_PERJ
0CHAR 130000083000 1 3I101 1 1 0P 0 0107SS_PERJ
TAB Período_Juros
PFC_PERJ
TAB_PERC
0CHAR 160000083000 1 4I101 1 1 0P 0 0108SS_PERC
TAB Período_Comissão
PFC_PERC
TAB_PROR
CHAR 130000083000 1 5I101 1 1 0P 0 0109SS_PROR
TAB Prorrogações_
PFC_PROR
TAB_BANC
CHAR 150000083000 1 6I101 1 1 0P 0 0110SS_BANC
TAB Dados_Bancários
PFC_BANC
TAB_ADIC
CHAR 270000083000 1 7I101 1 1 0P 0 0111CLASSIF_CONTAB
TAB Classificação__Contábil____
PFC_ADIC
TAB_DADIC
CHAR 160000003000 1 8I101 1 1 0P 0 0112SS_DADIC
TAB Dados_Adicionais
PFC_DADIC
TAB_TEXT
CHAR 150000003000 1 9I101 1 1 0P 0 0113SS_TEXT
TAB Texto_Adicional
PFC_TEXT
TAB_ROF
CHAR 30000003000 1 10I101 1 1 0P 0 0114SS_ROF
TAB ROF
PFC_ROF
TAB_ORDPAG
CHAR 180000003000 1 11I101 1 1 0P 0 0115SS_ORDPAG
TAB Ordem_de_Pagamento
PFC_ORDPAG
SS_CONTR
8800C0000000 10 4I101 0 0 14B 3 3116
SS_PERP
8800C0000000 10 4I101 0 0 14B 3 3117
SS_PERJ
8800C0000000 10 4I101 0 0 14B 3 3118
SS_PERC
8800C0003000 10 4I101 0 0 14B 3 3119
SS_PROR
8800C0000000 10 4I101 0 0 14B 3 3120
SS_BANC
8800C0000000 10 4I101 0 0 14B 3 3121
CLASSIF_CONTAB
8800C0000000 10 4I101 0 0 14B 3 3104
SS_DADIC
8800C0003000 10 4I101 0 0 14B 3 3122
SS_TEXT
8800C0003000 10 4I101 0 0 14B 3 3123
SS_ROF
8800C0003000 10 4I101 0 0 14B 3 3124
SS_ORDPAG
8800C0003000 10 4I101 0 0 14B 3 3125
OKCODE
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
* Chamado 419791 - Rafael - 19.11.2007 - Início
PROCESS BEFORE OUTPUT.
MODULE: status_cb001,
load_data,
parametros,
pasta_ov, "Ch.168231
set_screen,
* load_data,
* parametros,
esconde_campo,
status_0100_custom. "206393 - Luciana - 03/03/2005
CALL SUBSCREEN: ss_contr INCLUDING syst-cprog '0101',
ss_perj INCLUDING syst-cprog '0102',
ss_pror INCLUDING syst-cprog '0103',
ss_perp INCLUDING syst-cprog '0104',
* ss_rotm including syst-cprog '0105',
classif_contab INCLUDING syst-cprog '0106',
ss_banc INCLUDING syst-cprog '0107',
ss_text INCLUDING syst-cprog '0110',
ss_dadic INCLUDING syst-cprog '0600',
* ss_ordvda INCLUDING syst-cprog '0207',
ss_rof INCLUDING syst-cprog '0113',
ss_ordpag INCLUDING syst-cprog '0117',
ss_perc INCLUDING syst-cprog '0116'.
CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.
PROCESS AFTER INPUT.
* Trata autorizacao por empresa.
FIELD /pws/zycbe001-bukrs MODULE authority_empresa.
FIELD /pws/zycbe001-bconegoc MODULE empresa_banco_negoc ON INPUT.
FIELD /pws/zycbe001-bcofinan MODULE empresa_banco_finan ON INPUT.
CALL SUBSCREEN: ss_contr,
ss_perj,
ss_pror,
ss_perp,
classif_contab,
ss_banc,
ss_text,
ss_dadic,
* ss_ordvda,
ss_rof,
ss_ordpag,
ss_perc.
CALL SUBSCREEN ss_html.
MODULE trata_tela.
MODULE: check_waers,
check_juros,
user_command_exit AT EXIT-COMMAND,
user_command_cb001.
* Chamado 419791 - Rafael - 19.11.2007 - Fim
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA282
* >> Início da inclusão:
Grupo de Funções: /PWS/ZYCBGF3
Classe Desenvolvimento: /PWS/ZYCB
Modific. Opicional Tranfer
SHLP TYPE SHLP_DESCR_T ' ' 'X'
CALLCONTROL LIKE DDSHF4CTRL ' ' 'X'
Tabelas
SHLP_TAB TYPE SHLP_DESCR_TAB_T ' '
RECORD_TAB LIKE SEAHLPRES ' '
Texto Fonte
FUNCTION /PWS/ZYCBA282.
*"----------------------------------------------------------------------
*"*"Interface local:
*" TABLES
*" SHLP_TAB TYPE SHLP_DESCR_TAB_T
*" RECORD_TAB STRUCTURE SEAHLPRES
*" CHANGING
*" VALUE(SHLP) TYPE SHLP_DESCR_T
*" VALUE(CALLCONTROL) LIKE DDSHF4CTRL STRUCTURE DDSHF4CTRL
*"----------------------------------------------------------------------
TYPE-POOLS:
shlp.
TYPES: BEGIN OF t_s_dados.
INCLUDE STRUCTURE /pws/zycbt226.
TYPES: END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
wa_dados LIKE LINE OF itab_dados,
v_fieldname TYPE dfies-lfieldname,
v_bco_me TYPE /pws/zycbe001-bcocred,
v_kunag TYPE /pws/zycbe001-kunnr.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
* Busca na tabela shlp_tab os dados relativos aos campos.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
* Transfere os dados da record_tab para os respectivos campos da
* tabela interna.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
* CHECK <fs_fielddescr>-fieldname = 'NRSEQ'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IMPORT v_kunag FROM MEMORY ID '681'.
* Elimina da record_tab as entradas sem saldo
LOOP AT itab_dados ASSIGNING <fs_dados>.
IF <fs_dados>-sld_exterior <= 0 OR
<fs_dados>-kunag <> v_kunag.
DELETE record_tab INDEX sy-tabix.
DELETE itab_dados WHERE nrseq = <fs_dados>-nrseq.
ENDIF.
ENDLOOP.
ENDIF.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCBM307
CRIAR MENSAGEM DE TEXTO
CLASSE MENSAGENS: /PWS/ZYCBM
MENSAGEM TXT. BREVE MENSAGEM Auto-Explicat.
307 Ordem de Pagamento obrigatória para Tipo de Contrato DP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF3UXX
...
INCLUDE /PWS/LZYCBGF3U65.
INCLUDE /PWS/LZYCBGF3U66.
INCLUDE /PWS/LZYCBGF3U67.
INCLUDE /PWS/LZYCBGF3U68.
INCLUDE /PWS/LZYCBGF3U69.
INCLUDE /PWS/LZYCBGF3U70.
INCLUDE /PWS/LZYCBGF3U71.
INCLUDE /PWS/LZYCBGF3U72.
INCLUDE /PWS/LZYCBGF3U73.
INCLUDE /PWS/LZYCBGF3U74.
* >> Início da inclusão:
INCLUDE /PWS/LZYCBGF3U75.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
WHERE nrseqc = wa_zycbt001-nrseqc.
PERFORM monta_log_cfm USING wa_zycbt006_log
'/PWS/ZYCBT006'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT006'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF v_opccme = 'X'.
PERFORM estorna_dp_ccme.
PERFORM save_zycbt226.
LOOP AT itab_zycbt226.
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
WHERE nrseq = itab_zycbt226-nrseq.
MODIFY itab_zycbt226.
ENDLOOP.
ENDIF.
* << Fim da inclusão
PERFORM save_zycbt002.
PERFORM save_zycbt003.
PERFORM save_zycbt005.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
ELSEIF /pws/zycbe001-status IS INITIAL OR /pws/zycbe001-status EQ 'I'.
/pws/zycbe001-slpagar = /pws/zycbe001-vlme.
/pws/zycbe001-status = 'I'.
/pws/zycbt001-status = 'I'.
/pws/zycbt001-slpagar = /pws/zycbe001-vlme.
...
...
WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDIF.
ELSE.
/pws/zycbe001-slvinc = /pws/zycbe001-vlme.
/pws/zycbt001-slvinc = /pws/zycbe001-vlme.
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
/pws/zycbt001-slreserv = /pws/zycbe001-vlme.
ENDIF.
IF sy-tcode EQ c_transacao_c.
IF v_salvo_aux IS INITIAL.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF v_opnor = 'X'.
/pws/zycbe001-tp_pagt_antc = 'N'.
ENDIF.
IF v_opccme = 'X'.
/pws/zycbe001-tp_pagt_antc = 'C'.
ENDIF.
* << Fim da inclusão
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
WHILE sy-subrc NE 0.
PERFORM find_nrseqc.
INSERT INTO /pws/zycbt001 VALUES /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
IF sy-subrc EQ 0.
COMMIT WORK.
PERFORM monta_log_cfm USING /pws/zycbe001
...
...
UPDATE /pws/zycbt004 SET: dtincl = v_dtvincul
benefic = /pws/zycbe001-bconegoc
WHERE nrseqc = /pws/zycbe001-nrseqc
AND tpdesp = 'J'.
COMMIT WORK.
ENDIF.
PERFORM executa_exit.
IF v_contabiliza EQ 'X'.
PERFORM fill_date1_f02.
ENDIF.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF v_fechado = 'X' AND ( v_answer = 'N' OR v_answer = 'A' ).
CLEAR: v_fechado, v_answer.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM save_zycbt002.
PERFORM save_zycbt003.
PERFORM save_zycbt221.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF v_opccme = 'X'.
PERFORM save_zycbt226.
ENDIF.
* << Fim da inclusão
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
...
...
ENDIF.
IF /pws/zycbe003-tppror NE 'P'.
PERFORM atualiza_juros_pror
USING /pws/zycbe003-dtpror /pws/zycbe003-falttx.
ENDIF.
ENDFORM.
FORM fill_date1_f02.
DATA: mensagem(90) TYPE c,
v_budat(10) TYPE c,
v_datum(10) TYPE c.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF v_opccme = 'X'.
PERFORM contab_dp_me.
ELSE.
* << Fim da inclusão
PERFORM get_parameters_001.
* >> Início da inclusão: FORM FILL_DATE1_F02
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opnor = 'X'.
* << Fim da inclusão
itab_zycbe033-tcode = 'F-29'.
ELSE.
itab_zycbe033-tcode = 'F-02'.
ENDIF.
IF /pws/zycbe001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
ELSE.
itab_zycbe033-tabela = '/PWS/ZYCBT001'.
ENDIF.
...
...
itab_zycbe033-d_sgtxt = /pws/zycbe001-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe001-txtinf.
ENDIF.
CONCATENATE '001' /pws/zycbe001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF v_opccme = 'X'.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrcontr.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrcontr.
itab_zycbe033-augtx = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe001-txtinf.
itab_zycbe033-augtx = /pws/zycbe001-txtinf.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-xblnr = /pws/zycbe001-txtinf.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTLIQUID'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtliquid.
ELSEIF itab_zyglt321-cpocb = 'DTCONTR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtcontr.
ELSEIF itab_zyglt321-cpocb = 'DTCRED'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtcred.
ELSEIF itab_zyglt321-cpocb = 'DTDESEM'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtdesem.
ELSEIF itab_zyglt321-cpocb = 'DTENTR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtentr.
ELSEIF itab_zyglt321-cpocb = 'DTINIJUR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtinijur.
ENDIF.
WHEN 'ZUONR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
itab_zycbe033-c_zuonr = /pws/zycbe001-txtinf.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTLIQUID'.
itab_zycbe033-d_valut = /pws/zycbe001-dtliquid.
itab_zycbe033-c_valut = /pws/zycbe001-dtliquid.
ELSEIF itab_zyglt321-cpocb = 'DTCONTR'.
itab_zycbe033-d_valut = /pws/zycbe001-dtcontr.
itab_zycbe033-c_valut = /pws/zycbe001-dtcontr.
ELSEIF itab_zyglt321-cpocb = 'DTCRED'.
itab_zycbe033-d_valut = /pws/zycbe001-dtcred.
itab_zycbe033-c_valut = /pws/zycbe001-dtcred.
ELSEIF itab_zyglt321-cpocb = 'DTDESEM'.
itab_zycbe033-d_valut = /pws/zycbe001-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe001-dtdesem.
ELSEIF itab_zyglt321-cpocb = 'DTENTR'.
itab_zycbe033-d_valut = /pws/zycbe001-dtentr.
itab_zycbe033-c_valut = /pws/zycbe001-dtentr.
ELSEIF itab_zyglt321-cpocb = 'DTINIJUR'.
itab_zycbe033-d_valut = /pws/zycbe001-dtinijur.
itab_zycbe033-c_valut = /pws/zycbe001-dtinijur.
ENDIF.
ENDCASE.
ENDLOOP.
ELSE.
* << Fim da inclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe001-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ELSEIF itab_zyglt321-cpocb = 'NRSEQC'.
...
...
itab_zycbe033-zfbdt = /pws/zycbe001-dtcred.
ELSEIF itab_zyglt321-cpocb = 'DTDESEM'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtdesem.
ELSEIF itab_zyglt321-cpocb = 'DTENTR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtentr.
ELSEIF itab_zyglt321-cpocb = 'DTINIJUR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtinijur.
ENDIF.
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATE1_F02
ENDIF.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S'.
CONCATENATE /pws/zycbe001-nrseqc /pws/zycbe001-tpcontr
INTO itab_zycbe033-c_zuonr.
ENDIF.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING /pws/zycbe001-bukrs
'BUKRS'
text-018.
itab_zycbe033-bukrs = /pws/zycbe001-bukrs.
...
...
IF NOT /pws/zycbe001-posnr_va IS INITIAL.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
ENDIF.
IF /pws/zycbe001-tpcontr+0(1) = 'D'.
MOVE wa_zycbt011-agums TO itab_zycbe033-umskz.
itab_zycbe033-newbs = '19'.
ENDIF.
itab_zycbe033-kkber = /pws/zycbe001-area_credito.
itab_zycbe033-werks = /pws/zycbe001-werks.
APPEND itab_zycbe033.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opccme = ''.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND
NOT wa_zycbt089-rateio_cl IS INITIAL.
CLEAR: wa_zycbt221_aux.
REFRESH: wa_zycbt221_aux.
LOOP AT itab_zycbt221.
READ TABLE wa_zycbt221_aux WITH KEY
ct_lucro = itab_zycbt221-ct_lucro.
IF sy-subrc EQ 0.
wa_zycbt221_aux-vlr_rateio = wa_zycbt221_aux-vlr_rateio +
itab_zycbt221-vlr_rateio.
MODIFY wa_zycbt221_aux INDEX sy-tabix.
ELSE.
MOVE-CORRESPONDING itab_zycbt221 TO wa_zycbt221_aux.
APPEND wa_zycbt221_aux.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATE1_F02
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
PERFORM executa_exit_cliente USING 'CPT011'.
* >> Início da exclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opnor = 'X'.
* << Fim da inclusão
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CPT013'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opccme = ''.
* << Fim da inclusão
IF NOT wa_zycbt089-rateio_cl IS INITIAL.
IF wa_zycbt221_aux IS INITIAL.
MESSAGE i061 WITH text-414 text-415.
EXIT.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_29R'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
...
...
ELSE.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_29'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
OTHERS = 2.
* >> Início da inclusão: FORM FILL_DATE1_F02
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
IF /pws/zycbt001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_dtinicio = /pws/zycbe001-dtcontr.
WHEN 'D'.
v_dtinicio = /pws/zycbe001-dtdesem.
...
...
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001
LOOP AT itab_zycbt226.
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
WHERE nrseq = itab_zycbt226-nrseq.
MODIFY itab_zycbt226.
ENDLOOP.
* << Fim da inclusão
IF /pws/zycbt001-tpcontr(1) <> 'P' AND
wa_zycbt001-tpcontr(1) <> 'S'.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCBT001'
cpochv = /pws/zycbe001-nrseqc
tpmsg = 'S'.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'
tabela = '/PWS/ZYCBT002'
cpochv = /pws/zycbe001-nrseqc
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM clear_structures.
FREE MEMORY ID '001'.
CLEAR: /pws/zycbe001 , itab_zycbt002, itab_zycbt002p ,
itab_zycbt003 , itab_zycbt136, itab_zycbt136_aux,
itab_zycbt210 , itab_zycbt211, itab_zycbt210_aux,
itab_zycbt211_aux, itab_zycbt221, itab_zycbt221_aux,
wa_zycbt221 , wa_zycbt074 , /pws/zycbe074,
* >> Início da inclusão: FORM CLEAR_STRUCTURES
itab_zycbt226,
* << Fim da inclusão
itab_comissao.
REFRESH: itab_zycbt002 , itab_zycbt002p , itab_zycbt003 ,
itab_zycbt136 , itab_zycbt136_aux,
itab_zycbt210 , itab_zycbt211 , itab_zycbt210_aux,
itab_zycbt211_aux, itab_zycbt221 , itab_zycbt221_aux,
* >> Início da inclusão: FORM CLEAR_STRUCTURES
itab_zycbt226,
* << Fim da inclusão
wa_zycbt221, itab_comissao.
CLEAR: bcodescr, moeda , cliente, corretora,
...
...
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe001-tpcontr(1) NE 'C'.
IF /pws/zycbe001-fdtjuros IS INITIAL AND NOT
/pws/zycbe001-ffrcalc IS INITIAL.
MESSAGE i015 WITH text-005.
EXIT.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_CHANGES
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opccme = ''.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND
NOT wa_zycbt089-rateio_cl IS INITIAL.
LOOP AT itab_zycbt221.
READ TABLE wa_zycbt221_aux WITH KEY
ct_lucro = itab_zycbt221-ct_lucro.
IF sy-subrc EQ 0.
wa_zycbt221_aux-vlr_rateio = wa_zycbt221_aux-vlr_rateio +
itab_zycbt221-vlr_rateio.
MODIFY wa_zycbt221_aux INDEX sy-tabix.
ELSE.
MOVE-CORRESPONDING itab_zycbt221 TO wa_zycbt221_aux.
APPEND wa_zycbt221_aux.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM SAVE_CHANGES
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SAVE_CHANGES
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opccme = ''.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr+0(1) = 'D'.
IF NOT wa_zycbt089-rateio_cl IS INITIAL.
IF wa_zycbt221_aux IS INITIAL.
MESSAGE i061 WITH text-414 text-415.
EXIT.
* >> Início da inclusão: FORM SAVE_CHANGES
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
MOVE /pws/zycbe001-nrseqc TO /pws/zycbe074-nrseqc.
MOVE-CORRESPONDING /pws/zycbe074 TO /pws/zycbt074.
IF v_status_s NE 0 OR v_status_s IS INITIAL.
CASE /pws/zycbe001-tpcontr+0(1).
WHEN 'P' OR 'S' OR 'A' OR 'E' OR 'D' OR 'T'.
PERFORM ver_pro USING 'X'.
IF /pws/zycbe001-ffrcalc NE 'L' AND
...
...
PERFORM seleciona_fator_taxa CHANGING v_sai.
IF v_sai EQ 'X'.
EXIT.
ENDIF.
PERFORM define_przcontr.
IF /pws/zycbe001-f_pre EQ 'X'.
PERFORM lanca_pre_pagamento_acc.
ELSEIF /pws/zycbe001-tpcontr(1) <> 'P' AND
/pws/zycbe001-tpcontr(1) <> 'S' AND
/pws/zycbe001-tpcontr(1) <> 'T'.
* >> Início da inclusão: FORM SAVE_CHANGES
IF v_opccme = 'X'.
IF itab_zycbt226[] IS INITIAL.
ts_contr = 'FC_ORDPAG'.
MESSAGE i307.
EXIT.
ELSE.
CLEAR: v_soma_vo, v_bco_dif, v_bco_aux.
LOOP AT itab_zycbt226.
v_soma_vo = v_soma_vo + itab_zycbt226-vlr_ord.
IF v_bco_aux IS INITIAL.
v_bco_aux = itab_zycbt226-bco_me.
ENDIF.
IF v_bco_aux <> itab_zycbt226-bco_me.
v_bco_dif = 1.
ENDIF.
v_bco_aux = itab_zycbt226-bco_me.
ENDLOOP.
IF v_bco_dif = 1.
ts_contr = 'FC_ORDPAG'.
MESSAGE i015 WITH text-466.
EXIT.
ENDIF.
IF v_soma_vo <> /pws/zycbe001-vlme.
ts_contr = 'FC_ORDPAG'.
MESSAGE i015 WITH text-464 text-465.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM save_zycbt001.
ELSEIF /pws/zycbe001-tpcontr(1) EQ 'T'.
PERFORM save_zycbt001_tr.
ELSE.
PERFORM save_zycbt001_pre.
ENDIF.
IF NOT itab_zycbt136[] IS INITIAL.
PERFORM save_premio.
ELSEIF itab_zycbt136[] IS INITIAL AND
/pws/zycbe001-tpcontr(1) EQ 'T'.
...
...
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-stgrd = '01'.
ELSE.
itab_zycbe033-stgrd = '02'.
itab_zycbe033-budat = sy-datum.
ENDIF.
APPEND itab_zycbe033.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
MOVE itab_zycbe033-budat(4) TO v_gjahs.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
IF /pws/zycbe001-fdtlanc = 'O'.
MOVE /pws/zycbe001-dtcontr(4) TO v_gjahs.
ELSEIF /pws/zycbe001-fdtlanc = 'C'.
MOVE /pws/zycbe001-dtcred(4) TO v_gjahs.
ELSEIF /pws/zycbe001-fdtlanc = 'D'.
MOVE /pws/zycbe001-dtdesem(4) TO v_gjahs.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
v_gjahs = v_gjahs
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
...
...
IF sy-subrc NE 0.
WRITE: v_budat TO v_budat1,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat1+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
IF v_answer = 'J'.
v_lanc = 'S'.
ELSE.
v_lanc = 'N'.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
IF v_opccme = 'X'.
PERFORM estorna_dp_ccme.
PERFORM save_zycbt226.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM calcula_moeda_l.
IF /pws/zycbe091-vlmi IS INITIAL.
...
...
AND nrparcf = itab_zycbt006l-nrparcf
AND gsberf = itab_zycbt006l-gsberf
AND dtvincul = itab_zycbt006l-dtvincul
AND dtvencto = itab_zycbt006l-dtvencto.
p_vlmeamj = p_vlmeamj +
( itab_zycbt006l-vlme * /pws/zycbt005-parid ).
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM update_itab_zycbt226.
DATA: v_line(4) TYPE n.
IF v_status_s EQ '0'.
EXIT.
ENDIF.
v_line = tc_ordpag-current_line.
IF itab_zycbt226-mark EQ 'X'.
itab_zycbt226-mark = 'X'.
itab_zycbt226_aux-mark = 'X'.
ELSE.
CLEAR itab_zycbt226-mark.
CLEAR itab_zycbt226_aux-mark.
ENDIF.
MODIFY itab_zycbt226 INDEX v_line TRANSPORTING mark.
MODIFY itab_zycbt226_aux INDEX v_line TRANSPORTING mark.
CLEAR /pws/zycbt226.
SELECT SINGLE * FROM /pws/zycbt241
WHERE nrseqc = /pws/zycbe001-nrseqc
AND nrseq = /pws/zycbe226-nrseq.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycbt226
WHERE nrseq = /pws/zycbe226-nrseq
AND tipo_op = 'P'
AND kunag = /pws/zycbe001-kunnr.
ELSE.
SELECT SINGLE * FROM /pws/zycbt226
WHERE nrseq = /pws/zycbe226-nrseq
AND tipo_op = 'P'
AND sld_exterior > 0
AND kunag = /pws/zycbe001-kunnr.
ENDIF.
IF sy-subrc = 0.
IF /pws/zycbe001-kunnr EQ /pws/zycbt226-kunag.
MOVE-CORRESPONDING /pws/zycbt226 TO itab_zycbt226.
IF sy-tcode EQ '/PWS/ZYCB001_C'.
IF /pws/zycbe241-vlr_ord GT /pws/zycbe226-sld_exterior.
CLEAR: /pws/zycbe241-vlr_ord.
MESSAGE i015 WITH text-462 text-463.
ENDIF.
ENDIF.
MOVE /pws/zycbe241-vlr_ord TO itab_zycbt226-vlr_ord.
MODIFY itab_zycbt226 INDEX v_line.
IF sy-subrc NE 0.
READ TABLE itab_zycbt226_aux WITH KEY
nrseq = itab_zycbt226-nrseq.
IF sy-subrc NE 0.
READ TABLE itab_zycbt226 WITH KEY
nrseq = /pws/zycbe226-nrseq.
IF sy-subrc NE 0.
APPEND itab_zycbt226.
CLEAR itab_zycbt226_aux.
MOVE itab_zycbt226 TO itab_zycbt226_aux.
APPEND itab_zycbt226_aux.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM save_zycbt226.
CLEAR: v_vlr_ord,
v_vlr_ord_aux,
v_dif_fat.
SELECT *
INTO TABLE itab_zycbt227
FROM /pws/zycbt227.
LOOP AT itab_zycbt226.
CLEAR v_ver_227.
READ TABLE itab_zycbt227 WITH KEY nrseq = itab_zycbt226-nrseq.
IF sy-subrc EQ 0.
CLEAR v_saldo.
SELECT SUM( saldo )
INTO v_saldo
FROM /pws/zycbt227
WHERE nrseq = itab_zycbt226-nrseq.
IF v_saldo NE 0.
v_vlr_ord = itab_zycbt226-vlr_ord.
v_ver_227 = 1.
LOOP AT itab_zycbt227 WHERE nrseq = itab_zycbt226-nrseq.
IF v_vlr_ord > 0 AND itab_zycbt227-saldo NE 0.
IF v_vlr_ord >= itab_zycbt227-saldo.
v_vlr_ord = v_vlr_ord - itab_zycbt227-saldo.
IF itab_zycbt227-vlr_associado <> itab_zycbt227-saldo.
itab_zycbt227-vlr_associado =
itab_zycbt227-vlr_associado -
( itab_zycbt227-vlr_associado -
itab_zycbt227-saldo ).
ENDIF.
itab_zycbt227-saldo = 0.
ELSE.
itab_zycbt227-saldo = itab_zycbt227-saldo - v_vlr_ord.
ENDIF.
v_dif_fat = itab_zycbt227-vlr_associado -
itab_zycbt227-saldo.
UPDATE /pws/zycbt017
SET vlslf = vlslf - v_dif_fat
WHERE nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf.
UPDATE /pws/zycbt030
SET vlslliq = vlslliq - v_dif_fat
WHERE nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf.
IF itab_zycbt227-saldo > 0.
v_vlr_ord = 0.
ENDIF.
ENDIF.
UPDATE /pws/zycbt227
SET saldo = itab_zycbt227-saldo
WHERE nrseq = itab_zycbt226-nrseq
AND nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf
AND dtassoc = itab_zycbt227-dtassoc.
ENDLOOP.
ENDIF.
UPDATE /pws/zycbt226
SET sld_exterior = sld_exterior - itab_zycbt226-vlr_ord
WHERE nrseq = itab_zycbt226-nrseq.
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
WHERE nrseq = itab_zycbt226-nrseq.
MODIFY itab_zycbt226.
ELSE.
UPDATE /pws/zycbt226
SET sld_exterior = sld_exterior - itab_zycbt226-vlr_ord
WHERE nrseq = itab_zycbt226-nrseq.
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
WHERE nrseq = itab_zycbt226-nrseq.
MODIFY itab_zycbt226.
ENDIF.
/pws/zycbt241-nrseqc = /pws/zycbe001-nrseqc.
/pws/zycbt241-nrseq = itab_zycbt226-nrseq.
/pws/zycbt241-waers = itab_zycbt226-waers.
/pws/zycbt241-vlr_ord = itab_zycbt226-vlr_ord.
IF v_ver_227 = 1.
/pws/zycbt241-sld_assoc = v_vlr_ord.
ELSE.
/pws/zycbt241-sld_assoc = itab_zycbt226-vlr_ord.
ENDIF.
/pws/zycbt241-bco_me = itab_zycbt226-bco_me.
MODIFY /pws/zycbt241.
ENDLOOP.
UPDATE /pws/zycbt001
SET slvinc = slvinc - /pws/zycbe001-vlme
slpagar = slpagar - /pws/zycbe001-vlme
WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDFORM.
FORM contab_dp_me.
v_bcocred = /pws/zycbe001-bcocred.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = v_bcocred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0 .
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-015.
v_bcocred = itab_zycbt226-bco_me.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = v_bcocred
codaux2 = /pws/zycbe001-waers
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0 .
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
ENDIF.
IF sy-subrc EQ 0 .
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-012.
ENDFORM.
FORM paginacao_tc USING p_linhas
CHANGING p_top_line.
CASE okcode.
WHEN 'F21'.
p_top_line = 1.
WHEN 'F22'.
p_top_line =
p_top_line - 10.
IF p_top_line LE 0.
p_top_line = 1.
ENDIF.
WHEN 'F23'.
p_top_line =
p_top_line + 10.
IF p_top_line GE p_linhas.
p_top_line = p_linhas.
ENDIF.
WHEN 'F24'.
p_top_line = p_linhas.
ENDCASE.
CLEAR okcode.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
CLEAR itab_partidas-d_zuonr.
ENDIF.
itab_partidas-dtdocto = itab_zycbt061-budat_d.
APPEND itab_partidas.
ENDLOOP.
CLEAR v_div.
IF /pws/zycbe001-tpcontr(1) EQ 'D'.
v_div = 'X'.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs = /pws/zycbe001-bukrs.
* >> Início da inclusão: FORM CLEARING_PRE
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND v_opccme = ''.
* << Fim da inclusão
IF NOT wa_zycbt089-rateio_cl IS INITIAL.
CLEAR: wa_zycbt221_aux.
REFRESH: wa_zycbt221_aux.
LOOP AT itab_zycbt221.
READ TABLE wa_zycbt221_aux
WITH KEY ct_lucro = itab_zycbt221-ct_lucro.
IF sy-subrc EQ 0.
wa_zycbt221_aux-vlr_rateio = wa_zycbt221_aux-vlr_rateio +
itab_zycbt221-vlr_rateio.
MODIFY wa_zycbt221_aux INDEX sy-tabix.
ELSE.
MOVE-CORRESPONDING itab_zycbt221 TO wa_zycbt221_aux.
APPEND wa_zycbt221_aux.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM CLEARING_PRE
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
IF /pws/zycbe001-tpcontr(1) NE 'D'.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = 'X'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM estorna_dp_ccme.
CLEAR: v_vlr_ord,
v_vlr_ord_aux,
v_dif_fat.
SELECT *
INTO TABLE itab_zycbt241
FROM /pws/zycbt241
WHERE nrseqc = /pws/zycbe001-nrseqc.
SELECT *
INTO TABLE itab_zycbt227
FROM /pws/zycbt227.
LOOP AT itab_zycbt241.
v_vlr_ord = itab_zycbt241-vlr_ord.
v_vlr_ord_aux = v_vlr_ord.
UPDATE /pws/zycbt226
SET sld_exterior = sld_exterior + v_vlr_ord
WHERE nrseq = itab_zycbt241-nrseq.
READ TABLE itab_zycbt227 WITH KEY nrseq = itab_zycbt241-nrseq.
IF sy-subrc EQ 0.
v_vlr_ord = itab_zycbt241-vlr_ord.
LOOP AT itab_zycbt227 WHERE nrseq = itab_zycbt241-nrseq.
v_dif_fat = itab_zycbt227-vlr_associado - itab_zycbt227-saldo.
IF v_vlr_ord < v_dif_fat.
v_dif_fat = v_vlr_ord.
ENDIF.
UPDATE /pws/zycbt227
SET saldo = saldo + v_dif_fat
WHERE nrseq = itab_zycbt241-nrseq
AND nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf
AND dtassoc = itab_zycbt227-dtassoc.
UPDATE /pws/zycbt017
SET vlslf = vlslf + v_dif_fat
WHERE nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf.
UPDATE /pws/zycbt030
SET vlslliq = vlslliq + v_dif_fat
WHERE nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf.
ENDLOOP.
ENDIF.
ENDLOOP.
DELETE FROM /pws/zycbt241 WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDFORM.
form exporta_banco_cliente.
v_kunag = /pws/zycbe001-kunnr.
EXPORT v_kunag TO MEMORY ID '681'.
CLEAR: v_kunag.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
CLEAR r_okcode.
v_tela_help = '0052'.
EXIT.
WHEN 'CLI'.
PERFORM drill_down.
WHEN 'DELE'.
CLEAR v_answer.
PERFORM popup_message USING text-357 text-104.
IF v_answer EQ 'J'.
PERFORM elimina_textos_geral.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
PERFORM estorna_dp_ccme.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt001
WHERE nrseqc = v_nrseqc.
IF /pws/zycbt001-f_pre = 'C' OR
/pws/zycbt001-f_pre = 'X'.
PERFORM elimina_pre_acc.
ELSEIF /pws/zycbt001-tpcontr(1) = 'P' OR
/pws/zycbt001-tpcontr(1) = 'S' OR
( /pws/zycbt001-tpcontr(1) = 'E' AND
/pws/zycbt001-capital = 'X' ).
PERFORM delete_zycbt001_pre1.
...
...
WHEN '0103'.
PERFORM update_itab_zycbt003.
WHEN '0104'.
PERFORM update_itab_zycbt002p.
WHEN '0105'.
MOVE-CORRESPONDING /pws/zycbe002 TO itab_zycbt002.
MODIFY itab_zycbt002 INDEX /pws/zycbe002-nrparc
TRANSPORTING kostl prctr fipos fictr.
WHEN '0114'.
PERFORM update_itab_zycbt216.
* >> Início da inclusão: MODULE MODIFY_LINE
WHEN '0117'.
PERFORM update_itab_zycbt226.
* << Fim da inclusão
WHEN '0207'.
PERFORM verifica_ordem.
IF v_tipo = 1.
MESSAGE i061 WITH 'Tipo da OV não parametrizado.'
'Ordem' v_ordem 'não inclusa.'.
ENDIF.
IF v_pagador = 1.
MESSAGE i061 WITH 'Pagador diverge do Cliente informado.'
'Ordem' v_ordem 'não inclusa.'.
ENDIF.
...
...
INTO CORRESPONDING FIELDS OF /pws/zycbe074
WHERE nrseqc = v_nrseqc.
MOVE-CORRESPONDING /pws/zycbe074 TO wa_zycbt074.
SELECT * FROM /pws/zycbt221 INTO TABLE itab_zycbt221
WHERE nrseqc EQ /pws/zycbe001-nrseqc.
LOOP AT itab_zycbt221.
MOVE-CORRESPONDING itab_zycbt221 TO wa_zycbt221.
APPEND wa_zycbt221.
ENDLOOP.
itab_zycbt221_ant[] = itab_zycbt221[].
* >> Início da inclusão: MODULE USER_COMMAND_0002
SELECT
/pws/zycbt226~nrseq
/pws/zycbt226~bukrs
/pws/zycbt226~gsberf
/pws/zycbt226~werks
/pws/zycbt226~j_1bbranch
/pws/zycbt226~waers
/pws/zycbt226~kunag
/pws/zycbt226~bco_me
/pws/zycbt226~conta_contabil
/pws/zycbt226~vlr_exterior
/pws/zycbt226~sld_exterior
/pws/zycbt241~vlr_ord
/pws/zycbt226~ref_op
/pws/zycbt241~sld_assoc
FROM /pws/zycbt241 INNER JOIN /pws/zycbt226
ON /pws/zycbt241~nrseq = /pws/zycbt226~nrseq
INTO TABLE itab_zycbt226
WHERE /pws/zycbt241~nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt226_aux[] = itab_zycbt226[].
* << Fim da inclusão
PERFORM seleciona_comissao.
v_pre = 'NO'.
IF /pws/zycbe001-f_pre = 'X'.
ENDIF.
PERFORM lock_record.
MOVE /pws/zycbe001 TO wa_zycbt001.
SELECT SINGLE waersb FROM /pws/zycbt007 INTO (v_waersb)
WHERE bukrs EQ /pws/zycbe001-bukrs.
CLEAR: v_flaginij, v_flaginip.
CLEAR itab_zycbt006.
...
...
SELECT * FROM /pws/zycbt136
INTO TABLE itab_zycbt136
WHERE nrseqc = /pws/zycbe001-nrseqc.
SELECT * FROM /pws/zyglt209
INTO TABLE itab_zyglt209
WHERE nrseq = /pws/zycbe001-nrseqc.
SELECT MAX( dtpagto )
INTO v_dtpagto
FROM /pws/zycbt006
WHERE nrseqc EQ /pws/zycbe001-nrseqc.
* >> Início da inclusão: MODULE USER_COMMAND_0002
IF /pws/zycbe001-tp_pagt_antc = 'C'.
v_opccme = 'X'.
PERFORM exporta_banco_cliente.
CALL SCREEN '0150'.
ELSE.
* << Fim da inclusão
CALL SCREEN '0100'.
* >> Início da inclusão: MODULE USER_COMMAND_0002
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE w010.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0003 INPUT.
...
...
WHERE nrseqc EQ /pws/zycbe001-nrseqc.
itab_zycbt211_aux[] = itab_zycbt211[].
SELECT * FROM /pws/zycbt115 INTO TABLE itab_zycbt115
WHERE nrcorrep EQ /pws/zycbe001-nrseqc.
itab_zycbt115_aux[] = itab_zycbt115[].
SELECT SINGLE * FROM /pws/zycbt074
INTO CORRESPONDING FIELDS OF /pws/zycbe074
WHERE nrseqc = v_nrseqc.
SELECT * FROM /pws/zycbt221 INTO TABLE itab_zycbt221
WHERE nrseqc EQ /pws/zycbe001-nrseqc.
* >> Início da inclusão: MODULE USER_COMMAND_0003
SELECT
/pws/zycbt226~nrseq
/pws/zycbt226~bukrs
/pws/zycbt226~gsberf
/pws/zycbt226~werks
/pws/zycbt226~j_1bbranch
/pws/zycbt226~waers
/pws/zycbt226~kunag
/pws/zycbt226~bco_me
/pws/zycbt226~conta_contabil
/pws/zycbt226~vlr_exterior
/pws/zycbt226~sld_exterior
/pws/zycbt241~vlr_ord
/pws/zycbt226~ref_op
/pws/zycbt241~sld_assoc
FROM /pws/zycbt241 INNER JOIN /pws/zycbt226
ON /pws/zycbt241~nrseq = /pws/zycbt226~nrseq
INTO TABLE itab_zycbt226
WHERE /pws/zycbt241~nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt226_aux[] = itab_zycbt226[].
* << Fim da inclusão
PERFORM seleciona_comissao.
MOVE /pws/zycbe001 TO wa_zycbt001.
SELECT SINGLE waersb FROM /pws/zycbt007 INTO (v_waersb)
WHERE bukrs EQ /pws/zycbe001-bukrs.
CLEAR: v_flaginij, v_flaginip.
CLEAR itab_zycbt006.
REFRESH itab_zycbt006.
SELECT *
FROM /pws/zycbt006
INTO TABLE itab_zycbt006
...
...
/pws/zycbe001-bukrs
ID 'ACTVT' FIELD '03'.
IF sy-subrc NE 0.
MESSAGE e083(f5) WITH /pws/zycbe001-bukrs.
ENDIF.
ENDIF.
ENDIF.
SELECT * FROM /pws/zyglt209
INTO TABLE itab_zyglt209
WHERE nrseq = /pws/zycbe001-nrseqc.
* >> Início da inclusão: MODULE USER_COMMAND_0003
IF /pws/zycbe001-tp_pagt_antc = 'C'.
v_opccme = 'X'.
PERFORM exporta_banco_cliente.
CALL SCREEN '0150'.
ELSE.
* << Fim da inclusão
CALL SCREEN '0100'.
* >> Início da inclusão: MODULE USER_COMMAND_0003
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE w010.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0200 INPUT.
...
...
LEAVE TO SCREEN 0.
ENDMODULE.
MODULE move_mark_table INPUT.
CASE sy-dynnr.
WHEN '0102'.
MOVE mark TO itab_zycbt002-mark.
MODIFY itab_zycbt002 INDEX tc_perj-current_line TRANSPORTING mark.
WHEN '0114'.
MOVE mark TO itab_zycbt216-mark.
MODIFY itab_zycbt216 INDEX tc_jesc-current_line TRANSPORTING mark.
* >> Início da inclusão: MODULE MOVE_MARK_TABLE
WHEN '0117'.
MOVE mark TO itab_zycbt226-mark.
MODIFY itab_zycbt226 INDEX tc_ordpag-current_line
TRANSPORTING mark.
* << Fim da inclusão
WHEN '0207'.
CHECK v_erro_ov IS INITIAL.
MOVE mark TO wa_zycbt221-mark.
MODIFY wa_zycbt221 INDEX tc_ordvda-current_line
TRANSPORTING mark.
ENDCASE.
ENDMODULE.
MODULE user_command_0005 INPUT.
CASE okcode.
WHEN 'ENTE'.
v_callscr = 1.
CLEAR okcode.
* >> Início da inclusão: MODULE USER_COMMAND_0005
IF /pws/zycbe001-tpcontr(1) = 'D'.
CALL SCREEN 0007 STARTING AT 22 06 ENDING AT 58 07.
ELSE.
* << Fim da inclusão
CALL SCREEN 0100.
* >> Início da inclusão: MODULE USER_COMMAND_0005
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE user_command_0005_exit INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0110 INPUT.
...
...
WHERE nrinvoic = /pws/zycbe004-nrinvoic
and nrparcf = /pws/zycbe004-nrparcf
and gsberf = /pws/zycbe004-gsberf.
IF sy-subrc NE 0.
MESSAGE e061 WITH text-066.
ENDIF.
ELSE.
CLEAR: /pws/zycbe004-nrparcf, /pws/zycbe004-gsberf.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
MODULE user_command_0007_exit INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0007 INPUT.
CASE okcode.
WHEN 'ENTE'.
IF v_opnor = 'X'.
CALL SCREEN 0100.
ELSE.
CALL SCREEN 0150.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0117 INPUT.
CASE okcode.
WHEN 'MK'.
IF ts_contr-activetab = 'FC_ORDPAG'.
LOOP AT itab_zycbt226.
itab_zycbt226-mark = 'X'.
MODIFY itab_zycbt226 .
ENDLOOP.
CLEAR okcode.
ENDIF.
WHEN 'DEMARK'.
IF ts_contr-activetab = 'FC_ORDPAG'.
LOOP AT itab_zycbt226.
itab_zycbt226-mark = ''.
MODIFY itab_zycbt226.
ENDLOOP.
CLEAR okcode.
ENDIF.
WHEN 'DEL'.
IF ts_contr-activetab = 'FC_ORDPAG'.
DELETE itab_zycbt226 WHERE mark EQ 'X'.
CLEAR okcode.
ENDIF.
WHEN 'F21' OR 'F22' OR 'F23' OR 'F24'.
DESCRIBE TABLE itab_zycbt226 LINES v_linhas.
PERFORM paginacao_tc USING v_linhas
CHANGING tc_ordpag-top_line.
ENDCASE.
PERFORM exporta_banco_cliente.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
MODIFY tc_ordvda-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT tc_ordvda-cols INTO wa_cols.
IF wa_cols-screen-name EQ '/PWS/ZYCBE221-NRSEQC'.
wa_cols-invisible = 1.
MODIFY tc_ordvda-cols FROM wa_cols.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '0117'.
tc_ordpag-lines = tc_ordpag-top_line + 20.
IF v_status_s = '0'.
LOOP AT tc_ordpag-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCBE226-NRSEQ' OR
wa_cols-screen-name = '/PWS/ZYCBE241-VLR_ORD'.
wa_cols-screen-input = '0'.
MODIFY tc_ordpag-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT tc_ordpag-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCBE226-NRSEQ' OR
wa_cols-screen-name = '/PWS/ZYCBE241-VLR_ORD'.
wa_cols-screen-input = '1'.
MODIFY tc_ordpag-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
WHEN '0116'.
tc_comissao-lines = /pws/zycbe074-nrparc_comis.
IF v_status_s IS INITIAL.
PERFORM habilita_campos_0116 USING '1'.
ELSE.
PERFORM habilita_campos_0116 USING v_status_s.
ENDIF.
IF /pws/zycbe001-tpcontr EQ 'C'.
PERFORM habilita_campos_0116 USING '0'.
ELSE.
...
...
itab_zycbt221-nrseqc = /pws/zycbe001-nrseqc.
MODIFY itab_zycbt221 INDEX tc_ordvda-current_line.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE221-ORDEM'.
screen-required = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
MOVE-CORRESPONDING itab_zycbt221 TO /pws/zycbe221.
* >> Início da inclusão: MODULE INSERT_LINE
WHEN '0117'.
MOVE-CORRESPONDING itab_zycbt226 TO /pws/zycbe226.
MOVE itab_zycbt226-vlr_ord TO /pws/zycbe241-vlr_ord.
* << Fim da inclusão
WHEN '0116'.
PERFORM atualiza_tela_0116.
PERFORM bloqueia_parcela_comissao.
ENDCASE.
ENDMODULE.
MODULE load_itab_zycbt002 OUTPUT.
CASE sy-dynnr.
WHEN '0102'.
itab_zycbt002-icon_esc = icon_space.
v_countlinej = '00001'.
...
...
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE move_mark OUTPUT.
CASE sy-dynnr.
WHEN '0102'.
MOVE itab_zycbt002-mark TO mark.
WHEN '0114'.
MOVE itab_zycbt216-mark TO mark.
* >> Início da inclusão: MODULE MOVE_MARK
WHEN '0117'.
MOVE itab_zycbt226-mark TO mark.
* << Fim da inclusão
WHEN '0207'.
MOVE itab_zycbt221-mark TO mark.
ENDCASE.
ENDMODULE.
MODULE status_0005 OUTPUT.
SET PF-STATUS '0005'.
SET TITLEBAR '0005'.
ENDMODULE.
MODULE status_0110 OUTPUT.
PERFORM load_text_object.
...
...
ENDIF.
IF screen-name EQ 'OBJRES'.
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDCASE.
ENDLOOP.
ENDMODULE.
MODULE pasta_ov OUTPUT.
CLEAR: v_mostra_ov.
* >> Início da exclusão: MODULE PASTA_OV
IF /pws/zycbe001-tpcontr EQ 'DP'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PASTA_OV
IF /pws/zycbe001-tpcontr EQ 'DP' AND
v_opccme = ''.
* << Fim da inclusão
IF wa_zycbt089-controle_ov EQ 'X'.
MOVE 1 TO v_mostra_ov.
ENDIF.
IF wa_zycbt089-cpo_ov_obrig EQ 'X'.
MOVE 2 TO v_mostra_ov.
ENDIF.
ENDIF.
ENDMODULE.
MODULE atualiza_tela_empperf OUTPUT.
MOVE-CORRESPONDING itab_zycbt223 TO /pws/zycbe223.
...
...
ELSEIF itab_t320-flag EQ 'O'.
wa_cols-screen-required = 1.
MODIFY tc_comissao-cols FROM wa_cols.
ENDIF.
ENDCASE.
ENDLOOP.
ENDMODULE.
MODULE load_itab_comissao OUTPUT.
PERFORM cria_parcelas_comissao.
ENDMODULE.
* >> Início da inclusão:
module status_0007 output.
SET PF-STATUS '0007'.
SET TITLEBAR '0007'.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
/pws/zyglt209,
/pws/zyglt009,
/pws/zycbe210,
/pws/zycbt210,
/pws/zycbe211,
/pws/zycbt211,
/pws/zycbe115,
/pws/zycbt115,
/pws/zycbt216,
/pws/zycbe216,
* >> Início da inclusão:
/pws/zycbe226,
/pws/zycbt226,
/pws/zycbe227,
/pws/zycbt227,
/pws/zycbe241,
/pws/zycbt241,
* << Fim da inclusão
/pws/zyglt340,
/pws/zyglt343,
/pws/zyglt364,
rm06b,
t16fe,
j_1bbranch,
/pws/zycet001,
/pws/zycet002,
/pws/zycbt222,
/pws/zycbe223,
...
...
tc_banc TYPE TABLEVIEW USING SCREEN 107,
tc_desp TYPE TABLEVIEW USING SCREEN 201,
tb_premio TYPE TABLEVIEW USING SCREEN 202,
tc_datas TYPE TABLEVIEW USING SCREEN 501,
tc_dev_dp TYPE TABLEVIEW USING SCREEN 701,
tc_clientes TYPE TABLEVIEW USING SCREEN 111,
tc_condpgto TYPE TABLEVIEW USING SCREEN 112,
tc_rof TYPE TABLEVIEW USING SCREEN 113,
tc_jesc TYPE TABLEVIEW USING SCREEN 114,
tc_empperf TYPE TABLEVIEW USING SCREEN 115,
* >> Início da inclusão:
tc_ordpag TYPE TABLEVIEW USING SCREEN 117,
* << Fim da inclusão
tc_ordvda TYPE TABLEVIEW USING SCREEN 207,
tc_comissao TYPE TABLEVIEW USING SCREEN 116.
CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB001_C',
c_transacao_a(14) VALUE '/PWS/ZYCB001_A',
c_transacao_e(14) VALUE '/PWS/ZYCB001_E'.
DATA: BEGIN OF itab_zycbt218 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt218.
DATA: END OF itab_zycbt218.
DATA: BEGIN OF itab_zyglt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt209.
...
...
DATA: BEGIN OF itab_zycbt133 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt133.
DATA: END OF itab_zycbt133.
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
DATA: BEGIN OF itab_zycbt216 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt216.
DATA: mark TYPE c,
END OF itab_zycbt216.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt226 OCCURS 0,
nrseq LIKE /pws/zycbe226-nrseq,
bukrs LIKE /pws/zycbe226-bukrs,
gsberf LIKE /pws/zycbe226-gsberf,
werks LIKE /pws/zycbe226-werks,
j_1bbranch LIKE /pws/zycbe226-j_1bbranch,
waers LIKE /pws/zycbe226-waers,
kunag LIKE /pws/zycbe226-kunag,
bco_me LIKE /pws/zycbe226-bco_me,
conta_contabil LIKE /pws/zycbe226-conta_contabil,
vlr_exterior LIKE /pws/zycbe226-vlr_exterior,
sld_exterior LIKE /pws/zycbe226-sld_exterior,
vlr_ord LIKE /pws/zycbe241-vlr_ord,
ref_op LIKE /pws/zycbe226-ref_op,
sld_assoc LIKE /pws/zycbe241-sld_assoc,
mark TYPE c,
END OF itab_zycbt226.
DATA: itab_zycbt226_aux LIKE itab_zycbt226 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt227 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt227.
DATA: END OF itab_zycbt227.
DATA: BEGIN OF itab_zycbt241 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt241.
DATA: END OF itab_zycbt241.
* << Fim da inclusão
DATA: BEGIN OF itab_prorrogacao OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt002.
DATA mark(1).
DATA v_flag(1) TYPE c.
DATA: escalonado(1).
DATA: icon_esc LIKE icon-id.
DATA: END OF itab_prorrogacao.
DATA:
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
...
...
v_belnr_pt LIKE /pws/zycbt001-belnr,
estorno_ok(1),
v_fcode LIKE sy-ucomm,
v_mostra_ov TYPE i,
v_pagador TYPE i,
v_tipo TYPE i,
v_moeda TYPE i,
v_ordem TYPE vbpa-vbeln,
v_reg_usado(1) TYPE c,
v_erro_ov,
* >> Início da inclusão:
v_idx_aux LIKE sy-tabix,
v_kunag TYPE /pws/zycbe001-kunnr,
v_opnor TYPE c,
v_opccme TYPE c,
v_vlr_ord LIKE /pws/zycbt241-vlr_ord,
v_vlr_ord_aux LIKE /pws/zycbt241-vlr_ord,
v_dif_fat LIKE /pws/zycbt241-vlr_ord,
v_saldo LIKE /pws/zycbt227-saldo,
v_soma_vo LIKE /pws/zycbt241-vlr_ord,
v_bco_dif TYPE i,
v_bco_aux TYPE /pws/zycbe226-bco_me,
v_ver_227 TYPE i,
* << Fim da inclusão
v_div TYPE c,
v_vinc(1) TYPE c,
v_volta_part_banco(1) TYPE c,
v_dtpagto TYPE d,
v_nome_func TYPE tfdir-funcname VALUE 'FI_PERIOD_REFRESH'.
DATA: v_year LIKE bkpf-gjahr,
v_repid LIKE sy-repid,
v_codmod TYPE c VALUE 'E',
v_exit LIKE /pws/zyglt100-zexit VALUE 'CPT002'.
DATA: v_capital,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
SET SCREEN 0.
LEAVE SCREEN.
ENDMODULE.
MODULE user_command_0002 INPUT.
CASE ok_code.
WHEN 'ENTE'.
CLEAR v_ind_mudanca.
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = v_nrseqc.
IF sy-subrc = 0.
* >> Início da inclusão: MODULE USER_COMMAND_0002
IF /pws/zycbe001-TP_PAGT_ANTC = 'C'.
MESSAGE w601(sf) WITH text-471.
EXIT.
ENDIF.
* << Fim da inclusão
IF /pws/zycbe001-belnr IS INITIAL OR
/pws/zycbe001-status EQ 'I'.
MESSAGE w601(sf) WITH text-378 text-379.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt074
INTO CORRESPONDING FIELDS OF /pws/zycbe074
WHERE nrseqc = v_nrseqc.
MOVE: /pws/zycbe001-j_1bbranch TO /pws/zycbe005-j_1bbranch,
/pws/zycbe001-werks TO /pws/zycbe005-werks .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (30 caracteres)
"Valor utilizado da ordem maior"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (31 caracteres)
"que o Saldo Retido no Exterior."
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (43 caracteres)
"Somatória dos Valores Utilizados das Ordens"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (34 caracteres)
"diferente do Valor ME de Contrato."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 466
Texto: (43 caracteres)
"Ordens com bancos diferentes não permitida."
Comprimento máximo: 48
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 471
Texto: (47 caracteres)
"Vinculação de DP em conta C/C ME não permitida."
Comprimento máximo: 47
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCBA282
CRIAR AJUDA DE PESQUISA: /PWS/ZYCBA282
DESCRIÇÃO BREVE: CB - Ordem de Pagamento - Pagamento Antecipado
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCBV220
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Exibição de Valores Imediata
HOT KEY: ____
EXIT AJUD. PESQUISA: /PWS/ZYCBA282
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
NRSEQ X 1 1 /PWS/ZYGLL1342
GSBERF 2 2 GSBER
BUKRS 3 3 BUKRS
KUNAG 4 4 KUNAG
WAERS 5 5 WAERS
WERKS 6 6 WERKS_D
J_1BBRANCH 7 7 J_1BBRANC_
BCO_ME 8 8 /PWS/ZYGLL1348
VLR_EXTERIOR 9 9 /PWS/ZYGLL1344
SLD_EXTERIOR 10 10 /PWS/ZYGLL1345
REF_OP 11 11 /PWS/ZYGLL1147
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE001
MODIFICAR ESTRUTURA: /PWS/ZYCBE001
DESCRIÇÃO BREVE: CB - Captação de Contrato
COMPONENTES NOVOS
COMPONENTE: TP. COMP: DESCRIÇÃO BREVE VALS.FIXOS. DOMÍNIO
TP_PAGT_ANTC /PWS/ZYCBL483 CB - Tipo de Pagamento Antecipado X /PWS/ZYCBD331
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT001
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT001
DESCRIÇÃO BREVE: CB - Captação de Contrato
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: DESCRIÇÃO BREVE
TP_PAGT_ANTC /PWS/ZYCBL483 CB - Tipo de Pagamento Antecipado
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 2
(X) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: 0
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBE241
CRIAR ESTRUTURA: /PWS/ZYCBE241
DESCRIÇÃO BREVE: CB - Valores de Ordem de Pagamento Antecipado
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
NRSEQC /PWS/ZYCBL019
NRSEQ /PWS/ZYGLL1342
WAERS WAERS
VLR_ORD /PWS/ZYCBL419 /PWS/ZYCBE241 WAERS
SLD_ASSOC /PWS/ZYCBL484 /PWS/ZYCBE241 WAERS
BCO_ME /PWS/ZYGLL1348
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBT241
CRIAR TABELA TRANSPARENTE: /PWS/ZYCBT241
DESCRIÇÃO BREVE: CB - Valores de Ordem de Pagamento Antecipado
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.VALORES: TAB.REF.: CPO.REF.:
NRSEQC /PWS/ZYCBL019 X X
NRSEQ /PWS/ZYGLL1342 X X
WAERS WAERS TCURC
VLR_ORD /PWS/ZYCBL419 /PWS/ZYCBT241 WAERS
SLD_ASSOC /PWS/ZYCBL484 /PWS/ZYCBT241 WAERS
BCO_ME /PWS/ZYGLL1348 LFA1
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 4
(X) - AR. BUFFER NÃO PERMITIDO
(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO
(_) - AR. BUFFER ATIVADO
(_) - RGSTS. IND ARMAZENADOS
(_) - ÁREA GEN ARMAZENADA EM BUFFER Nº DE CPOS CHAVE: 0
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIEW /PWS/ZYCBV220
CRIAR VISAO: /PWS/ZYCBV220
DESCRIÇÃO BREVE: CB - Ordens de Pagamento Antecipado
TABELAS/CONDIÇÕES JOIN
TABELAS:/PWS/ZYCBT226
CPOS. VISÃO
CAMPO VISÃO: NOME TAB: NOME CAMPO: CHV: MOD:
MANDT /PWS/ZYCBT226 MANDT X
NRSEQ /PWS/ZYCBT226 NRSEQ X
GSBERF /PWS/ZYCBT226 GSBERF
BUKRS /PWS/ZYCBT226 BUKRS
KUNAG /PWS/ZYCBT226 KUNAG
WAERS /PWS/ZYCBT226 WAERS
WERKS /PWS/ZYCBT226 WERKS
J_1BBRANCH /PWS/ZYCBT226 J_1BBRANCH
BCO_ME /PWS/ZYCBT226 BCO_ME
CONTA_CONTABIL /PWS/ZYCBT226 CONTA_CONTABIL
VLR_EXTERIOR /PWS/ZYCBT226 VLR_EXTERIOR
SLD_EXTERIOR /PWS/ZYCBT226 SLD_EXTERIOR
REF_OP /PWS/ZYCBT226 REF_OP
CONDIÇÕES DE SELEÇÃO
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
/PWS/ZYCBT226 TIPO_OP EQ 'P'
STATUS AT.
ACESSO:
(x) - SÓ LER
(_) - LER E MODIFICAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBE226
MODIFICAR ESTRUTURA: /PWS/ZYCBE226
DESCRIÇÃO BREVE: CB - Valores Mantidos no Exterior
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
...
BELNR_ASSOC BELNR_D
DT_ASSOC BUDAT
TIPO_OP /PWS/ZYGLL1352
COMPONENTES NOVOS
DESCR_BCOME NAME1_GP
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
03191 - 00001 - ESTORNO DOCUMENTO CONTÁBIL DA CAPTAÇÃO
03292 - 00002 - CAPTAÇÃO - DP - PONTO DE EXIT F-29 E CONSITÊNCIA ORDEM
05469 - 00003 - DESENVOLVIMENTO ADICIONAL - SAÍDA DE PAGAMENTO UTILIZANDO CONTA CORRENTE
05470 - 00004 - RELATÓRIO VALORES RECEBIDOS EM C/C NO EXTERIOR
05471 - 00005 - DEREX - AJUSTES PARA NOVA ORDEM DE PAGAMENTO
05475 - 00006 - RELATÓRIO DE PAGAMENTOS COM RECURSOS NO EXTERIOR
05478 - 00007 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
05482 - 00008 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO