CE PLUS - Nota 008661
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 09/07/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:39:50
Descrição da Nota: ATO CONCESSÓRIO INTERMEDIÁRIO EXPORTAÇÃO USD
Sintoma
O programa está permitindo abrir atos concessórios com moedas diferente de USD. Apenas o Ato
concessório intermediário exportação pode ser aberto com moeda 'BRL' ou 'USD'.
Solução
Os campos referentes às moedas da importação e exportação foram fechados e preenchidos
automaticamente com a moeda americana parametrizada na tabela /PWS/ZYCBT007.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08661 Data: 09/07/2009 Hora: 14:04:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08661
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07401 - 00001 - 7.0 - 00007 - ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008
----------------------------------------------------------------------------------------------------
ATO CONCESSÓRIO INTERMEDIÁRIO EXPORTAÇÃO USD
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO INTERMEDIÁRIO EXPORTAÇÃO USD
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0204
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
EXCLUIR TEXTO "TXT02" em tbl.contr./tabstr.
EXCLUIR CAMPO TEXTO "VLTOT_BRL" em tbl.contr./tabstr.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
MODIFY SCREEN.
ELSEIF /pws/zycit321-c_comum EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-VL_SEG_T'.
IF NOT /pws/zycie245-pctseg IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
IF screen-name EQ 'V_WAERS'.
IF /pws/zycie244-tipo EQ 'F'.
IF NOT v_waers IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descrit_0203
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
ENDIF.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
ENDIF.
ENDIF.
IF wa_cols2-screen-group2 EQ 'GR'.
wa_cols2-invisible = 1.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0203
IF wa_cols2-screen-name EQ 'V_WAERS' AND
/pws/zycie244-tipo NE 'F'.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycie244-modalidade EQ 'I'.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE245-MAKTX'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
wa_cols2-screen-input = v_status2.
MODIFY tc_cimp2-cols FROM wa_cols2.
ELSE.
wa_cols2-screen-input = 0.
MODIFY tc_cimp2-cols FROM wa_cols2.
ENDIF.
...
...
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
WHEN 'V_PLT_0206'.
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0206
WHEN '/PWS/ZYCIE247-WAERS'.
wa_cols2-screen-input = 0.
MODIFY tc_mexp2-cols FROM wa_cols2.
* << Fim da inclusão
ENDCASE.
ENDLOOP.
IF /pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
LOOP AT tc_mexp2-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE247-CODMAT'.
wa_cols2-invisible = 1.
MODIFY tc_mexp2-cols FROM wa_cols2.
WHEN '/PWS/ZYCIE247-MAT_INT'.
IF /pws/zycit321-c_comum = 'X'.
...
...
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'V_TOT2_RC'.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
screen-invisible = 1.
MODIFY SCREEN.
* >> Início da exclusão: FORM CHECK_FIELD_0204
ENDIF.
ENDCASE.
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-VLTOT'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
WHEN 'VLTOT_BRL'
OR 'TXT02'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 0.
ELSE.
wa_cols2-invisible = 1.
* << Fim da exclusão
ENDIF.
ENDCASE.
* >> Início da exclusão: FORM CHECK_FIELD_0204
MODIFY tc_realizi-cols FROM wa_cols2.
* << Fim da exclusão
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-COB_CAMB'.
IF /pws/zycie244-importacao EQ '2'.
...
...
OR 'V_SLD_COMPV'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDCASE.
ENDLOOP.
IF /pws/zycie244-tipo EQ 'F'.
CLEAR: v_sfob_text, v_rfob_text, v_sfrete_text, v_rfrete_text,
v_sseg_text, v_rseg_text.
* >> Início da exclusão: FORM CHECK_FIELD_0204
CONCATENATE text-250 text-254 INTO v_rfob_text SEPARATED BY space.
CONCATENATE text-251 text-254 INTO v_rfrete_text SEPARATED BY space.
CONCATENATE text-252 text-254 INTO v_rseg_text SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
v_rfob_text = text-250.
v_rfrete_text = text-251.
v_rseg_text = text-252.
* << Fim da inclusão
v_sfob_text = v_rfob_text .
v_sfrete_text = v_rfrete_text .
v_txtseguro = v_sseg_text = v_rseg_text .
* >> Início da exclusão: FORM CHECK_FIELD_0204
CONCATENATE text-341 text-254 INTO v_txtfrete SEPARATED BY space.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
v_txtfrete = text-341.
* << Fim da inclusão
IF /pws/zycie244-cicms EQ 'X'.
...
...
itab_zycit245-maktx = /pws/zycie245-maktx .
itab_zycit245-werks = /pws/zycie244-werks .
itab_zycit245-proced = '1' .
itab_zycit245-meins = /pws/zycie245-meins .
itab_zycit245-qtd_iten = /pws/zycie245-qtd_iten .
itab_zycit245-gewei = /pws/zycie245-gewei .
itab_zycit245-perda = /pws/zycie245-perda .
itab_zycit245-perda_e = /pws/zycie245-perda_e .
itab_zycit245-brgew = /pws/zycie245-brgew .
itab_zycit245-ntgew = /pws/zycie245-ntgew .
* >> Início da exclusão: FORM FILL_ITAB_ZYCIT245_TG2
itab_zycit245-waers = /pws/zycie245-waers .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_TG2
itab_zycit245-waers = wa_zycbt007-waersa .
* << Fim da inclusão
itab_zycit245-netpr_t = /pws/zycie245-netpr_t .
itab_zycit245-vl_frete = /pws/zycie245-vl_frete .
itab_zycit245-vl_frete_t = /pws/zycie245-vl_frete_t.
itab_zycit245-pctseg = /pws/zycie245-pctseg .
itab_zycit245-vl_seg = /pws/zycie245-vl_seg .
itab_zycit245-vl_seg_t = /pws/zycie245-vl_seg_t .
itab_zycit245-j_1bnbm = /pws/zycie245-j_1bnbm .
itab_zycit245-markci = markci .
IF NOT itab_zycit245-pctseg IS INITIAL.
itab_zycit245-vl_seg_t =
...
...
itab_zycit247-nritem = v_nritem .
itab_zycit247-codmat = /pws/zycie247-codmat .
itab_zycit247-tolling = /pws/zycie247-tolling .
itab_zycit247-werks = /pws/zycie244-werks .
itab_zycit247-stlan = /pws/zycie247-stlan .
itab_zycit247-stlnr = /pws/zycie247-stlnr .
itab_zycit247-stlal = /pws/zycie247-stlal .
itab_zycit247-meins = /pws/zycie247-meins .
itab_zycit247-qtd_iten = /pws/zycie247-qtd_iten.
itab_zycit247-qtd_ncm = /pws/zycie247-qtd_ncm .
* >> Início da exclusão: FORM FILL_ITAB_ZYCIT247_TG2
itab_zycit247-waers = /pws/zycie247-waers .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT247_TG2
itab_zycit247-waers = wa_zycbt007-waersa .
* << Fim da inclusão
itab_zycit247-netpr_t = /pws/zycie247-netpr_t .
itab_zycit247-vl_frete = /pws/zycie247-vl_frete.
itab_zycit247-pctcomis = /pws/zycie247-pctcomis.
itab_zycit247-vl_scamb = /pws/zycie247-vl_scamb.
itab_zycit247-vl_comis = /pws/zycie247-vl_comis.
itab_zycit247-gewei = /pws/zycie247-gewei .
itab_zycit247-brgew = /pws/zycie247-brgew .
itab_zycit247-ntgew = /pws/zycie247-ntgew .
itab_zycit247-j_1bnbm = /pws/zycie247-j_1bnbm .
itab_zycit247-maktx = v_descr_0206 .
...
...
itab_zycit245-ntgew = /pws/zycie245-ntgew .
itab_zycit245-waers = /pws/zycie245-waers .
itab_zycit245-netpr_t = /pws/zycie245-netpr_t .
itab_zycit245-vl_frete = /pws/zycie245-vl_frete .
itab_zycit245-vl_frete_t = /pws/zycie245-vl_frete_t.
itab_zycit245-pctseg = /pws/zycie245-pctseg .
itab_zycit245-vl_seg = /pws/zycie245-vl_seg .
itab_zycit245-vl_seg_t = /pws/zycie245-vl_seg_t .
itab_zycit245-j_1bnbm = /pws/zycie245-j_1bnbm .
itab_zycit245-markci = markci .
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_TF2
IF /pws/zycie244-tipo NE 'F' AND /pws/zycie244-modalidade NE 'I'.
itab_zycit245-waers = wa_zycbt007-waersa.
ENDIF.
* << Fim da inclusão
IF itab_zycit245-um_ncm = itab_zycit245-meins.
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
ENDIF.
IF NOT itab_zycit245-qtd_ncm IS INITIAL.
itab_zycit245-qtd_perda = itab_zycit245-qtd_ncm *
( itab_zycit245-perda / 100 ).
itab_zycit245-qtd_perda_e = itab_zycit245-qtd_ncm *
( itab_zycit245-perda_e / 100 ).
ENDIF.
IF itab_zycit245-netpr_t NE 0 AND itab_zycit245-qtd_tot NE 0.
...
...
SELECT * FROM ckmlcr INTO TABLE it_ckmlcr
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersa.
SORT it_ckmlcr BY bdatj poper ASCENDING.
DESCRIBE TABLE it_ckmlcr LINES v_ilinhas.
READ TABLE it_ckmlcr INDEX v_ilinhas.
IF sy-subrc EQ 0.
itab_zycit245-netpr = it_ckmlcr-stprs / it_ckmlcr-peinh.
itab_zycit245-waers = wa_zycbt007-waersa.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
ELSE.
itab_zycit245-waers = wa_zycbt007-waersa.
* << Fim da inclusão
ENDIF.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_zycit245-werks.
IF sy-subrc EQ 0.
MOVE itab_marc-steuc TO itab_zycit245-j_1bnbm.
ELSE.
LOOP AT itab_centros2.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_centros2-werks.
IF sy-subrc EQ 0.
...
...
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersa.
SORT it_ckmlcr BY bdatj poper ASCENDING.
DESCRIBE TABLE it_ckmlcr LINES v_ilinhas.
READ TABLE it_ckmlcr INDEX v_ilinhas.
IF sy-subrc EQ 0.
itab_zycit245-netpr = it_ckmlcr-stprs / it_ckmlcr-peinh.
itab_zycit245-waers = wa_zycbt007-waersa.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
ELSE.
itab_zycit245-waers = wa_zycbt007-waersa.
* << Fim da inclusão
ENDIF.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_zycit245-werks.
IF sy-subrc EQ 0.
MOVE itab_marc-steuc TO itab_zycit245-j_1bnbm.
ELSE.
LOOP AT itab_centros2.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_centros2-werks.
IF sy-subrc EQ 0.
...
...
MESSAGE w061 WITH text-009 /pws/zycie247-mat_int text-010 text-011
.
EXIT.
ENDIF.
itab_zycit247-nrseqd = /pws/zycie244-nrseqd .
PERFORM select_exp_max_item_number2 CHANGING v_nritem.
itab_zycit247-nritem = v_nritem .
itab_zycit247-mat_int = /pws/zycie247-mat_int .
itab_zycit247-meins = /pws/zycit368-meins .
itab_zycit247-qtd_iten = /pws/zycie247-qtd_iten.
* >> Início da exclusão: FORM FILL_ITAB_ZYCIT247_INTER
itab_zycit247-waers = /pws/zycie247-waers .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT247_INTER
itab_zycit247-waers = wa_zycbt007-waersa .
* << Fim da inclusão
itab_zycit247-netpr = /pws/zycie247-netpr .
itab_zycit247-netpr_t = /pws/zycie247-netpr_t .
itab_zycit247-vl_frete = /pws/zycie247-vl_frete.
itab_zycit247-pctcomis = /pws/zycie247-pctcomis.
itab_zycit247-vl_comis = /pws/zycie247-vl_comis.
itab_zycit247-gewei = /pws/zycie247-gewei .
itab_zycit247-brgew = /pws/zycie247-brgew .
itab_zycit247-ntgew = /pws/zycie247-ntgew .
itab_zycit247-j_1bnbm = /pws/zycit368-steuc .
itab_zycit247-markme = markme .
...