CE PLUS - Nota 003435
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 11/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:47:37
Descrição da Nota: DECLARAÇÃO DE VARIÁVEIS PARA A EXIT EMB006
Sintoma
Executar uma EXIT no Refresh_Embarque.
Solução
Criados os campos que não estavam declarados no Include X.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03435 Data: 11/04/2007 Hora: 14:05:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03435
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00161
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03370 - 00001 - 6.0 - 00026 - EMBARQUE NÃO É ATUALIZADO COM INFORMAÇÕES QUANDO HÁ PARTIÇÃO DE R
----------------------------------------------------------------------------------------------------
DECLARAÇÃO DE VARIÁVEIS PARA A EXIT EMB006
----------------------------------------------------------------------------------------------------
Palavras Chave:
DECLARAÇÃO VARIÁVEIS EXIT EMB006 REFRESH EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003TCP
REPS /PWS/MZYCE003TIA
REPS /PWS/MZYCE003TOP
REPS /PWS/MZYCE003TSD
REPS /PWS/MZYCE003TSP
REPS /PWS/MZYCE003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'I'
msgv1 = text-519
msgv2 = /pws/zycee001-nrseq
txtnr = 221
zeile = 'CEX_SEL_001'.
ENDIF.
ENDFORM.
FORM refresh_embarque USING value(p_novos).
* >> Início da inclusão: FORM REFRESH_EMBARQUE
v_refresh_novos = p_novos.
* << Fim da inclusão
PERFORM executa_exit USING 'EMB006'.
CHECK sy-subrc EQ 0.
PERFORM progress_indicator USING 1 36
'Efetuando Refresh do Embarque'(m01).
IF p_novos EQ 'X'.
IF wa_controle-novos_itens IS INITIAL.
PERFORM limpa_dados_sap.
PERFORM seleciona_dados_sap USING wa_controle-novos_itens.
ELSE.
LOOP AT itab_zycet002 WHERE novo = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TCP
DATA: BEGIN OF itab_zycbt039 OCCURS 0,
modo TYPE /pws/zycbt039-modo,
descr TYPE /pws/zycbt039-descr,
END OF itab_zycbt039.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet020 OCCURS 0,
auart TYPE /pws/zycet020-auart,
bukrs TYPE /pws/zycet020-bukrs,
tipodoc TYPE /pws/zycet020-tipodoc,
back TYPE /pws/zycet020-back,
atual_c TYPE /pws/zycet020-atual_c,
END OF itab_zycet020.
DATA: BEGIN OF itab_zycet023 OCCURS 0,
fkart TYPE /pws/zycet023-fkart,
bukrs TYPE /pws/zycet023-bukrs,
somaqtd TYPE /pws/zycet023-somaqtd,
tipodoc TYPE /pws/zycet023-tipodoc,
estorno TYPE /pws/zycet023-estorno,
END OF itab_zycet023.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet025 OCCURS 0,
tpcomis TYPE /pws/zycet025-tpcomis,
vkgrp TYPE /pws/zycet025-vkgrp,
END OF itab_zycet025.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet037 OCCURS 0,
bukrs TYPE /pws/zycet037-bukrs,
parvw1 TYPE /pws/zycet037-parvw1,
gewei TYPE /pws/zycet037-gewei,
envia_c TYPE /pws/zycet037-envia_c,
tpcomissao TYPE /pws/zycet037-tpcomissao,
agrupa_t30 TYPE /pws/zycet037-agrupa_t30,
dados_r3 TYPE /pws/zycet037-dados_r3,
nro_empresas TYPE /pws/zycet037-nro_empresas,
gera_fornec TYPE /pws/zycet037-gera_fornec,
agrup_fat_rec TYPE /pws/zycet037-agrup_fat_rec,
centro_dif TYPE /pws/zycet037-centro_dif,
doc_emp TYPE /pws/zycet037-doc_emp,
elimina_estorno TYPE /pws/zycet037-elimina_estorno,
comis_provisao TYPE /pws/zycet037-comis_provisao,
consig_std TYPE /pws/zycet037-consig_std,
cond_inativa TYPE /pws/zycet037-cond_inativa,
alt_cond TYPE /pws/zycet037-alt_cond,
rec_camb TYPE /pws/zycet037-rec_camb,
doc_camb TYPE /pws/zycet037-doc_camb,
agrup_fat_blq TYPE /pws/zycet037-agrup_fat_blq,
tpverifparc TYPE /pws/zycet037-tpverifparc,
alt_incoterm TYPE /pws/zycet037-alt_incoterm,
dtlct TYPE /pws/zycet037-dtlct,
cond_estat TYPE /pws/zycet037-cond_estat,
END OF itab_zycet037.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet041 OCCURS 0,
pgmna TYPE /pws/zycet041-pgmna,
codint TYPE /pws/zycet041-codint,
tdid TYPE /pws/zycet041-tdid,
END OF itab_zycet041.
DATA: BEGIN OF itab_zycet042 OCCURS 0,
navio TYPE /pws/zycet042-navio,
codabics TYPE /pws/zycet042-codabics,
viatrans TYPE /pws/zycet042-viatrans,
END OF itab_zycet042.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet065 OCCURS 0,
inco1 TYPE /pws/zycet065-inco1,
fob TYPE /pws/zycet065-fob,
frete TYPE /pws/zycet065-frete,
seguro TYPE /pws/zycet065-seguro,
outras_desp TYPE /pws/zycet065-outras_desp,
desconto TYPE /pws/zycet065-desconto,
acrescimo TYPE /pws/zycet065-acrescimo,
comissao TYPE /pws/zycet065-comissao,
END OF itab_zycet065.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet067 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet067.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycet067.
DATA: BEGIN OF itab_zycet076 OCCURS 0,
codigo_ce TYPE /pws/zycet076-codigo_ce,
codigo_r3 TYPE /pws/zycet076-codigo_r3,
END OF itab_zycet076.
DATA: BEGIN OF itab_zycet079 OCCURS 0,
func TYPE /pws/zycet079-func,
transacao TYPE /pws/zycet079-transacao,
codcli TYPE /pws/zycet079-codcli,
END OF itab_zycet079.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet145 OCCURS 0,
bukrs TYPE /pws/zycet145-bukrs,
branch TYPE /pws/zycet145-branch,
filial TYPE /pws/zycet145-filial,
re_apos_agrup TYPE /pws/zycet145-re_apos_agrup,
END OF itab_zycet145.
DATA: BEGIN OF itab_zycet156 OCCURS 0,
bukrs TYPE /pws/zycet156-bukrs,
codmod TYPE /pws/zycet156-codmod,
codigo TYPE /pws/zycet156-codigo,
kschl TYPE /pws/zycet156-kschl,
vtext TYPE /pws/zycet156-vtext,
fator TYPE /pws/zycet156-fator,
rateio TYPE /pws/zycet156-rateio,
proccond TYPE /pws/zycet156-proccond,
END OF itab_zycet156.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet171 OCCURS 0,
usuario TYPE /pws/zycet171-usuario,
valid TYPE /pws/zycet171-valid,
END OF itab_zycet171.
DATA: BEGIN OF itab_zycet255 OCCURS 0,
pstyv TYPE /pws/zycet255-pstyv,
END OF itab_zycet255.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet312 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet312.
DATA: END OF itab_zycet312.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet316 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet316.
DATA: END OF itab_zycet316.
DATA: BEGIN OF itab_zycet317 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet317.
DATA: END OF itab_zycet317.
DATA: BEGIN OF itab_zycit417 OCCURS 0,
uname TYPE /pws/zycit417-uname,
lifnr TYPE /pws/zycit417-lifnr,
END OF itab_zycit417.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TIA
...
lights TYPE c,
posic_tela TYPE /pws/zycet067-posic_tela,
END OF itab_documentos.
DATA: BEGIN OF itab_diferenca OCCURS 0,
tabname TYPE dd03l-tabname,
fieldname TYPE dd03l-fieldname,
keyvalue(70) TYPE c,
val_ant(30) TYPE c,
val_dep(30) TYPE c,
END OF itab_diferenca.
* >> Início da exclusão:
DATA: BEGIN OF itab_docrel OCCURS 0,
vbeln_va TYPE vbap-vbeln,
aupos TYPE vbap-posnr,
vbeln_vl TYPE lips-vbeln,
posnl TYPE lips-posnr,
vbeln_vf TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
texto(50) TYPE c,
vbelv_va TYPE vbap-vbeln,
aupov TYPE vbap-posnr,
vbelv_vl TYPE lips-vbeln,
posvl TYPE lips-posnr,
vbelv_vf TYPE vbrp-vbeln,
posnv TYPE vbrp-posnr,
END OF itab_docrel.
DATA: itab_docrel_tc LIKE itab_docrel OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF type_pricing,
codigo TYPE /pws/zycet008-codigo,
kschl TYPE konv-kschl,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
kwert TYPE konv-kwert,
kbetr TYPE konv-kbetr,
END OF type_pricing.
DATA: itab_pricing TYPE SORTED TABLE OF type_pricing
WITH NON-UNIQUE KEY codigo vbeln posnr kschl
WITH HEADER LINE.
DATA: itab_pricing_tc LIKE itab_pricing OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
DATA: BEGIN OF itab_venda_cons OCCURS 0,
nrseq TYPE /pws/zycet002-nrseq,
vbeln_va TYPE /pws/zycet002-vbeln_va,
vbeln_vf TYPE /pws/zycet002-vbeln_vf,
posnr TYPE /pws/zycet002-posnr,
docnum TYPE /pws/zycet002-docnum,
vbeln_vl TYPE /pws/zycet002-vbeln_vl,
posnl TYPE /pws/zycet002-posnl,
aupos TYPE /pws/zycet002-aupos,
fkdat TYPE /pws/zycet002-fkdat,
...
...
land1 TYPE /pws/zycet002-land1,
kunag TYPE /pws/zycet002-kunag,
gsber TYPE /pws/zycet002-gsber,
matnr TYPE /pws/zycet002-matnr,
werks TYPE /pws/zycet002-werks,
nfnum TYPE /pws/zycet002-nfnum,
nrseq_consig TYPE /pws/zycet002-nrseq_consig,
vbeln_consig TYPE /pws/zycet002-vbeln_consig,
posnr_consig TYPE /pws/zycet002-posnr_consig,
END OF itab_zycet002_off_shore.
* >> Início da exclusão:
DATA: BEGIN OF itab_fluxo OCCURS 0,
nrseq TYPE /pws/zycet002-nrseq,
vbeln_va TYPE /pws/zycet002-vbeln_va,
aupos TYPE /pws/zycet002-aupos,
ebeln TYPE /pws/zycet002-ebeln,
END OF itab_fluxo.
* << Fim da exclusão
DATA: wa_thead TYPE thead,
wa_thead2 TYPE thead.
TYPES: BEGIN OF ty_tline.
INCLUDE STRUCTURE tline.
TYPES: END OF ty_tline.
TYPES: tf_tline TYPE TABLE OF ty_tline.
DATA: itab_tline TYPE STANDARD TABLE OF ty_tline,
itab_tline2 TYPE STANDARD TABLE OF ty_tline.
TYPES r_kschl TYPE RANGE OF kschl.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TOP
...
vbkd,
vbpa,
vbrk,
vttk,
adrc,
SDPARTNER_ADDRESS.
TYPE-POOLS: kkblo,
slis,
vrm.
INCLUDE: <icon>.
* >> Início da exclusão:
DATA: BEGIN OF wa_controle,
parametros_carregados(1) TYPE c,
limpa_parametros(1) TYPE c,
constantes_carregadas(1) TYPE c,
mensagem_carregada(1) TYPE c,
enviado_cambio(1) TYPE c,
nivel_tela(3) TYPE c,
nivel_item(3) TYPE c,
aba_anter(4) TYPE c,
edicao(1) TYPE c,
linhas TYPE sy-srows,
item_atual TYPE i,
novos_itens(1) TYPE c,
okcode_chamada TYPE sy-ucomm,
refresh(1) TYPE c,
END OF wa_controle.
* << Fim da exclusão
DATA: BEGIN OF wa_expande,
area_001(1) TYPE c,
area_002(1) TYPE c,
area_003(1) TYPE c,
area_004(1) TYPE c,
area_005(1) TYPE c,
area_006(1) TYPE c,
area_007(1) TYPE c,
area_008(1) TYPE c,
area_009(1) TYPE c,
area_010(1) TYPE c,
END OF wa_expande.
DATA: BEGIN OF wa_textos,
tpcalc TYPE /pws/zyglt370-descr,
name1 TYPE thead-tdname,
END OF wa_textos.
* >> Início da exclusão:
DATA: BEGIN OF wa_valores,
nrseq_consig TYPE /pws/zycet001-nrseq,
peso(30) TYPE c,
parvw_final(20) TYPE c,
preco_base TYPE /pws/zycet008-vlme,
preco_000001 TYPE /pws/zycet008-vlme,
pais_dest TYPE t005t-landx,
pais_emb TYPE t005t-landx,
gsber TYPE tgsbt-gtext,
werks TYPE t001w-name1,
vkorg TYPE tvkot-vtext,
vtweg TYPE tvtwt-vtext,
spara TYPE tspat-vtext,
kostl TYPE cskt-ktext,
prctr TYPE cepct-ktext,
vkgrp TYPE tvgrt-bezei,
auart TYPE tvakt-bezei,
fkart TYPE tvfkt-vtext,
inco1 TYPE tinct-bezei,
zterm TYPE t052u-text1,
ktgrm TYPE tvkmt-vtext,
ktgrd TYPE tvktt-vtext,
nrseq_ref TYPE /pws/zycet002-nrseq_ref,
END OF wa_valores.
* << Fim da exclusão
DATA: BEGIN OF wa_icones,
meio_transp TYPE icon-name,
status_venda TYPE icon-name,
status_logis TYPE icon-name,
ite_categ TYPE icon-name,
ite_remes TYPE icon-name,
ite_aprop TYPE icon-name,
END OF wa_icones.
DATA: BEGIN OF wa_filtro,
parvw TYPE vrm_value-text,
...
...
tpemb TYPE i,
consi TYPE i,
tempo TYPE i,
spras TYPE i,
canal TYPE i,
END OF wa_numero_filtro.
DATA: BEGIN OF wa_alterados,
zterm TYPE t052-zterm,
dtvencto TYPE /pws/zycet001-dtemb,
END OF wa_alterados.
* >> Início da inclusão:
CONSTANTS: c_transacao_c TYPE sy-tcode VALUE '/PWS/ZYCE003_C'.
* << Fim da inclusão
* >> Início da exclusão:
CONSTANTS: c_transacao_c TYPE sy-tcode VALUE '/PWS/ZYCE003_C',
c_transacao_a TYPE sy-tcode VALUE '/PWS/ZYCE003_A',
c_transacao_e TYPE sy-tcode VALUE '/PWS/ZYCE003_E'.
* << Fim da exclusão
CONSTANTS: c_nome_prog TYPE sy-repid VALUE '/PWS/SAPMZYCE003'.
CONSTANTS: c_num_areas TYPE i VALUE 10.
INCLUDE: /pws/mzyce003tsp,
/pws/mzyce003tsd,
/pws/mzyce003tcp,
/pws/mzyce003tcd,
/pws/mzyce003tia.
INCLUDE /pws/mzyce003tcl.
CONTROLS: ts_embarque TYPE TABSTRIP,
tc_itens TYPE TABLEVIEW USING SCREEN '0102',
...
...
tc_parceiro TYPE TABLEVIEW USING SCREEN '0105',
tc_resumo TYPE TABLEVIEW USING SCREEN '0106',
tc_permiso TYPE TABLEVIEW USING SCREEN '0108',
tc_docrel TYPE TABLEVIEW USING SCREEN '0204',
tc_drawback TYPE TABLEVIEW USING SCREEN '0205',
tc_pricing TYPE TABLEVIEW USING SCREEN '0211',
tc_outdados TYPE TABLEVIEW USING SCREEN '4004',
tc_off_shore TYPE TABLEVIEW USING SCREEN '0109'.
DATA: okcode TYPE sy-ucomm,
v_modo TYPE /pws/zycbt039-modo,
* >> Início da exclusão:
v_rec_cont TYPE flag,
i_sytcode TYPE sy-tcode,
v_flag(1) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
i_sytcode TYPE sy-tcode.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 5001 AS WINDOW TITLE text-t01.
SELECTION-SCREEN BEGIN OF BLOCK s5001_a WITH FRAME TITLE text-t16.
SELECT-OPTIONS: s_vbelnv FOR vbak-vbeln,
s_vbelnl FOR likp-vbeln,
s_vbelnf FOR vbrk-vbeln,
s_tknum FOR vttk-tknum.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(50) text-t18.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TSD
* >> Início da exclusão:
DATA: BEGIN OF itab_bkpf OCCURS 0,
bukrs TYPE bkpf-bukrs,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
awtyp TYPE bkpf-awtyp,
awkey TYPE bkpf-awkey,
awsys TYPE bkpf-awsys,
END OF itab_bkpf.
* << Fim da exclusão
DATA: BEGIN OF itab_bseg OCCURS 0,
bukrs TYPE bseg-bukrs,
belnr TYPE bseg-belnr,
gjahr TYPE bseg-gjahr,
buzei TYPE bseg-buzei,
augcp TYPE bseg-augcp,
augbl TYPE bseg-augbl,
koart TYPE bseg-koart,
shkzg TYPE bseg-shkzg,
wrbtr TYPE bseg-wrbtr,
...
...
as4vers TYPE dd04t-as4vers,
ddtext TYPE dd04t-ddtext,
END OF itab_dd04t.
DATA: BEGIN OF itab_dd07t OCCURS 0.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: BEGIN OF itab_eikp OCCURS 0,
exnum TYPE eikp-exnum,
expvz TYPE eikp-expvz,
END OF itab_eikp.
* >> Início da exclusão:
DATA: BEGIN OF itab_ekbe OCCURS 0,
ebeln TYPE ekbe-ebeln,
ebelp TYPE ekbe-ebelp,
vgabe TYPE ekbe-vgabe,
belnr TYPE ekbe-belnr,
buzei TYPE ekbe-buzei,
END OF itab_ekbe.
DATA: BEGIN OF itab_ekko OCCURS 0,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
lifnr TYPE ekko-lifnr,
zterm TYPE ekko-zterm,
ekorg TYPE ekko-ekorg,
ekgrp TYPE ekko-ekgrp,
waers TYPE ekko-waers,
ihrez TYPE ekko-ihrez,
kunnr TYPE ekko-kunnr,
reswk TYPE ekko-reswk,
knumv TYPE ekko-knumv,
END OF itab_ekko.
DATA: BEGIN OF itab_ekpo OCCURS 0,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
ematn TYPE ekpo-ematn,
werks TYPE ekpo-werks,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netwr TYPE ekpo-netwr,
knttp TYPE ekpo-knttp,
ntgew TYPE ekpo-ntgew,
gewei TYPE ekpo-gewei,
brgew TYPE ekpo-brgew,
inco1 TYPE ekpo-inco1,
END OF itab_ekpo.
DATA: BEGIN OF itab_ekpv OCCURS 0,
ebeln TYPE ekpv-ebeln,
ebelp TYPE ekpv-ebelp,
kunnr TYPE ekpv-kunnr,
kunag TYPE ekpv-kunag,
vkorg TYPE ekpv-vkorg,
vtweg TYPE ekpv-vtweg,
END OF itab_ekpv.
DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0,
docnum TYPE j_1bnfdoc-docnum,
docdat TYPE j_1bnfdoc-docdat,
pstdat TYPE j_1bnfdoc-pstdat,
series TYPE j_1bnfdoc-series,
nfnum TYPE j_1bnfdoc-nfnum,
END OF itab_j_1bnfdoc.
DATA: BEGIN OF itab_j_1bnflin OCCURS 0,
docnum TYPE j_1bnflin-docnum,
itmnum TYPE j_1bnflin-itmnum,
reftyp TYPE j_1bnflin-reftyp,
refkey TYPE j_1bnflin-refkey,
END OF itab_j_1bnflin.
TYPES: BEGIN OF type_konv,
knumv TYPE konv-knumv,
kposn TYPE konv-kposn,
stunr TYPE konv-stunr,
zaehk TYPE konv-zaehk,
kschl TYPE konv-kschl,
kbetr TYPE konv-kbetr,
waers TYPE konv-waers,
kntyp TYPE konv-kntyp,
kstat TYPE konv-kstat,
kwert TYPE konv-kwert,
kinak TYPE konv-kinak,
END OF type_konv.
DATA: itab_konv TYPE SORTED TABLE OF type_konv
WITH NON-UNIQUE KEY knumv kposn stunr zaehk
WITH HEADER LINE.
DATA: BEGIN OF itab_likp OCCURS 0,
vbeln TYPE likp-vbeln,
vkorg TYPE likp-vkorg,
inco1 TYPE likp-inco1,
inco2 TYPE likp-inco2,
lifsk TYPE likp-lifsk,
kunnr TYPE likp-kunnr,
kunag TYPE likp-kunag,
btgew TYPE likp-btgew,
ntgew TYPE likp-ntgew,
lstel TYPE likp-lstel,
knumv TYPE likp-knumv,
exnum TYPE likp-exnum,
lifnr TYPE likp-lifnr,
traid TYPE likp-traid,
wadat_ist TYPE likp-wadat_ist,
END OF itab_likp.
DATA: BEGIN OF itab_lips OCCURS 0,
vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
matnr TYPE lips-matnr,
werks TYPE lips-werks,
charg TYPE lips-charg,
lfimg TYPE lips-lfimg,
meins TYPE lips-meins,
vrkme TYPE lips-vrkme,
ntgew TYPE lips-ntgew,
brgew TYPE lips-brgew,
gewei TYPE lips-gewei,
arktx TYPE lips-arktx,
vgbel TYPE lips-vgbel,
vgpos TYPE lips-vgpos,
xchpf TYPE lips-xchpf,
gsber TYPE lips-gsber,
vkgrp TYPE lips-vkgrp,
kostl TYPE lips-kostl,
prctr TYPE lips-prctr,
kcmeng TYPE lips-kcmeng,
kcbrgew TYPE lips-kcbrgew,
kcntgew TYPE lips-kcntgew,
uecha TYPE lips-uecha,
kcgewei TYPE lips-kcgewei,
shkzg TYPE lips-shkzg,
END OF itab_lips.
DATA: BEGIN OF itab_vbak OCCURS 0,
vbeln TYPE vbak-vbeln,
audat TYPE vbak-audat,
vbtyp TYPE vbak-vbtyp,
auart TYPE vbak-auart,
netwr TYPE vbak-netwr,
waerk TYPE vbak-waerk,
vkorg TYPE vbak-vkorg,
vtweg TYPE vbak-vtweg,
spart TYPE vbak-spart,
vkgrp TYPE vbak-vkgrp,
vkbur TYPE vbak-vkbur,
gsber TYPE vbak-gsber,
knumv TYPE vbak-knumv,
kunnr TYPE vbak-kunnr,
kostl TYPE vbak-kostl,
kokrs TYPE vbak-kokrs,
kurst TYPE vbak-kurst,
grupp TYPE vbak-grupp,
vgbel TYPE vbak-vgbel,
bukrs_vf TYPE vbak-bukrs_vf,
zuonr TYPE vbak-zuonr,
vsnmr_v TYPE vbak-vsnmr_v,
END OF itab_vbak.
DATA: BEGIN OF itab_vbap OCCURS 0,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
arktx TYPE vbap-arktx,
pstyv TYPE vbap-pstyv,
fkrel TYPE vbap-fkrel,
gsber TYPE vbap-gsber,
netwr TYPE vbap-netwr,
waerk TYPE vbap-waerk,
kwmeng TYPE vbap-kwmeng,
vrkme TYPE vbap-vrkme,
brgew TYPE vbap-brgew,
ntgew TYPE vbap-ntgew,
gewei TYPE vbap-gewei,
vgbel TYPE vbap-vgbel,
vgpos TYPE vbap-vgpos,
werks TYPE vbap-werks,
vstel TYPE vbap-vstel,
netpr TYPE vbap-netpr,
shkzg TYPE vbap-shkzg,
ktgrm TYPE vbap-ktgrm,
prctr TYPE vbap-prctr,
ps_psp_pnr TYPE vbap-ps_psp_pnr,
aufnr TYPE vbap-aufnr,
j_1btaxlw2 TYPE vbap-j_1btaxlw2,
END OF itab_vbap.
DATA: BEGIN OF itab_vbfa OCCURS 0,
vbelv TYPE vbfa-vbelv,
posnv TYPE vbfa-posnv,
vbeln TYPE vbfa-vbeln,
posnn TYPE vbfa-posnn,
vbtyp_n TYPE vbfa-vbtyp_n,
vbtyp_v TYPE vbfa-vbtyp_v,
matnr TYPE vbfa-matnr,
fktyp TYPE vbfa-fktyp,
END OF itab_vbfa.
DATA: BEGIN OF itab_vbkd OCCURS 0,
vbeln TYPE vbkd-vbeln,
posnr TYPE vbkd-posnr,
inco1 TYPE vbkd-inco1,
inco2 TYPE vbkd-inco2,
zterm TYPE vbkd-zterm,
empst TYPE vbkd-empst,
bstkd TYPE vbkd-bstkd,
END OF itab_vbkd.
DATA: BEGIN OF itab_vbpa OCCURS 0,
vbeln TYPE vbpa-vbeln,
posnr TYPE vbpa-posnr,
parvw TYPE vbpa-parvw,
kunnr TYPE vbpa-kunnr,
lifnr TYPE vbpa-lifnr,
adrnr TYPE vbpa-adrnr,
ablad TYPE vbpa-ablad,
land1 TYPE vbpa-land1,
END OF itab_vbpa.
DATA: BEGIN OF itab_vbrk OCCURS 0,
vbeln TYPE vbrk-vbeln,
fkart TYPE vbrk-fkart,
waerk TYPE vbrk-waerk,
vkorg TYPE vbrk-vkorg,
knumv TYPE vbrk-knumv,
fkdat TYPE vbrk-fkdat,
inco1 TYPE vbrk-inco1,
kurrf TYPE vbrk-kurrf,
zterm TYPE vbrk-zterm,
ktgrd TYPE vbrk-ktgrd,
land1 TYPE vbrk-land1,
bukrs TYPE vbrk-bukrs,
kunrg TYPE vbrk-kunrg,
kunag TYPE vbrk-kunag,
exnum TYPE vbrk-exnum,
sfakn TYPE vbrk-sfakn,
xblnr TYPE vbrk-xblnr,
logsys TYPE vbrk-logsys,
fksto TYPE vbrk-fksto,
kidno TYPE vbrk-kidno,
END OF itab_vbrk.
DATA: BEGIN OF itab_vbrp OCCURS 0,
vbeln TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
fkimg TYPE vbrp-fkimg,
vrkme TYPE vbrp-vrkme,
ntgew TYPE vbrp-ntgew,
brgew TYPE vbrp-brgew,
gewei TYPE vbrp-gewei,
gsber TYPE vbrp-gsber,
netwr TYPE vbrp-netwr,
vbelv TYPE vbrp-vbelv,
posnv TYPE vbrp-posnv,
vgbel TYPE vbrp-vgbel,
vgpos TYPE vbrp-vgpos,
aubel TYPE vbrp-aubel,
aupos TYPE vbrp-aupos,
matnr TYPE vbrp-matnr,
arktx TYPE vbrp-arktx,
pstyv TYPE vbrp-pstyv,
werks TYPE vbrp-werks,
ktgrm TYPE vbrp-ktgrm,
kostl TYPE vbrp-kostl,
vkgrp TYPE vbrp-vkgrp,
spara TYPE vbrp-spara,
shkzg TYPE vbrp-shkzg,
prctr TYPE vbrp-prctr,
kokrs TYPE vbrp-kokrs,
ps_psp_pnr TYPE vbrp-ps_psp_pnr,
aufnr TYPE vbrp-aufnr,
cmpre TYPE vbrp-cmpre,
vkorg_auft TYPE vbrp-vkorg_auft,
vtweg_auft TYPE vbrp-vtweg_auft,
END OF itab_vbrp.
DATA: BEGIN OF itab_vbuk OCCURS 0,
vbeln TYPE vbuk-vbeln,
lfstk TYPE vbuk-lfstk,
fkstk TYPE vbuk-fkstk,
fksak TYPE vbuk-fksak,
buchk TYPE vbuk-buchk,
cmgst TYPE vbuk-cmgst,
END OF itab_vbuk.
DATA: BEGIN OF itab_vbup OCCURS 0,
vbeln TYPE vbup-vbeln,
posnr TYPE vbup-posnr,
lfsta TYPE vbup-lfsta,
fksta TYPE vbup-fksta,
fksaa TYPE vbup-fksaa,
END OF itab_vbup.
DATA: BEGIN OF itab_vttk OCCURS 0,
tknum TYPE vttk-tknum,
vbtyp TYPE vttk-vbtyp,
vsart TYPE vttk-vsart,
signi TYPE vttk-signi,
dplbg TYPE vttk-dplbg,
END OF itab_vttk.
DATA: BEGIN OF itab_vttp OCCURS 0,
tknum TYPE vttp-tknum,
tpnum TYPE vttp-tpnum,
vbeln TYPE vttp-vbeln,
END OF itab_vttp.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TSP
...
DATA: BEGIN OF itab_cepct OCCURS 0,
spras TYPE cepct-spras,
prctr TYPE cepct-prctr,
ktext TYPE cepct-ktext,
END OF itab_cepct.
DATA: BEGIN OF itab_cskt OCCURS 0,
spras TYPE cskt-spras,
kostl TYPE cskt-kostl,
ktext TYPE cskt-ktext,
END OF itab_cskt.
* >> Início da exclusão:
DATA: BEGIN OF itab_kna1 OCCURS 0,
kunnr TYPE kna1-kunnr,
land1 TYPE kna1-land1,
name1 TYPE kna1-name1,
name2 TYPE kna1-name2,
ort01 TYPE kna1-ort01,
pstlz TYPE kna1-pstlz,
regio TYPE kna1-regio,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
ktokd TYPE kna1-ktokd,
ort02 TYPE kna1-ort02,
spras TYPE kna1-spras,
END OF itab_kna1.
* << Fim da exclusão
DATA: BEGIN OF itab_lfa1 OCCURS 0,
lifnr TYPE lfa1-lifnr,
land1 TYPE lfa1-land1,
name1 TYPE lfa1-name1,
name2 TYPE lfa1-name2,
ort01 TYPE lfa1-ort01,
ort02 TYPE lfa1-ort02,
pstlz TYPE lfa1-pstlz,
regio TYPE lfa1-regio,
stras TYPE lfa1-stras,
adrnr TYPE lfa1-adrnr,
spras TYPE lfa1-spras,
stcd1 TYPE lfa1-stcd1,
END OF itab_lfa1.
* >> Início da exclusão:
DATA: BEGIN OF itab_marc OCCURS 0,
matnr TYPE marc-matnr,
werks TYPE marc-werks,
steuc TYPE marc-steuc,
END OF itab_marc.
* << Fim da exclusão
DATA: BEGIN OF itab_mvke OCCURS 0,
matnr TYPE mvke-matnr,
vkorg TYPE mvke-vkorg,
vtweg TYPE mvke-vtweg,
mvgr1 TYPE mvke-mvgr1,
END OF itab_mvke.
DATA: BEGIN OF itab_t001 OCCURS 0,
bukrs TYPE t001-bukrs,
butxt TYPE t001-butxt,
land1 TYPE t001-land1,
waers TYPE t001-waers,
adrnr TYPE t001-adrnr,
END OF itab_t001.
* >> Início da exclusão:
DATA: BEGIN OF itab_t001k OCCURS 0,
bwkey TYPE t001k-bwkey,
bukrs TYPE t001k-bukrs,
END OF itab_t001k.
* << Fim da exclusão
DATA: BEGIN OF itab_t001w OCCURS 0,
werks TYPE t001w-werks,
name1 TYPE t001w-name1,
kunnr TYPE t001w-kunnr,
name2 TYPE t001w-name2,
stras TYPE t001w-stras,
pstlz TYPE t001w-pstlz,
ort01 TYPE t001w-ort01,
vkorg TYPE t001w-vkorg,
adrnr TYPE t001w-adrnr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003X01
...
DATA: itab_taxas TYPE HASHED TABLE OF type_taxas
WITH UNIQUE KEY kurst
fcurr
tcurr
datum
WITH HEADER LINE.
DATA: v_index_doc LIKE sy-tabix.
DATA: et_index_rows TYPE lvc_t_row,
wa_index_rows TYPE lvc_s_row.
DATA: grid_doc TYPE REF TO cl_gui_alv_grid.
* >> Início da inclusão:
DATA: v_refresh_novos(1) TYPE c.
DATA: BEGIN OF wa_controle,
parametros_carregados(1) TYPE c,
limpa_parametros(1) TYPE c,
constantes_carregadas(1) TYPE c,
mensagem_carregada(1) TYPE c,
enviado_cambio(1) TYPE c,
nivel_tela(3) TYPE c,
nivel_item(3) TYPE c,
aba_anter(4) TYPE c,
edicao(1) TYPE c,
linhas TYPE sy-srows,
item_atual TYPE i,
novos_itens(1) TYPE c,
okcode_chamada TYPE sy-ucomm,
refresh(1) TYPE c,
END OF wa_controle.
DATA: v_rec_cont TYPE flag.
DATA: BEGIN OF itab_vbfa OCCURS 0,
vbelv TYPE vbfa-vbelv,
posnv TYPE vbfa-posnv,
vbeln TYPE vbfa-vbeln,
posnn TYPE vbfa-posnn,
vbtyp_n TYPE vbfa-vbtyp_n,
vbtyp_v TYPE vbfa-vbtyp_v,
matnr TYPE vbfa-matnr,
fktyp TYPE vbfa-fktyp,
END OF itab_vbfa.
DATA: BEGIN OF itab_ekbe OCCURS 0,
ebeln TYPE ekbe-ebeln,
ebelp TYPE ekbe-ebelp,
vgabe TYPE ekbe-vgabe,
belnr TYPE ekbe-belnr,
buzei TYPE ekbe-buzei,
END OF itab_ekbe.
DATA: BEGIN OF itab_vbak OCCURS 0,
vbeln TYPE vbak-vbeln,
audat TYPE vbak-audat,
vbtyp TYPE vbak-vbtyp,
auart TYPE vbak-auart,
netwr TYPE vbak-netwr,
waerk TYPE vbak-waerk,
vkorg TYPE vbak-vkorg,
vtweg TYPE vbak-vtweg,
spart TYPE vbak-spart,
vkgrp TYPE vbak-vkgrp,
vkbur TYPE vbak-vkbur,
gsber TYPE vbak-gsber,
knumv TYPE vbak-knumv,
kunnr TYPE vbak-kunnr,
kostl TYPE vbak-kostl,
kokrs TYPE vbak-kokrs,
kurst TYPE vbak-kurst,
grupp TYPE vbak-grupp,
vgbel TYPE vbak-vgbel,
bukrs_vf TYPE vbak-bukrs_vf,
zuonr TYPE vbak-zuonr,
vsnmr_v TYPE vbak-vsnmr_v,
END OF itab_vbak.
DATA: BEGIN OF itab_vbuk OCCURS 0,
vbeln TYPE vbuk-vbeln,
lfstk TYPE vbuk-lfstk,
fkstk TYPE vbuk-fkstk,
fksak TYPE vbuk-fksak,
buchk TYPE vbuk-buchk,
cmgst TYPE vbuk-cmgst,
END OF itab_vbuk.
DATA: BEGIN OF itab_vbup OCCURS 0,
vbeln TYPE vbup-vbeln,
posnr TYPE vbup-posnr,
lfsta TYPE vbup-lfsta,
fksta TYPE vbup-fksta,
fksaa TYPE vbup-fksaa,
END OF itab_vbup.
DATA: BEGIN OF itab_vbpa OCCURS 0,
vbeln TYPE vbpa-vbeln,
posnr TYPE vbpa-posnr,
parvw TYPE vbpa-parvw,
kunnr TYPE vbpa-kunnr,
lifnr TYPE vbpa-lifnr,
adrnr TYPE vbpa-adrnr,
ablad TYPE vbpa-ablad,
land1 TYPE vbpa-land1,
END OF itab_vbpa.
DATA: BEGIN OF itab_vbkd OCCURS 0,
vbeln TYPE vbkd-vbeln,
posnr TYPE vbkd-posnr,
inco1 TYPE vbkd-inco1,
inco2 TYPE vbkd-inco2,
zterm TYPE vbkd-zterm,
empst TYPE vbkd-empst,
bstkd TYPE vbkd-bstkd,
END OF itab_vbkd.
DATA: BEGIN OF itab_vbap OCCURS 0,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
arktx TYPE vbap-arktx,
pstyv TYPE vbap-pstyv,
fkrel TYPE vbap-fkrel,
gsber TYPE vbap-gsber,
netwr TYPE vbap-netwr,
waerk TYPE vbap-waerk,
kwmeng TYPE vbap-kwmeng,
vrkme TYPE vbap-vrkme,
brgew TYPE vbap-brgew,
ntgew TYPE vbap-ntgew,
gewei TYPE vbap-gewei,
vgbel TYPE vbap-vgbel,
vgpos TYPE vbap-vgpos,
werks TYPE vbap-werks,
vstel TYPE vbap-vstel,
netpr TYPE vbap-netpr,
shkzg TYPE vbap-shkzg,
ktgrm TYPE vbap-ktgrm,
prctr TYPE vbap-prctr,
ps_psp_pnr TYPE vbap-ps_psp_pnr,
aufnr TYPE vbap-aufnr,
j_1btaxlw2 TYPE vbap-j_1btaxlw2,
END OF itab_vbap.
DATA: BEGIN OF itab_likp OCCURS 0,
vbeln TYPE likp-vbeln,
vkorg TYPE likp-vkorg,
inco1 TYPE likp-inco1,
inco2 TYPE likp-inco2,
lifsk TYPE likp-lifsk,
kunnr TYPE likp-kunnr,
kunag TYPE likp-kunag,
btgew TYPE likp-btgew,
ntgew TYPE likp-ntgew,
lstel TYPE likp-lstel,
knumv TYPE likp-knumv,
exnum TYPE likp-exnum,
lifnr TYPE likp-lifnr,
traid TYPE likp-traid,
wadat_ist TYPE likp-wadat_ist,
END OF itab_likp.
DATA: BEGIN OF itab_lips OCCURS 0,
vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
matnr TYPE lips-matnr,
werks TYPE lips-werks,
charg TYPE lips-charg,
lfimg TYPE lips-lfimg,
meins TYPE lips-meins,
vrkme TYPE lips-vrkme,
ntgew TYPE lips-ntgew,
brgew TYPE lips-brgew,
gewei TYPE lips-gewei,
arktx TYPE lips-arktx,
vgbel TYPE lips-vgbel,
vgpos TYPE lips-vgpos,
xchpf TYPE lips-xchpf,
gsber TYPE lips-gsber,
vkgrp TYPE lips-vkgrp,
kostl TYPE lips-kostl,
prctr TYPE lips-prctr,
kcmeng TYPE lips-kcmeng,
kcbrgew TYPE lips-kcbrgew,
kcntgew TYPE lips-kcntgew,
uecha TYPE lips-uecha,
kcgewei TYPE lips-kcgewei,
shkzg TYPE lips-shkzg,
END OF itab_lips.
DATA: BEGIN OF itab_vbrk OCCURS 0,
vbeln TYPE vbrk-vbeln,
fkart TYPE vbrk-fkart,
waerk TYPE vbrk-waerk,
vkorg TYPE vbrk-vkorg,
knumv TYPE vbrk-knumv,
fkdat TYPE vbrk-fkdat,
inco1 TYPE vbrk-inco1,
kurrf TYPE vbrk-kurrf,
zterm TYPE vbrk-zterm,
ktgrd TYPE vbrk-ktgrd,
land1 TYPE vbrk-land1,
bukrs TYPE vbrk-bukrs,
kunrg TYPE vbrk-kunrg,
kunag TYPE vbrk-kunag,
exnum TYPE vbrk-exnum,
sfakn TYPE vbrk-sfakn,
xblnr TYPE vbrk-xblnr,
logsys TYPE vbrk-logsys,
fksto TYPE vbrk-fksto,
kidno TYPE vbrk-kidno,
END OF itab_vbrk.
DATA: BEGIN OF itab_vbrp OCCURS 0,
vbeln TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
fkimg TYPE vbrp-fkimg,
vrkme TYPE vbrp-vrkme,
ntgew TYPE vbrp-ntgew,
brgew TYPE vbrp-brgew,
gewei TYPE vbrp-gewei,
gsber TYPE vbrp-gsber,
netwr TYPE vbrp-netwr,
vbelv TYPE vbrp-vbelv,
posnv TYPE vbrp-posnv,
vgbel TYPE vbrp-vgbel,
vgpos TYPE vbrp-vgpos,
aubel TYPE vbrp-aubel,
aupos TYPE vbrp-aupos,
matnr TYPE vbrp-matnr,
arktx TYPE vbrp-arktx,
pstyv TYPE vbrp-pstyv,
werks TYPE vbrp-werks,
ktgrm TYPE vbrp-ktgrm,
kostl TYPE vbrp-kostl,
vkgrp TYPE vbrp-vkgrp,
spara TYPE vbrp-spara,
shkzg TYPE vbrp-shkzg,
prctr TYPE vbrp-prctr,
kokrs TYPE vbrp-kokrs,
ps_psp_pnr TYPE vbrp-ps_psp_pnr,
aufnr TYPE vbrp-aufnr,
cmpre TYPE vbrp-cmpre,
vkorg_auft TYPE vbrp-vkorg_auft,
vtweg_auft TYPE vbrp-vtweg_auft,
END OF itab_vbrp.
DATA: BEGIN OF itab_bkpf OCCURS 0,
bukrs TYPE bkpf-bukrs,
belnr TYPE bkpf-belnr,
gjahr TYPE bkpf-gjahr,
awtyp TYPE bkpf-awtyp,
awkey TYPE bkpf-awkey,
awsys TYPE bkpf-awsys,
END OF itab_bkpf.
DATA: BEGIN OF itab_vttk OCCURS 0,
tknum TYPE vttk-tknum,
vbtyp TYPE vttk-vbtyp,
vsart TYPE vttk-vsart,
signi TYPE vttk-signi,
dplbg TYPE vttk-dplbg,
END OF itab_vttk.
DATA: BEGIN OF itab_vttp OCCURS 0,
tknum TYPE vttp-tknum,
tpnum TYPE vttp-tpnum,
vbeln TYPE vttp-vbeln,
END OF itab_vttp.
CONSTANTS:
c_transacao_e TYPE sy-tcode VALUE '/PWS/ZYCE003_E',
c_transacao_a TYPE sy-tcode VALUE '/PWS/ZYCE003_A'.
DATA: BEGIN OF itab_ekpo OCCURS 0,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
ematn TYPE ekpo-ematn,
werks TYPE ekpo-werks,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netwr TYPE ekpo-netwr,
knttp TYPE ekpo-knttp,
ntgew TYPE ekpo-ntgew,
gewei TYPE ekpo-gewei,
brgew TYPE ekpo-brgew,
inco1 TYPE ekpo-inco1,
END OF itab_ekpo.
DATA: BEGIN OF itab_zycet020 OCCURS 0,
auart TYPE /pws/zycet020-auart,
bukrs TYPE /pws/zycet020-bukrs,
tipodoc TYPE /pws/zycet020-tipodoc,
back TYPE /pws/zycet020-back,
atual_c TYPE /pws/zycet020-atual_c,
END OF itab_zycet020.
DATA: BEGIN OF itab_zycet037 OCCURS 0,
bukrs TYPE /pws/zycet037-bukrs,
parvw1 TYPE /pws/zycet037-parvw1,
gewei TYPE /pws/zycet037-gewei,
envia_c TYPE /pws/zycet037-envia_c,
tpcomissao TYPE /pws/zycet037-tpcomissao,
agrupa_t30 TYPE /pws/zycet037-agrupa_t30,
dados_r3 TYPE /pws/zycet037-dados_r3,
nro_empresas TYPE /pws/zycet037-nro_empresas,
gera_fornec TYPE /pws/zycet037-gera_fornec,
agrup_fat_rec TYPE /pws/zycet037-agrup_fat_rec,
centro_dif TYPE /pws/zycet037-centro_dif,
doc_emp TYPE /pws/zycet037-doc_emp,
elimina_estorno TYPE /pws/zycet037-elimina_estorno,
comis_provisao TYPE /pws/zycet037-comis_provisao,
consig_std TYPE /pws/zycet037-consig_std,
cond_inativa TYPE /pws/zycet037-cond_inativa,
alt_cond TYPE /pws/zycet037-alt_cond,
rec_camb TYPE /pws/zycet037-rec_camb,
doc_camb TYPE /pws/zycet037-doc_camb,
agrup_fat_blq TYPE /pws/zycet037-agrup_fat_blq,
tpverifparc TYPE /pws/zycet037-tpverifparc,
alt_incoterm TYPE /pws/zycet037-alt_incoterm,
dtlct TYPE /pws/zycet037-dtlct,
cond_estat TYPE /pws/zycet037-cond_estat,
END OF itab_zycet037.
DATA: BEGIN OF itab_zycet023 OCCURS 0,
fkart TYPE /pws/zycet023-fkart,
bukrs TYPE /pws/zycet023-bukrs,
somaqtd TYPE /pws/zycet023-somaqtd,
tipodoc TYPE /pws/zycet023-tipodoc,
estorno TYPE /pws/zycet023-estorno,
END OF itab_zycet023.
DATA: BEGIN OF itab_ekko OCCURS 0,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
lifnr TYPE ekko-lifnr,
zterm TYPE ekko-zterm,
ekorg TYPE ekko-ekorg,
ekgrp TYPE ekko-ekgrp,
waers TYPE ekko-waers,
ihrez TYPE ekko-ihrez,
kunnr TYPE ekko-kunnr,
reswk TYPE ekko-reswk,
knumv TYPE ekko-knumv,
END OF itab_ekko.
DATA: BEGIN OF itab_t001k OCCURS 0,
bwkey TYPE t001k-bwkey,
bukrs TYPE t001k-bukrs,
END OF itab_t001k.
DATA: BEGIN OF itab_ekpv OCCURS 0,
ebeln TYPE ekpv-ebeln,
ebelp TYPE ekpv-ebelp,
kunnr TYPE ekpv-kunnr,
kunag TYPE ekpv-kunag,
vkorg TYPE ekpv-vkorg,
vtweg TYPE ekpv-vtweg,
END OF itab_ekpv.
DATA: v_flag(1) TYPE c.
DATA: BEGIN OF itab_fluxo OCCURS 0,
nrseq TYPE /pws/zycet002-nrseq,
vbeln_va TYPE /pws/zycet002-vbeln_va,
aupos TYPE /pws/zycet002-aupos,
ebeln TYPE /pws/zycet002-ebeln,
END OF itab_fluxo.
DATA: BEGIN OF itab_zycet312 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet312.
DATA: END OF itab_zycet312.
DATA: BEGIN OF itab_j_1bnflin OCCURS 0,
docnum TYPE j_1bnflin-docnum,
itmnum TYPE j_1bnflin-itmnum,
reftyp TYPE j_1bnflin-reftyp,
refkey TYPE j_1bnflin-refkey,
END OF itab_j_1bnflin.
DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0,
docnum TYPE j_1bnfdoc-docnum,
docdat TYPE j_1bnfdoc-docdat,
pstdat TYPE j_1bnfdoc-pstdat,
series TYPE j_1bnfdoc-series,
nfnum TYPE j_1bnfdoc-nfnum,
END OF itab_j_1bnfdoc.
DATA: BEGIN OF itab_kna1 OCCURS 0,
kunnr TYPE kna1-kunnr,
land1 TYPE kna1-land1,
name1 TYPE kna1-name1,
name2 TYPE kna1-name2,
ort01 TYPE kna1-ort01,
pstlz TYPE kna1-pstlz,
regio TYPE kna1-regio,
stras TYPE kna1-stras,
adrnr TYPE kna1-adrnr,
ktokd TYPE kna1-ktokd,
ort02 TYPE kna1-ort02,
spras TYPE kna1-spras,
END OF itab_kna1.
DATA: BEGIN OF itab_marc OCCURS 0,
matnr TYPE marc-matnr,
werks TYPE marc-werks,
steuc TYPE marc-steuc,
END OF itab_marc.
DATA: BEGIN OF itab_zycet145 OCCURS 0,
bukrs TYPE /pws/zycet145-bukrs,
branch TYPE /pws/zycet145-branch,
filial TYPE /pws/zycet145-filial,
re_apos_agrup TYPE /pws/zycet145-re_apos_agrup,
END OF itab_zycet145.
DATA: BEGIN OF wa_valores,
nrseq_consig TYPE /pws/zycet001-nrseq,
peso(30) TYPE c,
parvw_final(20) TYPE c,
preco_base TYPE /pws/zycet008-vlme,
preco_000001 TYPE /pws/zycet008-vlme,
pais_dest TYPE t005t-landx,
pais_emb TYPE t005t-landx,
gsber TYPE tgsbt-gtext,
werks TYPE t001w-name1,
vkorg TYPE tvkot-vtext,
vtweg TYPE tvtwt-vtext,
spara TYPE tspat-vtext,
kostl TYPE cskt-ktext,
prctr TYPE cepct-ktext,
vkgrp TYPE tvgrt-bezei,
auart TYPE tvakt-bezei,
fkart TYPE tvfkt-vtext,
inco1 TYPE tinct-bezei,
zterm TYPE t052u-text1,
ktgrm TYPE tvkmt-vtext,
ktgrd TYPE tvktt-vtext,
nrseq_ref TYPE /pws/zycet002-nrseq_ref,
END OF wa_valores.
DATA: BEGIN OF itab_zycet156 OCCURS 0,
bukrs TYPE /pws/zycet156-bukrs,
codmod TYPE /pws/zycet156-codmod,
codigo TYPE /pws/zycet156-codigo,
kschl TYPE /pws/zycet156-kschl,
vtext TYPE /pws/zycet156-vtext,
fator TYPE /pws/zycet156-fator,
rateio TYPE /pws/zycet156-rateio,
proccond TYPE /pws/zycet156-proccond,
END OF itab_zycet156.
TYPES: BEGIN OF type_pricing,
codigo TYPE /pws/zycet008-codigo,
kschl TYPE konv-kschl,
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
kwert TYPE konv-kwert,
kbetr TYPE konv-kbetr,
END OF type_pricing.
DATA: itab_pricing TYPE SORTED TABLE OF type_pricing
WITH NON-UNIQUE KEY codigo vbeln posnr kschl
WITH HEADER LINE.
TYPES: BEGIN OF type_konv,
knumv TYPE konv-knumv,
kposn TYPE konv-kposn,
stunr TYPE konv-stunr,
zaehk TYPE konv-zaehk,
kschl TYPE konv-kschl,
kbetr TYPE konv-kbetr,
waers TYPE konv-waers,
kntyp TYPE konv-kntyp,
kstat TYPE konv-kstat,
kwert TYPE konv-kwert,
kinak TYPE konv-kinak,
END OF type_konv.
DATA: itab_konv TYPE SORTED TABLE OF type_konv
WITH NON-UNIQUE KEY knumv kposn stunr zaehk
WITH HEADER LINE.
DATA: BEGIN OF itab_zycet065 OCCURS 0,
inco1 TYPE /pws/zycet065-inco1,
fob TYPE /pws/zycet065-fob,
frete TYPE /pws/zycet065-frete,
seguro TYPE /pws/zycet065-seguro,
outras_desp TYPE /pws/zycet065-outras_desp,
desconto TYPE /pws/zycet065-desconto,
acrescimo TYPE /pws/zycet065-acrescimo,
comissao TYPE /pws/zycet065-comissao,
END OF itab_zycet065.
DATA: BEGIN OF itab_docrel OCCURS 0,
vbeln_va TYPE vbap-vbeln,
aupos TYPE vbap-posnr,
vbeln_vl TYPE lips-vbeln,
posnl TYPE lips-posnr,
vbeln_vf TYPE vbrp-vbeln,
posnr TYPE vbrp-posnr,
texto(50) TYPE c,
vbelv_va TYPE vbap-vbeln,
aupov TYPE vbap-posnr,
vbelv_vl TYPE lips-vbeln,
posvl TYPE lips-posnr,
vbelv_vf TYPE vbrp-vbeln,
posnv TYPE vbrp-posnr,
END OF itab_docrel.
DATA: itab_docrel_tc LIKE itab_docrel OCCURS 0 WITH HEADER LINE.
DATA: itab_pricing_tc LIKE itab_pricing OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: END OF COMMON PART.