CE PLUS - Nota 001691
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 07/07/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:51:17
Descrição da Nota: AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE DRAWBACK
Sintoma
Ajustes referentes ao rastreio de lote efetuados nos programas de Drawback
Solução
Ajustes referentes ao rastreio de lote efetuados nos programas de Drawback
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01691 Data: 07/07/2006 Hora: 11:28:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01691
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00121
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00846 - 00001 - 6.0 - 00022 - CONVERSÃO DAS UNIDADES DE EXPORTAÇÃO E A SELEÇÃO DAS DI'S DA COMP
01159 - 00002 - 6.0 - 00023 - DESENVOLVIMENTO PARA TRANSMISSÃO DOS DADOS DO ATO PARA O SISCOMEX
01212 - 00003 - 6.0 - 00023 - DUMP AO SALVAR O ATO ENCERRADO COM ADITIVOS E CORREÇÃO DE TRANSMI
01373 - 00004 - 6.0 - 00023 - DESENVOLVIMENTO DA APROPRIAÇÃO/DESAP. COMUM/INTERMEDIARIO POR NCM
01396 - 00005 - 6.0 - 00023 - TRAZER TODOS OS INSUMOS DA LISTA TÉCNICA PARA A COMPOSIÇÃO.
01436 - 00006 - 6.0 - 00023 - INSERÇÃO DE MENSAGEM QUANDO NÃO HOUVER MATERIAL SUFICIENTE PARA I
01484 - 00007 - 6.0 - 00023 - TRANSFERENCIA DE SALDO DE INSUMOS ALTERNATIVOS E ATO COMUM POR NC
01536 - 00008 - 6.0 - 00023 - AJUSTE NA NACIONALIZAÇÃO DE ATOS COMUM POR NCM E NO CALCULO DE TR
01548 - 00009 - 6.0 - 00023 - AJUSTE NO CONTROLE DE SALDO DOS INSUMOS DURANTE A APROPRIAÇÃO.
01679 - 00010 - 6.0 - 00024 - AJUSTE NO TRATAMENTO DE LOTE NO RECEBIMENTO
----------------------------------------------------------------------------------------------------
AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO - COMPOSIÇÃO - APROPRIAÇÃO - DESAPROPRIAÇÃO
/PWS/SAPMZYCI040 - /PWS/SAPMZYCI064 - /PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0204
DYNP /PWS/SAPMZYCI040 0207
DYNP /PWS/SAPMZYCI040 0241
DYNP /PWS/SAPMZYCI040 0242
DYNP /PWS/SAPMZYCI052 0100
DYNP /PWS/SAPMZYCI064 0304
DYNP /PWS/SAPMZYCI064 0305
DYNP /PWS/SAPMZYCI064 0310
DYNP /PWS/SAPMZYCI064 0311
DYNP /PWS/ZYCIR254 0001
DYNP /PWS/ZYCIR254 0002
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI052F01
REPS /PWS/MZYCI052O01
REPS /PWS/MZYCI052TOP
REPS /PWS/MZYCI063I01
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064I01
REPS /PWS/MZYCI064O01
REPS /PWS/MZYCI064TOP3
REPS /PWS/MZYCI064X01
REPS /PWS/ZYCIR254
REPS /PWS/ZYCIR254F01
REPS /PWS/ZYCIR254O01
REPS /PWS/ZYCIR254X01
REPT /PWS/SAPMZYCI040
REPT /PWS/ZYCIR254
TABD /PWS/ZYCIE246
TABD /PWS/ZYCIE246C
TABD /PWS/ZYCIE246D
TABD /PWS/ZYCIE248
TABD /PWS/ZYCIE248C
TABD /PWS/ZYCIE259
TABD /PWS/ZYCIE259C
TABD /PWS/ZYCIE259D
TABD /PWS/ZYCIE260
TABD /PWS/ZYCIE260C
TABD /PWS/ZYCIE260D
TABD /PWS/ZYCIE261
TABD /PWS/ZYCIE261C
TABD /PWS/ZYCIE330
TABD /PWS/ZYCIT246
TABD /PWS/ZYCIT248
TABD /PWS/ZYCIT259
TABD /PWS/ZYCIT260
TABD /PWS/ZYCIT261
TABD /PWS/ZYCIT282
TABD /PWS/ZYCIT330
TABL /PWS/ZYCIT468
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE246-LOTE
I/O 1 6 15 15 1 CHAR X Off
NEX LOT
Elem.TC, Col.fixa TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0207
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE248-LOTE
I/O 1 7 10 10 1 CHAR X Off
NEX CHA
Elem.TC, Col.fixa TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0241
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE246-LOTE
I/O 1 8 15 15 1 CHAR X Off
LOT
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0242
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE248-LOTE
I/O 1 4 10 10 1 CHAR X Off
CHA
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI052 0100
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE330-LOTE
I/O 1 4 15 15 1 CHAR X Off
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0304
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE259C-LOTE
I/O 1 10 10 10 1 CHAR X Off
NEX CHA
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0305
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE259D-LOTE
I/O 2 15 10 10 1 CHAR X Off
NEX CHA
Dest, Alinh.à dir.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0310
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE260C-LOTE
I/O 1 7 15 15 1 CHAR X Off
NEX LOT
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI064 0311
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
V_VAR_CAMB3
Texto 15 6 16 16 1 CHAR
V_VAR_CAMB3
I/O 15 27 16 16 1 CHAR Off
Dest, Alinh.à dir.
V_VAR_CAMBT3
Texto 15 48 16 16 1 CHAR
V_VAR_CAMBT3
I/O 15 69 16 16 1 CHAR Off
Dest, Alinh.à dir.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0001
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- V_LOTE_E
I/O 1 9 10 10 1 CHAR Off
LOT
Elem.TC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/ZYCIR254 0002
* Inserir os campos:
- Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- V_LOTE_E
I/O 1 12 10 10 1 CHAR Off
LOT
Elem.TC
- V_LOTE_I
I/O 1 9 15 15 1 CHAR Off
LOT
Elem.TC
- /PWS/ZYCIE282-QTD_IORG
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
tc_mexp2-lines = tc_mexp2-lines + 7.
ENDFORM.
FORM check_field_0204.
LOOP AT tc_realizi-cols INTO wa_cols2.
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycit321-lote EQ space.
IF wa_cols2-screen-group2 EQ 'LOT'.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-group2 EQ 'LOT'.
wa_cols2-invisible = 0.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ENDIF.
* << Fim da inclusão
IF wa_cols2-screen-group1 NE 'NEX'.
wa_cols2-screen-input = v_status2.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE246-QTD_COMPV'
...
...
OR screen-name EQ '/PWS/ZYCIE244-S_REALQTD'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF screen-group2 EQ 'NCM'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
LOOP AT tc_realizi-cols INTO wa_cols2.
CASE wa_cols2-screen-name.
WHEN '/PWS/ZYCIE246-MATNR'.
* >> Início da exclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_FIELD_0204
IF /pws/zycie244-tipo EQ 'G' OR /pws/zycie244-tipo EQ 'F'
OR /pws/zycit321-c_comum EQ 'X'.
* << Fim da inclusão
wa_cols2-invisible = 0.
MODIFY tc_realizi-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
...
...
ENDIF.
PERFORM move_drawback_type2.
LOOP AT itab_zycit279_ap.
READ TABLE itab_zycit246_final WITH KEY
ebeln = itab_zycit279_ap-ebeln
* >> Início da exclusão: FORM TRATA_BUTTON_SAVE2
ebelp = itab_zycit279_ap-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
ebelp = itab_zycit279_ap-ebelp
lote = itab_zycit279_ap-lote.
* << Fim da inclusão
IF sy-subrc EQ 0.
/pws/zycie279-matnr = itab_zycit279_ap-matnr.
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit279_ap.
itab_zycit279_ap-meins = itab_zycit246_final-um_ncm.
itab_zycit279_ap-matnr = /pws/zycie279-matnr.
...
...
MOVE: itab_zycit245-qtd_tot TO /pws/zycie245c-qtd_iten.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final WHERE matnr EQ itab_resumo_ap-matnr.
CHECK itab_zycit246_final-qtd_ncm >
itab_zycit246_final-qtd_compv.
* >> Início da inclusão: FORM TRATA_TAB_NACION
READ TABLE itab_zycit246 WITH KEY ebeln = itab_zycit246_final-ebeln
ebelp = itab_zycit246_final-ebelp
nrseq = itab_zycit246_final-nrseq.
IF sy-subrc EQ 0.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
* >> Início da inclusão: FORM TRATA_TAB_NACION
CLEAR: itab_zycit246-i_indice ,
itab_zycit246-i_txmoeda ,
itab_zycit246-i_txii ,
itab_zycit246-pis ,
itab_zycit246-multapis ,
itab_zycit246-jurospis ,
itab_zycit246-cofins ,
itab_zycit246-multacof ,
itab_zycit246-juroscof ,
itab_zycit246-afrmm ,
itab_zycit246-multaafrmm ,
itab_zycit246-jurosafrmm ,
itab_zycit246-multaii ,
itab_zycit246-multaipi ,
itab_zycit246-multaicms ,
itab_zycit246-jurosii ,
itab_zycit246-jurosipi ,
itab_zycit246-jurosicms ,
itab_zycit246-perda ,
* << Fim da inclusão
* >> Início da exclusão: FORM TRATA_TAB_NACION
APPEND itab_zycit246.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_NACION
itab_zycit246-i_txipi ,
itab_zycit246-i_vlipi ,
itab_zycit246-i_txicms ,
itab_zycit246-i_tottrib ,
itab_zycit246-i_multaii ,
itab_zycit246-i_multaipi ,
itab_zycit246-i_txselic ,
itab_zycit246-i_jurosii ,
itab_zycit246-i_jurosipi ,
itab_zycit246-i_jurosmor ,
itab_zycit246-i_multaicms ,
itab_zycit246-netpr .
ELSE.
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
ENDIF.
CLEAR: itab_zycit246-lote.
COLLECT itab_zycit246.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM check_button_first_0210.
MOVE: 1 TO v_indicatu2.
LOOP AT itab_zycit245 WHERE markci = 'X'.
...
...
to_line = 1.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_button_ente2.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
DATA: BEGIN OF itab_lote_e OCCURS 0.
DATA: vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
charg TYPE lips-charg.
DATA: END OF itab_lote_e.
* << Fim da inclusão
CLEAR v_otheruser.
IF /pws/zycie244-nrseqd IS INITIAL.
MESSAGE s015 WITH text-033.
EXIT.
ENDIF.
...
...
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SORT itab_zycit245 BY nritem codcomp ASCENDING.
SORT itab_zycit246_final BY nritem codcomp ASCENDING.
SORT itab_zycit247 BY nritem codmat ASCENDING.
SORT itab_zycit248_final BY nritem codmat ASCENDING.
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
IF /pws/zycit321-lote NE space.
IF NOT itab_zycit248_final[] IS INITIAL.
SELECT vbeln posnr charg FROM lips INTO TABLE itab_lote_e
FOR ALL ENTRIES IN itab_zycit248_final
WHERE vbeln EQ itab_zycit248_final-vbeln_vl
AND posnr EQ itab_zycit248_final-posnl.
LOOP AT itab_zycit248_final.
READ TABLE itab_lote_e WITH KEY
vbeln = itab_zycit248_final-vbeln_vl
posnr = itab_zycit248_final-posnl.
itab_zycit248_final-lote = itab_lote_e-charg.
MODIFY itab_zycit248_final.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycit243 INTO TABLE itab_centros2
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SELECT * FROM /pws/zycit277 INTO TABLE itab_vencto2
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SORT itab_centros2 BY werks ASCENDING.
...
...
FREE custom_container2.
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_itab_zycit246_final.
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCIT246_FINAL
IF /pws/zycit321-lote IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zycit246_final WITH KEY nritem = itab_zycit246-nritem
codcomp = itab_zycit246-codcomp
ebeln = itab_zycit246-ebeln
ebelp = itab_zycit246-ebelp
nrseq = itab_zycit246-nrseq.
...
...
WHERE nritem = itab_zycit246-nritem
AND codcomp = itab_zycit246-codcomp
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND nrseq = itab_zycit246-nrseq.
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCIT246_FINAL
ENDIF.
ELSE.
PERFORM trata_nacion_lote.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_importacoes.
DATA: v_found(1) TYPE c.
REFRESH itab_zycit246.
...
...
AND esgotado EQ space.
itab_zycit279_ap_aux = itab_zycit279_ap.
IF NOT itab_zycit279_ap_aux-qtd_transf IS INITIAL.
v_saldo_transf = v_saldo_transf -
itab_zycit279_ap_aux-qtd_transf.
* >> Início da exclusão: FORM MONTA_TRANSF
itab_zycit279_ap_aux-mark = 'X'.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM MONTA_TRANSF
APPEND itab_zycit279_ap_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANSF
CLEAR itab_zycit279_ap_aux-lote.
COLLECT itab_zycit279_ap_aux.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM MONTA_TRANSF
itab_zycit279_ap_aux-mark = 'X'.
MODIFY itab_zycit279_ap_aux TRANSPORTING mark
WHERE qtd_transf > 0.
* << Fim da inclusão
ELSE.
READ TABLE itab_zycit245 INDEX 1.
/pws/zycie245 = itab_zycit245.
/pws/zycie245-qtd_transf = itab_resumo_ap-qtd_di *
( /pws/zycie245-transf / 100 ).
...
...
AND esgotado EQ space.
itab_zycit279_ap_aux = itab_zycit279_ap.
IF NOT itab_zycit279_ap_aux-qtd_transf IS INITIAL.
v_saldo_transf = v_saldo_transf -
itab_zycit279_ap_aux-qtd_transf.
* >> Início da exclusão: FORM MONTA_TRANSF
itab_zycit279_ap_aux-mark = 'X'.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM MONTA_TRANSF
APPEND itab_zycit279_ap_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANSF
CLEAR itab_zycit279_ap_aux-lote.
COLLECT itab_zycit279_ap_aux.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM MONTA_TRANSF
itab_zycit279_ap_aux-mark = 'X'.
MODIFY itab_zycit279_ap_aux TRANSPORTING mark
WHERE qtd_transf > 0.
* << Fim da inclusão
ENDIF.
/pws/zycie245-codcomp = itab_resumo_ap-matnr.
/pws/zycie245-qtd_ncm = itab_resumo_ap-qtd_di.
ENDFORM.
FORM transf_saldo USING p_status_tf.
...
...
itab_zycit279_ap_s-qtd_perda, itab_zycit279_ap_s-qtd_transf,
itab_zycit279_ap_s-transf.
APPEND itab_zycit279_ap_s.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM SALVA_APONT
FORM
salva_apont.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_APONT
FORM salva_apont.
* << Fim da inclusão
DATA: itab_zycit245_ap_s LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit245_e LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit245_s LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit279_e LIKE /pws/zycit279 OCCURS 0 WITH HEADER LINE.
IF NOT itab_zycit279_ap[] IS INITIAL.
...
...
LOOP AT itab_zycit279_ap.
CLEAR: itab_zycit279_e.
READ TABLE itab_zycit279_e WITH KEY
nrseq = itab_zycit279_ap-nrseq
ebeln = itab_zycit279_ap-ebeln
* >> Início da inclusão: FORM SALVA_APONT
lote = itab_zycit279_ap-lote
* << Fim da inclusão
ebelp = itab_zycit279_ap-ebelp.
IF itab_zycit279_ap-nrseqd_d IS INITIAL AND
itab_zycit279_e-nrseqd_d IS INITIAL.
CONTINUE.
ENDIF.
...
...
ENDIF.
ENDIF.
READ TABLE itab_zycit246_save WITH KEY
nrseq = itab_zycit279_ap-nrseq
ebeln = itab_zycit279_ap-ebeln
* >> Início da inclusão: FORM SALVA_APONT
lote = itab_zycit279_ap-lote
* << Fim da inclusão
ebelp = itab_zycit279_ap-ebelp.
IF NOT itab_zycit279_e-nrseqd_d IS INITIAL.
READ TABLE itab_zycit245_e WITH KEY
nrseqd = itab_zycit279_e-nrseqd_d.
IF itab_zycit245_e-tipo NE 'G'.
...
...
ENDIF.
APPEND itab_zycit246_final.
ENDLOOP.
ENDFORM.
FORM monta_inf_exp.
* >> Início da inclusão: FORM MONTA_INF_EXP
IF /pws/zycit321-lote EQ space.
* << Fim da inclusão
REFRESH: itab_zycit282,
itab_zycit246_inf.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE nrseqexp = itab_zycit248-nrseq
AND vbeln_va = itab_zycit248-vbeln_va
...
...
( itab_zycit246_inf-ntgew / itab_zycit246_inf-qtd_ncm ) *
itab_zycit282-qtd_mimp.
itab_zycit246_inf-qtd_ncm = itab_zycit282-qtd_mimp.
APPEND itab_zycit246_inf.
ENDIF.
* >> Início da inclusão: FORM MONTA_INF_EXP
ENDLOOP.
ELSE.
REFRESH: itab_zycit468,
itab_zycit246_inf.
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468
WHERE nrseqexp = itab_zycit248-nrseq
AND vbeln_va = itab_zycit248-vbeln_va
AND aupos = itab_zycit248-aupos
AND vbeln_vl = itab_zycit248-vbeln_vl
AND posnl = itab_zycit248-posnl.
LOOP AT itab_zycit468.
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit468-nrseqimp
ebeln = itab_zycit468-ebeln
ebelp = itab_zycit468-ebelp
lote = itab_zycit468-lote_i
docnum = itab_zycit468-docnumimp.
IF sy-subrc EQ 0.
itab_zycit246_inf = itab_zycit246_final.
itab_zycit246_inf-ntgew =
( itab_zycit246_inf-ntgew / itab_zycit246_inf-qtd_ncm ) *
itab_zycit468-qtd_mimp.
itab_zycit246_inf-qtd_ncm = itab_zycit468-qtd_mimp.
APPEND itab_zycit246_inf.
ENDIF.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM MONTA_INF_EXP
ENDIF.
* << Fim da inclusão
CALL SCREEN 0241 STARTING AT 5 5.
ENDFORM.
FORM monta_inf_imp.
REFRESH: itab_zycit282,
* >> Início da exclusão: FORM MONTA_INF_IMP
itab_zycit248_inf.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_INF_IMP
itab_zycit248_inf,
itab_zycit468.
* << Fim da inclusão
IF /pws/zycie244-tipo EQ 'F'.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND docnumimp = itab_zycit246-docnum
AND buzei = itab_zycit246-itmnum.
* >> Início da inclusão: FORM MONTA_INF_IMP
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468
WHERE ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND docnumimp = itab_zycit246-docnum
AND buzei = itab_zycit246-itmnum
AND lote_i = itab_zycit246-lote.
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282
WHERE nrseqimp = itab_zycit246-nrseq
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp.
* >> Início da inclusão: FORM MONTA_INF_IMP
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468
WHERE nrseqimp = itab_zycit246-nrseq
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND lote_i = itab_zycit246-lote.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit282.
* >> Início da inclusão: FORM MONTA_INF_IMP
IF /pws/zycit321-lote NE space.
READ TABLE itab_zycit468 WITH KEY
nrseqexp = itab_zycit282-nrseqexp
vbeln_va = itab_zycit282-vbeln_va
aupos = itab_zycit282-aupos
vbeln_vl = itab_zycit282-vbeln_vl
posnl = itab_zycit282-posnl
nrseqimp = itab_zycit246-nrseq
ebeln = itab_zycit246-ebeln
ebelp = itab_zycit246-ebelp
lote_i = itab_zycit246-lote.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR: itab_zycit248_inf.
READ TABLE itab_zycit248_final WITH KEY
nrseq = itab_zycit282-nrseqexp
vbeln_va = itab_zycit282-vbeln_va
aupos = itab_zycit282-aupos
...
...
posnl = itab_zycit282-posnl.
IF sy-subrc EQ 0.
itab_zycit248_inf-nrseq = itab_zycit248_final-nrseq.
itab_zycit248_inf-nrre = itab_zycit248_final-nrre.
itab_zycit248_inf-matnr = itab_zycit248_final-matnr.
* >> Início da inclusão: FORM MONTA_INF_IMP
IF /pws/zycit321-lote NE space.
itab_zycit248_inf-lote = itab_zycit248_final-lote.
ENDIF.
* << Fim da inclusão
itab_zycit248_inf-dtemb = itab_zycit248_final-dtemb.
itab_zycit248_inf-nrseqre = itab_zycit248_final-nrseqre.
itab_zycit248_inf-vrkme = itab_zycit248_final-vrkme.
itab_zycit248_inf-ntgew = itab_zycit248_final-ntgew.
itab_zycit248_inf-um_ncm = itab_zycit248_final-um_ncm.
...
...
text = itab_zyglt376-text.
SET HANDLER evt_receiver_e->on_function_selected
FOR toolbar.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM trata_nacion_lote.
DATA:
v_baseimp LIKE /pws/zycie085-vlfob ,
v_txmulta LIKE /pws/zycie085-vlfob ,
v_propor TYPE p DECIMALS 14 ,
v_datatx LIKE /pws/zycit246-dtdi .
LOOP AT itab_zycit246_final WHERE nritem = itab_zycit246-nritem
AND codcomp = itab_zycit246-codcomp
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND nrseq = itab_zycit246-nrseq.
itab_zycit246_final-qtd_nacion =
itab_zycit246_final-qtd_ncm - itab_zycit246_final-qtd_compv.
itab_zycit246_final-i_txselic = /pws/zycie246c-i_txselic.
CLEAR: itab_zycit279_ap.
READ TABLE itab_zycit279_ap WITH KEY
ebeln = itab_zycit246_final-ebeln
ebelp = itab_zycit246_final-ebelp
docnum = itab_zycit246_final-docnum
lote = itab_zycit246_final-lote.
itab_zycit246_final-i_vlcif_me =
itab_zycit246_final-vltot +
itab_zycit246_final-vlfrete +
itab_zycit246_final-vlseg.
itab_zycit246_final-i_indice = v_propor =
( itab_zycit246_final-qtd_nacion /
itab_zycit246_final-qtd_ncm ).
itab_zycit246_final-i_waerscifme = 'USD'.
itab_zycit246_final-i_waerscifmi = /pws/zycbt007-waersb.
itab_zycit246_final-i_vlcif_mi =
itab_zycit246_final-i_vlcif_me *
itab_zycit246_final-i_txmoeda.
itab_zycit246_final-i_vlcifn_mi =
itab_zycit246_final-i_vlcif_mi *
( itab_zycit246_final-qtd_nacion /
itab_zycit246_final-qtd_ncm ).
itab_zycit246_final-vlcifn_me = itab_zycit246_final-i_vlcif_me *
( itab_zycit246_final-qtd_nacion / itab_zycit246_final-qtd_ncm ).
CLEAR v_datatx.
CLEAR itab_zycit435. REFRESH itab_zycit435.
SELECT * FROM /pws/zycit435 INTO TABLE itab_zycit435.
READ TABLE itab_zycit435 WITH KEY tributo = 'II'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multaii = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multaii = v_txmulta.
ENDIF.
READ TABLE itab_zycit435 WITH KEY tributo = 'IPI'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multaipi = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multaipi = v_txmulta.
ENDIF.
READ TABLE itab_zycit435 WITH KEY tributo = 'PIS'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multapis = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multapis = v_txmulta.
ENDIF.
READ TABLE itab_zycit435 WITH KEY tributo = 'COFINS'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multacof = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multacof = v_txmulta.
ENDIF.
READ TABLE itab_zycit435 WITH KEY tributo = 'ICMS'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multaicms = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multaicms = v_txmulta.
ENDIF.
READ TABLE itab_zycit435 WITH KEY tributo = 'AFRMM'.
v_txmulta = itab_zycit435-coef *
( sy-datum - itab_zycit246_final-dtdi ) .
IF sy-subrc EQ 0 AND itab_zycit435-multa < v_txmulta
AND itab_zycit435-multa NE 0.
itab_zycit246_final-multaafrmm = itab_zycit435-multa.
ELSE.
itab_zycit246_final-multaafrmm = v_txmulta.
ENDIF.
itab_zycit246_final-jurosafrmm =
itab_zycit246_final-jurosicms =
itab_zycit246_final-juroscof =
itab_zycit246_final-jurospis =
itab_zycit246_final-jurosipi =
itab_zycit246_final-jurosii = itab_zycit246_final-i_txselic.
itab_zycit246_final-i_vlii =
( ( itab_zycit279_ap-baseii * v_propor )
* itab_zycit246_final-i_txii ) / 100
.
itab_zycit246_final-i_vlipi =
( ( ( itab_zycit279_ap-baseii * v_propor )
+ itab_zycit246_final-i_vlii )
* itab_zycit246_final-i_txipi ) / 100.
v_advpis = ( itab_zycit246_final-pis / 100 ).
v_advcof = ( itab_zycit246_final-cofins / 100 ).
v_baseimp = itab_zycit246_final-i_vlcifn_mi * v_fatx .
itab_zycit246_final-vlpis = ( itab_zycit279_ap-basepis *
v_advpis ) * v_propor.
itab_zycit246_final-vmultapis = ( itab_zycit246_final-vlpis *
itab_zycit246_final-multapis ) / 100.
itab_zycit246_final-vjurospis = ( itab_zycit246_final-vlpis *
itab_zycit246_final-jurospis ) / 100.
itab_zycit246_final-vlcof = ( itab_zycit279_ap-basecofins *
v_advcof ) * v_propor.
itab_zycit246_final-vmultacof = ( itab_zycit246_final-vlcof *
itab_zycit246_final-multacof ) / 100.
itab_zycit246_final-vjuroscof = ( itab_zycit246_final-vlcof *
itab_zycit246_final-juroscof ) / 100.
itab_zycit246_final-afrmm = 25.
IF NOT itab_zycit246_final-i_txmoeda IS INITIAL.
itab_zycit246_final-vafrmm = ( ( itab_zycit246_final-vlfrete *
v_propor ) * ( 25 / 100 ) ) * itab_zycit246_final-i_txmoeda.
ENDIF.
itab_zycit246_final-vmultaafrmm = ( itab_zycit246_final-vafrmm *
itab_zycit246_final-multaafrmm ) / 100.
itab_zycit246_final-vjurosafrmm = ( itab_zycit246_final-vafrmm *
itab_zycit246_final-jurosafrmm ) / 100.
v_txic = ( 100 - itab_zycit246_final-i_txicms ) / 100.
IF v_txic <= 0.
v_txic = 1.
ENDIF.
IF /pws/zycit321-ut_imp EQ 'X'.
itab_zycit246_final-i_vlicms =
( ( ( itab_zycit279_ap-baseicms * v_propor +
itab_zycit246_final-vlpis + itab_zycit246_final-vlcof )
/ v_txic ) * itab_zycit246_final-i_txicms ) / 100.
ELSE.
itab_zycit246_final-i_vlicms =
( ( itab_zycit279_ap-baseicms * v_propor
) * itab_zycit246_final-i_txicms ) / 100.
ENDIF.
itab_zycit246_final-i_multaicms =
( itab_zycit246_final-i_vlicms *
itab_zycit246_final-multaicms ) / 100.
itab_zycit246_final-i_tottrib =
itab_zycit246_final-i_vlii + itab_zycit246_final-i_vlipi.
itab_zycit246_final-i_multaii = ( itab_zycit246_final-i_vlii *
itab_zycit246_final-multaii ) / 100
.
itab_zycit246_final-i_multaipi = ( itab_zycit246_final-i_vlipi *
itab_zycit246_final-multaipi ) / 100.
itab_zycit246_final-i_jurosii =
( itab_zycit246_final-i_vlii *
itab_zycit246_final-i_txselic ) / 100.
itab_zycit246_final-i_jurosipi =
( itab_zycit246_final-i_vlipi *
itab_zycit246_final-i_txselic ) / 100.
itab_zycit246_final-i_totmult = itab_zycit246_final-i_multaii
+
itab_zycit246_final-i_multaipi +
itab_zycit246_final-i_jurosii +
itab_zycit246_final-i_jurosipi.
IF itab_zycit246_final-jurosicms IS INITIAL.
CLEAR: itab_zycit246_final-i_jurosmor.
ELSE.
itab_zycit246_final-i_jurosmor =
( itab_zycit246_final-i_vlicms *
( itab_zycit246_final-i_txselic + 1 ) ) / 100.
ENDIF.
itab_zycit246_final-i_totmultic =
itab_zycit246_final-i_jurosmor +
itab_zycit246_final-i_multaicms.
MODIFY itab_zycit246_final .
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
itab_di-adicao = /pws/zycie260c-adicao .
itab_di-meins = /pws/zycie260c-meins .
itab_di-qtd_di = /pws/zycie260c-qtd_di .
itab_di-sdo_qtd = /pws/zycie260c-sdo_qtd .
itab_di-qtd_vinc = /pws/zycie260c-qtd_vinc.
* >> Início da exclusão: MODULE PREENCHE_ITAB_DI
itab_di-charg = lips-charg .
* << Fim da exclusão
itab_di-v_sel = v_vsel .
ENDMODULE.
MODULE trata_selecao INPUT.
READ TABLE itab_di INDEX tc_di3-current_line.
IF sy-subrc EQ 0.
...
...
dynpronr11a = '0238'.
WHEN 'FS_TRANSF'.
READ TABLE itab_resumo_ap WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM monta_transf.
* >> Início da inclusão: MODULE USER_COMMAND_0236
IF itab_zycit279_ap_aux[] IS INITIAL.
MESSAGE w015 WITH text-310 text-311.
EXIT.
ENDIF.
* << Fim da inclusão
pressed_tab_11a = 'FS_TRANSF'.
dynpronr11a = '0239'.
ENDIF.
WHEN 'FS_NACION'.
READ TABLE itab_resumo_ap WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
PERFORM trata_tab_nacion.
* >> Início da inclusão: MODULE USER_COMMAND_0236
IF itab_zycit246[] IS INITIAL.
MESSAGE w015 WITH text-310 text-311.
EXIT.
ENDIF.
* << Fim da inclusão
pressed_tab_5a = 'FS_ITENS'.
dynpronr5a = '0210'.
pressed_tab_11a = 'FS_NACION'.
dynpronr11a = '0209'.
ENDIF.
...
...
MODIFY itab_zycit279_ap_aux TRANSPORTING qtd_transf transf
nrseqd_d mark
WHERE nrseq EQ wa_transf-nrseq
AND ebeln EQ wa_transf-ebeln
AND ebelp EQ wa_transf-ebelp.
* >> Início da exclusão: MODULE MODIFICA_TRANSF
MODIFY itab_zycit279_ap TRANSPORTING qtd_transf transf
nrseqd_d mark
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF
LOOP AT itab_zycit279_ap
* << Fim da inclusão
WHERE nrseq EQ wa_transf-nrseq
AND ebeln EQ wa_transf-ebeln
AND ebelp EQ wa_transf-ebelp.
* >> Início da exclusão: MODULE MODIFICA_TRANSF
READ TABLE itab_zycit246 WITH KEY nrseq = wa_transf-nrseq
ebeln = wa_transf-ebeln
ebelp = wa_transf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF
IF itab_zycit279_ap_aux-mark EQ 'X'.
IF itab_zycit279_ap_aux-qtd_transf > 0.
IF itab_zycit279_ap-slqtde > itab_zycit279_ap_aux-qtd_transf.
itab_zycit279_ap-qtd_transf = itab_zycit279_ap_aux-qtd_transf.
ELSE.
itab_zycit279_ap-qtd_transf = itab_zycit279_ap-slqtde.
ENDIF.
itab_zycit279_ap_aux-qtd_transf = itab_zycit279_ap_aux-qtd_transf
- itab_zycit279_ap-qtd_transf.
itab_zycit279_ap-transf = itab_zycit279_ap_aux-transf.
itab_zycit279_ap-nrseqd_d = itab_zycit279_ap_aux-nrseqd_d.
ELSE.
CLEAR: itab_zycit279_ap-qtd_transf, itab_zycit279_ap-transf.
ENDIF.
ELSE.
CLEAR: itab_zycit279_ap-qtd_transf, itab_zycit279_ap-transf,
itab_zycit279_ap-nrseqd_d.
ENDIF.
MODIFY itab_zycit279_ap.
READ TABLE itab_zycit246 WITH KEY nrseq = itab_zycit279_ap-nrseq
ebeln = itab_zycit279_ap-ebeln
ebelp = itab_zycit279_ap-ebelp
lote = itab_zycit279_ap-lote.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycit246-qtd_nacion = itab_zycit246-qtd_ncm -
itab_zycit246-qtd_compv - itab_zycit279_ap-qtd_transf.
MODIFY itab_zycit246 TRANSPORTING qtd_nacion
* >> Início da exclusão: MODULE MODIFICA_TRANSF
WHERE nrseq EQ wa_transf-nrseq
AND ebeln EQ wa_transf-ebeln
AND ebelp EQ wa_transf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF
WHERE nrseq EQ itab_zycit279_ap-nrseq
AND ebeln EQ itab_zycit279_ap-ebeln
AND ebelp EQ itab_zycit279_ap-ebelp
AND lote EQ itab_zycit279_ap-lote.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE MODIFICA_TRANSF
READ TABLE itab_zycit246_final WITH KEY nrseq = wa_transf-nrseq
ebeln = wa_transf-ebeln
ebelp = wa_transf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit279_ap-nrseq
ebeln = itab_zycit279_ap-ebeln
ebelp = itab_zycit279_ap-ebelp
lote = itab_zycit279_ap-lote.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycit246_final-qtd_nacion = itab_zycit246_final-qtd_ncm -
itab_zycit246_final-qtd_compv - itab_zycit279_ap-qtd_transf.
MODIFY itab_zycit246_final TRANSPORTING qtd_nacion
* >> Início da exclusão: MODULE MODIFICA_TRANSF
WHERE nrseq EQ wa_transf-nrseq
AND ebeln EQ wa_transf-ebeln
AND ebelp EQ wa_transf-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_TRANSF
WHERE nrseq EQ itab_zycit279_ap-nrseq
AND ebeln EQ itab_zycit279_ap-ebeln
AND ebelp EQ itab_zycit279_ap-ebelp
AND lote EQ itab_zycit279_ap-lote.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE MODIFICA_TRANSF
ENDLOOP.
* << Fim da inclusão
v_altera_ap = 'S'.
...
...
AND ( tipo EQ 'C' OR tipo EQ 'G' ).
IF sy-subrc EQ 0.
IF wa_zycit244_tf-tipo EQ 'G'.
SELECT SINGLE * FROM /pws/zycit245 INTO wa_zycit245_tf
WHERE nrseqd EQ /pws/zycie279-nrseqd_d.
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
READ TABLE itab_zycit246 WITH KEY
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit279_ap_aux-nrseq
ebeln = itab_zycit279_ap_aux-ebeln
ebelp = itab_zycit279_ap_aux-ebelp.
READ TABLE itab_zycit279_ap WITH KEY
* << Fim da inclusão
nrseq = itab_zycit279_ap_aux-nrseq
ebeln = itab_zycit279_ap_aux-ebeln
ebelp = itab_zycit279_ap_aux-ebelp.
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
IF itab_zycit246-i_txmoeda IS INITIAL.
itab_zycit246-i_txmoeda = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
IF itab_zycit246_final-i_txmoeda IS INITIAL.
itab_zycit246_final-i_txmoeda = 1.
* << Fim da inclusão
ENDIF.
v_saldo_vl = wa_zycit245_tf-netpr_t - wa_zycit245_tf-vlvinc.
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
v_vl_transf = ( /pws/zycie279-qtd_transf *
itab_zycit279_ap_aux-valor ) / itab_zycit246-i_txmoeda.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
v_vl_transf =
( /pws/zycie279-qtd_transf * itab_zycit279_ap-valor ) /
itab_zycit246_final-i_txmoeda.
* << Fim da inclusão
IF v_saldo_vl < v_vl_transf.
MESSAGE i015 WITH text-268 /pws/zycie279-nrseqd_d text-268.
EXIT.
ELSE.
MESSAGE s015 WITH text-288.
...
...
itab_zycit279_ap_aux-nrseqd_d = /pws/zycie279-nrseqd_d.
MODIFY itab_zycit279_ap_aux INDEX tc_transf-current_line.
MODIFY itab_zycit279_ap TRANSPORTING nrseqd_d
WHERE nrseq EQ itab_zycit279_ap_aux-nrseq
AND ebeln EQ itab_zycit279_ap_aux-ebeln
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
AND ebelp EQ itab_zycit279_ap_aux-ebelp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
AND ebelp EQ itab_zycit279_ap_aux-ebelp
AND qtd_transf > 0.
* << Fim da inclusão
ENDMODULE.
MODULE user_command_0241 INPUT.
CASE ok_code.
WHEN 'CANC'.
LEAVE TO SCREEN 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
WHEN '0205'.
PERFORM check_field_0205.
WHEN '0206'.
PERFORM check_field_0206.
WHEN '0207'.
* >> Início da inclusão: MODULE SET_SCREEN2
LOOP AT SCREEN.
IF screen-group2 EQ 'NCM'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da inclusão
LOOP AT tc_realize-cols INTO wa_cols2.
IF NOT /pws/zycie244-importacao IS INITIAL AND
wa_cols2-screen-group4 EQ 'CAM'.
wa_cols2-invisible = 1.
MODIFY tc_realize-cols FROM wa_cols2.
ELSEIF wa_cols2-screen-group4 EQ 'CAM'.
* >> Início da inclusão: MODULE SET_SCREEN2
wa_cols2-invisible = 0.
MODIFY tc_realize-cols FROM wa_cols2.
ENDIF.
IF /pws/zycit321-lote IS INITIAL.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE248-LOTE'.
wa_cols2-invisible = 1.
MODIFY tc_realize-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE248-LOTE'.
* << Fim da inclusão
wa_cols2-invisible = 0.
MODIFY tc_realize-cols FROM wa_cols2.
* >> Início da inclusão: MODULE SET_SCREEN2
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
DESCRIBE TABLE itab_zycit248 LINES v_ilinhas2.
tc_realize-lines = v_ilinhas2.
WHEN '0208'.
...
...
/pws/zycie246-nritem = itab_zycit246-nritem .
/pws/zycie246-codcomp = itab_zycit246-codcomp .
/pws/zycie246-ebeln = itab_zycit246-ebeln .
/pws/zycie246-ebelp = itab_zycit246-ebelp .
/pws/zycie246-nrseq = itab_zycit246-nrseq .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
/pws/zycie246-lote = itab_zycit246-lote .
* << Fim da inclusão
/pws/zycie246-j_1bnbm = itab_zycit246-j_1bnbm .
/pws/zycie246-nfnum = itab_zycit246-nfnum .
/pws/zycie246-serie = itab_zycit246-serie .
/pws/zycie246-docnum = itab_zycit246-docnum .
/pws/zycie246-dtnf = itab_zycit246-dtnf .
...
...
/pws/zycie248-vbeln_va = itab_zycit248-vbeln_va .
/pws/zycie248-vbeln_vl = itab_zycit248-vbeln_vl .
/pws/zycie248-vbeln_vf = itab_zycit248-vbeln_vf .
/pws/zycie248-posnl = itab_zycit248-posnl .
/pws/zycie248-aupos = itab_zycit248-aupos .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0207
/pws/zycie248-lote = itab_zycit248-lote .
* << Fim da inclusão
/pws/zycie248-nrsd = itab_zycit248-nrsd .
/pws/zycie248-posnr = itab_zycit248-posnr .
/pws/zycie248-nrseq = itab_zycit248-nrseq .
/pws/zycie248-j_1bnbm = itab_zycit248-j_1bnbm .
/pws/zycie248-steuc = itab_zycit248-steuc .
...
...
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0239
DESCRIBE TABLE itab_zycit279_ap_aux LINES tc_transf-lines.
* << Fim da inclusão
ENDMODULE.
MODULE preenche_inf_export OUTPUT.
/pws/zycie246 = itab_zycit246_inf.
ENDMODULE.
MODULE status_0241 OUTPUT.
...
...
SET TITLEBAR 'TL0241'.
CLEAR ok_code.
DESCRIBE TABLE itab_zycit246_inf LINES v_ilinhas2.
tc_inf_exp-lines = v_ilinhas2.
LOOP AT tc_inf_exp-cols INTO wa_cols2.
* >> Início da inclusão: MODULE STATUS_0241
IF /pws/zycit321-lote EQ space.
IF wa_cols2-screen-group2 EQ 'LOT'.
wa_cols2-invisible = '1'.
MODIFY tc_inf_exp-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-group2 EQ 'LOT'.
wa_cols2-invisible = '0'.
MODIFY tc_inf_exp-cols FROM wa_cols2.
ENDIF.
ENDIF.
* << Fim da inclusão
CASE wa_cols2-screen-group1.
WHEN 'NF'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = '0'.
ELSE.
...
...
MODULE status_0242 OUTPUT.
SET PF-STATUS 'ST0241'.
SET TITLEBAR 'TL0242'.
CLEAR ok_code.
DESCRIBE TABLE itab_zycit248_inf LINES v_ilinhas2.
* >> Início da inclusão: MODULE STATUS_0242
LOOP AT tc_inf_imp-cols INTO wa_cols2.
IF /pws/zycit321-lote EQ space.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE248-LOTE'.
wa_cols2-invisible = 1.
MODIFY tc_inf_imp-cols FROM wa_cols2.
ENDIF.
ELSE.
IF wa_cols2-screen-name EQ '/PWS/ZYCIE248-LOTE'.
wa_cols2-invisible = 0.
MODIFY tc_inf_imp-cols FROM wa_cols2.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da inclusão
tc_inf_imp-lines = v_ilinhas2.
ENDMODULE.
MODULE preenche_inf_imp OUTPUT.
/pws/zycie248 = itab_zycit248_inf.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
INCLUDE STRUCTURE /pws/zycit435.
DATA: END OF itab_zycit435.
DATA: BEGIN OF itab_vbap OCCURS 0.
INCLUDE STRUCTURE vbap.
DATA: END OF itab_vbap.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit468 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit468.
DATA: END OF itab_zycit468.
* << Fim da inclusão
DATA: BEGIN OF it_materiais OCCURS 0,
matnr LIKE mara-matnr,
werks LIKE marc-werks,
stlan LIKE stpox-stlan,
stlnr LIKE stpo-stlnr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052F01
...
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_zycit330-buzei TO /pws/zycit279-buzei ,
* >> Início da inclusão: FORM SALVAR_DADOS
itab_zycit330-lote TO /pws/zycit279-lote ,
* << Fim da inclusão
itab_zycit330-ncm TO /pws/zycit279-j_1bnbm,
itab_zycit330-menge TO /pws/zycit279-qtd_iten,
itab_zycit330-gewei TO /pws/zycit279-gewei ,
itab_zycit330-waerk TO /pws/zycit279-waers ,
itab_zycit330-netpr TO /pws/zycit279-netpr ,
...
...
IF sy-subrc NE 0.
MESSAGE i085.
ENDIF.
ENDFORM.
FORM carrega_dados.
* >> Início da inclusão: FORM CARREGA_DADOS
DATA: BEGIN OF itab_mseg OCCURS 0.
DATA: mblnr TYPE mseg-mblnr,
MJAHR TYPE mseg-MJAHR,
ZEILE TYPE mseg-ZEILE,
charg TYPE mseg-charg.
DATA: END OF itab_mseg.
* << Fim da inclusão
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.
...
...
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.
* >> Início da inclusão: FORM CARREGA_DADOS
IF /pws/zycit321-lote NE space.
refresh: itab_mseg.
clear: itab_mseg.
SELECT mblnr MJAHR zeile charg FROM mseg
INTO TABLE itab_mseg
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
and zeile = itab_mseg-zeile
and charg = itab_mseg-charg.
ENDIF.
ENDIF.
* << Fim da inclusão
IF ekpo-umrez NE 0 AND ekpo-umren NE 0.
itab_zycit330-meins = ekpo-lmein.
itab_zycit330-menge =
( ( itab_rseg-menge * ekpo-umrez ) / ekpo-umren ).
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052O01
...
ENDMODULE.
MODULE atualiza_zycie330 OUTPUT.
MOVE: /pws/zycie329-docnum TO /pws/zycie330-docnum,
itab_zycit330-ebeln TO /pws/zycie330-ebeln ,
itab_zycit330-ebelp TO /pws/zycie330-ebelp ,
* >> Início da inclusão: MODULE ATUALIZA_ZYCIE330
itab_zycit330-lote TO /pws/zycie330-lote ,
* << Fim da inclusão
itab_zycit330-meins TO /pws/zycie330-meins ,
itab_zycit330-buzei TO /pws/zycie330-buzei ,
itab_zycit330-menge TO /pws/zycie330-menge ,
itab_zycit330-netpr TO /pws/zycie330-netpr ,
itab_zycit330-waerk TO /pws/zycie330-waerk ,
...
...
MODIFY SCREEN.
ENDLOOP.
LOOP AT tc_itens-cols INTO v_cols.
IF v_cols-screen-group1 EQ 'OPE'.
v_cols-screen-input = 0.
* >> Início da inclusão: MODULE SET_SCREEN
MODIFY tc_itens-cols FROM v_cols.
ENDIF.
IF v_cols-screen-name EQ '/PWS/ZYCIE330-LOTE'.
v_cols-invisible = 1.
MODIFY tc_itens-cols FROM v_cols.
ENDIF.
ENDLOOP.
ENDIF.
IF /pws/zycit321 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit321.
ENDIF.
IF /pws/zycit321-lote EQ space.
LOOP AT tc_itens-cols INTO v_cols.
IF v_cols-screen-name EQ '/PWS/ZYCIE330-LOTE'.
v_cols-invisible = 1.
* << Fim da inclusão
MODIFY tc_itens-cols FROM v_cols.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI052TOP
PROGRAM /pws/sapmzyci052 MESSAGE-ID /pws/zycim.
TABLES: /pws/zycit330, /pws/zycit329, /pws/zycie329, /pws/zycie330,
j_1bnfdoc , ekpo , /pws/zycie245, /pws/zycit245,
ekko , /pws/zycit321, /pws/zycit279, /pws/zycit282,
j_1bnflin , mara , rbkp , rseg ,
* >> Início da inclusão:
mseg , chvw ,
* << Fim da inclusão
j_1bnfstx.
DATA: BEGIN OF itab_zycit330 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit330.
DATA: mark TYPE c.
DATA: END OF itab_zycit330.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063I01
...
itab_di-adicao = /pws/zycie260c-adicao .
itab_di-meins = /pws/zycie260c-meins .
itab_di-qtd_di = /pws/zycie260c-qtd_di .
itab_di-sdo_qtd = /pws/zycie260c-sdo_qtd .
itab_di-qtd_vinc = /pws/zycie260c-qtd_vinc.
* >> Início da exclusão: MODULE PREENCHE_ITAB_DI
itab_di-charg = lips-charg .
* << Fim da exclusão
itab_di-v_sel = v_vsel .
ENDMODULE.
MODULE trata_selecao INPUT.
READ TABLE itab_di INDEX tc_di3-current_line.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
FORM selecionar_exportacoes3.
DATA: v_comisag LIKE /pws/zycet066-vlagente,
v_waersag LIKE /pws/zycet066-waers ,
v_nrre_temp(14) ,
v_ncm_lista(10).
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
DATA: BEGIN OF itab_lote OCCURS 0 .
DATA: vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
charg TYPE lips-charg,
qtd TYPE /pws/zycit279-menge.
DATA: END OF itab_lote.
* << Fim da inclusão
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI064'
'COI001'.
e_subrc = 0.
CLEAR itab_zyglt100 .
...
...
itab_zycet001-dtaverb TO itab_det_exp_final-dtaverb ,
itab_re_final-gewei TO itab_det_exp_final-gewei ,
itab_re_final-ntgew TO itab_det_exp_final-ntgew ,
itab_zycet002-brgew TO itab_det_exp_final-brgew ,
itab_zycet002-vlfrete_r TO itab_det_exp_final-vlfre ,
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
itab_j_1bnflin-meins TO itab_det_exp_final-meins ,
itab_j_1bnflin-menge TO itab_det_exp_final-qtd_iten,
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
itab_zycet002-vrkme TO itab_det_exp_final-meins ,
itab_zycet002-fkimg TO itab_det_exp_final-qtd_iten,
* << Fim da inclusão
itab_re_final-waers TO itab_det_exp_final-waersfob,
itab_re_final-waers TO itab_det_exp_final-waerscif,
itab_re_final-vfob TO itab_det_exp_final-vlfob ,
itab_re_final-waers TO itab_det_exp_final-waersemb,
itab_re_final-vfob TO itab_det_exp_final-vlfobemb,
...
...
'@6V@'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
ENDLOOP.
IF NOT itab_re_final[] IS INITIAL.
SELECT vbeln posnr charg lfimg FROM lips INTO TABLE itab_lote
FOR ALL ENTRIES IN itab_det_exp_final
WHERE vbeln EQ itab_det_exp_final-vbeln_vl
AND posnr EQ itab_det_exp_final-posnl.
LOOP AT itab_det_exp_final.
READ TABLE itab_lote WITH KEY
vbeln = itab_det_exp_final-vbeln_vl
posnr = itab_det_exp_final-posnl.
itab_det_exp_final-lote = itab_lote-charg.
MODIFY itab_det_exp_final.
* << Fim da inclusão
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
ENDIF.
* << Fim da inclusão
IF NOT itab_msg_erro_aux[] IS INITIAL.
SORT itab_msg_erro_aux.
DELETE ADJACENT DUPLICATES FROM itab_msg_erro COMPARING ALL FIELDS.
LOOP AT itab_msg_erro_aux.
READ TABLE itab_msg_erro WITH KEY matnr = itab_msg_erro_aux-matnr
...
...
/pws/zycie259d-codmat = itab_zycit371-codigo.
/pws/zycie259d-qtd_iten = itab_zycit371-qtd_iten.
SELECT descr UP TO 1 ROWS FROM /pws/zycit368 INTO v_descr1_0304
WHERE nrseq = itab_zycit371-codigo.
ENDSELECT.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0304
ENDIF.
IF /pws/zycit321-lote EQ space.
LOOP AT tc_detalhe3-cols INTO wa_cols.
IF wa_cols-screen-name EQ '/PWS/ZYCIE259C-LOTE'.
wa_cols-invisible = '1'.
MODIFY tc_detalhe3-cols FROM wa_cols.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF v_tcode3 EQ '/PWS/ZYCI040_I'.
ENDIF.
ENDFORM.
FORM trata_tab_detalhe3.
...
...
MOVE: itab_det_exp-codmat TO /pws/zycie259d-codmat ,
itab_det_exp-meins TO /pws/zycie259d-meins ,
itab_det_exp-qtd_iten TO v_qtd_0305 ,
itab_det_exp-nrseqre TO /pws/zycie259d-nrseqre ,
itab_det_exp-dtre TO /pws/zycie259d-dtre ,
* >> Início da inclusão: FORM TRATA_TAB_VINC3
itab_det_exp-lote TO /pws/zycie259d-lote ,
* << Fim da inclusão
itab_det_exp-nrseq TO /pws/zycie259d-nrseq ,
itab_det_exp-dtemb TO /pws/zycie259d-dtemb ,
itab_det_exp-vbeln_va TO /pws/zycie259d-vbeln_va,
itab_det_exp-vbeln_vf TO /pws/zycie259d-vbeln_vf,
itab_det_exp-posnr TO /pws/zycie259d-posnr ,
...
...
itab_comp_vinc_final-nrseq EQ /pws/zycie259d-nrseq AND
itab_comp_vinc_final-vbeln_va EQ /pws/zycie259d-vbeln_va AND
itab_comp_vinc_final-vbeln_vf EQ /pws/zycie259d-vbeln_vf AND
itab_comp_vinc_final-posnr EQ /pws/zycie259d-posnr.
MOVE-CORRESPONDING itab_comp_vinc_final TO itab_comp_vinc.
* >> Início da inclusão: FORM TRATA_TAB_VINC3
IF itab_comp_vinc-qtd_orig IS INITIAL.
IF /pws/zycit321-lote EQ space.
* << Fim da inclusão
itab_comp_vinc-qtd_orig = v_qtd_0305 * itab_comp_vinc-qtd_iten.
* >> Início da inclusão: FORM TRATA_TAB_VINC3
ELSE.
itab_comp_vinc-qtd_orig = itab_comp_vinc-qtd_total.
itab_comp_vinc-qtd_iten = itab_comp_vinc-qtd_total / v_qtd_0305.
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND itab_comp_vinc.
ENDLOOP.
pressed_tab_3c_2 = ok_code3.
dynpronr3c_2 = '0305'.
pressed_tab_3c_4 = 'FS_VCP3'.
...
...
ENDLOOP.
ENDIF.
ENDFORM.
FORM verifica_componentes3.
DATA: v_qtdbase LIKE itab_stko-bmeng.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES3
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI064'
'COI002'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'COI002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING
ok_code3
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit321-lote IS INITIAL.
* << Fim da inclusão
LOOP AT itab_det_exp.
CLEAR: it_stpox, it_stpox2. REFRESH: it_stpox, it_stpox2.
READ TABLE itab_comp_vinc WITH KEY nrseqre = itab_det_exp-nrseqre
nrseq = itab_det_exp-nrseq
codmat = itab_det_exp-codmat
...
...
PERFORM seleciona_di.
ENDIF.
PERFORM elimina_insumo_sdi.
ELSE.
PERFORM seleciona_nf3.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES3
ENDIF.
ELSE.
IF /pws/zycie258-tipo EQ 'C'.
PERFORM seleciona_di3_l.
PERFORM seleciona_di_l.
ELSE.
PERFORM seleciona_nf_l.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES3
ENDIF.
* << Fim da inclusão
MESSAGE s015 WITH text-023.
...
...
screen-name EQ '/PWS/ZYCIE259D-STLNR'.
IF pressed_tab_3c_4 NE 'FS_VCP3' AND
v_tcode3 NE '/PWS/ZYCI040_L'.
screen-input = 0.
MODIFY SCREEN.
* >> Início da inclusão: FORM CGECK_FIELDS_SCREEN_0305
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CGECK_FIELDS_SCREEN_0305
IF screen-name EQ '/PWS/ZYCIE259D-LOTE' AND
/pws/zycit321-lote EQ space.
screen-invisible = 1.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
IF /pws/zycie258-tipo EQ 'C'
AND screen-name EQ 'FS_NF3'.
screen-invisible = 1 .
MODIFY SCREEN.
...
...
ENDFORM.
FORM check_fields_screen_0310.
LOOP AT tc_di3-cols INTO wa_cols3.
IF wa_cols3-screen-group1 NE 'NEX'.
wa_cols3-screen-input = v_status3.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0310
MODIFY tc_di3-cols FROM wa_cols3.
ENDIF.
IF /pws/zycit321-lote NE space.
IF wa_cols3-screen-name EQ '/PWS/ZYCIE260C-SDO_QTD'
OR wa_cols3-screen-name EQ 'V_VSEL'.
wa_cols3-invisible = 1.
MODIFY tc_di3-cols FROM wa_cols3.
ENDIF.
ELSE.
IF wa_cols3-screen-name EQ '/PWS/ZYCIE260C-LOTE'.
wa_cols3-invisible = 1.
* << Fim da inclusão
MODIFY tc_di3-cols FROM wa_cols3.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELDS_SCREEN_0310
ENDIF.
* << Fim da inclusão
ENDLOOP.
DESCRIBE TABLE itab_di LINES v_ilinhas2.
tc_di3-lines = v_ilinhas2.
ENDFORM.
FORM trata_button_mall3.
...
...
ENDLOOP.
DESCRIBE TABLE itab_res_imp LINES v_ilinhas2.
tc_res_imp3-lines = v_ilinhas2.
ENDFORM.
FORM trata_tab_beneficios_imp3.
* >> Início da exclusão: FORM TRATA_TAB_BENEFICIOS_IMP3
DATA: v_marcados6 TYPE i VALUE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TAB_BENEFICIOS_IMP3
DATA: v_marcados6 TYPE i VALUE 0,
v_cifimp3 TYPE /pws/zycit259-vlfob,
v_variac TYPE /pws/zycit259-vlfob,
v_fobexp3 TYPE /pws/zycit259-vlfob.
* << Fim da inclusão
LOOP AT itab_res_imp WHERE marc_l = 'X'.
v_marcados6 = v_marcados6 + 1.
ENDLOOP.
IF v_marcados6 > 1.
MESSAGE s015 WITH text-016.
...
...
/pws/zycie260d-vlafrmm + itab_det_imp_final-vlafrmm.
/pws/zycie260d-vlpis =
/pws/zycie260d-vlpis + itab_det_imp_final-vlpis.
/pws/zycie260d-vlcofins =
/pws/zycie260d-vlcofins + itab_det_imp_final-vlcofins.
* >> Início da inclusão: FORM TRATA_TAB_BENEFICIOS_IMP3
ENDLOOP.
CLEAR: v_var_camb3, v_var_cambt3, v_cifimp3, v_fobexp3.
LOOP AT itab_di_final WHERE codcomp EQ itab_res_imp-codcomp.
v_cifimp3 = v_cifimp3 +
( itab_di_final-vlfob + itab_di_final-vlfrete_t
+ itab_di_final-vlseg_t ).
ENDLOOP.
LOOP AT itab_det_exp_final.
READ TABLE itab_di_final
WITH KEY nrseqre = itab_di_final-nrseqre
nrseq = itab_di_final-nrseq
codmat = itab_di_final-codmat
vbeln_va = itab_di_final-vbeln_va
vbeln_vf = itab_di_final-vbeln_vf
posnr = itab_di_final-posnr
codcomp = itab_res_imp-codcomp.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
v_fobexp3 = v_fobexp3 +
( itab_det_exp_final-vlfob - itab_det_exp_final-vlcomis ).
ENDLOOP.
IF v_fobexp3 > 0.
v_variac = ( v_cifimp3 / v_fobexp3 ) * 100.
MOVE v_variac TO v_var_camb3.
SHIFT v_var_camb3 LEFT DELETING LEADING space.
CONCATENATE v_var_camb3 '%' INTO v_var_camb3.
ENDIF.
CLEAR: v_cifimp3, v_fobexp3.
LOOP AT itab_di_final.
v_cifimp3 = v_cifimp3 +
( itab_di_final-vlfob + itab_di_final-vlfrete_t
+ itab_di_final-vlseg_t ).
ENDLOOP.
LOOP AT itab_det_exp_final.
v_fobexp3 = v_fobexp3 +
( itab_det_exp_final-vlfob - itab_det_exp_final-vlcomis ).
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM TRATA_TAB_BENEFICIOS_IMP3
IF v_fobexp3 > 0.
v_variac = ( v_cifimp3 / v_fobexp3 ) * 100.
MOVE v_variac TO v_var_cambt3.
SHIFT v_var_cambt3 LEFT DELETING LEADING space.
CONCATENATE v_var_cambt3 '%' INTO v_var_cambt3.
ENDIF.
* << Fim da inclusão
/pws/zycie260d-t_benef = /pws/zycie260d-i_vlii +
/pws/zycie260d-i_vlipi.
MOVE itab_res_imp-codcomp TO v_detcomp1.
pressed_tab_3c_3 = ok_code3.
dynpronr3c_3 = '0311'.
...
...
v_um_rez2 = 1.
ENDIF.
p_qtd = p_qtd *
( ( v_um_rez / v_um_ren ) * ( v_um_ren2 / v_um_rez2 ) ).
ENDFORM.
* >> Início da inclusão:
FORM seleciona_di3_l.
IF itab_di_final[] IS INITIAL.
EXIT.
ENDIF.
DATA: v_found(1) TYPE c,
v_vlreali LIKE /pws/zycit100-vlfob,
v_fator_conv LIKE /pws/zycit100-vlfob.
DATA: BEGIN OF itab_insumo_di OCCURS 0.
DATA: matnr LIKE mara-matnr.
DATA: END OF itab_insumo_di.
DATA: itab_zycit003_t2 TYPE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit244 TYPE /pws/zycit244 OCCURS 0 WITH HEADER LINE.
IF /pws/zycie258-tipo NE 'I'.
ENDIF.
DATA: itab_ekpo_sort LIKE ekpo OCCURS 0 WITH HEADER LINE.
DATA: itab_comp_sort3 LIKE itab_comp_vinc_final
OCCURS 0 WITH HEADER LINE.
DATA BEGIN OF itab_zycit100_sort OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: matnr LIKE /pws/zycit003-matnr.
DATA: END OF itab_zycit100_sort.
DATA: v_xa LIKE /pws/zycie085-vlfob,
v_xb LIKE /pws/zycie085-vlfob,
v_xc LIKE /pws/zycie085-vlfob,
v_fatx TYPE p DECIMALS 8,
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE /pws/zycie085-vlfob,
v_advii LIKE /pws/zycie085-vlfob,
v_advipi LIKE /pws/zycie085-vlfob,
v_advicms LIKE /pws/zycie085-vlfob,
v_advpis LIKE /pws/zycie085-vlfob,
v_advcof LIKE /pws/zycie085-vlfob,
v_divisor LIKE /pws/zycie085-vlfob.
CLEAR: itab_zycit085,
itab_zycit100,
itab_zycit260,
itab_zycit003,
itab_ekpo ,
itab_zycit001,
itab_zycit044,
itab_zycit042,
itab_zycit041,
itab_zycit043.
REFRESH: itab_zycit085,
itab_zycit100,
itab_zycit260,
itab_zycit003,
itab_comp_vinc_final,
itab_ekpo ,
itab_zycit001,
itab_zycit044,
itab_zycit042,
itab_zycit041,
itab_zycit043,
itab_insumo_di.
DELETE itab_di_final WHERE ebeln EQ space.
IF itab_di_final[] IS INITIAL.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_di_final
WHERE ebeln EQ itab_di_final-ebeln
AND ebelp EQ itab_di_final-ebelp.
IF NOT itab_zycit003[] IS INITIAL.
itab_zycit003_t2[] = itab_zycit003[].
DELETE itab_zycit003_t2 WHERE nrseqd EQ space.
SORT itab_zycit003_t2 BY nrseqd.
DELETE ADJACENT DUPLICATES FROM itab_zycit003_t2 COMPARING nrseqd.
IF NOT itab_zycit003_t2[] IS INITIAL.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit003_t2
WHERE nrseqd EQ itab_zycit003_t2-nrseqd
AND modalidade EQ 'S'.
LOOP AT itab_zycit244.
DELETE itab_zycit003 WHERE nrseqd EQ itab_zycit244-nrseqd.
ENDLOOP.
ENDIF.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi EQ itab_zycit100-nrseqdi.
IF NOT itab_zycit085[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseq EQ itab_zycit100-nrseq
AND bukrs EQ /pws/zycie258-bukrs.
IF NOT itab_zycit001[] IS INITIAL.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
FOR ALL ENTRIES IN itab_zycit001
WHERE nrseq EQ itab_zycit001-nrseq.
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq EQ itab_zycit042-nrseqnf
AND nfglobal EQ itab_zycit042-nfglobal
AND cancel EQ space.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_det_exp.
LOOP AT itab_di_final WHERE nrseqre = itab_det_exp-nrseqre
AND nrseq = itab_det_exp-nrseq
AND codmat = itab_det_exp-codmat
AND vbeln_va = itab_det_exp-vbeln_va
AND vbeln_vf = itab_det_exp-vbeln_vf
AND posnr = itab_det_exp-posnr.
READ TABLE itab_zycit100 WITH KEY ebeln = itab_di_final-ebeln
ebelp = itab_di_final-ebelp.
IF sy-subrc NE 0 .
CONTINUE.
ENDIF.
REFRESH itab_di_final_aux.
itab_di_final_aux[] = itab_di_final[].
CLEAR itab_zycit085.
READ TABLE itab_zycit085 WITH KEY
nrseqdi = itab_zycit100-nrseqdi.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ itab_zycit085-bukrs.
CLEAR itab_zycit001.
READ TABLE itab_zycit001 WITH KEY nrseq = itab_zycit100-nrseq.
IF sy-subrc EQ 0.
CLEAR itab_zycit003.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit100-nrseq
ebeln = itab_zycit100-ebeln
ebelp = itab_zycit100-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit434 WITH KEY
werks = itab_zycit003-werks.
ENDIF.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ELSE.
CONTINUE.
ENDIF.
v_vlreali = itab_zycit003-qtd_iten.
READ TABLE itab_mess_un WITH KEY meins =
itab_zycit003-meins
matnr = itab_zycit003-matnr.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
PERFORM converte_um_base USING itab_zycit003-matnr
CHANGING itab_zycit003-meins
itab_zycit003-qtd_iten.
IF itab_zycit003-qtd_iten <= 0.
itab_mess_un-meins = itab_det_exp_final-meins.
itab_mess_un-matnr = itab_det_exp_final-codmat.
APPEND itab_mess_un.
CONTINUE.
ENDIF.
MOVE: itab_zycit003-meins TO itab_di_final-meins ,
itab_zycit003-qtd_iten TO itab_di_final-qtd_di .
PERFORM converte_um_ncm USING itab_zycit003-matnr
CHANGING itab_di_final-meins
/pws/zycie258-werks
itab_di_final-qtd_di.
IF itab_di_final-qtd_di IS INITIAL.
EXIT.
ENDIF.
v_fator_conv = v_vlreali / itab_zycit003-qtd_iten.
CLEAR: v_advii, v_advicms, v_advipi, v_advpis, v_advcof, v_xa, v_xb,
v_fatx, v_faty.
v_advii = ( itab_zycit003-advalii / 100 ).
v_advipi = ( itab_zycit003-advalipi / 100 ).
IF NOT itab_zycit003-basred IS INITIAL.
v_advicms = ( ( itab_zycit003-advalicms / 100 ) *
( itab_zycit003-basred / 100 ) ) .
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
v_advpis = ( itab_zycit100-advalpis / 100 ).
v_advcof = ( itab_zycit100-advalcofins / 100 ).
v_xb = ( 1 - v_advpis - v_advcof - v_advicms ) .
v_xa = 1 + v_advicms * ( v_advii + v_advipi * ( 1 + v_advii ) ) .
v_fatx = v_xa / v_xb.
v_faty = v_advicms / v_xb.
CLEAR itab_comp_vinc_final.
MOVE:
/pws/zycie258-nrseqd TO itab_comp_vinc_final-nrseqd ,
itab_det_exp-codmat TO itab_comp_vinc_final-codmat ,
itab_di_final-nrseqre TO itab_comp_vinc_final-nrseqre,
itab_di_final-nrseq TO itab_comp_vinc_final-nrseq ,
itab_di_final-vbeln_va TO itab_comp_vinc_final-vbeln_va,
itab_di_final-vbeln_vf TO itab_comp_vinc_final-vbeln_vf,
itab_di_final-posnr TO itab_comp_vinc_final-posnr ,
itab_zycit003-matnr TO itab_comp_vinc_final-codcomp ,
itab_di_final-meins TO itab_comp_vinc_final-meins.
PERFORM converte_um_base USING itab_comp_vinc_final-codcomp
CHANGING itab_comp_vinc_final-meins
itab_comp_vinc_final-qtd_iten.
itab_comp_vinc_final-qtd_total = itab_comp_vinc_final-qtd_orig
= itab_di_final-qtd_vinc.
COLLECT itab_comp_vinc_final.
MOVE:
/pws/zycie258-nrseqd TO itab_di_final-nrseqd ,
itab_zycit003-matnr TO itab_di_final-codcomp ,
itab_comp_vinc_final-codmat TO itab_di_final-codmat ,
itab_comp_vinc_final-nrseqre TO itab_di_final-nrseqre ,
itab_comp_vinc_final-nrseq TO itab_di_final-nrseq ,
itab_comp_vinc_final-vbeln_va TO itab_di_final-vbeln_va ,
itab_comp_vinc_final-vbeln_vf TO itab_di_final-vbeln_vf ,
itab_comp_vinc_final-posnr TO itab_di_final-posnr ,
itab_zycit085-nrseqdi TO itab_di_final-nrdi ,
itab_zycit085-nrdi TO itab_di_final-reg_di ,
itab_zycit085-dtuserc TO itab_di_final-dtdi ,
itab_zycit100-nrseq TO itab_di_final-nrseqemb ,
itab_zycit100-adicao TO itab_di_final-adicao ,
itab_zycit003-meins TO itab_di_final-meins ,
itab_zycit003-qtd_iten TO itab_di_final-qtd_di ,
itab_zycit003-qtd_iten TO itab_di_final-sdo_qtd ,
itab_zycit003-j_1bnbm TO itab_di_final-j_1bnbm ,
itab_zycit085-dtdesemb TO itab_di_final-dtdesemb ,
itab_zycit003-gewei TO itab_di_final-gewei ,
itab_zycit003-ntgew TO itab_di_final-ntgew ,
itab_zycit003-waers TO itab_di_final-waers ,
itab_zycit003-netpr TO itab_di_final-netpr ,
itab_zycit003-advalii TO itab_di_final-i_txii ,
itab_zycit100-advalpis TO itab_di_final-pis ,
itab_zycit100-advalcofins TO itab_di_final-cofins ,
itab_zycit003-advalipi TO itab_di_final-i_txipi ,
itab_zycit003-advalicms TO itab_di_final-i_txicms ,
itab_zycit003-waers_real TO itab_di_final-i_waerscifme,
itab_zycit100-dttaxbem TO itab_di_final-i_txmoeda ,
itab_zycit100-waersreal TO itab_di_final-i_waerscifmi,
itab_zycit100-waersreal TO itab_di_final-waersimp ,
itab_zycit003-vlreal TO itab_di_final-vlreal ,
itab_zycit100-vlfre TO itab_di_final-vlfrete ,
itab_zycit100-vlseg TO itab_di_final-vlseg .
SELECT SINGLE *
FROM mara INTO mara
WHERE matnr = itab_di_final-codmat.
itab_di_final-gewei = mara-gewei.
itab_di_final-ntgew = itab_di_final-ntgew * v_fator_conv.
itab_di_final-brgew = itab_di_final-brgew * v_fator_conv.
IF itab_zycit001-inco1 EQ 'FOB'.
itab_di_final-valor_u = itab_zycit003-vlreal.
ELSEIF itab_zycit001-inco1 EQ 'CFR'.
itab_di_final-valor_u = ( itab_zycit003-vlreal +
itab_zycit003-vlfre_fat ) - itab_zycit100-vlfre.
ELSEIF itab_zycit001-inco1 EQ 'CIF'.
itab_di_final-valor_u = ( ( itab_zycit003-vlreal +
itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat ) -
itab_zycit100-vlfre ) - itab_zycit100-vlseg.
ELSE.
itab_di_final-valor_u = itab_zycit003-vlreal.
ENDIF.
itab_di_final-valor_u = itab_di_final-valor_u * v_fator_conv.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-vlfrete.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-vlseg.
itab_di_final-vlfrete = itab_di_final-vlfrete /
itab_zycit003-qtd_iten.
itab_di_final-vlseg = itab_di_final-vlseg /
itab_zycit003-qtd_iten.
CHECK itab_di_final-valor_u > 0.
itab_di_final-i_vlcif_me = itab_di_final-valor_u.
itab_di_final-i_vlcif_mi =
itab_di_final-i_vlcif_me * itab_di_final-i_txmoeda.
IF itab_di_final-sdo_qtd <= 0.
CLEAR itab_di_final.
CONTINUE.
ENDIF.
itab_di_final-vlfrete_t = itab_di_final-vlfrete *
itab_di_final-qtd_vinc.
itab_di_final-vlseg_t = itab_di_final-vlseg *
itab_di_final-qtd_vinc.
itab_di_final-vlfob_t = itab_di_final-valor_u *
itab_di_final-qtd_vinc.
itab_di_final-vlfob = itab_di_final-vlfob_t.
PERFORM valor_converte_imp USING itab_zycit085-waersfob
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-vlfob.
itab_di_final-i_vlcifn_mi =
( itab_di_final-vlfob_t * itab_di_final-i_txmoeda ).
v_perc_vinc =
itab_di_final-qtd_vinc / itab_di_final-qtd_di.
itab_di_final-vlpis =
v_perc_vinc * itab_zycit100-vlpis.
itab_di_final-vlcofins =
v_perc_vinc * itab_zycit100-vlcofins.
itab_di_final-vlafrmm = itab_di_final-vlfrete_t *
( 25 / 100 ).
itab_di_final-afrmm = '25'.
itab_di_final-i_vlii =
v_perc_vinc * itab_zycit100-vlii.
itab_di_final-i_vlipi =
v_perc_vinc * itab_zycit100-vlipi.
itab_di_final-i_vlicms =
v_perc_vinc * itab_zycit100-vlicms.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-vlpis.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-vlcofins.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-i_vlii.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-i_vlipi.
PERFORM valor_converte_imp USING /pws/zycbt007-waersb
'USD'
itab_zycit085-dttax
CHANGING itab_di_final-i_vlicms.
itab_di_final-t_benef =
itab_di_final-i_vlii + itab_di_final-i_vlipi.
itab_di_final-v_sel = 'X'.
MOVE-CORRESPONDING itab_di_final TO wa_itab_di_final.
LOOP AT itab_zycit042 WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
CLEAR itab_zycit041.
READ TABLE itab_zycit041 WITH KEY
nrseq = itab_zycit042-nrseqnf
nfglobal = itab_zycit042-nfglobal.
IF sy-subrc EQ 0.
MOVE: itab_zycit041-nfnum TO itab_di_final-nfnum,
itab_zycit041-series TO itab_di_final-serie,
itab_zycit041-dtincl TO itab_di_final-dtnf .
EXIT.
ENDIF.
ENDLOOP.
MODIFY itab_di_final.
IF NOT wa_itab_di_final IS INITIAL.
LOOP AT itab_di_final.
IF
( itab_di_final-nrseqre NE itab_det_exp-nrseqre OR
itab_di_final-vbeln_va NE itab_det_exp-vbeln_va OR
itab_di_final-vbeln_vf NE itab_det_exp-vbeln_vf OR
itab_di_final-posnr NE itab_det_exp-posnr OR
itab_di_final-nrseq NE itab_det_exp-nrseq OR
itab_di_final-codmat NE itab_det_exp-codmat ) AND
( itab_di_final-codcomp EQ
itab_comp_vinc_final-codcomp AND
itab_di_final-nrdi EQ wa_itab_di_final-nrdi AND
itab_di_final-ebeln EQ wa_itab_di_final-ebeln AND
itab_di_final-ebelp EQ wa_itab_di_final-ebelp AND
itab_di_final-nrseqemb EQ wa_itab_di_final-nrseqemb ).
itab_di_final-sdo_qtd =
itab_di_final-sdo_qtd - wa_itab_di_final-qtd_vinc.
MODIFY itab_di_final.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
LOOP AT itab_comp_vinc_final WHERE nrseqre = itab_det_exp-nrseqre
AND nrseq = itab_det_exp-nrseq
AND codmat = itab_det_exp-codmat
AND vbeln_va = itab_det_exp-vbeln_va
AND vbeln_vf = itab_det_exp-vbeln_vf.
itab_comp_vinc_final-qtd_iten = itab_comp_vinc_final-qtd_total /
itab_det_exp-qtd_iten.
MODIFY itab_comp_vinc_final.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM seleciona_di_l.
DATA: itab_zycit244 TYPE /pws/zycit279 OCCURS 0 WITH HEADER LINE.
IF itab_di_final[] IS INITIAL.
EXIT.
ENDIF.
REFRESH: itab_zycit279.
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279
FOR ALL ENTRIES IN itab_di_final
WHERE ebeln EQ itab_di_final-ebeln
AND ebelp EQ itab_di_final-ebelp
AND lote EQ itab_di_final-lote.
IF NOT itab_zycit279[] IS INITIAL.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit279
WHERE nrseqd EQ itab_zycit279-nrseqd
AND tipo EQ 'I'.
ENDIF.
LOOP AT itab_det_exp.
LOOP AT itab_di_final WHERE nrseqre = itab_det_exp-nrseqre
AND nrseq = itab_det_exp-nrseq
AND codmat = itab_det_exp-codmat
AND vbeln_va = itab_det_exp-vbeln_va
AND vbeln_vf = itab_det_exp-vbeln_vf
AND posnr = itab_det_exp-posnr
AND nrdi = space
.
READ TABLE itab_zycit279 WITH KEY
ebeln = itab_di_final-ebeln
ebelp = itab_di_final-ebelp
lote = itab_di_final-lote.
IF sy-subrc NE 0.
DELETE itab_di_final.
CONTINUE.
ENDIF.
IF NOT itab_zycit279-nrseqd IS INITIAL.
READ TABLE itab_zycit244 WITH KEY
nrseqd = itab_zycit279-nrseqd.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
ENDIF.
REFRESH itab_di_final_aux.
itab_di_final_aux[] = itab_di_final[].
MOVE: itab_zycit279-meins TO itab_di_final-meins ,
itab_zycit279-menge TO itab_di_final-qtd_di .
MOVE:
/pws/zycie258-nrseqd TO itab_di_final-nrseqd ,
itab_zycit279-matnr TO itab_di_final-codcomp ,
itab_zycit279-nrseqdi TO itab_di_final-nrdi ,
itab_zycit279-nrdi TO itab_di_final-reg_di ,
itab_zycit279-dtdi TO itab_di_final-dtdi ,
itab_zycit279-nrseq TO itab_di_final-nrseqemb ,
itab_zycit279-adicao TO itab_di_final-adicao ,
itab_zycit279-docnum TO itab_di_final-docnum ,
itab_zycit279-ebeln TO itab_di_final-ebeln ,
itab_zycit279-ebelp TO itab_di_final-ebelp ,
itab_zycit279-meins TO itab_di_final-meins ,
itab_zycit279-menge TO itab_di_final-qtd_di ,
itab_zycit279-nfnum TO itab_di_final-nfnum ,
itab_zycit279-serie TO itab_di_final-serie ,
itab_zycit279-dtnf TO itab_di_final-dtnf ,
itab_zycit279-menge TO itab_di_final-sdo_qtd ,
itab_zycit279-j_1bnbm TO itab_di_final-j_1bnbm ,
itab_zycit279-dtdesemb TO itab_di_final-dtdesemb ,
itab_zycit279-gewei TO itab_di_final-gewei ,
itab_zycit279-ntgew TO itab_di_final-ntgew ,
itab_zycit279-waers TO itab_di_final-waers ,
itab_zycit279-netpr TO itab_di_final-netpr ,
itab_zycit279-i_txii TO itab_di_final-i_txii ,
itab_zycit279-pis TO itab_di_final-pis ,
itab_zycit279-cofins TO itab_di_final-cofins ,
itab_zycit279-i_txipi TO itab_di_final-i_txipi ,
itab_zycit279-i_txicms TO itab_di_final-i_txicms ,
itab_zycit279-waers TO itab_di_final-i_waerscifme,
itab_zycit279-i_txmoeda TO itab_di_final-i_txmoeda ,
itab_zycit279-waers TO itab_di_final-i_waerscifmi,
itab_zycit279-waers TO itab_di_final-waersimp ,
itab_zycit279-vltot TO itab_di_final-vlreal ,
itab_zycit279-vlfrete TO itab_di_final-vlfrete ,
itab_zycit279-vlseg TO itab_di_final-vlseg .
itab_di_final-v_sel = 'X'.
SELECT SINGLE *
FROM mara INTO mara
WHERE matnr = itab_di_final-codmat.
itab_di_final-gewei = mara-gewei.
itab_di_final-ntgew = itab_di_final-ntgew.
itab_di_final-brgew = itab_di_final-brgew.
itab_di_final-valor_u = itab_zycit279-vltot /
itab_zycit279-qtd_ncm.
itab_di_final-vlfrete = itab_di_final-vlfrete /
itab_zycit279-qtd_ncm.
itab_di_final-vlseg = itab_di_final-vlseg /
itab_zycit279-qtd_ncm.
CHECK itab_di_final-valor_u > 0.
itab_di_final-i_vlcif_me = itab_di_final-valor_u.
itab_di_final-i_vlcif_mi =
itab_di_final-i_vlcif_me * itab_di_final-i_txmoeda.
CLEAR wa_itab_di_final.
itab_di_final-vlfrete_t = itab_di_final-vlfrete *
itab_di_final-qtd_vinc.
itab_di_final-vlseg_t = itab_di_final-vlseg *
itab_di_final-qtd_vinc.
itab_di_final-vlfob_t = itab_di_final-valor_u *
itab_di_final-qtd_vinc.
itab_di_final-vlfob = itab_di_final-vlfob_t.
itab_di_final-i_vlcifn_mi =
( itab_di_final-vlfob_t * itab_di_final-i_txmoeda ).
v_perc_vinc =
itab_di_final-qtd_vinc / itab_di_final-qtd_di.
itab_di_final-vlpis =
v_perc_vinc *
( itab_zycit279-basepis *
( itab_zycit279-pis / 100 ) ).
itab_di_final-vlcofins =
v_perc_vinc *
( itab_zycit279-basecofins *
( itab_zycit279-cofins / 100 ) ).
itab_di_final-vlafrmm = itab_di_final-vlfrete_t *
( 25 / 100 ).
itab_di_final-afrmm = '25'.
itab_di_final-i_vlii =
v_perc_vinc *
( itab_zycit279-baseii *
( itab_zycit279-i_txii / 100 ) ).
itab_di_final-i_vlipi =
v_perc_vinc *
( itab_zycit279-baseipi *
( itab_zycit279-i_txipi / 100 ) ).
itab_di_final-i_vlicms =
v_perc_vinc *
( itab_zycit279-baseicms *
( itab_zycit279-i_txicms / 100 ) ).
itab_di_final-vlpis =
itab_di_final-vlpis / itab_di_final-i_txmoeda.
itab_di_final-i_vlii =
itab_di_final-i_vlii / itab_di_final-i_txmoeda.
itab_di_final-i_vlipi =
itab_di_final-i_vlipi / itab_di_final-i_txmoeda.
itab_di_final-vlcofins =
itab_di_final-vlcofins / itab_di_final-i_txmoeda.
itab_di_final-i_vlicms =
itab_di_final-i_vlicms / itab_di_final-i_txmoeda.
itab_di_final-vlafrmm =
itab_di_final-vlafrmm / itab_di_final-i_txmoeda.
itab_di_final-t_benef =
itab_di_final-i_vlii + itab_di_final-i_vlipi.
itab_di_final-v_sel = 'X'.
MOVE-CORRESPONDING itab_di_final TO wa_itab_di_final.
CLEAR itab_comp_vinc_final.
MOVE:
/pws/zycie258-nrseqd TO itab_comp_vinc_final-nrseqd ,
itab_di_final-codmat TO itab_comp_vinc_final-codmat ,
itab_di_final-nrseqre TO itab_comp_vinc_final-nrseqre,
itab_di_final-nrseq TO itab_comp_vinc_final-nrseq ,
itab_di_final-vbeln_va
TO itab_comp_vinc_final-vbeln_va,
itab_di_final-vbeln_vf
TO itab_comp_vinc_final-vbeln_vf,
itab_di_final-posnr TO itab_comp_vinc_final-posnr ,
itab_di_final-codcomp TO itab_comp_vinc_final-codcomp ,
itab_di_final-meins TO itab_comp_vinc_final-meins.
PERFORM converte_um_base USING itab_di_final-codcomp
CHANGING itab_di_final-meins
itab_comp_vinc_final-qtd_iten.
itab_comp_vinc_final-qtd_total = itab_di_final-qtd_vinc.
COLLECT itab_comp_vinc_final.
MODIFY itab_di_final.
IF NOT wa_itab_di_final IS INITIAL.
LOOP AT itab_di_final.
IF
( itab_di_final-nrseqre NE itab_det_exp-nrseqre OR
itab_di_final-vbeln_va NE itab_det_exp-vbeln_va OR
itab_di_final-vbeln_vf NE itab_det_exp-vbeln_vf OR
itab_di_final-posnr NE itab_det_exp-posnr OR
itab_di_final-nrseq NE itab_det_exp-nrseq OR
itab_di_final-codmat NE itab_det_exp-codmat ) AND
( itab_di_final-codcomp EQ
itab_comp_vinc_final-codcomp AND
itab_di_final-docnum EQ wa_itab_di_final-docnum AND
itab_di_final-ebeln EQ wa_itab_di_final-ebeln AND
itab_di_final-ebelp EQ wa_itab_di_final-ebelp ).
itab_di_final-sdo_qtd =
itab_di_final-sdo_qtd - wa_itab_di_final-qtd_vinc.
MODIFY itab_di_final.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
LOOP AT itab_comp_vinc_final WHERE nrseqre = itab_det_exp-nrseqre
AND nrseq = itab_det_exp-nrseq
AND codmat = itab_det_exp-codmat
AND vbeln_va = itab_det_exp-vbeln_va
AND vbeln_vf = itab_det_exp-vbeln_vf.
itab_comp_vinc_final-qtd_iten = itab_comp_vinc_final-qtd_total /
itab_det_exp-qtd_iten.
MODIFY itab_comp_vinc_final.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM seleciona_nf_l.
IF itab_di_final[] IS INITIAL.
EXIT.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064I01
...
itab_di-adicao = /pws/zycie260c-adicao .
itab_di-meins = /pws/zycie260c-meins .
itab_di-qtd_di = /pws/zycie260c-qtd_di .
itab_di-sdo_qtd = /pws/zycie260c-sdo_qtd .
itab_di-qtd_vinc = /pws/zycie260c-qtd_vinc.
* >> Início da exclusão: MODULE PREENCHE_ITAB_DI
itab_di-charg = lips-charg .
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ITAB_DI
itab_di-lote = lips-charg .
* << Fim da inclusão
itab_di-v_sel = v_vsel .
ENDMODULE.
MODULE trata_selecao INPUT.
READ TABLE itab_di INDEX tc_di3-current_line.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064O01
...
/pws/zycie259c-dtre = itab_det_exp-dtre .
/pws/zycie259c-nrseq = itab_det_exp-nrseq .
/pws/zycie259c-dtemb = itab_det_exp-dtemb .
/pws/zycie259c-dtaverb = itab_det_exp-dtaverb .
/pws/zycie259c-gewei = itab_det_exp-gewei .
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0304
/pws/zycie259c-lote = itab_det_exp-lote .
* << Fim da inclusão
/pws/zycie259c-brgew = itab_det_exp-brgew .
/pws/zycie259c-ntgew = itab_det_exp-ntgew .
/pws/zycie259c-meins = itab_det_exp-meins .
/pws/zycie259c-qtd_iten = itab_det_exp-qtd_iten.
/pws/zycie259c-waersfob = itab_det_exp-waersfob.
...
...
/pws/zycie260c-adicao = itab_di-adicao .
/pws/zycie260c-meins = itab_di-meins .
/pws/zycie260c-qtd_di = itab_di-qtd_di .
/pws/zycie260c-sdo_qtd = itab_di-sdo_qtd .
/pws/zycie260c-qtd_vinc = itab_di-qtd_vinc.
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0310
/pws/zycie260c-lote = itab_di-lote.
* << Fim da inclusão
v_vsel = itab_di-v_sel .
ENDMODULE.
MODULE trata_screen_0304 OUTPUT.
DATA: v_ex_vinc .
CLEAR: v_vtc, v_ex_vinc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP3
...
v_ico_det3 TYPE icon-id ,
marc_cp(1) TYPE c ,
v_vsel(1) TYPE c ,
v_vtc(1) TYPE c ,
v_execloop(1) TYPE c ,
* >> Início da inclusão:
v_var_camb3(16) TYPE c ,
v_var_cambt3(16) TYPE c ,
* << Fim da inclusão
v_dtaux LIKE /pws/zycee116-dtincl ,
v_idxtmp LIKE sy-tabix ,
tt_ii LIKE /pws/zycie260d-i_vlii ,
tt_ipi LIKE /pws/zycie260d-i_vlipi ,
tt_icms LIKE /pws/zycie260d-i_vlicms ,
...
...
marc_cp(1) TYPE c.
DATA: END OF itab_comp_vinc_final.
DATA: BEGIN OF itab_di OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_di.
* >> Início da exclusão:
DATA: BEGIN OF itab_di_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_di_final.
* << Fim da exclusão
DATA: BEGIN OF itab_zycit260 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_zycit260.
DATA: itab_di_final_aux LIKE itab_di_final OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF itab_zycit036 OCCURS 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064X01
...
INCLUDE STRUCTURE /pws/zycet092 .
DATA: END OF itab_zycet092 .
DATA: BEGIN OF itab_zycet066 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet066 .
DATA: END OF itab_zycet066 .
* >> Início da inclusão:
DATA: BEGIN OF itab_di_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycie260.
DATA: END OF itab_di_final.
DATA : BEGIN OF itab_zycit468 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit468.
DATA : END OF itab_zycit468.
* << Fim da inclusão
DATA : BEGIN OF itab_zycit371 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit371.
DATA : END OF itab_zycit371.
DATA : BEGIN OF itab_zycit372 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit372.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254
REPORT /pws/zycir070 MESSAGE-ID /pws/zycim.
* >> Início da inclusão:
INCLUDE /pws/zycir254x01.
* << Fim da inclusão
CONTROLS: tc_exp TYPE TABLEVIEW USING SCREEN '0001',
tc_exp_ap TYPE TABLEVIEW USING SCREEN '0002',
tc_imp_ap TYPE TABLEVIEW USING SCREEN '0002',
tc_log TYPE TABLEVIEW USING SCREEN '0003',
tc_exp_desa TYPE TABLEVIEW USING SCREEN '0004'.
...
...
/pws/zycet117,
/pws/zycit327,
/pws/zycit439,
vbap.
.
* >> Início da exclusão:
DATA: BEGIN OF it_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: qtdbx LIKE /pws/zycet002-fkimg,
mexp(1) TYPE c .
DATA: END OF it_zycet002.
* << Fim da exclusão
DATA: BEGIN OF it_zycet001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet001.
DATA: END OF it_zycet001.
DATA: BEGIN OF itab_zycit246 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit246.
...
...
mexp(1) TYPE c.
DATA: END OF it_zycet002_desa.
DATA: BEGIN OF it_apr OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
data: un_ncm like /pws/zycit245-meins,
* >> Início da inclusão:
lote TYPE /pws/zycit468-lote_i,
* << Fim da inclusão
perc(10).
DATA: END OF it_apr.
DATA: BEGIN OF it_apr_final OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
data: un_ncm like /pws/zycit245-meins,
* >> Início da inclusão:
lote TYPE /pws/zycit468-lote_i,
* << Fim da inclusão
perc(10).
DATA: END OF it_apr_final.
DATA: BEGIN OF it_apr_final_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit282.
DATA: END OF it_apr_final_aux.
...
...
perc(10) .
DATA: END OF itab_lista.
data: itab_lista_aux like itab_lista occurs 0 with header line.
data: itab_lista_f like itab_lista occurs 0 with header line.
data: itab_zycit439 like /pws/zycit439 occurs 0 with header line.
* >> Início da inclusão:
DATA: itab_zycit282_aux TYPE /pws/zycit282 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zyglt100 OCCURS 10.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
* << Fim da inclusão
data: begin of it_vbap occurs 0,
vbeln like vbap-vbeln,
netpr like vbap-netpr,
end of it_vbap.
DATA: wa_cols TYPE cxtab_column.
...
...
v_valor_imp like /pws/zycit282-imp_s_cob_camb ,
v_exp_camb like /pws/zycit282-exp_c_cob_camb,
v_ebelp like /pws/zycit282-ebelp ,
v_ebelp2 like /pws/zycit282-ebelp ,
v_imp_camb like /pws/zycit282-imp_s_cob_camb,
* >> Início da inclusão:
v_lote_e TYPE /pws/zycit468-lote_e,
v_lote_i TYPE /pws/zycit468-lote_i,
* << Fim da inclusão
v_exit.
selection-screen BEGIN OF block scr1 WITH frame title text-000.
SELECT-OPTIONS: nrseqexp FOR /pws/zycee002-nrseq ,
vbeln_va FOR /pws/zycee002-vbeln_va,
aupos FOR /pws/zycee002-aupos ,
...
...
v_tptrans = 'A'.
WHEN '/PWS/ZYCIR254_D'.
v_tptrans = 'D'.
ENDCASE.
CLEAR v_exapr.
* >> Início da inclusão:
SELECT SINGLE * FROM /pws/zycit321.
* << Fim da inclusão
IMPORT it_zycet002 FROM MEMORY ID rimc1.
IF sy-subrc NE 0.
PERFORM check_minimum_selection CHANGING v_erro.
CASE v_erro.
WHEN 'N'.
...
...
ENDFORM.
FORM execute_process.
PERFORM trata_ordem_venda.
SORT it_zycet002 BY nrseq vbeln_va vbeln_vf posnr ASCENDING.
tc_exp-top_line = 1.
* >> Início da inclusão: FORM EXECUTE_PROCESS
IF /pws/zycit321-lote NE space.
PERFORM busca_lote_e.
ENDIF.
* << Fim da inclusão
CALL SCREEN 0001.
ENDFORM.
INCLUDE /PWS/ZYCIR254I01.
INCLUDE /PWS/ZYCIR254F01.
INCLUDE /PWS/ZYCIR254O01.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
ENDIF.
ENDFORM.
FORM run_appropriation_exportation.
DATA: v_ncm_temp(5),
v_ncm_b LIKE it_zycet002_grp-steuc.
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
SELECT SINGLE * FROM /pws/zycit321.
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
PERFORM verifica_exit USING 'D'
'/PWS/ZYCIR254'
'APR004'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'APR004' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING sy-ucomm
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit321-lote NE space.
PERFORM aprop_lote.
ELSE.
* << Fim da inclusão
REFRESH itab_zycit439.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439
WHERE dtde <= sy-datum AND
dtate >= sy-datum.
IF NOT it_zycet002[] IS INITIAL.
...
...
ENDIF.
ENDLOOP.
ENDIF.
SORT it_log_erro BY ltext.
DELETE ADJACENT DUPLICATES FROM it_log_erro .
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
ENDIF.
sort it_apr_final by matnr_imp nrseqimp ebeln ebelp.
* << Fim da inclusão
ENDFORM.
FORM check_buttons_screen.
REFRESH it_buttons.
CASE sy-dynnr.
WHEN '0001'.
...
...
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM SAVE_APPROPRIATIONS
IF /pws/zycit321-lote NE space.
REFRESH it_apr_final.
it_apr_final[] = itab_zycit282_aux[].
ENDIF.
* << Fim da inclusão
MODIFY /pws/zycit282 FROM TABLE it_apr_final.
MODIFY /pws/zycit283 FROM TABLE it_zycit283.
MODIFY /pws/zycit247 FROM TABLE it_zycit247_save.
MODIFY /pws/zycit245 FROM TABLE it_zycit245.
MODIFY /pws/zycit279 FROM TABLE it_zycit279_save.
* >> Início da inclusão: FORM SAVE_APPROPRIATIONS
MODIFY /pws/zycit468 FROM TABLE itab_zycit468.
* << Fim da inclusão
COMMIT WORK.
IF sy-subrc EQ 0.
v_aprov = 'S'.
MESSAGE s015 WITH text-011.
CLEAR it_log_erro. REFRESH it_log_erro.
...
...
DESCRIBE TABLE it_zycet002_desa LINES v_ilinhas.
v_cont = 1.
SORT it_zycet002_desa BY nrseq vbeln_va aupos vbeln_vl posnl.
DELETE ADJACENT DUPLICATES FROM it_zycet002_desa COMPARING
nrseq vbeln_va aupos vbeln_vl posnl.
* >> Início da inclusão: FORM RUN_DISPOSSESSION_EXPORTATION
IF /pws/zycit321-lote EQ space.
* << Fim da inclusão
LOOP AT it_zycet002_desa.
v_pct = ( 100 * v_cont ) / v_ilinhas.
IF v_pct > 100.
v_pct = 100.
ENDIF.
...
...
AND aupos = it_zycit282_est-aupos
AND vbeln_vl = it_zycit282_est-vbeln_vl
AND posnl = it_zycit282_est-posnl.
ENDLOOP.
MODIFY /pws/zycit247 FROM TABLE it_zycit247_save.
* >> Início da inclusão: FORM RUN_DISPOSSESSION_EXPORTATION
ELSE.
IF it_zycet002[] IS INITIAL.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468
FOR ALL ENTRIES IN it_zycet002
WHERE nrseqexp = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
SELECT * FROM /pws/zycit282 INTO TABLE it_zycit282
FOR ALL ENTRIES IN it_zycet002
WHERE nrseqexp = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
LOOP AT it_zycet002.
LOOP AT itab_zycit468 WHERE nrseqexp = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
READ TABLE it_zycit279 WITH KEY
nrseq = itab_zycit468-nrseqimp
ebeln = itab_zycit468-ebeln
ebelp = itab_zycit468-ebelp
nrseqd = itab_zycit468-nrseqd
docnum = itab_zycit468-docnumimp
buzei = itab_zycit468-buzei
lote = itab_zycit468-lote_i.
it_zycit279-slqtde =
it_zycit279-slqtde + itab_zycit468-qtd_mimp.
IF it_zycit279-slqtde > 0.
it_zycit279-esgotado = ' '.
ENDIF.
MODIFY it_zycit279 TRANSPORTING slqtde esgotado
WHERE nrseq = itab_zycit468-nrseqimp
AND ebeln = itab_zycit468-ebeln
AND ebelp = itab_zycit468-ebelp
AND nrseqd = itab_zycit468-nrseqd
AND docnum = itab_zycit468-docnumimp
AND buzei = itab_zycit468-buzei
AND lote = itab_zycit468-lote_i.
ENDLOOP.
UPDATE /pws/zycet002 SET staprop = ' '
WHERE nrseq = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
ENDLOOP.
DELETE /pws/zycit282 FROM TABLE it_zycit282.
DELETE /pws/zycit468 FROM TABLE itab_zycit468.
MODIFY /pws/zycit279 FROM TABLE it_zycit279.
ENDIF.
* << Fim da inclusão
COMMIT WORK.
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-026.
LEAVE TO SCREEN 0.
ENDIF.
...
...
exit.
endif.
ENDLOOP.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM verifica_exit USING p_modulo
p_func
p_exit.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = p_modulo
i_func = p_func
i_zexit = p_exit
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDFORM.
FORM aprop_lote.
IF itab_zycit468[] IS INITIAL.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit439 INTO TABLE itab_zycit439.
SELECT * FROM /pws/zycit279 INTO TABLE it_zycit279
FOR ALL ENTRIES IN itab_zycit468
WHERE nrseq EQ itab_zycit468-nrseqimp
AND ebeln EQ itab_zycit468-ebeln
AND ebelp EQ itab_zycit468-ebelp
AND docnum EQ itab_zycit468-docnumimp
AND buzei EQ itab_zycit468-buzei
AND lote EQ itab_zycit468-lote_i.
IF NOT it_zycit279[] IS INITIAL.
SELECT * FROM /pws/zycit247 INTO TABLE it_zycit247
FOR ALL ENTRIES IN it_zycit279
WHERE nrseqd EQ it_zycit279-nrseqd.
SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245
FOR ALL ENTRIES IN it_zycit279
WHERE nrseqd EQ it_zycit279-nrseqd.
SELECT * FROM /pws/zycit244 INTO TABLE it_zycit244
FOR ALL ENTRIES IN it_zycit279
WHERE nrseqd EQ it_zycit279-nrseqd.
ENDIF.
REFRESH it_apr_final.
LOOP AT it_zycet002.
IF t001-bukrs NE it_zycet002-bukrs.
SELECT SINGLE * FROM t001 WHERE bukrs EQ it_zycet002-bukrs.
ENDIF.
LOOP AT itab_zycit468 WHERE nrseqexp = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
READ TABLE it_zycit279 WITH KEY
nrseq = itab_zycit468-nrseqimp
ebeln = itab_zycit468-ebeln
ebelp = itab_zycit468-ebelp
docnum = itab_zycit468-docnumimp
buzei = itab_zycit468-buzei
lote = itab_zycit468-lote_i.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
PERFORM converte_um_ncm USING it_zycit279-matnr
CHANGING itab_zycit468-meins_i
it_zycet002-werks
itab_zycit468-qtd_mimp.
modify itab_zycit468.
READ TABLE it_zycit247 WITH KEY
j_1bnbm = it_zycet002-steuc
nrseqd = it_zycit279-nrseqd.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit279-nrseqd.
IF it_zycit244-status NE 'D'.
DELETE itab_zycit468 WHERE nrseqd EQ itab_zycit468-nrseqd.
CONCATENATE text-031 itab_zycit468-nrseqd text-078
INTO v_errolog SEPARATED BY space.
MOVE v_errolog TO it_log_erro.
APPEND it_log_erro.
CONTINUE.
ENDIF.
CLEAR: it_apr_final.
MOVE: it_zycet002-nrseq TO it_apr_final-nrseqexp ,
it_zycet002-vbeln_va TO it_apr_final-vbeln_va ,
it_zycet002-aupos TO it_apr_final-aupos ,
it_zycet002-vbeln_vf TO it_apr_final-vbeln_vf ,
it_zycet002-posnr TO it_apr_final-posnr ,
it_zycet002-docnum TO it_apr_final-docnum ,
it_zycet002-vbeln_vl TO it_apr_final-vbeln_vl ,
it_zycet002-posnl TO it_apr_final-posnl ,
it_zycet002-ebeln TO it_apr_final-eebeln ,
it_zycet002-ebelp TO it_apr_final-eebelp ,
it_zycet002-steuc TO it_apr_final-j_1bnbmexp,
it_zycit279-nrseq TO it_apr_final-nrseqimp ,
it_zycit279-ebeln TO it_apr_final-ebeln ,
it_zycit279-ebelp TO it_apr_final-ebelp ,
it_zycit279-nrdi TO it_apr_final-nrdi ,
it_zycit279-dtdi TO it_apr_final-dtreg ,
it_zycit279-ebelp TO it_apr_final-ebelp ,
it_zycit279-nrseqd TO it_apr_final-nrseqd ,
it_zycet002-matnr TO it_apr_final-matnr_exp ,
it_zycet002-vrkme TO it_apr_final-meins_e ,
it_zycet002-fkimg TO it_apr_final-qtd_eorg ,
it_zycet002-fkimg TO it_apr_final-qtd_mexp ,
it_zycit279-j_1bnbm TO it_apr_final-j_1bnbmimp,
it_zycet002-fkimg TO it_apr_final-qtd_ncm ,
it_zycet002-vrkme TO it_apr_final-um_ncm ,
it_zycit247-nritem TO it_apr_final-nritem ,
it_zycit279-matnr TO it_apr_final-matnr_imp ,
itab_zycit468-lote_i TO it_apr_final-lote ,
itab_zycit468-meins_i TO it_apr_final-un_ncm ,
itab_zycit468-qtd_mimp TO it_apr_final-qtd_mimp ,
itab_zycit468-qtd_mimp TO it_apr_final-qtd_iorg ,
it_zycit279-meins TO it_apr_final-meins_i .
PERFORM converte_um_ncm USING it_apr_final-matnr_exp
CHANGING it_apr_final-um_ncm
it_zycet002-werks
it_apr_final-qtd_ncm.
it_apr_final-mengecom = it_zycit279-slqtde.
it_apr_final-perc = '100%'.
WRITE it_apr_final-perc TO it_apr_final-perc RIGHT-JUSTIFIED.
READ TABLE itab_zycit439 WITH KEY
insumo = it_apr_final-matnr_imp
matnr = it_zycet002-matnr.
IF sy-subrc EQ 0.
IF itab_zycit439-perda IS INITIAL.
READ TABLE it_zycit245 WITH KEY
nrseqd = it_apr_final-nrseqd
j_1bnbm = it_zycit279-j_1bnbm.
IF sy-subrc EQ 0.
it_apr_final-perda = it_zycit245-perda.
ENDIF.
ELSE.
it_apr_final-perda = itab_zycit439-perda.
ENDIF.
ELSEIF it_zycit244-tipo EQ 'G'.
READ TABLE it_zycit245 WITH KEY
nrseqd = it_apr_final-nrseqd
j_1bnbm = it_zycit279-j_1bnbm.
IF sy-subrc EQ 0.
it_apr_final-perda = it_zycit245-perda.
ELSE.
READ TABLE it_zycit245 WITH KEY
nrseqd = it_apr_final-nrseqd.
IF sy-subrc EQ 0.
it_apr_final-perda = it_zycit245-perda.
ENDIF.
ENDIF.
ENDIF.
it_apr_final-qtd_perda =
it_apr_final-qtd_mimp * ( it_apr_final-perda / 100 ).
IF it_zycit244-importacao NE 'X'.
it_apr_final-exp_c_cob_camb =
it_zycet002-fkimg * it_zycit247-tolling.
CLEAR v_valor_imp.
v_valor_imp = it_zycit279-valor.
it_apr_final-imp_s_cob_camb =
it_apr_final-qtd_mimp *
( v_valor_imp / it_zycit279-i_txmoeda ).
ELSE.
SELECT vbeln netpr FROM vbap
INTO TABLE it_vbap
WHERE vbeln EQ it_apr_final-vbeln_va.
READ TABLE it_vbap WITH KEY vbeln = it_apr_final-vbeln_va.
IF sy-subrc EQ 0.
it_apr_final-exp_c_cob_camb =
it_apr_final-qtd_mexp * it_vbap-netpr.
ENDIF.
ENDIF.
it_zycit279-slqtde = it_zycit279-slqtde -
it_apr_final-qtd_mimp.
IF it_zycit279-slqtde <= 0.
it_zycit279-esgotado = 'X'.
ENDIF.
MODIFY it_zycit279 TRANSPORTING esgotado slqtde
WHERE nrseq = itab_zycit468-nrseqimp
AND ebeln = itab_zycit468-ebeln
AND ebelp = itab_zycit468-ebelp
AND docnum = itab_zycit468-docnumimp
AND buzei = itab_zycit468-buzei
AND lote = itab_zycit468-lote_i.
APPEND it_apr_final.
itab_zycit282_aux = it_apr_final.
COLLECT itab_zycit282_aux.
ENDLOOP.
MOVE: it_zycet002-fkimg TO itab_zycit282_aux-qtd_eorg ,
it_zycet002-fkimg TO itab_zycit282_aux-qtd_mexp ,
it_zycet002-fkimg TO it_zycet002-qtdbx ,
it_zycet002-fkimg TO itab_zycit282_aux-qtd_ncm ,
it_zycet002-vrkme TO itab_zycit282_aux-um_ncm .
PERFORM converte_um_ncm USING it_zycet002-matnr
CHANGING itab_zycit282_aux-um_ncm
it_zycet002-werks
itab_zycit282_aux-qtd_ncm.
MODIFY itab_zycit282_aux TRANSPORTING qtd_eorg qtd_mexp qtd_ncm
WHERE nrseqexp = it_zycet002-nrseq
AND vbeln_va = it_zycet002-vbeln_va
AND aupos = it_zycet002-aupos
AND vbeln_vl = it_zycet002-vbeln_vl
AND posnl = it_zycet002-posnl.
MODIFY it_zycet002.
ENDLOOP.
REFRESH it_zycit279_save.
it_zycit279_save[] = it_zycit279[].
ENDFORM.
FORM busca_lote_e.
DATA: BEGIN OF itab_lote OCCURS 0.
DATA: vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
lote TYPE lips-charg.
DATA: END OF itab_lote .
FREE itab_lote.
IF NOT it_zycet002[] IS INITIAL.
SELECT vbeln posnr charg FROM lips INTO TABLE itab_lote
FOR ALL ENTRIES IN it_zycet002
WHERE vbeln EQ it_zycet002-vbeln_vl
AND posnr EQ it_zycet002-posnl.
LOOP AT itab_lote .
it_zycet002-lote = itab_lote-lote.
MODIFY it_zycet002 TRANSPORTING lote
WHERE vbeln_vl EQ itab_lote-vbeln
AND posnl EQ itab_lote-posnr.
ENDLOOP.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254O01
...
/pws/zycee002-ebeln = it_zycet002-ebeln.
/pws/zycee002-ebelp = it_zycet002-ebelp.
/pws/zycee002-fkimg = it_zycet002-fkimg.
/pws/zycee002-vrkme = it_zycet002-vrkme.
/pws/zycee002-matnr = it_zycet002-matnr.
* >> Início da inclusão: MODULE FILL_SCREEN_0001
v_lote_e = it_zycet002-lote.
* << Fim da inclusão
mexp = it_zycet002-mexp.
ENDMODULE.
MODULE set_screen OUTPUT.
DESCRIBE TABLE it_zycet002 LINES v_ilinhas.
tc_exp-lines = v_ilinhas.
* >> Início da inclusão: MODULE SET_SCREEN
LOOP AT tc_exp-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_exp-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDMODULE.
MODULE select_text_material OUTPUT.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_mtxt1_0001
WHERE matnr = /pws/zycee002-matnr
AND spras = sy-langu.
...
...
/pws/zycee002-fkimg = it_zycet002-fkimg.
/pws/zycee002-vrkme = it_zycet002-vrkme.
/pws/zycee002-matnr = it_zycet002-matnr.
v_qtdbx = it_zycet002-qtdbx.
v_saldo_mat = it_zycet002-fkimg - v_qtdbx.
* >> Início da inclusão: MODULE FILL_SCREEN_0002_EXP
v_lote_e = it_zycet002-lote.
* << Fim da inclusão
PERFORM cob_camb.
ENDMODULE.
MODULE select_text_material2_exp OUTPUT.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_mtxt1_0002
WHERE matnr = /pws/zycee002-matnr
...
...
v_perc = it_apr-perc .
/pws/zycie282-perda = it_apr-perda .
/pws/zycie282-qtd_perda = it_apr-qtd_perda .
/pws/zycie282-perda_e = it_apr-perda_e .
/pws/zycie282-qtd_perda_e = it_apr-qtd_perda_e .
* >> Início da inclusão: MODULE FILL_SCREEN_0002_IMP
v_lote_i = it_apr-lote.
* << Fim da inclusão
v_perc_di = ( /pws/zycie282-mengecom / /pws/zycie282-qtd_iorg )
* 100.
IF v_perc_di > 100.
v_perc_di = 100.
ENDIF.
...
...
MODULE set_screen2 OUTPUT.
DESCRIBE TABLE it_zycet002 LINES v_ilinhas.
tc_exp_ap-lines = v_ilinhas.
DESCRIBE TABLE it_apr LINES v_ilinhas.
tc_imp_ap-lines = v_ilinhas.
* >> Início da inclusão: MODULE SET_SCREEN2
LOOP AT tc_exp_ap-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_exp_ap-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT tc_imp_ap-cols INTO wa_cols.
IF /pws/zycit321-lote EQ space.
IF wa_cols-screen-group1 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
ELSE.
IF wa_cols-screen-group2 EQ 'LOT'.
wa_cols-invisible = 1.
MODIFY tc_imp_ap-cols FROM wa_cols.
ENDIF.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDMODULE.
MODULE status_0003 OUTPUT.
SET PF-STATUS '0003'.
SET TITLEBAR '0001' WITH text-014.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 052
Texto: (45 caracteres)
"Marcar una liña válida en folder Componentes!"
Comprimento máximo: 46
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 067
Texto: (33 caracteres)
"Saldo de Importaciones (Cantidad)"
Comprimento máximo: 38
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 070
Texto: (38 caracteres)
"Saldo de Exportaciones(Valores en USD)"
Comprimento máximo: 38
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 101
Texto: (43 caracteres)
"Peso Bruto no puede ser menor que Peso Neto"
Comprimento máximo: 49
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 104
Texto: (45 caracteres)
"Marcar una liña válida en folder Componentes!"
Comprimento máximo: 46
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 140
Texto: (23 caracteres)
"Sólo es posible exhibir"
Comprimento máximo: 23
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 146
Texto: (35 caracteres)
"Peso Neto Unit.informado difiere de"
Comprimento máximo: 38
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 153
Texto: (4 caracteres)
"Iten"
Comprimento máximo: 10
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 154
Texto: (46 caracteres)
"de la exportación excedió previsto adentro en:"
Comprimento máximo: 59
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 167
Texto: (44 caracteres)
"Actualización de datos no puede ser grabada!"
Comprimento máximo: 44
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 181
Texto: (10 caracteres)
"Material -"
Comprimento máximo: 10
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 185
Texto: (44 caracteres)
"Acto Concessório no se coloca en el SISCOMEX"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 192
Texto: (33 caracteres)
"La Variación Cambial excedió 60%."
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 193
Texto: (27 caracteres)
"Verifica Status y Modalidad"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 194
Texto: (72 caracteres)
"Comprobación del Acto Conc insertado en la alinea transmisión con "
"éxito."
Comprimento máximo: 75
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 195
Texto: (58 caracteres)
"Status del documento fue actualizado en la líne de transm."
Comprimento máximo: 58
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 196
Texto: (53 caracteres)
"Problemas a insertar/actualizar la línea de transmis."
Comprimento máximo: 53
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 197
Texto: (31 caracteres)
"¡Obligatorio satisfacer el NCM!"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 198
Texto: (12 caracteres)
"en cabecera!"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 199
Texto: (49 caracteres)
"Centro e LT Alternativa no pertenence ao Agrupam."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 200
Texto: (37 caracteres)
"Centro no exhiste a este agrupamiento"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 201
Texto: (45 caracteres)
"LT Alternativa no exhiste a este Agrupamiento"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 202
Texto: (40 caracteres)
"¡Obligatorio satisfacer el Agrupamiento!"
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 203
Texto: (30 caracteres)
"No hay formularios cadastrados"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 204
Texto: (27 caracteres)
"la transación /PWS/ZYCET067"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 205
Texto: (20 caracteres)
"Datos no encontrados"
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 206
Texto: (48 caracteres)
"Entrada duplicado de NCM y Agrupam. no permitido"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 207
Texto: (9 caracteres)
"Importac."
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 208
Texto: (15 caracteres)
"Mercado Interno"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 209
Texto: (36 caracteres)
"Poner primero el nº del registro del"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 210
Texto: (38 caracteres)
"Acto Concesorio y fecha de deferimient"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 211
Texto: (37 caracteres)
"no fue parámetrizado para el cliente."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 212
Texto: (45 caracteres)
"cerado.Verificar el folder de Mercado Interno"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 213
Texto: (60 caracteres)
"Modificaciones habían sido hechas ¿Reapurar itens de la LT ?"
Comprimento máximo: 62
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 214
Texto: (4 caracteres)
"De.:"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 215
Texto: (6 caracteres)
"Para.:"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 216
Texto: (19 caracteres)
"Centro fue cambiado"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 217
Texto: (4 caracteres)
"Ítem"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 218
Texto: (16 caracteres)
"Unidad de Medida"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 219
Texto: (24 caracteres)
"Cantidade Comercializada"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 220
Texto: (5 caracteres)
"Moned"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 221
Texto: (12 caracteres)
"FOB unitario"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 222
Texto: (9 caracteres)
"FOB Total"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 223
Texto: (11 caracteres)
"Tolling Fee"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 224
Texto: (9 caracteres)
"Exportac."
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 225
Texto: (5 caracteres)
"Folde"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 226
Texto: (18 caracteres)
"Alrerac. del campo"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 227
Texto: (50 caracteres)
"Alteración de la fecha expiración del Act Conc de:"
Comprimento máximo: 51
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 228
Texto: (52 caracteres)
"Alteración de la fecha expiración del Act Conc para:"
Comprimento máximo: 53
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 229
Texto: (72 caracteres)
"__________________________________________________________________"
"______"
Comprimento máximo: 72
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 230
Texto: (12 caracteres)
"fue excluido"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 231
Texto: (12 caracteres)
"fue agregado"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 232
Texto: (6 caracteres)
"Centro"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 233
Texto: (48 caracteres)
"no puede ser excluido por lo tanto se está util."
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 234
Texto: (24 caracteres)
"Marcar una línea valida!"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 235
Texto: (21 caracteres)
"Llenar la tasa Selic."
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 236
Texto: (30 caracteres)
"No hay cantidade a nacionaliz."
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 237
Texto: (6 caracteres)
"Unidad"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 238
Texto: (38 caracteres)
"no esta parametrizado para el material"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 239
Texto: (46 caracteres)
"Insumos sin vinculación no pudem ser aprobados"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 240
Texto: (47 caracteres)
"Unidad de medida Siscomex no está correctamente"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 241
Texto: (22 caracteres)
"parametrizado para NCM"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 242
Texto: (6 caracteres)
"Carece"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 243
Texto: (44 caracteres)
"dias para el expiración del Acto Concesorio."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 244
Texto: (32 caracteres)
"Fecha de expiración fue atingida"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 245
Texto: (40 caracteres)
"Expiración final no puede ser inferior a"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 246
Texto: (7 caracteres)
"C/ ICMS"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 247
Texto: (7 caracteres)
"S/ ICMS"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 248
Texto: (30 caracteres)
"Forecast no utuliza el centro:"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 249
Texto: (10 caracteres)
"Precio Net"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 250
Texto: (9 caracteres)
"Valor FOB"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 251
Texto: (17 caracteres)
"Valor Flete Total"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 252
Texto: (12 caracteres)
"Valor Seguro"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 253
Texto: (3 caracteres)
"USD"
Comprimento máximo: 3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 254
Texto: (2 caracteres)
"R$"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 255
Texto: (44 caracteres)
"Código NCM no parametrizado para el material"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 256
Texto: (44 caracteres)
"se coloca en cadastre en más que una planta."
Comprimento máximo: 59
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 257
Texto: (42 caracteres)
"Favor llenar el centro en el campo debido."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 258
Texto: (8 caracteres)
"Material"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 259
Texto: (46 caracteres)
"Existen Ventas en Mercado Interno para Centros"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 260
Texto: (25 caracteres)
"no inclusos en el Cabecer"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 261
Texto: (46 caracteres)
"No fueram encontrados materiais intermediarios"
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 262
Texto: (33 caracteres)
"validos para el producto acabado:"
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 263
Texto: (41 caracteres)
"no informado en el cabecera del Acto Conc"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 264
Texto: (46 caracteres)
"no parametrizado para el Industrial-Exportador"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 265
Texto: (2 caracteres)
"DI"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 266
Texto: (28 caracteres)
"no possue fecha del registro"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 267
Texto: (39 caracteres)
"Balance del transference fue alcanzado!"
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 268
Texto: (24 caracteres)
"Balance del Acto Conces."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 269
Texto: (37 caracteres)
"es escaso llevar con el transference."
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 270
Texto: (28 caracteres)
"no existe en el Acto Conces."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 271
Texto: (49 caracteres)
"Situación del Acto Concesorio debe ser concedida."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 272
Texto: (49 caracteres)
"Acto Concesorio debe ser do tipo Generico o Comum"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 273
Texto: (15 caracteres)
"Acto Concesorio"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 274
Texto: (39 caracteres)
"Modalidad del Acto Conces. es Exención."
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 275
Texto: (38 caracteres)
"no posee Acto Concesorio del destinac."
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 276
Texto: (18 caracteres)
"no fue encontrado."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 277
Texto: (38 caracteres)
"con tipo diferente de Generico o Comum"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 278
Texto: (29 caracteres)
"Modalidad del Acto Concesorio"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 279
Texto: (16 caracteres)
"no és suspensión"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 280
Texto: (26 caracteres)
"Situación del Acto Conces."
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 281
Texto: (15 caracteres)
"no és deferido."
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 282
Texto: (3 caracteres)
"UMB"
Comprimento máximo: 3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 283
Texto: (10 caracteres)
"UM Comerc."
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 284
Texto: (8 caracteres)
"Cant.UMB"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 285
Texto: (12 caracteres)
"Cant Comerc."
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 286
Texto: (9 caracteres)
"UM Pedido"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 287
Texto: (4 caracteres)
"Cant"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 288
Texto: (31 caracteres)
"Acto Concesorio atado con éxito"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 289
Texto: (28 caracteres)
"Sin permissión para el Cent:"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 290
Texto: (30 caracteres)
"Sin Permissión para la Trans.:"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 291
Texto: (29 caracteres)
"Sin Permissión para la Compñ:"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 292
Texto: (28 caracteres)
"Sin permissión para el Cent:"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 293
Texto: (50 caracteres)
"Usuario sin autorización para inclusión del objeto"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 294
Texto: (39 caracteres)
"en la línea de transmisión del SISCOMEX"
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 295
Texto: (47 caracteres)
"Fueram realizados ajustes en la carpeta de exp."
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 296
Texto: (32 caracteres)
"Reapurar los itens de importac.:"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 297
Texto: (5 caracteres)
"Total"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 298
Texto: (7 caracteres)
"Parcial"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 299
Texto: (8 caracteres)
"Cancelar"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 300
Texto: (8 caracteres)
"Reapurar"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 301
Texto: (9 caracteres)
"Extensión"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 302
Texto: (38 caracteres)
"Realmente desea transmitir el añadido?"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 303
Texto: (22 caracteres)
"Transmissión del Añad."
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 304
Texto: (24 caracteres)
"No exitem RE¿s a probar."
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 305
Texto: (48 caracteres)
"Realmente desea enviar la comprobac. al SISCOMEX"
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 306
Texto: (28 caracteres)
"Existen RE¿s que se probará."
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 307
Texto: (45 caracteres)
"¿Realmente desea dar bajo en el Acto Conces.?"
Comprimento máximo: 46
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 308
Texto: (18 caracteres)
"Flete provisionado"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 309
Texto: (19 caracteres)
"Seguro provisionado"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 310
Texto: (41 caracteres)
"Item não possui saldo para trasferência /"
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 311
Texto: (15 caracteres)
"nacionalização!"
Comprimento máximo: 15
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_DTEXP1
Texto: (22 caracteres)
"Fecha R.E. De:"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_DTEXP2
Texto: (24 caracteres)
"Fecha R.E. Hasta"
Referência ao Dictionary: NÃO
------------------------------------------------------------------------
Excluído texto de seleção:
Idioma: ES
Variável (SELECT-OPTION / PARAMETER): P_MATNR
Texto: (19 caracteres)
"Materia De:"
Referência ao Dictionary: NÃO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCIR254
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (15 caracteres)
"Ato Concessório"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 078
Texto: (18 caracteres)
"não está deferido."
Comprimento máximo: 18
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE246
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
DATACI DATUM DATS 8
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE246C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
DATACI DATUM DATS 8
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE246D
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
DATACI DATUM DATS 8
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE248
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
SEQCOMPV CHAR05 CHAR 5
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE248C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
SEQCOMPV CHAR05 CHAR 5
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
AGRUP /PWS/ZYGLL1072 CHAR 3
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
AGRUP /PWS/ZYGLL1072 CHAR 3
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE259D
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
AGRUP /PWS/ZYGLL1072 CHAR 3
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE260
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
ITMNUM J_1BITMNUM NUMC 6
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
REG_DI /PWS/ZYCIL299 CHAR 11
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE260C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
ITMNUM J_1BITMNUM NUMC 6
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
REG_DI /PWS/ZYCIL299 CHAR 11
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE260D
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
ITMNUM J_1BITMNUM NUMC 6
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
REG_DI /PWS/ZYCIL299 CHAR 11
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE261
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
CODCOMP MATNR CHAR 18
* >> Início da inclusão.
VBELN_VL VBELN_VL CHAR 10
POSNL POSNR_VL NUMC 6
* >> Fim da inclusão.
MEINS BSTME T006 UNIT 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE261C
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
CODCOMP MATNR CHAR 18
* >> Início da inclusão.
VBELN_VL VBELN_VL CHAR 10
POSNL POSNR_VL NUMC 6
* >> Fim da inclusão.
MEINS BSTME T006 UNIT 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE330
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
...
EBELP /PWS/ZYCIL548 NUMC 5
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
MEINS BSTME T006 UNIT 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT246
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
DATACI DATUM DATS 8
* >> Início da inclusão.
LOTE LICHN CHAR 15
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT248
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
SEQCOMPV CHAR05 CHAR 5
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT259
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
AGRUP /PWS/ZYGLL1072 CHAR 3
* >> Início da inclusão.
LOTE CHARG_D CHAR 10
* >> Fim da inclusão.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT260
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
ITMNUM J_1BITMNUM NUMC 6
* >> Início da inclusão.
LOTE X LICHN CHAR 15
* >> Fim da inclusão.
REG_DI /PWS/ZYCIL299 CHAR 11
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT261
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
CODCOMP X MATNR CHAR 18
* >> Início da inclusão.
VBELN_VL X VBELN_VL CHAR 10
POSNL X POSNR_VL NUMC 6
* >> Fim da inclusão.
MEINS BSTME UNIT 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT282
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT330
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
EBELP X /PWS/ZYCIL548 NUMC 5
* >> Início da inclusão.
LOTE X LICHN CHAR 15
* >> Fim da inclusão.
MEINS BSTME UNIT 3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT468
Criar:
Tabela transparente: /PWS/ZYCIT468
Descrição breve: CI - CONTROLE DE LOTES NA APROPRIAÇÃO
Classe de entrega: A
Campos:
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT X MANDT CLNT 3
NRSEQEXP X /PWS/ZYCEL001 CHAR 10
VBELN_VA X VBELN_VA CHAR 10
AUPOS X POSNR_VA NUMC 6
VBELN_VL X VBELN_VL CHAR 10
POSNL X POSNR_VL NUMC 6
NRSEQIMP X /PWS/ZYCIL001 CHAR 10
EBELN X EBELN CHAR 10
EBELP X EBELP NUMC 5
DOCNUMIMP X J_1BDOCNUM NUMC 10
BUZEI X RBLGP NUMC 6
NRSEQD X /PWS/ZYCIL435 CHAR 10
LOTE_I X LICHN CHAR 15
LOTE_E CHARG_D CHAR 10
QTD_MIMP /PWS/ZYCIL473 QUAN 23
MEINS_I MEINS UNIT 3