Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 23/01/2008 00:00:00
Data/Hora Última Alteração: 10/11/2011 13:15:55
Descrição da Nota: PADRONIZAÇÃO - CODE INSPECTOR
Sintoma
Padronização - Code Inspector - Nota Fiscal
Solução
Padronização - Code Inspector - Nota Fiscal
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05734 Data: 23/01/2008 Hora: 16:28:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05734
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00031
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03512 - 00001 - 7.0 - 00001 - AO RATEAR O PESO BRUTO DOS ITENS, NÃO BATE COM O TOTAL DA NF
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO - CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PADRONIZAÇÃO - CODE INSPECTOR - NOTA FISCAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
REPS /PWS/MZYCI016O01
REPS /PWS/MZYCI016OO
REPS /PWS/MZYCI016TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ebelp = /pws/zycie042-ebelp AND
nfglobal = /pws/zycie042-nfglobal.
ENDIF.
ENDIF.
IF v_embarca IS INITIAL.
SELECT SINGLE embarca FROM /pws/zycit001
INTO v_embarca
WHERE nrseq EQ /pws/zycie042-nrseq.
IF v_embarca EQ /pws/zycie001-embarca.
UPDATE /pws/zycit042 SET embarca = /pws/zycie042-embarca
* >> Início da exclusão: FORM CARREGA_ZYCIE042
WHERE nrseq = /pws/zycie042-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYCIE042
WHERE nrseq = /pws/zycie042-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_itens_nfg.
DATA: v_nolin TYPE i VALUE IS INITIAL,
wa_zycit042 LIKE /pws/zycit042 ,
v_ternacion LIKE /pws/zycit093-ternacion,
v_ntgew_tot LIKE itab_zycit003-ntgew.
DATA: BEGIN OF itab_zycit049_fndp OCCURS 0.
INCLUDE STRUCTURE /pws/zycit049.
...
...
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.
MOVE itab_zycit042 TO wa_zycit042.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
CALL CUSTOMER-FUNCTION '001'
EXPORTING
wa_zycit041 = /pws/zycie041
v_parametro = '02'
IMPORTING
v_subrc = v_subrc
CHANGING
itab_zycit042 = wa_zycit042.
IF v_subrc NE 'X'.
* << Fim da exclusão
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF /pws/zycit085-ukursfob IS INITIAL.
itab_zycit042-netpr =
( itab_zycit003-vlreal * itab_zycit100-dttaxbem ) .
IF NOT itab_zycit003-vlfre_fat IS INITIAL.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
itab_zycit042-netpr = ( itab_zycit003-vlfre_fat /
itab_zycit003-qtd_itend * itab_zycit100-dttaxbem ) +
...
...
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF /pws/zycit031 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT SINGLE * FROM /pws/zycit031
WHERE inco1 = /pws/zycit001-inco1
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF /pws/zycit093 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit085-nrbl.
ENDIF.
IF /pws/zycit031-inco1_ci = 'C&F' AND
NOT itab_zycit003-qtd_iten IS INITIAL AND
NOT itab_zycit003-qtd_itend IS INITIAL .
IF NOT itab_zycit100-vlfre IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
...
...
ELSEIF NOT /pws/zycit085-vlfre IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr -
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_iten ) +
( ( itab_zycit100-vlfre - itab_zycit003-vlfre_fat *
itab_zycit100-dttaxbem )
/ itab_zycit003-qtd_itend ) .
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
ELSE.
MOVE wa_zycit042 TO itab_zycit042.
ENDIF.
* << Fim da exclusão
IF sy-subrc = 0 AND /pws/zycit062-flag_icms = 'X'.
PERFORM atualiza_icms_unitario.
ENDIF.
IF /pws/zycit041-nrseq IS INITIAL.
/pws/zycit041-nrseq = /pws/zycie041-nrseq.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
IF sy-subrc NE 0.
MESSAGE e120.
...
...
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM find_nrseqc.
DATA:
v_nfglobal LIKE /pws/zycit041-nfglobal,
v_count(6) TYPE n.
* >> Início da exclusão: FORM FIND_NRSEQC
SELECT MAX( nfglobal ) INTO (v_nfglobal) FROM /pws/zycit041.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC
SELECT MAX( nfglobal ) INTO (v_nfglobal)
FROM /pws/zycit041. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nfglobal+0(6) + 1.
MOVE v_count TO /pws/zycie041-nfglobal.
ENDFORM.
FORM cria_nota_fiscal_g.
CLEAR v_visualiza.
LOOP AT itab_zycit042 WHERE ( docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888' ) AND
NOT ebeln IS initial.
ENDLOOP.
...
...
LEAVE TO SCREEN '0300'.
ENDIF.
MOVE itab_zycit042_c[] TO itab_zycit042_c2[].
PERFORM fill_data_j1b1_c.
ENDFORM.
FORM find_nrseqc_nfr.
DATA:
v_nfremessa LIKE /pws/zycit043-nfremessa,
v_count(6) TYPE n,
v_ano(3).
* >> Início da exclusão: FORM FIND_NRSEQC_NFR
SELECT MAX( nfremessa ) INTO (v_nfremessa) FROM /pws/zycit043.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQC_NFR
SELECT MAX( nfremessa ) INTO (v_nfremessa)
FROM /pws/zycit043. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nfremessa+0(6) + 1.
MOVE v_count TO /pws/zycie043-nfremessa.
ENDFORM.
FORM carrega_zycie044.
IF itab_zycit044-ebeln IS INITIAL.
EXIT.
ENDIF.
MOVE-CORRESPONDING itab_zycit044 TO /pws/zycie044.
/pws/zycie045-saldo = itab_zycit044-saldo.
/pws/zycie045-menge = itab_zycit044-menge.
...
...
itab_zycit042-processado = 'X'.
MODIFY itab_zycit042 TRANSPORTING processado.
READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
CLEAR v_subrc.
MOVE: itab_zycit042 TO wa_zycit042_exit,
itab_zycit042_d TO wa_zycit042_exit_d.
* >> Início da exclusão: FORM FILL_DATA_J1B1
CALL CUSTOMER-FUNCTION '001'
EXPORTING
wa_zycit042 = wa_zycit042_exit
wa_zycit042_d = wa_zycit042_exit_d
wa_zycit041 = /pws/zycie041
v_parametro = '01'
IMPORTING
v_subrc = v_subrc
TABLES
it_zycee007 = it_zycee007
itab_zycit036 = itab_zycit036
itab_zycit036_di = itab_zycit036_di.
IF v_subrc NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da exclusão
regio = itab_t001w-regio.
IF sy-subrc EQ 0.
PERFORM itens_nf.
ELSE.
* >> Início da exclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da inclusão
regio = space.
PERFORM itens_nf.
ENDIF.
* >> Início da exclusão: FORM FILL_DATA_J1B1
ENDIF.
* << Fim da exclusão
PERFORM peso_global_sep.
CLEAR itab_zycit033.
v_counter = v_counter + 1.
v_qtditem = wa_zycit048-qtd_item.
...
...
AND ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
READ TABLE itab_t001w WITH KEY werks = itab_zycit042-werks.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
CLEAR v_subrc.
MOVE: itab_zycit042 TO wa_zycit042_exit,
itab_zycit042_d TO wa_zycit042_exit_d.
* >> Início da exclusão: FORM FILL_DATA_J1B1
CALL CUSTOMER-FUNCTION '001'
EXPORTING
wa_zycit042 = wa_zycit042_exit
wa_zycit042_d = wa_zycit042_exit_d
wa_zycit041 = /pws/zycie041
v_parametro = '01'
IMPORTING
v_subrc = v_subrc
TABLES
it_zycee007 = it_zycee007
itab_zycit036 = itab_zycit036
itab_zycit036_di = itab_zycit036_di.
IF v_subrc NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da exclusão
regio = itab_t001w-regio.
IF sy-subrc EQ 0.
PERFORM itens_nf.
ELSE.
* >> Início da exclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
READ TABLE itab_zycit033
WITH KEY tpnf = itab_zycit042-tpnf
* << Fim da inclusão
regio = space.
PERFORM itens_nf.
* >> Início da exclusão: FORM FILL_DATA_J1B1
ENDIF.
* << Fim da exclusão
ENDIF.
CLEAR itab_zycit033.
PERFORM peso_global_sep.
v_counter = v_counter + 1.
v_qtditem = wa_zycit048-qtd_item.
...
...
ENDIF.
ENDIF.
CLEAR: v_icms_dif, v_base_dif.
LOOP AT itab_zycit044.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
wa_zycit042_d = itab_zycit042_d.
wa_zycit044 = itab_zycit044.
* >> Início da exclusão: FORM FILL_DATA_J1B1_R
CLEAR: v_subrc.
CLEAR v_subrc.
CALL CUSTOMER-FUNCTION '001'
EXPORTING
wa_zycit043 = /pws/zycie043
wa_zycit044 = wa_zycit044
wa_zycit042_d = wa_zycit042_d
v_parametro = '03'
IMPORTING
v_subrc = v_subrc
TABLES
it_zycee007 = it_zycee007
itab_zycit036 = itab_zycit036
itab_zycit036_di = itab_zycit036_di.
IF v_subrc NE 'X'.
* << Fim da exclusão
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit044-tpnf
regio = itab_t001w-regio.
IF sy-subrc NE 0.
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit044-tpnf
regio = space.
ENDIF.
PERFORM itens_nf_r.
* >> Início da exclusão: FORM FILL_DATA_J1B1_R
ENDIF.
* << Fim da exclusão
CLEAR itab_zycit033.
ENDLOOP.
it_zycee005-transpnac = /pws/zycie043-transpnac.
APPEND it_zycee005.
PERFORM mensagens_nf_r.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
IF it_zycet004 IS INITIAL.
PERFORM verifica_exit USING 'D'
...
...
itab_zycit044-qtd_item ).
v_brgew = v_brgew + ( ( ( itab_zycit003-ntgew / local_tntgew ) *
/pws/zycit093-brgew ) / itab_zycit044-menge *
itab_zycit044-qtd_item ) .
ENDLOOP.
ENDLOOP.
it_zycee005-ntgew = v_ntgew.
it_zycee005-brgew = v_brgew.
it_zycee005-gewei = text-038.
ENDFORM.
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING value(p_field)
value(p_fieldname)
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
FORM verify_null_field USING p_field
p_fieldname
p_description.
* << Fim da inclusão
IF p_field IS INITIAL.
it_zycet004-campo = p_fieldname.
it_zycet004-descricao = p_description.
APPEND it_zycet004.
ENDIF.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039. "#EC CI_NOWHERE
* << Fim da inclusão
itab_modo-selflag = /pws/zycbt039-modo.
itab_modo-varoption = /pws/zycbt039-descr.
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-016
textline2 = text-017
titel = text-001
...
...
it_zycee005-bukrs = /pws/zycie041a-bukrs.
it_zycee005-branch = itab_zycit042_c-j_1bbranch.
it_zycee005-parvw = text-015.
it_zycee005-parid = itab_zycit042_c-lifnr.
it_zycee005-docdat = sy-datum.
it_zycee005-pstdat = sy-datum.
ENDFORM.
FORM itens_nf.
DATA v_val_icms LIKE /pws/zycee007-netpr.
SELECT SINGLE * FROM /pws/zycet079
* >> Início da exclusão: FORM ITENS_NF
WHERE func = 'NFG'.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF
WHERE func = 'NFG'. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
SET PARAMETER ID '/PWS/ZYCIP001' FIELD itab_zycit042-nrseq .
...
...
SET PARAMETER ID 'BSP' FIELD itab_zycit042-ebelp .
SET PARAMETER ID '/PWS/ZYCBP002' FIELD /pws/zycie041-nfglobal.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit042-nrseq
ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
MOVE itab_zycit042 TO /pws/zycit042.
EXPORT /pws/zycit042 TO MEMORY ID 'I016'.
EXPORT itab_zycit036 TO MEMORY ID 'I016A'.
EXPORT itab_zycit036_di TO MEMORY ID 'I016B'.
* >> Início da exclusão: FORM ITENS_NF
SUBMIT (/pws/zycet079-transacao) AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF
SUBMIT (/pws/zycet079-transacao) AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCIP001' FIELD space.
SET PARAMETER ID 'BES' FIELD space.
SET PARAMETER ID 'BSP' FIELD space.
SET PARAMETER ID '/PWS/ZYCBP002' FIELD space.
EXPORT space TO MEMORY ID 'I016A'.
EXPORT space TO MEMORY ID 'I016B'.
ELSE.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF002'.
...
...
MOVE itab_zycit042 TO /pws/zycit042.
EXPORT /pws/zycit042 TO MEMORY ID 'I016'.
MOVE itab_zycit042_d TO /pws/zycit042.
EXPORT /pws/zycit042 TO MEMORY ID 'I016F'.
EXPORT itab_zycit036 TO MEMORY ID 'I016A'.
EXPORT itab_zycit036_di TO MEMORY ID 'I016B'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF002'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND
* >> Início da exclusão: FORM ITENS_NF
RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF
RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.
MOVE /pws/zycee007 TO it_zycee007.
APPEND it_zycee007.
CLEAR it_zycee007.
ELSE.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF012'.
e_subrc = 0.
...
...
PERFORM itens_nfnew.
ENDIF.
ENDIF.
EXPORT space TO MEMORY ID 'I016A'.
EXPORT space TO MEMORY ID 'I016B'.
ENDIF.
ENDFORM.
FORM itens_nf_r.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
SELECT SINGLE * FROM /pws/zycet079
* >> Início da exclusão: FORM ITENS_NF_R
WHERE func = 'NFG'.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF_R
WHERE func = 'NFG'. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0 AND
NOT /pws/zycet079-transacao IS INITIAL .
READ TABLE itab_ekpo WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
...
...
SET PARAMETER ID 'BSP' FIELD itab_zycit044-ebelp.
SET PARAMETER ID '/pws/ZYCBP001' FIELD /pws/zycie043-nfremessa.
MOVE itab_zycit044 TO /pws/zycit044.
EXPORT /pws/zycit044 TO MEMORY ID 'I016C'.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
MOVE itab_zycit042_d TO /pws/zycit042.
EXPORT /pws/zycit042 TO MEMORY ID 'I016'.
* >> Início da exclusão: FORM ITENS_NF_R
SUBMIT (/pws/zycet079-transacao) AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF_R
SUBMIT (/pws/zycet079-transacao) AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.
MOVE /pws/zycee007 TO it_zycee007.
APPEND it_zycee007.
CLEAR it_zycee007.
SET PARAMETER ID '/pws/ZYCIP001' FIELD space.
SET PARAMETER ID 'BES' FIELD space.
SET PARAMETER ID 'BSP' FIELD space.
SET PARAMETER ID '/pws/ZYCBP001' FIELD space.
EXPORT space TO MEMORY ID 'I016A'.
EXPORT space TO MEMORY ID 'I016B'.
...
...
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
MOVE itab_zycit042 TO /pws/zycit042 .
EXPORT /pws/zycit042 TO MEMORY ID 'I016' .
MOVE itab_zycit042_d TO /pws/zycit042 .
EXPORT /pws/zycit042 TO MEMORY ID 'I016F'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF005'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND
* >> Início da exclusão: FORM ITENS_NF_R
RETURN.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NF_R
RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
IMPORT /pws/zycee007 FROM MEMORY ID 'I016D'.
MOVE /pws/zycee007 TO it_zycee007.
APPEND it_zycee007.
CLEAR it_zycee007.
SET PARAMETER ID '/pws/ZYCIP001' FIELD space.
SET PARAMETER ID 'BES' FIELD space.
SET PARAMETER ID 'BSP' FIELD space.
SET PARAMETER ID '/pws/ZYCBP001' FIELD space.
EXPORT space TO MEMORY ID 'I016A'.
EXPORT space TO MEMORY ID 'I016B'.
...
...
it_zycee006-nrseq = /pws/zycie041-nfglobal.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = '1'.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
* >> Início da exclusão: FORM MENSAGENS_NF
WHERE nrseq = wa_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
WHERE nrseq = wa_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE text-083 /pws/zycit093-identify '/'
itab_zycit085-nrseqdi text-066 v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
ELSE.
CONCATENATE text-021 itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi text-066 v_dtreg
...
...
it_zycee006-nrseq = /pws/zycie043-nfremessa.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = v_cont.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
* >> Início da exclusão: FORM MENSAGENS_NF_R
WHERE nrseq = wa_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
WHERE nrseq = wa_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE text-083 /pws/zycit093-identify '/'
itab_zycit085-nrseqdi text-066 v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
ELSE.
CONCATENATE text-021 itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi text-066 v_dtreg
...
...
itab_zycit001-padest TO itab_zycit001_re-padest,
itab_zycit001-bukrs TO itab_zycit001_re-bukrs.
APPEND itab_zycit001_re.
ENDLOOP.
ENDIF.
IF NOT itab_zycit001_re[] IS INITIAL.
SELECT *
FROM /pws/zycit042
INTO TABLE itab_zycit042_auxre
FOR ALL ENTRIES IN itab_zycit001_re
* >> Início da exclusão: FORM MENSAGENS_NF_R
WHERE nrseq = itab_zycit001_re-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
WHERE nrseq = itab_zycit001_re-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit042_auxre[] IS INITIAL.
SELECT *
FROM /pws/zycit041
INTO TABLE itab_zycit041_aux
FOR ALL ENTRIES IN itab_zycit042_auxre
WHERE nrseq = itab_zycit042_auxre-nrseqnf.
IF NOT itab_zycit041_aux[] IS INITIAL.
SELECT *
FROM j_1bnfdoc
INTO TABLE itab_j1bnfdoc
...
...
itab_zycit042-tpnf = itab_zycit003-tpnf.
REFRESH itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
IF sy-subrc EQ 0.
READ TABLE itab_zycit263 INDEX 1.
SELECT SINGLE frpagto INTO /pws/zycit006-frpagto
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
FROM /pws/zycit006
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
FROM /pws/zycit006 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
IF sy-subrc EQ 0.
IF /pws/zycit006-frpagto EQ 'A'.
itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.
ENDIF.
ENDIF.
itab_zycit042-waersb = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
...
...
itab_zycit042-tpnf = /pws/zycit012-tpnf.
REFRESH itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
IF sy-subrc EQ 0.
READ TABLE itab_zycit263 INDEX 1.
SELECT SINGLE frpagto INTO /pws/zycit006-frpagto
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
FROM /pws/zycit006
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
FROM /pws/zycit006 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
IF sy-subrc EQ 0.
IF /pws/zycit006-frpagto EQ 'A'.
itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.
ENDIF.
ENDIF.
itab_zycit042-waersb = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
...
...
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
v_basred = ( v_advicms * 10000 / itab_zycit003-advalicms ).
ELSE.
v_basred = itab_zycit003-basred.
ENDIF.
ENDIF.
ENDFORM.
FORM efetua_cancelamento_g.
* >> Início da exclusão: FORM EFETUA_CANCELAMENTO_G
DATA v_subrc LIKE sy-subrc.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CANCELAMENTO_G
CLEAR v_subrc.
* << Fim da inclusão
CLEAR v_apaga.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND v_valor > 0.
READ TABLE itab_zycit041 WITH KEY docnum = v_valor.
IF itab_zycit041-statusp_mr1m = 'C' AND
v_modalidade NE '99'.
MESSAGE i032.
ELSE.
v_subrc = sy-subrc.
SELECT SINGLE * FROM /pws/zycit264
* >> Início da exclusão: FORM EFETUA_CANCELAMENTO_G
WHERE nrseqnf = /pws/zycie041-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CANCELAMENTO_G
WHERE nrseqnf = /pws/zycie041-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM EFETUA_CANCELAMENTO_G
MESSAGE i037.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_CANCELAMENTO_G
MESSAGE i037 WITH /pws/zycit264-nrseqc.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM /pws/zycit043
WHERE nrseq EQ /pws/zycie041-nrseq
...
...
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
DELETE FROM /pws/zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
* >> Início da exclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND nrseqori = itab_zycit042-docnum
AND origem = 'NF'.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
...
...
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
DELETE FROM /pws/zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq AND
* >> Início da exclusão: FORM FILL_DATA_J1B3
docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
COMMIT WORK.
ELSEIF v_apaga EQ 'X' AND v_modalidade = '99'.
itab_zycit042-docnum = '9999999999'.
UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum
series = itab_zycit042-series
nfnum = itab_zycit042-nfnum
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
* >> Início da exclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
MODIFY itab_zycit042.
IF v_modalidade = '99'.
/pws/zycie041-docnum = '9999999999'.
CLEAR /pws/zycie041-cancel.
MODIFY /pws/zycit041 FROM /pws/zycie041.
ENDIF.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
...
...
UPDATE /pws/zycit042 SET docnum = itab_zycit042-docnum
series = itab_zycit042-series
nfnum = itab_zycit042-nfnum
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
* >> Início da exclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
MODIFY itab_zycit042.
/pws/zycie041-docnum = '8888888888'.
CLEAR /pws/zycie041-cancel.
MODIFY /pws/zycit041 FROM /pws/zycie041.
/pws/zycie041-cancel = 'X'.
UPDATE /pws/zycit041 SET cancel = /pws/zycie041-cancel
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum
...
...
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
DELETE FROM /pws/zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
* >> Início da exclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'NF'.
DELETE FROM /pws/zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
...
...
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor.
DELETE FROM /pws/zycit223
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp AND
nfglobal = itab_zycit042-nfglobal AND
nrseq = itab_zycit042-nrseq AND
* >> Início da exclusão: FORM FILL_DATA_J1B3
docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
IF v_modalidade = '99' OR
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
CLEAR /pws/zycie045-saldo.
UPDATE /pws/zycit045 SET saldo = /pws/zycie045-saldo
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
* >> Início da exclusão: FORM FILL_DATA_J1B3
AND ebelp = itab_zycit042-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
AND ebelp = itab_zycit042-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
COMMIT WORK.
ENDLOOP.
IF sy-subrc = 0 AND
( v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) ) AND NOT
/pws/zycie041-belnr_f_02 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
ENDIF.
ENDIF.
...
...
UPDATE /pws/zycit043 SET cancel = /pws/zycie043-cancel
WHERE nrseq = /pws/zycie043-nrseq
AND nfglobal = /pws/zycie043-nfglobal
AND nfremessa = /pws/zycie043-nfremessa
AND docnum = v_valor.
CLEAR: /pws/zycit045.
SELECT SINGLE * FROM /pws/zycit045
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND ebeln = itab_zycit044-ebeln
* >> Início da exclusão: FORM FILL_DATA_J1B3_R
AND ebelp = itab_zycit044-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
AND ebelp = itab_zycit044-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
/pws/zycit045-saldo = /pws/zycit045-saldo +
itab_zycit044-qtd_item.
MODIFY /pws/zycit045.
DELETE FROM /pws/zycit044
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf
* >> Início da exclusão: FORM FILL_DATA_J1B3_R
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3_R
AND docnum = v_valor. "#EC CI_NOFIRST
* << Fim da inclusão
DELETE itab_zycit044
WHERE nrseq = itab_zycit044-nrseq
AND nfglobal = itab_zycit044-nfglobal
AND nfremessa = itab_zycit044-nfremessa
AND ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp
AND tpnf = itab_zycit044-tpnf
AND docnum = v_valor.
FREE itab_zycit043_lista.
CLEAR itab_zycit043_lista.
...
...
IF /pws/zycbt007-waersb IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
ENDIF.
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit039
INTO TABLE itab_zycit039
* >> Início da exclusão: FORM CONGELA_DESPESA
WHERE land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_zycit036 BY nrseq ebeln ebelp origem.
LOOP AT itab_zycit036 WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'NF' AND
( codigo = 'FOB' OR
codigo = 'CIF' OR
codigo = 'C&F' ) .
MOVE: itab_zycit036-nrseq TO itab_zycit036aux-nrseq,
itab_zycit036-ebeln TO itab_zycit036aux-ebeln,
...
...
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
WHERE regio = space AND ( baseicms = 'X' OR
baseii = 'X' ) AND
land1 EQ t001-land1.
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo
* >> Início da exclusão: FORM CONGELA_DESPESA
AND land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
AND land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit019[] IS INITIAL.
SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049
FOR ALL ENTRIES IN itab_zycit019
WHERE nrseq = /pws/zycie041-nrseq
AND tpdesp = itab_zycit019-tpdesp
AND vldp > 0.
ENDIF.
LOOP AT itab_zycit049.
v_tabix3 = sy-tabix.
...
...
LOOP AT itab_zycit003_aux.
v_tot_ntgew = v_tot_ntgew + itab_zycit003_aux-ntgew.
v_tot_plan = v_tot_plan +
( itab_zycit003_aux-netpr * itab_zycit003_aux-qtd_iten ).
v_tot_real = v_tot_real +
( itab_zycit003_aux-vlreal * itab_zycit003_aux-qtd_iten ).
ENDLOOP.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc
WHERE tpdesp = /pws/zycit000-cod_sisc AND
* >> Início da exclusão: FORM CONGELA_DESPESA
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
DESCRIBE TABLE itab_zycit042 LINES v_lines.
SORT itab_zycit003 BY ebeln ebelp.
LOOP AT itab_zycit049aux.
IF itab_zycit049aux-codigo NE v_cod_sisc OR
/pws/zycit000-flag_txsisc IS INITIAL.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit049aux-codigo.
IF itab_zycit049aux-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049aux-waers wa_zycit085-dttax
CHANGING v_taxa_desp.
...
...
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF016' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ELSE.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
AND ebelp = itab_zycit042-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ICMS_UNITARIO
AND ebelp = itab_zycit042-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * UP TO 1 ROWS FROM /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
ENDSELECT.
ENDIF.
IF /pws/zycit001-tpdecl IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit001
WHERE nrseq EQ itab_zycit042-nrseq.
ENDIF.
...
...
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
IF NOT itab_zycit001_msg[] IS INITIAL.
SELECT *
FROM /pws/zycit042
INTO TABLE itab_zycit042_auxre
FOR ALL ENTRIES IN itab_zycit001_msg
* >> Início da exclusão: FORM MENSAGENS_NF_C
WHERE nrseq = itab_zycit001_msg-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_C
WHERE nrseq = itab_zycit001_msg-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit042_auxre[] IS INITIAL.
SELECT *
FROM /pws/zycit041
INTO TABLE itab_zycit041_aux
FOR ALL ENTRIES IN itab_zycit042_auxre
WHERE nrseq = itab_zycit042_auxre-nrseqnf.
IF NOT itab_zycit042_auxre[] IS INITIAL.
SELECT *
FROM j_1bnfdoc
...
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM chama_nfc_mult.
LOOP AT itab_zycit042 WHERE docnum IS initial.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i015 WITH text-068.
ELSE.
SELECT SINGLE * FROM /pws/zycit264
* >> Início da exclusão: FORM CHAMA_NFC_MULT
WHERE nrseqnf = /pws/zycie041-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_NFC_MULT
WHERE nrseqnf = /pws/zycie041-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
/pws/zycie041a-docnum = v_valor.
EXPORT /pws/zycie041a
TO MEMORY ID 'IP016A'.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycie041-nrseq.
IF sy-tcode = '/PWS/ZYCI016_E'.
* >> Início da exclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_L' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_L'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ELSE.
...
...
ELSE.
IF sy-tcode = '/PWS/ZYCI016_E'.
MESSAGE s015 WITH text-062.
ELSE.
MOVE /pws/zycie041 TO /pws/zycie041a.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
/pws/zycie041a-docnum = v_valor.
EXPORT /pws/zycie041a
TO MEMORY ID 'IP016A'.
* >> Início da exclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_C'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_NFC_MULT
CALL TRANSACTION '/PWS/ZYCI029_C'. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-052.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM contabiliza_impostos.
IF /pws/zycie041-statusp_f_02 EQ 'C'.
EXIT.
...
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDFORM.
FORM lancamento_impostos.
DATA: v_montante LIKE /pws/zycbe035-wrbtr ,
v_j_1bbranch LIKE /pws/zycit042-j_1bbranch.
FREE itab_zycit033.
SELECT * FROM /pws/zycit033 INTO TABLE itab_zycit033
* >> Início da exclusão: FORM LANCAMENTO_IMPOSTOS
WHERE clnf = 'G'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_IMPOSTOS
WHERE clnf = 'G'. "#EC CI_NOFIRST
* << Fim da inclusão
FREE itab_global.
MOVE itab_zycit042[] TO itab_global[].
SELECT * FROM j_1baj INTO TABLE itab_j_1baj
WHERE ( taxgrp = 'ICMS' OR taxgrp = 'IPI' ).
FREE itab_j1bnfstx.
IF NOT itab_global[] IS INITIAL.
SELECT * FROM j_1bnfstx INTO TABLE itab_j1bnfstx
FOR ALL ENTRIES IN itab_global
WHERE docnum = /pws/zycie041-docnum
AND itmnum = itab_global-itmnum.
...
...
DATA: v_totprod LIKE itab_j_1bnflin-netwr,
v_totfre LIKE itab_j_1bnflin-netfre,
v_totins LIKE itab_j_1bnflin-netins,
v_tototh LIKE itab_j_1bnflin-netoth,
v_totnota LIKE itab_j_1bnflin-netoth,
v_empresa LIKE j_1bnfdoc-bukrs,
v_filial LIKE j_1bnfdoc-branch.
SELECT SINGLE * FROM /pws/zycit033
INTO /pws/zycit033
WHERE clnf EQ 'G'
* >> Início da exclusão: FORM GERA_ARQ_CABECALHO
AND tpnf EQ itab_zycit042-tpnf.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ARQ_CABECALHO
AND tpnf EQ itab_zycit042-tpnf. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM lfa1
INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycit003
WHERE lifnr EQ itab_zycit003-lifnr.
ENDIF.
IF NOT itab_zycit041[] IS INITIAL.
SELECT * FROM lfa1
INTO TABLE itab_transp
FOR ALL ENTRIES IN itab_zycit041
...
...
ENDIF.
FREE itab_zycit003.
ENDFORM.
FORM executa_download_cabecalho.
DATA: v_tamanhoc TYPE i.
CLEAR v_dir.
SELECT SINGLE path FROM /pws/zycbt007
INTO v_dir
WHERE bukrs EQ /pws/zycie041-bukrs.
MOVE '10' TO v_tamanhoc.
* >> Início da exclusão: FORM EXECUTA_DOWNLOAD_CABECALHO
CONCATENATE v_dir itab_zycit042-docnum 'C.txt' INTO v_dir.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_DOWNLOAD_CABECALHO
CONCATENATE v_dir itab_zycit042-docnum 'C.txt' INTO v_dir."#EC NOTEXT
* << Fim da inclusão
CLEAR v_arquivo.
MOVE v_dir TO v_arquivo.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = v_arquivo
filetype = 'ASC'
IMPORTING
filelength = v_tamanhoc
TABLES
data_tab = itab_cabecalho_txt
...
...
' ' 'BDC_OKCODE' '/00' ,
' ' 'J_1BDYDOC-PSTDAT' v_data .
PERFORM fill_bdc USING: 'X' 'SAPLJ1BB2' '2000' ,
' ' 'BDC_OKCODE' '=SAVE'.
IF v_modo_bi IS INITIAL.
v_modo_bi = 'N'.
ENDIF.
CALL TRANSACTION 'J1B2N' USING it_bdc
MODE v_modo_bi
UPDATE 'S'
* >> Início da exclusão: FORM FILL_DATA_J1B2N
MESSAGES INTO it_msg.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B2N
MESSAGES INTO it_msg. "#EC CI_CALLTA
* << Fim da inclusão
ENDFORM.
FORM fill_bdc USING p_tipo
p_fnam
p_fval.
CLEAR it_bdc.
IF NOT p_tipo IS INITIAL.
it_bdc-program = p_fnam.
it_bdc-dynpro = p_fval.
it_bdc-dynbegin = 'X'.
ELSE.
...
...
DATA: END OF itab_zycbt035_aux.
DATA: BEGIN OF itab_zycbt035_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_zycbt035_aux2.
IF NOT itab_global[] IS INITIAL.
CLEAR itab_zycit100. REFRESH itab_zycit100.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_global
WHERE nrseq = itab_global-nrseq
AND ebeln = itab_global-ebeln
* >> Início da exclusão: FORM ADICIONA_OUTROS_IMPOSTOS
AND ebelp = itab_global-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_OUTROS_IMPOSTOS
AND ebelp = itab_global-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
CLEAR: itab_ekkn. REFRESH: itab_ekkn.
SELECT ebeln ebelp prctr kostl fistl fipos ps_psp_pnr kokrs aufnr
FROM ekkn INTO TABLE itab_ekkn
FOR ALL ENTRIES IN itab_global
WHERE ebeln = itab_global-ebeln
AND ebelp = itab_global-ebelp.
CLEAR: itab_matuse. REFRESH: itab_matuse.
SELECT ebeln ebelp matnr bwtar j_1bmatuse knttp
werks umrez umren lmein
FROM ekpo INTO CORRESPONDING FIELDS OF TABLE itab_matuse
...
...
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp .
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263
* >> Início da exclusão: FORM ATUALIZA_CUSTOS
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat .
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_CUSTOS
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat . "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ
0.
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
FOR ALL ENTRIES IN itab_zycit006
WHERE nrseq = itab_zycit006-nrseq
AND nrfat = itab_zycit006-nrfat
AND eliminado NE 'X'.
ENDIF.
ENDIF.
ENDIF.
...
...
AND parvw EQ 'FU' .
LOOP AT itab_zycit003.
READ TABLE itab_ekpa WITH KEY ebeln = itab_zycit003-ebeln.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-101.
v_ok = 'N'.
EXIT .
ELSE.
IF itab_ekpa-lifn2 IS INITIAL.
MESSAGE i015 WITH text-101.
* >> Início da inclusão: FORM CALL_FUNDAP
v_ok = 'N'.
* << Fim da inclusão
EXIT .
* >> Início da exclusão: FORM CALL_FUNDAP
v_ok = 'N'.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDLOOP.
IF NOT v_ok = 'N'.
CLEAR /pws/zycit480.
LOOP AT itab_zycit480.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
IF sy-tcode EQ '/PWS/ZYCI016_C' OR sy-tcode EQ '/PWS/ZYCI016_A'.
CASE okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
i_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD i_docnum.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE042-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN' .
i_ebeln = v_valor.
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
i_ebeln = v_valor.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
GET CURSOR FIELD v_campo VALUE v_belnr2.
IF v_campo EQ '/PWS/ZYCIE041-BELNR_F_02'.
v_ano2 = /pws/zycie041-dt_f_02+0(4).
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
SET PARAMETER ID 'BUK' FIELD /pws/zycie041-bukrs.
SET PARAMETER ID 'BLN' FIELD v_belnr2.
SET PARAMETER ID 'GJR' FIELD v_ano2.
SELECT SINGLE belnr FROM bkpf INTO vaux_belnr
WHERE bukrs = /pws/zycie041-bukrs
AND belnr = v_belnr2
AND gjahr = v_ano2.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'FB03'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
CLEAR: okcode, v_modo_bi.
WHEN 'NFR1'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND NOT v_valor = 0.
READ TABLE itab_zycit041 WITH KEY docnum = v_valor.
SELECT SINGLE * FROM j_1bnfdoc
...
...
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.
IF itab_zyglt100-zexit_ativa NE 'X'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor AND
RETURN
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT (itab_zyglt100-programa)
WITH pa_nrnot = v_valor AND RETURN "#EC CI_SUBMIT
* << Fim da inclusão
.
...
...
WHEN 'NFC'.
PERFORM chama_nfc_mult.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
i_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD i_docnum.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'J1B3N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE042-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN'.
i_ebeln = v_valor.
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
GET CURSOR FIELD v_campo VALUE v_belnr2.
IF v_campo EQ '/PWS/ZYCIE041-BELNR_F_02'.
v_ano2 = /pws/zycie041-dt_f_02+0(4).
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
SET PARAMETER ID 'BUK' FIELD /pws/zycie041-bukrs.
SET PARAMETER ID 'BLN' FIELD v_belnr2.
SET PARAMETER ID 'GJR' FIELD v_ano2.
SELECT SINGLE belnr FROM bkpf INTO vaux_belnr
WHERE bukrs = /pws/zycie041-bukrs
AND belnr = v_belnr2
AND gjahr = v_ano2.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL TRANSACTION 'FB03'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
CLEAR: okcode, v_modo_bi.
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.
IF itab_zyglt100-zexit_ativa NE 'X'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT (itab_zyglt100-programa) WITH pa_nrnot = v_valor
AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT (itab_zyglt100-programa)
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDIF.
...
...
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF001'.
IF itab_zyglt100-zexit_ativa NE 'X'.
* >> Início da exclusão: MODULE USER_COMMAND_0200
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0200
SUBMIT (itab_zyglt100-programa) WITH
pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
SUBMIT (itab_zyglt100-programa)
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ENDIF.
...
...
WHEN 'OBS'.
CALL SCREEN '0210' STARTING AT 2 2.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
i_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD i_docnum.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN."#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE044-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE044-EBELN'.
i_ebeln = v_valor.
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN 'FUNDAP'.
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI'.
PERFORM call_fundap_r.
...
...
itab_nrseqdi-low = /pws/zycie085-nrseqdi.
APPEND itab_nrseqdi.
ENDIF.
IF itab_nrseqdi[] IS INITIAL
AND itab_nrdi[] IS INITIAL.
MESSAGE w015 WITH text-084.
EXIT.
ENDIF.
IF itab_nrseqdi[] IS INITIAL.
SELECT SINGLE * FROM /pws/zycit085 INTO /pws/zycie085
* >> Início da exclusão: MODULE USER_COMMAND_0001
WHERE nrdi IN itab_nrdi.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
WHERE nrdi IN itab_nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0 AND NOT /pws/zycie085-nrseqdi IS INITIAL.
itab_nrseqdi-sign = 'I'.
itab_nrseqdi-option = 'EQ'.
itab_nrseqdi-low = /pws/zycie085-nrseqdi.
APPEND itab_nrseqdi.
ELSE.
MESSAGE w015 WITH text-085.
EXIT.
ENDIF.
ENDIF.
...
...
IF sy-tcode EQ '/PWS/ZYCI016_C' OR sy-tcode EQ '/PWS/ZYCI016_A'.
CASE okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
i_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD i_docnum.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'J1B3N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.
i_ebeln = v_valor.
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF v_campo EQ '/PWS/ZYCIE041A-BELNR_F_02_C'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
...
...
SET PARAMETER ID 'BUK' FIELD /pws/zycie041a-bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD v_year.
SELECT SINGLE * FROM bkpf
WHERE bukrs = /pws/zycie041a-bukrs
AND belnr = i_belnr
AND gjahr = v_year.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'FB03'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ENDIF.
WHEN 'ENTE'.
IF /pws/zycie043a-nfexterna NE wa_zycit048-nfext.
v_ok = 'A'.
ENDIF.
itab_zycit042_c-nfnum_c = /pws/zycie042a-nfnum_c.
itab_zycit042_c-series_c = /pws/zycie042a-series_c.
itab_zycit042_c-subser_c = /pws/zycie042a.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'CRIARNFC'.
PERFORM cria_nota_fiscal_c.
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.
* >> Início da exclusão: MODULE USER_COMMAND_0300
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
MESSAGE i026.
ENDIF.
WHEN 'RESUM'.
CALL SCREEN '0400'.
ENDCASE.
ELSEIF sy-tcode EQ '/PWS/ZYCI016_E'.
CASE okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ v_valor.
IF sy-subrc EQ 0.
i_docnum = v_valor.
SET PARAMETER ID 'JEF' FIELD i_docnum.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'J1B3N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.
i_ebeln = v_valor.
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'ME23N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF v_campo EQ '/PWS/ZYCIE041A-BELNR_F_02_C'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
...
...
SET PARAMETER ID 'BUK' FIELD /pws/zycie041a-bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD v_year.
SELECT SINGLE * FROM bkpf
WHERE bukrs = /pws/zycie041a-bukrs
AND belnr = i_belnr
AND gjahr = v_year.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL TRANSACTION 'FB03'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ENDIF.
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE042A-DOCNUM_C'.
* >> Início da exclusão: MODULE USER_COMMAND_0300
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0300
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
MESSAGE i026.
ENDIF.
ENDCASE.
ENDIF.
CLEAR: okcode.
ENDMODULE.
MODULE altera_itab_zycit042_c INPUT.
IF /pws/zycie041a-nfexterna = space.
itab_zycit042_c-nfnum_c = space.
...
...
WHERE docnum = itab_zycit042-docnum.
IF sy-subrc EQ 0.
itab_zycit042-nfnum = j_1bnfdoc-nfnum.
itab_zycit042-series = j_1bnfdoc-series.
itab_zycit042-subser = j_1bnfdoc-subser.
ENDIF.
MODIFY itab_zycit042 INDEX sy-tabix.
UPDATE /pws/zycit042 SET nfnum = itab_zycit042-nfnum
series = itab_zycit042-series
subser = itab_zycit042-subser
* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT042
WHERE docnum = itab_zycit042-docnum.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042
WHERE docnum = itab_zycit042-docnum."#EC CI_NOFIELD
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
MODULE atualiza_itab_zycit044 INPUT.
LOOP AT itab_zycit044.
itab_zycit044-nrseqnf = /pws/zycie043-nrseq.
itab_zycit044-nfglobal = /pws/zycie043-nfglobal.
itab_zycit044-nfremessa = /pws/zycie043-nfremessa.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = itab_zycit044-docnum.
IF sy-subrc EQ 0.
...
...
MESSAGE i015 WITH text-052 text-053.
ENDIF.
WHEN 'CRIARNF'.
PERFORM cria_nota_fiscal_g.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'DRAFT'.
GET CURSOR FIELD v_campo VALUE v_valor.
EXPORT /pws/zycie041-nrseq TO MEMORY ID '001'.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir005 WITH pa_nrnot = v_valor AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir005
WITH pa_nrnot = v_valor AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
ELSE.
MESSAGE i015 WITH text-052 text-053.
ENDIF.
WHEN 'FUNDAP' .
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI'.
CALL SCREEN '0130' STARTING AT 5 2.
ENDIF.
ENDCASE.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016O01
...
ENDIF.
SELECT SINGLE * FROM /pws/zycit041
INTO /pws/zycie041
WHERE nrseq = /pws/zycie041-nrseq.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-001.
ENDIF.
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042
WHERE nrseq = /pws/zycie041-nrseq
* >> Início da exclusão: MODULE LOAD_DATA_0001
AND nfglobal = /pws/zycie041-nfglobal.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_0001
AND nfglobal = /pws/zycie041-nfglobal. "#EC CI_NOFIRST
* << Fim da inclusão
MOVE itab_zycit042[] TO itab_zycit042_aux[].
ENDMODULE.
MODULE load_data_0200 OUTPUT.
IF sy-tcode EQ '/PWS/ZYCI016_E' AND /pws/zycie043-nfremessa IS
INITIAL .
MOVE: /pws/zycie041-embarca TO /pws/zycie043-embarca,
/pws/zycie041-nrseq TO /pws/zycie043-nrseq ,
/pws/zycie041-bukrs TO /pws/zycie043-bukrs ,
/pws/zycie041-werks TO /pws/zycie043-werks ,
/pws/zycie041-nrdi TO /pws/zycie043-nrdi ,
...
...
SELECT SINGLE land1
FROM t001
INTO t001-land1
WHERE bukrs EQ /pws/zycie041-bukrs.
IF NOT itab_resum2[] IS INITIAL.
SELECT codigo descricao indice
INTO TABLE itab_zycie029
FROM /pws/zycit029
FOR ALL ENTRIES IN itab_resum2
WHERE codigo = itab_resum2-codigo
* >> Início da exclusão: MODULE CARREGA_ZYCIE053
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCIE053
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_resum2.
itab_resum-codigo = itab_resum2-codigo.
itab_resum-vlglobal = itab_resum2-vlreal.
itab_resum-waers_global = itab_resum2-waers_real.
itab_resum-vlcompl = itab_resum2-vlcompl.
itab_resum-waers_compl = itab_resum2-waers_real.
READ TABLE itab_resum3 WITH KEY nrseq = itab_resum2-nrseq
codigo = itab_resum2-codigo
ebeln = itab_resum2-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016OO
...
CLEAR edaction.
CLEAR edframe.
CLEAR edgetdata.
CLEAR edpostdataline.
edaction = action.
edframe = frame.
edgetdata = getdata.
postdata_tab = postdata.
IF NOT edgetdata IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
* >> Início da exclusão:
ID 'TCD' FIELD edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
ID 'TCD' FIELD edgetdata(40).
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE i122 WITH edgetdata.
ELSE.
* >> Início da exclusão:
CALL TRANSACTION edgetdata.
* << Fim da exclusão
* >> Início da inclusão:
CALL TRANSACTION edgetdata. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
v_mes(2) type c,
v_ano(4) type c,
v_data2(10) type c,
v_nf(10),
v_bktxt like bkpf-bktxt,
v_zuonr like bseg-zuonr,
v_forn like /pws/zycit001-lifnr,
v_sgtxt like bseg-sgtxt,
VAUX_BELNR LIKE RBKP-BELNR,
V_apaga,
* >> Início da exclusão:
v_subrc,
* << Fim da exclusão
* >> Início da inclusão:
v_subrc TYPE sy-subrc,
* << Fim da inclusão
v_urf2(1) type c,
v_dir like rlgrap-filename ,
v_arquivo type string,
v_caminho type string,
v_tot like /pws/zycit003-vlreal ,
v_libera,
V_sisco1 like /pws/zycit049-vldp,
V_sisco2 like /pws/zycit049-vldp,
V_sisco3 like /pws/zycit049-vldp,
v_sisco_item like /pws/zycit049-vldp,
...