CE PLUS - Nota 003036
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/02/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 17:00:38
Descrição da Nota: ADEQUAÇÃO DO PW.CE PARA ATENDER AO FUNDAP.
Sintoma
Criação da especificação para atender o FUNDAP no produto e desenvolvimento
Solução
Novo tratamento no programa da DI para atender as operações de FUNDAP.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03036 Data: 06/02/2007 Hora: 14:38:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03036
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ADEQUAÇÃO DO PW.CE PARA ATENDER AO FUNDAP.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADEQUAÇÃO DO SISTEMA - FUNDAP.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYCED076
DYNP /PWS/SAPMZYCI023 0131
FUGR /PWS/ZYCIGF1
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023TOP
TABD /PWS/ZYCIE085
TABD /PWS/ZYCIT012
TABD /PWS/ZYCIT048
TABD /PWS/ZYCIT085
TABU TDDAT
TABU TVDIR
TOBJ /PWS/ZYCIT012S
TOBJ /PWS/ZYCIT048S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYCED076
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYCED076
-Valores individuais
Incluído valor fixo "FD"
Texto incluído, idioma: PT (10 caracteres):
"Fundapiana"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0131
*Os seguintes campos em tela foram criados :
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
/PWS/ZYCIE085-FUNDAPIANA
Texto 7 3 10 10 1 CHAR X F
FD LIF
/PWS/ZYCIE085-FUNDAPIANA
I/O 7 16 10 10 1 CHAR X Off
FD LIF
Saída de conversão=ALPHA
V_CNPJ_FINDAP
I/O 7 27 18 18 1 CHAR Off S.Sd
V_DESC_FINDAP
I/O 8 27 35 20 1 CHAR Off S.Sd
PossRol
*O seguinte campo em tela foi modificado:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*DE:
/PWS/ZYCIE085-OPFUNDAP
Check 6 3 1 1 1 CHAR X X Off
AC
*PARA:
/PWS/ZYCIE085-OPFUNDAP
Check 6 3 1 1 1 CHAR X X Off
AC FUND
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
LOOP AT itab_zycit003.
v_ntgew_tot = v_ntgew_tot + itab_zycit003-ntgew.
ENDLOOP.
SELECT SINGLE * FROM /pws/zycit062
WHERE regio = adrc-region.
LOOP AT itab_zycit003.
READ TABLE itab_zycit042 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
MOVE-CORRESPONDING itab_zycit003 TO itab_zycit042.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
IF NOT /pws/zycit085-opfundap IS INITIAL.
itab_zycit042-lifnr = /pws/zycit085-fundapiana.
ENDIF.
* << Fim da inclusão
IF sy-subrc NE 0.
itab_zycit042-embarca = /pws/zycit001-embarca.
itab_zycit042-j_1bbranch = /pws/zycit001-j_1bbranch.
itab_zycit042-nrseqnf = /pws/zycie041-nrseq.
IF NOT itab_zycit003-waers IS INITIAL.
ENDIF.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
MOVE itab_zycit003-qtd_itend TO itab_zycit042-qtd_iten.
ENDIF.
CLEAR v_subrc.
...
...
WHERE nrseqce = /pws/zycit085-nrbl.
SELECT SINGLE tpembal quant descr
INTO (local_embal,it_zycee005-quant,it_zycee005-shpmrk)
FROM /pws/zycit014
WHERE nrseq = /pws/zycit085-nrbl.
IF sy-subrc EQ 0.
SELECT SINGLE traty FROM /pws/zycit015 INTO it_zycee005-traty
WHERE tpembal = local_embal.
ENDIF.
IF /pws/zycie041-nfexterna EQ 'X'.
* >> Início da inclusão: FORM FILL_DATA_J1B1
IF /pws/zycit085-opfundap IS INITIAL.
* << Fim da inclusão
it_zycee005-nftype = wa_zycit048-catnfext.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ELSE.
it_zycee005-nftype = wa_zycit048-fdnfext.
ENDIF.
* << Fim da inclusão
it_zycee005-nfnum = itab_zycit042_aux-nfnum.
it_zycee005-series = itab_zycit042_aux-series.
it_zycee005-subser = itab_zycit042_aux-subser.
ELSE.
* >> Início da inclusão: FORM FILL_DATA_J1B1
IF /pws/zycit085-opfundap IS INITIAL.
* << Fim da inclusão
IF v_urf2 = 1.
it_zycee005-nftype = wa_zyglt369-catnfint.
ELSE.
it_zycee005-nftype = wa_zycit048-catnfint.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ELSE.
it_zycee005-nftype = wa_zycit048-fdnfint.
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit042 WHERE nrseq EQ itab_zycit042_aux-nrseq
AND nfglobal EQ itab_zycit042_aux-nfglobal
AND tpnf EQ itab_zycit042_aux-tpnf
AND lifnr EQ itab_zycit042_aux-lifnr
AND j_1bbranch EQ itab_zycit042_aux-j_1bbranch
AND mark = 'X'
AND ( docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888' )
...
...
SELECT SINGLE j_1bmatuse INTO ekpo-j_1bmatuse
FROM ekpo
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
IF NOT /pws/zycit085-opfundap IS INITIAL AND
* << Fim da inclusão
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
IF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
NOT /pws/zycit012-tpnf_fd IS INITIAL .
itab_zycit042-tpnf = /pws/zycit012-tpnf_fd.
ELSEIF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
itab_zycit042-tpnf = /pws/zycit012-tpnf_db.
ELSEIF itab_zycit100-icms_dif EQ 'X'
AND NOT /pws/zycit012-tpnf_icms IS INITIAL.
itab_zycit042-tpnf = /pws/zycit012-tpnf_icms.
ELSE.
itab_zycit042-tpnf = itab_zycit003-tpnf.
REFRESH itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE
nrseq = itab_zycit003-nrseq AND
...
...
FROM ekpo
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
IF itab_zycit042-tpnf IS INITIAL.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
IF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
IF NOT /pws/zycit085-opfundap IS INITIAL AND
NOT /pws/zycit012-tpnf_fd IS INITIAL .
itab_zycit042-tpnf = /pws/zycit012-tpnf_fd.
ELSEIF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
itab_zycit042-tpnf = /pws/zycit012-tpnf_db.
ELSEIF itab_zycit100-icms_dif EQ 'X'
AND NOT /pws/zycit012-tpnf_icms IS INITIAL.
itab_zycit042-tpnf = /pws/zycit012-tpnf_icms.
ELSE.
itab_zycit042-tpnf = /pws/zycit012-tpnf.
REFRESH itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE
nrseq = itab_zycit003-nrseq AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
cgc_number = v_cgc
branch_data = wa_j_1bbranch
EXCEPTIONS
branch_not_found = 1
address_not_found = 2
company_not_found = 3
OTHERS = 4.
IF sy-subrc EQ 1.
MESSAGE i015 WITH text-001 p_bbranch.
ENDIF.
* >> Início da inclusão: FORM LOAD_CNPJ
IF NOT /pws/zycie085-opfundap IS INITIAL.
IF /pws/zycie085-fundapiana IS INITIAL.
READ TABLE itab_it INDEX 1.
SELECT SINGLE a~lifn2
FROM ekpa AS a INNER JOIN /pws/zycet076 AS b ON
a~parvw EQ b~codigo_r3
INTO /pws/zycie085-fundapiana
WHERE b~codigo_ce EQ 'FD'
AND a~ebeln EQ itab_it-ebeln.
ENDIF.
IF v_cnpj_findap IS INITIAL.
SELECT SINGLE stcd1 name1 FROM lfa1
INTO (v_cnpj_findap, v_desc_findap)
WHERE lifnr = /pws/zycie085-fundapiana.
IF sy-subrc = 0.
/pws/zycie085-cnpjestab = v_cnpj_findap.
WRITE v_cnpj_findap TO v_cnpj_findap
USING EDIT MASK '__.___.___/____-__'.
ENDIF.
ENDIF.
ELSE.
CLEAR: v_cnpj_findap, v_desc_findap, /pws/zycie085-fundapiana.
* << Fim da inclusão
/pws/zycie085-cnpjestab = v_cgc.
* >> Início da inclusão: FORM LOAD_CNPJ
ENDIF.
/pws/zycie085-cgc = v_cgc.
* << Fim da inclusão
WRITE: v_cgc TO p_cnpj.
ENDIF.
ENDFORM.
FORM load_reg.
DATA: v_tpdi(3).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
INTO TABLE itab_zyglt369.
IF sy-subrc EQ 0.
screen-required = '1'.
ELSE.
screen-required = '0'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0131
IF screen-group3 EQ 'FD'.
IF /pws/zycie085-opfundap IS INITIAL.
screen-invisible = 1.
ELSE.
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE093-DTCHEG' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'S_AGEN' AND
/pws/zycie085-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
...
...
ENDIF.
IF NOT itab_it-codfunlegpiscofi IS INITIAL.
PERFORM seleciona_fund_legal_pc
USING itab_it-codfunlegpiscofi
itab_it-codregtripiscofi
CHANGING t_fundes_regtri /pws/zycie100a-codfunlegpiscofi.
ELSE.
CLEAR: t_fundes_regtri.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM comm_fundap.
PERFORM load_cnpj USING /pws/zycie085-j_1bbranch
/pws/zycie085-bukrs
CHANGING s_cnpj.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF e_exec_okcode IS INITIAL.
CASE sy-ucomm.
WHEN 'DETA'.
PERFORM: comm_deta.
WHEN 'SAVE'.
PERFORM: comm_save.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'FUND'.
PERFORM: comm_fundap.
* << Fim da inclusão
WHEN 'ADIC'.
PERFORM: comm_adic.
WHEN 'REFR'.
PERFORM: refresh_all, fill_receitas.
WHEN 'MODI'.
PERFORM: comm_modi.
WHEN 'COMP'.
PERFORM: comm_comp.
WHEN 'OBS'.
PERFORM: comm_obs.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
v_taxa LIKE /pws/zycie085-ukursfob,
v_resp TYPE c,
v_visualiza TYPE c,
v_report TYPE c,
v_txini TYPE c,
v_msgfre TYPE c,
v_region LIKE adrc-region,
v_out ,
v_canal LIKE /pws/zycie085-canal ,
v_ternacion LIKE /pws/zycie093-ternacion,
* >> Início da inclusão:
v_cnpj_findap(18) type c,
v_desc_findap type lfa1-name1,
* << Fim da inclusão
d_waersbem LIKE /pws/zycie100a-dttaxbem.
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
DATA: 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 ' '.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE085
*O seguinte campo foi inserido:
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
ADUANA LIFNR LFA1 CHAR 10
ADUANADEST LIFNR CHAR 10
TAXASICOMEX /PWS/ZYCIL333 DEC 10
VLPIS /PWS/ZYCIL307 CURR 16
VLCOFINS /PWS/ZYCIL307 CURR 16
RECAL XFELD CHAR 1
CANAL2 CHAR2 CHAR 2
*<<Inicio Inclusão
FUNDAPIANA LIFNR CHAR 10
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT012
*O seguinte campo foi inserido:
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT MANDT CLNT 3
J_1BMATUSE J_1BMATUSE CHAR 1
TPNF /PWS/ZYCIL108 /PWS/ZYCIT018 CHAR 2
DESCR /PWS/ZYCIL018 CHAR 25
TPNF_LD /PWS/ZYCIL163 /PWS/ZYCIT018 CHAR 2
TPNF_DB /PWS/ZYCIL108 /PWS/ZYCIT018 CHAR 2
TPNF_ICMS /PWS/ZYCIL108 /PWS/ZYCIT018 CHAR 2
*<<Inicio Inclusão
TPNF_FD /PWS/ZYCIL108 CHAR 2
*<<Fim Inclusão
USERNAMEC SYUNAME CHAR 12
DTUSERC SYDATUM DATS 8
HRUSERC SYSTTIMLO TIMS 6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT048
*Os seguintes campos foram inseridos:
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT MANDT CLNT 3
BUKRS BUKRS CHAR 4
BRANCH J_1BBRANC_ J_1BBRANCH CHAR 4
CATNFINT /PWS/ZYCIL009 CHAR 2
CATNFEXT /PWS/ZYCIL066 J_1BAA CHAR 2
CATNFINTR /PWS/ZYCIL462 J_1BAA CHAR 2
CATNFEXTR /PWS/ZYCIL463 J_1BAA CHAR 2
CATNFINTC /PWS/ZYCIL465 J_1BAA CHAR 2
CATNFCOM /PWS/ZYGLL621 J_1BAA CHAR 2
*<<Inicio Inclusão
FDNFINT /PWS/ZYCIL009 CHAR 2
FDNFEXT /PWS/ZYCIL066 CHAR 2
*<<Fim Inclusão
SEPNF /PWS/ZYCIL077 CHAR 1
REGIMEZF /PWS/ZYCIL030 CHAR 1
NFEXT /PWS/ZYCIL043 CHAR 1
NFPROV J_1BNFNUMB NUMC 6
SERIES J_1BSERIES CHAR 3
LIFNR LIFNR LFA1 CHAR 10
TIPONF J_1BNFTYPE J_1BAA CHAR 2
QTD_ITEM /PWS/ZYCIL162 CHAR 3
VSTEL VSTEL TVST CHAR 4
NFDOCREF /PWS/ZYGLL671 CHAR 1
TEXT1 /PWS/ZYCIL217 CHAR 70
TEXT2 /PWS/ZYCIL281 CHAR 70
PSTDAT /PWS/ZYCIL428 CHAR 1
BUDAT /PWS/ZYCIL458 DATS 8
PSTDATC /PWS/ZYCIL456 CHAR 1
BUDATC /PWS/ZYCIL457 DATS 8
USERNAMEC SYUNAME CHAR 12
DTUSERC SYDATUM DATS 8
HRUSERC SYSTTIMLO TIMS 6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT085
*O seguinte campo foi inserido:
Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
ADUANA LIFNR LFA1 CHAR 10
ADUANADEST LIFNR CHAR 10
TAXASICOMEX /PWS/ZYCIL333 DEC 10
VLPIS /PWS/ZYCIL307 CURR 16
VLCOFINS /PWS/ZYCIL307 CURR 16
RECAL XFELD CHAR 1
CANAL2 CHAR2 CHAR 2
*<<Inicio Inclusão
FUNDAPIANA LIFNR CHAR 10
*<<Fim Inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT012S
*Gerada novamente a visão de atualização da tabela de parâmetro /PWS/ZYCIT012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIT048S
*Gerada novamente a visão de atualização da tabela de parâmetro /PWS/ZYCIT048
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR005
...
END OF itab_zycit001.
DATA: BEGIN OF itab_zycit005 OCCURS 0,
nrseq LIKE /pws/zycit005-nrseq,
nrdi LIKE /pws/zycit005-nrdi,
dtreg LIKE /pws/zycit005-dtreg,
END OF itab_zycit005.
DATA: BEGIN OF itab_zycit085 OCCURS 0,
nrseqdi LIKE /pws/zycit085-nrseqdi,
nrdi LIKE /pws/zycit085-nrdi,
dtreg LIKE /pws/zycit085-dtreg,
* >> Início da inclusão:
opfundap LIKE /pws/zycit085-opfundap,
* << Fim da inclusão
END OF itab_zycit085.
DATA: BEGIN OF itab_zycie041 OCCURS 0,
docnum LIKE /pws/zycie041-docnum,
nrseq LIKE /pws/zycie041-nrseq,
END OF itab_zycie041.
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_nova_unica OCCURS 0,
nrseq LIKE /pws/zycie041-nrseq,
nrdi LIKE /pws/zycit005-nrdi,
dtreg LIKE /pws/zycit005-dtreg,
...
...
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
FOR ALL ENTRIES IN itab_zycie041
WHERE nrseqnf = itab_zycie041-nrseq.
v_ii = 'II'.
SELECT nrseq valor
FROM /pws/zycit007
INTO TABLE itab_zycit007
FOR ALL ENTRIES IN itab_zycie041
WHERE nrseq = itab_zycie041-nrseq AND
tpimp = v_ii.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT nrseqdi nrdi dtreg
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT nrseqdi nrdi dtreg opfundap
* << Fim da inclusão
FROM /pws/zycit085
INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycie041
WHERE nrseqdi = itab_zycie041-nrseq.
IF NOT itab_zycit042[] IS INITIAL.
SELECT nrseq padest
FROM /pws/zycit001
INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq.
...
...
ENDIF.
IF NOT itab_descpais[] IS INITIAL.
SELECT land1 landx
FROM t005t
INTO TABLE itab_t005t
FOR ALL ENTRIES IN itab_descpais
WHERE land1 = itab_descpais-land1
AND spras = sy-langu.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DADOS
ELSE.
SELECT SINGLE a~nrseqdi a~nrdi a~dtreg a~opfundap
FROM /pws/zycit085 AS a INNER JOIN
/pws/zycit043 AS b ON
a~nrseqdi EQ b~nrseq
INTO itab_zycit085
WHERE b~docnum = itab_j_1bnfdoc-docnum.
IF sy-subrc EQ 0.
APPEND itab_zycit085.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_dados-docnum = itab_j_1bnfdoc-docnum.
itab_dados-series = itab_j_1bnfdoc-series.
itab_dados-nfnum = itab_j_1bnfdoc-nfnum.
* >> Início da inclusão: FORM SELECIONA_DADOS
READ TABLE itab_zycit085 INDEX 1.
IF itab_zycit085-opfundap IS INITIAL.
* << Fim da inclusão
itab_dados-cgc = v_num_cgc.
...
...
itab_branch_data-state_insc TO itab_dados-state_insc.
MOVE: itab_j_1binnad-name1 TO itab_dados-forn1,
itab_j_1binnad-stras TO itab_dados-endfr,
itab_j_1binnad-ort02 TO itab_dados-bairf,
itab_j_1binnad-pstlz TO itab_dados-cepfr,
itab_j_1binnad-ort01 TO itab_dados-cidfr,
itab_j_1binnad-telf1 TO itab_dados-fonfr,
itab_j_1binnad-land1 TO itab_dados-estfr,
itab_j_1binnad-stains TO itab_dados-inefr,
itab_j_1binnad-cgc TO itab_dados-cgcfr.
* >> Início da inclusão: FORM SELECIONA_DADOS
ELSE.
MOVE: itab_j_1binnad-name1 TO itab_dados-name1,
itab_j_1binnad-pstlz TO itab_dados-pstlz,
itab_j_1binnad-ort01 TO itab_dados-ort01,
itab_j_1binnad-ort02 TO itab_dados-ort02,
itab_j_1binnad-stras TO itab_dados-stras,
itab_j_1binnad-land1 TO itab_dados-land1,
itab_j_1binnad-regio TO itab_dados-regio,
itab_j_1binnad-telf1 TO itab_dados-telfx,
itab_j_1binnad-stains TO itab_dados-state_insc,
itab_j_1binnad-cgc TO itab_dados-cgc.
MOVE: itab_address-name1 TO itab_dados-forn1,
itab_address-stras TO itab_dados-endfr,
itab_address-ort02 TO itab_dados-bairf,
itab_address-pstlz TO itab_dados-cepfr,
itab_address-ort01 TO itab_dados-cidfr,
itab_address-telf1 TO itab_dados-fonfr,
itab_address-land1 TO itab_dados-estfr,
itab_branch_data-state_insc TO itab_dados-inefr,
v_num_cgc TO itab_dados-cgcfr.
ENDIF.
* << Fim da inclusão
APPEND itab_dados.
ENDLOOP.
ENDIF.
ENDFORM.
...