CE PLUS - Nota 008619
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 01/07/2009 00:00:00
Data/Hora Última Alteração: 30/06/2011 15:37:33
Descrição da Nota: VINCULAÇÃO-LIQUIDAÇÃO-IDIOMA 166/167/168/169-ERRO DATA BASE
Sintoma
- No parâmetros para escolher tipo de documento e taxa por: tipo de contrato e de
contabilização, não tem opção para traduzir os textos.
- Erro na Vinculação de Data Base não encontrada
Solução
- Criar campo idioma nas novas tabelas para permitir traduzir o texto e respeitar o texto logado.
- Ajustar código para que, se encontrou taxa na OB08, ignora 169 não parametrizada, evitando erro de
Data Base.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08619 Data: 01/07/2009 Hora: 16:08:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08619
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08536 - 00001 - 7.0 - 00009 - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C
----------------------------------------------------------------------------------------------------
VINCULAÇÃO-LIQUIDAÇÃO-IDIOMA 166/167/168/169-ERRO DATA BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO LIQUIDAÇÃO IDIOMA 166/167/168/169 ERRO DATA BASE
/PWS/ZYCBT166 /PWS/ZYCBT167 /PWS/ZYCBT168 /PWS/ZYCBT169
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCBGF1
FUNC /PWS/ZYCB_DADOS_BI
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F04
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
SHLD /PWS/ZYCBA292
SHLD /PWS/ZYCBA293
SHLD /PWS/ZYCBA294
TABD /PWS/ZYCBT166
TABD /PWS/ZYCBT167
TABD /PWS/ZYCBT168
TABD /PWS/ZYCBT169
TABU TDDAT
TABU TVDIR
TOBJ /PWS/ZYCBT166S
TOBJ /PWS/ZYCBT167S
TOBJ /PWS/ZYCBT168S
TOBJ /PWS/ZYCBT169S
VIED /PWS/ZYCBV294
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DADOS_BI
...
v_vktra TYPE /pws/zycit054-vktra,
v_fdtlanc TYPE /pws/zycbt001-dtcontr,
v_data_vin TYPE /pws/zycbt007-dtvincul.
DATA: wa_zycet048 TYPE /pws/zycet048,
wa_zycbt009 TYPE /pws/zycbt009,
wa_zycbt168_aux TYPE /pws/zycbt168.
SELECT * FROM /pws/zycbt169 INTO TABLE itab_zycbt169
WHERE bukrs = i_bukrs
AND funcionalidade = i_funcionalidade
AND tpcontr = i_tpcontr
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
AND tpcontabil = i_tpcontabil.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
AND tpcontabil = i_tpcontabil
and language = sy-langu.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT * FROM /pws/zycbt168 INTO TABLE itab_zycbt168
FOR ALL ENTRIES IN itab_zycbt169
WHERE tpcontabil = itab_zycbt169-tpcontabil
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DADOS_BI
AND taxa = itab_zycbt169-taxa.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
AND taxa = itab_zycbt169-taxa
and language = sy-langu.
* << Fim da inclusão
READ TABLE itab_zycbt169 WITH KEY funcionalidade = i_funcionalidade
tpcontr = i_tpcontr
tpcontabil = i_tpcontabil.
IF sy-subrc = 0.
IF NOT itab_zycbt169-tpdocto IS INITIAL.
t_zycbe033-blart = itab_zycbt169-tpdocto.
IF NOT t_zycbe033-blart IS INITIAL.
clear t_zycbt034.
DELETE t_zycbt034 WHERE campo = 'BLART'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
where bukrs eq /pws/zycbe005-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT006'.
concatenate '003' /pws/zycbe005-tpcontr into v_codeven.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_001
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_001
and codmod = 'E'
and bukrs = /pws/zycbe005-bukrs.
* << Fim da inclusão
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
if not wa_zycbt007-liq_trans is initial.
refresh: itab_zycbt012_trans.
select * from /pws/zycbt012
into table itab_zycbt012_trans
where codeven = '023'
...
...
if wa_zycbt007-liq_trans eq 'R'.
concatenate '003' /pws/zycbe005-tpcontr into v_codeven.
else.
concatenate '004' itab_selreg-codp into v_codeven.
endif.
v_codaux = itab_selreg-lifnr.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
and codmod = 'E'
and bukrs = itab_zycbt006-bukrs.
* << Fim da inclusão
if wa_zycbt007-comis = 'C'.
select * from /pws/zycbt012
into table itab_zycbt012a
where codeven = v_codeven and
codmod = 'E' and
tpcodaux = 'C' and
codaux = v_codaux.
if sy-subrc ne 0.
select * from /pws/zycbt012
into table itab_zycbt012a
...
...
endif.
endif.
endif.
endif.
endif.
endform.
form busca_envento_taxa.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
* >> Início da exclusão: FORM BUSCA_ENVENTO_TAXA
where codeven = '0010'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ENVENTO_TAXA
where codeven = '0010'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
endform.
form carrega_vljur_vlcomis.
data: v_tabix like sy-tabix.
if /pws/zycbt001-tpcontr(1) eq 'D'.
loop at itab_zycbt005.
v_tabix = sy-tabix.
move: itab_zycbt005-vljur to itab_zycbt005-v_vljur.
modify itab_zycbt005 index v_tabix.
endloop.
else.
...
...
where bukrs eq /pws/zycbe005-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT006'.
v_codeven_d = '003D'.
clear wa_zycbt011_d.
select single * from /pws/zycbt011
into wa_zycbt011_d
where codeven = v_codeven_d
* >> Início da exclusão: FORM GET_PARAMETERS_ARBITR
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_ARBITR
and codmod = 'E'
and bukrs = /pws/zycbe005-bukrs.
* << Fim da inclusão
endform.
form fill_date6_f30_ace.
data: v_wrbtr like bsis-wrbtr,
v_wrbtr1 like bsis-wrbtr.
read table itab_zycbt005
with key nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
concatenate itab_zycbt006-nrseqc itab_zycbt006-tpdesp
itab_zycbt006-nrparc itab_zycbt006-dtincl
...
...
v_cont02 = itab_zycbe033b-d_newko.
endform.
form clearing_trans_f02.
data: v_prazo,
v_nrdias type i.
perform clear_date_batch.
refresh itab_zycbt012.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven eq v_codeven
* >> Início da exclusão: FORM CLEARING_TRANS_F02
and codmod eq 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANS_F02
and codmod eq 'E'
and bukrs = itab_zycbt006-bukrs.
* << Fim da inclusão
v_nrdias = itab_zycbt006-dtpagto - itab_zycbt006-dtvincul.
if v_nrdias > 360.
v_prazo = 'L'.
else.
v_prazo = 'S'.
endif.
read table itab_zycbt012 with key codeven = v_codeven
codmod = 'E'
chlanc = 'D'
tpcodaux = 'G'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
where belnr = itab_zycbt030-v_belnr
and gjahr = v_year
and kunnr = itab_zycbt005-kunnr
and bukrs = itab_zycbt005-bukrs.
loop at itab_bsid.
v_wrbtr = v_wrbtr + itab_bsid-wrbtr.
endloop.
if wa_zycbt007-liq_trans eq space.
itab_zycbe033-belnr = belnr_.
if not itab_zycbt030-budat_t is initial
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
and not itab_zycbt030-belnr = belnr_.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
and not itab_zycbt030-belnr = belnr_
and itab_zycbt030-budat_t > itab_zycbt030-budat.
* << Fim da inclusão
v_data = itab_zycbt030-budat_t.
else.
v_data = itab_zycbt030-budat.
endif.
else.
itab_zycbe033-belnr = itab_zycbt030-belnr_t.
v_data = itab_zycbt030-budat_t.
endif.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
data: itab_zycbt007 like /pws/zycbt007 occurs 0 with header line.
move-corresponding /pws/zycbt007 to itab_zycbt007.
append itab_zycbt007.
v_nrdias = p_dtate - p_dtde.
read table itab_zycbt010 with key tptxjur = p_tptxjur.
v_nrdiabase = itab_zycbt010-nrdias.
concatenate '002' /pws/zycbt001-tpcontr into v_evento.
select single *
from /pws/zycbt011
where codeven = v_evento and
* >> Início da exclusão: FORM PROCESSA_CALCULO_JUROS
codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
read table itab_zycbt009 with key codpadr = /pws/zycbt011-ctmoed.
check not p_txj is initial.
call function '/PWS/ZYCB_JUROS_CALCULA'
exporting
i_vlme = p_vlme
i_txj = p_txj
i_nrdiabase = v_nrdiabase
i_nrdias = v_nrdias
i_moeda = p_moeda
i_ctmoeda = itab_zycbt009-kurst
...
...
itab_zycbe033-d_newko = itab_contas-konts.
endform.
form seleciona_taxa.
data: v_dtbudat like sy-datum,
v_kurst like /pws/zycbt009-kurst.
concatenate '005' /pws/zycbt001-tpcontr into v_codeven.
clear wa_zycbt011.
select single * from /pws/zycbt011
into /pws/zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM SELECIONA_TAXA
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_TAXA
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
select single kurst
from /pws/zycbt009
into v_kurst
where codpadr = /pws/zycbt011-ctmoed.
convert date v_dtcalcjur into inverted-date v_dtbudat.
select * from tcurr
into table itab_tcurr
where kurst = v_kurst
and fcurr = /pws/zycbt001-waers
and tcurr = wa_zycbt007-waersb
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
itab_zycbt034.
sy-subrc = v_subrc.
endform.
form seleciona_taxa_p.
data: v_dtbudat like sy-datum,
v_kurst like /pws/zycbt009-kurst.
clear wa_zycbt011.
select single * from /pws/zycbt011
into /pws/zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM SELECIONA_TAXA_P
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_TAXA_P
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
select single kurst
from /pws/zycbt009
into v_kurst
where codpadr = /pws/zycbt011-ctmoed.
convert date v_dtcalcjur into inverted-date v_dtbudat.
select * from tcurr
into table itab_tcurr
where kurst = v_kurst
and fcurr = /pws/zycbt001-waers
and tcurr = wa_zycbt007-waersb
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
where bukrs eq /pws/zycbe001-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT005'.
v_codeven = '014D'.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_DEV
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_DEV
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
select single codpadr kurst
into (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
from /pws/zycbt009
where codpadr = wa_zycbt011-ctmoed.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
endform.
...
...
where bukrs eq /pws/zycbe001-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT005'.
v_codeven = p_codeven_dev.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
select single codpadr kurst
into (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
from /pws/zycbt009
where codpadr = wa_zycbt011-ctmoed.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
case v_codeven.
...
...
exit.
endif.
perform verify_null_field using itab_zycbe033-c_newko
'SAKNR'
text-014.
v_codeven = '014D'.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_ESTDEV
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_ESTDEV
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
select single codpadr kurst
into (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
from /pws/zycbt009
where codpadr = wa_zycbt011-ctmoed.
if /pws/zycbe050-conta_contab is initial.
v_conta_contab = /pws/zycbe050-conta_contab.
itab_zycbe033-d_newko = v_conta_contab .
else.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
...
...
where bukrs eq /pws/zycbe001-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT005'.
v_codeven = '014C'.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_CANC
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CANC
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
clear itab_zycbt012.
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
select single f_cont_canc from /pws/zycbt089
into /pws/zycbt089-f_cont_canc
where bukrs eq /pws/zycbe001-bukrs.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
and gsberf = itab_zycbt005-gsberf.
if sy-subrc eq 0 and sy-tcode eq c_transacao_c.
delete itab_zycbt226 where sld_exterior eq 0.
endif.
endif.
endform.
form busca_envento_taxa.
clear wa_zycbt011t.
select single * from /pws/zycbt011
into wa_zycbt011t
* >> Início da exclusão: FORM BUSCA_ENVENTO_TAXA
where codeven = '0010'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ENVENTO_TAXA
where codeven = '0010'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
endform.
form carrega_dados_reservados.
import v_nrseqcimp from memory id rimcm1.
if sy-subrc eq 0.
import itab_transport from memory id rimcm2.
if sy-subrc eq 0.
move: v_nrseqcimp to v_nrseqc.
loop at itab_transport.
move: itab_transport-nrseqc to itab_zycbt005-nrseqc ,
itab_transport-nrcontr to itab_zycbt005-nrcontr ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F04
...
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
* >> Início da inclusão: FORM DEFINE_CAMBIO
CHECK sy-subrc NE 0.
* << Fim da inclusão
SELECT * FROM /pws/zycbt169
UP TO 1 ROWS
INTO /pws/zycbt169
WHERE bukrs = /pws/zycbe001-bukrs
* >> Início da exclusão: FORM DEFINE_CAMBIO
AND funcionalidade = 'VIN'.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_CAMBIO
AND funcionalidade = 'VIN'
AND language = sy-langu.
* << Fim da inclusão
ENDSELECT.
CHECK sy-subrc NE 0.
IF sy-subrc = 1.
IF v_excep IS INITIAL.
MESSAGE i015 WITH text-359.
v_excep = 'X'.
EXIT.
ENDIF.
ELSEIF sy-subrc = 2.
IF v_excep IS INITIAL.
...
...
v_nrdiabase TYPE i,
v_evento(5) TYPE c.
v_nrdias = p_dtate - p_dtde.
READ TABLE itab_zycbt010 WITH KEY tptxjur = p_tptxjur.
v_nrdiabase = itab_zycbt010-nrdias.
CONCATENATE '002' /pws/zycbe001-tpcontr INTO v_evento.
SELECT SINGLE *
FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento AND
* >> Início da exclusão: FORM PROCESSA_CALCULO_JUROS
codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
READ TABLE itab_zycbt009 WITH KEY codpadr = wa_zycbt011-ctmoed.
CHECK NOT p_txj IS INITIAL.
READ TABLE itab_tcurx WITH KEY currkey = p_moeda.
IF sy-subrc <> 0.
itab_tcurx-currdec = 2.
ENDIF.
v_vlmeaux = p_vlme / ( 10 ** ( itab_tcurx-currdec - 2 ) ).
CALL FUNCTION '/PWS/ZYCB_JUROS_CALCULA'
EXPORTING
i_vlme = v_vlmeaux
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
WHERE tabela = '/PWS/ZYCBT005'.
IF /pws/zycbe001-tpcontr(01) = 'C'.
CONCATENATE '003' /pws/zycbe001-tpcontr INTO v_codeven.
ELSEIF /pws/zycbe001-tpcontr(01) = 'D'.
CONCATENATE '002' /pws/zycbe001-tpcontr INTO v_codeven.
ENDIF.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_CP
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'E'.
IF NOT wa_zycbt007-liq_trans IS INITIAL.
REFRESH: itab_zycbt012_trans.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012_trans
WHERE codeven = '023'
...
...
IF wa_zycbt007-liq_trans EQ 'R'.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
ELSE.
CONCATENATE '004' itab_selreg-codp INTO v_codeven.
ENDIF.
v_codaux = itab_selreg-lifnr.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
IF wa_zycbt007-comis = 'C'.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = 'E' AND
tpcodaux = 'C' AND
codaux = v_codaux.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
else.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT005'.
endif.
concatenate '002' /pws/zycbe001-tpcontr into v_codeven.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_001
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_001
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
if not wa_zycbt007-liq_trans is initial.
refresh: itab_zycbt012_trans.
select * from /pws/zycbt012
into table itab_zycbt012_trans
where codeven = '023'
...
...
text-004.
itab_zycbe033-bukrs = itab_zycbt005-bukrs.
perform verify_null_field using itab_zycbt005-waers
'WAERS'
text-005.
itab_zycbe033-waers = itab_zycbt005-waers.
concatenate '002' /pws/zycbe001-tpcontr into v_codeven.
select single * from /pws/zycbt011
into wa_zycbt011
where codmod = 'E' and
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
codeven = v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
codeven = v_codeven
and bukrs = itab_zycbt005-bukrs.
* << Fim da inclusão
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
call customer-function '001'
importing
v_subrc = v_retexit.
if v_retexit = 'X'.
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
itab_zycbe033-c_gsber = /pws/zycbe001-gsber.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konts TO itab_zycbe033-d_newko.
itab_zycbe033-newbs = '40'.
v_koart = 'S'.
ENDIF.
ELSEIF /pws/zycbt214-tp_conta = 'Z'.
CONCATENATE '002' v_tpcontr INTO v_codeven.
SELECT SINGLE * FROM /pws/zycbt011
WHERE codeven = v_codeven AND
* >> Início da exclusão: FORM SELECIONA_CONTA
codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA
codmod = 'E'
and bukrs = v_bukrs.
* << Fim da inclusão
itab_zycbe033-agums = /pws/zycbt011-agums.
PERFORM verify_null_field USING itab_zycbe033-agums
'AGUMS'
text-324.
itab_zycbe033-d_newko = itab_zycbt017-kunag.
itab_zycbe033-newbs = '09'.
v_koart = 'D'.
ENDIF.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
...
...
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
itab_zycbe033-budat = itab_vinc-dtbelnr.
itab_zycbe033-bldat = itab_zycbe033-budat.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
* >> Início da exclusão: FORM EXECUTA_CLEARING
gsberf = itab_vinc-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
gsberf = itab_vinc-gsberf
nrparcf = itab_vinc-nrparcf.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
REFRESH itab_zyglt321.
IF wa_zycbt089-bx_cli_vinc IS INITIAL.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
* >> Início da exclusão: FORM EXECUTA_CLEARING
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
* << Fim da exclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF /pws/zycbe005-ftxt IS INITIAL.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
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'.
...
...
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ELSEIF itab_zyglt321-cpocb = 'DTINCL'.
SELECT SINGLE dtincl FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-d_valut = itab_zycbt017-dtbl.
ELSEIF itab_zyglt321-cpocb = 'DTINCL'.
SELECT SINGLE dtincl FROM /pws/zycet001
INTO itab_zycbe033-d_valut
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-d_valut
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
* >> Início da exclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_valut = itab_zycbt005-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_valut = /pws/zycbe005-dtvincul.
* << Fim da inclusão
ENDIF.
WHEN 'ZUONR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
ELSE.
IF NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = v_codeven.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXECUTA_CLEARING
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
* << Fim da exclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF /pws/zycbe005-ftxt IS INITIAL.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-augtx = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe005-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.
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING
itab_zycbe033-xblnr = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-zfbdt = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZUORN'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
* >> Início da exclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_zuonr = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-d_valut = itab_zycbt017-fkdat.
itab_zycbe033-c_valut = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-c_valut
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq = itab_zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
where nrseq = itab_zycbt017-nrinvoic.
* << Fim da inclusão
itab_zycbe033-d_valut = itab_zycbe033-c_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
...
...
wa_zycbt089-tx_est_liq IS INITIAL OR
wa_zycbt089-tx_cl_ace_liq IS INITIAL OR
wa_zycbt089-tx_cl_cli IS INITIAL OR
wa_zycbt089-tx_desm_cli IS INITIAL OR
wa_zycbt089-tx_desm_ace IS INITIAL OR
wa_zycbt089-tx_est_liq_and IS INITIAL.
SELECT * FROM /pws/zycbt169
UP TO 1 ROWS
INTO /pws/zycbt169
WHERE bukrs = /pws/zycbe001-bukrs
* >> Início da exclusão: FORM VERIFICA_TAXAS
AND funcionalidade = 'VIN'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_TAXAS
and funcionalidade = 'VIN'
and language = sy-langu.
* << Fim da inclusão
ENDSELECT.
IF sy-subrc NE 0.
MESSAGE i061 WITH text-319 text-320 text-321.
CLEAR v_vert.
ELSE.
MOVE 'X' TO v_vert.
ENDIF.
ELSE.
MOVE 'X' TO v_vert.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
itab_zycbt005-baixa_cli = 'X'.
itab_zycbe033-d_newko = itab_zycbt017-kunag.
itab_zycbe033-newbs = '01'.
endif.
elseif /pws/zycbe001-tpcontr(1) = 'D' and
wa_zycbt089-f_cont_vinc = 'A'.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAM_002_CONT_ERRO
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAM_002_CONT_ERRO
and codmod = 'E'
and bukrs = /pws/zycbe001-bukrs.
* << Fim da inclusão
itab_zycbe033-umskz = wa_zycbt011-agums.
itab_zycbe033-d_newko = /pws/zycbe001-kunnr.
itab_zycbe033-newbs = '19'.
endif.
endform.
form preenche_itab_zycbt036 .
if not v_doc_f02 is initial.
loop at itab_zycbt069 where nrseqc = itab_zycbt002e-nrseqc
and dtvincul = itab_zycbt005-dtvincul
and nrinvoic = itab_zycbt005-nrinvoic
...
...
v_nrdias = itab_zycbt005-dtvencto - itab_zycbt005-dtvincul.
if v_nrdias > 360.
v_prazo = 'L'.
else.
v_prazo = 'S'.
endif.
clear wa_zycbt011.
select single * from /pws/zycbt011
into wa_zycbt011
where codeven = v_codeven
* >> Início da exclusão: FORM ESTORNO_LIQUIDACAO
and codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_LIQUIDACAO
and codmod = 'E'
and bukrs = itab_zycbt005-bukrs.
* << Fim da inclusão
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = 'E'.
if not wa_zycbt007-liq_trans is initial.
refresh: itab_zycbt012_trans.
select * from /pws/zycbt012
into table itab_zycbt012_trans
where codeven = '023'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA292
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA292
DESCRIÇÃO BREVE: CB - Ajuda de Pesquisa de Taxas para Contabilização
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
TAXA ' ' 'X' 1 1 ' ' /PWS/ZYGLL1418 ' '
TAXA_DESCR ' ' 'X' 2 2 ' ' /PWS/ZYGLL1419 ' '
* >> Início da inclusão:
LANGUAGE ' ' 'X' 3 3 ' ' SYLANGU ' ' SY-LANGU
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA293
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA293
DESCRIÇÃO BREVE: CB - Ajuda de Pesquisa de Tipos de Contabilização
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
TPCONTABIL ' ' 'X' 1 1 ' ' /PWS/ZYGLL1417 ' '
TPCONTABIL_DESCR ' ' ' ' 2 2 ' ' /PWS/ZYGLL1420 ' '
* >> Início da inclusão:
LANGUAGE ' ' 'X' 3 3 ' ' SYLANGU ' ' SY-LANGU
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA294
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA294
DESCRIÇÃO BREVE: CB - Aj. de Pesquisa de Regras de Taxas para Contabilização
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
TPCONTABIL ' ' 'X' 1 1 ' ' /PWS/ZYGLL1417 ' '
TPCONTABIL_DESCR ' ' ' ' 2 2 ' ' /PWS/ZYGLL1420 ' '
TAXA ' ' 'X' 3 3 ' ' /PWS/ZYGLL1418 ' '
TAXA_DESCR ' ' 'X' 4 4 ' ' /PWS/ZYGLL1419 ' '
* >> Início da inclusão:
LANGUAGE ' ' 'X' 5 5 ' ' SYLANGU ' ' SY-LANGU
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT166
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT166
DESCRIÇÃO BREVE: CB - Parametrização de Taxas para Contabilização
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCB
CARACTERÍSTICAS
CATEGORIA DA TABELA: TABELA TRANSPARENTE
CLASSE DE ENTREGA: A
( ) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT 'X' 'X'
TAXA /PWS/ZYGLL1418 'X' 'X'
* >> Início da inclusão:
LANGUAGE SYLANGU 'X' 'X'
* << Fim da inclusão
TAXA_DESCR /PWS/ZYGLL1419 ' ' ' '
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(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: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
* >> Início da inclusão:
MODIFICAR VISÃO DA TABELA /PWS/ZYCBT166
TRANSAÇÃO SE11->TABELA /PWS/ZYCBT166->MODIFICAR
UTILITÁRIOS->GERADOR DE ATUALIZAÇÃO DE TABELAS->
CLICAR NO MODIFICAR->FLEGAR TODOS, EXCETO O PRIMEIRO->AVANÇAR
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCBT167
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT167
DESCRIÇÃO BREVE: CB - Parametrização de Tipos de Contabilização
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCB
CARACTERÍSTICAS
CATEGORIA DA TABELA: TABELA TRANSPARENTE
CLASSE DE ENTREGA: A
( ) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
MANDT MANDT 'X' 'X'
TPCONTABIL /PWS/ZYGLL1417 'X' 'X'
* >> Início da inclusão:
LANGUAGE SYLANGU 'X' 'X'
* << Fim da inclusão
TPCONTABIL_DESCR /PWS/ZYGLL1419 ' ' ' '
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(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: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
* >> Início da inclusão:
MODIFICAR VISÃO DA TABELA /PWS/ZYCBT167
TRANSAÇÃO SE11->TABELA /PWS/ZYCBT167->MODIFICAR
UTILITÁRIOS->GERADOR DE ATUALIZAÇÃO DE TABELAS->
CLICAR NO MODIFICAR->FLEGAR TODOS, EXCETO O PRIMEIRO->AVANÇAR
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT168
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT168
DESCRIÇÃO BREVE: CB - Parametrização de Regras de Taxas para Contabilização
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCB
CARACTERÍSTICAS
CATEGORIA DA TABELA: TABELA TRANSPARENTE
CLASSE DE ENTREGA: A
( ) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE AJD. PESQUISA
MANDT MANDT 'X' 'X'
TPCONTABIL /PWS/ZYGLL1417 'X' 'X' /PWS/ZYCBA293
TAXA /PWS/ZYGLL1417 'X' 'X' /PWS/ZYCBA292
* >> Início da inclusão:
LANGUAGE SYLANGU 'X' 'X'
* << Fim da inclusão
TAXA_DESCR /PWS/ZYGLL1419 ' ' ' ' /PWS/ZYCBA292
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(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: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
* >> Início da inclusão:
MODIFICAR A CHAMADA DAS AJUDAS DE PEQUISA DOS CAMPOS TPCONTABIL, TAXA E TAXA_DESCR PARA CONSIDERAR,
TAMBÉM, O NOVO CAMPO LANGUAGE.
MODIFICAR VISÃO DA TABELA /PWS/ZYCBT168
TRANSAÇÃO SE11->TABELA /PWS/ZYCBT168->MODIFICAR
UTILITÁRIOS->GERADOR DE ATUALIZAÇÃO DE TABELAS->
CLICAR NO MODIFICAR->FLEGAR TODOS, EXCETO O PRIMEIRO->AVANÇAR
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT169
CRIAR TABELA TRANSPARENTE: /PWS/ZYCBT169
DESCRIÇÃO BREVE: CB - Parametrização de Dados para Contabilização
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCB
CARACTERÍSTICAS
CATEGORIA DA TABELA: TABELA TRANSPARENTE
CLASSE DE ENTREGA: A
( ) - ATUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE AJD. PESQUISA
MANDT MANDT 'X' 'X'
BUKRS BUKRS 'X' 'X'
FUNCIONALIDADE /PWS/ZYGLL1416 'X' 'X'
TPCONTR /PWS/ZYCBL015 'X' 'X'
TPCONTABIL /PWS/ZYGLL1417 'X' 'X' /PWS/ZYCBT168 /PWS/ZYCBA294
* >> Início da inclusão:
LANGUAGE SYLANGU 'X' 'X'
* << Fim da inclusão
TPDOCTO BLART ' ' ' ' T003
TAXA /PWS/ZYGLL1418 ' ' ' ' /PWS/ZYCBT168 /PWS/ZYCBA294
TAXA_DESCR /PWS/ZYGLL1419 ' ' ' ' /PWS/ZYCBA294
OPÇÕES TÉCNICAS
TIPO DE DADOS: APPL0
CATEGOR. TAMANHO: 0
(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: ______
(_) - TOTALMENTE ARMAZENADO
(_) - REGISTRAR MODIFICS. DDS. EM LOG.
* >> Início da inclusão:
MODIFICAR A CHAMADA DAS AJUDAS DE PEQUISA DOS CAMPOS TPCONTABIL, TAXA E TAXA_DESCR PARA CONSIDERAR
TAMBÉM O NOVO CAMPO LANGUAGE.
MODIFICAR CHAVES EXTERNAS(TABELA VERIFICAÇÃO) DOS CAMPOS TPCONTABIL E TAXA PARA CONSIDERAR,
TAMBÉM, O NOVO CAMPO LANGUAGE.
MODIFICAR VISÃO DA TABELA /PWS/ZYCBT169
TRANSAÇÃO SE11->TABELA /PWS/ZYCBT169->MODIFICAR
UTILITÁRIOS->GERADOR DE ATUALIZAÇÃO DE TABELAS->
CLICAR NO MODIFICAR->FLEGAR TODOS, EXCETO O PRIMEIRO->AVANÇAR
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV294
MODIFICAR VISAO : /PWS/ZYCBV294
DESCRIÇÃO BREVE: CB - Visão de Regras de Taxas para Contabilização
CLASSE DE DESENVOLVIMENTO: /PWS/ZYCB
TABELAS/CONDIÇÕES JOIN
TABELAS: CONDIÇÕES JOIN:
/PWS/ZYCBT167
/PWS/ZYCBT168 TABELA NOME CPO = TABELA NOME CPO
/PWS/ZYCBT167 MANDT = /PWS/ZYCBT168 MANDT
/PWS/ZYCBT167 TPCONTABIL = /PWS/ZYCBT168 TPCONTABIL
* >> Início da inclusão:
/PWS/ZYCBT167 LANGUAGE = /PWS/ZYCBT168 LANGUAGE
* << Fim da inclusão
CPOS. VISÃO
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
MANDT /PWS/ZYCBT168 MANDT ' '
TPCONTABIL /PWS/ZYCBT168 TPCONTABIL ' '
TPCONTABIL_DESCR /PWS/ZYCBT167 TPCONTABIL_DESCR ' '
TAXA /PWS/ZYCBT168 TAXA ' '
TAXA_DESCR /PWS/ZYCBT168 TAXA_DESCR ' '
* >> Início da inclusão:
LANGUAGE /PWS/ZYCBT168 LANGUAGE ' '
* << Fim da inclusão
CONDIÇÕES DE SELEÇÃO
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
STATUS AT.
ACESSO:
(X) - SÓ LER
(_) - LER E MODIFICAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCBGF1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABU TDDAT
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABU TVDIR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCBT166S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCBT167S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCBT168S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCBT169S