Visualização da Nota 5101

CE PLUS - Nota 005101

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Custo Efetivo

Data/Hora da Publicação: 29/10/2007 00:00:00

Data/Hora Última Alteração: 12/11/2013 11:50:03

Descrição da Nota: ABERTURA DE EXIT NA FUNÇÃO DO RATEIO DO CUSTO

Sintoma

Abertura de exit na função do Rateio do custo efetivo.

Solução

Abertura de exit na função do Rateio do custo

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 2396

FATURA DE DESPESA PARA EMBARQUES DE SERVIÇO

Informações Complementares

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

Nota Número 05101 Data: 29/10/2007 Hora: 10:40:46

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

Nota Número : 05101

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 7.0

Pacote : 00003

Agrupamento : 00020

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02396 - 00001 - 6.0 - 00025 - FATURA DE DESPESA PARA EMBARQUES DE SERVIÇO

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

ABERTURA DE EXIT NA FUNÇÃO DO RATEIO DO CUSTO

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

Palavras Chave:

ABERTURA DE EXIT NA FUNÇÃO DO RATEIO DO CUSTO (RTC001)

/PWS/ZYCI_RATEIO_CUSTO

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

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

REPS /PWS/LZYCIGF2F01

REPS /PWS/LZYCIGF2TOP

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

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

FUNCTION /pws/zyci_rateio_custo.

*"----------------------------------------------------------------------

*"*"Interface local:

*" IMPORTING

*" REFERENCE(V_PROGRAMA) LIKE /PWS/ZYCIT036-ORIGEM

*" REFERENCE(V_NRSEQORI) LIKE /PWS/ZYCIT036-NRSEQORI OPTIONAL

*" REFERENCE(V_PARAMETRO) LIKE /PWS/ZYCIT003-DESCR OPTIONAL

*" REFERENCE(V_VISUALIZA) TYPE C

*" REFERENCE(V_TOTAL) LIKE /PWS/ZYCIT036-NETPR OPTIONAL

*" REFERENCE(V_WAERS) LIKE /PWS/ZYCIE006-WAERS OPTIONAL

*" REFERENCE(V_BUKRS) LIKE /PWS/ZYCBT007-BUKRS

*" REFERENCE(V_BATCH) TYPE C OPTIONAL

*" REFERENCE(/PWS/ZYCIE085) LIKE /PWS/ZYCIE085 STRUCTURE

*" /PWS/ZYCIE085 OPTIONAL

*" EXPORTING

*" VALUE(V_RESPOSTA) TYPE C

*" VALUE(V_ERRO) TYPE C OPTIONAL

*" TABLES

*" ITAB_ZYCIT036 STRUCTURE /PWS/ZYCIT036 OPTIONAL

*" ITAB_DESPESA STRUCTURE /PWS/ZYCIE353 OPTIONAL

*" ITAB_ZYCIT003 STRUCTURE /PWS/ZYCIT003 OPTIONAL

*" ITAB_ZYCIT100 STRUCTURE /PWS/ZYCIT100 OPTIONAL

*" ITAB_ZYCIT036_PLAN STRUCTURE /PWS/ZYCIT036 OPTIONAL

*" CHANGING

*" REFERENCE(V_TAXA_USD) LIKE /PWS/ZYCIT174-TXCONVER OPTIONAL

*"----------------------------------------------------------------------

*-----------------------------------------------------------------------

* Procwork Software

* Módulo : MM

* Descrição : CI - Rateio de Despesas do Custo Efetivo

*-----------------------------------------------------------------------

* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO

*Tabelas Internas

* TABLES t001.

* DATA: BEGIN OF itab_zycit036_aux2 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit036.

* DATA: END OF itab_zycit036_aux2.

* DATA: BEGIN OF itab_zycit036_aux OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit036.

* DATA: tpdesp LIKE /pws/zycit019-tpdesp.

* DATA: END OF itab_zycit036_aux.

* DATA: BEGIN OF itab_zycit140_aux OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit140.

* DATA: END OF itab_zycit140_aux.

* DATA: BEGIN OF itab_zycit403 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit403.

* DATA: END OF itab_zycit403.

* DATA: BEGIN OF itab_zycit039 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit039.

* DATA: END OF itab_zycit039.

* DATA: BEGIN OF itab_zycit100a OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit100.

* DATA vl_sisco(13) TYPE p DECIMALS 3. "like /pws/zycit049-vldp.

* DATA: END OF itab_zycit100a.

* DATA: BEGIN OF itab_zycit443 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit443.

* DATA vl_sisco(13) TYPE p DECIMALS 3. "like /pws/zycit049-vldp.

* DATA: END OF itab_zycit443.

* DATA: BEGIN OF itab_zycit116 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit116.

* DATA: nr_itens TYPE i,

* flag_vltot.

* DATA: END OF itab_zycit116.

* DATA: BEGIN OF itab_zycit451 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit451.

* DATA: nr_itens TYPE i,

* flag_vltot.

* DATA: END OF itab_zycit451.

* DATA: BEGIN OF itab_zycit336 OCCURS 0.

* INCLUDE STRUCTURE /pws/zycit336.

* DATA: END OF itab_zycit336.

* DATA: BEGIN OF itab_zycit031 OCCURS 0. "Par. de Incoterms

* INCLUDE STRUCTURE /pws/zycit031.

* DATA: END OF itab_zycit031.

* DATA: BEGIN OF itab_zycit003_aux OCCURS 0. "Par. de Incoterms

* INCLUDE STRUCTURE /pws/zycit003.

* DATA: END OF itab_zycit003_aux.

** PWS9002713 - INICIO

* DATA: BEGIN OF itab_ekpo OCCURS 0. "Itens do pedido

* INCLUDE STRUCTURE ekpo.

* DATA: END OF itab_ekpo.

** PWS9002713 - FIM

* DATA: BEGIN OF itab_adicao OCCURS 0.

* INCLUDE STRUCTURE /pws/zycie116.

* DATA: nr_itens TYPE i,

* flag_vltot,

* END OF itab_adicao.

* DATA: BEGIN OF it_desp OCCURS 0,

* nrseq LIKE /pws/zycie003-nrseq,

* ebeln LIKE /pws/zycie003-ebeln,

* ebelp LIKE /pws/zycie003-ebelp,

* netpr LIKE /pws/zycie003-netpr,

* waers LIKE /pws/zycie003-waers,

* menge LIKE /pws/zycie003-menge,

* qtd_iten LIKE /pws/zycie003-qtd_iten,

* werks LIKE /pws/zycie003-werks,

* advalii LIKE /pws/zycie003-advalii,

* advalipi LIKE /pws/zycie003-advalipi,

* aliqicms LIKE /pws/zycie003-aliqicms,

* bukrs LIKE /pws/zycit085-bukrs,

* inco1 LIKE /pws/zycit001-inco1,

* embarca LIKE /pws/zycit001-embarca,

* vlseg LIKE /pws/zycit100-vlseg,

* vlfre LIKE /pws/zycit100-vlfre,

* vlii LIKE /pws/zycit100-vlii,

* vlipi LIKE /pws/zycit100-vlipi,

* vlicms LIKE /pws/zycit100-vlicms,

* vlpis LIKE /pws/zycit100-vlpis ,

* vlcofins LIKE /pws/zycit100-vlcofins,

* END OF it_desp.

* DATA: itab_despesa_aux LIKE itab_despesa OCCURS 0 WITH HEADER LINE,

* itab_despesa_aux2 LIKE itab_despesa OCCURS 0 WITH HEADER LINE.

**Variáveis

* DATA: vl_real LIKE /pws/zycit036-vlreal,

** vl_item_tot LIKE /pws/zycit036-netpr,

* vltotal LIKE /pws/zycit036-netpr,

* vl_porcent TYPE p DECIMALS 4,

* v_line LIKE sy-tabix,

* v_lines LIKE sy-tabix,

* v_tot_ii LIKE /pws/zycit100-vlii,

* v_tot_ipi LIKE /pws/zycit100-vlipi,

* v_tot_icms LIKE /pws/zycit100-vlicms,

** PWS9410830 - Inicio

* v_tot_pis LIKE /pws/zycit100-vlipi,

* v_tot_cofins LIKE /pws/zycit100-vlipi,

** PWS9410830 - FIM

* v_sisco1(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco2(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco3(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco_item(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco_tot(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco_acum(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

* v_sisco_dif(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp.

* v_tpeso LIKE /pws/zycit003-ntgew,

* v_tfrete LIKE /pws/zycie006-vlfre,

* v_valor LIKE /pws/zycie006-vlseg,

* v_tvalor LIKE /pws/zycie006-vlseg,

* v_tseg LIKE /pws/zycie006-vlseg,

* v_vlfrete LIKE /pws/zycit100-vlfre,

* v_seg LIKE /pws/zycie006-vlseg,

* v_tot_desp LIKE /pws/zycit036-vlreal,

* v_plan LIKE /pws/zycit001-netpr,

* v_tot LIKE /pws/zycit003-netpr,

* v_tot_vlreal LIKE /pws/zycit003-vlreal,

* v_linha TYPE sy-tabix,

* v_index LIKE sy-tabix,

* v_line_rateio TYPE i,

* v_line_ac TYPE i,

** v_ac_fre like /pws/zycit085-vlfre,

** v_ac_seg like /pws/zycit085-vlseg,

**Chamado 375685 - Inicio

** v_ac_fre LIKE /pws/zycit100-vlfre,

* v_ac_fre LIKE /pws/zycit036-vlreal,

* v_fre_tp LIKE /pws/zycit036-vlreal,

**Chamado 375685 - Fim

* v_ac_seg LIKE /pws/zycit100-vlseg,

* vl_ii LIKE itab_zycit100-vlii,

* vl_ipi LIKE itab_zycit100-vlipi,

* vl_icms LIKE itab_zycit100-vlicms,

* vltot_ii LIKE /pws/zycit036-vlreal,

* vltot_ipi LIKE /pws/zycit036-vlreal,

* vltot_icms LIKE /pws/zycit036-vlreal,

* vl_imp LIKE /pws/zycit036-vlreal,

* v_ori LIKE /pws/zycit140-origem,

* v_taxa LIKE /pws/zycie085-ukursfob,

* vltot_pis LIKE /pws/zycit036-vlreal,

**Chamado 395376 - Inicio

** vl_pis LIKE /pws/zycit036-vlreal,

* vl_pis LIKE itab_zycit100-vlpis,

**Chamado 395376 - Fim

* vltot_cofins LIKE /pws/zycit036-vlreal,

**Chamado 395376 - Inicio

** vl_cofins LIKE /pws/zycit036-vlreal,

* vl_cofins LIKE itab_zycit100-vlcofins,

**Chamado 395376 - Fim

* v_vlseg LIKE /pws/zycit036-vlreal.

**339830 inicio

* DATA: v_vfre LIKE /pws/zycie085-vlfre,

* v_tfre LIKE /pws/zycie085-vlfre,

* v_vseg LIKE /pws/zycie085-vlseg,

* v_vfob LIKE /pws/zycie085-vlfob,

* v_vtot LIKE /pws/zycie085-vlfob.

* DATA: v_vinserv TYPE /pws/zycit006-vinserv.

**339830 fim

*<<Fim exclusão

...

vl_pis LIKE itab_zycit100-vlpis,

vltot_cofins LIKE /pws/zycit036-vlreal,

vl_cofins LIKE itab_zycit100-vlcofins,

v_vlseg LIKE /pws/zycit036-vlreal.

DATA: v_vfre LIKE /pws/zycie085-vlfre,

v_tfre LIKE /pws/zycie085-vlfre,

v_vseg LIKE /pws/zycie085-vlseg,

v_vfob LIKE /pws/zycie085-vlfob,

v_vtot LIKE /pws/zycie085-vlfob.

DATA: v_vinserv TYPE /pws/zycit006-vinserv.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO

PERFORM carrega_exits

CHANGING

itab_zyglt100[].

* << Fim da inclusão

IF NOT itab_zycit003[] IS INITIAL.

MOVE itab_zycit003[] TO itab_zycit003_aux[].

IF NOT itab_zycit003_aux[] IS INITIAL.

SELECT * FROM /pws/zycit003

INTO TABLE itab_zycit003

FOR ALL ENTRIES IN itab_zycit003_aux

WHERE nrseq = itab_zycit003_aux-nrseq AND

ebeln = itab_zycit003_aux-ebeln AND

ebelp = itab_zycit003_aux-ebelp.

ENDIF.

...

itab_zycit100a-vl_sisco = v_sisco_item.

v_sisco_tot = v_sisco_tot + v_sisco_item.

ENDIF.

MODIFY itab_zycit100a.

ENDLOOP.

ENDIF.

DESCRIBE TABLE itab_zycit003 LINES v_linha.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO

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

if itab_zyglt100-programa IS INITIAL

AND itab_zyglt100-formulario IS INITIAL

and itab_zyglt100-zexit_ativa is initial.

* << Fim da inclusão

IF v_programa EQ 'DC' OR v_programa EQ 'PC' OR

v_programa EQ 'DI' OR

( v_programa EQ 'FAT' AND v_parametro(2) EQ '04' ).

MOVE itab_zycit036[] TO itab_zycit036_aux[].

LOOP AT itab_despesa WHERE netpr NE 0.

CLEAR: v_tot_desp.

LOOP AT itab_zycit003 .

IF /pws/zycie085-waersfob NE itab_zycit003-waers.

PERFORM taxa_converte USING itab_zycit003-waers

/pws/zycie085-dttax

...

IF ( itab_zycit036_aux2-codigo NE 'FOB' AND

itab_zycit036_aux2-codigo NE 'C&F' AND

itab_zycit036_aux2-codigo NE 'CIF' ) OR

itab_zycit036_aux2-origem = 'NF'.

MOVE-CORRESPONDING itab_zycit036_aux2 TO itab_zycit336.

MODIFY /pws/zycit336 FROM itab_zycit336.

ENDIF.

ENDLOOP.

ENDIF.

MOVE itab_zycit036_aux2[] TO itab_zycit036[].

ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO

else.

e_programa = v_programa .

e_nrseqori = v_nrseqori .

e_parametro = v_parametro.

e_visualiza = v_visualiza.

e_total = v_total .

e_waers = v_waers .

e_bukrs = v_bukrs .

e_batch = v_batch .

wa_zycie085 = /pws/zycie085.

e_resposta = v_resposta.

e_erro = v_erro .

itab_zycit036_exit[] = itab_zycit036[] .

itab_despesa_exit[] = itab_despesa[] .

itab_zycit003_exit[] = itab_zycit003[] .

itab_zycit100_exit[] = itab_zycit100[] .

itab_zycit036_plan_ex[] = itab_zycit036_plan[].

e_taxa_usd = v_taxa_usd .

PERFORM (itab_zyglt100-formulario) IN PROGRAM

(itab_zyglt100-programa) IF FOUND.

IF e_subrc = '0'.

v_resposta = e_resposta .

v_erro = e_erro .

e_taxa_usd = v_taxa_usd .

ENDIF.

* << Fim da inclusão

IF v_visualiza IS INITIAL AND /pws/zycit000-flag_rateio IS INITIAL.

v_erro = '2'.

v_resposta = 'S'.

ENDIF.

IF v_visualiza = 'N'.

v_erro = '2'.

v_resposta = 'S'.

ENDIF.

REFRESH: itab_zycit036_aux2.

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

...

* >> Início da inclusão:

FORM carrega_exits

CHANGING

zyglt100 LIKE itab_zyglt100[].

CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

EXPORTING

i_codmod = 'D'

i_func = '/PWS/LZYCIGF5U05'

TABLES

itab_zyglt100 = zyglt100

EXCEPTIONS

i_codmod_nao_encontrado = 1

i_func_nao_encontrado = 2

i_zexit_nao_encontrado = 3

OTHERS = 4.

IF sy-subrc <> 0.

REFRESH zyglt100.

ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em /PWS/LZYCIGF2X01

*Criado include /PWS/LZYCIGF2X01

*----------------------------------------------------------------------*

* INCLUDE /PWS/LZYCIGF2X01 *

*----------------------------------------------------------------------*

* INCLUDE /PWS/LZYCIGF2X01 *

*----------------------------------------------------------------------*

DATA BEGIN OF COMMON PART a.

data: ITAB_ZYCIT036 type /PWS/ZYCIT036 ,

ITAB_DESPESA type /PWS/ZYCIE353,

ITAB_ZYCIT003 type /PWS/ZYCIT003,

ITAB_ZYCIT100 type /PWS/ZYCIT100,

ITAB_ZYCIT036_PLAN type /PWS/ZYCIT036.

DATA: BEGIN OF itab_zycit036_aux2 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit036.

DATA: END OF itab_zycit036_aux2.

DATA: BEGIN OF itab_zycit036_aux OCCURS 0.

INCLUDE STRUCTURE /pws/zycit036.

DATA: tpdesp LIKE /pws/zycit019-tpdesp.

DATA: END OF itab_zycit036_aux.

DATA: BEGIN OF itab_zycit140_aux OCCURS 0.

INCLUDE STRUCTURE /pws/zycit140.

DATA: END OF itab_zycit140_aux.

DATA: BEGIN OF itab_zycit403 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit403.

DATA: END OF itab_zycit403.

DATA: BEGIN OF itab_zycit039 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit039.

DATA: END OF itab_zycit039.

DATA: BEGIN OF itab_zycit100a OCCURS 0.

INCLUDE STRUCTURE /pws/zycit100.

DATA vl_sisco(13) TYPE p DECIMALS 3. "like /pws/zycit049-vldp.

DATA: END OF itab_zycit100a.

DATA: BEGIN OF itab_zycit443 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit443.

DATA vl_sisco(13) TYPE p DECIMALS 3. "like /pws/zycit049-vldp.

DATA: END OF itab_zycit443.

DATA: BEGIN OF itab_zycit116 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit116.

DATA: nr_itens TYPE i,

flag_vltot.

DATA: END OF itab_zycit116.

DATA: BEGIN OF itab_zycit451 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit451.

DATA: nr_itens TYPE i,

flag_vltot.

DATA: END OF itab_zycit451.

DATA: BEGIN OF itab_zycit336 OCCURS 0.

INCLUDE STRUCTURE /pws/zycit336.

DATA: END OF itab_zycit336.

DATA: BEGIN OF itab_zycit031 OCCURS 0. "Par. de Incoterms

INCLUDE STRUCTURE /pws/zycit031.

DATA: END OF itab_zycit031.

DATA: BEGIN OF itab_zycit003_aux OCCURS 0. "Par. de Incoterms

INCLUDE STRUCTURE /pws/zycit003.

DATA: END OF itab_zycit003_aux.

* PWS9002713 - INICIO

DATA: BEGIN OF itab_ekpo OCCURS 0. "Itens do pedido

INCLUDE STRUCTURE ekpo.

DATA: END OF itab_ekpo.

* PWS9002713 - FIM

DATA: BEGIN OF itab_adicao OCCURS 0.

INCLUDE STRUCTURE /pws/zycie116.

DATA: nr_itens TYPE i,

flag_vltot,

END OF itab_adicao.

DATA: BEGIN OF it_desp OCCURS 0,

nrseq LIKE /pws/zycie003-nrseq,

ebeln LIKE /pws/zycie003-ebeln,

ebelp LIKE /pws/zycie003-ebelp,

netpr LIKE /pws/zycie003-netpr,

waers LIKE /pws/zycie003-waers,

menge LIKE /pws/zycie003-menge,

qtd_iten LIKE /pws/zycie003-qtd_iten,

werks LIKE /pws/zycie003-werks,

advalii LIKE /pws/zycie003-advalii,

advalipi LIKE /pws/zycie003-advalipi,

aliqicms LIKE /pws/zycie003-aliqicms,

bukrs LIKE /pws/zycit085-bukrs,

inco1 LIKE /pws/zycit001-inco1,

embarca LIKE /pws/zycit001-embarca,

vlseg LIKE /pws/zycit100-vlseg,

vlfre LIKE /pws/zycit100-vlfre,

vlii LIKE /pws/zycit100-vlii,

vlipi LIKE /pws/zycit100-vlipi,

vlicms LIKE /pws/zycit100-vlicms,

vlpis LIKE /pws/zycit100-vlpis ,

vlcofins LIKE /pws/zycit100-vlcofins,

END OF it_desp.

DATA: itab_despesa_aux type /PWS/ZYCIE353 OCCURS 0 WITH HEADER LINE,

itab_despesa_aux2 type /PWS/ZYCIE353 OCCURS 0 WITH HEADER LINE.

*Variáveis

DATA: vl_real LIKE /pws/zycit036-vlreal,

* vl_item_tot LIKE /pws/zycit036-netpr,

vltotal LIKE /pws/zycit036-netpr,

vl_porcent TYPE p DECIMALS 4,

v_line LIKE sy-tabix,

v_lines LIKE sy-tabix,

v_tot_ii LIKE /pws/zycit100-vlii,

v_tot_ipi LIKE /pws/zycit100-vlipi,

v_tot_icms LIKE /pws/zycit100-vlicms,

* PWS9410830 - Inicio

v_tot_pis LIKE /pws/zycit100-vlipi,

v_tot_cofins LIKE /pws/zycit100-vlipi,

* PWS9410830 - FIM

v_sisco1(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco2(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco3(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco_item(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco_tot(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco_acum(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp,

v_sisco_dif(13) TYPE p DECIMALS 3, "like /pws/zycit049-vldp.

v_tpeso LIKE /pws/zycit003-ntgew,

v_tfrete LIKE /pws/zycie006-vlfre,

v_valor LIKE /pws/zycie006-vlseg,

v_tvalor LIKE /pws/zycie006-vlseg,

v_tseg LIKE /pws/zycie006-vlseg,

v_vlfrete LIKE /pws/zycit100-vlfre,

v_seg LIKE /pws/zycie006-vlseg,

v_tot_desp LIKE /pws/zycit036-vlreal,

v_plan LIKE /pws/zycit001-netpr,

v_tot LIKE /pws/zycit003-netpr,

v_tot_vlreal LIKE /pws/zycit003-vlreal,

v_linha TYPE sy-tabix,

v_index LIKE sy-tabix,

v_line_rateio TYPE i,

v_line_ac TYPE i,

* v_ac_fre like /pws/zycit085-vlfre,

* v_ac_seg like /pws/zycit085-vlseg,

*Chamado 375685 - Inicio

* v_ac_fre LIKE /pws/zycit100-vlfre,

v_ac_fre LIKE /pws/zycit036-vlreal,

v_fre_tp LIKE /pws/zycit036-vlreal,

*Chamado 375685 - Fim

v_ac_seg LIKE /pws/zycit100-vlseg,

vl_ii LIKE itab_zycit100-vlii,

vl_ipi LIKE itab_zycit100-vlipi,

vl_icms LIKE itab_zycit100-vlicms,

vltot_ii LIKE /pws/zycit036-vlreal,

vltot_ipi LIKE /pws/zycit036-vlreal,

vltot_icms LIKE /pws/zycit036-vlreal,

vl_imp LIKE /pws/zycit036-vlreal,

v_ori LIKE /pws/zycit140-origem,

v_taxa LIKE /pws/zycie085-ukursfob,

vltot_pis LIKE /pws/zycit036-vlreal,

vl_pis LIKE itab_zycit100-vlpis,

vltot_cofins LIKE /pws/zycit036-vlreal,

vl_cofins LIKE itab_zycit100-vlcofins,

v_vlseg LIKE /pws/zycit036-vlreal.

DATA: v_vfre LIKE /pws/zycie085-vlfre,

v_tfre LIKE /pws/zycie085-vlfre,

v_vseg LIKE /pws/zycie085-vlseg,

v_vfob LIKE /pws/zycie085-vlfob,

v_vtot LIKE /pws/zycie085-vlfob.

DATA: v_vinserv TYPE /pws/zycit006-vinserv.

DATA:

e_programa LIKE /pws/zycit036-origem,

e_nrseqori LIKE /pws/zycit036-nrseqori ,

e_parametro LIKE /pws/zycit003-descr ,

e_visualiza TYPE c,

e_total LIKE /pws/zycit036-netpr ,

e_waers LIKE /pws/zycie006-waers,

e_bukrs LIKE /pws/zycbt007-bukrs,

e_batch TYPE c ,

wa_zycie085 LIKE /pws/zycie085 ,

e_resposta TYPE c,

e_erro TYPE c ,

itab_zycit036_exit LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,

itab_despesa_exit LIKE /pws/zycie353 OCCURS 0 WITH HEADER LINE,

itab_zycit003_exit LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,

itab_zycit100_exit LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,

itab_zycit036_plan_ex LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,

e_taxa_usd LIKE /pws/zycit174-txconver ,

e_subrc value '0'.

DATA END OF COMMON PART .

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

Modificações efetuadas em /PWS/LZYCIGF2TOP

FUNCTION-POOL /pws/zycigf2 . "MESSAGE-ID

*<<Inicio Inclusão

INCLUDE: /PWS/LZYCIGF2X01.

*<<Fim Inclusão

TABLES:

skb1,

lfbw,

...

DATA: v_belnrf05 TYPE /pws/zycbt032-belnr,

v_erro_f05,

*<<Inicio Exclusão

e_subrc VALUE '0',

*<<Fim Exclusão

v_rec_ia_1 TYPE i.

...

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

Modificações efetuadas em /PWS/SAPLZYCIGF2

*Ir no grupo de funções /PWS/ZYCIGF2 e dar um duplo clique. Escolher programa básico.

*******************************************************************

* System-defined Include-files. *

*******************************************************************

INCLUDE /PWS/LZYCIGF2TOP. " Global Data

INCLUDE /PWS/LZYCIGF2UXX. " Function Modules

*******************************************************************

* User-defined Include-files (if necessary). *

*******************************************************************

INCLUDE /PWS/LZYCIGF2F01.

*<<Inicio exclusão

INCLUDE /PWS/LZYCIGF2X01.

*<<Fim exclusão