CE PLUS - Nota 012273
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 06/06/2012 15:20:03
Data/Hora Última Alteração: 06/06/2012 15:20:03
Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO - LIQUIDAÇÃO CONTRATO
Sintoma
- o programa de Liquidação em Andamento não solicitava uma nova data de contabilização quando da
inclusão em período fechado;
- o programa de Liquidação de Contrato não tratava corretamente o clearing da Liquidação em
Andamento quando do estorno em período fechado e contas iguais para ACE e Liquidação em andamento
Solução
- foi incluida uma rotina para solicitar uma nova data quando da criação de Liquidação em Andamento
em período fechado
- o mapeamento do clearing do ACE foi ajustado para prever o estorno em período fechado e utilizando
a mesma conta da Liquidação em Andamento
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12273 Data: 06/06/2012 Hora: 14:51:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12273
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
01145 - 00001 - 6.0 - 00023 - DESENVOLVIMENTO ADICIONAL CONTABILIZAÇÕES DA LIQUIDAÇÃO EM ANDAMEN
02890 - 00002 - 6.0 - 00026 - ERRO ESTORNO LIQUIDAÇÃO PERÍODO FECHADO
05512 - 00003 - 7.0 - 00004 - TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
06012 - 00004 - 7.0 - 00004 - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
07635 - 00005 - 7.0 - 00007 - LIQUIDAÇÃO EM ANDAMENTO - NÃO APARECE O CAMPO CHAVE DE REFERENCIA
07760 - 00006 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFOR
08687 - 00007 - 7.0 - 00010 - LIQUIDAÇÃO EM ANDAMENTO, CONTABILIZAÇÃO
08909 - 00008 - 7.0 - 00010 - VINCULAÇÃO/LIQUIDAÇÃO - ESTORNO PERÍODO FECHADO - DP - RAZÃO ESPEC
08935 - 00009 - 7.0 - 00010 - LIQUIDAÇÃO DE ACC COM PRÉ - CAPTAÇÕES
08954 - 00010 - 7.0 - 00010 - CAPTAÇÃO - DA - INCLUSAO DE CAMPOS NA PASTA DADOS ADICIONAIS
09444 - 00011 - 8.0 - 00001 - LIQUIDAÇÃO - LANÇAMENTOS DE CLIENTE/LIQ. AND COM CHAVE CPT(INCORRE
10889 - 00012 - 8.0 - 00006 - VINCULAÇÃO/LIQUIDAÇÃO ARBITRAGEM-MOEDA SEM CASAS DECIMAIS, CENTAVO
11656 - 00013 - 8.0 - 00009 - LIQUIDAÇÃO EM ANDAMENTO - TRILHA AUDITORIA
11702 - 00014 - 8.0 - 00009 - LIQUIDAÇÃO EXPORTAÇÃO, TRILHA DE AUDITORIA
12108 - 00015 - 8.0 - 00011 - PARÂMETROS DE TAXA E TIPO DE DOCUMENTO
12182 - 00016 - 8.0 - 00011 - LIQUIDAÇÃO ANDAMENTO - VME - DESC. RECEBÍVEIS - VINCULAÇÃO - LIQUI
----------------------------------------------------------------------------------------------------
Texto Rápido:
LIQUIDAÇÃO EM ANDAMENTO - LIQUIDAÇÃO CONTRATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO EM ANDAMENTO - LIQUIDAÇÃO CONTRATO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_P
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004TOP
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB031TOP
REPT /PWS/SAPMZYCB004
REPT /PWS/SAPMZYCB031
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P
...
IF total NE 'X'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'DF05B-PSBET(02)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=Z+'.
ENDIF.
ELSE.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'DF05B-PSBET(02)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=Z+'.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P
IF v_filt_atrib = 'X' .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P
IF v_filt_atrib = 'X' and
not v_zuonr1 is initial.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-ABPOS'.
PERFORM bdc_field USING 'BDC_OKCODE' '=OMX'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-ABPOS'.
PERFORM bdc_field USING 'BDC_OKCODE' '=Z-'.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPDF05X'.
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM bdc_field USING 'BDC_OKCODE' '=OSU'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
clear itab_partidas.
read table itab_zycbt084 with key liq_and = 'X'
vbeln = itab_zycbt209-belnr.
check sy-subrc eq 0.
read table itab_bsas with key belnr = itab_zycbt084-belnr.
if sy-subrc eq 0.
itab_partidas-wrbtr = itab_bsas-wrbtr.
itab_partidas-d_newko = itab_bsas-hkont.
itab_partidas-agkoa = 'S'.
itab_partidas-d_sgtxt = itab_bsas-sgtxt.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
itab_partidas-d_zuonr = itab_bsas-zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
itab_partidas-d_zuonr = text-473.
* << Fim da inclusão
itab_partidas-d_gsber = itab_bsas-gsber.
itab_partidas-newbs = itab_bsas-bschl.
itab_partidas-brnch = itab_zycbt017-j_1bbranch.
select single shkzg
from tbsl
into v_shkzg
where bschl = itab_bsas-bschl.
else.
read table itab_bsad with key belnr = itab_zycbt084-belnr
kunnr = itab_zycbt209-hkont.
check sy-subrc eq 0.
itab_partidas-wrbtr = itab_bsad-wrbtr.
itab_partidas-d_newko = itab_bsad-kunnr.
itab_partidas-agkoa = 'D'.
itab_partidas-agums = itab_bsad-umskz.
itab_partidas-d_sgtxt = itab_bsad-sgtxt.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
itab_partidas-d_zuonr = itab_bsad-zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
itab_partidas-d_zuonr = text-473.
* << Fim da inclusão
itab_partidas-d_gsber = itab_bsad-gsber.
itab_partidas-newbs = itab_bsad-bschl.
itab_partidas-brnch = itab_zycbt017-j_1bbranch.
select single shkzg
from tbsl
into v_shkzg
where bschl = itab_bsad-bschl.
endif.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-tabela = itab_zycbe033-tabela.
...
...
value(p_umskz)
value(p_budat)
value(p_kursf)
value(p_agkoa)
value(p_belnr_ref)
value(p_budat_ref)
value(p_texto)
value(p_fatura)
changing p_belnr.
data: v_total type c.
* >> Início da inclusão: FORM CLEARING
DATA: v_filt_atrib.
* << Fim da inclusão
clear v_subrc.
* >> Início da inclusão: FORM CLEARING
IF p_texto = text-189.
LOOP AT itab_zycbt036.
PERFORM busca_zuonr USING itab_zycbt006-bukrs
itab_zycbt036-dtdocto
itab_zycbt036-belnr
'50'
p_agkoa
p_conta
p_umskz
CHANGING itab_zycbt036-zuonr.
MODIFY itab_zycbt036.
ENDLOOP.
ENDIF.
* << Fim da inclusão
concatenate '003' itab_zycbt006-tpcontr into v_codeven.
clear itab_zyglt321.
refresh itab_zyglt321.
if p_texto = text-189.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'CPT'
and codeven = v_codeven.
else.
select * from /pws/zyglt321
...
...
nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
if sy-subrc = 0 and
itab_paridade-v_vlme_c = /pws/zycbe001-vlme.
v_total = 'X'.
endif.
else.
if itab_zycbt006-vlme = /pws/zycbe001-vlme.
v_total = 'X'.
* >> Início da inclusão: FORM CLEARING
ENDIF.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM CLEARING
IF v_periodo_aberto = 'X'.
v_filt_atrib = 'X'.
* << Fim da inclusão
endif.
else.
v_total = 'X'.
endif.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
filtra = 'X'
total = v_total
v_modo = v_modo_bi
v_vinc_tot = 'X'
v_panormais = v_panormais
* >> Início da inclusão: FORM CLEARING
v_filt_atrib = v_filt_atrib
* << Fim da inclusão
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_doctos = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
call function 'DYNP_VALUES_UPDATE'
exporting
dyname = 'SAPLALDB'
dynumb = sy-dynnr
tables
dynpfields = tdynpread
exceptions
others = 0.
endif.
endform.
* >> Início da inclusão:
FORM busca_zuonr USING p_bukrs
p_dtdocto
p_belnr
p_bschl
p_koart
p_conta
p_umskz
CHANGING p_zuonr.
TYPES:
BEGIN OF ty_bseg,
bukrs TYPE bseg-bukrs,
belnr TYPE bseg-belnr,
gjahr TYPE bseg-gjahr,
augbl TYPE bseg-augbl,
bschl TYPE bseg-bschl,
koart TYPE bseg-koart,
umskz TYPE bseg-umskz,
zuonr TYPE bseg-zuonr,
hkont TYPE bseg-hkont,
END OF ty_bseg.
DATA: itab_bseg TYPE TABLE OF ty_bseg,
wa_bseg TYPE ty_bseg.
CLEAR v_year.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_dtdocto
IMPORTING
v_year = v_year
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
SELECT bukrs belnr gjahr augbl bschl koart umskz zuonr hkont
FROM bseg
INTO TABLE itab_bseg
WHERE bukrs = p_bukrs
AND belnr = p_belnr
AND gjahr = v_year.
DELETE itab_bseg WHERE NOT augbl IS initial.
DELETE itab_bseg WHERE bschl NE p_bschl.
DELETE itab_bseg WHERE koart NE p_koart.
DELETE itab_bseg WHERE umskz NE p_umskz.
DELETE itab_bseg WHERE hkont NE p_conta.
READ TABLE itab_bseg INTO wa_bseg INDEX 1.
IF sy-subrc EQ 0.
p_zuonr = wa_bseg-zuonr.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
into itab_zycbe033-d_zuonr.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt030-zterm.
endif.
endcase.
endloop.
perform verify_null_field using itab_zycbt209-dtcredext
'BUDAT'
text-039.
* >> Início da inclusão: FORM PROC_INCLUSAO
if v_dtbelnr is initial.
* << Fim da inclusão
itab_zycbe033-budat = itab_zycbt209-dtcredext.
itab_zycbe033-bldat = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM PROC_INCLUSAO
else.
itab_zycbe033-budat = v_dtbelnr.
itab_zycbe033-bldat = v_dtbelnr.
endif.
* << Fim da inclusão
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
itab_zycbe033-bukrs = itab_zycbt209-bukrs.
...
...
select wrbtr
from bsid
up to 1 rows
into itab_zycbe033-wrbtr
where belnr = itab_zycbt030-belnr_d
and gjahr = v_gjahr
and kunnr = itab_zycbt209-kunnr
and bukrs = itab_zycbt209-bukrs.
endselect.
else.
* >> Início da inclusão: FORM PROC_INCLUSAO
if v_dtbelnr is initial.
* << Fim da inclusão
itab_zycbt036-dtdocto = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM PROC_INCLUSAO
else.
itab_zycbt036-dtdocto = v_dtbelnr.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM PROC_INCLUSAO
endif.
* << Fim da inclusão
append itab_zycbt036.
...
...
itab_zycbt209-belnr = itab_zycbt032-belnr.
loop at itab_zycbt030
where nrinvoic = itab_zycbt209-nrinvoic and
gsberf = itab_zycbt209-gsberf and
nrparcf = itab_zycbt209-nrparcf.
if itab_zycbt030-belnr_d = itab_zycbt030-v_belnr.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
else.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
endif.
* >> Início da inclusão: FORM PROC_INCLUSAO
if v_dtbelnr is initial.
* << Fim da inclusão
itab_zycbt030-budat = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM PROC_INCLUSAO
else.
itab_zycbt030-budat = v_dtbelnr.
endif.
* << Fim da inclusão
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
( itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert ).
...
...
itab_zycbt209-nrparcf
itab_zycbt209-gsberf into v_identific.
move-corresponding itab_zycbt030 to /pws/zycbt030.
perform carrega_log using '/PWS/ZYCBT030'
'U'
sy-tcode
'/PWS/SAPMZYCB005'
v_identific.
endloop.
itab_zycbt209-saldo = itab_zycbt209-vlme.
* >> Início da inclusão: FORM PROC_INCLUSAO
if v_dtbelnr is initial.
* << Fim da inclusão
itab_zycbt209-dtbelnr = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM PROC_INCLUSAO
else.
itab_zycbt209-dtbelnr = v_dtbelnr.
endif.
* << Fim da inclusão
itab_zycbt209-status = 'C'.
itab_zycbt209-vlsltrans = itab_zycbt209-vlsltrans -
itab_zycbt209-vlme.
move itab_zycbt209 to /pws/zycbt209.
...
...
endloop.
v_erro = 'X'.
endif.
endif.
if v_erro eq 'X'
and v_desmemb eq 'X'.
loop at itab_zycbt030 where nrinvoic = itab_zycbt209-nrinvoic and
nrparcf = itab_zycbt209-nrparcf and
gsberf = itab_zycbt209-gsberf and
belnr_d ne space.
* >> Início da inclusão: FORM PROC_INCLUSAO
if v_dtbelnr is initial.
* << Fim da inclusão
perform anula_desmembramento using itab_zycbt209-bukrs
itab_zycbt030-belnr_d
itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM PROC_INCLUSAO
else.
perform anula_desmembramento using itab_zycbt209-bukrs
itab_zycbt030-belnr_d
v_dtbelnr.
endif.
* << Fim da inclusão
clear itab_zycbt030-belnr_d.
modify itab_zycbt030.
endloop.
exit.
endif.
endform.
form verify_null_field using value(p_field)
value(p_fieldname)
value(p_description).
if p_field is initial.
...
...
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt030-zterm.
endif.
endcase.
endloop.
perform verify_null_field using itab_zycbt209-dtcredext
'BUDAT'
text-039.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
if v_dtbelnr is initial.
* << Fim da inclusão
itab_zycbe033-budat = itab_zycbt209-dtcredext.
itab_zycbe033-bldat = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
else.
itab_zycbe033-budat = v_dtbelnr.
itab_zycbe033-bldat = v_dtbelnr.
endif.
* << Fim da inclusão
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
perform verify_null_field using itab_zycbt209-bukrs
...
...
exporting
v_bukrs = p_bukrs
v_date = p_budat
importing
v_year = p_ano.
endform.
form verifica_data using value(p_data)
value(p_bukrs)
value(p_nrinv)
value(p_mensg). "#EC *
* >> Início da inclusão: FORM VERIFICA_DATA
data: v_answer.
* << Fim da inclusão
perform determina_periodo using p_data
p_bukrs
changing v_monat.
perform determina_ano using p_data
p_bukrs
changing v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = p_bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
exceptions
error_period = 1
error_period_acc = 2
others = 3.
if sy-subrc ne 0.
if p_mensg eq 'X'.
* >> Início da inclusão: FORM VERIFICA_DATA
clear v_dtbelnr.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'N'
textline1 = text-048
textline2 = text-080
titel = text-048
cancel_display = 'X'
importing
answer = v_answer.
if v_answer eq 'J'.
call function 'TR_POPUP_INPUT_DATE'
exporting
iv_title = text-048
iv_description1 = text-048
iv_description2 = text-081
importing
ev_date = v_dtbelnr
exceptions
action_aborted_by_user = 1
value_not_changed = 2
others = 3.
if sy-subrc <> 0 or v_dtbelnr is initial.
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'W'
msgv1 = text-049
msgv2 = itab_zycbt209-nrinvoic
msgv3 = text-047
msgv4 = text-048
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
sy-subrc = 4.
clear v_dtbelnr.
else.
perform verifica_data using v_dtbelnr
p_bukrs
p_nrinv
p_mensg.
endif.
else.
* << Fim da inclusão
call function 'MESSAGE_STORE'
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'W'
msgv1 = text-049
msgv2 = itab_zycbt209-nrinvoic
msgv3 = text-047
msgv4 = text-048
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
* >> Início da inclusão: FORM VERIFICA_DATA
sy-subrc = 4.
clear v_dtbelnr.
* << Fim da inclusão
endif.
* >> Início da inclusão: FORM VERIFICA_DATA
else.
* << Fim da inclusão
sy-subrc = 4.
* >> Início da inclusão: FORM VERIFICA_DATA
endif.
else.
* << Fim da inclusão
endif.
...
...
with key
nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
concatenate itab_zycbt030-nrinvoic itab_zycbt030-vbeln
itab_zycbt030-gsberf itab_zycbt030-nrparcf
into v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
* >> Início da exclusão: FORM ESTORNA_AGRUPAMENTO
perform verifica_data using itab_zycbt209-dtcredext
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
perform verifica_data using itab_zycbt209-dtbelnr
* << Fim da inclusão
itab_zycbt209-bukrs
itab_zycbt209-nrinvoic
space.
if sy-subrc eq 0.
perform verify_null_field using itab_zycbt209-dtcredext
'BUDAT'
text-039.
itab_zycbe033-budat = itab_zycbt209-dtcredext.
itab_zycbe033-bldat = itab_zycbt209-dtcredext.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
perform verify_null_field using itab_zycbt209-dtbelnr
'BUDAT'
text-039.
itab_zycbe033-budat = itab_zycbt209-dtbelnr.
itab_zycbe033-bldat = itab_zycbt209-dtbelnr.
* << Fim da inclusão
else.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-bldat = sy-datum.
endif.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
select single nrseq from /pws/zycet001
...
...
if sy-subrc ne 0.
v_total = 'X'.
endif.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
concatenate itab_zycbt030-nrinvoic
itab_zycbt030-gsberf
itab_zycbt030-nrparcf
into v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
perform verifica_data using itab_zycbt209-dtcredext
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
perform verifica_data using itab_zycbt209-dtbelnr
* << Fim da inclusão
itab_zycbt209-bukrs
itab_zycbt209-nrinvoic
space.
if sy-subrc eq 0.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
perform verify_null_field using itab_zycbt209-dtcredext
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
perform verify_null_field using itab_zycbt209-dtbelnr
* << Fim da inclusão
'BUDAT'
text-039.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
itab_zycbe033-budat = itab_zycbt209-dtcredext.
itab_zycbe033-bldat = itab_zycbt209-dtcredext.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
itab_zycbe033-budat = itab_zycbt209-dtbelnr.
itab_zycbe033-bldat = itab_zycbt209-dtbelnr.
* << Fim da inclusão
else.
itab_zycbe033-budat = sy-datum.
itab_zycbe033-bldat = sy-datum.
endif.
loop at itab_zyglt321.
case itab_zyglt321-cpor3.
when 'SGTXT'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
select single nrseq from /pws/zycet001
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031TOP
...
end of itab_nrsd.
data: begin of itab_zycbt017_aux occurs 0.
include structure /pws/zycbt017.
data: v_fsaldo type c,
end of itab_zycbt017_aux.
data: begin of itab_zycbt209_aud occurs 0.
include structure /pws/zycbt209.
data: end of itab_zycbt209_aud.
data: wa_zycbt209_aud like /pws/zycbt209,
v_identific(25) type c.
* >> Início da inclusão:
data: v_dtbelnr type /pws/zycbt209-dtbelnr.
* << Fim da inclusão
selection-screen begin of screen 0001.
select-options: s_nrinv for /pws/zycbt209-nrinvoic
matchcode object /pws/zygla288,
s_bukrs for /pws/zycbt209-bukrs,
s_gsber for /pws/zycbt209-gsberf,
s_werks for /pws/zycbt209-werks,
s_nparc for /pws/zycbt209-nrparcf,
s_kunnr for /pws/zycbt209-kunnr,
s_dtinc for /pws/zycbt209-dtincl.
selection-screen end of screen 0001.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 473
Texto: (22 caracteres)
"REVERSAL SET.IN COURSE"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 473
Texto: (22 caracteres)
"ESTORNO LIQ. ANDAMENTO"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 473
Texto: (21 caracteres)
"EXTORNO LIQ. EN CURSO"
Comprimento máximo: 22
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB031