CE PLUS - Nota 004390
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 10/08/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:48:02
Descrição da Nota: ERRO NA DI AO FAZER VARIAÇÃO CAMBIAL.
Sintoma
Tratamento para gerar variação cambial para matuses diferentes, na DI.
Estorno de variação cambial com matuses diferentes.
Solução
ajustar seleção de contas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04390 Data: 10/08/2007 Hora: 11:22:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04390
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03466 - 00001 - 7.0 - 00001 - VARIAÇÃO CAMBIAL ESTÁ CONSIDERANDO FATURA DE DESPESAS
03954 - 00002 - 7.0 - 00002 - TRATAMENTO PARA CONTA BLOQUEADA NA RECLASSIFICAÇÃO DE IA
04090 - 00003 - 7.0 - 00002 - LANÇAR O CENTRO DE CUSTO NA RECLASSIFICAÇÃO DE IA.
04287 - 00004 - 7.0 - 00002 - DECLARAÇÃO DE IMPORTAÇÃO (DI) - VARIAÇÃO CAMBIAL
04390 - 00005 - 7.0 - 00002 - ERRO NA DI AO FAZER VARIAÇÃO CAMBIAL.
----------------------------------------------------------------------------------------------------
ERRO NA DI AO FAZER VARIAÇÃO CAMBIAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - DI - VARIAÇÃO CAMBIAL - MATUSE DIFERENTE - EMBALAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCIGF2F01
REPS /PWS/LZYCIGF2TOP
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RECLASSIFICACAO_IA
...
*Seleciona centro de lucro
CLEAR: itab_ekkn.
REFRESH: itab_ekkn.
SELECT ebeln ebelp prctr kostl kokrs fistl fipos aufnr ps_psp_pnr
FROM ekkn
INTO TABLE itab_ekkn
FOR ALL ENTRIES IN t_zycit003
WHERE ebeln = t_zycit003-ebeln
AND ebelp = t_zycit003-ebelp.
ENDIF.
READ TABLE itab_zycit094 INDEX 1.
SELECT *
FROM /pws/zycit006
INTO TABLE itab_zycit006
WHERE nrseqce EQ itab_zycit094-nrseqce
*<<< Inicio exclusão
AND tpfatura NE '11' and
*<<< Fim inclusão
*<<< Inicio inclusão
and ( tpfatura EQ '01' OR
tpfatura EQ '02' OR
tpfatura EQ '03' )
*<<< Fim inclusão
AND eliminado EQ space.
SELECT SINGLE *
FROM /pws/zycit093
...
...
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = i_zycit001-bukrs
ktosl = 'IPA'
werks = t_zycit003-werks
bklas = space
codaux1 = itab_matuse-j_1bmatuse
codaux2 = space
codaux3 = space
TABLES
account = itab_cta
EXCEPTIONS
key_not_found = 1 " Chave não encontrada
rules_not_found = 2 " Regras não parametrizadas
OTHERS = 3. " Outros erros
READ TABLE itab_cta INDEX 1.
READ TABLE itab_matuse_aux
WITH KEY hkont = itab_cta-konth
j_1bmatuse = itab_matuse-j_1bmatuse.
IF sy-subrc NE 0.
MOVE: itab_matuse-j_1bmatuse TO itab_matuse_aux-j_1bmatuse,
itab_cta-konth TO itab_matuse_aux-hkont .
APPEND itab_matuse_aux.
CLEAR itab_matuse_aux.
ENDIF.
ENDLOOP.
*<<< Inicio inclusão
SORT itab_zycit006 BY belnr_p.
*<<< Fim inclusão
MOVE itab_matuse_aux[] TO itab_matuse_aux3[].
SORT itab_matuse_aux3 BY hkont.
...
...
IF itab_zycit263[] IS INITIAL AND NOT itab_zycit006[] IS INITIAL.
SELECT *
FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit006
WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat.
ENDIF.
LOOP AT t_zycit100.
READ TABLE itab_zycit263 WITH KEY ebeln = t_zycit100-ebeln
ebelp = t_zycit100-ebelp.
CLEAR: itab_ekkn.
READ TABLE itab_ekkn WITH KEY ebeln = t_zycit100-ebeln
ebelp = t_zycit100-ebelp.
itab_di-kostl = itab_ekkn-kostl.
itab_di-prctr = itab_ekkn-prctr.
CLEAR itab_zycit006.
READ TABLE itab_zycit006
WITH KEY nrseq_pgfat = itab_zycit263-nrseq_pgfat.
CHECK NOT itab_zycit006-belnr_p IS INITIAL.
CLEAR: itab_matuse, itab_matuse_aux.
READ TABLE itab_matuse WITH KEY ebeln = t_zycit100-ebeln
ebelp = t_zycit100-ebelp.
READ TABLE itab_matuse_aux WITH KEY
j_1bmatuse = itab_matuse-j_1bmatuse.
IF /pws/zycit000-clucro_ia = 'X'.
PERFORM verifica_centro_l tables itab_matuse.
ENDIF.
MOVE: itab_matuse_aux-hkont TO itab_di-hkont,
t_zycit100-vlseg TO itab_di-vlseg,
t_zycit100-vlfre TO itab_di-vlfre.
itab_di-vlfob = t_zycit100-dttaxbem * t_zycit100-vlfob.
IF NOT /pws/zycit093-ternacion IS INITIAL.
READ TABLE t_zycit003 WITH KEY
nrseq = t_zycit100-nrseq
ebeln = t_zycit100-ebeln
ebelp = t_zycit100-ebelp .
IF NOT v_tntgew IS INITIAL.
itab_di-vlfren = ( ( t_zycit003-ntgew / v_tntgew ) *
/pws/zycit093-ternacion ) * /pws/zycie085-ukursfre .
ENDIF.
ENDIF.
itab_di-vldi = itab_di-vlfob + itab_di-vlseg +
itab_di-vlfre + itab_di-vlfren.
*<<< Inicio inclusão
itab_matuse-reclassifica = 'X' .
modify itab_matuse transporting reclassifica
where ebeln = t_zycit100-ebeln
and ebelp = t_zycit100-ebelp.
*<<< Fim inclusão
COLLECT itab_di.
CLEAR itab_di.
ENDLOOP.
CLEAR: v_rec_ia, v_rec_ia_1.
LOOP AT itab_matuse_aux2.
FREE: t_zycbt032, itab_contas.
CLEAR: t_zycbt032, itab_contas.
READ TABLE itab_bsis_aux WITH KEY hkont = itab_matuse_aux2-hkont.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
IF itab_matuse_aux2-j_1bmatuse = 0.
IF /pws/zycie085-belnr_0 IS INITIAL OR
/pws/zycie085-flag_reclass IS INITIAL.
IF /pws/zycie085-belnr_0_f05 IS INITIAL.
v_rec_ia = v_rec_ia + 1.
PERFORM fill_date_f_05_variacao TABLES t_zycbt032
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
* Acesso pelo Perform FILL_DATE_F_O5_VARIACAO na Função
...
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE p_zycbt032 WITH KEY tcode = 'F-05'
tabela = '/PWS/ZYCIT044'
cpochv = /pws/zycie085-nrseqdi
tpmsg = 'S'.
IF sy-subrc = 0.
CLEAR: v_belnrf05.
LOOP AT itab_matuse_aux WHERE
hkont = itab_matuse_aux2-hkont.
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
read table itab_matuse with key
j_1bmatuse = itab_matuse_aux-j_1bmatuse
reclassifica = 'X' .
if sy-subrc eq 0.
* << Fim da inclusão
IF itab_matuse_aux-j_1bmatuse = 0.
/pws/zycie085-belnr_0_f05 = p_zycbt032-belnr.
v_belnrf05 = /pws/zycie085-belnr_0_f05.
/pws/zycie085-budat_0 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 1.
/pws/zycie085-belnr_1_f05 = p_zycbt032-belnr.
v_belnrf05 = /pws/zycie085-belnr_1_f05.
/pws/zycie085-budat_1 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 2.
/pws/zycie085-belnr_2_f05 = p_zycbt032-belnr.
v_belnrf05 = /pws/zycie085-belnr_2_f05.
/pws/zycie085-budat_2 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 3.
/pws/zycie085-belnr_3_f05 = p_zycbt032-belnr.
v_belnrf05 = /pws/zycie085-belnr_3_f05.
/pws/zycie085-budat_3 = sy-datlo.
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0_f05 = /pws/zycie085-belnr_0_f05
belnr_1_f05 = /pws/zycie085-belnr_1_f05
belnr_2_f05 = /pws/zycie085-belnr_2_f05
belnr_3_f05 = /pws/zycie085-belnr_3_f05
budat_0 = /pws/zycie085-budat_0
budat_1 = /pws/zycie085-budat_1
budat_2 = /pws/zycie085-budat_2
budat_3 = /pws/zycie085-budat_3
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM lanctos_variacao TABLES itab_zycbt011 STRUCTURE /pws/zycbt011
USING p_zycbt007 STRUCTURE /pws/zycbt007
p_zycit001 STRUCTURE /pws/zycit001
itab_zycbe033 STRUCTURE /pws/zycbe033.
DATA: itab_zycbt012 TYPE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
v_soma TYPE /pws/zycit085-vlfob,
vl_varia TYPE /pws/zycit085-vlfob,
* >> Início da inclusão: FORM LANCTOS_VARIACAO
v_variadec LIKE /pws/zycit085-vlfre,
* << Fim da inclusão
vl_variacao TYPE /pws/zycit085-vlfob.
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codmod = 'D'.
SELECT SINGLE *
FROM /pws/zycit031
WHERE codmod EQ 'D'
AND inco1 EQ p_zycit001-inco1
AND land1 EQ t001-land1.
LOOP AT itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.
READ TABLE itab_di WITH KEY hkont = itab_matuse_aux2-hkont.
...
...
v_soma = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren .
IF itab_zycbe033-tcode = 'F-51'
AND NOT v_belnrf05 IS INITIAL.
PERFORM: move_lanctos USING v_soma
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING v_soma
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-05'.
vl_varia = abs( vl_variacao ).
* >> Início da exclusão: FORM LANCTOS_VARIACAO
IF vl_varia > '0.03'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
IF NOT vl_variacao IS INITIAL.
* << Fim da inclusão
PERFORM move_lanctos_f05 USING vl_variacao.
ELSE.
v_erro_f05 = 'S'.
ENDIF.
ENDIF.
ELSEIF /pws/zycit031-inco1_ci = 'CIF'.
vl_variacao = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren +
itab_di-vlseg - itab_bsis_aux-dmbtr.
IF itab_zycbe033-tcode = 'F-51'
AND NOT v_belnrf05 IS INITIAL.
PERFORM: move_lanctos USING itab_di-vldi
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vldi
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-05'.
vl_varia = abs( vl_variacao ).
* >> Início da exclusão: FORM LANCTOS_VARIACAO
IF vl_varia > '0.03'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
IF NOT vl_variacao IS INITIAL.
* << Fim da inclusão
PERFORM move_lanctos_f05 USING vl_variacao.
ELSE.
v_erro_f05 = 'S'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF itab_bsis_aux-tpfatura = '02'
AND NOT itab_di-vlfre IS INITIAL.
IF NOT /pws/zycit000-provfre IS INITIAL.
CONTINUE.
...
...
PERFORM move_lanctos USING itab_di-vlfre
vl_variacao.
ELSEIF itab_zycbe033-tcode = 'F-05'.
IF vl_variacao > '0.03'.
PERFORM move_lanctos_f05 USING vl_variacao.
ELSE.
v_erro_f05 = 'S'.
ENDIF.
ENDIF.
ELSEIF itab_bsis_aux-tpfatura = '03'
* >> Início da exclusão: FORM LANCTOS_VARIACAO
AND NOT itab_di-vlfre IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCTOS_VARIACAO
AND NOT itab_di-vlseg IS INITIAL.
* << Fim da inclusão
IF NOT /pws/zycit000-provseg IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycbt011 WITH KEY codeven = '001VS'.
READ TABLE itab_zycbt012 WITH KEY
codaux = itab_matuse_aux2-j_1bmatuse
codeven = '001VS'.
vl_variacao = itab_di-vlseg - itab_bsis_aux-dmbtr.
IF itab_zycbe033-tcode = 'F-51'.
PERFORM move_lanctos USING itab_di-vlfre
...
...
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE p_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCIT044'
cpochv = /pws/zycie085-nrseqdi
tpmsg = 'S'.
IF sy-subrc = 0.
LOOP AT itab_matuse_aux WHERE
hkont = itab_matuse_aux2-hkont.
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
read table itab_matuse with key
j_1bmatuse = itab_matuse_aux-j_1bmatuse
reclassifica = 'X' .
if sy-subrc eq 0.
* << Fim da inclusão
IF itab_matuse_aux-j_1bmatuse = 0.
/pws/zycie085-belnr_0 = p_zycbt032-belnr.
/pws/zycie085-budat_0 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 1.
/pws/zycie085-belnr_1 = p_zycbt032-belnr.
/pws/zycie085-budat_1 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 2.
/pws/zycie085-belnr_2 = p_zycbt032-belnr.
/pws/zycie085-budat_2 = sy-datlo.
ELSEIF itab_matuse_aux-j_1bmatuse = 3.
/pws/zycie085-belnr_3 = p_zycbt032-belnr.
/pws/zycie085-budat_3 = sy-datlo.
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0 = /pws/zycie085-belnr_0
belnr_1 = /pws/zycie085-belnr_1
belnr_2 = /pws/zycie085-belnr_2
belnr_3 = /pws/zycie085-belnr_3
budat_0 = /pws/zycie085-budat_0
budat_1 = /pws/zycie085-budat_1
budat_2 = /pws/zycie085-budat_2
budat_3 = /pws/zycie085-budat_3
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2TOP
...
END OF itab_di .
DATA: BEGIN OF itab_matuse OCCURS 0 ,
ebeln TYPE ekpo-ebeln ,
ebelp TYPE ekpo-ebelp ,
matnr TYPE ekpo-matnr ,
bwtar TYPE ekpo-bwtar ,
j_1bmatuse TYPE ekpo-j_1bmatuse,
knttp TYPE ekpo-knttp ,
werks TYPE t001w-werks ,
bwkey TYPE mbew-bwkey ,
* >> Início da inclusão:
reclassifica ,
* << Fim da inclusão
END OF itab_matuse .
DATA: BEGIN OF itab_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas.
DATA: BEGIN OF itab_cta OCCURS 0.
INCLUDE STRUCTURE /pws/zygle316.
DATA: END OF itab_cta.
DATA: BEGIN OF itab_matuse_aux OCCURS 0,
j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
IF NOT /pws/zycie085-belnr_0 IS INITIAL.
v_text = text-208.
PERFORM executa_fbra USING /pws/zycie085-belnr_0
/pws/zycie085-budat_0.
PERFORM executa_fb08 USING /pws/zycie085-belnr_0
/pws/zycie085-budat_0.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial .
if /pws/zycie085-belnr_0 eq /pws/zycie085-belnr_1.
clear /pws/zycie085-belnr_1.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
if /pws/zycie085-belnr_0 eq /pws/zycie085-belnr_2.
clear /pws/zycie085-belnr_2.
endif.
if /pws/zycie085-belnr_0 eq /pws/zycie085-belnr_3.
clear /pws/zycie085-belnr_3.
endif.
clear /pws/zycie085-belnr_0 .
endif.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie085-belnr_1 IS INITIAL AND
/pws/zycie085-belnr_1 NE /pws/zycie085-belnr_0.
v_text = text-209.
PERFORM executa_fbra USING /pws/zycie085-belnr_1
/pws/zycie085-budat_1.
PERFORM executa_fb08 USING /pws/zycie085-belnr_1
/pws/zycie085-budat_1.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial .
if /pws/zycie085-belnr_1 eq /pws/zycie085-belnr_2.
clear /pws/zycie085-belnr_2.
endif.
if /pws/zycie085-belnr_1 eq /pws/zycie085-belnr_3.
clear /pws/zycie085-belnr_3.
endif.
clear /pws/zycie085-belnr_1 .
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie085-belnr_2 IS INITIAL AND
( /pws/zycie085-belnr_2 NE /pws/zycie085-belnr_0 OR
/pws/zycie085-belnr_2 NE /pws/zycie085-belnr_1 ).
v_text = text-210.
PERFORM executa_fbra USING /pws/zycie085-belnr_2
/pws/zycie085-budat_2.
PERFORM executa_fb08 USING /pws/zycie085-belnr_2
/pws/zycie085-budat_2.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial .
if /pws/zycie085-belnr_2 eq /pws/zycie085-belnr_3.
clear /pws/zycie085-belnr_3.
endif.
clear /pws/zycie085-belnr_2 .
endif.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie085-belnr_3 IS INITIAL AND
( /pws/zycie085-belnr_3 NE /pws/zycie085-belnr_0 OR
/pws/zycie085-belnr_3 NE /pws/zycie085-belnr_1 OR
/pws/zycie085-belnr_3 NE /pws/zycie085-belnr_2 ).
v_text = text-211.
PERFORM executa_fbra USING /pws/zycie085-belnr_3
/pws/zycie085-budat_3.
PERFORM executa_fb08 USING /pws/zycie085-belnr_3
/pws/zycie085-budat_3.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial .
clear /pws/zycie085-belnr_2 .
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
ENDIF.
* << Fim da inclusão
PERFORM atualiza_historico.
IF NOT /pws/zycie085-belnr_0_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_0_f05
/pws/zycie085-budat_0.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial.
IF /pws/zycie085-belnr_0_f05 eq /pws/zycie085-belnr_1_f05.
clear /pws/zycie085-belnr_1_f05.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
IF /pws/zycie085-belnr_0_f05 eq /pws/zycie085-belnr_2_f05.
clear /pws/zycie085-belnr_2_f05.
endif.
IF /pws/zycie085-belnr_0_f05 eq /pws/zycie085-belnr_3_f05.
clear /pws/zycie085-belnr_3_f05.
endif.
endif.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie085-belnr_1_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_1_f05
/pws/zycie085-budat_1.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial.
IF /pws/zycie085-belnr_1_f05 eq /pws/zycie085-belnr_2_f05.
clear /pws/zycie085-belnr_2_f05.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM DELETA_VARIACAO
IF /pws/zycie085-belnr_1_f05 eq /pws/zycie085-belnr_3_f05.
clear /pws/zycie085-belnr_3_f05.
endif.
endif.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie085-belnr_2_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_2_f05
/pws/zycie085-budat_2.
* >> Início da inclusão: FORM DELETA_VARIACAO
if v_dele is initial.
IF /pws/zycie085-belnr_2_f05 eq /pws/zycie085-belnr_3_f05.
clear /pws/zycie085-belnr_3_f05.
endif.
endif.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie085-belnr_3_f05 IS INITIAL.
v_text = text-208.
PERFORM executa_fb08 USING /pws/zycie085-belnr_3_f05
/pws/zycie085-budat_3.
ENDIF.
ENDFORM.
...