CE PLUS - Nota 003055
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 07/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:39:39
Descrição da Nota: ERRO NOS VALORES DO DÉBITO EM CONTA DA E NOS VALORES DA DA
Sintoma
DA - 1. Débito em Conta - Na contabilização do Débito, o sistema multiplica o valor da despesa (Tx
Siscomex) pelo número de itens vinculados à DA. 2. O valor do II e IPI suspensos aparecem como a
Recolher na pasta Carga 2 e Pagamentos. 3. As despesas inclusas na pasta Despesas não aparecem no
relatório de Rateio.
Solução
ajustes nos cálculos da DA.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03055 Data: 07/02/2007 Hora: 16:34:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03055
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00152
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01376 - 00001 - 6.0 - 00023 - NO DÉBITO EM CONTA , AO LIBERAR, NÃO ESTÁ MOVENDO A REFERENCIA
----------------------------------------------------------------------------------------------------
ERRO NOS VALORES DO DÉBITO EM CONTA DA E NOS VALORES DA DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DÉBITO EM CONTA DA - ERRO VALORES DA - CÁLCULOS DE VALORES
TAXA SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RATEIO_CUSTO_DA
REPS /PWS/MZYCI070F01
REPS /PWS/MZYCI070F03
REPS /PWS/MZYCI072F01
REPS /PWS/MZYCI076F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO_DA
...
IF v_linha = v_index.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
IF NOT itab_zycit443a[] IS INITIAL AND
( /pws/zycit000-cod_sisc EQ itab_despesa-tpdesp AND
NOT /pws/zycit000-flag_txsisc IS INITIAL ) .
READ TABLE itab_zycit443a WITH KEY
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
ebeln = itab_despesa-ebeln
ebelp = itab_despesa-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT v_tot_desp IS INITIAL.
itab_zycit036_aux-vlreal = itab_despesa-netpr - v_tot_desp
.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ELSE.
IF itab_zycit039-divabs EQ 'X'.
itab_zycit036_aux-vlreal = itab_despesa-netpr -
v_tot_desp.
itab_zycit036_aux-waers_real = itab_despesa-waers.
...
...
ELSE.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
IF NOT itab_zycit443a[] IS INITIAL AND
( /pws/zycit000-cod_sisc EQ itab_despesa-tpdesp AND
NOT /pws/zycit000-flag_txsisc IS INITIAL ).
READ TABLE itab_zycit443a WITH KEY
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
ebeln = itab_despesa-ebeln
ebelp = itab_despesa-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycit036_aux-vlreal = itab_zycit443a-vl_sisco.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ELSE.
IF itab_zycit039-divabs EQ 'X'.
itab_zycit036_aux-vlreal = itab_despesa-netpr / v_linha.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSEIF itab_zycit039-peso EQ 'X'.
IF NOT v_tpeso IS INITIAL.
...
...
regio = space AND
codigo = /pws/zycit019-codigo AND
baseicms EQ 'X' AND
land1 EQ t001-land1.
ENDIF.
IF NOT itab_zycit443-qtd_da IS INITIAL.
itab_zycit036_aux-vlreal = ( itab_zycit443-netpr *
itab_zycit443-qtd_da / v_tot ) *
itab_despesa-netpr.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
itab_zycit036_aux-vlreal = ( itab_zycit443-netpr *
itab_zycit443-qtd_da / v_tot ) *
itab_despesa-netpr.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO_DA
itab_zycit036_aux-vlreal = itab_despesa-netpr -
v_tot_desp.
* << Fim da inclusão
ENDIF.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ENDIF.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
ENDIF.
MOVE itab_it TO wa_it.
MOVE-CORRESPONDING: itab_it TO /pws/zycie443a,
itab_it TO /pws/zycie003.
v_idx = v_ip.
PERFORM: load_ifre USING 'T',
load_itax USING 'T'.
PERFORM calcula_impostos USING 'T'.
IF v_dit = 'N'.
PERFORM fill_it450b.
* >> Início da exclusão: MODULE LOAD_DATA_BLITEM
CLEAR: itab_zycit451, /pws/zycie442-ntimp.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_BLITEM
CLEAR: itab_zycit451.
/pws/zycie442-ntimp = /pws/zycie442-codreg.
* << Fim da inclusão
READ TABLE itab_zycit451
WITH KEY adicao = itab_it-adicao.
s_advl = /pws/zycie443a-vlantid.
s_adbs = /pws/zycie443a-baseantid.
PERFORM: load_cncm USING wa_it-j_1bnbm,
load_mval USING /pws/zycie443a-codmat,
load_inco USING /pws/zycie442-inco1,
load_itwa USING /pws/zycie443a-waersbem,
load_regt USING /pws/zycie443a-codregtri
/pws/zycie442-ntimp
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
textline1 = text-024
titel = text-025
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
PERFORM save_data.
ELSEIF v_resposta EQ 'N' .
IF v_tcode EQ '/PWS/ZYCI070_C'.
PERFORM delete_text.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
LEAVE TO SCREEN 0.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
LEAVE TO SCREEN '0010'.
* << Fim da inclusão
ELSEIF v_resposta EQ 'A'.
EXIT.
ENDIF.
ELSEIF v_changed EQ '2'.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'N'
diagnosetext1 = text-044
textline1 = text-045
titel = text-025
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F01
...
ENDIF.
ENDIF.
IF NOT /pws/zycie443a-percreduz IS INITIAL.
t_iirec = t_iirec *
( ( 100 - /pws/zycie443a-percreduz ) / 100 ).
a_iidevi = a_iicalc.
ELSE.
a_iidevi = t_iirec.
ENDIF.
itab_it-vlii = t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF /pws/zycie443a-codregtri CA '3'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF /pws/zycie443a-codregtri CA '35'.
* << Fim da inclusão
CLEAR: t_iirec.
ENDIF.
s_wiireco = s_wiireco + t_iirec.
s_wiicalc = s_wiicalc + a_iicalc.
s_wiiredu = s_wiiredu + a_iiredu.
s_wiidevi = s_wiidevi + a_iidevi.
ENDIF.
ENDIF.
ENDCASE.
itab_it-baseii = t_iibas.
...
...
a_ipidevi = ( ( /pws/zycie443a-reduzidaipi / 100 ) * t_ipibas ).
ENDIF.
ENDIF.
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
IF v_dit = 'N'.
IF
'26' NA /pws/zycie443a-codregtri.
t_ipirec = a_ipidevi.
IF p_tipo = 'A'.
* >> Início da exclusão: FORM LOAD_IIPI
IF ' 1' NA /pws/zycie443a-codregtriipi .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF ' 15' NA /pws/zycie443a-codregtriipi .
* << Fim da inclusão
ELSE.
CLEAR t_ipirec.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LOAD_IIPI
IF ' 1' NA /pws/zycie443a-codregtriipi .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF ' 15' NA /pws/zycie443a-codregtriipi .
* << Fim da inclusão
s_wipireco = s_wipireco + t_ipirec.
ELSE.
CLEAR t_ipirec.
ENDIF.
s_wipidevi = s_wipidevi + a_ipidevi.
ENDIF.
ENDIF.
ELSE.
IF ' 35' NA /pws/zycie443a-codregtri AND
/pws/zycie442-ntimp NE '09' AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F02
...
MODIFY itab_it INDEX sy-tabix TRANSPORTING
codregtri codfunleg acordo aladi.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM load_regt USING p_codreg p_natureza p_imposto
CHANGING p_text.
CLEAR p_text.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
* >> Início da exclusão: FORM LOAD_REGT
WHERE ntimp = p_natureza AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_REGT
where
* << Fim da inclusão
tipo = p_imposto AND
codreg = p_codreg.
IF sy-subrc NE 0 AND NOT /pws/zycie443a-codregtri IS INITIAL
AND NOT /pws/zycie443a-codregtriipi IS INITIAL.
MESSAGE e015 WITH text-152.
ENDIF.
IF p_imposto = '1'.
READ TABLE itab_zycit107 WITH KEY land1 = /pws/zycie080-landa.
IF sy-subrc EQ 0.
IF NOT itab_zycit107-aladi IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI072F01
...
APPEND it_zycit466_aux.
ENDIF.
ENDLOOP.
IF /pws/zycie465-dtincl EQ ' ' OR
/pws/zycie465-dtincl EQ '00000000' OR
/pws/zycie465-dtincl IS INITIAL.
/pws/zycie465-dtincl = sy-datum.
ENDIF.
ENDFORM.
FORM select_tables.
* >> Início da inclusão: FORM SELECT_TABLES
SELECT *
INTO TABLE it_despesa
FROM /pws/zycit046
WHERE bukrs EQ /pws/zycie465-bukrs
AND j_1bbranch EQ /pws/zycie465-j_1bbranch.
* << Fim da inclusão
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie465-bukrs.
SELECT *
FROM /pws/zycit019
INTO TABLE itab_zycit019
WHERE land1 EQ t001-land1.
IF NOT /pws/zycie465-dtincl IS INITIAL AND
NOT /pws/zycie465-vlmi IS INITIAL.
IF NOT itab_zycit019[] IS INITIAL.
SELECT * FROM /pws/zycit466
INTO TABLE it_zycit466
FOR ALL ENTRIES IN itab_zycit019
WHERE tpdesp = itab_zycit019-tpdesp
AND nradto = /pws/zycie465-nradto.
* >> Início da inclusão: FORM SELECT_TABLES
ENDIF.
IF NOT it_despesa[] IS INITIAL.
SELECT *
APPENDING TABLE it_zycit466
FROM /pws/zycit466
FOR ALL ENTRIES IN it_despesa
WHERE tpdesp EQ it_despesa-tpdesp
AND nradto EQ /pws/zycie465-nradto.
* << Fim da inclusão
ENDIF.
ENDIF.
SELECT * FROM /pws/zycit443 INTO TABLE itab_zycit443
WHERE nrseqda = /pws/zycie465-nrseq.
CLEAR itab_zycit049.
FREE itab_zycit049.
SELECT nrseq
tpdesp
descr
waers
vldp
vlreal
INTO TABLE itab_zycit049
FROM /pws/zycit049
WHERE nrseq EQ /pws/zycie465-nrseq.
* >> Início da inclusão: FORM SELECT_TABLES
DELETE itab_zycit049 WHERE vldp = 0.
LOOP AT it_despesa.
CLEAR itab_zycit049.
READ TABLE itab_zycit049 WITH KEY tpdesp = it_despesa-tpdesp.
IF NOT sy-subrc IS INITIAL.
itab_zycit049-nrseq = /pws/zycie465-nrseq.
itab_zycit049-tpdesp = it_despesa-tpdesp.
itab_zycit049-descr = it_despesa-descr.
APPEND itab_zycit049.
CLEAR itab_zycit049.
ENDIF.
ENDLOOP.
SORT itab_zycit049 BY nrseq tpdesp.
SORT it_despesa BY bukrs j_1bbranch tpdesp.
LOOP AT itab_zycit049.
v_tabix = sy-tabix.
CLEAR it_despesa.
READ TABLE it_despesa WITH KEY tpdesp = itab_zycit049-tpdesp.
IF NOT sy-subrc IS INITIAL.
DELETE itab_zycit049 INDEX v_tabix.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDFORM.
FORM atualiza_dados.
PERFORM select_despachante.
ENDFORM.
FORM atualiza_tela.
CLEAR v_vldp.
LOOP AT it_zycit466_aux.
IF NOT it_zycit466_aux-vldp IS INITIAL.
MOVE: it_zycit466_aux-dtvencto TO /pws/zycie466-dtvencto,
it_zycit466_aux-tpdesp TO /pws/zycie466-tpdesp,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI076F01
...
MOVE:
it_item-nrseq TO itab_item_funcao-nrseqda,
it_item-ebeln TO itab_item_funcao-ebeln,
it_item-ebelp TO itab_item_funcao-ebelp,
it_item-qtditem TO itab_item_funcao-qtd_iten,
it_item-werks TO itab_item_funcao-werks.
READ TABLE it_zycit443 WITH KEY nrseqda = it_item-nrseq
ebeln = it_item-ebeln
ebelp = it_item-ebelp.
MOVE: it_zycit443-netpr TO itab_item_funcao-netpr,
* >> Início da exclusão: FORM VERIFICA_ITENS_EMBARQUE
it_zycit443-ntgew TO itab_item_funcao-ntgew.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS_EMBARQUE
it_zycit443-ntgew TO itab_item_funcao-ntgew,
it_zycit443-qtd_da TO itab_item_funcao-qtd_da.
* << Fim da inclusão
APPEND itab_item_funcao.
ENDLOOP.
SORT it_imposto BY tpdesp.
LOOP AT it_imposto.
IF NOT itab_desp_funcao IS INITIAL.
IF v_ant EQ it_imposto-tpdesp.
itab_desp_funcao-netpr = v_vldp + it_imposto-vldp.
ELSE.
CLEAR v_vldp.
ENDIF.
...
...
it_contabil-waers TO itab_desp_funcao-waers,
it_contabil-aufnr TO itab_desp_funcao-aufnr,
it_contabil-ps_psp_pnr TO itab_desp_funcao-ps_psp_pnr.
IF it_contabil-tpdesp = /pws/zycit000-cod_sisc.
MOVE it_contabil-tpdesp TO itab_desp_funcao-tpdesp.
ELSE.
CLEAR itab_desp_funcao-tpdesp.
ENDIF.
READ TABLE itab_codigo WITH KEY tpdesp = it_contabil-tpdesp.
MOVE: itab_codigo-codigo TO itab_desp_funcao-codigo.
* >> Início da inclusão: FORM VERIFICA_ITENS_EMBARQUE
IF itab_desp_funcao-tpdesp IS INITIAL.
itab_desp_funcao-tpdesp = it_contabil-tpdesp.
ENDIF.
* << Fim da inclusão
COLLECT itab_desp_funcao.
ENDLOOP.
CALL FUNCTION '/PWS/ZYCI_RATEIO_CUSTO_DA'
EXPORTING
v_programa = v_programa
v_nrseqori = /pws/zycie465-nradto
v_visualiza = v_visualiza
v_bukrs = /pws/zycie465-bukrs
IMPORTING
v_resposta = v_resposta
v_erro = v_erro
TABLES
itab_zycit036 = itab_zycit036
itab_despesa = itab_desp_funcao
* >> Início da exclusão: FORM VERIFICA_ITENS_EMBARQUE
itab_zycit003 = itab_item_funcao.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ITENS_EMBARQUE
itab_zycit443 = itab_item_funcao.
* << Fim da inclusão
IF v_erro EQ '1'.
CLEAR v_resposta.
MESSAGE i015 WITH text-088.
ENDIF.
CLEAR v_total.
DESCRIBE TABLE it_item LINES v_lines.
FREE it_despesa.
LOOP AT it_contabil.
CLEAR v_tdepsp.
CLEAR: v_desp_acum,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
exit.
endloop.
endform.
form load_regt using p_codreg p_natureza p_imposto
changing p_text.
clear p_text.
select single descricao from /pws/zycit167 into p_text
where ntimp = p_natureza and
tipo = p_imposto and
codreg = p_codreg.
* >> Início da inclusão: FORM LOAD_REGT
IF sy-subrc NE 0.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE ntimp = p_natureza AND
tipo = p_imposto AND
codreg = p_codreg.
* << Fim da inclusão
if sy-subrc ne 0 and not /pws/zycie100a-codregtri is initial
and not /pws/zycie100a-codregtriipi is initial.
message e015 with text-152.
* >> Início da inclusão: FORM LOAD_REGT
ENDIF.
* << Fim da inclusão
endif.
if p_imposto = '1'.
read table itab_zycit107 with key land1 = /pws/zycie080-landa.
if sy-subrc eq 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas na Estrutura /PWS/ZYCIE100A
*Foram feitas as seguintes conexões de ajuda de pesquisa:
*Nome de campo CODREGTRI
*Nome ajuda pesq. /PWS/ZYCIA167
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODREG /PWS/ZYCIE100A CODREGTRI
TIPO '1'
BRANCH /PWS/ZYCIE085 J_1BBRANCH
BUKRS /PWS/ZYCIE085 BUKRS
NTIMP /PWS/ZYCIE085 CODREG
*Nome de campo CODREGTRIICMS
*Nome ajuda pesq. /PWS/ZYCIA167
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODREG /PWS/ZYCIE100A CODREGTRIICMS
TIPO '4'
BRANCH /PWS/ZYCIE085 J_1BBRANCH
BUKRS /PWS/ZYCIE085 BUKRS
NTIMP /PWS/ZYCIE085 CODREG
*Nome de campo CODREGTRIIPI
*Nome ajuda pesq. /PWS/ZYCIA167
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODREG /PWS/ZYCIE100A CODREGTRIIPI
TIPO '2'
BRANCH /PWS/ZYCIE085 J_1BBRANCH
BUKRS /PWS/ZYCIE085 BUKRS
NTIMP /PWS/ZYCIE085 CODREG
* Nome de campo CODREGTRIPISCOFI
* Nome ajuda pesq. /PWS/ZYCIA167
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODREG /PWS/ZYCIE100A CODREGTRIPISCOFI
TIPO '3'
BRANCH /PWS/ZYCIE085 J_1BBRANCH
BUKRS /PWS/ZYCIE085 BUKRS
NTIMP /PWS/ZYCIE085 CODREG
----------------------------------------------------------------------------------------------------
Modificações efetuadas na Ajuda de pesquisa /PWS/ZYCIA167
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA167
DESCRIÇÃO BREVE: CI - Regime Tributário
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCIT167
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Exibição de valores imediata
HOT KEY: ____
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
CODREG X 3 3 /PWS/ZYCEL265 X
TIPO X 5 5 /PWS/ZYCIL310 X
DESCRICAO X 6 6 /PWS/ZYCEL263
----------------------------------------------------------------------------------------------------
Modificações efetuadas na Visão /PWS/ZYCIV101
MODIFICAR VISAO : /PWS/ZYCIV101
DESCRIÇÃO BREVE: CI - Regime tributario
TABELAS/CONDIÇÕES JOIN
TABELAS: CONDIÇÕES JOIN:
/PWS/ZYCIT167 TABELA NOME CPO = TABELA NOME CPO
CPOS. VISÃO
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
MANDT /PWS/ZYCIT167 MANDT
CODREG /PWS/ZYCIT167 CODREG
NTIMP /PWS/ZYCIT167 NTIMP
TIPO /PWS/ZYCIT167 TIPO
DESCRICAO /PWS/ZYCIT167 DESCRICAO
REGIO /PWS/ZYCIT167 REGIO
CONDIÇÕES DE SELEÇÃO
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
STATUS AT.
ACESSO:
(X) - SÓ LER