CE PLUS - Nota 009133
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 02/10/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:51:19
Descrição da Nota: CODE INSPECTOR - CAMBIO EXPORTAÇÃO
Sintoma
Code Inspector - cambio exportação
Solução
Code Inspector - cambio exportação
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09133 Data: 02/10/2009 Hora: 15:08:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09133
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08930 - 00001 - 7.0 - 00010 - CAPTAÇÃO - LIQUIDAÇÃO DAS CAPTAÇÕES DE PRÉ-PAGAMENTO E SECURITIZA
----------------------------------------------------------------------------------------------------
CODE INSPECTOR - CAMBIO EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR - CAMBIO EXPORTAÇÃO - ERRO/ WARNING - F5D
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT001
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT005
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT017
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT023
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT026
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT027
FUNC /PWS/ZYCB_DEQUEUE_ZYCBT086
FUNC /PWS/ZYCB_ENQUEUE_EZYCBT043
FUNC /PWS/ZYCB_ENQUEUE_ZYCBR074
FUNC /PWS/ZYCB_ENQUEUE_ZYCBR142
FUNC /PWS/ZYCB_ENQUEUE_ZYCBR143
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT001
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT005
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT017
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT017V
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT023
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT026
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT027
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT031
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT060
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT092
FUNC /PWS/ZYCB_ENQUEUE_ZYCBT217
FUNC /PWS/ZYCM_DEQUEUE_EZYCBT112
FUNC /PWS/ZYCM_DEQUEUE_EZYCBT119
FUNC /PWS/ZYCM_ENQUEUE_EZYCBT117
FUNC /PWS/ZYGL_DEQUEUE_ZYCBT089
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F10
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT001
function /pws/zycb_dequeue_zycbt001 .
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt001,
mandt like /pws/zycbt001-mandt,
nrseqc like /pws/zycbt001-nrseqc,
end of %a_zycbt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt001-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt001-nrseqc.
endif.
__seqta_tab-gname = '/PWS/ZYCBT001'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT005
...
data: begin of %a_zycbt005,
mandt like /pws/zycbt005-mandt,
nrseqc like /pws/zycbt005-nrseqc,
tpdesp like /pws/zycbt005-tpdesp,
nrparc like /pws/zycbt005-nrparc,
dtincl like /pws/zycbt005-dtincl,
nrinvoic like /pws/zycbt005-nrinvoic,
gsberf like /pws/zycbt005-gsberf,
dtvincul like /pws/zycbt005-dtvincul,
end of %a_zycbt005.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT005
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt005.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT005
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt005."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt005-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt005-nrseqc.
endif.
if not tpdesp is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT017
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt017,
mandt like /pws/zycbt017-mandt,
nrinvoic like /pws/zycbt017-nrinvoic,
gsberf like /pws/zycbt017-gsberf,
end of %a_zycbt017.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT017
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT017
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt017-mandt.
endif.
if not nrinvoic is initial or
not x_nrinvoic is initial.
move nrinvoic to:
%a_zycbt017-nrinvoic.
endif.
if not gsberf is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT023
...
data: begin of %a_zycbt023,
mandt like /pws/zycbt023-mandt,
nrseqc like /pws/zycbt023-nrseqc,
tpdesp like /pws/zycbt023-tpdesp,
nrparc like /pws/zycbt023-nrparc,
dtincl like /pws/zycbt023-dtincl,
nrinvoic like /pws/zycbt023-nrinvoic,
gsberf like /pws/zycbt023-gsberf,
dtvincul like /pws/zycbt023-dtvincul,
end of %a_zycbt023.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT023
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt023.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT023
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt023."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt023-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt023-nrseqc.
endif.
if not tpdesp is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT026
function /pws/zycb_dequeue_zycbt026.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt026,
mandt like /pws/zycbt026-mandt,
nrseqc like /pws/zycbt026-nrseqc,
end of %a_zycbt026.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT026
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt026.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT026
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt026."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt026-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt026-nrseqc.
endif.
__seqta_tab-gname = '/PWS/ZYCBT026'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT027
...
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt027,
mandt like /pws/zycbt027-mandt,
nrseqc like /pws/zycbt027-nrseqc,
nrinvoic like /pws/zycbt027-nrinvoic,
gsberf like /pws/zycbt027-gsberf,
dtvencto like /pws/zycbt027-dtvencto,
end of %a_zycbt027.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT027
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt027.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT027
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt027."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt027-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt027-nrseqc.
endif.
if not nrinvoic is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT086
function /pws/zycb_dequeue_zycbt086.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt086,
mandt like /pws/zycbt086-mandt,
nrseq like /pws/zycbt086-nrseq,
end of %a_zycbt086.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT086
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt086.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT086
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt086."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt086-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt086-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT086'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_EZYCBT043
FUNCTION /PWS/ZYCB_ENQUEUE_EZYCBT043.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_ZYCBT043,
mandt type /pws/ZYCBT043-mandt,
NRPAGTO type /pws/ZYCBT043-NRPAGTO,
end of %a_ZYCBT043.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_EZYCBT043
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT043.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_EZYCBT043
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_ZYCBT043."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_ZYCBT043-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_ZYCBT043-NRPAGTO.
endif.
__seqta_tab-gname = '/PWS/ZYCBT043'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBR074
FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR074.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %A_zycbr074,
MANDT LIKE /PWS/zycbt043-MANDT,
nrpagto LIKE /PWS/zycbt043-nrpagto,
END OF %A_zycbr074.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR074
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zycbr074.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR074
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zycbr074."#EC CI_CCALL
* << Fim da inclusão
if not MANDT is initial.
move MANDT to:
%A_zycbr074-MANDT.
endif.
IF NOT nrpagto IS INITIAL OR
NOT X_nrpagto IS INITIAL.
MOVE nrpagto TO:
%A_zycbr074-nrpagto.
endif.
__SEQTA_TAB-GNAME = '/PWS/zycbr074'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBR142
...
__scope = _scope.
DATA: BEGIN OF %a_zycbr142,
mandt LIKE /pws/zycbt004-mandt,
nrseq LIKE /pws/zycbt031-nrseq,
tpdesp LIKE /pws/zycbt004-tpdesp,
nrparc LIKE /pws/zycbt004-nrparc,
dtincl LIKE /pws/zycbt004-dtincl,
dtliquid LIKE /pws/zycbt004-dtliquid,
tpjuros LIKE /pws/zycbt004-tpjuros,
END OF %a_zycbr142.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR142
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycbr142.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR142
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycbr142."#EC CI_CCALL
* << Fim da inclusão
IF NOT mandt IS INITIAL.
MOVE mandt TO:
%a_zycbr142-mandt.
ENDIF.
IF NOT nrseq IS INITIAL OR
NOT x_nrseq IS INITIAL.
MOVE nrseq TO:
%a_zycbr142-nrseq.
ENDIF.
IF NOT tpdesp IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBR143
...
__wait LIKE ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %a_ZYCBR143,
mandt LIKE /pws/ZYCBT156-mandt,
nrseq LIKE /pws/ZYCBT156-nrseq,
nrseqD LIKE /pws/ZYCBT156-nrseqD,
tpdesp LIKE /pws/ZYCBT156-tpdesp,
dtincl LIKE /pws/ZYCBT156-dtincl,
END OF %a_ZYCBR143.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR143
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBR143.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBR143
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBR143."#EC CI_CCALL
* << Fim da inclusão
IF NOT mandt IS INITIAL.
MOVE mandt TO:
%a_ZYCBR143-mandt.
ENDIF.
IF NOT nrseq IS INITIAL OR
NOT x_nrseq IS INITIAL.
MOVE nrseq TO:
%a_ZYCBR143-nrseq.
ENDIF.
IF NOT nrseqd IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT001
function /pws/zycb_enqueue_zycbt001.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt001,
mandt like /pws/zycbt001-mandt,
nrseqc like /pws/zycbt001-nrseqc,
end of %a_zycbt001.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT001
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt001."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt001-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt001-nrseqc.
endif.
__seqta_tab-gname = '/PWS/ZYCBT001'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT005
...
data: begin of %a_zycbt005,
mandt like /pws/zycbt005-mandt,
nrseqc like /pws/zycbt005-nrseqc,
tpdesp like /pws/zycbt005-tpdesp,
nrparc like /pws/zycbt005-nrparc,
dtincl like /pws/zycbt005-dtincl,
nrinvoic like /pws/zycbt005-nrinvoic,
gsberf like /pws/zycbt005-gsberf,
dtvincul like /pws/zycbt005-dtvincul,
end of %a_zycbt005.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT005
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt005.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT005
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt005."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt005-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt005-nrseqc.
endif.
if not tpdesp is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT017
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt017,
mandt like /pws/zycbt017-mandt,
nrinvoic like /pws/zycbt017-nrinvoic,
gsberf like /pws/zycbt017-gsberf,
end of %a_zycbt017.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT017
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT017
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt017."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt017-mandt.
endif.
if not nrinvoic is initial or
not x_nrinvoic is initial.
move nrinvoic to:
%a_zycbt017-nrinvoic.
endif.
if not gsberf is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT017V
...
__scope LIKE ddenq_like-scope,
__wait LIKE ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
DATA: BEGIN OF %a_zycbt017f,
mandt LIKE /pws/zycbt017-mandt,
nrinvoic LIKE /pws/zycbt017-nrinvoic,
nrparcf LIKE /pws/zycbt017-nrparcf,
gsberf LIKE /pws/zycbt017-gsberf,
END OF %a_zycbt017f.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT017V
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycbt017f.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT017V
CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_zycbt017f."#EC CI_CCALL
* << Fim da inclusão
IF NOT mandt IS INITIAL.
MOVE mandt TO:
%a_zycbt017f-mandt.
ENDIF.
IF NOT nrinvoic IS INITIAL OR
NOT x_nrinvoic IS INITIAL.
MOVE nrinvoic TO:
%a_zycbt017f-nrinvoic.
ENDIF.
IF NOT nrparcf IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT023
...
data: begin of %a_zycbt023,
mandt like /pws/zycbt023-mandt,
nrseqc like /pws/zycbt023-nrseqc,
tpdesp like /pws/zycbt023-tpdesp,
nrparc like /pws/zycbt023-nrparc,
dtincl like /pws/zycbt023-dtincl,
nrinvoic like /pws/zycbt023-nrinvoic,
gsberf like /pws/zycbt023-gsberf,
dtvincul like /pws/zycbt023-dtvincul,
end of %a_zycbt023.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT023
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt023.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT023
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt023."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt023-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt023-nrseqc.
endif.
if not tpdesp is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT026
function /pws/zycb_enqueue_zycbt026.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt026,
mandt like /pws/zycbt026-mandt,
nrseqc like /pws/zycbt026-nrseqc,
end of %a_zycbt026.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT026
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt026.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT026
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt026."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt026-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt026-nrseqc.
endif.
__seqta_tab-gname = '/PWS/ZYCBT026'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT027
...
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt027,
mandt like /pws/zycbt027-mandt,
nrseqc like /pws/zycbt027-nrseqc,
nrinvoic like /pws/zycbt027-nrinvoic,
gsberf like /pws/zycbt027-gsberf,
dtvencto like /pws/zycbt027-dtvencto,
end of %a_zycbt027.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT027
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt027.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT027
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt027."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt027-mandt.
endif.
if not nrseqc is initial or
not x_nrseqc is initial.
move nrseqc to:
%a_zycbt027-nrseqc.
endif.
if not nrinvoic is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT031
...
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt031,
mandt like /pws/zycbt031-mandt,
nrseq like /pws/zycbt031-nrseq,
dtboleto like /pws/zycbt031-dtboleto,
end of %a_zycbt031.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT031
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT031
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt031."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt031-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt031-nrseq.
endif.
if not dtboleto is initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT060
function /pws/zycb_enqueue_zycbt060.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt060,
mandt like /pws/zycbt060-mandt,
nrseq like /pws/zycbt060-nrseq,
end of %a_zycbt060.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT060
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt060.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT060
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt060."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt060-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt060-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT060'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT092
function /pws/zycb_enqueue_zycbt092.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt092,
mandt like /pws/zycbt092-mandt,
nrseq like /pws/zycbt092-nrseq,
end of %a_zycbt092.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT092
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt092.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT092
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt092."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt092-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt092-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT092'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT217
FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT217.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__wait like ddenq_like-waitflag.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt217,
mandt like /pws/zycbt217-mandt,
NRSEQ like /pws/zycbt217-NRSEQ,
end of %a_zycbt217.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT217
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt217.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT217
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt217."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt217-mandt.
endif.
if not NRSEQ is initial or
not x_NRSEQ is initial.
move NRSEQ to:
%a_zycbt217-NRSEQ.
endif.
__seqta_tab-gname = '/PWS/ZYCBT217'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_EZYCBT112
function /pws/zycm_dequeue_ezycbt112.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt112,
mandt type /pws/zycbt112-mandt,
nrseq type /pws/zycbt112-nrseq,
end of %a_zycbt112.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT112
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT112
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt112."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt112-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt112-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT112'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_DEQUEUE_EZYCBT119
function /pws/zycm_dequeue_ezycbt119.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__synchron type ddenqsync.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt119,
mandt type /pws/zycbt119-mandt,
nrseq type /pws/zycbt119-nrseq,
end of %a_zycbt119.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT119
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_DEQUEUE_EZYCBT119
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt119."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt119-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt119-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT119'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_ENQUEUE_EZYCBT117
function /pws/zycm_enqueue_ezycbt117.
data: __seqta_tab type seqta occurs 01 with header line,
__scope type ddenqscope,
__wait type ddenqwait.
__wait = _wait.
__scope = _scope.
data: begin of %a_zycbt117,
mandt type /pws/zycbt117-mandt,
nrseq type /pws/zycbt117-nrseq,
end of %a_zycbt117.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT117
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt117.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_ENQUEUE_EZYCBT117
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt117."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt117-mandt.
endif.
if not nrseq is initial or
not x_nrseq is initial.
move nrseq to:
%a_zycbt117-nrseq.
endif.
__seqta_tab-gname = '/PWS/ZYCBT117'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DEQUEUE_ZYCBT089
function /pws/zygl_dequeue_zycbt089.
data: __seqta_tab like seqta occurs 1 with header line,
__scope like ddenq_like-scope,
__synchron like ddenq_like-synchron.
__synchron = _synchron.
__scope = _scope.
data: begin of %a_zycbt089,
mandt like /pws/zycbt089-mandt,
end of %a_zycbt089.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DEQUEUE_ZYCBT089
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt089.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DEQUEUE_ZYCBT089
call 'C_ENQ_WILDCARD' id 'HEX0' field %a_zycbt089."#EC CI_CCALL
* << Fim da inclusão
if not mandt is initial.
move mandt to:
%a_zycbt089-mandt.
endif.
__seqta_tab-gname = '/PWS/ZYCBT089'.
__seqta_tab-gmode = mode_zycbt089.
__seqta_tab-garg = %a_zycbt089.
append __seqta_tab.
perform send_enqueue(saplsena)
tables __seqta_tab
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
else.
select *
from /pws/zycbt002 into table itab_zycbt002p1
where nrseqc = itab_zycbt061-nrseq_c and
tpparc = 'P' and
slvinc ne '0'.
loop at itab_zycbt002p1 .
select *
from /pws/zycbt067 into table itab_zycbt067
where nrseq_c = itab_zycbt002p1-nrseqc and
* >> Início da exclusão: FORM LANCAMENTO_PRE_ACC
vlme ne itab_zycbt002p1-vlme.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PRE_ACC
vlme ne itab_zycbt002p1-vlme."#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
perform clearing_residual changing v_docto1 budat.
exit.
endif.
endloop.
clear itab_zycbt002p1.
refresh itab_zycbt002p1.
endif.
endif.
endif.
...
...
if v_dp = 'X'.
if wa_zycbt001_pre-tpcontr = 'A'.
itab_zycbe033-c_zuonr = wa_zycbt001_pre-dtcontr.
endif.
endif.
append itab_zycbe033.
if itab_zycbt061-tpcontr_c(1) ca 'PS'.
if /pws/zycbe001-tpcontr eq 'A'.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CLEARING_PRE
where nrseq_c = itab_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
where nrseq_c = itab_zycbt061-nrseq_c."#EC CI_NOFIRST
* << Fim da inclusão
select *
from /pws/zycbt002 into table itab_zycbt002p1
for all entries in itab_zycbt067
where nrseqc = itab_zycbt067-nrseq_c and
nrparc = itab_zycbt067-nrparc and
tpparc = 'P'.
loop at itab_zycbt002p1.
if itab_zycbt002p1-slvinc = '0' or
itab_zycbt002p1-slvinc ne itab_zycbt061-vlalt.
perform pega_contas_pre_new changing conta_acc texto_acc
...
...
endif.
itab_partidas-dtdocto = itab_zycbt061-budat_d.
append itab_partidas.
endif.
endloop.
clear itab_zycbt002p1.
refresh itab_zycbt002p1.
else.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CLEARING_PRE
where nrseq_c = itab_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
where nrseq_c = itab_zycbt061-nrseq_c."#EC CI_NOFIRST
* << Fim da inclusão
select *
from /pws/zycbt002 into table itab_zycbt002p1
for all entries in itab_zycbt067
where nrseqc = itab_zycbt067-nrseq_c and
nrparc = itab_zycbt067-nrparc and
tpparc = 'P'.
loop at itab_zycbt002p1.
if itab_zycbt002p1-slvinc = '0' or
itab_zycbt002p1-slvinc ne itab_zycbt061-vlalt.
perform pega_contas_pre_new changing conta_acc texto_acc
...
...
itab_contabil-belnr = itab_zycbt032-belnr.
itab_contabil-msg = text-247.
append itab_contabil.
if /pws/zycbe001-tpcontr+0(1) = 'D' and
wa_zycbt001_pre-tpcontr = 'A'.
update /pws/zycbt001 set belnr2 = p_belnr
where nrseqc = wa_zycbt001_pre-nrseqc.
endif.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CLEARING_PRE
where nrseq_c = wa_zycbt001_pre-nrseqc .
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
where nrseq_c = wa_zycbt001_pre-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
select *
from /pws/zycbt002 into table itab_zycbt002p1
for all entries in itab_zycbt067
where nrseqc = itab_zycbt067-nrseq_c and
tpparc = 'P' and
nrparc = itab_zycbt067-nrparc.
endif.
loop at itab_zycbt067.
read table itab_zycbt002p1 with key
...
...
itab_partidas-belnr = wa_zycbt001_pre-belnr2.
itab_partidas-dtdocto = wa_zycbt001_pre-dtvincul.
append itab_partidas.
endif.
if itab_zycbt061-tpcontr_c(1) ca 'PS'.
if wa_zycbt001_pre-slvinc ne 0.
clear itab_zycbt002p.
refresh itab_zycbt002p.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CLEARING
where nrseq_c = wa_zycbt001_pre-nrseqc .
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
where nrseq_c = wa_zycbt001_pre-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
select *
from /pws/zycbt002 into table itab_zycbt002p
for all entries in itab_zycbt067
where nrseqc = itab_zycbt067-nrseq_c and
tpparc = 'P' and
nrparc = itab_zycbt067-nrparc and
slvinc = itab_zycbt067-vlme.
read table itab_zycbt002p with key
nrseqc = wa_zycbt001_pre-nrseqc.
itab_partidas-tcode = 'F-30'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
perform verify_null_field using /pws/zycbe001-txcneg
'TXCAMB'
text-027.
concatenate text-488 /pws/zycbe001-nrseqc
into itab_zycbe033-c_zuonr
separated by space.
append itab_zycbe033.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CONTAB_CAPTACAO_PS
where nrseq_c = itab_zycbt061-nrseq_c.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_CAPTACAO_PS
where nrseq_c = itab_zycbt061-nrseq_c."#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycbt067 .
perform pega_contas_pre_new changing conta_acc texto_acc
conta_pre texto_pre
cod_rze.
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = 'ZYCBT001'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt067-belnr_c.
itab_partidas-agkon = conta_acc.
itab_partidas-agkoa = 'S'.
...
...
v_lines like sy-tabix.
clear: itab_zycbt002p.
select *
from /pws/zycbt002
into table itab_zycbt002p
where nrseqc = wa_zycbt001_pre-nrseqc
and tpparc = 'P'.
select *
from /pws/zycbt067
into table itab_zycbt067
* >> Início da exclusão: FORM RETORNA_PRINCIPAL_ORIGEM
where nrseq_c = wa_zycbt001_pre-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PRINCIPAL_ORIGEM
where nrseq_c = wa_zycbt001_pre-nrseqc."#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycbt067.
read table itab_zycbt002p with key
nrseqc = itab_zycbt067-nrseq_c
nrparc = itab_zycbt067-nrparc.
at last.
v_prim = 'L'.
endat.
perform cria_principal_original changing belnr budat v_prim.
if itab_zycbt002p-slvinc ne 0.
itab_zycbt002p-slvinc = itab_zycbt067-vlme_c.
...
...
p_belnr = itab_zycbt032-belnr.
p_budat = itab_zycbe033-budat.
itab_contabil-nrseqpre = /pws/zycbe001-nrseqc.
itab_contabil-nrparpre = space.
clear itab_contabil-nrseqacc.
itab_contabil-belnr = itab_zycbt032-belnr.
itab_contabil-msg = text-502.
append itab_contabil.
select *
from /pws/zycbt067 into table itab_zycbt067
* >> Início da exclusão: FORM CLEARING_RESIDUAL
where nrseq_c = wa_zycbt001_pre-nrseqc .
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_RESIDUAL
where nrseq_c = wa_zycbt001_pre-nrseqc. "#EC CI_NOFIRST
* << Fim da inclusão
select *
from /pws/zycbt002 into table itab_zycbt002_res
for all entries in itab_zycbt067
where nrseqc = itab_zycbt067-nrseq_c and
tpparc = 'P' and
nrparc = itab_zycbt067-nrparc.
loop at itab_zycbt067.
read table itab_zycbt002_res with key
nrseqc = itab_zycbt067-nrseq_c
slvinc = itab_zycbt067-vlme
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
endif.
endif.
else.
itab_zycbe033-belnr = itab_zycbt005-belnr.
itab_zycbe033-dtdocto = itab_zycbt005-dtbelnr.
endif.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT006'.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbt005-vlme_p.
* >> Início da exclusão: FORM DESMEMBRA_ACE_CP
concatenate 'Des.' itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE_CP
concatenate text-472 itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << Fim da inclusão
into itab_zycbt036-zuonr
separated by space.
if /pws/zycbe001-desc_receb is initial.
itab_zycbt036-belnr = itab_zycbe033-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = /pws/zycbe001-bukrs
v_date = itab_zycbe033-dtdocto
importing
...
...
itab_partidas-agums = space.
itab_partidas-bukrs = wa_zycbt005-bukrs.
itab_partidas-shkzg = 'H'.
itab_partidas-v_sinal = '+'.
if not /pws/zycbt074-dtcont is initial
and /pws/zycbt074-dtcont > /pws/zycbe006-dtpagto.
itab_partidas-dtdocto = /pws/zycbt074-dtcont.
else.
itab_partidas-dtdocto = /pws/zycbe006-dtpagto.
endif.
* >> Início da exclusão: FORM CLEARING_030_CP
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
wa_zycbt005-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
loop at itab_zycbt209 where nrinvoic = wa_zycbt005-nrinvoic and
gsberf = wa_zycbt005-gsberf and
nrparcf = wa_zycbt005-nrparcf and
...
...
from bseg
into itab_partidas-d_zuonr
where bukrs = itab_zycbt209-bukrs and
belnr = itab_zycbt209-belnr_d and
gjahr = v_year and
augbl = space and
koart = itab_zycbt209-koart and
buzei <= 2.
itab_partidas-v_sinal = '+'.
else.
* >> Início da exclusão: FORM CLEARING_030_CP
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
wa_zycbt005-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
itab_zycbt209-belnr2 = itab_zycbt209-belnr_d.
itab_zycbt209-dtbelnr = itab_zycbt209-budat_d.
itab_zycbt209-saldo = itab_zycbt209-saldo -
itab_zycbt209-vlbaixa.
...
...
from bseg
into itab_partidas-d_zuonr
where bukrs = itab_zycbt219-bukrs and
belnr = itab_zycbt219-belnr_d and
gjahr = v_year and
augbl = space and
koart = itab_zycbt219-koart and
buzei <= 2.
itab_partidas-v_sinal = '+'.
else.
* >> Início da exclusão: FORM CLEARING_030_CP
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
wa_zycbt005-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
if /pws/zycbe001-desc_receb is initial.
itab_partidas-tcode = 'F-30'.
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single budat from bkpf
into itab_partidas-dtdocto
where bukrs = wa_zycbt005-bukrs
and belnr = wa_zycbt005-belnr
and gjahr = v_year.
* >> Início da exclusão: FORM CLEARING_030_CP
concatenate 'Des.'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
concatenate text-472
* << Fim da inclusão
wa_zycbt005-nrinvoic
wa_zycbt005-nrparcf
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endif.
* >> Início da exclusão: FORM CLEARING_030_CP
concatenate 'Des.' wa_zycbt005-nrinvoic wa_zycbt005-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
concatenate text-472 itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << Fim da inclusão
into itab_zycbe033-c_zuonr
separated by space.
if not wa_zycbt005-j_1bbranch is initial.
perform verifica_pais_filial using wa_zycbt005-bukrs
wa_zycbt005-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using wa_zycbt005-bukrs
wa_t001w-j_1bbranch.
...
...
itab_zycbe033-umskz = itab_zycbt209-umskz.
if itab_zycbt209-koart eq 'D'.
if itab_zycbt209-umskz is initial.
itab_zycbe033-newbs = '01'.
else.
itab_zycbe033-newbs = '09'.
endif.
else.
itab_zycbe033-newbs = '40'.
endif.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
concatenate 'Des.' p_zycbt005-nrinvoic p_zycbt005-nrparcf
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
concatenate text-472 itab_zycbt005-nrinvoic itab_zycbt005-nrparcf
* << Fim da inclusão
into itab_zycbe033-d_zuonr
separated by space.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
loop at itab_recurso_aux2
where nrinvoic = wa_recurso_aux-nrinvoic
and gsberf = wa_recurso_aux-gsberf
and nrparcf = wa_recurso_aux-nrparcf
and mark = 'X'.
endloop.
if sy-subrc ne 0.
message i110
with
wa_recurso_aux-nrinvoic
* >> Início da exclusão: FORM CONSISTE_ORIGEM_SELECIONADA
'. Obrigatório selecionar recurso '
' para liquidar fatura'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_ORIGEM_SELECIONADA
'. Obrigatório selecionar recurso '(507)
' para liquidar fatura'(508).
* << Fim da inclusão
move: 'X' to it_mensagem-v_erro,
'2' to it_mensagem-v_codigo,
wa_recurso_aux-nrinvoic to it_mensagem-nrinvoic,
wa_recurso_aux-gsberf to it_mensagem-gsberf,
wa_recurso_aux-nrparcf to it_mensagem-nrparcf.
append it_mensagem.
endif.
endform.
form consiste_saldo_menor.
data: vl_total type /pws/zycbt006-vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 507
Texto: (32 caracteres)
". Obrigatório selecionar recurso"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 508
Texto: (21 caracteres)
" para liquidar fatura"
Comprimento máximo: 21