CE PLUS - Nota 010203
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 27/05/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:45:20
Descrição da Nota: SOCIEDADE PARCEIRA LIQUIDAÇÃO EM ANDAMENTO
Sintoma
Necessidade de desenvolvimento de tratamento para sociedade parceira.
Solução
Desenvolvimento de tratamento para sociedade parceira.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10203 Data: 27/05/2010 Hora: 10:48:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10203
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07107 - 00001 - 7.0 - 00006 - LIQUIDAÇÃO EM ANDAMENTO CRIAR - BOTÕES VINCULAR TOTAL SELECIONAR
07635 - 00002 - 7.0 - 00007 - LIQUIDAÇÃO EM ANDAMENTO - NÃO APARECE O CAMPO CHAVE DE REFERENCIA
08486 - 00003 - 7.0 - 00009 - LIQUIDAÇÃO EM ANDAMENTO
08515 - 00004 - 7.0 - 00009 - LIQUIDAÇÃO EM ANDAMENTO - ESTORNO - SGTXT ORIGINAL PARTIDA CLIENT
08687 - 00005 - 7.0 - 00010 - LIQUIDAÇÃO EM ANDAMENTO, CONTABILIZAÇÃO
09277 - 00006 - 8.0 - 00001 - FATURA ATUALIZAR-DUMP-NÃO ACEITA VALORES NEGATIVOS-IRÁ PASSAR A A
09923 - 00007 - 8.0 - 00002 - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE
10188 - 00008 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
----------------------------------------------------------------------------------------------------
SOCIEDADE PARCEIRA LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SOCIEDADE PARCEIRA LIQUIDA ANDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB031 0100
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB031TOP
TABD /PWS/ZYCBE209
TABD /PWS/ZYCBT209
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB031 0100
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-BCO_RECEB" em tbl.contr./tabstr.
Coluna 16
MODIFICAR TEXTO "/PWS/ZYCBE209-BCO_RECEB" em tbl.contr./tabstr.
Coluna 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-BELNR" em tbl.contr./tabstr.
Coluna 22
MODIFICAR TEXTO "/PWS/ZYCBE209-BELNR" em tbl.contr./tabstr.
Coluna 22
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-BELNR2" em tbl.contr./tabstr.
Coluna 20
MODIFICAR TEXTO "/PWS/ZYCBE209-BELNR2" em tbl.contr./tabstr.
Coluna 20
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-BELNR_F28" em tbl.contr./tabstr.
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCBE209-BELNR_F28" em tbl.contr./tabstr.
Coluna 29
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-DTBELNR" em tbl.contr./tabstr.
Coluna 21
MODIFICAR TEXTO "/PWS/ZYCBE209-DTBELNR" em tbl.contr./tabstr.
Coluna 21
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-DTCREDEXT" em tbl.contr./tabstr.
Coluna 15
MODIFICAR TEXTO "/PWS/ZYCBE209-DTCREDEXT" em tbl.contr./tabstr.
Coluna 15
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-DTINCL" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCBE209-DTINCL" em tbl.contr./tabstr.
Coluna 14
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-HKONT" em tbl.contr./tabstr.
Coluna 27
MODIFICAR TEXTO "/PWS/ZYCBE209-HKONT" em tbl.contr./tabstr.
Coluna 27
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-KOART" em tbl.contr./tabstr.
Coluna 25
MODIFICAR TEXTO "/PWS/ZYCBE209-KOART" em tbl.contr./tabstr.
Coluna 25
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-LIQUID" em tbl.contr./tabstr.
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCBE209-LIQUID" em tbl.contr./tabstr.
Coluna 24
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-NRSEQC" em tbl.contr./tabstr.
Coluna 28
MODIFICAR TEXTO "/PWS/ZYCBE209-NRSEQC" em tbl.contr./tabstr.
Coluna 28
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-REF_ORDEM" em tbl.contr./tabstr.
Coluna 18
MODIFICAR TEXTO "/PWS/ZYCBE209-REF_ORDEM" em tbl.contr./tabstr.
Coluna 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-SALDO" em tbl.contr./tabstr.
Comprimento Visível 18
Coluna 19
Texto __________________
MODIFICAR TEXTO "/PWS/ZYCBE209-SALDO" em tbl.contr./tabstr.
Coluna 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-STATUS" em tbl.contr./tabstr.
Coluna 23
MODIFICAR TEXTO "/PWS/ZYCBE209-STATUS" em tbl.contr./tabstr.
Coluna 23
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-UMSKZ" em tbl.contr./tabstr.
Coluna 26
MODIFICAR TEXTO "/PWS/ZYCBE209-UMSKZ" em tbl.contr./tabstr.
Coluna 26
INCLUIR CAMPO TEXTO "/PWS/ZYCBE209-VBUND" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 6
Linha 1
Coluna 12
Formato CHAR
Linhas mínimas 6
Texto ______
Código função
INCLUIR TEXTO "/PWS/ZYCBE209-VBUND" em tbl.contr./tabstr.
Altura 6
Comprimento Visível 15
Linha 1
Coluna 12
Formato CHAR
Texto Socied.parceira
MODIFICAR CAMPO TEXTO "/PWS/ZYCBE209-VLME" em tbl.contr./tabstr.
Comprimento Visível 18
Coluna 13
Texto __________________
MODIFICAR TEXTO "/PWS/ZYCBE209-VLME" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "V_NAME_BCO" em tbl.contr./tabstr.
Coluna 17
MODIFICAR TEXTO "V_NAME_BCO" em tbl.contr./tabstr.
Coluna 17
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
end of shlp_descr_t.
data: begin of itab_result occurs 0.
include structure ddshretval.
data: end of itab_result.
data: begin of record_tab occurs 0.
include structure seahlpres.
data: end of record_tab.
data: v_line like sy-lilli,
l_display(1) type c,
shlp_struc like /pws/zycbv201,
* >> Início da exclusão: FORM GET_INVOICE
shlp_curr type shlp_descr_t,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
shlp_curr TYPE shlp_descr_t, "#EC NEEDED
* << Fim da inclusão
tdynpread like dynpread occurs 0 with header line,
wa_zycbt017a like /pws/zycbt017.
clear tdynpread.
refresh tdynpread.
call function 'DYNP_GET_STEPL'
importing
povstepl = v_line.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
tdynpread-stepl = v_line.
append tdynpread.
call function 'DYNP_VALUES_READ'
exporting
dyname = '/PWS/SAPMZYCB031'
dynumb = '0100'
tables
* >> Início da exclusão: FORM GET_INVOICE
dynpfields = tdynpread."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
dynpfields = tdynpread. "#EC *
* << Fim da inclusão
if sy-subrc eq 0 and not
tdynpread-fieldvalue is initial.
exit.
endif.
if v_status eq '1'.
l_display = ' '.
else.
l_display = 'X'.
endif.
call function 'F4IF_FIELD_VALUE_REQUEST'
...
...
clear tdynpread.
refresh tdynpread.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
tdynpread-stepl = v_line - 1.
append tdynpread.
call function 'DYNP_VALUES_READ'
exporting
dyname = '/PWS/SAPMZYCB031'
dynumb = '0100'
tables
* >> Início da exclusão: FORM GET_INVOICE
dynpfields = tdynpread."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
dynpfields = tdynpread. "#EC *
* << Fim da inclusão
if sy-subrc eq 0 and
tdynpread-fieldvalue is initial and
tdynpread-stepl gt 0.
v_line = tdynpread-stepl.
elseif sy-subrc eq 0 and
not tdynpread-fieldvalue is initial.
exit.
endif.
enddo.
clear tdynpread.
...
...
if sy-subrc eq 0.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-013
titel = text-012
cancel_display = space
importing
answer = v_answer
exceptions
* >> Início da exclusão: FORM COMMAND_AEND
others = 0."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM COMMAND_AEND
OTHERS = 0. "#EC *
* << Fim da inclusão
case v_answer.
when 'J'.
perform command_proc.
v_status = '0'.
when 'N'.
when 'A'.
endcase.
else.
v_status = '0'.
endif.
...
...
when '0300'.
if ok_code = '%EX'.
leave to screen 0.
else.
leave to screen '0200'.
endif.
when others.
endcase.
endform.
form set_screen_tc.
* >> Início da inclusão: FORM SET_SCREEN_TC
CLEAR /pws/zyglt009.
SELECT SINGLE *
FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe209-bukrs.
PERFORM busca_parametros.
* << Fim da inclusão
loop at screen.
if screen-group1 eq 'FEC'.
screen-input = '0'.
screen-required = '0'.
elseif screen-group1 eq 'ALT'.
if /pws/zycbe209-liquid eq 'X'.
screen-input = '0'.
else.
screen-input = v_status.
if c_no_modify eq 'X' and
...
...
endif.
endif.
endif.
if screen-group3 eq 'CLI'.
screen-intensified = '1'.
else.
screen-intensified = '0'.
endif.
if screen-group3 eq 'NOB'.
screen-required = '0'.
* >> Início da inclusão: FORM SET_SCREEN_TC
ENDIF.
IF screen-name EQ '/PWS/ZYCBE209-VBUND'.
IF /pws/zyglt009-flag_soc_parceir EQ 'X'
AND /pws/zycbt089-tp_liq_and EQ 'S'.
.
IF /pws/zycbe209-belnr2 IS INITIAL.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ELSE.
screen-input = '0'.
CLEAR: /pws/zycbe209-vbund,
/pws/zycbt209-vbund.
ENDIF.
* << Fim da inclusão
endif.
modify screen.
endloop.
endform.
form ask_exclusion using p_texto
changing p_answer.
data: v_text1(35),
v_text2(35).
concatenate text-020 itab_zycbt209-nrinvoic
into v_text1
...
...
itab_zycbe033-d_newko = itab_contas-konts.
itab_zycbt209-hkont = itab_contas-konts.
endif.
endif.
perform verify_null_field using itab_zycbe033-d_newko
'NEWKO'
text-042.
itab_zycbe033-agkon = itab_zycbt030-kunag.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-werks = itab_zycbt209-werks.
* >> Início da inclusão: FORM PROC_INCLUSAO
itab_zycbe033-vbund = itab_zycbt209-vbund.
* << Fim da inclusão
loop at itab_zycbt030 where nrinvoic = itab_zycbt209-nrinvoic and
gsberf = itab_zycbt209-gsberf and
nrparcf = itab_zycbt209-nrparcf.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-belnr = itab_zycbt030-belnr_d.
if itab_zycbt030-belnr_d eq itab_zycbt030-belnr or
itab_zycbt030-belnr_d eq itab_zycbt030-belnr6.
perform determina_ano using itab_zycbt030-budat
...
...
if p_field is initial.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
append itab_zycbt034.
endif.
endform.
form command_modo.
data: wa_zycbt039 like /pws/zycbt039.
clear: itab_modo.
refresh: itab_modo.
* >> Início da exclusão: FORM COMMAND_MODO
select * from /pws/zycbt039 into wa_zycbt039."#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: FORM COMMAND_MODO
SELECT * FROM /pws/zycbt039 INTO wa_zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = wa_zycbt039-modo.
itab_modo-varoption = wa_zycbt039-descr.
append itab_modo.
endselect.
sort itab_modo descending.
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-036
textline2 = text-037
titel = text-038
...
...
else.
endif.
endform.
form desmembra_cliente.
data:
v_dtliquid like sy-datum,
v_dtemb like sy-datum,
v_kurrf_bl like /pws/zycet001-kurrf_bl,
v_cpochv like /pws/zycbe033-cpochv,
v_desm like /pws/zycbt089-tx_desm_cli.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
data: v_gjahr type gjahr. "#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
DATA: v_gjahr TYPE gjahr. "#EC NEEDED
* << Fim da inclusão
perform clear_dados_batch.
clear itab_zyglt321.
refresh itab_zyglt321.
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = 'FTE'
and codeven = '010'.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT209'.
concatenate itab_zycbt030-nrinvoic itab_zycbt030-vbeln
...
...
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
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)
* >> Início da exclusão: FORM VERIFICA_DATA
value(p_mensg)."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA
value(p_mensg). "#EC *
* << 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
...
...
if itab_zycbt030-flag <> 'X'.
itab_zycbe033-newbs = '01'.
else.
itab_zycbe033-newbs = '12'.
endif.
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
itab_zycbe033-zumsk = itab_zycbt209-umskz.
itab_zycbe033-agkon = itab_zycbt209-hkont.
itab_zycbe033-agkoa = itab_zycbt209-koart.
itab_zycbe033-werks = itab_zycbt209-werks.
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
itab_zycbe033-vbund = itab_zycbt209-vbund.
* << Fim da inclusão
clear itab_zycbe033-c_zuonr.
perform valida_campo_filial
using
itab_zycbt209-bukrs
itab_zycbt209-werks
changing itab_zycbe033-brnch.
perform verifica_prorrogacao_est.
perform executa_exit using 'LIQ008'.
read table itab_zyglt100 with key zexit = 'LIQ009'.
if sy-subrc eq 0.
...
...
t_zycbt036 = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
* >> Início da exclusão: FORM ESTORNA_AGRUPAMENTO
tpmsg = 'S'."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_AGRUPAMENTO
tpmsg = 'S'. "#EC *
* << Fim da inclusão
if sy-subrc eq 0.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
call function 'MESSAGE_STORE'
exporting
arbgb = itab_zycbt032-msgid
msgty = itab_zycbt032-tpmsg
msgv1 = itab_zycbt032-msgv1
msgv2 = itab_zycbt032-msgv2
msgv3 = itab_zycbt032-msgv3
msgv4 = itab_zycbt032-msgv4
...
...
v_zeile = v_zeile + 1.
endloop.
v_subrc = 4.
endif.
else.
v_subrc = 4.
endif.
endform.
form estorna_sem_agrupamento.
data: v_subrc like sy-subrc,
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
v_wrbtr like bsid-wrbtr,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
v_wrbtr LIKE bsid-wrbtr, "#EC NEEDED
* << Fim da inclusão
v_dtliquid like sy-datum,
v_dtemb like sy-datum,
v_kurrf_bl like /pws/zycet001-kurrf_bl,
v_cpochv like /pws/zycbe033-cpochv,
v_desm like /pws/zycbt089-tx_desm_cli,
v_belnr like bkpf-belnr,
v_dtbelnr like sy-datum,
v_vlsltrans like /pws/zycbt030-vlsltrans,
v_last type c,
v_newbs like /pws/zycbe033-newbs,
...
...
endif.
clear v_last.
loop at itab_zycbt030 where nrinvoic = itab_zycbt209-nrinvoic and
gsberf = itab_zycbt209-gsberf and
nrparcf = itab_zycbt209-nrparcf.
if itab_zycbt030-flag <> 'X'.
v_newbs = '01'.
else.
v_newbs = '12'.
endif.
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
at last."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
AT LAST. "#EC *
* << Fim da inclusão
v_last = 'X'.
endat.
v_line = sy-tabix - 1.
if v_last eq 'X'.
itab_zycbe033-wrbtr = itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert.
else.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-tcode = itab_zycbe033-tcode.
...
...
if v_line ge 1.
read table itab_doctos index v_line.
itab_doctos-newbs = v_newbs.
modify itab_doctos index v_line transporting newbs.
endif.
endloop.
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
itab_zycbe033-zumsk = itab_zycbt209-umskz.
itab_zycbe033-agkon = itab_zycbt209-hkont.
itab_zycbe033-agkoa = itab_zycbt209-koart.
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
itab_zycbe033-vbund = itab_zycbt209-vbund.
* << Fim da inclusão
clear itab_zycbe033-c_zuonr.
perform executa_exit using 'LIQ008'.
read table itab_zyglt100 with key zexit = 'LIQ009'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-tcode = itab_zycbe033-tcode.
...
...
t_doctos = itab_doctos
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = itab_zycbe033-cpochv
* >> Início da exclusão: FORM ESTORNA_SEM_AGRUPAMENTO
tpmsg = 'S'."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_SEM_AGRUPAMENTO
tpmsg = 'S'. "#EC *
* << Fim da inclusão
if sy-subrc eq 0.
loop at itab_zycbt030
where nrinvoic = itab_zycbt209-nrinvoic and
gsberf = itab_zycbt209-gsberf and
nrparcf = itab_zycbt209-nrparcf.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
modify itab_zycbt030 transporting belnr_d.
endloop.
call function 'MESSAGE_STORE'
exporting
...
...
msgv1 = text-062
msgv2 = itab_zycbt209-nrinvoic
msgv3 = text-065
msgv4 = text-066
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endif.
itab_zycbe033-d_newko = itab_zycbt030-kunag.
itab_zycbe033-agkoa = 'D'.
* >> Início da inclusão: FORM CLEARING
itab_zycbe033-vbund = itab_zycbt209-vbund.
* << Fim da inclusão
itab_zycbe033-newbs = '01'.
itab_zycbe033-belnr = itab_zycbt030-belnr.
itab_zycbe033-dtdocto = itab_zycbt030-dtbelnr.
itab_zycbe033-c_sgtxt = itab_zycbt030-nrinvoic.
perform verifica_prorrogacao_est.
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT209'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
...
...
t_doctos = itab_zycbt036
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = v_tcode
tabela = '/PWS/ZYCBT209'
cpochv = v_cpochv
* >> Início da exclusão: FORM CLEARING
tpmsg = 'S'."#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
tpmsg = 'S'. "#EC *
* << Fim da inclusão
if sy-subrc = 0.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = p_dtbelnr.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans +
( itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert ).
modify itab_zycbt030 transporting belnr6
budat
vlsltrans
...
...
exporting
arbgb = '/PWS/ZYCBM'
msgty = 'S'
msgv1 = text-060
msgv2 = itab_zycbt209-nrinvoic
msgv3 = text-061
txtnr = '061'
zeile = v_zeile.
v_zeile = v_zeile + 1.
endform.
* >> Início da exclusão: FORM LIMPA_SALDO
form limpa_saldo."#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_SALDO
FORM limpa_saldo. "#EC CALLED
* << Fim da inclusão
if /pws/zycbe209-waers ='JPY'.
clear /pws/zycbe209-saldo.
endif.
endform.
form verifica_prorrogacao.
clear: v_buzei, v_zterm, v_zbd1t, v_ztag1.
perform determina_ano using itab_zycbt030-budat
itab_zycbt209-bukrs
changing v_ano.
select buzei zterm zbd1t
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031TOP
PROGRAM /pws/sapmzycb031 MESSAGE-ID /pws/zycbm.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
INCLUDE /pws/zygli101.
* >> Início da exclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
data v_tela_help like sy-dynnr value '0052'. "#EC NEEDED
* << Fim da inclusão
TABLES:
/pws/zycbt007,
* >> Início da inclusão:
/pws/zyglt009,
* << Fim da inclusão
/pws/zycbt089,
/pws/zycbt011,
/pws/zycbt017,
/pws/zycbt030,
* >> Início da exclusão:
/pws/zyglt364,"#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt364, "#EC NEEDED
* << Fim da inclusão
/pws/zycbe017,
/pws/zycbe017a.
INCLUDE: <icon>,
/pws/mzycb031x01,
/pws/zygli100.
DATA: BEGIN OF itab_zycbt209_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: vlsltrans LIKE /pws/zycbt030-vlsltrans,
oper(1) TYPE c,
mark(1) TYPE c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE209
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
VBUND RASSC CHAR 6 0 Nº sociedade parceira
Deverá ser inserido entre os campos waers e vlme.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT209
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
VBUND RASSC CHAR 6 0 Nº sociedade parceira
Deverá ser inserido entre os campos waers e vlme.
Deverá ser inserido entre os campos waers e vlme.
Deverá ser inserido entre os campos waers e vlme.