CE PLUS - Nota 007401
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 03/10/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:30:31
Descrição da Nota: ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008
Sintoma
Adequação a portaria n° 21 de 24.09.2008
Solução
Adequação a portaria n° 21 de 24.09.2008
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07401 Data: 03/10/2008 Hora: 11:53:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07401
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02353 - 00001 - 6.0 - 00025 - CORREÇÃO DA FUNÇÃO PARA ABERTURA DO ATO NO SISCOMEX
06382 - 00002 - 7.0 - 00005 - REAPURAÇÃO DOS SALDOS, USAGEM, ITEM
07112 - 00003 - 7.0 - 00006 - COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO
07305 - 00004 - 7.0 - 00006 - PREENCHER BASE DE IMPOSTOS E ALIQUOTA.
----------------------------------------------------------------------------------------------------
ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - VERDE - AMARELO - ENTRADA - NOTA - FISCAL
PORTARIA - 21 - /PWS/SAPMZYCI040 - /PWS/SAPMZYCI052
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0200
DYNP /PWS/SAPMZYCI040 0201
DYNP /PWS/SAPMZYCI040 0236
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI052F01
REPS /PWS/MZYCI052TOP
REPT /PWS/SAPMZYCI040
REPT /PWS/SAPMZYCI052
TABD /PWS/ZYCIE244
TABD /PWS/ZYCIT244
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0201
INCLUIR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE244-VERD_AMA"
Comprimento Visível 1
Linha 21
Coluna 3
Formato CHAR
Linhas mínimas 1
Texto _
Código função VERDE_AM
INCLUIR CHTXT "/PWS/ZYCIE244-VERD_AMA"
Comprimento Visível 13
Linha 21
Coluna 5
Formato CHAR
Texto Verde Amarelo
Código função
INCLUIR CAMPO TEXTO "LINHA"
Comprimento Visível 1
Linha 20
Coluna 35
Formato CHAR
Texto _
EXCLUIR CUCTR "NAO_APAGA_"
MODIFICAR FRAME "V_QUAD4_0201"
Altura 9
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0236
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0236
PROCESS BEFORE OUTPUT.
* >> Início da exclusão:
MODULE STATUS_0236.
* << Fim da exclusão
* >> Início da inclusão:
MODULE: set_screen2,
STATUS_0236.
.
* << Fim da inclusão
call subscreen ss_sub5_2 including modul dynpronr11a.
PROCESS AFTER INPUT.
call subscreen ss_sub5_2.
MODULE USER_COMMAND_0236.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
IF screen-name EQ 'FS_GRAPH' AND v_tcode2 EQ '/PWS/ZYCI040_C'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'CLI' AND
/pws/zycie244-tipo NE 'N'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0200
IF screen-name EQ '/PWS/ZYCIE244-VERD_AMA'.
IF /pws/zycie244-modalidade EQ 'I'.
screen-invisible = 1.
CLEAR: /pws/zycie244-verd_ama.
ELSE.
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
IF screen-name EQ 'FS_MERC2'.
IF /pws/zycie244-tipo EQ 'F' OR
* >> Início da inclusão: FORM CHECK_FIELD_0200
/pws/zycie244-verd_ama NE 'X' OR
* << Fim da inclusão
/pws/zycie244-modalidade EQ 'I'.
screen-invisible = '1'.
MODIFY SCREEN.
ELSE.
screen-invisible = '0'.
...
...
IF screen-group2 EQ 'FOR'.
IF /pws/zycie244-tipo NE 'F'.
screen-invisible = '1'.
MODIFY SCREEN.
ELSE.
IF NOT /pws/zycie244-nratoc IS INITIAL.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
screen-invisible = '0'.
* >> Início da inclusão: FORM CHECK_FIELD_0201
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE244-VERD_AMA'.
IF /pws/zycie244-modalidade EQ 'I' OR
/pws/zycie244-tipo EQ 'F'.
screen-invisible = 1.
CLEAR: /pws/zycie244-verd_ama.
ELSE.
IF NOT /pws/zycie244-nratoc IS INITIAL.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
screen-invisible = 0.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
* >> Início da inclusão: FORM CHECK_FIELD_0201
ENDIF.
IF screen-name EQ 'LINHA'.
IF /pws/zycie244-modalidade EQ 'I'.
screen-invisible = 0.
ELSE.
screen-invisible = 1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0201
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
DATA v_valor TYPE p DECIMALS 2.
IF NOT /pws/zycie244-nrforecast IS INITIAL.
MOVE /pws/zycie244-variacaocb TO v_tcambial.
SHIFT v_tcambial LEFT DELETING LEADING space.
CONCATENATE v_tcambial '%' INTO v_tcambial.
REPLACE '.' WITH ',' INTO v_tcambial.
ELSE.
IF NOT /pws/zycie244-t_vexp IS INITIAL.
...
...
DELETE itab_zycit245.
EXIT.
ELSE.
SELECT SINGLE kaln1 FROM mbew INTO v_kaln1
WHERE matnr = itab_zycit245-codcomp
AND bwkey = /pws/zycie244-werks.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM t001a INTO wat001a
WHERE bukrs EQ /pws/zycie244-bukrs.
CLEAR it_ckmlcr. REFRESH it_ckmlcr.
* >> Início da exclusão: FORM TRATA_ENTER_0203
IF pressed_tab_2a = 'FS_MERC2'.
SELECT * FROM ckmlcr INTO TABLE it_ckmlcr
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersb.
ELSE.
* << Fim da exclusão
SELECT * FROM ckmlcr INTO TABLE it_ckmlcr
WHERE kalnr = v_kaln1
AND waers = wa_zycbt007-waersa.
* >> Início da exclusão: FORM TRATA_ENTER_0203
ENDIF.
* << Fim da exclusão
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.
v_netpr_t = it_ckmlcr-stprs / it_ckmlcr-peinh.
* >> Início da exclusão: FORM TRATA_ENTER_0203
IF pressed_tab_2a = 'FS_MERC2'.
v_waers_t = wa_zycbt007-waersb.
ELSE.
* << Fim da exclusão
v_waers_t = wa_zycbt007-waersa.
* >> Início da exclusão: FORM TRATA_ENTER_0203
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
MOVE v_meins TO itab_zycit245-meins.
IF itab_zycit245-pctseg IS INITIAL.
MOVE v_segpct TO itab_zycit245-pctseg.
ENDIF.
...
...
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
WHEN '/PWS/ZYCIE246-QTD_COMPV'
OR 'V_SLD_COMPV'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDCASE.
ENDLOOP.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'F' OR
pressed_tab_2a EQ 'FS_MERC2'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'F'.
* << Fim da inclusão
CLEAR: v_sfob_text, v_rfob_text, v_sfrete_text, v_rfrete_text,
v_sseg_text, v_rseg_text.
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.
v_sfob_text = v_rfob_text .
v_sfrete_text = v_rfrete_text .
v_txtseguro = v_sseg_text = v_rseg_text .
CONCATENATE text-341 text-254 INTO v_txtfrete SEPARATED BY space.
IF /pws/zycie244-cicms EQ 'X'.
...
...
OTHERS = 2.
IF v_ver_alt EQ '1'.
CLEAR: v_ver_alt.
v_erro2 = 'S'.
pressed_tab_2a = 'FS_ADITIVOS'.
dynpronr2a = '0212'.
PERFORM verifica_alteracoes.
EXIT.
ELSE.
CLEAR: v_ver_alt.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
IF /pws/zycie244-verd_ama IS INITIAL.
DELETE itab_zycit245 WHERE nritem > 90000.
* << Fim da inclusão
ENDIF.
CLEAR it_log_erro. REFRESH it_log_erro.
IF /pws/zycie244-tipo EQ 'G'.
READ TABLE itab_zycit245 INDEX 1.
IF sy-subrc NE 0 OR itab_zycit245-j_1bnbm IS INITIAL.
...
...
FORM apura_totais_0201.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
DATA: wa_zycit245 TYPE /pws/zycit245,
wa_zycit246 TYPE /pws/zycit246.
* << Fim da inclusão
...
...
CLEAR:
/pws/zycie245-netpr_t ,
/pws/zycie245-vl_seg_t ,
/pws/zycie245-vl_frete_t ,
/pws/zycie247-netpr_t ,
/pws/zycie247-vl_comis_t ,
v_variacao_plan2 ,
/pws/zycie246-vltot ,
/pws/zycie246-vlfrete ,
/pws/zycie246-vlseg ,
/pws/zycie248-vlfob ,
/pws/zycie248-vlcomis ,
v_variacao_real2 .
* >> Início da exclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit245t INTO itab_zycit245
WHERE nritem < 90000. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0201
CLEAR: wa_zycit245, wa_zycit246.
LOOP AT itab_zycit245t INTO itab_zycit245.
* << Fim da inclusão
/pws/zycie245-netpr_t = /pws/zycie245-netpr_t +
itab_zycit245-netpr_t.
/pws/zycie245-vl_seg_t = /pws/zycie245-vl_seg_t +
itab_zycit245-vl_seg_t.
/pws/zycie245-vl_frete_t = /pws/zycie245-vl_frete_t +
itab_zycit245-vl_frete_t.
* >> Início da exclusão: FORM APURA_TOTAIS_0201
/pws/zycie244-t_segimp = /pws/zycie245-vl_seg_t.
/pws/zycie244-t_freimp = /pws/zycie245-vl_frete_t.
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0201
IF itab_zycit245-nritem < 90000.
wa_zycit245-netpr_t = wa_zycit245-netpr_t +
itab_zycit245-netpr_t.
wa_zycit245-vl_seg_t = wa_zycit245-vl_seg_t +
itab_zycit245-vl_seg_t.
wa_zycit245-vl_frete_t = wa_zycit245-vl_frete_t +
itab_zycit245-vl_frete_t.
ENDIF.
/pws/zycie244-t_segimp = wa_zycit245-vl_seg_t.
/pws/zycie244-t_freimp = wa_zycit245-vl_frete_t.
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycit247.
/pws/zycie247-netpr_t = /pws/zycie247-netpr_t +
itab_zycit247-netpr_t.
/pws/zycie247-vl_comis_t = /pws/zycie247-vl_comis_t +
itab_zycit247-vl_comis_t.
ENDLOOP.
IF /pws/zycie244-importacao EQ 'X'.
IF NOT /pws/zycie247-netpr_t IS INITIAL
OR NOT /pws/zycie247-vl_comis_t IS INITIAL.
...
...
v_variacao_plan = ( /pws/zycie245-netpr_t +
/pws/zycie245-vl_seg_t +
/pws/zycie245-vl_frete_t ) /
( /pws/zycie247-netpr_t -
/pws/zycie247-vl_comis_t +
/pws/zycie245-netpr_t ) * 100 .
ENDIF.
ENDIF.
MOVE v_variacao_plan TO v_variacao_plan2.
CONCATENATE v_variacao_plan2 '%' INTO v_variacao_plan2.
* >> Início da exclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit246_final
WHERE nritem < 90000. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit246_final.
* << Fim da inclusão
/pws/zycie246-vltot = /pws/zycie246-vltot +
itab_zycit246_final-vltot.
/pws/zycie246-vlfrete = /pws/zycie246-vlfrete +
itab_zycit246_final-vlfrete.
/pws/zycie246-vlseg = /pws/zycie246-vlseg +
* >> Início da inclusão: FORM APURA_TOTAIS_0201
itab_zycit246_final-vlseg.
IF itab_zycit246_final-nritem < 90000.
wa_zycit246-vltot = wa_zycit246-vltot +
itab_zycit246_final-vltot.
wa_zycit246-vlfrete = wa_zycit246-vlfrete +
itab_zycit246_final-vlfrete.
wa_zycit246-vlseg = wa_zycit246-vlseg +
* << Fim da inclusão
itab_zycit246_final-vlseg.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
ENDIF.
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycit248_final.
/pws/zycie248-vlfob = /pws/zycie248-vlfob +
itab_zycit248_final-vlfob.
/pws/zycie248-vlcomis = /pws/zycie248-vlcomis +
itab_zycit248_final-vlcomis.
...
...
v_variacao_plan = ( /pws/zycie246-vltot +
/pws/zycie246-vlseg +
/pws/zycie246-vlfrete ) /
( /pws/zycie248-vlfob -
/pws/zycie248-vlcomis +
/pws/zycie246-vltot ) * 100 .
ENDIF.
ENDIF.
MOVE v_variacao_plan TO v_variacao_real2.
CONCATENATE v_variacao_real2 '%' INTO v_variacao_real2.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
/pws/zycie246 = wa_zycit246.
/pws/zycie245 = wa_zycit245.
* << Fim da inclusão
ENDFORM.
FORM apura_totais_0203.
DATA: v_conv_t LIKE /pws/zycit245-qtd_iten.
CLEAR: /pws/zycie244-t_compfob, /pws/zycie244-t_compqtd,
/pws/zycie244-s_compfob, /pws/zycie244-s_compqtd.
LOOP AT itab_zycit245.
v_tabix2 = sy-tabix.
IF /pws/zycie244-modalidade EQ 'S'.
itab_zycit245-ntgewt = itab_zycit245-ntgew * itab_zycit245-qtd_tot.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
WHEN 'BTN2'.
PERFORM execute_button_btn2.
WHEN 'AREA'.
PERFORM execute_button_area.
WHEN 'BTN3'.
PERFORM trata_button_btn3.
WHEN 'CEN_EI'.
PERFORM centros_ei.
WHEN 'SITUAC'.
PERFORM trata_button_situac2.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF /pws/zycie244-status EQ 'D' AND
/pws/zycie244-verd_ama EQ 'X' AND
/pws/zycie244-dtdi IS INITIAL.
/pws/zycie244-dtdi = sy-datlo.
ENDIF.
* << Fim da inclusão
WHEN 'ENCER'.
CALL SCREEN 0248 STARTING AT 5 5
ENDING AT 60 5 .
IF v_nratoc EQ /pws/zycie244-nratoc.
IF /pws/zycit321-siscotrans IS INITIAL OR
/pws/zycie244-modalidade EQ 'I' OR
/pws/zycie244-tipo EQ 'F'.
PERFORM trata_button_encer2.
ELSE.
READ TABLE itab_zycit248_save WITH KEY siscomex = space.
...
...
ENDIF.
WHEN 'T_ADITIVO'.
SELECT SINGLE uname cpf FROM /pws/zycet184
INTO (/pws/zycet184-uname, /pws/zycet184-cpf)
WHERE uname EQ sy-uname.
IF sy-subrc EQ 0.
PERFORM trans_aditivo.
ELSE.
MESSAGE i015 WITH text-293 text-294.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'VERDE_AM'.
LOOP AT itab_zycit246 WHERE nritem > 90000. "#EC PORTABLE
MESSAGE i015 WITH text-343 text-344.
/pws/zycie244-verd_ama = 'X'.
EXIT.
ENDLOOP.
* << Fim da inclusão
ENDCASE.
CLEAR ok_code2.
ENDMODULE.
MODULE user_command_0200_exit INPUT.
CASE ok_code2.
WHEN 'ABORT'.
PERFORM check_button_abort2.
ENDCASE.
ENDMODULE.
MODULE trata_forecast INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-group2 EQ 'GRP'.
screen-invisible = 1.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN2
WHEN '0236'.
LOOP AT SCREEN.
IF screen-name EQ 'FS_TRANSF'.
IF /pws/zycie244-verd_ama IS INITIAL.
screen-invisible = 0.
ELSE.
screen-invisible = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDCASE.
CASE /pws/zycie244-tipo.
WHEN 'F'.
txt_245_meins = text-283.
txt_245_qtd_tot = text-285.
txt_206_meins = text-283.
txt_206_qtd_iten = text-285.
WHEN OTHERS.
txt_245_meins = text-282.
txt_245_qtd_tot = text-284.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
* >> Início da inclusão:
DATA: linha TYPE c.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
ENDIF.
IF v_tcode EQ '/PWS/ZYCI052_C' OR
v_tcode EQ '/PWS/ZYCI052_A'.
REFRESH: itab_j_1bnfstx, itab_j_1baj.
SELECT * FROM j_1baj INTO TABLE itab_j_1baj. "#EC CI_NOWHERE
SELECT * FROM j_1bnfstx
INTO TABLE itab_j_1bnfstx
FOR ALL ENTRIES IN itab_zycit330
WHERE docnum EQ itab_zycit330-docnum
AND itmnum EQ itab_zycit330-buzei.
* >> Início da inclusão: FORM SALVAR_DADOS
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007 WHERE
bukrs = j_1bnfdoc-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt007 . "#EC CI_NOWHERE
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT itab_zycit279_d[] IS INITIAL.
LOOP AT itab_zycit279_d.
READ TABLE itab_zycit330_des
WITH KEY docnum = itab_zycit279_d-docnum
buzei = itab_zycit279_d-buzei.
READ TABLE itab_zycit245_des
WITH KEY nrseqd = itab_zycit330_des-nrseqd
nritem = itab_zycit330_des-nritem.
itab_zycit245_des-vlvinc = itab_zycit245_des-vlvinc -
itab_zycit279_d-vltot.
...
...
READ TABLE itab_j_1bnflin WITH KEY
itmnum = itab_zycit330-buzei.
/pws/zycit279-vltot =
itab_zycit330-menge * itab_zycit330-netpr.
/pws/zycit279-ntgew = itab_zycit330-menge * itab_zycit330-ntgew.
PERFORM converte_um_ncm USING /pws/zycit279-matnr
CHANGING itab_zycit330-meins
itab_j_1bnflin-werks
itab_zycit330-menge.
/pws/zycit279-valor = /pws/zycit279-vltot / itab_zycit330-menge.
* >> Início da inclusão: FORM SALVAR_DADOS
IF /pws/zycie329-tipo IS INITIAL.
PERFORM converter_moeda USING j_1bnflin-netfre
itab_zycit330-waerk
/pws/zycbt007-waersa
/pws/zycie329-docdat
CHANGING /pws/zycit279-vlfrete.
PERFORM converter_moeda USING j_1bnflin-netins
itab_zycit330-waerk
/pws/zycbt007-waersa
/pws/zycie329-docdat
CHANGING /pws/zycit279-vlseg.
ELSE.
/pws/zycit279-vlfrete = j_1bnflin-netfre.
/pws/zycit279-vlseg = j_1bnflin-netins.
ENDIF.
* << Fim da inclusão
MOVE: itab_zycit330-ebeln TO /pws/zycit279-ebeln ,
itab_zycit330-ebelp TO /pws/zycit279-ebelp ,
itab_zycit330-docnum TO /pws/zycit279-docnum ,
itab_zycit330-nrseqd TO /pws/zycit279-nrseqd ,
itab_zycit330-menge TO /pws/zycit279-menge ,
itab_zycit330-menge TO /pws/zycit279-slqtde ,
itab_zycit330-meins TO /pws/zycit279-meins ,
itab_j_1bnflin-werks TO /pws/zycit279-werks ,
itab_zycit330-buzei TO /pws/zycit279-buzei ,
itab_zycit330-lote TO /pws/zycit279-lote ,
...
...
mjahr TYPE mseg-mjahr,
zeile TYPE mseg-zeile,
charg TYPE mseg-charg.
DATA: END OF itab_mseg.
SELECT SINGLE * FROM j_1bnfdoc WHERE docnum = /pws/zycie329-docnum.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD j_1bnfdoc-bukrs
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-291 j_1bnfdoc-bukrs.
* >> Início da inclusão: FORM CARREGA_DADOS
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007 WHERE bukrs = j_1bnfdoc-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt007 . "#EC CI_NOWHERE
IF sy-subrc NE 0.
MESSAGE i015 WITH text-030 j_1bnfdoc-bukrs.
* << Fim da inclusão
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS
ENDIF.
* << Fim da inclusão
MOVE: j_1bnfdoc-nfnum TO /pws/zycie329-nfnum ,
j_1bnfdoc-series TO /pws/zycie329-series ,
j_1bnfdoc-subser TO /pws/zycie329-subser ,
j_1bnfdoc-bukrs TO /pws/zycie329-bukrs ,
j_1bnfdoc-branch TO /pws/zycie329-j_1bbranch,
...
...
ekpo-ntgew TO itab_zycit330-ntgew,
/pws/zycie329-waerk TO itab_zycit330-waerk.
MOVE: itab_rseg-buzei TO itab_zycit330-buzei,
itab_rseg-ebeln TO itab_zycit330-ebeln,
itab_rseg-ebelp TO itab_zycit330-ebelp.
MOVE itab_rseg-matnr TO itab_zycit330-codcomp.
IF /pws/zycit321-lote NE space.
REFRESH: itab_mseg.
CLEAR: itab_mseg.
SELECT mblnr mjahr zeile charg FROM mseg
* >> Início da exclusão: FORM CARREGA_DADOS
INTO TABLE itab_mseg "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
INTO TABLE itab_mseg "#EC CI_NOFIELD
* << Fim da inclusão
WHERE ebeln = itab_rseg-ebeln
AND ebelp = itab_rseg-ebelp.
SORT itab_mseg DESCENDING BY mblnr.
READ TABLE itab_mseg INDEX 1.
IF /pws/zycit321-lote EQ '1'.
itab_zycit330-lote = itab_mseg-charg.
ELSE.
SELECT SINGLE licha FROM chvw INTO itab_zycit330-lote
WHERE mblnr = itab_mseg-mblnr
AND mjahr = itab_mseg-mjahr
...
...
WHERE docnum EQ /pws/zycie329-docnum
AND refitm EQ itab_zycit330-buzei.
itab_zycit330-buzei = j_1bnflin-itmnum.
AUTHORITY-CHECK OBJECT 'C_PPBD'
ID 'AKTTYP' FIELD 'V'
ID 'WERKS' FIELD j_1bnflin-werks.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-289 j_1bnflin-werks.
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS
IF /pws/zycie329-tipo IS INITIAL.
PERFORM converter_moeda USING j_1bnflin-netwr
itab_zycit330-waerk
/pws/zycbt007-waersa
/pws/zycie329-docdat
CHANGING itab_zycit330-netwr.
/pws/zycie329-waerk = itab_zycit330-waerk =
/pws/zycbt007-waersa.
ELSE.
* << Fim da inclusão
itab_zycit330-netwr = j_1bnflin-netwr.
* >> Início da inclusão: FORM CARREGA_DADOS
ENDIF.
* << Fim da inclusão
IF /pws/zycie329-cicms IS INITIAL.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ELSE.
SELECT SINGLE j_1bnfstx~taxval
FROM ( j_1bnfstx INNER JOIN j_1baj
ON j_1bnfstx~taxtyp = j_1baj~taxtyp )
* >> Início da exclusão: FORM CARREGA_DADOS
INTO v_othbas "#EC CI_BUFFJOIN
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
INTO v_othbas "#EC CI_BUFFJOIN
* << Fim da inclusão
WHERE j_1bnfstx~docnum EQ j_1bnflin-docnum
AND j_1bnfstx~itmnum EQ j_1bnflin-itmnum
AND j_1baj~taxgrp EQ 'ICMS'.
itab_zycit330-netwr = itab_zycit330-netwr + v_othbas.
itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.
ENDIF.
APPEND itab_zycit330.
ENDLOOP.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052TOP
...
* >> Início da inclusão:
TABLES /pws/zycbt007.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 343
Texto: (36 caracteres)
"Já existe(m) iten(s) realizado(s) na"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 344
Texto: (16 caracteres)
"pasta Nacionais."
Comprimento máximo: 20
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI052
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (44 caracteres)
"Falta parametrização de moeda para a Empresa"
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE244
Nome campo Elem.dados Tab.verif. N CtDt Comp.
CODAGENCIA /PWS/ZYCEL269 /PWS/ZYCIT172 CHAR 4
DIGITO /PWS/ZYCIL363 /PWS/ZYCIT172 CHAR 1
CODAGRUP /PWS/ZYCIL613 /PWS/ZYCIT395 CHAR 3
VERD_AMA CHAR1 CHAR 1
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT244
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
,,,
CODAGENCIA /PWS/ZYCEL269 CHAR 4
DIGITO /PWS/ZYCIL363 CHAR 1
CODAGRUP /PWS/ZYCIL613 /PWS/ZYCIT475 CHAR 3
VERD_AMA CHAR1 CHAR 1