CE PLUS - Nota 003724
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Fatura
Data/Hora da Publicação: 21/05/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:31:00
Descrição da Nota: COMPLEMENTO DO BOLETO - TIPO RAZÃO ESPECIAL
Sintoma
na pre-edição do pagamento de fatura manual de importação, o programa não está trazendo o tipo de
razão especial "A" parametrizado na 007F. Se pelo batch input, o programa ta trazendo o tipo "T",
porém, não existe no parâmetro.
Solução
Corrigido o ponto onde esta sendo feita a seleção
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03724 Data: 21/05/2007 Hora: 16:52:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03724
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00167
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - TIPO RAZÃO ESPECIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - TIPO RAZÃO ESPECIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
ENDIF.
v_evento = v_codeven.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'F'.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_118E031CD
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_118E031CD
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF wa_zycbt118-frpagto = 'R'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = wa_zycbt118-bukrs
ktosl = 'PDS'
...
...
WHERE tabela = '/PWS/ZYCBT128'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'F'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_128_129E031
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_128_129E031
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF sy-index NE 2.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
ELSEIF /pws/zycbe031-tpparc EQ 'J' .
IF /pws/zycbe031-pagtoirrf = 'BCO'.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
...
...
ENDIF.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'F'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_CLEAR_EMP
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_EMP
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
v_evento = v_codeven.
ENDFORM.
FORM exibir_remessa.
SET PARAMETER ID '/PWS/ZYCBP374' FIELD v_valor.
AUTHORITY-CHECK OBJECT 'S_TCODE'
...
...
FORM fill_date_f-63_tv.
ENDFORM.
FORM calcula_taxair.
DATA: wa_tcurr LIKE tcurr,
v_ctmoed LIKE /pws/zycbt011-ctmoed,
v_dia_taxa_conv LIKE sy-datum.
PERFORM dia_taxa.
CONVERT DATE v_dia_taxa INTO INVERTED-DATE v_dia_taxa_conv.
SELECT SINGLE ctmoed FROM /pws/zycbt011 INTO v_ctmoed
WHERE codmod = 'F'
* >> Início da exclusão: FORM CALCULA_TAXAIR
AND codeven = '004P'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TAXAIR
AND codeven = '004P'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = v_ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
SELECT SINGLE * FROM tcurr INTO wa_tcurr
WHERE kurst = v_ctmoeda
AND fcurr = /pws/zycbe031-waers
AND tcurr = /pws/zycbt007-waersb
AND gdatu = v_dia_taxa_conv.
...
...
FORM get_parameters_tv.
DATA v_codeven LIKE /pws/zycbt011-codeven VALUE '016A'.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs = /pws/zycbe031-bukrs.
CLEAR: wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_TV
AND codmod = 'T'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TV
AND codmod = 'T'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
REFRESH itab_zycbt012.
CLEAR itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'T'.
CLEAR wa_ftpt_req_advance.
SELECT SINGLE * FROM ftpt_req_advance
INTO wa_ftpt_req_advance
WHERE reinr EQ /pws/zycbe031-nrcorresp.
...
...
FORM seleciona_boleto_revenda_cp.
CLEAR itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven EQ '016A'
AND codmod EQ 'T'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven EQ '016A'
* >> Início da exclusão: FORM SELECIONA_BOLETO_REVENDA_CP
AND codmod EQ 'T'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_BOLETO_REVENDA_CP
AND codmod EQ 'T'
and bukrs EQ /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
CLEAR wa_zycbe031c.
SELECT SINGLE * FROM /pws/zycbt031
INTO wa_zycbe031c
WHERE nrseq EQ /pws/zycbe031-bolcompra
AND mdcorresp EQ 'TV'
AND status NE 'E'.
...
...
ENDFORM.
FORM verifica_propoe_taxa.
DATA: wa_tcurr LIKE tcurr,
v_dia_taxa_conv LIKE sy-datum,
v_ctmoed LIKE /pws/zycbt011-ctmoed.
CHECK v_status_s = '1'.
PERFORM dia_taxa.
CONVERT DATE v_dia_taxa INTO INVERTED-DATE v_dia_taxa_conv.
SELECT SINGLE ctmoed FROM /pws/zycbt011 INTO v_ctmoed
WHERE codmod = 'F'
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
AND codeven = '004P'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
AND codeven = '004P'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = v_ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
SELECT SINGLE * FROM tcurr INTO wa_tcurr
WHERE kurst = v_ctmoeda
AND fcurr = /pws/zycbe031-waers
AND tcurr = /pws/zycbt007-waersb
AND gdatu = v_dia_taxa_conv.
...
...
v_codeven = '004IF'.
ELSEIF p_tpimp(3) = 'ISS'.
v_codeven = '004IS'.
ELSEIF p_tpimp(3) = 'PIS'.
v_codeven = '004PI'.
ELSEIF p_tpimp(6) = 'COFINS'.
v_codeven = '004CO'.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_CP
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = v_codeven.
ELSEIF wa_zycbt124-tpoper = 'R'.
v_trans = 'F-02'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '003R'
* >> Início da exclusão: FORM GET_PARAMETERS_CP
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'RCF'
AND codeven = '003R'.
ENDIF.
ENDFORM.
FORM contabiliza_docto_cp USING p_tpimp
p_recontabiliza
p_recuperar.
IF NOT p_recontabiliza IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
PERFORM clear_date_batch.
PERFORM selec_dados.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = text-034.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_023E031
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_023E031
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR itab_zycbt012.
READ TABLE itab_zycbt012 WITH KEY codeven = v_codeven
codmod = text-034
chlanc = 'D'
tpcodaux = 'C'
codaux = v_codaux.
READ TABLE itab_zycbt012 WITH KEY codeven = v_codeven
codaux = v_codaux
codmod = text-034
tpcodaux = 'B'
...
...
v_trans = 'F-30'.
ENDIF.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = wa_despesa-codeven
AND codmod = wa_despesa-codmod.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = wa_despesa-codeven
* >> Início da exclusão: FORM GET_PARAMETERS_031_ED
AND codmod = wa_despesa-codmod.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_031_ED
AND codmod = wa_despesa-codmod
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF /pws/zycbe031-mdcorresp = 'EC'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = wa_despesa-bukrs
ktosl = 'DSE'
codaux1 = wa_despesa-tpdesp
codaux3 = 'C'
TABLES
account = itab_zyglt316
EXCEPTIONS
...
...
v_trans = 'F-02'.
CONCATENATE '004' text-129 INTO v_evento.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_evento
AND codmod = text-034.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento
* >> Início da exclusão: FORM GET_PARAMETERS_031_EJ
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_031_EJ
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'FBK'
codaux1 = /pws/zycbe031-bcooper
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
CLEAR wa_zycbt011.
CONCATENATE '009' wa_zycbt004-tpcontr INTO v_evento.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_evento
AND codmod = text-034.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento
* >> Início da exclusão: FORM GET_PARAMETERS_004E031
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_004E031
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR itab_zycbt012.
READ TABLE itab_zycbt012 WITH KEY codeven = v_evento
codmod = text-034
chlanc = 'D'.
MOVE v_evento TO v_codigo.
itab_contas-conta = itab_zycbt012-saknr1.
APPEND itab_contas.
ENDFORM.
FORM dados_batch_004.
itab_zycbe033-zterm = space.
...
...
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_evento
AND codmod = text-034.
CLEAR itab_zycbt012.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento
* >> Início da exclusão: FORM PARAMETROS
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM PARAMETROS
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt002
INTO wa_zycbe002
WHERE nrseqc EQ /pws/zycbe031-nrcorresp
AND tpparc EQ /pws/zycbe031-tpdesp
AND nrparc EQ /pws/zycbe031-nrparc.
SELECT SINGLE * FROM /pws/zycbt001
INTO wa_zycbe001
WHERE nrseqc EQ /pws/zycbe031-nrcorresp.
PERFORM verifica_field USING wa_zycbe002-bconegoc
text-090.
...
...
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe031-bukrs.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCET010'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_051
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_051
AND codmod = 'E'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR itab_zycbt012.
v_evento = v_codeven.
ENDFORM.
FORM anula_estorna_el.
IF wa_zyglt009-comp_trans EQ 'C' AND
NOT /pws/zycbe031-belnr_comp IS INITIAL.
PERFORM clear_date_batch.
PERFORM estorna_f04.
IF NOT /pws/zycbe031-belnr_comp IS INITIAL.
MESSAGE i061 WITH text-074.
...
...
ELSEIF /pws/zycbt037-codpad = 'G'.
v_codevent = text-198.
ELSEIF /pws/zycbt037-codpad = 'D'.
v_codevent = text-199.
ENDIF.
v_evento = v_codevent.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codevent
* >> Início da exclusão: FORM SELECIONA_FATOR_TAXA
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR: /pws/zycbt009-codpadr, /pws/zycbt009-kurst.
SELECT SINGLE codpadr kurst
INTO (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
FROM /pws/zycbt009
WHERE codpadr = wa_zycbt011-ctmoed.
v_budat = /pws/zycbe031-dtcredpr.
CALL FUNCTION '/PWS/ZYGL_CONVERTE_TAXA'
EXPORTING
moeda_de = /pws/zycbe031-waers
ctg_cambio = /pws/zycbt009-kurst
...
...
ENDFORM.
FORM seleciona_fator_taxa_ed USING value(p_budat)
value(p_moedat)
value(p_taxad)
value(p_codevent)
CHANGING v_sai.
CLEAR: wa_zycbt011, v_taxat.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = p_codevent
* >> Início da exclusão: FORM SELECIONA_FATOR_TAXA_ED
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATOR_TAXA_ED
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR: /pws/zycbt009-codpadr, /pws/zycbt009-kurst.
SELECT SINGLE codpadr kurst
INTO (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
FROM /pws/zycbt009
WHERE codpadr = wa_zycbt011-ctmoed.
CALL FUNCTION '/PWS/ZYGL_CONVERTE_TAXA'
EXPORTING
moeda_de = p_moedat
ctg_cambio = /pws/zycbt009-kurst
dtbase = p_budat
...
...
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = text-094.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_COMISSAO
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COMISSAO
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF /pws/zycbt007-comis = 'C'.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
WHERE codeven = v_codeven AND
codmod = text-034 AND
tpcodaux = 'C' AND
codaux = v_codaux.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012a
...
...
itab_zycbe033-tcode = 'F-63'.
itab_zycbe033-budat = /pws/zycbe031-dtcredir.
itab_zycbe033-bldat = /pws/zycbe031-dtcredir.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = text-087
AND codmod = text-034.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = text-087
* >> Início da exclusão: FORM EXECUTA_F63_IRRF
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F63_IRRF
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF /pws/zycbe031-pagtoirrf = 'BCO'.
IF NOT /pws/zycbe031-bcoopir IS INITIAL.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
ELSE.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
...
...
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_evento
AND codmod = text-034.
CLEAR itab_zycbt012.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento
* >> Início da exclusão: FORM PARAMETROS_TR
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM PARAMETROS_TR
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt001
INTO wa_zycbe001
WHERE nrseqc EQ /pws/zycbe031-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt002
INTO wa_zycbe002
WHERE nrseqc EQ /pws/zycbe031-nrcorresp
AND tpparc EQ /pws/zycbe031-tpdesp
AND nrparc EQ /pws/zycbe031-nrparc.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
...
...
ENDIF.
CONCATENATE '004' text-129 INTO v_evento.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_evento
AND codmod = text-034.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_evento
* >> Início da exclusão: FORM GET_PARAMETERS_028_EJ
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_028_EJ
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'FBK'
codaux1 = /pws/zycbe031-bcooper
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
WHERE tabela = '/PWS/ZYCBT112'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'E'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_IRED
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_IRED
AND codmod = 'E'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF /pws/zycbe031-pagtoirrf = 'BCO'.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
ELSE.
CLEAR itab_zycbt012.
READ TABLE itab_zycbt012 WITH KEY codeven = v_codeven
...
...
CLEAR wa_zycbt124.
SELECT SINGLE * FROM /pws/zycbt124 INTO wa_zycbt124
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_F04
AND codmod = text-201.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F04
AND codmod = text-201
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CLEAR itab_zycbt012.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = text-201.
CLEAR itab_zycbt013.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
...
...
WHERE tabela = '/PWS/ZYCBT128'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'F'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_TR_CE
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TR_CE
AND codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF sy-index NE 2.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
ELSEIF /pws/zycbe031-tpparc EQ 'J' .
IF /pws/zycbe031-pagtoirrf = 'BCO'.
IF NOT /pws/zycbe031-bcoopir IS INITIAL.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
ELSE.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
ENDIF.
ELSE.
...
...
v_trans = 'F-30'.
ENDIF.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
itab_zycbe033-c_newko = /pws/zycbe031-bcooper.
PERFORM verify_null_field USING itab_zycbe033-agkon
'AGKON'
text-016.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = wa_despesa-codeven
* >> Início da exclusão: FORM GET_PARAMETERS_TR_ED
AND codmod = wa_despesa-codmod.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TR_ED
AND codmod = wa_despesa-codmod
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'TRF'
codaux1 = 'TRAVA'
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-c_valut = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
itab_zycbe033-c_valut = itab_zycbe033-budat.
ENDIF.
SELECT SINGLE koart FROM /pws/zycbt011
INTO /pws/zycbt011-koart
WHERE codeven = '004I' AND
* >> Início da exclusão: FORM EXECUTA_F51_ED
codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_ED
codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF /pws/zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
CLEAR v_codaux1.
IF wa_zyglt009-provjur_moeda = 'X' AND
/pws/zycbt004-tpdesp = 'J' AND
/pws/zycbe031-waers = wa_zycbt007-waersa.
CONCATENATE /pws/zycbt004-tpdesp wa_zycbt007-waersa
INTO v_codaux1 SEPARATED BY space.
ELSE.
v_codaux1 = /pws/zycbt004-tpdesp.
...
...
ELSEIF /pws/zycbt037-codpad = 'R'.
v_codeven = text-100.
ELSEIF /pws/zycbt037-codpad = 'G'.
v_codeven = text-198.
ELSEIF /pws/zycbt037-codpad = 'D'.
v_codeven = text-199.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM EXECUTA_F51_EL
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCET010'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-xblnr = /pws/zycbe031-nrseq.
IF NOT /pws/zycbt048-dtliquida IS INITIAL.
itab_zycbe033-budat = /pws/zycbt048-dtliquida.
ELSE.
itab_zycbe033-budat = itab_zycbt031_tc-dtliquida.
/pws/zycbt048-dtliquida = itab_zycbt031_tc-dtliquida.
...
...
FORM get_parameters.
DATA: v_bukrs LIKE /pws/zycbt031-bukrs.
CLEAR: itab_zycbt012, itab_zycbt013, wa_zycbt011.
REFRESH: itab_zycbt012, itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT134'.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = '009'
* >> Início da exclusão: FORM GET_PARAMETERS
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = '009'
AND codmod = 'I'.
CLEAR v_bukrs_p.
IF NOT wa_zyglt009-arq_eletro = 'X' AND
NOT /pws/zycbe145-bukrs_p IS INITIAL AND
/pws/zycbe145-bukrs_p NE /pws/zycbe031-bukrs.
v_bukrs_p = v_bukrs = /pws/zycbe145-bukrs_p.
ELSE.
...
...
ELSEIF /pws/zycbt037-codpad = 'R'.
v_codeven = text-100.
ELSEIF /pws/zycbt037-codpad = 'G'.
v_codeven = text-198.
ELSEIF /pws/zycbt037-codpad = 'D'.
v_codeven = text-199.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM EXECUTA_F51_EL_IR
AND codmod = text-034.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL_IR
AND codmod = text-034
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCET010'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-xblnr = /pws/zycbe031-nrseq.
itab_zycbe033-kursf = /pws/zycbe031-taxair.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-wrbtr = /pws/zycbe031-vlir.
IF NOT /pws/zycbt048-dtliquida IS INITIAL.
itab_zycbe033-budat = /pws/zycbt048-dtliquida.
...
...
ELSE.
v_codaux1 = text-251.
v_codaux3 = text-252.
CONCATENATE '004' text-250 INTO v_codeven.
ENDIF.
PERFORM seleciona_zyglt321 USING v_oper
v_codeven.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_COM
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_COM
AND codmod = 'E'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados_comissao.
SELECT SINGLE * FROM /pws/zycbt001
WHERE nrseqc = /pws/zycbe031-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt074
WHERE nrseqc = /pws/zycbt001-nrseqc.
SELECT * FROM /pws/zycbt002
INTO TABLE itab_zycbt002
WHERE nrseqc = /pws/zycbt001-nrseqc.
SELECT * FROM /pws/zycbt133
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
WHERE tabela = '/PWS/ZYCBT112'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'I'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_112_113E031
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112_113E031
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF sy-index NE 2.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
ELSEIF /pws/zycbe031-tpparc EQ 'J' .
IF /pws/zycbe031-pagtoirrf = 'BCO'.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
...
...
WHERE bukrs EQ /pws/zycbe031-bukrs.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT117'.
CLEAR wa_zycbt011.
CONCATENATE '005' wa_zycbt117-codint INTO v_codeven.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_117E031
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_117E031
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
v_evento = v_codeven.
ENDFORM.
FORM get_parameters_118e031.
DATA: v_codeven LIKE /pws/zycbt011-codeven VALUE '006DB'.
PERFORM clear_date_batch.
...
...
ENDIF.
v_evento = v_codeven.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'I'.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_118E031
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_118E031
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF wa_zycbt118-frpagto = 'C'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'DSI'
...
...
AND chlanc = 'C'
AND tpcodaux = 'B'
AND codmod = 'I'.
CLEAR wa_zycbt011.
IF NOT itab_zycmt020[] IS INITIAL.
CONCATENATE '010' wa_zycbt119-codint INTO v_codeven.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_119E031
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_119E031
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
CLEAR itab_zycbt012.
v_evento = v_codeven.
ENDFORM.
FORM get_parameters_clear_financ.
DATA: v_codeven LIKE /pws/zycbt011-codeven.
...
...
WHERE tabela = '/PWS/ZYCBT112'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'I'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_CLEAR_FINANC
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_FINANC
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
v_evento = v_codeven.
ENDFORM.
FORM reverse_document_fbv0_ia.
CLEAR erro_bi.
PERFORM verifica_documento_compensado.
...
...
ENDIF.
ENDIF.
APPEND itab_zycbe033.
PERFORM preenche_partida_multipla.
PERFORM call_function_f43a.
ENDFORM.
FORM get_parameters_f-43a.
CONCATENATE '005' wa_zycbt117-codint INTO v_codeven.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_F-43A
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43A
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF sy-subrc = 0.
v_agums = wa_zycbt011-agums.
ELSE.
CLEAR v_agums.
ENDIF.
IF wa_zycbt007 IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs = wa_zycbt117-bukrs.
ENDIF.
ENDFORM.
...
...
itab_zycbe033-kursf = /pws/zycbe031-kursf.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
ENDIF.
SELECT SINGLE koart FROM /pws/zycbt011
INTO /pws/zycbt011-koart
WHERE codeven = '004I' AND
* >> Início da exclusão: FORM EXECUTA_F51_IP
codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_IP
codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'TST'
codaux1 = 'TRAVA'
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
INTO wa_zycbt007
WHERE bukrs = /pws/zycbe031-bukrs.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT119'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM CARREGA_CP
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_CP
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
ENDFORM.
FORM get_parameters_tr_if.
DATA: v_recf LIKE /pws/zycbt089-forn_rec_fed.
IF sy-index = 2.
IF /pws/zycbe031-tpparc = 'J'. v_codeven = '003P'. ENDIF.
ELSE.
IF /pws/zycbe031-tpparc = 'J'.
v_codeven = '002P'.
ELSEIF /pws/zycbe031-tpparc = 'P'.
v_codeven = '001P'.
...
...
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe031-bukrs.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT112'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_TR_IF
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TR_IF
AND codmod = 'I'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
SELECT SINGLE kurst
FROM /pws/zycbt009
INTO /pws/zycbt009-kurst
WHERE codpadr = wa_zycbt011-ctmoed.
v_ctmoeda = /pws/zycbt009-kurst.
IF sy-index <= '1'.
itab_zycbe033-agkon = /pws/zycbe031-bcooper.
ELSEIF sy-index = '2'.
IF /pws/zycbe031-pagtoirrf = 'BCO'.
IF NOT /pws/zycbe031-bcoopir IS INITIAL.
...
...
itab_zycbe033-kursf = /pws/zycbe031-kursf.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
ELSE.
itab_zycbe033-bldat = itab_zycbe033-budat.
ENDIF.
SELECT SINGLE koart FROM /pws/zycbt011
INTO /pws/zycbt011-koart
WHERE codeven = '004I' AND
* >> Início da exclusão: FORM EXECUTA_F51_IF
codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_IF
codmod = 'F'
and bukrs = /pws/zycbe031-bukrs.
* << Fim da inclusão
IF /pws/zycbt007-fprovisao = 'C' AND
( ( /pws/zycbe031-tpparc = 'C' AND
wa_zycbt112-fpagto_c EQ 'P' ) OR
( /pws/zycbe031-tpparc = 'J' ) ).
PERFORM executa_f02_trava.
LOOP AT itab_zycbt154 WHERE belnr_cl IS initial.
itab_doctos-tcode = 'F-51'.
itab_doctos-tabela = '/PWS/ZYCBT112'.
itab_doctos-cpochv = /pws/zycbe031-nrseq.
itab_doctos-belnr = itab_zycbt154-belnr_pr.
...