Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 15/03/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:09:36
Descrição da Nota: AJUSTES PARA TRATAMENTO AMERICA LATINA
Sintoma
Ajustes para tratamento America latina
Solução
Ajustes para tratamento America latina
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09954 Data: 15/03/2010 Hora: 09:17:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09954
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04330 - 00001 - 7.0 - 00002 - MANTER ALTERAÇÕES DE ALIQUOTA NOS TRIBUTOS DA ANA
04399 - 00002 - 7.0 - 00002 - AJUSTES NOS CALCULOS DE IMPOSTOS E NO RATEIO DOS VALORES DA ANA
04698 - 00003 - 7.0 - 00003 - EXIT PARA CALCULO DE IMPOSTOS NA ANA
05550 - 00004 - 7.0 - 00004 - CAMPO 'TOTAL USD PG' NA PASTA TRIBUTOS NOS DETALHES DO ITEM.
09392 - 00005 - 8.0 - 00001 - REMOVER OBRIGATORIEDADE DE CANAL PARA O CHILE (ANA)
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO AMERICA LATINA
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTES - ANA - AMERICA - LATINA - CAMPO - REGIÃO - PARAMETROS - TABELA
/PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCIL877
DTEL /PWS/ZYCIL878
DYNP /PWS/SAPMZYCI059 0132
DYNP /PWS/SAPMZYCI059 0133
FUGR /PWS/ZYCIGF1
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059F03
REPS /PWS/MZYCI059I01
REPS /PWS/MZYCI059O01
REPT /PWS/SAPMZYCI059
TABD /PWS/ZYCIT399
TABD /PWS/ZYCIT400
TABD /PWS/ZYCIT401
TABD /PWS/ZYCIT402
TABD /PWS/ZYCIT404
TABD /PWS/ZYCIT484
TOBJ /PWS/ZYCIT399S
TOBJ /PWS/ZYCIT400S
TOBJ /PWS/ZYCIT401S
TOBJ /PWS/ZYCIT402S
TOBJ /PWS/ZYCIT404S
TOBJ /PWS/ZYCIT484S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL877
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL877
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (18 caracteres), idioma: EN
"GL - Minimum Value"
Descrição breve incluída: (17 caracteres), idioma: PT
"GL - Valor minimo"
Descrição breve incluída: (17 caracteres), idioma: ES
"GL - Valor minimo"
Categoria de dados: Domínio
Domínio: DECV15_2
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 06
Denominador breve incluído (6 caracteres), idioma: EN
"Vl. M."
Denominador breve incluído (6 caracteres), idioma: PT
"VL.Min"
Denominador breve incluído (6 caracteres), idioma: ES
"VL.Min"
Comprimento máximo do denominador médio: 13
Denominador médio incluído (13 caracteres), idioma: EN
"Minimum Value"
Denominador médio incluído (10 caracteres), idioma: PT
"Vl. Minimo"
Denominador médio incluído (10 caracteres), idioma: ES
"Vl. Minimo"
Comprimento máximo do denominador longo: 13
Denominador longo incluído (13 caracteres), idioma: EN
"Minimum Value"
Denominador longo incluído (12 caracteres), idioma: PT
"Valor Minimo"
Denominador longo incluído (12 caracteres), idioma: ES
"Valor Minimo"
Comprimento máximo do título: 15
Título incluído (13 caracteres), idioma: EN
"Minimum Value"
Título incluído (12 caracteres), idioma: PT
"Valor Minimo"
Título incluído (12 caracteres), idioma: ES
"Valor Minimo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL878
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL878
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (18 caracteres), idioma: EN
"GL - Maximum Value"
Descrição breve incluída: (17 caracteres), idioma: PT
"GL - Valor Maximo"
Descrição breve incluída: (17 caracteres), idioma: ES
"GL - Valor Maximo"
Categoria de dados: Domínio
Domínio: DECV15_2
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 06
Denominador breve incluído (5 caracteres), idioma: EN
"M. VL"
Denominador breve incluído (6 caracteres), idioma: PT
"VL.Max"
Denominador breve incluído (6 caracteres), idioma: ES
"VL.Max"
Comprimento máximo do denominador médio: 13
Denominador médio incluído (13 caracteres), idioma: EN
"Maximum Value"
Denominador médio incluído (10 caracteres), idioma: PT
"Vl. Maximo"
Denominador médio incluído (10 caracteres), idioma: ES
"VL. Maximo"
Comprimento máximo do denominador longo: 13
Denominador longo incluído (13 caracteres), idioma: EN
"Maximum Value"
Denominador longo incluído (12 caracteres), idioma: PT
"Valor Maximo"
Denominador longo incluído (12 caracteres), idioma: ES
"Valor Maximo"
Comprimento máximo do título: 15
Título incluído (13 caracteres), idioma: EN
"Maximum Value"
Título incluído (12 caracteres), idioma: PT
"Valor Maximo"
Título incluído (12 caracteres), idioma: ES
"Valor Maximo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI059 0132
INCLUIR TEXTO "TEXT001"
Comprimento Visível 16
Linha 3
Coluna 43
Formato CHAR
Texto Taxa Cambial USD
Código função
INCLUIR CAMPO TEXTO "V_USD"
Comprimento Visível 13
Linha 3
Coluna 61
Formato DEC
Texto _____________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI059 0133
MODIFICAR TEXTO "TXTTX"
Texto Aduana
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
FORM save_data.
* >> Início da exclusão: FORM SAVE_DATA
IF /pws/zycie085-canal2 IS INITIAL AND t001-land1 NE 'CL'.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
IF /pws/zycie085-canal2 IS INITIAL .
* << Fim da inclusão
CLEAR /pws/zycie085-canal.
* >> Início da inclusão: FORM SAVE_DATA
IF t001-land1 EQ 'AR'.
* << Fim da inclusão
MESSAGE i015 WITH text-237.
EXIT.
* >> Início da inclusão: FORM SAVE_DATA
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
vigen_inicio <= p_data AND
vigen_fim >= p_data AND
land1 = t001-land1.
DESCRIBE TABLE itab_zycit174 LINES v_linhas.
IF v_linhas EQ 1.
READ TABLE itab_zycit174 INDEX 1.
p_taxa = itab_zycit174-txconver.
ELSEIF v_linhas EQ 0.
CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4) '.'
INTO v_msgd.
* >> Início da exclusão: FORM TAXA_CONVERTE
IF t001-land1 EQ 'AR'.
CONCATENATE p_waers text-022 v_msgd INTO s_msg1 SEPARATED BY space.
ELSE.
CONCATENATE p_waers text-222 v_msgd INTO s_msg1 SEPARATED BY space.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM TAXA_CONVERTE
CONCATENATE p_waers text-022 v_msgd INTO s_msg1
SEPARATED BY space.
* << Fim da inclusão
IF NOT p_data IS INITIAL.
v_msgfre = 'N'.
MESSAGE s015 WITH text-021 s_msg1.
EXIT.
ENDIF.
ELSEIF v_linhas > 1.
IF NOT p_data IS INITIAL.
MESSAGE i015 WITH text-113.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
FORM carrega_tributos.
DATA v_first TYPE i.
DATA: itab_zycit403_t TYPE /pws/zycit403 OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão: FORM CARREGA_TRIBUTOS
IF NOT /pws/zycie085-ukursfob IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
CHECK NOT /pws/zycie085-ukursfob IS INITIAL.
* << Fim da inclusão
IF itab_zycit029[] IS INITIAL.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit029 INTO TABLE itab_zycit029
WHERE codmod = 'D' AND
land1 = t001-land1.
ENDIF.
IF ok_code EQ 'REFR'.
...
...
ENDIF.
IF itab_zycit404[] IS INITIAL OR ok_code EQ 'REFR'.
IF NOT itab_it[] IS INITIAL.
SELECT nrseq ebeln ebelp doc FROM /pws/zycit082
INTO TABLE itab_zycit082
FOR ALL ENTRIES IN itab_it WHERE
ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp AND
nrseq = /pws/zycie001-nrseq.
ENDIF.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR
j_1bbranch-branch NE /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie085-bukrs
AND branch = /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM adrc
WHERE addrnumber = j_1bbranch-adrnr.
SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477
WHERE land = t001-land1.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycit404 INTO TABLE itab_zycit404
WHERE codmod = 'D' AND
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
regio IN (adrc-region, space) AND
* << Fim da inclusão
pais = t001-land1.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399
FOR ALL ENTRIES IN itab_zycit404
WHERE codigo = itab_zycit404-codigo AND
codmod = 'D' AND
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
regio IN (adrc-region, space) AND
* << Fim da inclusão
pais = t001-land1.
SELECT * FROM /pws/zycit400 INTO TABLE itab_zycit400
FOR ALL ENTRIES IN itab_zycit404
WHERE codigo = itab_zycit404-codigo AND
codmod = 'D' AND
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
regio IN (adrc-region, space) AND
* << Fim da inclusão
pais = t001-land1 AND
bukrs = /pws/zycie001-bukrs.
SELECT * FROM /pws/zycit401 INTO TABLE itab_zycit401
FOR ALL ENTRIES IN itab_zycit404
WHERE codigo = itab_zycit404-codigo AND
codmod = 'D' AND
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
regio IN (adrc-region, space) AND
* << Fim da inclusão
pais = t001-land1 AND
bukrs = /pws/zycie001-bukrs.
SELECT * FROM /pws/zycit402 INTO TABLE itab_zycit402
FOR ALL ENTRIES IN itab_zycit404
WHERE codigo = itab_zycit404-codigo AND
codmod = 'D' AND
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
regio IN (adrc-region, space) AND
* << Fim da inclusão
pais = t001-land1 AND
bukrs = /pws/zycie001-bukrs.
ENDIF.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
SORT: itab_zycit404 DESCENDING BY regio,
itab_zycit399 DESCENDING BY regio,
itab_zycit400 DESCENDING BY regio,
itab_zycit401 DESCENDING BY regio,
itab_zycit402 DESCENDING BY regio.
READ TABLE: itab_zycit404 INDEX 1,
itab_zycit399 INDEX 1,
itab_zycit400 INDEX 1,
itab_zycit401 INDEX 1,
itab_zycit402 INDEX 1.
DELETE: itab_zycit404 WHERE regio NE itab_zycit404-regio,
itab_zycit399 WHERE regio NE itab_zycit399-regio,
itab_zycit400 WHERE regio NE itab_zycit400-regio,
itab_zycit401 WHERE regio NE itab_zycit401-regio,
itab_zycit402 WHERE regio NE itab_zycit402-regio.
* << Fim da inclusão
SORT itab_zycit404 BY linha.
LOOP AT itab_zycit404 WHERE exibir NE 'X'
OR somatoria EQ space.
MOVE itab_zycit404 TO itab_zycit404_aux.
APPEND itab_zycit404_aux.
ENDLOOP.
IF itab_zycit403[] IS INITIAL.
v_first = 0.
LOOP AT itab_it.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
...
...
itab_trib-t_ivdesp = itab_trib-t_ivdesp / v_usd.
ENDIF.
ENDIF.
itab_zycit403-base =
itab_zycit403-base + itab_trib-t_ivdesp.
ENDLOOP.
IF ( itab_zycit404-codigo EQ '000415' OR
itab_zycit404-codigo EQ '000422' OR
itab_zycit404-codigo EQ '000429' ) AND
t001-land1 EQ 'AR'.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
itab_zycit403-base = itab_zycit403-base
+ itab_it-vlicms.
ELSEIF wa_zycit477-land EQ t001-land1.
READ TABLE itab_zycit020
WITH KEY codigo = 'SISC'
baseii = 'X'.
IF sy-subrc EQ 0.
* << Fim da inclusão
itab_zycit403-base = itab_zycit403-base
+ itab_it-vlicms.
ENDIF.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
ENDIF.
* << Fim da inclusão
CLEAR v_valtot.
IF itab_zycit404-codigo EQ '000010' OR
itab_zycit404-codigo EQ '000011' OR
itab_zycit404-codigo EQ 'DERECH'.
READ TABLE itab_zycit082 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.
APPEND itab_zycit403.
CLEAR itab_zycit403.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
CLEAR: itab_zycit399.
* << Fim da inclusão
READ TABLE itab_zycit399 WITH KEY
codigo = itab_zycit403-codigo.
IF sy-subrc EQ 0.
MOVE itab_zycit399-condicoes TO itab_zycit403-condicoes.
ENDIF.
READ TABLE itab_zycit400 WITH KEY
codigo = itab_zycit403-codigo
steuc = itab_it-j_1bnbm.
IF sy-subrc EQ 0.
MOVE itab_zycit400-aliquota TO itab_zycit403-advalorem.
...
...
ebeln = itab_zycit403-ebeln
ebelp = itab_zycit403-ebelp.
IF sy-subrc EQ 0.
MOVE
itab_zycit403_t-percentual TO itab_zycit403-percentual.
ELSE.
MOVE itab_zycit403-advalorem TO itab_zycit403-percentual.
ENDIF.
itab_zycit403-valorcalc =
itab_zycit403-base * itab_zycit403-percentual / 100.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
IF itab_zycit403-valorcalc < itab_zycit399-vlmin AND
NOT itab_zycit399-vlmin IS INITIAL.
itab_zycit403-valorcalc = itab_zycit399-vlmin.
ENDIF.
IF itab_zycit403-valorcalc > itab_zycit399-vlmax AND
NOT itab_zycit399-vlmax IS INITIAL.
itab_zycit403-valorcalc = itab_zycit399-vlmax.
ENDIF.
* << Fim da inclusão
itab_zycit403-valorrec = itab_zycit403-valorcalc.
APPEND itab_zycit403.
READ TABLE itab_adic INTO wa_adic
WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp
codigo = itab_zycit403-codigo.
IF sy-subrc NE 0.
MOVE: itab_it-ebeln TO wa_adic-ebeln,
itab_it-ebelp TO wa_adic-ebelp,
itab_it-j_1bnbm TO wa_adic-j_1bnbm,
...
...
ENDIF.
ENDIF.
ELSE.
SORT itab_zycit403 BY codigo.
CLEAR itab_zycit403t.
REFRESH itab_zycit403t.
LOOP AT itab_zycit403.
MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.
COLLECT itab_zycit403t.
ENDLOOP.
* >> Início da exclusão: FORM CARREGA_TRIBUTOS
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059I01
...
itab_zycit403_i-codigo EQ 'DERECH'.
READ TABLE itab_zycit082 WITH KEY ebeln = itab_zycit403_i-ebeln
ebelp = itab_zycit403_i-ebelp.
IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.
CLEAR: itab_zycit403_i-percentual, itab_zycit403_i-basered.
ENDIF.
ENDIF.
ENDLOOP.
itab_zycit403_i-valorcalc =
itab_zycit403_i-base * itab_zycit403_i-percentual / 100.
* >> Início da inclusão: MODULE CARREGA_ZYCIT403
CLEAR itab_zycit399.
READ TABLE itab_zycit399
WITH KEY codigo = itab_zycit403_i-codigo.
IF itab_zycit403_i-valorcalc < itab_zycit399-vlmin AND
NOT itab_zycit399-vlmin IS INITIAL.
itab_zycit403_i-valorcalc = itab_zycit399-vlmin.
ENDIF.
IF itab_zycit403_i-valorcalc > itab_zycit399-vlmax AND
NOT itab_zycit399-vlmax IS INITIAL.
itab_zycit403_i-valorcalc = itab_zycit399-vlmax.
ENDIF.
* << Fim da inclusão
IF /pws/zycie085-recal EQ 'X'.
itab_zycit403_i-valorrec = itab_zycit403_i-valorcalc.
ENDIF.
MODIFY itab_zycit403_i INDEX tc_trib-current_line.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059O01
...
PERFORM: load_timp,
load_cour,
load_opfu,
fill_desp,
load_compl.
/pws/zycie085-tpdi = 'N'.
/pws/zycie085-ntimp = '99'.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq = /pws/zycie100a-nrseq.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.
* >> Início da inclusão: MODULE LOAD_DATA
IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR
j_1bbranch-branch NE /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie085-bukrs
AND branch = /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM adrc
WHERE addrnumber = j_1bbranch-adrnr.
SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477
WHERE land = t001-land1.
ENDIF.
* << Fim da inclusão
ELSEIF ( sy-tcode <> '/PWS/ZYCI059_C'
AND sy-tcode <> '/PWS/ZYCI059_I' ) AND s_cnpj IS INITIAL.
PERFORM: load_init.
v_txtkey = /pws/zycie085-nrseqdi.
PERFORM read_text.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq = /pws/zycie100a-nrseq.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.
* >> Início da inclusão: MODULE LOAD_DATA
IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR
j_1bbranch-branch NE /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie085-bukrs
AND branch = /pws/zycie085-j_1bbranch.
SELECT SINGLE * FROM adrc
WHERE addrnumber = j_1bbranch-adrnr.
SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477
WHERE land = t001-land1.
ENDIF.
* << Fim da inclusão
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI059_A'.
PERFORM carrega_tributos.
ENDIF.
ENDMODULE.
...
...
/pws/zycie003-advalicms = itab_it-advalicms.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
IF sy-tcode EQ '/PWS/ZYCI059_E'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF sy-dynnr = '0132' .
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF wa_zycit477-land EQ t001-land1 AND
( screen-name = '/PWS/ZYCIE085-UKURSFOB' OR
screen-name = '/PWS/ZYCIE085-UKURSFRE' OR
screen-name = '/PWS/ZYCIE085-UKURSSEG' ).
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
IF /pws/zycie093-meiotransp EQ 'PS'.
IF screen-name = '/PWS/ZYCIE085-DTTAX' OR
screen-name = '/PWS/ZYCIE085-VLFRE' OR
screen-name = '/PWS/ZYCIE085-WAERSSEG' OR
screen-name = '/PWS/ZYCIE085-VLSEG'.
screen-input = 1.
ENDIF.
ENDIF.
IF screen-name = '/PWS/ZYCIE085-DTTAX'.
IF v_nf041 EQ 'S'.
...
...
/pws/zycie403-codigo EQ '000011' OR
/pws/zycie403-codigo EQ 'DERECH'.
READ TABLE itab_zycit082 WITH KEY ebeln = /pws/zycie403-ebeln
ebelp = /pws/zycie403-ebelp.
IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.
CLEAR: /pws/zycie403-percentual, /pws/zycie403-basered.
ENDIF.
ENDIF.
/pws/zycie403-valorcalc =
/pws/zycie403-base * /pws/zycie403-percentual / 100.
* >> Início da inclusão: MODULE CARREGA_ZYCIE403
CLEAR itab_zycit399.
READ TABLE itab_zycit399
WITH KEY codigo = /pws/zycie403-codigo.
IF /pws/zycie403-valorcalc < itab_zycit399-vlmin AND
NOT itab_zycit399-vlmin IS INITIAL.
/pws/zycie403-valorcalc = itab_zycit399-vlmin.
ENDIF.
IF /pws/zycie403-valorcalc > itab_zycit399-vlmax AND
NOT itab_zycit399-vlmax IS INITIAL.
/pws/zycie403-valorcalc = itab_zycit399-vlmax.
ENDIF.
* << Fim da inclusão
IF /pws/zycie085-recal EQ 'X'.
/pws/zycie403-valorrec = /pws/zycie403-valorcalc.
ENDIF.
READ TABLE itab_zycit029 WITH KEY codmod = 'D'
codigo = /pws/zycie403-codigo
land1 = t001-land1.
IF sy-subrc EQ 0.
MOVE itab_zycit029-descricao TO /pws/zycit029-descricao.
ENDIF.
ENDMODULE.
...
...
MODULE ajuste OUTPUT.
* >> Início da inclusão: MODULE AJUSTE
CHECK wa_zycit477-land NE t001-land1.
* << Fim da inclusão
IF /pws/zycie403-valorusdp <= 0 AND /pws/zycie403-valorusdg <= 0 AND
/pws/zycie403-valorusda <= 0.
MESSAGE i039 WITH text-235.
CLEAR: /pws/zycie100a-ajuste.
ENDIF.
IF /pws/zycie403-base <= 0.
CLEAR: /pws/zycie100a-ajuste.
MESSAGE i039 WITH text-235.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI059
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (7 caracteres)
" no dia"
Comprimento máximo: 15
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT399
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
PAIS LAND1 T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
CODMOD /PWS/ZYCIL090 CHAR 1
CODIGO /PWS/ZYCIL089 /PWS/ZYCIT029 CHAR 6
CONDICOES /PWS/ZYGLL504 CHAR 1
CREDITA XFELD CHAR 1
* >> Início da inclusão:
VLMIN /PWS/ZYCIL877 DEC 15
VLMAX /PWS/ZYCIL878 DEC 15
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT400
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
PAIS LAND1 T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
CODMOD /PWS/ZYCIL090 CHAR 1
CODIGO /PWS/ZYCIL089 /PWS/ZYCIT029 CHAR 6
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT401
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
PAIS LAND1 T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
CODMOD /PWS/ZYCIL090 CHAR 1
CODIGO /PWS/ZYCIL089 /PWS/ZYCIT029 CHAR 6
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT402
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
PAIS LAND1 T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
CODMOD /PWS/ZYCIL090 CHAR 1
CODIGO /PWS/ZYCIL089 /PWS/ZYCIT029 CHAR 6
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT404
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT T000 CLNT 3
PAIS LAND1 T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
CODMOD /PWS/ZYCIL090 CHAR 1
LINHA /PWS/ZYGLL120 NUMC 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT484
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT CLNT 3
LAND1 LAND T005 CHAR 3
* >> Início da inclusão:
REGIO REGIO CHAR 3
* << Fim da inclusão
BUKRS BUKRS T001 CHAR 4
CODMOD /PWS/ZYCIL090 CHAR 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT399S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT399
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT400S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT400
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT401S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT401
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT402S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT402
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT404S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT404
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT484S
Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT484