Visualização da Nota 1897

CE PLUS - Nota 001897

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: BL

Data/Hora da Publicação: 08/08/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:50:32

Descrição da Nota: CUSTO DE FRETE INTERNO NA IMPORTAÇÃO TOTALIZAR O CUSTO DA IMPORTAÇÃO NO

Sintoma

Custo de Frete Interno na Importação Totalizar o custo da importação no PWCE, incluindo o valor de

frete interno.

Solução

Abertura de EXit para atender necessidade especifica.

Versões Tratadas

6.0

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 01897 Data: 08/08/2006 Hora: 15:46:49

----------------------------------------------------------------------------------------------------

Nota Número : 01897

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 6.0

Pacote : 00024

Agrupamento : 00126

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

CUSTO DE FRETE INTERNO NA IMPORTAÇÃO TOTALIZAR O CUSTO DA IMPORTAÇÃO NO

----------------------------------------------------------------------------------------------------

Palavras Chave:

CUSTO - FRETE - INTERNO - TOTALIZAR

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCI002 0050

DYNP /PWS/SAPMZYCI002 0101

RELE F6DK936006 20060807 102331 PWSCI

REPS /PWS/MZYCI002O01

REPS /PWS/MZYCI002OO

REPS /PWS/MZYCI002TOP

REPS /PWS/MZYCI002X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI002 0050

...

PROCESS BEFORE OUTPUT.

MODULE: STATUS_0050,

status_custom_0050,

* << inicio da inclusão

exit_tela.

* >> Fim da inclusão

CALL SUBSCREEN SA_0050_1 INCLUDING SY-REPID GV_SUBSCREEN_0050.

PROCESS AFTER INPUT.

CALL SUBSCREEN SA_0050_1.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI002 0101

...

process before output.

module: set_screen_0100,

* << inicio da inclusão

exit_tela .

* >> Fim da inclusão

process after input.

field /pws/zycie093-dtprcheg module verifica_dtprcheg.

field /pws/zycie093-dtcheg module verifica_dtcheg .

field /pws/zycie093-brgewd module verifica_peso .

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002O01

...

SET HANDLER evt_receiver->on_sapevent

FOR html_control.

PERFORM load_home_page.

ENDIF.

ENDMODULE.

* >> Início da inclusão:

module exit_tela output.

PERFORM verifica_exit USING 'D'

'/PWS/SAPMZYCI002'

'BL003'.

CLEAR itab_zyglt100.

READ TABLE itab_zyglt100 WITH KEY zexit = 'BL003' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario) IN PROGRAM

(itab_zyglt100-programa).

ENDIF.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002TOP

PROGRAM /pws/sapmzyci002

MESSAGE-ID /pws/zycim .

INCLUDE /pws/mzyci002oo.

INCLUDE /pws/zygl_bot.

* >> Início da inclusão:

include /pws/mzyci002x01.

* << Fim da inclusão

TABLES : j_1bbranch ,

indx ,

lfa1 ,

t001 ,

t615 ,

t615t ,

thead ,

* >> Início da exclusão:

/pws/zycit000 ,

/pws/zycie001 ,

/pws/zycit001 ,

/pws/zycie003 ,

/pws/zycit003 ,

/pws/zycit006 ,

/pws/zycit105 ,

/pws/zycie014 ,

/pws/zycit394 ,

/pws/zycit014 ,

/pws/zycie055 ,

/pws/zycit055 ,

/pws/zycie085 ,

/pws/zycit085 ,

/pws/zycie093 ,

/pws/zycit093 ,

/pws/zycie093a ,

/pws/zycie094 ,

/pws/zycit094 ,

/pws/zycit100 ,

/pws/zycit117 ,

/pws/zycie383 ,

/pws/zycie100 ,

/pws/zycit383 ,

* << Fim da exclusão

/pws/zyglt100.

CONTROLS: ts_bl TYPE TABSTRIP ,

tabctrl1 TYPE TABLEVIEW USING SCREEN 0105,

tab_log TYPE TABLEVIEW USING SCREEN 0004,

tc_lista TYPE TABLEVIEW USING SCREEN 0002,

tc_comp TYPE TABLEVIEW USING SCREEN 0103,

tc_emb TYPE TABLEVIEW USING SCREEN 0104,

tc_detitem TYPE TABLEVIEW USING SCREEN 0200,

tc_selitem TYPE TABLEVIEW USING SCREEN 0201.

* >> Início da inclusão:

Data: wa_cols TYPE cxtab_column,

e_subrc LIKE sy-subrc,

wa_cols2 TYPE cxtab_column,

v_nrcontainer TYPE /pws/zycit055-nrcontainer,

e_exec_okcode.

* << Fim da inclusão

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit055s OCCURS 0.

INCLUDE STRUCTURE /pws/zycit055.

DATA: END OF itab_zycit055s.

DATA: BEGIN OF itab_zycit093s OCCURS 0.

INCLUDE STRUCTURE /pws/zycit093.

DATA: END OF itab_zycit093s.

DATA: BEGIN OF itab_zycit001 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit001.

DATA: END OF itab_zycit001.

* << Fim da exclusão

DATA: BEGIN OF itab_zycet133 OCCURS 0,

codarmad TYPE /pws/zycet133-codarmad,

codagente TYPE /pws/zycet133-codagente,

free_time TYPE /pws/zycet133-free_time.

DATA: END OF itab_zycet133.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit117 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit117.

DATA: END OF itab_zycit117.

DATA: BEGIN OF itab_zycit094s OCCURS 0.

INCLUDE STRUCTURE /pws/zycie094.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit094s.

DATA: BEGIN OF itab_zycit094a OCCURS 0.

INCLUDE STRUCTURE /pws/zycie094.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit094a.

DATA: BEGIN OF itab_zycit383 OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit383.

DATA: BEGIN OF itab_selreg OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_selreg.

DATA: BEGIN OF itab_salva OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_salva.

DATA: BEGIN OF itab_qtd OCCURS 0.

INCLUDE STRUCTURE /pws/zycit383.

DATA: END OF itab_qtd.

DATA: BEGIN OF itab_zycit383c OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit383c.

DATA: BEGIN OF itab_zycit383aux OCCURS 0 ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_zycit383aux.

DATA: BEGIN OF itab_zycit094 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit094.

DATA: END OF itab_zycit094.

DATA: BEGIN OF itab_zycit055c OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: END OF itab_zycit055c.

DATA: BEGIN OF itab_zycit014 OCCURS 0.

INCLUDE STRUCTURE /pws/zycie014.

DATA: marc2(1) TYPE c.

DATA: END OF itab_zycit014.

DATA: BEGIN OF itab_zycit014a OCCURS 0.

INCLUDE STRUCTURE /pws/zycie014.

DATA: marc2(1) TYPE c.

DATA: END OF itab_zycit014a.

DATA: BEGIN OF it_zycit001_sel OCCURS 0 .

DATA: nrseq LIKE /pws/zycie001-nrseq ,

embarca LIKE /pws/zycie001-embarca ,

bukrs LIKE /pws/zycie001-bukrs ,

werks LIKE /pws/zycie001-werks ,

waers LIKE /pws/zycie001-waers ,

lifnr LIKE /pws/zycie001-lifnr ,

inco1 LIKE /pws/zycie001-inco1 ,

dtinicio LIKE /pws/zycie001-dtinicio ,

j_1bbranch LIKE /pws/zycie001-j_1bbranch,

paorigem LIKE /pws/zycie001-paorigem ,

meioemba LIKE /pws/zycie001-meioemba ,

nrseq003 LIKE /pws/zycie003-nrseq ,

ebeln LIKE /pws/zycie003-ebeln ,

bednr LIKE /pws/zycie003-bednr .

DATA: END OF it_zycit001_sel .

DATA: BEGIN OF itab_identify OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-identify,

high LIKE /pws/zycie093a-identify,

END OF itab_identify.

DATA: BEGIN OF itab_meiotransp OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-meiotransp,

high LIKE /pws/zycie093a-meiotransp,

END OF itab_meiotransp.

DATA: BEGIN OF itab_dtemiss OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-dtemiss,

high LIKE /pws/zycie093a-dtemiss,

END OF itab_dtemiss.

DATA: BEGIN OF itab_nrcontainer OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie055-nrcontainer,

high LIKE /pws/zycie055-nrcontainer,

END OF itab_nrcontainer.

DATA: BEGIN OF itab_zycit055 OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit055.

DATA: BEGIN OF itab_zycit055a OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit055a.

DATA: BEGIN OF xthead OCCURS 50.

INCLUDE STRUCTURE thead.

DATA: END OF xthead.

DATA: rtext LIKE tline OCCURS 50 WITH HEADER LINE.

DATA: BEGIN OF itab_tline2 OCCURS 50.

DATA: tdline LIKE tline-tdline.

DATA: END OF itab_tline2.

DATA: BEGIN OF itab_botoes OCCURS 0.

DATA: button_name(10) TYPE c .

DATA: END OF itab_botoes.

DATA: BEGIN OF itab_transp_emb OCCURS 0.

INCLUDE STRUCTURE /pws/zycit094.

DATA: END OF itab_transp_emb.

DATA: BEGIN OF itab_log_erro OCCURS 0.

DATA: v_txt_log(63) TYPE c.

DATA: END OF itab_log_erro.

DATA: BEGIN OF itab_zycit041 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit041.

DATA: END OF itab_zycit041.

DATA: BEGIN OF itab_zycit100 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit100.

DATA: END OF itab_zycit100.

DATA: BEGIN OF itab_zyglt100 OCCURS 10.

INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

DATA: BEGIN OF it_ekpo OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

werks LIKE ekpo-werks,

END OF it_ekpo.

DATA: BEGIN OF it_ekpo_aux OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

idnlf LIKE ekpo-idnlf,

END OF it_ekpo_aux.

DATA: BEGIN OF itab_zycit013 OCCURS 0.

INCLUDE STRUCTURE /pws/zycie013.

DATA: END OF itab_zycit013.

DATA: BEGIN OF itab_zycit003 OCCURS 0.

INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

uebto LIKE ekpo-uebto,

uebtk LIKE ekpo-uebtk,

noinitial,

mark,

idnlf LIKE mepo1319-idnlf.

DATA: END OF itab_zycit003.

* << Fim da exclusão

DATA: BEGIN OF itab_t001 OCCURS 0,

bukrs TYPE t001-bukrs,

land1 TYPE t001-land1,

END OF itab_t001.

* >> Início da exclusão:

DATA: BEGIN OF wa_lfa1,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

land1 LIKE lfa1-land1,

END OF wa_lfa1.

DATA: BEGIN OF wa093,

bukrs LIKE /pws/zycie093-bukrs,

meiotransp LIKE /pws/zycie093-meiotransp,

paemb LIKE /pws/zycie093-paemb ,

paispae LIKE /pws/zycie093-paispae ,

padest LIKE /pws/zycie093-padest ,

paispad LIKE /pws/zycie093-paispad ,

embarca LIKE /pws/zycie093-embarca ,

END OF wa093.

DATA: wa_zycie093 LIKE /pws/zycie093 ,

wa_cols TYPE cxtab_column ,

wa_zycie085_del LIKE /pws/zycie085 ,

wa_limpinv LIKE /pws/zycie093 ,

wa_sel LIKE /pws/zycie094 ,

wa_zycie003 LIKE /pws/zycie003 ,

wa_zycie085 LIKE /pws/zycie085 ,

wa_zycit055 LIKE itab_zycit055 .

* << Fim da exclusão

DATA: BEGIN OF itab_zycit093 OCCURS 0.

INCLUDE STRUCTURE /pws/zycie093.

DATA: END OF itab_zycit093.

* >> Início da exclusão:

DATA: wa_cols2 TYPE cxtab_column.

DATA: v_codbarra LIKE /pws/zycie093-identconh ,

v_dtemb LIKE /pws/zycie093-dtemb ,

v_lpost LIKE /pws/zycit093-localemb ,

v_aux_id LIKE /pws/zycie093-identify ,

v_aux_mt LIKE /pws/zycie093-meiotransp ,

v_aux_dt LIKE /pws/zycie093-dtemiss ,

v_campo(20) ,

v_valor(20) ,

v_linha TYPE i ,

v_pos TYPE i ,

ok_code LIKE sy-ucomm ,

v_msg(92) TYPE c ,

v_changed(1) ,

v_at ,

v_me LIKE /pws/zycit054-bezei ,

v_tran2 ,

v_tran ,

v_mt LIKE /pws/zycit054-bezei ,

v_meio_emb LIKE /pws/zycie093-meiotransp ,

v_pais_agente LIKE lfa1-land1 ,

v_descr_emp LIKE t001-butxt ,

v_tp_dcc LIKE /pws/zycit105-descricao ,

v_tp_ct LIKE /pws/zycit117-descr ,

v_id-texto LIKE thead-tdid ,

v_numchave LIKE thead-tdname ,

v_status TYPE i VALUE 1 ,

v_status_s TYPE i VALUE 1 ,

v_msg_ficta1(50) TYPE c VALUE space ,

v_freetime TYPE /pws/zycet133-free_time,

v_freetime_aux TYPE /pws/zycet133-free_time,

v_nrcontainer TYPE /pws/zycit055-nrcontainer,

v_msg_ficta2(50) TYPE c VALUE space ,

marc(1) TYPE c VALUE space ,

marc2(1) TYPE c VALUE space ,

marc3(1) TYPE c VALUE space ,

v_txtdisp(30) TYPE c VALUE space ,

v_gewei LIKE /pws/zycie093-gewei_b ,

v_cviaemb(1) TYPE c VALUE 'N' ,

v_tcode LIKE sy-tcode VALUE '/PWS/ZYCI002_C',

v_tcode_s LIKE sy-tcode VALUE '/PWS/ZYCI002_A',

vl_ok_code LIKE sscrfields-ucomm ,

rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',

rimc2 LIKE indx-srtfd VALUE 'NRBL',

rimc3 LIKE indx-srtfd VALUE 'ITABEMB',

rimc4 LIKE indx-srtfd VALUE 'WA085',

rimc5 LIKE indx-srtfd VALUE 'WA093',

v_nrbl LIKE /pws/zycie093-nrseqce,

v_st LIKE /pws/zycie085-status VALUE space,

v_proc(1) TYPE c VALUE 'N',

v_descr_po(50) TYPE c VALUE space,

v_descr_po2(50) TYPE c VALUE space,

v_utilizacao(30) TYPE c,

v_descr_pd(50) TYPE c VALUE space,

v_linhas TYPE i,

id21(12),

le2(17),

de21(17),

v_salvo(1),

v_sug,

v_provseg,

v_inco1 LIKE /pws/zycit001-inco1,

nrcontainera LIKE /pws/zycit055-nrcontainer,

v_armador(20) TYPE c,

v_pesobruto LIKE /pws/zycie055-pesobruto VALUE 0,

v_flag_qtd TYPE c,

v_answer ,

text(100) ,

nextline TYPE i ,

v_posi(40) ,

v_copy TYPE c ,

v_dtemiss,

v_tabix,

e_subrc LIKE sy-subrc,

e_exec_okcode.

DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',

gv_subscreen_0100_1 TYPE sy-dynnr,

gv_subscreen_0300_2 TYPE sy-dynnr.

CONSTANTS: BEGIN OF gc_subscreen,

prog TYPE sy-dynnr VALUE '0100',

help TYPE sy-dynnr VALUE '0053',

END OF gc_subscreen.

DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.

DATA: gv_help_show TYPE boolean VALUE ' '.

* << Fim da exclusão

SELECTION-SCREEN BEGIN OF SCREEN 0003 .

SELECT-OPTIONS: p_nrseq FOR /pws/zycie001-nrseq ,

p_emb FOR /pws/zycie001-embarca ,

p_bukrs FOR /pws/zycie001-bukrs ,

p_werks FOR /pws/zycie001-werks ,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002X01

...

* >> Início da inclusão:

*&---------------------------------------------------------------------*

*& Include /PWS/MZYCI002X01 *

*&---------------------------------------------------------------------*

* Include para declarações de Tabelas e/ou variáveis de exits

* Ao utilizar esse programa é necessário muito cuidado, pois ao alterar

* qq. dado dentro desso include, ira refletir no programa Standard

* automaticamente

*&---------------------------------------------------------------------*

TABLES:

/pws/zycit000 ,

/pws/zycie001 ,

/pws/zycit001 ,

/pws/zycie003 ,

/pws/zycit003 ,

/pws/zycit006 ,

/pws/zycit105 ,

/pws/zycie014 ,

/pws/zycit394 ,

/pws/zycit014 ,

/pws/zycie055 ,

/pws/zycit055 ,

/pws/zycie085 ,

/pws/zycit085 ,

/pws/zycie093 ,

/pws/zycit093 ,

/pws/zycie093a ,

/pws/zycie094 ,

/pws/zycit094 ,

/pws/zycit100 ,

/pws/zycit117 ,

/pws/zycie383 ,

/pws/zycie100 ,

/pws/zycit383 .

DATA: BEGIN OF COMMON PART a.

* Tabelas internas

*Criaçao da tab interna para container

DATA: BEGIN OF itab_zycit055s OCCURS 0.

INCLUDE STRUCTURE /pws/zycit055.

DATA: END OF itab_zycit055s.

DATA: BEGIN OF itab_zycit093s OCCURS 0.

INCLUDE STRUCTURE /pws/zycit093.

DATA: END OF itab_zycit093s.

DATA: BEGIN OF itab_zycit001 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit001.

DATA: END OF itab_zycit001.

* Tratamento de descricao ( tela 102 )

DATA: BEGIN OF itab_zycit117 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit117.

DATA: END OF itab_zycit117.

* Tratamento dos embarques ( tela 0104 )

DATA: BEGIN OF itab_zycit094s OCCURS 0.

INCLUDE STRUCTURE /pws/zycie094.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit094s.

DATA: BEGIN OF itab_zycit094a OCCURS 0.

INCLUDE STRUCTURE /pws/zycie094.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit094a.

*Criaçao da tab interna para container Danila 20/02

DATA: BEGIN OF itab_zycit383 OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit383.

DATA: BEGIN OF itab_selreg OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_selreg.

DATA: BEGIN OF itab_salva OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_salva.

DATA: BEGIN OF itab_qtd OCCURS 0.

INCLUDE STRUCTURE /pws/zycit383.

DATA: END OF itab_qtd.

DATA: BEGIN OF itab_zycit383c OCCURS 0 ,

mandt LIKE /pws/zycit383-mandt ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit383c.

DATA: BEGIN OF itab_zycit383aux OCCURS 0 ,

identify LIKE /pws/zycit383-identify ,

nrseqce LIKE /pws/zycit383-nrseqce ,

bukrs LIKE /pws/zycit383-bukrs ,

nrcont LIKE /pws/zycit383-nrcontainer,

nrseq LIKE /pws/zycit383-nrseq ,

ebeln LIKE /pws/zycit383-ebeln ,

ebelp LIKE /pws/zycit383-ebelp ,

matnr LIKE /pws/zycit003-matnr ,

descr LIKE /pws/zycit003-descr ,

werks LIKE /pws/zycit003-werks ,

qtd_iten LIKE /pws/zycit003-qtd_iten .

DATA: END OF itab_zycit383aux.

DATA: BEGIN OF itab_zycit094 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit094.

DATA: END OF itab_zycit094.

DATA: BEGIN OF itab_zycit055c OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: END OF itab_zycit055c.

* Tratamento dos dados complementares ( tela 0103 )

DATA: BEGIN OF itab_zycit014 OCCURS 0.

INCLUDE STRUCTURE /pws/zycie014.

DATA: marc2(1) TYPE c.

DATA: END OF itab_zycit014.

DATA: BEGIN OF itab_zycit014a OCCURS 0.

INCLUDE STRUCTURE /pws/zycie014.

DATA: marc2(1) TYPE c.

DATA: END OF itab_zycit014a.

* Seleção dos embarques ( botão Sel. Embarque Tela 0100 )

DATA: BEGIN OF it_zycit001_sel OCCURS 0 .

DATA: nrseq LIKE /pws/zycie001-nrseq ,

embarca LIKE /pws/zycie001-embarca ,

bukrs LIKE /pws/zycie001-bukrs ,

werks LIKE /pws/zycie001-werks ,

waers LIKE /pws/zycie001-waers ,

lifnr LIKE /pws/zycie001-lifnr ,

inco1 LIKE /pws/zycie001-inco1 ,

dtinicio LIKE /pws/zycie001-dtinicio ,

j_1bbranch LIKE /pws/zycie001-j_1bbranch,

paorigem LIKE /pws/zycie001-paorigem ,

meioemba LIKE /pws/zycie001-meioemba ,

nrseq003 LIKE /pws/zycie003-nrseq ,

ebeln LIKE /pws/zycie003-ebeln ,

bednr LIKE /pws/zycie003-bednr .

DATA: END OF it_zycit001_sel .

DATA: BEGIN OF itab_identify OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-identify,

high LIKE /pws/zycie093a-identify,

END OF itab_identify.

DATA: BEGIN OF itab_meiotransp OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-meiotransp,

high LIKE /pws/zycie093a-meiotransp,

END OF itab_meiotransp.

DATA: BEGIN OF itab_dtemiss OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie093-dtemiss,

high LIKE /pws/zycie093a-dtemiss,

END OF itab_dtemiss.

*Tabela para controle da seleção container

DATA: BEGIN OF itab_nrcontainer OCCURS 1,

sign(1) TYPE c,

option(2) TYPE c,

low LIKE /pws/zycie055-nrcontainer,

high LIKE /pws/zycie055-nrcontainer,

END OF itab_nrcontainer.

* Tabela(s) interna(s) p/ controle na tela do container (0105)

DATA: BEGIN OF itab_zycit055 OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit055.

DATA: BEGIN OF itab_zycit055a OCCURS 10.

INCLUDE STRUCTURE /pws/zycit055.

DATA: marc(1) TYPE c.

DATA: END OF itab_zycit055a.

* Tabelas internas para EDIT_TEXT (Observações)

DATA: BEGIN OF xthead OCCURS 50.

INCLUDE STRUCTURE thead.

DATA: END OF xthead.

DATA: rtext LIKE tline OCCURS 50 WITH HEADER LINE.

DATA: BEGIN OF itab_tline2 OCCURS 50.

DATA: tdline LIKE tline-tdline.

DATA: END OF itab_tline2.

* Tabela interna para tratamento do PF-STATUS (botões)

DATA: BEGIN OF itab_botoes OCCURS 0.

DATA: button_name(10) TYPE c .

DATA: END OF itab_botoes.

* Tabela interna para transporte de informações (Embarque <-> BL)

DATA: BEGIN OF itab_transp_emb OCCURS 0.

INCLUDE STRUCTURE /pws/zycit094.

DATA: END OF itab_transp_emb.

* Tabela interna para tratamento de log

DATA: BEGIN OF itab_log_erro OCCURS 0.

DATA: v_txt_log(63) TYPE c.

DATA: END OF itab_log_erro.

DATA: BEGIN OF itab_zycit041 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit041.

DATA: END OF itab_zycit041.

DATA: BEGIN OF itab_zycit100 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit100.

DATA: END OF itab_zycit100.

DATA: BEGIN OF itab_zyglt100 OCCURS 10. "Exits

INCLUDE STRUCTURE /pws/zyglt100.

DATA: END OF itab_zyglt100.

* Tabela de verificação CACL.

DATA: BEGIN OF it_ekpo OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

werks LIKE ekpo-werks,

END OF it_ekpo.

DATA: BEGIN OF it_ekpo_aux OCCURS 0,

ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

matnr LIKE ekpo-matnr,

idnlf LIKE ekpo-idnlf,

END OF it_ekpo_aux.

DATA: BEGIN OF itab_zycit013 OCCURS 0. "Armazenar dados tc_ped SALDO

INCLUDE STRUCTURE /pws/zycie013.

DATA: END OF itab_zycit013.

DATA: BEGIN OF itab_zycit003 OCCURS 0. "Armazenar dados tc_pedido

INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde, "Saldo no Pedido

uebto LIKE ekpo-uebto, "Tolerancia

uebtk LIKE ekpo-uebtk, "Ilimitada

noinitial, "Flag p/ não inicial.

mark, "Marca reg. na TC

idnlf LIKE mepo1319-idnlf.

DATA: END OF itab_zycit003.

* work areas

DATA: BEGIN OF wa_lfa1,

lifnr LIKE lfa1-lifnr,

name1 LIKE lfa1-name1,

land1 LIKE lfa1-land1,

END OF wa_lfa1.

DATA: BEGIN OF wa093,

bukrs LIKE /pws/zycie093-bukrs,

meiotransp LIKE /pws/zycie093-meiotransp,

paemb LIKE /pws/zycie093-paemb ,

paispae LIKE /pws/zycie093-paispae ,

padest LIKE /pws/zycie093-padest ,

paispad LIKE /pws/zycie093-paispad ,

embarca LIKE /pws/zycie093-embarca ,

END OF wa093.

DATA: wa_zycie093 LIKE /pws/zycie093 ,

wa_zycie085_del LIKE /pws/zycie085 ,

wa_limpinv LIKE /pws/zycie093 ,

wa_sel LIKE /pws/zycie094 ,

wa_zycie003 LIKE /pws/zycie003 ,

wa_zycie085 LIKE /pws/zycie085 ,

wa_zycit055 LIKE itab_zycit055 .

* Variáveis

DATA: v_codbarra LIKE /pws/zycie093-identconh , "codigo de barra

v_dtemb LIKE /pws/zycie093-dtemb ,

v_lpost LIKE /pws/zycit093-localemb ,

v_aux_id LIKE /pws/zycie093-identify , "Aux conhecemb.

v_aux_mt LIKE /pws/zycie093-meiotransp ,

v_aux_dt LIKE /pws/zycie093-dtemiss , "Aux.dt emissão

v_campo(20) , "Pega campo da tela

v_valor(20) , "Pega valor da tela

v_linha TYPE i , "Número de linha tab

v_pos TYPE i , "Posição

ok_code LIKE sy-ucomm ,

v_msg(92) TYPE c ,

v_changed(1) ,

v_at ,

v_me LIKE /pws/zycit054-bezei ,

v_tran2 ,

v_tran ,

v_mt LIKE /pws/zycit054-bezei ,

v_meio_emb LIKE /pws/zycie093-meiotransp ,

v_pais_agente LIKE lfa1-land1 ,

v_descr_emp LIKE t001-butxt ,

v_tp_dcc LIKE /pws/zycit105-descricao ,

v_tp_ct LIKE /pws/zycit117-descr ,

v_id-texto LIKE thead-tdid ,

v_numchave LIKE thead-tdname ,

v_status TYPE i VALUE 1 ,

v_status_s TYPE i VALUE 1 ,

v_msg_ficta1(50) TYPE c VALUE space ,

v_freetime like /pws/zycet133-free_time,

v_msg_ficta2(50) TYPE c VALUE space ,

marc(1) TYPE c VALUE space ,

marc2(1) TYPE c VALUE space ,

marc3(1) TYPE c VALUE space ,

v_txtdisp(30) TYPE c VALUE space ,

v_gewei LIKE /pws/zycie093-gewei_b ,

v_cviaemb(1) TYPE c VALUE 'N' ,

v_tcode LIKE sy-tcode VALUE '/PWS/ZYCI002_C',

v_tcode_s like sy-tcode VALUE '/PWS/ZYCI002_A',

vl_ok_code LIKE sscrfields-ucomm ,

rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',

rimc2 LIKE indx-srtfd VALUE 'NRBL',

rimc3 LIKE indx-srtfd VALUE 'ITABEMB',

rimc4 LIKE indx-srtfd VALUE 'WA085',

rimc5 LIKE indx-srtfd VALUE 'WA093',

v_nrbl LIKE /pws/zycie093-nrseqce,

v_st LIKE /pws/zycie085-status VALUE space,

v_proc(1) TYPE c VALUE 'N',

v_descr_po(50) TYPE c VALUE space,

v_descr_po2(50) TYPE c VALUE space,

v_utilizacao(30) TYPE c,

v_descr_pd(50) TYPE c VALUE space,

v_linhas TYPE i,

id21(12),

le2(17),

de21(17),

v_salvo(1),

v_sug,

v_provseg,

v_inco1 LIKE /pws/zycit001-inco1,

* Variável para nrcontainer

nrcontainera LIKE /pws/zycit055-nrcontainer,

v_armador(20) TYPE c,

v_pesobruto LIKE /pws/zycie055-pesobruto VALUE 0,

v_flag_qtd TYPE c,

* Variáveis usadas para botão posicionar

v_answer ,

text(100) ,

nextline TYPE i ,

v_posi(40) ,

v_copy TYPE c ,

v_dtemiss .

* variables for dynamic help

data: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',

gv_subscreen_0100_1 TYPE sy-dynnr,

gv_subscreen_0300_2 TYPE sy-dynnr.

CONSTANTS: BEGIN OF gc_subscreen,

prog TYPE sy-dynnr VALUE '0100',

help TYPE sy-dynnr VALUE '0053',

END OF gc_subscreen.

* variable for storing the screen view flags.

DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.

* variables used for storing the pushbutton text.

*DATA: BEGIN OF GV_PUSHBUTTON_TEXT,

* HELP TYPE CHAR30,

* END OF GV_PUSHBUTTON_TEXT.

* variable for storing the screen view flags.

DATA: gv_help_show TYPE boolean VALUE ' '.

DATA: END OF COMMON PART a.

...

* >> FIm da inclusão: