CE PLUS - Nota 004389
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 10/08/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:59:22
Descrição da Nota: ERROS/WARNINGS CODE INSPECTOR/VERIFICAÇÃ AMPLIADA NA COMISSÃO DE AGENTE
Sintoma
Erros/Warnings no Programa da Comissão de Agente.
Solução
Correção dos Erros e Warnings apresentados no Code Inspector e na Verificação Ampliada.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04389 Data: 10/08/2007 Hora: 10:16:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04389
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00007
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03307 - 00001 - 6.0 - 00026 - DATA INCORRETA UTILIZADA PARA IDENTIFICAR O EXERCICIO DA COMISSAO
03687 - 00003 - 7.0 - 00001 - VERIFICAÇÃO DE EXERCÍCIO FISCAL NA COMISSÃO DE AGENTE
04099 - 00002 - 7.0 - 00002 - REMOÇÃO DE DUPLICAÇÃO DE DADOS NAS ABAS "AGENTE" E "DIFERENÇA"
04298 - 00004 - 7.0 - 00002 - ATUALIZAÇÃO DA DATA DE LANÇAMENTO AO CONTABILIZAR A COMISSÃO DE A
----------------------------------------------------------------------------------------------------
ERROS/WARNINGS CODE INSPECTOR/VERIFICAÇÃ AMPLIADA NA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERROS WARNINGS CODE INSPECTOR VERIFICAÇÃO AMPLIADA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU NA/PWS/ZYCEM099
DOCU NA/PWS/ZYCEM214
MESS /PWS/ZYCEM285
REPS /PWS/MZYCE017F01
REPS /PWS/MZYCE017I01
REPS /PWS/MZYCE017O01
REPS /PWS/MZYCE017TOP
REPT /PWS/SAPMZYCE017
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM099
Alterar Mensagem 099:
Marcar a opção Auto-explicat
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCEM214
Alterar Mensagem 214:
Marcar a opção Auto-explicat
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM285
Alterar Mensagem 285:
Mensagem: Forma de Comissão &1 não encontrada na Tabela &2.
Marcar a opção Auto-explicat
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017F01
...
v_vlcomis.
READ TABLE itab_zycet010 INDEX 1.
READ TABLE itab_zycet013 INDEX 1.
CLEAR v_j1bbranch.
v_j1bbranch = itab_zycet010-j_1bbranch.
CLEAR: v_kostl.
v_kostl = wa_zycet260-kostl.
IF NOT itab_zycet010-kostl IS INITIAL.
v_kostl = itab_zycet010-kostl.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS
REFRESH itab_zycet008ax.
LOOP AT itab_zycet008.
MOVE-CORRESPONDING itab_zycet008 TO itab_zycet008ax.
APPEND itab_zycet008ax.
ENDLOOP.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCE_CALC_VALOR_CONDITION'
EXPORTING
v_valores_reais = 'X'
IMPORTING
/pws/zycee313 = /pws/zycee313
wa_zycee313_prov = wa_zycee313_prov
wa_zycee313_real = wa_zycee313_real
TABLES
* >> Início da exclusão: FORM CARREGA_DADOS
itab_zycet008 = itab_zycet008.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
itab_zycet008 = itab_zycet008ax.
LOOP AT itab_zycet008ax.
MOVE-CORRESPONDING itab_zycet008ax TO itab_zycet008.
MODIFY itab_zycet008 INDEX sy-tabix.
ENDLOOP.
* << Fim da inclusão
v_vlcomis_p = wa_zycee313_prov-vlme_com.
v_vlcomis = /pws/zycee313-vlme_com.
READ TABLE itab_zycet008 INDEX 1.
v_waers = itab_zycet008-waers.
IF /pws/zycee001-parvw IS INITIAL.
MOVE wa_zycet037-tpcomissao TO /pws/zycee001-parvw.
ENDIF.
IF NOT itab_zycet010-belnr IS INITIAL.
CLEAR v_vlcomis.
LOOP AT itab_zycet010.
...
...
NOT wa_zycee313_real-vlme_com IS INITIAL.
PERFORM comissao_digitada.
ENDIF.
IF sy-tcode = '/PWS/ZYCE017_E'.
v_vlcomis = /pws/zycee313-vlme_com.
ENDIF.
ENDFORM.
FORM comissao_condition.
DATA: v_percent TYPE f,
v_index3 LIKE sy-tabix,
* >> Início da exclusão: FORM COMISSAO_CONDITION
v_vbeln_vf LIKE /pws/zycet002-vbeln_vf,
wa_zycet008 LIKE /pws/zycet008.
* << Fim da exclusão
* >> Início da inclusão: FORM COMISSAO_CONDITION
v_vbeln_vf LIKE /pws/zycet002-vbeln_vf.
* << Fim da inclusão
DATA: BEGIN OF itab_zycet020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet020.
DATA: END OF itab_zycet020.
SELECT *
FROM /pws/zycet020
INTO TABLE itab_zycet020
WHERE bukrs = /pws/zycee001-bukrs.
IF wa_zycet037-comis_provisao NE '1'.
REFRESH: itab_zycet013,
itab_zycet010,
...
...
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM comissao_digitada.
DATA: v_percent TYPE f,
v_cont TYPE i,
v_vlcom LIKE /pws/zycet010-vlcomis.
DATA: v_index3 LIKE sy-tabix,
v_vbeln_vf LIKE /pws/zycet002-vbeln_vf.
* >> Início da exclusão: FORM COMISSAO_DIGITADA
DATA: wa_zycet008 LIKE /pws/zycet008.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet020.
DATA: END OF itab_zycet020.
IF wa_zycet037-comis_provisao NE '1'.
REFRESH: itab_zycet013,
itab_zycet010,
itab_zycet010_aux.
CLEAR: itab_zycet013,
itab_zycet010,
itab_zycet010_aux.
...
...
ENDLOOP.
ENDIF.
ENDFORM.
FORM atualiza_parvw.
SELECT SINGLE txtdesc FROM /pws/zycbt037
INTO (/pws/zycbt037-txtdesc)
WHERE parvw = /pws/zycee001-parvw.
v_s_parvw = /pws/zycbt037-txtdesc.
ENDFORM.
FORM fill_date_f02.
* >> Início da exclusão: FORM FILL_DATE_F02
DATA: v_datavalor LIKE sy-datlo,
v_retorno(2) TYPE c,
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
DATA: v_retorno(2) TYPE c,
* << Fim da inclusão
v_dtvencto TYPE /pws/zycet010-dtvencto.
PERFORM get_parameters_f02.
itab_zycee005-mandt = sy-mandt.
itab_zycee005-tcode = 'F-02'.
itab_zycee005-tabela = '/PWS/ZYCET010'.
itab_zycee005-cpochv = /pws/zycee001-nrseq.
READ TABLE itab_zycet001 WITH KEY nrseq = /pws/zycee001-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F02
PERFORM determina_bkpf_bldat USING itab_zycee005-bldat.
PERFORM determina_bkpf_budat USING itab_zycee005-budat.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
PERFORM determina_bkpf_bldat CHANGING itab_zycee005-bldat.
PERFORM determina_bkpf_budat CHANGING itab_zycee005-budat.
* << Fim da inclusão
PERFORM verify_null_field1 USING itab_zycet001-bukrs
'BUKRS'
text-092.
itab_zycee005-bukrs = itab_zycet001-bukrs.
CALL FUNCTION '/PWS/ZYCE_CHECA_PERIODO_FISCAL'
EXPORTING
v_bukrs = itab_zycee005-bukrs
v_date = itab_zycee005-budat
v_koart = '+'
IMPORTING
...
...
IF v_retorno = '01'.
itab_zycee005-stgrd = '01'.
ELSE.
itab_zycee005-stgrd = '02'.
itab_zycee005-budat = sy-datlo.
ENDIF.
ENDIF.
MOVE: itab_zycet010-dtvencto TO v_dtvencto,
itab_zycee005-budat TO itab_zycet010-dtlanc,
itab_zycee005-budat TO itab_zycet010-dtvencto.
* >> Início da exclusão: FORM FILL_DATE_F02
PERFORM determina_bseg_valut USING itab_zycee005-d_valut.
PERFORM determina_bseg_valut USING itab_zycee005-c_valut.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
PERFORM determina_bseg_valut CHANGING itab_zycee005-d_valut.
PERFORM determina_bseg_valut CHANGING itab_zycee005-c_valut.
* << Fim da inclusão
PERFORM verify_null_field1 USING v_waers
'WAERS'
text-015.
itab_zycee005-waers = v_waers.
itab_zycee005-c_gsber = wa_zycet037-gsber.
itab_zycee005-d_gsber = wa_zycet037-gsber.
PERFORM busca_taxa USING itab_zycee005-budat
CHANGING itab_zycee005-kursf.
itab_zycee005-wrbtr = v_vlcomis.
* >> Início da exclusão: FORM FILL_DATE_F02
PERFORM determina_bkpf_xblnr USING itab_zycee005-xblnr.
PERFORM determina_bseg_zuonr USING itab_zycee005-c_zuonr.
PERFORM determina_bseg_zuonr USING itab_zycee005-d_zuonr.
PERFORM determina_bseg_sgtxt USING itab_zycee005-d_sgtxt.
PERFORM determina_bseg_sgtxt USING itab_zycee005-c_sgtxt.
CALL CUSTOMER-FUNCTION '006'
TABLES
t_dados = itab_zycee005.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
PERFORM determina_bkpf_xblnr CHANGING itab_zycee005-xblnr.
PERFORM determina_bseg_zuonr CHANGING itab_zycee005-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING itab_zycee005-d_zuonr.
PERFORM determina_bseg_sgtxt CHANGING itab_zycee005-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING itab_zycee005-c_sgtxt.
* << Fim da inclusão
APPEND itab_zycee005.
CLEAR itab_zycee005.
LOOP AT itab_zycet004.
MESSAGE i016 WITH itab_zycet004-descricao.
ENDLOOP.
IF v_modo IS INITIAL.
v_modo = 'N'.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_F_02A'
EXPORTING
v_modo = v_modo
TABLES
t_dados = itab_zycee005
t_campo = itab_zycet004
t_zycet005 = itab_zycet005
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da exclusão: FORM FILL_DATE_F02
CALL CUSTOMER-FUNCTION '007'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
IF sy-subrc = 0.
* << Fim da inclusão
CLEAR v_modo.
* >> Início da exclusão: FORM FILL_DATE_F02
IF sy-subrc = 0.
* << Fim da exclusão
READ TABLE itab_zycet005 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCET010'
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycet010-nrseq = /pws/zycee001-nrseq.
...
...
v_vllanc TYPE /pws/zycet010-vlcomis,
v_wrbtr TYPE /pws/zycbe035-wrbtr.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-43'.
itab_zycbe033-tabela = '/PWS/ZYCET010'.
itab_zycbe033-cpochv = /pws/zycee001-nrseq.
itab_zycbe033-c_newko = itab_zycet010-lifnr.
itab_zycbe033-newbs = 31.
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet010-nrseq.
IF sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F43
PERFORM determina_bkpf_budat USING itab_zycbe033-budat.
PERFORM determina_bkpf_bldat USING itab_zycbe033-bldat.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F43
PERFORM determina_bkpf_budat CHANGING itab_zycbe033-budat.
PERFORM determina_bkpf_bldat CHANGING itab_zycbe033-bldat.
* << Fim da inclusão
MODIFY itab_zycet010.
ENDIF.
READ TABLE itab_zycet002 WITH KEY nrseq = itab_zycet010-nrseq.
READ TABLE itab_zycit224 WITH KEY codmod = 'X'
origem = 'CA'.
itab_zycbe033-zlspr = itab_zycit224-zlspr.
* >> Início da exclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_valut USING itab_zycbe033-d_valut.
PERFORM determina_bseg_zfbdt USING itab_zycbe033-zfbdt.
PERFORM determina_bseg_zterm USING itab_zycbe033-zterm.
PERFORM determina_bkpf_wwert USING itab_zycbe033-wwert.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_valut CHANGING itab_zycbe033-d_valut.
PERFORM determina_bseg_zfbdt CHANGING itab_zycbe033-zfbdt.
PERFORM determina_bseg_zterm CHANGING itab_zycbe033-zterm.
PERFORM determina_bkpf_wwert CHANGING itab_zycbe033-wwert.
* << Fim da inclusão
PERFORM carrega_filial.
IF NOT itab_zycet010-j_1bbranch IS INITIAL.
itab_zycbe033-brnch = itab_zycet010-j_1bbranch.
ENDIF.
PERFORM get_param_001.
* >> Início da exclusão: FORM FILL_DATE_F43
PERFORM determina_bkpf_xblnr USING itab_zycbe033-xblnr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F43
PERFORM determina_bkpf_xblnr CHANGING itab_zycbe033-xblnr.
* << Fim da inclusão
CLEAR v_data.
CASE wa_zycet037-dtconvtx.
WHEN 'DE'.
v_data = /pws/zycee001-dtemb.
WHEN 'DB'.
PERFORM busca_data_bl.
WHEN 'DA'.
v_data = /pws/zycee001-dtaverb.
WHEN 'DC'.
v_data = /pws/zycee001-dtcruze.
...
...
PERFORM verify_null_field USING /pws/zycee001-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycee001-bukrs.
itab_zycbe033-waers = itab_zycet010-waers.
IF itab_zycet010-trata_ir = '1'.
itab_zycbe033-wrbtr = itab_zycet010-vlcomicalc.
ELSE.
itab_zycbe033-wrbtr = itab_zycet010-vlcomis.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_zuonr USING itab_zycbe033-c_zuonr.
PERFORM determina_bseg_zuonr USING itab_zycbe033-d_zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_zuonr CHANGING itab_zycbe033-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING itab_zycbe033-d_zuonr.
* << Fim da inclusão
itab_zycbe033-c_gsber = /pws/zycee001-gsber.
itab_zycbe033-d_gsber = /pws/zycee001-gsber.
* >> Início da exclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_sgtxt USING itab_zycbe033-d_sgtxt.
PERFORM determina_bseg_sgtxt USING itab_zycbe033-c_sgtxt.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F43
PERFORM determina_bseg_sgtxt CHANGING itab_zycbe033-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING itab_zycbe033-c_sgtxt.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F43
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
CLEAR itab_zycbe033.
PERFORM get_param_001.
itab_zycbe035-mandt = sy-mandt.
itab_zycbe035-tcode = 'F-43'.
itab_zycbe035-tabela = '/PWS/ZYCET010'.
itab_zycbe035-bschl = 31.
IF itab_zycet010-trata_ir = '1'.
itab_zycbe035-wrbtr = itab_zycet010-vlcomicalc.
ELSE.
...
...
ENDIF.
itab_zycbe035-d_zuonr = /pws/zycee001-nrseq.
itab_zycbe035-c_zuonr = /pws/zycee001-nrseq.
PERFORM verify_null_field USING itab_zycet010-dtvencto
'VALUT'
text-093.
itab_zycbe035-d_valut = itab_zycet010-dtvencto.
itab_zycbe035-d_gsber = /pws/zycee001-gsber.
itab_zycbe035-d_newko = itab_zycet010-lifnr.
itab_zycbe035-d_kostl = v_kostl.
* >> Início da exclusão: FORM FILL_DATE_F43
CALL CUSTOMER-FUNCTION '021'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
DESCRIBE TABLE itab_zycet013 LINES v_num.
IF itab_zycet013[] IS INITIAL.
READ TABLE itab_zycet002
WITH KEY nrseq = /pws/zycee001-nrseq
gsber = /pws/zycee001-gsber.
MOVE:
/pws/zycee001-gsber TO itab_zycet013-gsber,
itab_zycet002-prctr TO itab_zycet013-prctr.
...
...
itab_zycet010
itab_zycet013
v_vlcomis
/pws/zycee001-nrseq
v_conta1
CHANGING
itab_zycbe035
v_vllanc
v_kostl
v_num.
* >> Início da exclusão: FORM FILL_DATE_F43
CALL CUSTOMER-FUNCTION '022'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
ENDIF.
LOOP AT itab_zycet013.
v_wrbtr = itab_zycet013-vlme / v_vlcomis * itab_zycet010-vlcomis.
PERFORM monta_conta_despesas
USING
itab_zycet010
itab_zycet013
v_wrbtr
/pws/zycee001-nrseq
v_conta1
CHANGING
itab_zycbe035
v_vllanc
v_kostl
v_num.
* >> Início da exclusão: FORM FILL_DATE_F43
CALL CUSTOMER-FUNCTION '022'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
ENDLOOP.
ENDFORM.
FORM get_param_001.
CLEAR: v_nrseq2, v_nremb.
v_codeven = '004'.
CLEAR itab_zycbt011.
READ TABLE itab_zycbt011 WITH KEY codmod = 'X'
codeven = v_codeven.
...
...
version_undefined = 6
OTHERS = 7.
IF sy-subrc = 0.
IF v_retorno = '01'.
itab_zycee005-stgrd = '01'.
ELSE.
itab_zycee005-stgrd = '02'.
itab_zycee005-budat = sy-datlo.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_FB08_DEL
CALL CUSTOMER-FUNCTION '018'
TABLES
t_dados = itab_zycee005.
* << Fim da exclusão
APPEND itab_zycee005.
IF NOT itab_zycet010-belnr_ir IS INITIAL.
itab_zycee005-belnr = itab_zycet010-belnr_ir.
APPEND itab_zycee005.
ENDIF.
IF v_modo IS INITIAL.
v_modo = 'N'.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo
TABLES
t_dados = itab_zycee005
t_zycet005 = itab_zycet005
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da exclusão: FORM FILL_DATE_FB08_DEL
CLEAR v_modo.
* << Fim da exclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_FB08_DEL
CALL CUSTOMER-FUNCTION '019'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_FB08_DEL
CLEAR v_modo.
* << Fim da inclusão
CONCATENATE /pws/zycee001-nrseq
itab_zycet010-lifnr
INTO v_cpochv.
...
...
itab_zycbe033-d_gsber = /pws/zycee001-gsber.
IF NOT v_nrseq2 IS INITIAL.
CONCATENATE text-105 v_nrseq2 INTO
itab_zycbe033-c_sgtxt SEPARATED BY space.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt.
ELSE.
CONCATENATE text-105 v_nremb INTO
itab_zycbe033-c_sgtxt SEPARATED BY space.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt.
ENDIF.
* >> Início da exclusão: FORM QUANDO_EXIT_CARREGADO
CALL CUSTOMER-FUNCTION '004'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
itab_zycbe035-mandt = sy-mandt.
itab_zycbe035-tcode = 'F-43'.
itab_zycbe035-tabela = '/PWS/ZYCET010'.
itab_zycbe035-bschl = 31.
IF NOT itab_zycbe033-umskz IS INITIAL.
itab_zycbe035-bschl = 39.
ENDIF.
itab_zycbe035-d_newko = itab_zycet010_aux-lifnr.
itab_zycbe035-wrbtr = itab_zycet010_aux-vlcomis.
...
...
text-093.
itab_zycbe035-d_valut = itab_zycet010_aux-dtvencto.
itab_zycbe035-d_gsber = /pws/zycee001-gsber.
IF itab_auxiliar-ps_psp_pnr IS INITIAL.
itab_zycbe035-ordem = itab_auxiliar-vbeln.
itab_zycbe035-item = itab_auxiliar-posnr.
ELSE.
itab_zycbe035-ps_psp_pnr = itab_auxiliar-ps_psp_pnr.
ENDIF.
itab_zycbe035-d_kostl = v_kostl.
* >> Início da exclusão: FORM QUANDO_EXIT_CARREGADO
CALL CUSTOMER-FUNCTION '024'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
PERFORM get_param_001.
LOOP AT itab_auxiliar.
itab_zycbe035-mandt = sy-mandt.
itab_zycbe035-tcode = 'F-43'.
itab_zycbe035-tabela = '/PWS/ZYCET010'.
itab_zycbe035-bschl = 40.
itab_zycbe035-wrbtr = itab_auxiliar-netpr / v_valor1 *
itab_zycet010_aux-vlcomis.
...
...
itab_zycbe035-d_zuonr = /pws/zycee001-nrseq.
itab_zycbe035-c_zuonr = /pws/zycee001-nrseq.
itab_zycbe035-d_gsber = /pws/zycee001-gsber.
IF itab_auxiliar-ps_psp_pnr IS INITIAL.
itab_zycbe035-ordem = itab_auxiliar-vbeln.
itab_zycbe035-item = itab_auxiliar-posnr.
ELSE.
itab_zycbe035-ps_psp_pnr = itab_auxiliar-ps_psp_pnr.
ENDIF.
itab_zycbe035-d_kostl = v_kostl.
* >> Início da exclusão: FORM QUANDO_EXIT_CARREGADO
CALL CUSTOMER-FUNCTION '025'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM ordem_do_agente.
CALL SCREEN '0300' STARTING AT 2 2.
ENDFORM.
FORM carrega_filial.
SELECT j_1bbranch
...
...
PERFORM rateio_at_ar.
ENDIF.
ENDFORM.
FORM rateio_cg_ad.
CLEAR it013_aux.
REFRESH it013_aux.
DATA: v_percent TYPE f,
v_difer LIKE /pws/zycet010-vlcomis,
v_difer2 LIKE /pws/zycet010-vlcomis,
v_cont TYPE i.
* >> Início da exclusão: FORM RATEIO_CG_AD
DATA: wa_zycet008 LIKE /pws/zycet008.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet020.
DATA: END OF itab_zycet020.
SELECT *
FROM /pws/zycet020
INTO TABLE itab_zycet020
WHERE bukrs = /pws/zycee001-bukrs.
IF sy-tcode = '/PWS/ZYCE017_E'.
SELECT * INTO TABLE itab_zycet013
FROM /pws/zycet013
...
...
v_fornec LIKE /pws/zycet010-vlcomis,
v_cont TYPE i,
v_difer LIKE /pws/zycet010-vlcomis,
v_difer2 LIKE /pws/zycet010-vlcomis,
v_forn_rec LIKE /pws/zycet010-forn_rec,
v_trata_ir LIKE /pws/zycet010-trata_ir,
v_aliq_ir LIKE /pws/zycet010-aliq_ir,
v_vlcomicalc LIKE /pws/zycet010-vlcomicalc,
v_ir_calc LIKE /pws/zycet010-ir_calc,
v_sortl_rec LIKE /pws/zycet010-sortl_rec.
* >> Início da exclusão: FORM RATEIO_AT_AR
DATA: wa_zycet008 LIKE /pws/zycet008.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet020.
DATA: END OF itab_zycet020.
SELECT *
FROM /pws/zycet020
INTO TABLE itab_zycet020
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE bukrs = /pws/zycee001-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE bukrs = /pws/zycee001-bukrs. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-tcode = '/PWS/ZYCE017_E'.
SELECT * INTO TABLE itab_zycet013
FROM /pws/zycet013
IF sy-tcode = '/PWS/ZYCE017_E'.
SELECT * INTO TABLE itab_zycet013
FROM /pws/zycet013
WHERE nrseq = /pws/zycee001-nrseq.
SELECT * INTO TABLE itab_zycet010
FROM /pws/zycet010
WHERE nrseq = /pws/zycee001-nrseq.
...
...
v_ir_calc TO itab_zycet010-ir_calc,
v_sortl_rec TO itab_zycet010-sortl_rec.
SELECT SINGLE sortl
FROM lfa1
INTO itab_zycet010-sortl
WHERE lifnr = itab_fornecedor-lifnr.
SELECT SINGLE belnr
FROM /pws/zycet010
INTO itab_zycet010-belnr
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq. "#EC *
* << Fim da inclusão
SELECT SINGLE status
FROM /pws/zycet010
INTO itab_zycet010-status
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq. "#EC *
* << Fim da inclusão
SELECT SINGLE dtpagto
FROM /pws/zycet010
INTO itab_zycet010-dtpagto
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq. "#EC *
* << Fim da inclusão
SELECT SINGLE belnr_p
FROM /pws/zycet010
INTO itab_zycet010-belnr_p
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq. "#EC *
* << Fim da inclusão
SELECT SINGLE belnr_ir
FROM /pws/zycet010
INTO itab_zycet010-belnr_ir
* >> Início da exclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RATEIO_AT_AR
WHERE nrseq = /pws/zycee001-nrseq. "#EC *
* << Fim da inclusão
APPEND itab_zycet010.
ENDIF.
LOOP AT itab_zycet013 WHERE belnr NE space.
ENDLOOP.
IF sy-subrc NE 0.
REFRESH: itab_zycet013.
CLEAR: itab_zycet013.
...
...
itab_zycee005-tabela = '/PWS/ZYCET013'.
itab_zycee005-cpochv = it013_aux-nrseq.
itab_zycee005-belnr = it013_aux-belnr.
itab_zycee005-bukrs = /pws/zycee001-bukrs.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber
belnr = it013_aux-belnr.
IF sy-subrc = 0.
itab_zycee005-bldat = itab_zycet013-dtlanc.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_FBRA
CALL CUSTOMER-FUNCTION '010'
TABLES
t_dados = itab_zycee005.
* << Fim da exclusão
APPEND itab_zycee005.
IF NOT it013_aux-belnr_ir IS INITIAL.
itab_zycee005-belnr = it013_aux-belnr_ir.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber
belnr = it013_aux-belnr_ir.
IF sy-subrc = 0.
itab_zycee005-bldat = itab_zycet013-dtlanc.
ENDIF.
APPEND itab_zycee005.
...
...
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_FBRA'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycee005
t_zycet005 = itab_zycet005
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_FBRA
CALL CUSTOMER-FUNCTION '011'.
* << Fim da exclusão
PERFORM busca_exit USING 'COM004'.
READ TABLE itab_zycet005 WITH KEY tabela = '/PWS/ZYCET013'
cpochv = itab_zycet013-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
PERFORM executa_fb08.
ELSE.
LOOP AT itab_zycet005.
MESSAGE i001 WITH itab_zycet005-msg.
ENDLOOP.
...
...
version_undefined = 6
OTHERS = 7.
IF sy-subrc = 0.
IF v_retorno = '01'.
itab_zycee005-stgrd = '01'.
ELSE.
itab_zycee005-stgrd = '02'.
itab_zycee005-budat = sy-datlo.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_FB08
CALL CUSTOMER-FUNCTION '012'
TABLES
t_dados = itab_zycee005.
* << Fim da exclusão
APPEND itab_zycee005.
IF NOT it013_aux-belnr_ir IS INITIAL.
itab_zycee005-belnr = it013_aux-belnr_ir.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber
belnr = it013_aux-belnr_ir.
IF sy-subrc = 0.
itab_zycee005-bldat = itab_zycet013-dtlanc.
itab_zycee005-budat = itab_zycet013-dtlanc.
itab_zycee005-gjahs = itab_zycet013-dtlanc(4).
...
...
IF NOT it013_aux-belnr IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo
TABLES
t_dados = itab_zycee005
t_zycet005 = itab_zycet005
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da exclusão: FORM EXECUTA_FB08
CLEAR v_modo.
* << Fim da exclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_FB08
CALL CUSTOMER-FUNCTION '013'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_FB08
CLEAR v_modo.
* << Fim da inclusão
READ TABLE itab_zycet005 WITH KEY tcode = 'FB08'
tabela = text-116
cpochv = itab_zycet013-nrseq
...
...
t_campo = itab_zycbt034
t_zycbt032 = t_zycbt032
t_doc = t_doc
t_contas = t_contas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_PROVISIONADO
CALL CUSTOMER-FUNCTION '009'.
* << Fim da exclusão
READ TABLE t_zycbt032 WITH KEY tcode = text-112
tabela = text-109
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
it013_aux-belnr = t_zycbt032-belnr.
MODIFY it013_aux INDEX v_index.
itab_zycet013-belnr = t_zycbt032-belnr.
itab_zycet013-dtlanc = t_dados-budat.
itab_zycet013-status = 'C'.
...
...
MESSAGE i016 WITH 'Campo' itab_zycbt034-campo
* >> Início da exclusão: FORM EXECUTA_PROVISIONADO
itab_zycbt034-descricao 'em branco'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_PROVISIONADO
itab_zycbt034-descricao 'em branco'."#EC NOTEXT
* << Fim da inclusão
ENDLOOP.
PERFORM estorna_documento.
ENDIF.
ELSE.
LOOP AT t_zycbt032.
MESSAGE i001 WITH t_zycbt032-msg.
ENDLOOP.
LOOP AT itab_zycbt034.
* >> Início da exclusão: FORM EXECUTA_PROVISIONADO
MESSAGE i016 WITH 'Campo' itab_zycbt034-campo
itab_zycbt034-descricao 'em branco'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_PROVISIONADO
MESSAGE i016 WITH text-016 itab_zycbt034-campo
itab_zycbt034-descricao text-017.
* << Fim da inclusão
ENDLOOP.
ENDIF.
IF v_show_cols EQ 1.
PERFORM trata_ir USING 'I3'.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM dados_doc.
DATA: v_cont LIKE sy-tabix.
...
...
IF ( v_gsber NE it013_aux-gsber ) OR
( it013_aux-gsber IS INITIAL AND v_gsber IS INITIAL ).
CLEAR: v_part, v_part2, bseg.
LOOP AT itab_zycet002 WHERE gsber = it013_aux-gsber.
SELECT SINGLE * FROM bkpf INTO wa_bkpf
WHERE awtyp = 'VBRK'
AND awkey = itab_zycet002-vbeln_vf
* >> Início da exclusão: FORM DADOS_DOC
AND awsys = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_DOC
AND awsys = ' '. "#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM bseg WHERE bukrs = /pws/zycee001-bukrs
AND belnr = wa_bkpf-belnr
* >> Início da exclusão: FORM DADOS_DOC
AND hkont = t_dados-d_newko.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_DOC
AND hkont = t_dados-d_newko. "#EC *
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
t_doc-tcode = text-112.
t_doc-cpochv = itab_zycet002-nrseq.
t_doc-tabela = text-109.
t_doc-belnr = wa_bkpf-belnr.
COLLECT t_doc.
t_bupla = bseg-bupla.
COLLECT t_bupla.
ELSE.
...
...
text-101.
t_dados-blart = itab_zycbt011-blart.
IF /pws/zycee001-parvw NE 'CG' AND /pws/zycee001-parvw NE 'AD'.
t_dados-umskz = itab_zycbt011-agums.
ENDIF.
READ TABLE itab_zycet001 WITH KEY nrseq = /pws/zycee001-nrseq.
PERFORM verify_null_field1 USING itab_zycet001-bukrs
'BUKRS'
text-092.
t_dados-bukrs = itab_zycet001-bukrs.
* >> Início da exclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_budat USING t_dados-budat.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_budat CHANGING t_dados-budat.
* << Fim da inclusão
PERFORM verify_null_field1 USING t_dados-budat
'BUDAT'
text-120.
* >> Início da exclusão: FORM DADOS_CABECALHO
PERFORM determina_bseg_zfbdt USING t_dados-zfbdt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO
PERFORM determina_bseg_zfbdt CHANGING t_dados-zfbdt.
* << Fim da inclusão
PERFORM busca_taxa USING t_dados-budat
CHANGING t_dados-kursf.
t_dados-monat = t_dados-budat+4(2).
t_dados-bldat = t_dados-budat.
* >> Início da exclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_wwert USING t_dados-wwert.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_wwert CHANGING t_dados-wwert.
* << Fim da inclusão
t_dados-waers = itab_zycet013-waers.
IF ( /pws/zycee001-parvw = 'CG' OR /pws/zycee001-parvw = 'AD' ) AND
wa_zycbt007-comis NE 'A'.
t_dados-newbs = '50'.
PERFORM seleciona_conta_vkoa.
PERFORM seleciona_conta.
ELSE.
IF t_dados-umskz IS INITIAL.
t_dados-newbs = '31'.
ELSE.
...
...
IF v_part > v_part2.
v_part2 = abs( v_part - v_part2 ).
t_dados-wrbtr = abs( it013_aux-vlme + v_part2 ).
ELSEIF v_part < v_part2.
v_part2 = abs( v_part - v_part2 ).
t_dados-wrbtr = abs( it013_aux-vlme - v_part2 ).
ELSEIF v_part EQ v_part2.
t_dados-wrbtr = abs( it013_aux-vlme ).
ENDIF.
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_xblnr USING t_dados-xblnr.
PERFORM determina_bseg_zuonr USING t_dados-c_zuonr.
PERFORM determina_bseg_zuonr USING t_dados-d_zuonr.
PERFORM determina_bseg_sgtxt USING t_dados-d_sgtxt.
PERFORM determina_bseg_sgtxt USING t_dados-c_sgtxt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO
PERFORM determina_bkpf_xblnr CHANGING t_dados-xblnr.
PERFORM determina_bseg_zuonr CHANGING t_dados-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING t_dados-d_zuonr.
PERFORM determina_bseg_sgtxt CHANGING t_dados-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING t_dados-c_sgtxt.
* << Fim da inclusão
* >> Início da exclusão: FORM DADOS_CABECALHO
CALL CUSTOMER-FUNCTION '008'
TABLES
t_dados = t_dados.
* << Fim da exclusão
APPEND t_dados.
ENDFORM.
FORM seleciona_conta_vkoa.
IF NOT itab_zycet002[] IS INITIAL.
READ TABLE itab_zycet002 INDEX 1.
CLEAR wa_zycet037.
SELECT SINGLE * FROM /pws/zycet037 INTO wa_zycet037
WHERE bukrs = itab_zycet002-bukrs.
CLEAR: v_conta1, v_conta2, /pws/zycee016.
/pws/zycee016-mandt = sy-mandt.
...
...
ELSE.
IF v_vlcomis > v_vlcomis_p.
t_contas-bschl = '40'.
ELSE.
t_contas-bschl = '50'.
v_dif = 1.
ENDIF.
ENDIF.
t_contas-wrbtr1 = abs( itab_zycet013-vlme_dif ).
t_contas-wrbtr = v_part.
* >> Início da exclusão: FORM DADOS_CONTAS
CALL CUSTOMER-FUNCTION '027'
TABLES
t_dados = t_contas.
* << Fim da exclusão
APPEND t_contas.
PERFORM busca_exit USING 'COM006'.
ENDLOOP.
ENDFORM.
FORM executa_sem_valor_provisao.
IF wa_zycbt007-comis = 'C' AND ( /pws/zycee001-parvw = 'CG' OR
/pws/zycee001-parvw = 'AD' ) OR v_vlcomis IS INITIAL.
PERFORM f02_sem_valor_provisao.
ELSE.
PERFORM f43_sem_valor_provisao.
...
...
ENDLOOP.
IF v_modo IS INITIAL.
v_modo = 'N'.
ENDIF.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_F_02B'
EXPORTING
v_modo = v_modo
TABLES
t_dados = t_dados
t_contas = t_contas
* >> Início da exclusão: FORM F02_SEM_VALOR_PROVISAO
t_campo = itab_zycet004
* << Fim da exclusão
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
t_campo = itab_zycbt034ax
* << Fim da inclusão
t_zycbt032 = t_zycbt032
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
IF sy-subrc = 0.
* << Fim da inclusão
CLEAR v_modo.
* >> Início da exclusão: FORM F02_SEM_VALOR_PROVISAO
IF sy-subrc = 0.
CALL CUSTOMER-FUNCTION '015'.
* << Fim da exclusão
* >> Início da inclusão: FORM F02_SEM_VALOR_PROVISAO
MOVE itab_zycbt034ax TO itab_zycet004.
* << Fim da inclusão
READ TABLE t_zycbt032 WITH KEY tcode = text-115
tabela = text-116
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
it013_aux-belnr = t_zycbt032-belnr.
MODIFY it013_aux INDEX v_index.
itab_zycet013-belnr = t_zycbt032-belnr.
itab_zycet013-dtlanc = t_dados-budat.
itab_zycet013-status = 'C'.
...
...
PERFORM verify_null_field1 USING itab_zycbt011-blart
'BLART'
text-101.
t_dados-blart = itab_zycbt011-blart.
t_dados-newbs = '50'.
IF NOT v_vlcomis IS INITIAL.
PERFORM seleciona_conta_sem_valor.
ELSE.
PERFORM seleciona_conta_vkoa_sem_valor.
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bkpf_bldat USING t_dados-bldat.
PERFORM determina_bkpf_budat USING t_dados-budat.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bkpf_bldat CHANGING t_dados-bldat.
PERFORM determina_bkpf_budat CHANGING t_dados-budat.
* << Fim da inclusão
PERFORM verify_null_field1 USING itab_zycet001-bukrs
'BUKRS'
text-092.
t_dados-bukrs = itab_zycet001-bukrs.
CALL FUNCTION '/PWS/ZYCE_CHECA_PERIODO_FISCAL'
EXPORTING
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
v_koart = '+'
IMPORTING
...
...
version_undefined = 6
OTHERS = 7.
IF sy-subrc = 0.
IF v_retorno = '01'.
t_dados-stgrd = '01'.
ELSE.
t_dados-stgrd = '02'.
t_dados-budat = sy-datlo.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bseg_valut USING itab_zycee005-d_valut.
PERFORM determina_bseg_valut USING itab_zycee005-c_valut.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bseg_valut CHANGING itab_zycee005-d_valut.
PERFORM determina_bseg_valut CHANGING itab_zycee005-c_valut.
* << Fim da inclusão
t_dados-waers = it013_aux-waers.
PERFORM verify_null_field1 USING it013_aux-waers
'WAERS'
text-015.
IF NOT v_vlcomis IS INITIAL.
t_dados-wrbtr = it013_aux-vlme.
ELSE.
t_dados-wrbtr = abs( it013_aux-vlme_dif ).
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bkpf_xblnr USING t_dados-xblnr.
PERFORM determina_bseg_zuonr USING t_dados-c_zuonr.
PERFORM determina_bseg_zuonr USING t_dados-d_zuonr.
PERFORM determina_bseg_sgtxt USING t_dados-d_sgtxt.
PERFORM determina_bseg_sgtxt USING t_dados-c_sgtxt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F02
PERFORM determina_bkpf_xblnr CHANGING t_dados-xblnr.
PERFORM determina_bseg_zuonr CHANGING t_dados-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING t_dados-d_zuonr.
PERFORM determina_bseg_sgtxt CHANGING t_dados-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING t_dados-c_sgtxt.
* << Fim da inclusão
t_dados-c_gsber = it013_aux-gsber.
t_dados-d_gsber = it013_aux-gsber.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber.
IF sy-subrc = 0.
t_dados-c_prctr = itab_zycet013-prctr.
t_dados-d_prctr = itab_zycet013-prctr.
ENDIF.
PERFORM busca_taxa USING t_dados-budat
CHANGING t_dados-kursf.
* >> Início da exclusão: FORM DADOS_CABECALHO_F02
CALL CUSTOMER-FUNCTION '014'
TABLES
t_dados = t_dados.
* << Fim da exclusão
APPEND t_dados.
CLEAR t_dados.
ENDFORM.
FORM dados_item_f02.
LOOP AT itab_zycet013 WHERE gsber = it013_aux-gsber.
t_contas-mandt = sy-mandt.
t_contas-tcode = text-115.
t_contas-tabela = text-116.
t_contas-cpochv = /pws/zycee001-nrseq.
t_contas-bschl = '40'.
PERFORM seleciona_conta_sem_valor.
* >> Início da inclusão: FORM DADOS_ITEM_F02
READ TABLE itab_zycet001 WITH KEY nrseq = it013_aux-nrseq.
* << Fim da inclusão
* >> Início da exclusão: FORM DADOS_ITEM_F02
READ TABLE itab_zycet001 WITH KEY nrseq = it013_aux-nrseq.
* << Fim da exclusão
IF sy-subrc = 0.
IF itab_zycet001-dtemb IS INITIAL
OR itab_zycet001-dtemb = '00000000'
OR wa_zycet037-fdtdoc = 'D'.
t_contas-d_valut = sy-datlo.
t_contas-c_valut = sy-datlo.
ELSE.
t_contas-d_valut = itab_zycet001-dtemb.
t_contas-c_valut = itab_zycet001-dtemb.
ENDIF.
ENDIF.
t_contas-waers = itab_zycet013-waers.
PERFORM verify_null_field1 USING it013_aux-waers
'WAERS'
text-015.
IF NOT v_vlcomis IS INITIAL.
t_contas-wrbtr = itab_zycet013-vlme.
ELSE.
t_contas-wrbtr = abs( itab_zycet013-vlme_dif ).
ENDIF.
* >> Início da exclusão: FORM DADOS_ITEM_F02
PERFORM determina_bseg_zuonr USING t_contas-c_zuonr.
PERFORM determina_bseg_zuonr USING t_contas-d_zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ITEM_F02
PERFORM determina_bseg_zuonr CHANGING t_contas-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING t_contas-d_zuonr.
* << Fim da inclusão
t_contas-c_gsber = itab_zycet013-gsber.
t_contas-d_gsber = itab_zycet013-gsber.
t_contas-c_prctr = itab_zycet013-prctr.
t_contas-d_prctr = itab_zycet013-prctr.
* >> Início da exclusão: FORM DADOS_ITEM_F02
PERFORM determina_bseg_sgtxt USING t_contas-d_sgtxt.
PERFORM determina_bseg_sgtxt USING t_contas-c_sgtxt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ITEM_F02
PERFORM determina_bseg_sgtxt CHANGING t_contas-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING t_contas-c_sgtxt.
* << Fim da inclusão
APPEND t_contas.
CLEAR t_contas.
ENDLOOP.
ENDFORM.
FORM f43_sem_valor_provisao.
DATA e_subrc LIKE sy-subrc.
SORT itab_zycet013 BY lifnr.
CLEAR: it013_aux.
REFRESH: it013_aux.
LOOP AT itab_zycet013.
...
...
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_zycbe035
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
ENDIF.
IF sy-subrc = 0.
* >> Início da exclusão: FORM F43_SEM_VALOR_PROVISAO
CALL CUSTOMER-FUNCTION '017'.
* << Fim da exclusão
READ TABLE itab_zycbt032 WITH KEY tcode = text-117
tabela = text-116
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
it013_aux-belnr = itab_zycbt032-belnr.
MODIFY it013_aux INDEX v_index.
itab_zycet013-belnr = itab_zycbt032-belnr.
itab_zycet013-dtlanc = itab_zycbe033-budat.
itab_zycet013-status = 'C'.
...
...
ENDFORM.
FORM dados_cabecalho_f43.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-117.
itab_zycbe033-tabela = text-116.
itab_zycbe033-cpochv = /pws/zycee001-nrseq.
itab_zycbe033-c_newko = it013_aux-lifnr.
itab_zycbe033-newbs = 31.
READ TABLE itab_zycet001 WITH KEY nrseq = itab_zycet010-nrseq.
IF sy-subrc = 0.
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_budat USING itab_zycbe033-budat.
PERFORM determina_bkpf_bldat USING itab_zycbe033-bldat.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_budat CHANGING itab_zycbe033-budat.
PERFORM determina_bkpf_bldat CHANGING itab_zycbe033-bldat.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit224 WITH KEY codmod = 'X'
origem = 'CA'.
itab_zycbe033-zlspr = itab_zycit224-zlspr.
READ TABLE itab_zycet010 WITH KEY lifnr = it013_aux-lifnr.
IF sy-subrc = 0.
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bseg_valut USING itab_zycbe033-d_valut.
PERFORM determina_bseg_zfbdt USING itab_zycbe033-zfbdt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bseg_valut CHANGING itab_zycbe033-d_valut.
PERFORM determina_bseg_zfbdt CHANGING itab_zycbe033-zfbdt.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_wwert USING itab_zycbe033-wwert.
PERFORM determina_bseg_zterm USING itab_zycbe033-zterm.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_wwert CHANGING itab_zycbe033-wwert.
PERFORM determina_bseg_zterm CHANGING itab_zycbe033-zterm.
* << Fim da inclusão
PERFORM carrega_filial.
...
...
PERFORM verify_null_field USING itab_zycbt011-blart
'BLART'
text-101.
itab_zycbe033-blart = itab_zycbt011-blart.
PERFORM verify_null_field USING /pws/zycee001-bukrs
'BUKRS'
text-092.
itab_zycbe033-bukrs = /pws/zycee001-bukrs.
itab_zycbe033-waers = it013_aux-waers.
itab_zycbe033-wrbtr = it013_aux-vlme.
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_xblnr USING itab_zycbe033-xblnr.
PERFORM determina_bseg_zuonr USING itab_zycbe033-c_zuonr.
PERFORM determina_bseg_zuonr USING itab_zycbe033-d_zuonr.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bkpf_xblnr CHANGING itab_zycbe033-xblnr.
PERFORM determina_bseg_zuonr CHANGING itab_zycbe033-c_zuonr.
PERFORM determina_bseg_zuonr CHANGING itab_zycbe033-d_zuonr.
* << Fim da inclusão
itab_zycbe033-c_gsber = it013_aux-gsber.
itab_zycbe033-d_gsber = it013_aux-gsber.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber.
IF sy-subrc = 0.
itab_zycbe033-c_prctr = itab_zycet013-prctr.
itab_zycbe033-d_prctr = itab_zycet013-prctr.
ENDIF.
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bseg_sgtxt USING itab_zycbe033-d_sgtxt.
PERFORM determina_bseg_sgtxt USING itab_zycbe033-c_sgtxt.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_CABECALHO_F43
PERFORM determina_bseg_sgtxt CHANGING itab_zycbe033-d_sgtxt.
PERFORM determina_bseg_sgtxt CHANGING itab_zycbe033-c_sgtxt.
* << Fim da inclusão
* >> Início da exclusão: FORM DADOS_CABECALHO_F43
CALL CUSTOMER-FUNCTION '016'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
CLEAR itab_zycbe033.
ENDFORM.
FORM seleciona_conta_sem_valor.
CLEAR: v_nrseq2, v_nremb.
IF ( /pws/zycee001-parvw = 'AR' OR /pws/zycee001-parvw = 'AT' ) AND
( NOT v_vlcomis IS INITIAL ).
PERFORM read_account_number USING 'DCO' 'CO'.
IF NOT itab_account-konts IS INITIAL.
itab_zycbe035-d_newko = itab_account-konts.
...
...
itab_zycbe035-d_valut = itab_zycet010-dtvencto.
itab_zycbe035-d_gsber = it013_aux-gsber.
READ TABLE itab_zycet013 WITH KEY lifnr = it013_aux-lifnr
gsber = it013_aux-gsber.
IF sy-subrc = 0.
itab_zycbe035-d_prctr = itab_zycet013-prctr.
ENDIF.
itab_zycbe035-d_newko = v_contal.
itab_zycbe035-d_kostl = wa_zycet260-kostl.
itab_zycbe035-d_kostl = v_kostl.
* >> Início da exclusão: FORM DADOS_ITEM_F43
CALL CUSTOMER-FUNCTION '028'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
ENDFORM.
FORM dados_contas_f43.
DATA: v_num TYPE i.
CLEAR: itab_zycbe035, v_num.
LOOP AT itab_zycet013_ant WHERE lifnr = it013_aux-lifnr
AND gsber = it013_aux-gsber.
v_num = v_num + 1.
ENDLOOP.
...
...
'VALUT'
text-093.
itab_zycbe035-d_valut = itab_zycet010-dtvencto.
itab_zycbe035-d_zuonr = /pws/zycee001-nrseq.
itab_zycbe035-c_zuonr = /pws/zycee001-nrseq.
itab_zycbe035-d_newko = v_contal.
itab_zycbe035-d_gsber = it013_aux-gsber.
itab_zycbe035-d_prctr = itab_zycet013_ant-prctr.
itab_zycbe035-wrbtr = itab_zycet013_ant-vlme.
itab_zycbe035-d_kostl = v_kostl.
* >> Início da exclusão: FORM DADOS_CONTAS_F43
CALL CUSTOMER-FUNCTION '029'
TABLES
t_dados = itab_zycbe035.
* << Fim da exclusão
APPEND itab_zycbe035.
CLEAR itab_zycbe035.
ENDLOOP.
ENDFORM.
FORM trata_ordem.
DATA: nrseq LIKE /pws/zycee085-nrseq.
CLEAR: itab_zycee085, itab_saida.
REFRESH: itab_zycee085, itab_saida.
LOOP AT itab_zycet002.
/pws/zycee001-nrseq = itab_zycet002-nrseq.
...
...
EXPORTING
bukrs = /pws/zycee001-bukrs
ktosl = p_ktosl
codaux1 = p_codaux1
TABLES
account = itab_account
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM READ_ACCOUNT_NUMBER
IF sy-subrc = 0.
* << Fim da inclusão
READ TABLE itab_account INDEX 1.
* >> Início da inclusão: FORM READ_ACCOUNT_NUMBER
ENDIF.
* << Fim da inclusão
ENDFORM.
* >> Início da exclusão: FORM OKCODE_SPEC
FORM okcode_spec.
CALL CUSTOMER-FUNCTION '004'.
ENDFORM.
* << Fim da exclusão
FORM trata_ir USING value(v_origem).
DATA: BEGIN OF itab_ir OCCURS 0,
bldat LIKE /pws/zycbe033-bldat,
blart LIKE /pws/zycbe033-blart,
bukrs LIKE /pws/zycbe033-bukrs,
budat LIKE /pws/zycbe033-budat,
waers LIKE /pws/zycbe033-waers,
bktxt LIKE /pws/zycbe033-bktxt,
newbs LIKE /pws/zycbe033-newbs,
newko LIKE /pws/zycbe033-d_newko,
...
...
EXPORTING
i_codmod = 'X'
i_func = v_programa
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM CARREGA_EXITS
IF sy-subrc = 0.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'COM002' BINARY SEARCH.
IF sy-subrc = 0.
v_exitcom002 = 'X'.
ENDIF.
* >> Início da inclusão: FORM CARREGA_EXITS
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM busca_data_bl.
CLEAR /pws/zycet047.
...
...
titel = text-088
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 EXECUTA_SHIFTF9
IF sy-subrc = 0.
* << 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.
v_modo = v_modo_bi.
* >> Início da inclusão: FORM EXECUTA_SHIFTF9
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM monta_conta_despesas
USING
value(p_zycet010) TYPE t_zycet010
value(p_zycet013) TYPE t_zycet013
value(p_wrbtr) TYPE /pws/zycbe035-wrbtr
value(p_nrseq) TYPE /pws/zycee001-nrseq
value(p_conta1) LIKE v_conta1
CHANGING
p_zycbe035 TYPE /pws/zycbe035
...
...
p_zycbe035-wrbtr = p_zycet010-vlcomis - p_vllanc.
ENDIF.
p_zycbe035-d_kostl = p_kostl.
ENDFORM.
FORM verifica_data_vencimento
USING
dtvencto TYPE d
dtemb TYPE d.
IF NOT dtemb IS INITIAL
AND dtvencto < dtemb.
* >> Início da exclusão: FORM VERIFICA_DATA_VENCIMENTO
MESSAGE e219 WITH dtemb.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA_VENCIMENTO
MESSAGE e099 WITH dtemb.
* << Fim da inclusão
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017I01
...
WHEN 'MARK'.
LOOP AT itab_zycet010.
itab_zycet010-mark = 'X'.
MODIFY itab_zycet010.
ENDLOOP.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'ADICC'.
PERFORM ordem_do_agente.
WHEN 'ATUAL' OR 'ENTE'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
REFRESH itab_zycet008ax.
LOOP AT itab_zycet008.
MOVE-CORRESPONDING itab_zycet008 TO itab_zycet008ax.
APPEND itab_zycet008ax.
ENDLOOP.
* << Fim da inclusão
CLEAR: wa_zycee313_prov, wa_zycee313_real, /pws/zycee313.
CALL FUNCTION '/PWS/ZYCE_CALC_VALOR_CONDITION'
EXPORTING
v_valores_reais = 'X'
IMPORTING
/pws/zycee313 = /pws/zycee313
wa_zycee313_prov = wa_zycee313_prov
wa_zycee313_real = wa_zycee313_real
TABLES
* >> Início da exclusão: MODULE USER_COMMAND_0200
itab_zycet008 = itab_zycet008.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
itab_zycet008 = itab_zycet008ax.
LOOP AT itab_zycet008ax.
MOVE-CORRESPONDING itab_zycet008ax TO itab_zycet008.
MODIFY itab_zycet008 INDEX sy-tabix.
ENDLOOP.
* << Fim da inclusão
IF wa_zycet037-comis_provisao EQ '1'.
PERFORM atualiza_provisao.
ENDIF.
WHEN 'ESTORNO'.
PERFORM estorna_documento.
WHEN 'SAVE'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
REFRESH itab_zycet008ax.
LOOP AT itab_zycet008.
MOVE-CORRESPONDING itab_zycet008 TO itab_zycet008ax.
APPEND itab_zycet008ax.
ENDLOOP.
* << Fim da inclusão
CLEAR: wa_zycee313_prov, wa_zycee313_real, /pws/zycee313.
CALL FUNCTION '/PWS/ZYCE_CALC_VALOR_CONDITION'
EXPORTING
v_valores_reais = 'X'
IMPORTING
/pws/zycee313 = /pws/zycee313
wa_zycee313_prov = wa_zycee313_prov
wa_zycee313_real = wa_zycee313_real
TABLES
* >> Início da exclusão: MODULE USER_COMMAND_0200
itab_zycet008 = itab_zycet008.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
itab_zycet008 = itab_zycet008ax.
LOOP AT itab_zycet008ax.
MOVE-CORRESPONDING itab_zycet008ax TO itab_zycet008.
MODIFY itab_zycet008 INDEX sy-tabix.
ENDLOOP.
* << Fim da inclusão
IF v_error_dif = 0.
CLEAR itab_zycet010_aux.
REFRESH itab_zycet010_aux.
PERFORM salva_forma_comissao.
IF wa_zycet037-comis_provisao EQ '1'.
IF sy-subrc = 0 AND
( NOT wa_zycee313_prov-vlme_com IS INITIAL AND
NOT v_vlcomis IS INITIAL ).
PERFORM busca_exit USING 'COM008'.
IF e_subrc IS INITIAL.
...
...
( /pws/zycee001-parvw = 'CG'
OR /pws/zycee001-parvw = 'AD' ) .
PERFORM fill_date_f02.
ELSE.
CLEAR : v_index.
LOOP AT itab_zycet010 WHERE belnr = ' '.
v_tab = sy-tabix.
v_index = sy-tabix.
MOVE-CORRESPONDING itab_zycet010 TO itab_zycet010_aux.
APPEND itab_zycet010_aux.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL CUSTOMER-FUNCTION '001'
EXPORTING
/pws/zycee001 = /pws/zycee001
IMPORTING
v_subrc = v_subrc.
* << Fim da exclusão
IF v_subrc IS INITIAL.
PERFORM fill_date_f43.
ELSE.
PERFORM quando_exit_carregado.
ENDIF.
IF NOT itab_zycbt034[] IS INITIAL.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ELSE.
...
...
IF itab_zycbe033-umskz IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_F_43A'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_zycbe035
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0200
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
campo_em_branco = 0
periodo_fechado = 0
OTHERS = 0.
* << Fim da inclusão
ELSE.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_F_43C'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_zycbe035
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0200
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
campo_em_branco = 0
periodo_fechado = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0200
CALL CUSTOMER-FUNCTION '005'.
* << Fim da exclusão
ENDIF.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-43'
tabela = '/PWS/ZYCET010'
cpochv = /pws/zycee001-nrseq
tpmsg = 'S'.
...
...
IMPORTING
v_year = v_date
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.
* >> Início da inclusão: MODULE USER_COMMAND_0201
IF sy-subrc = 0.
SET PARAMETER ID 'GJR' FIELD v_date.
ENDIF.
* << Fim da inclusão
SET PARAMETER ID 'BUK' FIELD /pws/zycee001-bukrs.
SET PARAMETER ID 'BLN' FIELD v_valor.
* >> Início da exclusão: MODULE USER_COMMAND_0201
SET PARAMETER ID 'GJR' FIELD v_date.
* << Fim da exclusão
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
WHEN 'ENTE'.
IF wa_zycbt007-comis = 'C' AND
( /pws/zycee001-parvw = 'CG' OR /pws/zycee001-parvw = 'AD' ).
...
...
IMPORTING
v_year = v_date
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.
* >> Início da inclusão: MODULE USER_COMMAND_0202
IF sy-subrc = 0.
SET PARAMETER ID 'GJR' FIELD v_date.
ENDIF.
* << Fim da inclusão
SET PARAMETER ID 'BUK' FIELD /pws/zycee001-bukrs.
SET PARAMETER ID 'BLN' FIELD v_valor.
* >> Início da exclusão: MODULE USER_COMMAND_0202
SET PARAMETER ID 'GJR' FIELD v_date.
* << Fim da exclusão
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE user_command_0300__exit INPUT.
...
...
MODULE user_command_0300 INPUT.
CASE okcode.
WHEN 'ATUALIZAR'.
UPDATE /pws/zycet001 SET ordem_ag = /pws/zycee001-ordem_ag
WHERE nrseq = itab_zycet001-nrseq.
COMMIT WORK.
LOOP AT itab_zycet001.
MOVE /pws/zycee001-ordem_ag TO itab_zycet001-ordem_ag.
MODIFY itab_zycet001 INDEX sy-tabix.
ENDLOOP.
* >> Início da exclusão: MODULE USER_COMMAND_0300
WHEN 'SPEC'.
MOVE: sy-repid TO v_syrepid,
sy-dynnr TO v_sydynnr.
PERFORM okcode_spec.
* << Fim da exclusão
WHEN 'CANCELAR'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
MODULE verifica_parvw INPUT.
IF itab_tpcomis[] IS INITIAL.
SELECT parvw
FROM /pws/zycbt037
* >> Início da exclusão: MODULE VERIFICA_PARVW
INTO TABLE itab_tpcomis.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_PARVW
INTO TABLE itab_tpcomis. "#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
READ TABLE itab_tpcomis WITH KEY parvw = /pws/zycee001-parvw.
CHECK sy-subrc NE 0.
* >> Início da exclusão: MODULE VERIFICA_PARVW
MESSAGE e810(00) WITH /pws/zycee001-parvw
space
space
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_PARVW
MESSAGE w285 WITH /pws/zycee001-parvw
* << Fim da inclusão
'/PWS/ZYCBT037'.
ENDMODULE.
MODULE verifica_data INPUT.
PERFORM verifica_data_vencimento
USING
/pws/zycee010-dtvencto
itab_zycet001-dtemb.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017O01
...
EXPORTING
grupp = 'DE'
program = v_syrepid
dynnumb = v_sydynnr
button = 'SPEC'
IMPORTING
visivel = v_visivel
tcode = v_tcodebotao
EXCEPTIONS
OTHERS = 1.
* >> Início da inclusão: MODULE STATUS_0200
IF sy-subrc = 0.
* << Fim da inclusão
IF v_visivel IS INITIAL.
tab-fcode = 'SPEC'.
APPEND tab.
* >> Início da inclusão: MODULE STATUS_0200
ENDIF.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycet010 INDEX 1.
IF NOT itab_zycet010[] IS INITIAL.
SELECT COUNT(*)
FROM /pws/zycbt031
FOR ALL ENTRIES IN itab_zycet010
WHERE nrcorresp = /pws/zycee001-nrseq AND
lifnr = itab_zycet010-lifnr AND
* >> Início da exclusão: MODULE STATUS_0200
waers = itab_zycet010-waers.
* >> Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0200
waers = itab_zycet010-waers. "#EC CI_BYPASS
* << Fim da inclusão
IF sy-subrc EQ 0.
MOVE 'ATUALIZA' TO tab-fcode.
APPEND tab.
MOVE 'ESTORNO' TO tab-fcode.
APPEND tab.
MOVE 'DEL' TO tab-fcode.
APPEND tab.
ENDIF.
ENDIF.
...
...
ENDIF.
ENDLOOP.
LOOP AT tc_comiss-cols INTO wa_cols.
IF wa_cols-index = '11'.
wa_cols-invisible = '1'.
ENDIF.
IF wa_cols-screen-group4 EQ 'INV'.
wa_cols-invisible = '1'.
ENDIF.
MODIFY tc_comiss-cols FROM wa_cols..
* >> Início da exclusão: MODULE SET_SCREEN
ENDLOOP.
CLEAR: v_subrc031.
CALL CUSTOMER-FUNCTION '031'
IMPORTING
v_subrc = v_subrc031.
IF NOT v_subrc031 IS INITIAL.
LOOP AT SCREEN.
IF screen-group1 = 'KST'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
ENDLOOP.
* >> Início da exclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da exclusão
ELSE.
LOOP AT itab_zycet010 WHERE belnr <> ' '.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCEE001-PARVW' OR
screen-name = 'V_VLCOMIS' OR
screen-name = '/PWS/ZYCEE010-J_1BBRANCH' OR
...
...
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF /pws/zycee001-envia_c = 'X'.
LOOP AT SCREEN.
IF screen-name = 'V_VLCOMIS' OR
screen-name = '/PWS/ZYCEE010-J_1BBRANCH' OR
screen-name = 'V_KOSTL'.
screen-input = '0'.
* >> Início da exclusão: MODULE SET_SCREEN
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR: v_subrc031.
CALL CUSTOMER-FUNCTION '031'
IMPORTING
v_subrc = v_subrc031.
IF NOT v_subrc031 IS INITIAL.
LOOP AT SCREEN.
IF screen-group1 = 'KST'.
screen-invisible = '1'.
* << Fim da exclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
WHEN '0201'.
CLEAR v_show_cols.
IF NOT wa_zycet037-trata_ir IS INITIAL.
LOOP AT itab_zycet010.
SELECT SINGLE land1 INTO lfa1-land1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017TOP
...
v_comissao,
v_data LIKE sy-datlo,
v_date LIKE sy-datlo(4),
v_index LIKE sy-tabix,
v_index2 LIKE sy-tabix,
v_belnr LIKE bseg-belnr,
* >> Início da exclusão:
v_codigo LIKE /pws/zycet008-codigo,
* >> Fim da exclusão:
* >> Início da inclusão:
v_codigo LIKE /pws/zycet008-codigo, "#EC NEEDED
* >> Fim da inclusão:
v_contabilizado TYPE c,
v_nrseq2 LIKE /pws/zycet001-nrseq,
v_nremb LIKE /pws/zycet001-nremb,
* >> Início da exclusão:
v_exit32 ,
* >> Início da exclusão:
v_contal LIKE /pws/zycbe035-d_newko,
v_part LIKE /pws/zycet013-vlme,
v_part2 LIKE /pws/zycet013-vlme,
v_gsber LIKE /pws/zycet013-gsber,
v_dif TYPE i,
v_show_cols TYPE i,
v_primeira_carga TYPE i,
v_dtvenc LIKE sy-datlo,
s_check,
v_subrc,
v_autom TYPE c,
v_kostl LIKE csks-kostl,
* >> Início da exclusão:
v_subrc031 TYPE c,
* << Fim da exclusão
v_subrc1 TYPE c,
* >> Início da exclusão:
v_tabix LIKE sy-tabix,
* << Fim da exclusão
v_j1bbranch LIKE /pws/zycee010-j_1bbranch,
v_zterm TYPE vbkd-zterm.
DATA: itab_zycet005 LIKE /pws/zycet005 OCCURS 10 WITH HEADER LINE,
itab_zycee005 LIKE /pws/zycee005 OCCURS 10 WITH HEADER LINE,
* >> Início da exclusão:
itab_zycet004 LIKE /pws/zycet004 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
itab_zycet004 LIKE /pws/zycet004 OCCURS 10 WITH HEADER LINE,
itab_zycbt034ax LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE.
* << Fim da inclusão
DATA: t_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE.
DATA: v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
* >> Início da exclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode .
* << Fim da exclusão
* >> Início da inclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode. "#EC NEEDED
* << Fim da inclusão
DATA: BEGIN OF itab_erro OCCURS 0,
nrseq LIKE /pws/zycet001-nrseq,
msg LIKE /pws/zycbt032-msg,
END OF itab_erro.
DATA: BEGIN OF tab OCCURS 10,
...
...
DATA: BEGIN OF itab_zycet001 OCCURS 20 .
INCLUDE STRUCTURE /pws/zycet001.
DATA: mark(1).
DATA: END OF itab_zycet001.
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA: BEGIN OF itab_zycit224 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit224.
DATA: END OF itab_zycit224.
* >> Início da exclusão:
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet008 OCCURS 0.
* << Fim da inclusão
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet008 OCCURS 20.
* << Fim da exclusão
INCLUDE STRUCTURE /pws/zycet008 .
DATA: kschl LIKE konv-kschl,
fator LIKE /pws/zycit030-fator.
DATA: END OF itab_zycet008.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet008ax OCCURS 0.
INCLUDE STRUCTURE /pws/zycet008.
DATA: END OF itab_zycet008ax.
* << Fim da inclusão
DATA: BEGIN OF it013_aux OCCURS 10.
...
...
DATA: END OF it013_aux.
DATA itab_zycet010_ant LIKE /pws/zycet010.
DATA: BEGIN OF itab_zycet010_aux OCCURS 20 .
INCLUDE STRUCTURE /pws/zycet010.
DATA: mark(1).
DATA: END OF itab_zycet010_aux.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet010_del OCCURS 0 .
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet010_del OCCURS 0 . "#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycet010.
DATA: mark(1).
DATA: END OF itab_zycet010_del.
DATA : BEGIN OF itab_saida OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_saida.
DATA : BEGIN OF itab_zycee085 OCCURS 10.
INCLUDE STRUCTURE /pws/zycee085.
DATA : END OF itab_zycee085.
DATA: BEGIN OF t_bupla OCCURS 0,
bupla LIKE bseg-bupla,
...
...
DATA: itab_zycbt011 LIKE /pws/zycbt011 OCCURS 10 WITH HEADER LINE,
itab_zycet002 LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE,
itab_zycbt017 LIKE /pws/zycbt017 OCCURS 10 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_zycet166 LIKE /pws/zycet166 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: itab_zycet166 LIKE /pws/zycet166 OCCURS 0 WITH HEADER LINE."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycet020 OCCURS 0,
auart LIKE /pws/zycet020-auart,
tipodoc LIKE /pws/zycet020-tipodoc,
END OF itab_zycet020.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE017
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (5 caracteres)
"Campo"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (9 caracteres)
"em branco"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 118
Texto: (6 caracteres)
"000009"
Comprimento máximo: 6