CE PLUS - Nota 005673
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 17/01/2008 00:00:00
Data/Hora Última Alteração: 03/02/2010 16:59:05
Descrição da Nota: PADRONIZAÇÃO DE CÓDIGO COM A FERRAMENTA CODE INSPECTOR NA FATURA
Sintoma
Padronização de código com a Ferramenta Code Inspector na Fatura
Solução
Padronização de código com a Ferramenta Code Inspector na Fatura
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05673 Data: 17/01/2008 Hora: 14:33:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05673
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PADRONIZAÇÃO DE CÓDIGO COM A FERRAMENTA CODE INSPECTOR NA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE - INSPECTOR - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF /pws/zycie006-tpfatura = '04'.
PERFORM soma_despesa.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
LOOP AT itab_zycit047 WHERE tpdesp = /pws/zycit000-cod_sisc AND
NOT vldp IS initial.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
SELECT SINGLE * FROM /pws/zycit100
* >> Início da exclusão: FORM SALVAR_DADOS
WHERE nrseq = /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
v_stop = 'X'.
MESSAGE i015 WITH text-120.
ENDIF.
ENDIF.
ENDLOOP.
IF v_tot_desp <> /pws/zycie006-vltotal.
v_tot_desp = /pws/zycie006-vltotal - v_tot_desp.
MOVE v_tot_desp TO v_total_desp.
MESSAGE i061 WITH text-051 v_total_desp text-020.
...
...
ENDLOOP.
ENDIF.
ENDFORM.
FORM fill_date_f-43_f-02.
DATA:
v_embarca LIKE /pws/zycit001-embarca,
v_ukurs LIKE /pws/zycit085-ukursfob,
v_fator LIKE tcurr-ffact.
DATA: v_de LIKE tcurf-ffact,
v_para LIKE tcurf-tfact.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
CALL CUSTOMER-FUNCTION '001'
EXPORTING
/pws/zycie006 = /pws/zycie006
/pws/zycit031 = /pws/zycit031
v_parcela = v_parcela
IMPORTING
v_subrc = v_subrc
TABLES
itab_zycit130 = itab_zycit130
itab_zycit003_aux = itab_zycit003
itab_zycit094 = itab_zycit094
itab_zycbt035 = itab_zycbt035
itab_param_classe = itab_param_classe
itab_zycit132 = itab_zycit132.
* << Fim da exclusão
IF v_subrc IS INITIAL.
PERFORM multiplos_lancamentos.
ENDIF.
PERFORM get_parameters_f-43_f-02.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCIT006'.
IF v_parcela = 'X'.
itab_zycbe033-tabela = '/PWS/ZYCIT132'.
ELSE.
...
...
IF /pws/zycie006-tpfatura = '01'.
READ TABLE itab_zycit003 INDEX 1.
READ TABLE itab_zycit100 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
v_ukurs = itab_zycit100-dttaxbem.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
SELECT SINGLE ffact tfact
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
SELECT SINGLE ffact tfact "#EC PORTABLE
* << Fim da inclusão
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_ukurs = ( v_ukurs * v_de ) / v_para.
ELSEIF /pws/zycie006-tpfatura = '02'.
v_ukurs = /pws/zycit085-ukursfre.
ELSEIF /pws/zycie006-tpfatura = '03'.
...
...
v_ukurs = /pws/zycit085-ukursseg.
ELSE.
v_ukurs = v_kursf.
ENDIF.
ENDIF.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
SELECT SINGLE ffact tfact
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
SELECT SINGLE ffact tfact "#EC PORTABLE
* << Fim da inclusão
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = itab_zycbe033-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
itab_zycbe033-kursf = v_ukurs.
ENDIF.
PERFORM verify_null_field USING wa_zycbt011-blart 'BLART' text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
...
...
ELSE.
IF /pws/zycie006-tpfatura EQ '02' AND
NOT /pws/zycit085-ukursfre IS INITIAL AND
/pws/zycie006-frpagto EQ 'P' AND
/pws/zycit085-waersfre = /pws/zycie006-waers .
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02
SELECT SINGLE ffact tfact
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
SELECT SINGLE ffact tfact "#EC PORTABLE
* << Fim da inclusão
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_kursf = ( /pws/zycit085-ukursfre * v_de ) / v_para.
ELSEIF /pws/zycie006-tpfatura EQ '02' AND
NOT /pws/zycit085-ukursfre IS INITIAL AND
/pws/zycie006-frpagto EQ 'N' AND
/pws/zycit085-waersfre = /pws/zycie006-waers.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02
SELECT SINGLE ffact tfact
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
SELECT SINGLE ffact tfact "#EC PORTABLE
* << Fim da inclusão
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_kursf = ( /pws/zycit085-ukursfob * v_de ) / v_para.
ELSEIF /pws/zycie006-tpfatura = '03' AND NOT
/pws/zycit085-ukursseg IS INITIAL .
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
SELECT SINGLE ffact tfact
* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02
FROM tcurf
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
FROM tcurf "#EC PORTABLE
* << Fim da inclusão
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_kursf = ( /pws/zycit085-ukursseg * v_de ) / v_para.
ELSEIF /pws/zycie006-tpfatura = '11'.
PERFORM busca_taxa_dia.
ENDIF.
ENDIF.
...
...
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
IF sy-subrc EQ 2 OR sy-subrc EQ 3.
MESSAGE w015 WITH text-001.
ENDIF.
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.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM clear_date_batch.
FREE: itab_zycit034, itab_zycbt034, itab_zycet004,
itab_zycie033, itab_zycbe033, itab_zycee005,
itab_zycit032, itab_zycbt032, itab_zycet005,
itab_zycit031, itab_contas, itab_zycbt036.
CLEAR: itab_zycit031, itab_zycit032, itab_zycie033, itab_zycit034,
itab_zycbt032, itab_zycbe033, itab_zycbt034,
itab_zycet005, itab_zycee005, itab_zycet004, itab_contas,
itab_zycbt036.
ENDFORM.
FORM busca_sequencial.
DATA:
v_nrseq LIKE /pws/zycit001-nrseq,
v_count(8) TYPE n.
* >> Início da exclusão: FORM BUSCA_SEQUENCIAL
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIAL
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt119. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbt119-nrseq.
ENDFORM.
FORM reverse_document_fb08.
DATA:
v_monat LIKE bsis-monat.
e_subrc = '0' .
perform verifica_exit using 'D'
'/PWS/SAPMZYCI003'
'FAT008'.
...
...
OTHERS = 2.
IF sy-subrc = 0.
PERFORM atualiza_fb08_fat.
ENDIF.
ELSEIF sy-subrc EQ '4'.
PERFORM atualiza_fb08_fat.
ENDIF.
PERFORM clear_date_batch.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM POPUP_MESSAGE
FORM popup_message USING value(p_textline1)
value(p_titel).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
FORM popup_message USING p_textline1
p_titel.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: FORM POPUP_MESSAGE
if sy-subrc <> 0.
exit.
endif.
* << Fim da inclusão
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-030
textline2 = text-029
titel = text-028
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM MODO_BATCH_INPUT
if sy-subrc <> 0.
exit.
endif.
* << Fim da inclusão
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
FORM select_data_zycit006.
DATA: v_nolin TYPE i VALUE IS INITIAL.
...
...
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
IF NOT /pws/zycie006-nrseqre IS INITIAL.
DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycie006-nrseqre.
ENDIF.
ENDIF.
ELSEIF /pws/zycie006-tpfatura NE '01'.
IF /pws/zycie006-tpfatura = '09'.
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseqce = /pws/zycie006-nrseqce.
SELECT SINGLE * FROM /pws/zycit042
* >> Início da exclusão: FORM ELIMINAR_FATURA
WHERE nrseq = /pws/zycit094-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINAR_FATURA
WHERE nrseq = /pws/zycit094-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit041
WHERE nrseq = /pws/zycit042-nrseqnf AND
belnr_mr1m NE space AND
cancel NE space.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit043
WHERE nrseq = /pws/zycit042-nrseqnf AND
belnr_mr1m NE space AND
cancel NE space.
IF sy-subrc EQ 0.
...
...
ENDIF.
ENDFORM.
FORM verifica_pag_antecipado.
DATA: v_ebeln TYPE ekpo-ebeln.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
* >> Início da exclusão: FORM VERIFICA_PAG_ANTECIPADO
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAG_ANTECIPADO
AND status NE 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
SORT itab_zycit003 BY ebeln.
CLEAR v_pg_ant.
LOOP AT itab_zycit003.
READ TABLE itab_zycbt117 WITH KEY ebeln = itab_zycit003-ebeln.
IF sy-subrc EQ 0.
v_vlme = itab_zycbt117-vlme.
v_waers = itab_zycbt117-waers.
v_waers = itab_zycbt117-waers.
WRITE itab_zycbt117-vlme TO v_vlme CURRENCY itab_zycbt117-waers.
CONCATENATE itab_zycbt117-nrseq 'no valor:'
...
...
CLEAR itab_zycit263_aux.
REFRESH itab_zycit263_aux.
IF NOT itab_zycit003_aux[] IS INITIAL.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263_aux
WHERE nrseq = itab_zycit003_aux-nrseq
AND eliminado = space.
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 SELECIONAR_ITENS
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
WHERE nrseq_pgfat EQ
itab_zycit263-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit263.
v_tabix = sy-tabix.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space.
IF sy-subrc NE 0.
itab_zycit263-eliminado = 'X'.
MODIFY itab_zycit263 INDEX v_tabix.
MODIFY /pws/zycit263 FROM itab_zycit263 .
ENDIF.
...
...
lines = rtext
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM OBSERVACAO
if sy-subrc <> 0.
endif.
* << Fim da inclusão
ELSE.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZFAT'
language = sy-langu
name = v_txtkey
object = '/PWS/FAT'
TABLES
lines = rtext
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM OBSERVACAO
if sy-subrc <> 0.
endif.
* << Fim da inclusão
FREE rtext_aux.
LOOP AT rtext.
MOVE rtext-tdline TO rtext_aux-tdline.
APPEND rtext_aux.
ENDLOOP.
CONCATENATE text-067 /pws/zycie006-nrseq
INTO v_chave SEPARATED BY space.
CALL FUNCTION 'EDITOR_APPLICATION'
EXPORTING
application = 'TT'
...
...
itab_zycit006-lifnr = v_emissor.
ENDIF.
MODIFY itab_zycit006.
ENDIF.
ENDLOOP.
READ TABLE itab_zycit006 INDEX 1.
MOVE itab_zycit006 TO /pws/zycie006.
IF /pws/zycie006-tpfatura EQ '01'.
REFRESH: itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
* >> Início da exclusão: FORM EXIBIR_FATURA
WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBIR_FATURA
WHERE nrseq_pgfat =
/pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263 WHERE
nrseq = itab_zycit263-nrseq AND
ebeln = itab_zycit263-ebeln AND
ebelp = itab_zycit263-ebelp.
ENDIF.
ENDIF.
v_exibe_fat = 'X'.
ENDFORM.
...
...
e_txc = p_taxa
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM BUSCA_TAXA
if sy-subrc <> 0.
endif.
* << Fim da inclusão
ENDFORM.
FORM trata_decimais USING p_waers
CHANGING p_valplan.
READ TABLE itab_tcurx INTO tcurx WITH KEY currkey = p_waers.
IF sy-subrc NE 0.
SELECT SINGLE * FROM tcurx WHERE currkey = p_waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
tcurx-currkey = p_waers.
...
...
LOOP AT itab_zycit003.
v_tot = v_tot + ( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
v_tot_real = v_tot_real +
( itab_zycit003-vlreal * itab_zycit003-qtd_iten ).
ENDLOOP.
SORT itab_zycit003 BY nrseq ebeln ebelp.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc
WHERE tpdesp = /pws/zycit000-cod_sisc AND
* >> Início da exclusão: FORM GRAVAR_CUSTOS
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CUSTOS
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_despesa_custo.
DESCRIBE TABLE itab_zycit003 LINES v_lines.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_despesa_custo-codigo.
IF v_kursf IS INITIAL AND /pws/zycie006-waers NE
/pws/zycbt007-waersb.
IF /pws/zycit085 IS INITIAL OR
/pws/zycie006-tpfatura = '04' .
PERFORM busca_taxa_dia.
ELSE.
...
...
ENDIF.
IF v_kursf IS INITIAL AND /pws/zycie006-waers EQ
/pws/zycbt007-waersb.
v_kursf = 1.
ENDIF.
IF itab_despesa_custo-codigo = v_cod_sisc
AND NOT /pws/zycit000-flag_txsisc IS INITIAL AND
/pws/zycit001-tpdecl = 'DI'.
READ TABLE itab_zycit003 INDEX 1.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
* >> Início da exclusão: FORM GRAVAR_CUSTOS
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CUSTOS
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit116 INTO TABLE itab_zycit116
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi = itab_zycit100-nrseqdi.
ENDIF.
LOOP AT itab_zycit116.
LOOP AT itab_zycit100 WHERE adicao = itab_zycit116-adicao.
itab_zycit116-nr_itens = itab_zycit116-nr_itens + 1.
ENDLOOP.
MODIFY itab_zycit116.
...
...
ELSE.
/pws/zycie036-vlreal =
itab_zycit036-vlreal / itab_zycit036-total
* itab_despesa_custo-vldp.
ENDIF.
MODIFY /pws/zycit036 FROM /pws/zycie036.
ELSEIF itab_zycit036-codigo EQ 'II' OR
itab_zycit036-codigo EQ 'IPI' OR
itab_zycit036-codigo EQ 'ICMS'.
SELECT SINGLE * FROM /pws/zycit007
* >> Início da exclusão: FORM GRAVAR_CUSTOS
WHERE tpimp = itab_zycit036-codigo.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CUSTOS
WHERE tpimp = itab_zycit036-codigo. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0 AND
/pws/zycit007-valor NE itab_despesa_custo-vldp.
MOVE itab_zycit036 TO /pws/zycie036.
/pws/zycie036-origem = 'FAT'.
/pws/zycie036-vlreal_emb = itab_despesa_custo-vldp +
/pws/zycie036-vlreal_emb.
/pws/zycie036-waers_emb = /pws/zycie006-waers.
/pws/zycie036-waers_real = /pws/zycie006-waers.
/pws/zycie036-vlreal =
itab_zycit036-vlreal / itab_zycit036-total *
...
...
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit036
INTO TABLE itab_zycit036_aux
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln.
SORT itab_zycit003 BY nrseq ebeln ebelp.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc
WHERE tpdesp = /pws/zycit000-cod_sisc AND
* >> Início da exclusão: FORM ATUALIZA_DESPESAS
land1 = t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DESPESAS
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_despesa_custo.
LOOP AT itab_zycit003.
v_tabix = sy-tabix.
READ TABLE itab_zycit001 WITH KEY nrseq = itab_zycit003-nrseq.
CLEAR itab_zycit036_aux.
READ TABLE itab_zycit036_aux WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
codigo = itab_despesa_custo-codigo
...
...
ENDLOOP.
CLEAR itab_zycit047.
SORT itab_zycit047 BY tpdesp.
ENDFORM.
FORM seleciona_bl.
DATA: v_nrseqce LIKE /pws/zycit094-nrseqce,
v_subrc TYPE c.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE nrseqce FROM /pws/zycit094
INTO v_nrseqce
* >> Início da exclusão: FORM SELECIONA_BL
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_BL
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq = itab_zycit003-nrseq.
IF /pws/zycie001-modalidade EQ '02'.
v_subrc = 'X'.
ENDIF.
IF v_subrc NE 'X'.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
WHERE nrseqce = v_nrseqce.
/pws/zycie006-nrseqce = v_nrseqce.
IF /pws/zycie006-nrseqce IS INITIAL.
...
...
/pws/zycie006-gpcambio = itab_zycit006_ded-gpcambio.
IF NOT itab_zycit006_ded[] IS INITIAL.
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130
FOR ALL ENTRIES IN itab_zycit006_ded
WHERE nrseq = itab_zycit006_ded-nrseq.
ENDIF.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_ded
WHERE nrfat = /pws/zycie006-nrfat
AND tpfatura = '05'
AND bukrs = /pws/zycie006-bukrs
* >> Início da exclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_ded
WHERE nrfat = /pws/zycie006-nrfat
AND tpfatura NE '05'
AND bukrs = /pws/zycie006-bukrs
* >> Início da exclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_zycit006_ded INDEX 1.
/pws/zycie006-gpcambio = itab_zycit006_ded-gpcambio.
IF NOT itab_zycit006_ded[] IS INITIAL.
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130
FOR ALL ENTRIES IN itab_zycit006_ded
WHERE nrseq = itab_zycit006_ded-nrseq.
ENDIF.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_ded
WHERE nrfat = /pws/zycie006-nrfat
AND bukrs = /pws/zycie006-bukrs
AND lifnr = /pws/zycie006-lifnr
* >> Início da exclusão: FORM SELECIONA_DEDUCOES
AND tpfatura = '05'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DEDUCOES
AND tpfatura = '05'. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit130.
CLEAR itab_zycit130-devolucao.
MODIFY itab_zycit130.
ENDLOOP.
ELSE.
MESSAGE e015 WITH text-061.
ENDIF.
ENDIF.
ELSEIF ( /pws/zycie006-tpfatura = '01' OR
/pws/zycie006-tpfatura = '11' OR
...
...
/pws/zycie006-tpfatura = '03' OR
/pws/zycie006-tpfatura = '04' ) AND itab_zycit006_ded[] IS
INITIAL
AND v_exibe_ded IS INITIAL.
v_exibe_ded = 'X'.
IF itab_zycit006_ded[] IS INITIAL.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_ded
WHERE nrfat = /pws/zycie006-nrfat
AND tpfatura = '05'
AND bukrs = /pws/zycie006-bukrs
* >> Início da exclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DEDUCOES
AND lifnr = /pws/zycie006-lifnr. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF itab_zycit130[] IS INITIAL.
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130
WHERE nrseq = /pws/zycie006-nrseq.
ENDIF.
ENDIF.
ENDFORM.
FORM salva_zycit130.
DATA:
v_motiv LIKE /pws/zycit130-motivo,
v_devolucao_atual LIKE /pws/zycit130-montante,
v_montante_aux LIKE /pws/zycie130-montante,
itab_zycit130_aux LIKE /pws/zycit130 OCCURS 0 WITH HEADER LINE,
itab_zycit006_aux LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006_aux
WHERE nrfat = /pws/zycie006-nrfat
AND bukrs = /pws/zycie006-bukrs
AND lifnr = /pws/zycie006-lifnr
* >> Início da exclusão: FORM SALVA_ZYCIT130
AND tpfatura = '05'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_ZYCIT130
AND tpfatura = '05'. "#EC CI_NOFIELD
* << Fim da inclusão
IF NOT itab_zycit006_aux[] IS INITIAL.
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130_aux
FOR ALL ENTRIES IN itab_zycit006_aux
WHERE nrseq = itab_zycit006_aux-nrseq.
ENDIF.
SORT itab_zycit130_aux BY motivo.
READ TABLE itab_zycit130_aux INDEX 1.
v_motiv = itab_zycit130_aux-motivo.
DESCRIBE TABLE itab_zycit130_aux LINES v_line.
LOOP AT itab_zycit130_aux.
...
...
v_contabiliza EQ 'S' OR
wa_zycie006_ini-dtvencto NE /pws/zycie006-dtvencto OR
wa_zycie006_ini-ebene NE /pws/zycie006-ebene OR
wa_zycie006_ini-dataprvtsr NE /pws/zycie006-dataprvtsr OR
/pws/zycie006-belnr_p IS INITIAL.
IF v_congela IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ itab_zycit003-nrseq
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
AND docnum NE ''.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
AND docnum NE ''. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0 OR /pws/zycie006-tpfatura NE '01'.
PERFORM contabilizacao_f-02_ou_f-43.
ELSE.
MESSAGE i015 WITH text-169.
ENDIF.
ELSE.
MESSAGE i015 WITH text-135.
ENDIF.
ENDIF.
ENDIF.
...
...
EXIT.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
CLEAR /pws/zycbt131.
IF v_parcela EQ 'X'.
IF NOT itab_zycit132-nrseq_pgfat IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt131
* >> Início da exclusão: FORM GRAVAR_CAMBIO
WHERE nrseq_pgfat = itab_zycit132-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CAMBIO
WHERE nrseq_pgfat = itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq = itab_zycit132-nrseq_pgfat.
ENDIF.
ELSE.
IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt131
* >> Início da exclusão: FORM GRAVAR_CAMBIO
WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CAMBIO
WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
ENDIF.
ENDIF.
IF NOT /pws/zycbt131 IS INITIAL.
EXIT.
ENDIF.
READ TABLE itab_zycit003 INDEX 1.
MOVE-CORRESPONDING /pws/zycie006 TO /pws/zycbt119.
...
...
/pws/zycie006-vltotal TO /pws/zycbt108-slfatcc,
/pws/zycie006-statusp TO /pws/zycbt108-fcont.
IF /pws/zycbt131 IS INITIAL.
MOVE /pws/zycie006-vltotal TO /pws/zycbt108-slfat.
ENDIF.
ENDIF.
/pws/zycbt108-dtincl = /pws/zycie006-dtincl.
/pws/zycbt108-gsber = itab_zycit003-gsber.
SELECT SINGLE nrdi FROM /pws/zycit085
INTO /pws/zycit085-nrdi
* >> Início da exclusão: FORM GRAVAR_CAMBIO
WHERE nrbl = /pws/zycie006-nrseqce .
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CAMBIO
WHERE nrbl = /pws/zycie006-nrseqce . "#EC CI_NOFIELD
* << Fim da inclusão
MOVE /pws/zycit085-nrdi TO /pws/zycbt108-nrdi.
IF /pws/zycie006-frpagto EQ 'A' OR
/pws/zycie006-waers EQ /pws/zycbt007-waersb.
/pws/zycbt108-status = 'E'.
ENDIF.
IF v_parcela = 'X'.
UPDATE /pws/zycbt108 SET
nrfat = /pws/zycbt108-nrfat
werks = /pws/zycbt108-werks
gsber = /pws/zycbt108-gsber
...
...
nrccred = /pws/zycbt108-nrccred
nrfinanc = /pws/zycbt108-nrfinanc
nrpantec = /pws/zycbt108-nrpantec
nrpfatura = /pws/zycbt108-nrpfatura
vlassoccc = /pws/zycbt108-vlassoccc
vlassocfi = /pws/zycbt108-vlassocfi
vlassocpa = /pws/zycbt108-vlassocpa
vlassocpf = /pws/zycbt108-vlassocpf
vlassoc = /pws/zycbt108-vlassoc
WHERE nrseq_pgfat = itab_zycit132-nrseq_pgfat
* >> Início da exclusão: FORM GRAVAR_CAMBIO
AND belnr = /pws/zycie006-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_CAMBIO
AND belnr = /pws/zycie006-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
MODIFY /pws/zycbt108.
ENDIF.
ELSE.
UPDATE /pws/zycbt108 SET
nrfat = /pws/zycbt108-nrfat
werks = /pws/zycbt108-werks
gsber = /pws/zycbt108-gsber
j_1bbranch = /pws/zycbt108-j_1bbranch
dtincl = /pws/zycbt108-dtincl
...
...
IF ( NOT itab_zycit132[] IS INITIAL AND /pws/zycie006-frpagto = 'P'
AND v_par NE 'X' AND NOT itab_zycit132_ini[] IS INITIAL )
OR ( /pws/zycie006-frpagto = 'P' AND
itab_zycit132[] IS INITIAL AND
NOT wa_zycie006_ini-belnr_p IS INITIAL )
OR /pws/zycie006-frpagto NE 'P'.
IF NOT itab_zycbt117[] IS INITIAL.
SELECT * FROM /pws/zycbt131 INTO TABLE itab_zycbt131
FOR ALL ENTRIES IN itab_zycbt117
WHERE nrseq = itab_zycbt117-nrseq
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
CLEAR v_pg_ant.
ENDIF.
ENDIF.
IF v_pg_ant = 'X'
AND ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' )
AND ( v_contabilizou EQ 'X' OR /pws/zycie006-frpagto = 'P' ).
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT007'.
...
...
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-086
textline1 = text-087
textline2 = text-088
titel = text-089
IMPORTING
answer = v_resposta
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
if sy-subrc <> 0.
endif.
* << Fim da inclusão
ENDIF.
IF v_resposta = 'J'.
PERFORM associar_fatura.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM associar_fatura.
CALL SCREEN '0500'.
ENDFORM.
...
...
IF sy-subrc EQ 0.
EXIT.
ENDIF.
ENDIF.
IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' )
AND /pws/zycit085 IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit100
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp
* >> Início da exclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
AND nrseq EQ itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
AND nrseq EQ itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi EQ /pws/zycit100-nrseqdi.
IF sy-subrc EQ 0.
IF NOT /pws/zycit085-dtreg IS INITIAL AND
NOT /pws/zycit085-nrdi IS INITIAL.
v_di = 'X'.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
CLEAR: itab_zycbt035 ,
itab_zycbt035_aux2.
REFRESH: itab_zycbt035,
itab_zycbt035_aux2.
FREE : itab_zycbt035 ,
itab_zycbt035_aux2.
CLEAR v_tot_valor.
IF itab_zycit003[] IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
WHERE nrfat = /pws/zycie006-nrfat
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF /pws/zycit006-tpfatura = '01'.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
WHERE nrseq_pgfat = /pws/zycit006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
WHERE nrseq_pgfat = /pws/zycit006-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
ELSE.
IF NOT itab_zycit094[] IS INITIAL.
...
...
ENDIF.
PERFORM call_transaction TABLES itab_msg
itab_bdc
t_zycit032
t_dados
USING v_transacao
v_mode
v_update
v_msgid
v_msgno
* >> Início da exclusão: FORM MAPEAMENTO
CHANGING v_nrmsg.
* << Fim da exclusão
* >> Início da inclusão: FORM MAPEAMENTO
CHANGING v_nrmsg. "#EC CI_CALLTA
* << Fim da inclusão
IF sy-subrc = 0.
DELETE itab_zycbt117.
ENDIF.
FREE:
itab_bdc,
itab_msg.
ENDFORM.
* >> Início da exclusão: FORM BDC_FIELD
FORM bdc_field USING value(par1)
value(par2).
* << Fim da exclusão
* >> Início da inclusão: FORM BDC_FIELD
FORM bdc_field USING par1
par2.
* << Fim da inclusão
CLEAR itab_bdc.
itab_bdc-fnam = par1.
itab_bdc-fval = par2.
APPEND itab_bdc.
ENDFORM.
* >> Início da exclusão: FORM BDC_SCREEN
FORM bdc_screen USING value(par1)
value(par2).
* << Fim da exclusão
* >> Início da inclusão: FORM BDC_SCREEN
FORM bdc_screen USING par1
par2.
* << Fim da inclusão
CLEAR itab_bdc.
itab_bdc-program = par1.
itab_bdc-dynpro = par2.
itab_bdc-dynbegin = text-090.
APPEND itab_bdc.
ENDFORM.
FORM call_transaction TABLES p_itab_msg LIKE itab_msg[]
p_itab_bdc STRUCTURE bdcdata
p_t_zycit032 STRUCTURE /pws/zycbt032
p_t_dados STRUCTURE /pws/zycbe033
* >> Início da exclusão: FORM CALL_TRANSACTION
USING value(p_tcode)
value(p_mode)
value(p_update)
value(p_msgid)
value(p_msgno)
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
USING p_tcode
p_mode
p_update
p_msgid
p_msgno
* << Fim da inclusão
CHANGING p_nrmsg.
DATA: v_belnr LIKE bseg-belnr.
CALL TRANSACTION p_tcode USING p_itab_bdc
MODE p_mode
UPDATE p_update
* >> Início da exclusão: FORM CALL_TRANSACTION
MESSAGES INTO p_itab_msg.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
MESSAGES INTO p_itab_msg. "#EC CI_CALLTA
* << Fim da inclusão
IF sy-subrc <> 0.
LOOP AT p_itab_msg.
ADD 1 TO p_nrmsg.
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
language = sy-langu
msg_id = p_itab_msg-msgid
msg_no = p_itab_msg-msgnr
msg_var1 = p_itab_msg-msgv1
msg_var2 = p_itab_msg-msgv2
...
...
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp
AND eliminado EQ space.
PERFORM fill_nrseq_pgfat.
ENDFORM.
FORM busca_sequencialre.
DATA:
v_nrseq LIKE /pws/zycit001-nrseq,
v_count(8) TYPE n.
* >> Início da exclusão: FORM BUSCA_SEQUENCIALRE
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt124.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_SEQUENCIALRE
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt124. "#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbt124-nrseq.
ENDFORM.
FORM hist_contabil.
CLEAR it_zycit270.
IF /pws/zycie006-tpfatura = '01'.
READ TABLE itab_zycit003 WITH KEY
nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
IF NOT /pws/zycie006-belnr_p IS INITIAL.
it_zycit270-mandt = sy-mandt.
...
...
AND eliminado = space.
IF NOT itab_zycit263[] IS INITIAL.
REFRESH itab_fat_temp.
LOOP AT itab_zycit263.
itab_fat_temp-nrseq_pgfat = itab_zycit263-nrseq_pgfat.
COLLECT itab_fat_temp.
ENDLOOP.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_fat_temp
* >> Início da exclusão: FORM CALC_VLREAL
WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_VLREAL
WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit263.
v_tabix = sy-tabix.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space.
IF sy-subrc NE 0.
itab_zycit263-eliminado = 'X'.
MODIFY itab_zycit263 INDEX v_tabix.
MODIFY /pws/zycit263 FROM itab_zycit263 .
ENDIF.
...
...
nrseq = it003-nrseq AND
ebeln = it003-ebeln AND
ebelp = it003-ebelp AND
nrseq_pgfat = /pws/zycie006-nrseq.
ENDIF.
ENDIF.
IF sy-subrc NE 0.
DELETE FROM /pws/zycit036
WHERE codigo = pcodigo
AND origem = 'FAT'
* >> Início da exclusão: FORM DELE_CUSTO
AND nrseqori = /pws/zycie006-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DELE_CUSTO
AND nrseqori = /pws/zycie006-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF sy-subrc NE 0.
DELETE FROM /pws/zycit036
WHERE codigo = pcodigo
AND origem = 'FAT'
* >> Início da exclusão: FORM DELE_CUSTO
AND nrseqori = /pws/zycie006-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DELE_CUSTO
AND nrseqori = /pws/zycie006-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF ptype = 'X'.
CLEAR /pws/zycie006.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM executa_recebimento.
DATA: v_lfsnr_old LIKE /pws/zycie006-lfsnr,
v_lfsnr LIKE /pws/zycie006-lfsnr,
v_indice(02) TYPE n ,
...
...
lifnr = /pws/zycie006-lifnr
bukrs = /pws/zycie006-bukrs.
ENDFORM.
FORM get_parameters_mrm1_receb.
DATA: v_clnf LIKE /pws/zycit033-clnf.
PERFORM clear_date_batch.
SELECT SINGLE * FROM /pws/zycit048
WHERE bukrs EQ /pws/zycie006-bukrs.
FREE itab_zycit033.
SELECT * FROM /pws/zycit033
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
INTO TABLE itab_zycit033.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
INTO TABLE itab_zycit033. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT SINGLE * FROM t001w
WHERE werks = /pws/zycie001-werks.
v_clnf = 'G'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '006C'
AND bukrs = /pws/zycie006-bukrs .
ENDFORM.
FORM get_parameters_mb01_receb.
PERFORM clear_date_batch.
ENDFORM.
...
...
SELECT SINGLE awkey
FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr = v_belnr AND
bukrs = /pws/zycie006-bukrs AND
gjahr = /pws/zycie006-dt_mr1m+0(4).
itab_zycbt036-belnr = v_belnr.
APPEND itab_zycbt036.
ENDFORM.
FORM drill_down_documentos.
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
DATA: v_MR3M(4) Type C.
* << Fim da inclusão
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE006-BELNR_MR1M'
AND NOT v_valor IS INITIAL.
PERFORM converter_documento.
SELECT SINGLE belnr FROM rbkp INTO vaux_belnr
WHERE belnr = v_belnr2
AND gjahr = /pws/zycie006-dt_mr1m+0(4).
IF sy-subrc EQ 0.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
...
...
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
SET PARAMETER ID 'RBN' FIELD v_belnr2.
SET PARAMETER ID 'GJR' FIELD v_ano.
IF sy-saprl = '46B'.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'MR3M'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MR3M' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
v_MR3M = 'MR3M'.
CALL TRANSACTION v_MR3M AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'MR3M'.
ENDIF.
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'MIR4'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'MIR4'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE006-MBLNR_MB01'
AND NOT v_valor IS INITIAL.
PERFORM converter_documento.
SELECT SINGLE mblnr FROM mkpf INTO vaux_belnr
WHERE mblnr = v_belnr2
AND mjahr = /pws/zycie006-dt_mb01+0(4).
IF sy-subrc EQ 0.
SET PARAMETER ID 'MBN' FIELD v_belnr2.
SET PARAMETER ID 'MJA' FIELD /pws/zycie006-dt_mb01+0(4).
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE006-BELNR_F_51'
AND NOT v_valor IS INITIAL.
PERFORM converter_documento.
IF sy-subrc EQ 0.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = /pws/zycie006-dt_f_51
IMPORTING
...
...
SET PARAMETER ID 'BUK' FIELD /pws/zycie006-bukrs.
SET PARAMETER ID 'BLN' FIELD v_belnr2.
SET PARAMETER ID 'GJR' FIELD v_ano.
SELECT SINGLE belnr FROM bkpf INTO vaux_belnr
WHERE bukrs = /pws/zycie006-bukrs
AND belnr = v_belnr2
AND gjahr = v_ano.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
ELSEIF v_campo EQ ''.
ELSE.
MESSAGE s015 WITH text-136.
ENDIF.
ENDFORM.
FORM converter_documento.
...
...
SELECT SINGLE MAX( dtrof )
FROM /pws/zycbt115
INTO v_dtrof
WHERE nrcorrep = /pws/zycie006-nrseq_pgfat.
SELECT SINGLE rof
FROM /pws/zycbt115
INTO /pws/zycie006-rof
WHERE dtrof = v_dtrof AND
nrcorrep = /pws/zycie006-nrseq_pgfat.
ENDFORM.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
FORM pega_descricao_dominio USING value(p_campo)
value(p_valor)
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
FORM pega_descricao_dominio USING p_campo
p_valor
* << Fim da inclusão
CHANGING v_retorno.
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_campo AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
...
...
SELECT * FROM dd07t
INTO TABLE itab_dd07t
WHERE domname = wa_dd03l-domname AND
ddlanguage = sy-langu(1).
IF sy-subrc = 0.
READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.
IF sy-subrc EQ 0.
v_retorno = itab_dd07t-ddtext.
ELSE.
LOOP AT itab_dd07t WHERE domvalue_l IS initial.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND "#EC PORTABLE
* << Fim da inclusão
p_valor LE itab_dd07t-domval_hd.
v_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM PEGA_VALOR_DOMINIO
FORM pega_valor_dominio USING value(p_campo)
value(p_valor)
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_VALOR_DOMINIO
FORM pega_valor_dominio USING p_campo
p_valor
* << Fim da inclusão
CHANGING v_retorno.
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_campo AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
...
...
ENDLOOP.
ENDFORM.
FORM calcula_peso.
DATA:
v_tot_frete_aux LIKE /pws/zycit036-vlmov,
v_tot_acum LIKE /pws/zycit003-netpr,
v_tot_acum2 LIKE /pws/zycit003-netpr,
v_tot_real LIKE /pws/zycit003-netpr,
v_peso_fl,
v_fre_fl,
* >> Início da exclusão: FORM CALCULA_PESO
v_fob_fl.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
v_fob_fl,
v_message(50) type c.
* << Fim da inclusão
CLEAR: v_peso_fl, v_fre_fl, v_fob_fl.
LOOP AT itab_zycit003 WHERE ntgew IS initial.
ENDLOOP.
IF sy-subrc = 0.
v_peso_fl = 'X'.
ENDIF.
LOOP AT itab_zycit003 WHERE vlfre_fat IS initial.
ENDLOOP.
IF sy-subrc = 0.
v_fre_fl = 'X'.
...
...
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp.
ENDIF.
LOOP AT itab_zycit003.
IF sy-tcode NE '/PWS/ZYCI003_L'.
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
ENDIF.
ENDLOOP.
IF v_tot_ntgew NE /pws/zycie006-ntgew.
* >> Início da exclusão: FORM CALCULA_PESO
MESSAGE w015 WITH text-071 text-173 v_tot_ntgew.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PESO
WRITE v_tot_ntgew TO v_message UNIT /pws/zycie006-GEWEI.
MESSAGE w015 WITH text-071 text-173 v_message.
* << Fim da inclusão
ENDIF.
ELSEIF /pws/zycie006-rateio IS INITIAL.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIE006-RATEIO'.
IF screen-input = 0.
screen-required = 0.
MODIFY SCREEN.
ELSE.
MESSAGE e015 WITH text-057.
ENDIF.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM load_parametros.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE * FROM /pws/zycit477
WHERE land EQ t001-land1.
SELECT SINGLE * FROM /pws/zycit031
WHERE inco1 = /pws/zycie006-inco1
* >> Início da exclusão: FORM LOAD_PARAMETROS
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_PARAMETROS
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
v_land1 = t001-land1.
IF NOT /pws/zycie006-bukrs IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie006-bukrs.
IF sy-subrc NE 0.
MESSAGE e120.
ENDIF.
ENDIF.
MOVE /pws/zycbt007 TO wa_zycbt007.
ENDFORM.
FORM trata_save.
SELECT SINGLE *
FROM /pws/zycit085
WHERE nrbl EQ /pws/zycie006-nrseqce
AND nrdi NE ''
* >> Início da exclusão: FORM TRATA_SAVE
AND dtreg NE ''.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SAVE
AND dtreg NE ''. "#EC CI_NOFIELD
* << Fim da inclusão
IF /pws/zycie006-imposto EQ 'X'
AND /pws/zycie006-tpfatura EQ '04'.
DELETE itab_zycit483 WHERE vldp EQ 0
OR iva EQ space
OR tpdesp EQ space.
IF itab_zycit483[] IS INITIAL.
MESSAGE i015 WITH text-184 text-185.
EXIT.
ENDIF.
ENDIF.
...
...
DATA v_flag TYPE c.
IF NOT t169p-xbukrs IS INITIAL
AND NOT t169p-xxblnr IS INITIAL
AND NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
AND dtincl EQ /pws/zycie006-dtincl
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL
AND NOT t169p-xxblnr IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL
AND NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
AND dtincl EQ /pws/zycie006-dtincl
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xxblnr IS INITIAL
AND NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND nrfat EQ /pws/zycie006-nrfat
AND dtincl EQ /pws/zycie006-dtincl
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xxblnr IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND nrfat EQ /pws/zycie006-nrfat
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND dtincl EQ /pws/zycie006-dtincl
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND eliminado NE 'X'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ENDIF.
IF v_flag = 'X'.
MESSAGE e013 WITH text-163 text-164.
EXIT.
ENDIF.
ENDIF.
ENDIF.
...
...
ENDIF.
ENDFORM.
FORM estorno_pag_antecipado.
DATA itab_bseg TYPE bseg OCCURS 0 WITH HEADER LINE.
CHECK NOT itab_zycit003[] IS INITIAL
AND v_existe_di NE 'S'.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
AND status NE 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
AND status NE 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
IF itab_zycit132[] IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt108
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
WHERE nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
WHERE nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0 AND
( /pws/zycbt108-slfat EQ /pws/zycbt108-slfatcc ) AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
v_pag_antecipado = 'X'.
CLEAR v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = /pws/zycie006-dt_belnrp
...
...
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
ELSEIF NOT /pws/zycbt108-belnr_lq IS INITIAL
AND NOT /pws/zycbt108-belnr_as IS INITIAL.
MESSAGE i039 WITH text-110.
EXIT.
ENDIF.
ELSEIF NOT itab_zycit132[] IS INITIAL.
LOOP AT itab_zycit132.
SELECT SINGLE *
FROM /pws/zycbt108
* >> Início da exclusão: FORM ESTORNO_PAG_ANTECIPADO
WHERE nrseq_pgfat EQ itab_zycit132-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
WHERE nrseq_pgfat EQ
itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0 AND
( /pws/zycbt108-slfat EQ /pws/zycbt108-slfatcc ) AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
v_pag_antecipado = 'X'.
CLEAR v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = itab_zycit132-dt_belnrp
...
...
tpmsg = 'S'.
IF sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL.
MESSAGE i010 WITH itab_zycbt032-belnr.
v_belnr = itab_zycbt032-belnr.
PERFORM clear_date_batch.
ELSEIF sy-subrc NE 0.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATE_F-43_PAG_ANTECIPADO
PERFORM clear_date_batch.
* << Fim da inclusão
EXIT.
* >> Início da exclusão: FORM FILL_DATE_F-43_PAG_ANTECIPADO
PERFORM clear_date_batch.
* << Fim da exclusão
ENDIF.
ELSEIF e_subrc EQ '8'.
EXIT.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
...
...
DELETE itab_konv WHERE kntyp NE 'B'
OR kbetr EQ space.
ENDIF.
ENDIF.
IF /pws/zycie006-tpfatura NE '01'.
SELECT nrseq FROM /pws/zycit006
INTO TABLE itab_fat
WHERE nrseqce EQ /pws/zycie006-nrseqce
AND eliminado EQ space
AND tpfatura EQ /pws/zycie006-tpfatura
* >> Início da exclusão: FORM MIRO_AM_LA
AND nrseq NE /pws/zycie006-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
AND nrseq NE /pws/zycie006-nrseq. "#EC CI_NOFIELD
* << Fim da inclusão
IF /pws/zycie006-tpfatura EQ '04' AND sy-subrc EQ 0.
SELECT * FROM /pws/zycit047 INTO TABLE itab_zycit047a
FOR ALL ENTRIES IN itab_fat
WHERE nrseq EQ itab_fat-nrseq.
ENDIF.
SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399
WHERE pais EQ t001-land1.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE nrseqdi FROM /pws/zycit100 INTO /pws/zycit085-nrseqdi
* >> Início da exclusão: FORM MIRO_AM_LA
WHERE nrseq EQ itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
WHERE nrseq EQ itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycit403 INTO TABLE itab_zycit403
WHERE nrseqdi EQ /pws/zycit085-nrseqdi.
ENDIF.
REFRESH itab_ivaped.
SELECT ebeln ebelp knttp mwskz matnr werks txjcd FROM ekpo
INTO TABLE itab_ivaped
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
READ TABLE itab_zycit003 INDEX 1.
...
...
REFRESH itab_zycit399.
SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399
WHERE pais EQ t001-land1
AND credita EQ 'X'
AND codmod EQ 'D'.
ENDIF.
READ TABLE itab_zycit029 WITH KEY land1 = t001-land1.
IF sy-subrc NE 0.
REFRESH itab_zycit029.
SELECT * FROM /pws/zycit029 INTO TABLE itab_zycit029
* >> Início da exclusão: FORM TRATA_IMPOSTOS
WHERE land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_IMPOSTOS
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit484 WITH KEY land1 = t001-land1
bukrs = /pws/zycie006-bukrs.
IF sy-subrc NE 0.
REFRESH itab_zycit484.
SELECT * FROM /pws/zycit484 INTO TABLE itab_zycit484
WHERE land1 EQ t001-land1
AND bukrs EQ /pws/zycie006-bukrs.
ENDIF.
READ TABLE itab_zycit403
...
...
CLEAR: p_taxa.
DATA: v_moeda LIKE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
DATA: itab_zycit174 TYPE /pws/zycit174 OCCURS 0 WITH HEADER LINE.
SELECT SINGLE /pws/codmo FROM tcurc INTO v_moeda WHERE
waers = p_waers.
IF sy-subrc EQ 0.
REFRESH itab_zycit174.
SELECT * FROM /pws/zycit174 INTO TABLE itab_zycit174 WHERE
* >> Início da exclusão: FORM TAXA_CONVERTE
codconver = v_moeda AND
* << Fim da exclusão
* >> Início da inclusão: FORM TAXA_CONVERTE
codconver = v_moeda AND "#EC PORTABLE
* << Fim da inclusão
vigen_inicio <= p_data AND
vigen_fim >= p_data AND
land1 = t001-land1.
DESCRIBE TABLE itab_zycit174 LINES v_linhas.
IF v_linhas EQ 1.
READ TABLE itab_zycit174 INDEX 1.
p_taxa = itab_zycit174-txconver.
ELSEIF v_linhas EQ 0.
IF NOT p_data IS INITIAL.
IF p_waers EQ wa_zycbt007-waersb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
LEAVE PROGRAM.
ENDMODULE.
MODULE altera_itab_zycit006 INPUT.
MODIFY itab_zycit006 INDEX tc_faturas-current_line.
ENDMODULE.
MODULE altera_itab_zycbt108 INPUT.
FREE itab_zycbt108.
SELECT nrcontr banqueiro refpagto dtcontr
FROM /pws/zycbt108
INTO TABLE itab_zycbt108
* >> Início da exclusão: MODULE ALTERA_ITAB_ZYCBT108
WHERE nrfat EQ /pws/zycie006-nrfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCBT108
WHERE nrfat EQ /pws/zycie006-nrfat. "#EC CI_NOFIELD
* << Fim da inclusão
ENDMODULE.
MODULE altera_itab_zycbt115 INPUT.
FREE itab_zycbt115.
SELECT * FROM /pws/zycbt115
INTO TABLE itab_zycbt115
WHERE nrcorrep EQ /pws/zycie006-nrseq
AND tpdoc EQ 'F'.
ENDMODULE.
MODULE user_command_0100 INPUT.
DATA: e_exec_okcode.
...
...
IF v_autoriza = 'X'.
PERFORM modo_batch_input.
ELSE.
MESSAGE w013 WITH text-161 text-162.
ENDIF.
WHEN 'BACK'.
SELECT SINGLE *
FROM /pws/zycit085
WHERE nrbl EQ /pws/zycie006-nrseqce
AND nrdi NE ''
* >> Início da exclusão: MODULE USER_COMMAND_0100
AND dtreg NE ''.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
AND dtreg NE ''. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
LEAVE PROGRAM.
ENDIF.
FREE: itab_zycit132. REFRESH: itab_zycit132.
IF sy-tcode EQ '/PWS/ZYCI003_L' OR sy-tcode EQ '/PWS/ZYCI003_E' OR
sy-tcode EQ '/PWS/ZYCI003_R' .
PERFORM verifica_alteracoes.
CLEAR: v_dbanco, v_dforn, v_dmoeda, v_dmoeda_emb,
v_dtpfatura, v_dfrpagto, /pws/zycie006.
CLEAR v_livre.
...
...
WHEN 'FC_BANCO'.
LOOP AT itab_zycit129.
itab_zycit129-mark = ' '.
MODIFY itab_zycit129.
ENDLOOP.
ENDCASE.
WHEN 'IMPR'.
MOVE itab_zycit003-nrseq TO /pws/zycie003-nrseq.
EXPORT /pws/zycie003-nrseq TO MEMORY ID '001'.
EXPORT /pws/zycie006-nrseq TO MEMORY ID '002'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir051 AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
SUBMIT /pws/zycir051 AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
WHEN 'ENTE'.
PERFORM trata_ente.
WHEN 'CAMB'.
CALL SCREEN 0112 STARTING AT 5 5 ENDING AT 65 20.
WHEN 'REC'.
IF NOT /pws/zycie006-belnr_p IS INITIAL OR
NOT ITAB_ZYCIT132-BELNR_P IS INITIAL.
PERFORM executa_recebimento.
CLEAR v_modo_bi.
ELSE.
...
...
CLEAR v_sele_zycit003.
CASE okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE006-NRSEQ'.
READ TABLE itab_zycit006 WITH KEY nrseq = v_valor.
MOVE itab_zycit006 TO /pws/zycie006.
IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).
REFRESH itab_zycit263.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
* >> Início da exclusão: MODULE USER_COMMAND_0001
WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
WHERE nrseq_pgfat =
/pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263 WHERE
nrseq = itab_zycit263-nrseq AND
ebeln = itab_zycit263-ebeln AND
ebelp = itab_zycit263-ebelp.
ENDIF.
ELSE.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
WHERE nrseqce = /pws/zycie006-nrseqce.
...
...
/pws/zycie001-werks
/pws/zycie001-waers
/pws/zycie001-inco1
/pws/zycie001-j_1bbranch
v_lifnr
e_status
v_sele_zycit003
TO MEMORY ID '003'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCI003_C'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0001
CALL TRANSACTION '/PWS/ZYCI003_C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
CALL TRANSACTION '/PWS/ZYCI003_C'. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-109.
ENDIF.
WHEN 'FATDED'.
LOOP AT itab_zycit006 WHERE mark = 'X'.
MOVE itab_zycit006-nrseq TO v_nrseq.
MOVE itab_zycit006-nrfat TO v_nrfat.
MOVE itab_zycit006-bukrs TO v_bukrs.
MOVE itab_zycit006-lifnr TO v_lifnr.
ENDLOOP.
...
...
MESSAGE s015 WITH text-065 text-066.
ELSE.
EXPORT /pws/zycie006-nrfat
/pws/zycie006-tpfatura
/pws/zycie006-zterm
/pws/zycie006-frpagto
/pws/zycie006-waers TO MEMORY ID 'IP003A'.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCI003_C'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0001
CALL TRANSACTION '/PWS/ZYCI003_C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
CALL TRANSACTION '/PWS/ZYCI003_C'. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-109.
ENDIF.
ENDIF.
ELSE.
MESSAGE s015 WITH text-073.
ENDIF.
ELSE.
MESSAGE s015 WITH text-024.
ENDIF.
...
...
IF v_campo EQ '/PWS/ZYCIE006-NRSEQ'.
READ TABLE itab_zycit006_all WITH KEY nrseq = v_valor.
MOVE itab_zycit006_all TO /pws/zycie006.
IF sy-tcode NE '/PWS/ZYCI003_A' AND
sy-tcode NE '/PWS/ZYCI003_M'.
v_status_s = 0.
v_forn = 'X'.
ENDIF.
IF ( /pws/zycie006-tpfatura = '01' OR
/pws/zycie006-tpfatura = '11' ).
* >> Início da exclusão: MODULE USER_COMMAND_0003
SELECT *
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0003
SELECT * "#EC CI_NOFIRST
* << Fim da inclusão
FROM /pws/zycit263
INTO TABLE itab_zycit263
WHERE nrseq_pgfat = /pws/zycie006-nrseq_pgfat.
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263 WHERE
nrseq = itab_zycit263-nrseq AND
ebeln = itab_zycit263-ebeln AND
ebelp = itab_zycit263-ebelp.
ENDIF.
...
...
AND belnr = /pws/zycie006-nrseq.
i_belnr = v_valor.
i_bukrs = /pws/zycie006-bukrs.
IF NOT /pws/zycie006-dtlanc IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = i_bukrs
v_date = /pws/zycie006-dtlanc
IMPORTING
v_year = i_gjahr
* >> Início da exclusão: MODULE USER_COMMAND_0101
.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
EXCEPTIONS
VARIANTE_DE_EXERCICIO = 1
DATA_NAO_ENCONTRADA = 2
EMPRESA_NAO_ENCONTRADA = 3
PERIOD_IN_NOT_VALID = 4
PERIOD_NOT_ASSIGNED = 5
VERSION_UNDEFINED = 6
OTHERS = 7 .
* << Fim da inclusão
IF sy-subrc <> 0.
i_gjahr = /pws/zycie006-dtlanc+0(4).
SET PARAMETER ID 'GJR' FIELD i_gjahr.
ENDIF.
ENDIF.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE006-NRSEQ_PGFAT' AND
NOT v_valor IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt119
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCBP344'
FIELD /pws/zycie006-nrseq_pgfat.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB106_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION '/PWS/ZYCB106_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION '/PWS/ZYCB106_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-106.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE006-NRSEQRE' AND
NOT v_valor IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt124
WHERE nrseq = /pws/zycie006-nrseqre.
SET PARAMETER ID '/PWS/ZYCBP374'
FIELD /pws/zycie006-nrseqre.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB109_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION '/PWS/ZYCB109_E' AND SKIP FIRST SCREEN
.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION '/PWS/ZYCB109_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-153.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE006-BELNR_MR1M' AND
NOT v_valor IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt108
WHERE bukrs = /pws/zycie006-bukrs
AND belnr = /pws/zycie006-nrseq.
i_belnr = v_valor.
i_bukrs = /pws/zycie006-bukrs.
...
...
OTHERS = 7.
IF sy-subrc <> 0.
i_gjahr = /pws/zycie006-dtlanc+0(4).
SET PARAMETER ID 'GJR' FIELD i_gjahr.
ENDIF.
ENDIF.
SET PARAMETER ID 'RBN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'MIR4'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'MIR4'.
ENDIF.
ENDIF.
WHEN 'DATE'.
PERFORM alt_dt_venc_fat.
WHEN 'FRETECLP'.
v_freteclp = 'S'.
WHEN 'IMPOSTO'.
PERFORM trata_impostos.
...
...
CLEAR okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE003-NRSEQ' .
/pws/zycie003-nrseq = v_valor.
EXPORT /pws/zycie003-nrseq TO MEMORY ID '002'.
v_status_s = 0.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
'/PWS/ZYCI001_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0102
CALL TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
CALL TRANSACTION '/PWS/ZYCI001_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-107.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE003-EBELN' .
MOVE v_valor TO v_valorn.
SHIFT v_valorn RIGHT DELETING TRAILING space.
OVERLAY v_valorn WITH v_zeros.
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = v_valorn.
IF sy-subrc EQ 0.
i_ebeln = v_valorn.
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_0102
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
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_0102
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
CALL TRANSACTION 'ME23N' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
...
...
CASE okcode.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE006-NRSEQCE' .
IF NOT /pws/zycie006-nrseqce IS INITIAL.
v_nrbl = /pws/zycie006-nrseqce.
EXPORT v_nrbl TO MEMORY ID rimc2 .
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
'/PWS/ZYCI002_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE CALL_BL
CALL TRANSACTION '/PWS/ZYCI002_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE CALL_BL
CALL TRANSACTION '/PWS/ZYCI002_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-108.
ENDIF.
ENDIF.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE altera_zycit132 INPUT.
IF v_waers_par IS INITIAL.
v_waers_par = /pws/zycie132-waers.
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD v_ano.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION 'FB03' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE132-NRSEQ_PGFAT' AND
NOT v_valor IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt119
WHERE nrseq = /pws/zycie006-nrseq_pgfat.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCBP344' FIELD v_valor.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
'/PWS/ZYCB106_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION '/PWS/ZYCB106_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION '/PWS/ZYCB106_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-106.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE132-NRSEQRE' AND
NOT v_valor IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = /pws/zycie132-nrseqre.
SELECT SINGLE * FROM /pws/zycbt124
WHERE nrseq = /pws/zycie132-nrseqre.
IF sy-subrc EQ 0.
SET PARAMETER ID '/PWS/ZYCBP374'
FIELD /pws/zycie132-nrseqre.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD '/PWS/ZYCB109_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION '/PWS/ZYCB109_E' AND SKIP FIRST SCREEN
.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION '/PWS/ZYCB109_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e015 WITH text-105 text-153.
ENDIF.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE132-BELNR_MR1M' AND
NOT v_valor IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt108
WHERE bukrs = /pws/zycie006-bukrs
AND belnr = /pws/zycie006-nrseq.
i_belnr = v_valor.
...
...
OTHERS = 7.
IF sy-subrc <> 0.
i_gjahr = /pws/zycie006-dtlanc+0(4).
SET PARAMETER ID 'GJR' FIELD i_gjahr.
ENDIF.
ENDIF.
SET PARAMETER ID 'RBN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'MIR4'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0111
CALL TRANSACTION 'MIR4' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH 'MIR4'.
ENDIF.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE valuerequest_zterm INPUT.
DATA v_zterm LIKE /pws/zycie006-zterm.
CALL FUNCTION 'FI_F4_ZTERM'
EXPORTING
...
...
WHEN 'ELIM'.
DELETE itab_zycit126 WHERE mark = 'X'.
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE006-NRSEQRE' AND
NOT v_valor IS INITIAL.
SET PARAMETER ID '/PWS/ZYCBP374' FIELD /pws/zycie006-nrseqre.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD
'/PWS/ZYCB109_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0350
CALL TRANSACTION '/PWS/ZYCB109_E' AND SKIP FIRST SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0350
CALL TRANSACTION '/PWS/ZYCB109_E' AND
SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da inclusão
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB109_E'.
ENDIF.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0109 INPUT.
CASE okcode.
WHEN 'ELIM'.
DELETE itab_zycit130 WHERE mark = 'X'.
...
...
DATA: END OF f_tab.
DATA: BEGIN OF v_tab OCCURS 200,
value(40) TYPE c,
END OF v_tab.
DATA: BEGIN OF itab_rateio OCCURS 0.
INCLUDE STRUCTURE /pws/zycit391.
DATA: END OF itab_rateio.
CLEAR : v_tab, f_tab, itab_rateio.
REFRESH: v_tab, f_tab, itab_rateio.
SELECT * FROM /pws/zycit391
* >> Início da exclusão: MODULE SETA_MATCHCODE
INTO TABLE itab_rateio.
* << Fim da exclusão
* >> Início da inclusão: MODULE SETA_MATCHCODE
INTO TABLE itab_rateio. "#EC CI_NOWHERE
* << Fim da inclusão
CLEAR v_loop.
LOOP AT itab_rateio.
IF itab_rateio-flag EQ 'X'.
v_loop = v_loop + 1.
ENDIF.
ENDLOOP.
IF v_loop > 1 OR v_loop EQ 0.
MESSAGE e015 WITH text-149.
ENDIF.
SORT itab_rateio BY flag DESCENDING.
...
...
WHEN 'FC_BANCO'.
LOOP AT itab_zycit129.
itab_zycit129-mark = ' '.
MODIFY itab_zycit129.
ENDLOOP.
ENDCASE.
WHEN 'IMPR'.
MOVE itab_zycit003-nrseq TO /pws/zycie003-nrseq.
EXPORT /pws/zycie003-nrseq TO MEMORY ID '001'.
EXPORT /pws/zycie006-nrseq TO MEMORY ID '002'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir051 AND RETURN.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
SUBMIT /pws/zycir051 AND RETURN. "#EC CI_SUBMIT
* << Fim da inclusão
WHEN 'ENTE'.
IF /pws/zycie006-tpfatura = '04'.
PERFORM soma_despesa.
IF v_tot_desp <> /pws/zycie006-vltotal.
v_tot_desp = /pws/zycie006-vltotal - v_tot_desp.
MOVE v_tot_desp TO v_total_desp.
MESSAGE s061 WITH text-051 v_total_desp text-020 .
ENDIF.
ENDIF.
PERFORM move_pais.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ENDIF.
IF /pws/zycie006-j_1bbranch IS INITIAL.
MOVE /pws/zycie001-j_1bbranch TO /pws/zycie006-j_1bbranch.
ENDIF.
ELSE.
IF sy-tcode EQ '/PWS/ZYCI003_C' AND
v_forn = 'X'.
CLEAR /pws/zycie006-lifnr.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE LOAD_DATA
IF NOT /pws/zycie001-nrseq IS INITIAL.
CALL CUSTOMER-FUNCTION '002'
EXPORTING
/pws/zycie001 = /pws/zycie001
CHANGING
v_prof = v_prof.
ENDIF.
* << Fim da exclusão
IF wa_fornec_fat-lifnr NE /pws/zycie006-lifnr.
CLEAR: wa_fornec_fat.
SELECT SINGLE lifnr name1
FROM lfa1
INTO wa_fornec_fat
WHERE lifnr EQ /pws/zycie006-lifnr.
ENDIF.
PERFORM load_parametros.
IF /pws/zycie006-tpfatura = '04'
AND /pws/zycie006-vinserv EQ 'X'.
...
...
IF v_existe_bol IS INITIAL.
MESSAGE i015 WITH text-110.
ENDIF.
v_existe_bol = 'X'.
ELSE.
CLEAR v_existe_bol.
ENDIF.
ENDIF.
IF /pws/zycit001-nrseq NE /pws/zycie001-nrseq.
SELECT SINGLE * FROM /pws/zycit001
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrseq = /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF v_prof = 'X' AND /pws/zycie006-dtincl IS INITIAL.
/pws/zycie006-dtincl = /pws/zycit001-dt_recorigem.
ENDIF.
SELECT SINGLE * FROM /pws/zycit024
* >> Início da exclusão: MODULE LOAD_DATA
WHERE regime = /pws/zycit001-regime.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE regime = /pws/zycit001-regime. "#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycie006-frpagto IS INITIAL AND NOT /pws/zycie001-nrseq IS
INITIAL.
ENDIF.
IF sy-tcode = '/PWS/ZYCI003_L' AND v_exibe_fat IS INITIAL.
PERFORM exibir_fatura.
ENDIF.
IF NOT /pws/zycie006-inco1 IS INITIAL
AND NOT /pws/zycie006-lifnr IS INITIAL
AND NOT /pws/zycie006-bukrs IS INITIAL.
IF itab_zycit003[] IS INITIAL AND ( ( v_livre NE 'S' AND
...
...
/pws/zycie006-tpfatura EQ '04' OR
/pws/zycie006-tpfatura EQ '09' ) )
AND NOT /pws/zycie001-nrseq IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc NE 0 AND /pws/zycie001-nrseq IS INITIAL
AND NOT /pws/zycie006-nrseq_pgfat IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrseq_pgfat EQ
/pws/zycie006-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycie006-nrseq_pgfat IS INITIAL AND
( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' )
AND NOT itab_sele[] IS INITIAL AND
v_flag_sele IS INITIAL.
v_flag_sele = 'X'.
LOOP AT itab_zycit003.
READ TABLE itab_sele WITH KEY ebeln = itab_zycit003-ebeln
...
...
WHERE nrseq = itab_zycit003-nrseq .
IF NOT itab_zycit263[] IS INITIAL.
REFRESH itab_fat_temp.
LOOP AT itab_zycit263.
itab_fat_temp-nrseq_pgfat = itab_zycit263-nrseq_pgfat.
COLLECT itab_fat_temp.
ENDLOOP.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_fat_temp
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrseq_pgfat EQ itab_fat_temp-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit263.
v_tabix = sy-tabix.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space.
IF sy-subrc NE 0.
itab_zycit263-eliminado = 'X'.
MODIFY itab_zycit263 INDEX v_tabix.
ENDIF.
ENDLOOP.
...
...
PERFORM buscar_cnpj.
IF NOT itab_zycit003[] IS INITIAL AND /pws/zycie006-nrseqce IS
INITIAL.
PERFORM seleciona_bl.
ENDIF.
PERFORM montar_dtvencto.
IF NOT /pws/zycie006-nrfat IS INITIAL.
SELECT nrcontr banqueiro refpagto dtcontr
FROM /pws/zycbt108
INTO TABLE itab_zycbt108
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrfat EQ /pws/zycie006-nrfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrfat EQ /pws/zycie006-nrfat. "#EC CI_NOFIELD
* << Fim da inclusão
SELECT * FROM /pws/zycbt115
INTO TABLE itab_zycbt115
WHERE nrcorrep EQ /pws/zycie006-nrseq
AND tpdoc EQ 'F'.
ENDIF.
IF itab_zycit132[] IS INITIAL
AND ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).
IF /pws/zycie006-eliminado = 'X'.
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
WHERE nrseq = /pws/zycie006-nrseq
...
...
MOVE /pws/zycie006 TO wa_zycie006_ini.
MOVE itab_zycit047[] TO itab_zycit047_ini[].
IF NOT itab_zycit132[] IS INITIAL.
MOVE itab_zycit132[] TO itab_zycit132_ini[].
ENDIF.
ENDIF.
IF NOT /pws/zycie006-inco1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie006-bukrs.
SELECT SINGLE * FROM /pws/zycit031
WHERE inco1 = /pws/zycie006-inco1
* >> Início da exclusão: MODULE LOAD_DATA
AND land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
AND land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e015 WITH text-039.
ENDIF.
ENDIF.
IF NOT /pws/zycie006-nrseq IS INITIAL AND v_obser = space.
v_obser = 'X'.
v_txtkey = /pws/zycie006-nrseq.
PERFORM read_text.
v_acto = 'A'.
ENDIF.
...
...
LOOP AT itab_zycit003 WHERE waers NE v_moeda.
v_waers_diferente = 'X'.
ENDLOOP.
IF sy-subrc NE 0.
v_waers_diferente = space.
ENDIF.
IF v_existe_di NE 'S'.
IF NOT itab_zycit003[] IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_zycit100 INDEX 1.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi = itab_zycit100-nrseqdi.
IF sy-subrc EQ 0.
v_existe_di = 'S'.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycie006-nrseqce IS INITIAL.
SELECT SINGLE * FROM /pws/zycit085
* >> Início da exclusão: MODULE LOAD_DATA
WHERE nrbl = /pws/zycie006-nrseqce.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
WHERE nrbl = /pws/zycie006-nrseqce. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
v_existe_di = 'S'.
ENDIF.
ENDIF.
ENDIF.
PERFORM consiste_regime.
IF /pws/zycie006-ebene IS INITIAL AND t035-bild1 IS INITIAL AND
NOT /pws/zycie006-lifnr IS INITIAL.
PERFORM busca_nivel_tsr.
ELSEIF NOT /pws/zycie006-ebene IS INITIAL AND
...
...
ENDIF.
IF NOT /pws/zycie006-ratval IS INITIAL AND v_ratval IS INITIAL.
PERFORM pega_descricao_dominio USING '/PWS/ZYCIT391-RATVAL'
/pws/zycie006-ratval
CHANGING v_ratval.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt130
WHERE bukrs = /pws/zycie006-bukrs
AND belnr = /pws/zycie006-nrseq
AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat
* >> Início da exclusão: MODULE LOAD_DATA
AND gjahr = /pws/zycie006-dtincl(4).
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
AND gjahr = /pws/zycie006-dtincl(4). "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE *
FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM' AND
msgnr EQ '125'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL AND
v_existe_lc IS INITIAL.
IF /pws/zyglt217-msgtp EQ 'E'.
v_status_s = 0.
MESSAGE ID '/PWS/ZYCIM' TYPE 'W' NUMBER '125'.
...
...
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
WHERE nrseq EQ itab_zycit003-nrseq.
IF NOT itab_zycit263[] IS INITIAL.
REFRESH itab_fat_temp.
LOOP AT itab_zycit263.
itab_fat_temp-nrseq_pgfat = itab_zycit263-nrseq_pgfat.
COLLECT itab_fat_temp .
ENDLOOP.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_fat_temp
* >> Início da exclusão: MODULE LOAD_DATA_001
WHERE nrseq_pgfat = itab_fat_temp-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
WHERE nrseq_pgfat = itab_fat_temp-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
ENDIF.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycie094
* >> Início da exclusão: MODULE LOAD_DATA_001
WHERE nrseq = /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE LOAD_DATA_001
SELECT * FROM /pws/zycit006 APPENDING TABLE itab_zycit006
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
SELECT * FROM /pws/zycit006
APPENDING TABLE itab_zycit006 "#EC CI_NOFIELD
* << Fim da inclusão
WHERE nrseqce = /pws/zycie094-nrseqce AND
( tpfatura = '02' OR
tpfatura = '03' OR
tpfatura = '04' ).
ENDIF.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001 WHERE nrseq =
/pws/zycie001-nrseq.
ELSE.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycie094
* >> Início da exclusão: MODULE LOAD_DATA_001
WHERE nrseq = /pws/zycie001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
WHERE nrseq = /pws/zycie001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
* >> Início da exclusão: MODULE LOAD_DATA_001
WHERE nrseqce = /pws/zycie094-nrseqce.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
WHERE nrseqce = /pws/zycie094-nrseqce. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
...
...
WHERE nrseq = /pws/zycie001-nrseq.
IF NOT itab_zycit263[] IS INITIAL.
REFRESH itab_fat_temp.
LOOP AT itab_zycit263.
itab_fat_temp-nrseq_pgfat = itab_zycit263-nrseq_pgfat.
COLLECT itab_fat_temp .
ENDLOOP.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_fat_temp
* >> Início da exclusão: MODULE LOAD_DATA_001
WHERE nrseq_pgfat = itab_fat_temp-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
WHERE nrseq_pgfat = itab_fat_temp-nrseq_pgfat. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
SELECT * FROM /pws/zycit006 APPENDING TABLE itab_zycit006
WHERE nrseqf = /pws/zycie001-nrseq AND
* >> Início da exclusão: MODULE LOAD_DATA_001
tpfatura = '04'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA_001
tpfatura = '04'. "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
...
...
MODIFY SCREEN.
ENDIF.
IF ( screen-name EQ '/PWS/ZYCIE006-VLMERC' OR
screen-name EQ '/PWS/ZYCIE003-VLREAL' OR
screen-name EQ '/PWS/ZYCIE036-VLDIF' ) AND
/pws/zycie006-tpfatura EQ '01'.
READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ /pws/zycit003-nrseq
* >> Início da exclusão: MODULE SET_SCREEN
AND docnum NE ''.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
AND docnum NE ''. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF ( screen-name EQ '/PWS/ZYCIE006-BELNR_MR1M' OR
screen-name EQ 'TEXT_MR1M' ) AND
/pws/zycit477 IS INITIAL.
screen-active = 0 .
screen-invisible = 1 .
...
...
screen-input = '1' .
MODIFY SCREEN.
ENDIF.
IF ( screen-name = '/PWS/ZYCIE006-RATVAL' OR
screen-name = 'V_RATVAL' ) AND /pws/zycie006-tpfatura = '01'.
READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.
IF NOT /pws/zycit003-nrseq IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ /pws/zycit003-nrseq
* >> Início da exclusão: MODULE SET_SCREEN
AND docnum NE space.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
AND docnum NE space. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF v_existe_bol EQ 'X'
AND screen-name EQ 'V_RATVAL' .
screen-input = '0'.
MODIFY SCREEN.
...
...
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
IF ( screen-name = '/PWS/ZYCIE003-VLREAL' OR
screen-name = '/PWS/ZYCIE036-VLDIF' ) AND
/pws/zycie006-tpfatura EQ '01'.
READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit042
* >> Início da exclusão: MODULE SET_SCREEN_TC_0106
WHERE nrseq EQ /pws/zycit003-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_TC_0106
WHERE nrseq EQ /pws/zycit003-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
screen-input = 0.
ENDIF.
ENDIF.
IF v_existe_bol EQ 'X'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
...
...
screen-input = 1.
ENDIF.
ENDIF.
IF ( screen-name = '/PWS/ZYCIE003-VLREAL' OR
screen-name = '/PWS/ZYCIE036-VLDIF' ) AND
/pws/zycie006-tpfatura EQ '01'.
READ TABLE itab_zycit003 INTO /pws/zycit003 INDEX 1.
SELECT SINGLE *
FROM /pws/zycit042
WHERE nrseq EQ /pws/zycit003-nrseq
* >> Início da exclusão: MODULE SET_SCREEN_0400
AND docnum NE ''.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0400
AND docnum NE ''. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
screen-input = 0.
ENDIF.
ENDIF.
IF /pws/zycie006-fabricante EQ '2' AND
( screen-name EQ '/PWS/ZYCIE003-DESCFAB' OR
screen-name EQ '/PWS/ZYCIE003-PAISFAB' ) .
IF /pws/zycie003-lifnrfabr IS INITIAL .
screen-input = '1' .
ELSE .
...
...
ENDIF.
DESCRIBE TABLE itab_zycit129 LINES v_line.
tc_banco-lines = v_line + 7.
WHEN '0109'.
IF wa_zycit006_ded IS INITIAL AND
NOT /pws/zycie006-nrfat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006 INTO wa_zycit006_ded
WHERE nrfat = /pws/zycie006-nrfat
AND bukrs = /pws/zycie006-bukrs
AND lifnr = /pws/zycie006-lifnr
* >> Início da exclusão: MODULE SET_TABLE
AND tpfatura NE '05'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_TABLE
AND tpfatura NE '05'. "#EC CI_NOFIELD
* << Fim da inclusão
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130_aux2
WHERE nrseq = wa_zycit006_ded-nrseq.
ENDIF.
IF itab_zycit130_sld[] IS INITIAL AND
NOT itab_zycit006_ded[] IS INITIAL.
SELECT * FROM /pws/zycit130 INTO TABLE itab_zycit130_sld
FOR ALL ENTRIES IN itab_zycit006_ded
WHERE nrseq = itab_zycit006_ded-nrseq.
ENDIF.
DESCRIBE TABLE itab_zycit130 LINES v_line.
...
...
REFRESH itab_zycit399.
SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399
WHERE pais EQ t001-land1
AND credita EQ 'X'
AND codmod EQ 'D'.
ENDIF.
READ TABLE itab_zycit029 WITH KEY land1 = t001-land1.
IF sy-subrc NE 0.
REFRESH itab_zycit029.
SELECT * FROM /pws/zycit029 INTO TABLE itab_zycit029
* >> Início da exclusão: MODULE STATUS_0113
WHERE land1 EQ t001-land1.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0113
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit484 WITH KEY land1 = t001-land1
bukrs = /pws/zycie006-bukrs.
IF sy-subrc NE 0.
REFRESH itab_zycit484.
SELECT * FROM /pws/zycit484 INTO TABLE itab_zycit484
WHERE land1 EQ t001-land1
AND bukrs EQ /pws/zycie006-bukrs.
ENDIF.
READ TABLE itab_zycit403
...