CE PLUS - Nota 005897
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 11/02/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:40:54
Descrição da Nota: LIQUIDAÇÃO - BOTÃO MARCAR/DESMARCAR - BLOQUEIO DE CONTAS
Sintoma
Aditivo: na liquidação quando a seleção das faturas é feita pela Table control: - Acrescentar na
table control de seleção os botões: Marcar tudo e Desmarcar Tudo - Em liquidação - modificar, é
exibida várias vezes a mesma mensagem (Os campos com relevância contábil não poderão ser alterados.
As faturas deverão ser estornadas e liquidadas novamente), quando existe fatura selecionada pela
table control. Fazer o ajuste para exibir essa mensagem uma unica vez.
- Ajustes bloqueio de conta pelo próprio usuário que esta efetuando a liquidação.
Solução
Aditivo novo desenvolvimento.
Ajustes no bloqueio de contas, efetuar o desbloqueio antes de chamar as contabilizações.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05897 Data: 11/02/2008 Hora: 16:01:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05897
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04862 - 00001 - 7.0 - 00003 - DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
05486 - 00002 - 7.0 - 00003 - SELECIONAR RECURSO PARA LIQUIDAÇÃO DE FATURAS
05502 - 00003 - 7.0 - 00004 - LIQUIDAÇÃO DE CONTRATO
05666 - 00004 - 7.0 - 00004 - LIQUIDAÇÃO DE FATURAS
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - BOTÃO MARCAR/DESMARCAR - BLOQUEIO DE CONTAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - BOTÃO MARCAR/DESMARCAR - BLOQUEIO DE CONTAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCB004
FUNC /PWS/ZYCB_TRANSACAO_F_30_P
FUNC /PWS/ZYCB_TRANSACAO_F_30_T
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004I01
REPS /PWS/MZYCB004O01
REPS /PWS/MZYCB004TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCB004
STATUS: 0102
ATRIBUTOS DE STATUS
TEXTO BREVE: CB - Obj. Resultado Recurso
CATEGORIA DE STATUS
(X) - STATUS DIÁLOGO
(_) - CAIXA DE DIÁLOGO
(_) - MENU DE CONTEXTO
BARRA DE BOTÔES:
ITENS 1 - 7 DESM MARC ENTER CANCEL
BOTÃO ESTÁTICO
CÓDIGO DE FUNÇÃO: DESM
CATEGORIA DE FUNÇÃO:
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Desmarcar Todos
NOME DE ÍCONE: ICON_DESELECT_ALL
TEXTO DE ÍCONE: _____________________________________________________
TEXTO INFORMATIVO: __________________________________________________
SELEÇÃO DIRETA: _____
TECLA DE ATALHO: SHIFT-F4
CÓDIGO DE FUNÇÃO: MARC
CATEGORIA DE FUNÇÃO:
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Marcar Todos
NOME DE ÍCONE: ICON_SELECT_ALL
TEXTO DE ÍCONE: _____________________________________________________
TEXTO INFORMATIVO: __________________________________________________
SELEÇÃO DIRETA: _____
TECLA DE ATALHO: SHIFT-F2
CÓDIGO DE FUNÇÃO: ENTER
CATEGORIA DE FUNÇÃO:
TEXTOS DE FUNÇÃO ESTÁTICO:
TEXTO DE FUNÇÃO: Avançar
NOME DE ÍCONE: ICON_OKAY
TEXTO DE ÍCONES: ________
TEXTO INFORMATIVO: ___________
SELEÇÃO DIRETA: ___________
TECLA DE ATALHO: ENTER
CÓDIGO DE FUNÇÃO: CANCEL
CATEGORIA DE FUNÇÃO: E
TEXTOS DE FUNÇÃO ESTÁTICO:
TEXTO DE FUNÇÃO: Cancelar
NOME DE ÍCONE: ICON_CANCEL
TEXTO DE ÍCONES: ________
TEXTO INFORMATIVO: ___________
SELEÇÃO DIRETA: A
TECLA DE ATALHO: Ctrl-F5
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P
...
PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
IF NOT t_dados-werks IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-WERKS' t_dados-werks.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_P
IF NOT t_dados-d_prctr IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-PRCTR' t_dados-d_prctr.
ENDIF.
ENDIF.
IF NOT t_dados-d_kostl IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-KOSTL' t_dados-d_kostl.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT t_dados-d_fipos IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-FIPOS'
chave = v_lanc1.
IF sy-subrc NE 0.
PERFORM bdc_field USING 'COBL-FIPOS' t_dados-d_fipos.
ENDIF.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_T
...
PERFORM bdc_field USING 'BDC_OKCODE' '=BS'.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER' chave = 'C'.
IF sy-subrc NE 0.
IF NOT t_dados-d_gsber IS INITIAL.
PERFORM bdc_field USING:
'BDC_CURSOR' 'COBL-GSBER',
'COBL-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_T
IF NOT t_dados-d_prctr IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-PRCTR' t_dados-d_prctr.
ENDIF.
ENDIF.
IF NOT t_dados-d_kostl IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL'
chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-KOSTL' t_dados-d_kostl.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
PERFORM bdc_screen USING 'SAPMF05A' '0700'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-NEWBS'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
ELSE.
PERFORM bdc_screen USING 'SAPDF05X' '3100'.
PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPDF05X'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RF05A-ABPOS'.
PERFORM bdc_field USING 'RF05A-ABPOS' '1'.
PERFORM bdc_field USING 'BDC_OKCODE' '=Z+'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
...
PERFORM bdc_field USING 'COBL-WERKS' t_dados-werks.
ENDIF.
ENDIF.
IF NOT t_dados-d_gsber IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'COBL-GSBER' chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-d_gsber IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-d_prctr IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-PRCTR' t_dados-d_prctr.
ENDIF.
ENDIF.
IF NOT t_dados-d_kostl IS INITIAL.
* << Fim da inclusão
READ TABLE itab_oculto
WITH KEY campo = 'COBL-KOSTL' chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-KOSTL' t_dados-d_kostl.
ENDIF.
ENDIF.
IF NOT t_dados-d_kostl IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'COBL-KOSTL' chave = 'C'.
IF sy-subrc <> 0.
...
...
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ENDIF.
IF NOT t_dados-d_gsber IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'COBL-GSBER' chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
IF NOT t_dados-d_prctr IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-PRCTR' t_dados-d_prctr.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-d_gsber IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-d_kostl IS INITIAL.
* << Fim da inclusão
READ TABLE itab_oculto
WITH KEY campo = 'COBL-KOSTL' chave = 'D'.
IF sy-subrc <> 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
itab_zycbe033-waers = v_waersbrl.
CLEAR v_waersbrl.
ENDIF.
IF itab_zycbt006-v_armda EQ 'X'.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-koart = 'S'.
CLEAR: itab_zycbe033-awtyp,
itab_zycbe033-kursf.
PERFORM calcula_montante.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* << Fim da inclusão
APPEND itab_zycbe033.
ENDFORM.
FORM clearing_agkon.
PERFORM clear_date_batch.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
IF icc_ EQ 'X'.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = conta_.
PERFORM verify_null_field USING conta_
...
...
WHERE bukrs = itab_zycbe033-bukrs AND
gjahr = v_year AND
belnr = itab_zycbe033-belnr AND
hkont = itab_zycbe033-d_newko AND
shkzg = 'H'.
v_wrbtr = v_wrbtr + v_wrbtr1.
ENDLOOP.
IF v_wrbtr EQ itab_zycbe033-wrbtr.
v_vinc_tot = 'X'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* << Fim da inclusão
APPEND itab_zycbe033.
ENDFORM.
FORM fill_date6_f30_cliente.
DATA:
v_gjahr LIKE t001b-frye1 ,
v_wrbtr LIKE bsid-wrbtr .
PERFORM clear_date_batch.
CLEAR itab_doctos.
REFRESH itab_doctos.
CONCATENATE itab_zycbt006-nrseqc itab_zycbt006-tpdesp
...
...
ELSE.
v_subrc = 4.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
MOVE itab_zycbt032[] TO itab_zycbt032a[].
PERFORM clear_date_batch.
sy-subrc = v_subrc.
* >> Início da inclusão: FORM LANCAMENTO_LIQUIDA_3
IF v_subrc NE 0.
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM fill_date6_f30_liquid_3.
CLEAR itab_doctos.
REFRESH itab_doctos.
CONCATENATE itab_zycbt006-nrseqc itab_zycbt006-tpdesp
itab_zycbt006-nrparc itab_zycbt006-dtincl
itab_zycbt006-nrinvoic itab_zycbt006-gsberf
itab_zycbt006-nrparcf
itab_zycbt006-dtvincul itab_zycbt006-dtvencto
itab_zycbt006-dtpagto itab_zycbt030-vbeln
...
...
INTO itab_partidas-d_zuonr
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
IF NOT itab_partidas[] IS INITIAL.
itab_zycbe033-agkon = itab_zycbt017-kunag.
CLEAR itab_zycbe033-umskz.
itab_zycbe033-agkoa = 'D'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* << Fim da inclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf AND
baixa = 'X'.
itab_partidas-tcode = itab_zycbe033-tcode.
itab_partidas-tabela = itab_zycbe033-tabela.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt209-belnr_d.
itab_partidas-dtdocto = itab_zycbt209-budat_d.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf
AND gsberf EQ itab_zycbt006-gsberf.
IF <fs_zycbt226>-sld_exterior LE v_slliq.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
IF v_slliq > 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente
USING
v_slliq.
* << Fim da inclusão
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
v_slliq = v_slliq - <fs_zycbt226>-sld_exterior.
PERFORM atualiza_zycbt231 USING <fs_zycbt226>-sld_exterior.
CLEAR <fs_zycbt226>-sld_exterior.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
v_flag_la = 'X'.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
IF v_flag_la IS INITIAL.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente
USING
v_slliq.
* << Fim da inclusão
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
v_slliq = v_slliq - <fs_zycbt226>-sld_exterior.
PERFORM atualiza_zycbt231 USING <fs_zycbt226>-sld_exterior.
CLEAR <fs_zycbt226>-sld_exterior.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
IF v_slliq > 0.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente
USING
v_slliq.
* << Fim da inclusão
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
<fs_zycbt226>-sld_exterior =
<fs_zycbt226>-sld_exterior - v_slliq.
PERFORM atualiza_zycbt231 USING v_slliq.
CLEAR v_slliq.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
v_flag_la = 'X'.
v_subrc = 4.
EXIT.
ENDIF.
ENDIF.
ENDIF.
v_flag_la = 'X'.
ENDLOOP.
IF v_flag_la IS INITIAL.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
PERFORM desm_conta_corrente
USING
v_slliq.
* << Fim da inclusão
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
<fs_zycbt226>-sld_exterior =
<fs_zycbt226>-sld_exterior - v_slliq.
PERFORM atualiza_zycbt231 USING v_slliq.
CLEAR v_slliq.
PERFORM atualiza_tabelas.
ELSEIF sy-subrc NE 0.
v_subrc = 4.
EXIT.
...
...
IF itab_zycbt030-v_belnr = itab_zycbt030-belnr_d.
itab_zycbt030-belnr6 = itab_zycbt006-belnr.
ELSE.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
ENDIF.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
CLEAR: v_flag_la, v_total_30, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
IF wa_recurso_aux-descorigem EQ v_liquidacao_a OR
wa_recurso_aux-descorigem EQ v_liquidacao_m.
v_total_30 = v_total_30 + wa_recurso_aux-vl_total_saldo.
v_flag_la = 'X'.
ENDIF.
ENDLOOP.
IF v_flag_la EQ 'X'.
CLEAR v_restante.
v_restante = itab_zycbt006-vlme - v_total_30.
* << Fim da exclusão
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
descorigem = v_liquidacao_c.
IF sy-subrc EQ 0.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
v_restante.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
itab_recurso_aux-vl_total_saldo.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF itab_zycbt030-v_duplica NE 'X'.
* << Fim da inclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
ENDIF.
* << Fim da inclusão
IF /pws/zycbe001-desc_receb IS INITIAL.
...
...
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
PERFORM local_negocio.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
itab_zycbe033-werks = /pws/zycbe005-werks.
itab_zycbe033-d_fipos = itab_zycbt005-fipos.
itab_zycbe033-c_fipos = itab_zycbt005-fipos.
* >> Início da inclusão: FORM DESMEMBRA_ACE
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* << Fim da inclusão
PERFORM busca_exit.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ013'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
APPEND itab_zycbe033.
v_desmembramento = 'X'.
CLEAR v_vinc_tot.
LOOP AT itab_zycbt034.
...
...
v_subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
v_subrc = 4.
ENDIF.
ELSE.
v_subrc = 4.
* >> Início da inclusão: FORM DESMEMBRA_ACE
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
sy-subrc = v_subrc.
ENDFORM.
FORM anula_desm_ace.
DATA: v_monat LIKE t001b-frpe1,
v_ano TYPE gjahr,
v_prazo,
v_codaux LIKE /pws/zyglt316-codaux1,
v_nrdias TYPE i.
PERFORM clear_date_batch.
...
...
v_codaux2 = itab_zycbt226i-waers.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt226i-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING itab_zycbe033-c_newko.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
CLEAR v_restante.
LOOP AT itab_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf AND
descorigem NE v_liquidacao_m.
v_restante = v_restante + itab_recurso_aux-vl_saldo.
ENDLOOP.
* << Fim da inclusão
READ TABLE itab_recurso_aux
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
descorigem = v_liquidacao_m.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
itab_zycbe033-wrbtr = itab_recurso_aux-vl_total_saldo.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
itab_zycbe033-wrbtr = itab_zycbt006-vlme - v_restante.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = itab_zycbt006-nrseqc.
LOOP AT itab_zycbt084 WHERE nrseqc = itab_zycbt006-nrseqc
AND nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf
AND tdesmemb = 'O'.
...
...
v_subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
v_subrc = 4.
ENDIF.
ELSE.
v_subrc = 4.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
sy-subrc = v_subrc.
ENDFORM.
FORM anula_liquidacao.
DATA: v_monat LIKE t001b-frpe1,
v_ano TYPE gjahr,
v_subrc LIKE sy-subrc,
v_nrdias TYPE i,
v_prazo,
v_codaux LIKE /pws/zyglt316-codaux1.
...
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
sy-subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
sy-subrc = 4.
* >> Início da inclusão: FORM CLEARING
IF p_agkoa EQ 'S'.
PERFORM enqueue_razao USING itab_zycbe033-bukrs
itab_zycbe033-d_newko
'X'.
ELSEIF p_agkoa EQ 'D'.
PERFORM enqueue_cliente USING itab_zycbe033-bukrs
itab_zycbe033-d_newko
'X'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM clearing_cli USING value(p_kunnr)
value(p_datum).
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'F-30'.
CONCATENATE itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
INTO itab_zycbe033-cpochv.
itab_zycbe033-tabela = 'ZYCBT030'.
REFRESH itab_zyglt321.
...
...
PERFORM clear_date_batch.
ENDFORM.
FORM abre_docto_ace_2.
PERFORM clear_date_batch.
CLEAR v_vinc_tot.
PERFORM fill_date6_f30_ace.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM ABRE_DOCTO_ACE_2
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = v_vinc_tot
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
t_doctos = itab_doctos
...
...
itab_zycbt006-nrinvoic itab_zycbt006-gsberf
itab_zycbt006-nrparcf
itab_zycbt006-dtvincul itab_zycbt006-dtvencto
itab_zycbt006-dtpagto itab_zycbt030-vbeln
itab_zycbt030-belnr INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT006'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da inclusão: FORM ABRE_DOCTO_ACE_2
PERFORM enqueue_razao USING itab_zycbe033-bukrs
itab_zycbe033-d_newko
'X'.
* << Fim da inclusão
IF itab_zycbt005-tpcontr(1) = 'C'.
v_cont = v_cont + 1.
IF v_cont = 1.
v_index1 = v_cont + 1.
itab_zycbt005-belnr = itab_zycbe033-belnr.
/pws/zycbe001-belnr2 = itab_zycbe033-belnr.
MODIFY itab_zycbt005 INDEX v_index1 TRANSPORTING belnr.
ELSE.
IF v_cont > 1.
itab_zycbt005-belnr = itab_zycbe033-belnr.
...
...
ENDIF.
ELSE.
v_subrc = 0.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
CLEAR v_cont.
ENDIF.
ELSE.
v_subrc = 4.
* >> Início da inclusão: FORM ABRE_DOCTO_ACE_2
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
MOVE itab_zycbt032[] TO itab_zycbt032a[].
PERFORM clear_date_batch.
sy-subrc = v_subrc.
ENDFORM.
FORM lancamento_clearing_2.
DATA: v_vltot.
v_waersbrl = wa_zycbt007-waersb.
PERFORM clearing_newko.
itab_zycbt036-tcode = 'F-30'.
...
...
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt006-belnr_d.
itab_zycbt036-dtdocto = v_data_desm_ace.
APPEND itab_zycbt036.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM LANCAMENTO_CLEARING_2
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
READ TABLE itab_zycbt005 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
IF itab_zycbt005-slpagar EQ 0.
v_vltot = 'X'.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_T'
EXPORTING
v_modo = v_modo_bi
TABLES
...
...
APPEND itab_contabil.
ENDIF.
v_subrc = 4.
ENDIF.
ELSE.
v_subrc = 4.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_CLEARING_2
else.
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
PERFORM clear_date_batch.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
sy-subrc = v_subrc.
ENDFORM.
FORM anula_desm_cliente_abitr.
DATA: v_monat LIKE t001b-frpe1,
v_ano TYPE gjahr.
PERFORM clear_date_batch.
...
...
ENDIF.
IF NOT v_desmembramento IS INITIAL.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
CLEAR itab_zycbe033-c_zuonr.
ELSE.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
ENDIF.
IF NOT itab_zycbt209[] IS INITIAL.
CLEAR itab_zycbe033-c_zuonr.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* << Fim da inclusão
APPEND itab_zycbe033.
ENDFORM.
FORM move_zycbe006.
/pws/zycbe006-kostl = itab_zycbt005-kostl.
/pws/zycbe006-aufnr = itab_zycbt005-aufnr.
/pws/zycbe006-kstrg = itab_zycbt006_aux3-kstrg.
/pws/zycbe006-prctr = itab_zycbt005-prctr.
/pws/zycbe006-ps_posid = itab_zycbt005-ps_posid.
/pws/zycbe006-nplnr = itab_zycbt005-nplnr.
/pws/zycbe006-matnr = itab_zycbt005-matnr.
...
...
/pws/zycbe006-pprctr_or = itab_zycbt005-pprctr_or.
/pws/zycbe006-prctr_or = itab_zycbt005-prctr_or.
/pws/zycbe006-pspnr_or = itab_zycbt005-pspnr_or.
/pws/zycbe006-rkaufnr_or = itab_zycbt005-rkaufnr_or.
/pws/zycbe006-spart_or = itab_zycbt005-spart_or.
/pws/zycbe006-versi_or = itab_zycbt005-versi_or.
/pws/zycbe006-vkorg_or = itab_zycbt005-vkorg_or.
/pws/zycbe006-vrgar_or = itab_zycbt005-vrgar_or.
/pws/zycbe006-werks_or = itab_zycbt005-werks_or.
/pws/zycbe006-vtweg_or = itab_zycbt005-vtweg_or.
* >> Início da inclusão: FORM MOVE_ZYCBE006
READ TABLE itab_zycbt006_pre
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
IF sy-subrc EQ 0.
v_tpfatura_or = itab_zycbt006_pre-tpfatura_or.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM move_zycbt005.
itab_zycbt005-kostl = /pws/zycbe006-kostl.
itab_zycbt005-aufnr = /pws/zycbe006-aufnr.
itab_zycbt005-kstrg = /pws/zycbe006-kstrg.
itab_zycbt005-prctr = /pws/zycbe006-prctr.
itab_zycbt005-ps_posid = /pws/zycbe006-ps_posid.
itab_zycbt005-nplnr = /pws/zycbe006-nplnr.
itab_zycbt005-matnr = /pws/zycbe006-matnr.
itab_zycbt005-kdauf = /pws/zycbe006-kdauf.
...
...
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
v_agkon = itab_zycbe033-agkon.
PERFORM unlock_razao USING v_agkon
itab_zycbe033-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_Q'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
...
...
v_subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
v_subrc = 4.
ENDIF.
ELSE.
v_subrc = 4.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
v_agkon = itab_zycbe033-agkon.
PERFORM unlock_razao USING v_agkon
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
sy-subrc = v_subrc.
ENDFORM.
FORM baixa_cliente_performance.
DATA: v_subrc LIKE sy-subrc.
DATA: v_belnr_cap LIKE /pws/zycbt006-belnr,
v_tpcontr LIKE /pws/zycbt001-tpcontr.
DATA: BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_partidas.
...
...
itab_zycbe033-newbs = '40'.
ELSEIF p_agkoa EQ 'D'.
itab_zycbe033-newbs = '01'.
ELSEIF p_agkoa EQ 'K'.
itab_zycbe033-newbs = '21'.
ENDIF.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
APPEND itab_zycbe033.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM CLEARING_PERF
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbt006-bukrs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_doctos = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
...
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
sy-subrc = 4.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
sy-subrc = 4.
* >> Início da inclusão: FORM CLEARING_PERF
PERFORM unlock_razao USING itab_zycbe033-d_newko
itab_zycbe033-bukrs.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_exit .
MOVE sy-repid TO v_repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
p_tabela
CHANGING p_wa_log
IF FOUND.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM DESM_CONTA_CORRENTE
FORM desm_conta_corrente.
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
FORM desm_conta_corrente
USING
p_v_slliq TYPE /pws/zycbt006-vlme.
* << Fim da inclusão
IF /pws/zyglt009-comp_aut_cc IS INITIAL.
IF wa_recurso_aux-descorigem EQ v_liquidacao_m.
* >> Início da exclusão: FORM DESM_CONTA_CORRENTE
IF <fs_zycbt226>-sld_exterior >= v_slliq_30.
wa_recurso_aux-vl_total_saldo = v_slliq_30.
ELSEIF <fs_zycbt226>-sld_exterior =< v_slliq_30.
wa_recurso_aux-vl_total_saldo = v_slliq_30.
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
IF <fs_zycbt226>-sld_exterior >= p_v_slliq.
wa_recurso_aux-vl_total_saldo = p_v_slliq.
ELSEIF <fs_zycbt226>-sld_exterior =< p_v_slliq.
wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.
* << Fim da inclusão
ENDIF.
MODIFY itab_recurso_aux FROM wa_recurso_aux.
CLEAR /pws/zycbt084.
/pws/zycbt084-result_saldo = wa_recurso_aux-vl_total_saldo.
/pws/zycbt084-nrseqc = itab_zycbt006-nrseqc.
/pws/zycbt084-tpdesp = itab_zycbt006-tpdesp.
/pws/zycbt084-nrparc = itab_zycbt006-nrparc.
/pws/zycbt084-dtincl = <fs_zycbt226>-dtlancto2.
/pws/zycbt084-nrinvoic = itab_zycbt006-nrinvoic.
/pws/zycbt084-nrparcf = itab_zycbt006-nrparcf.
...
...
v_msg_p2 = 'As faturas deverão ser estornadas e liquidadas novamente'.
LOOP AT itab_zycbt005.
READ TABLE itab_zycbt006_pre
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
IF itab_zycbt006_pre-tpfatura_or EQ 'X'.
v_mensagem_ = 'X'.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM MENSAGEM_TC_RECURSO_AUX
IF sy-tcode EQ c_transacao_a.
IF NOT v_mensagem_ IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGEM_TC_RECURSO_AUX
IF sy-tcode EQ c_transacao_a OR
sy-tcode EQ c_transacao_cap.
IF NOT v_mensagem_ IS INITIAL AND
v_desativa_flag IS INITIAL.
* << Fim da inclusão
PERFORM msg_atencao USING v_msg_p1 v_msg_p2.
CLEAR v_mensagem_.
* >> Início da inclusão: FORM MENSAGEM_TC_RECURSO_AUX
v_desativa_flag = 'X'.
* << Fim da inclusão
ENDIF.
ENDIF.
endform.
* >> Início da inclusão:
FORM marca_desmarca_tc USING value(p_marca).
LOOP AT itab_recurso_aux.
itab_recurso_aux-mark = p_marca.
MODIFY itab_recurso_aux TRANSPORTING mark.
ENDLOOP.
CLEAR ok_code.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
...
v_dtpagto.
IF v_dtpagto_004 EQ ' ' OR
v_dtpagto_004 EQ '00000000'.
DELETE itab_zycbt005.
CLEAR itab_zycbt005.
ELSE.
MESSAGE i061 WITH text-155 itab_zycbt005-nrinvoic
text-157 text-156.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
v_desativa_flag = space.
v_mensagem_ = space.
* << Fim da inclusão
ENDLOOP.
ELSE.
LOOP AT itab_zycbt005 WHERE mark = 'X'.
v_index_1 = sy-tabix.
DELETE itab_zycbt005 INDEX v_index_1.
CLEAR itab_zycbt005.
ENDLOOP.
ENDIF.
WHEN 'LISTA'.
EXPORT itab_zycbt005 TO MEMORY ID '010'.
...
...
WHEN '0100'.
CLEAR:
v_status_s,
/pws/zycbe005,
/pws/zycbe006,
itab_zycbt005_s,
itab_zycbt005_ant,
itab_zycbt005_aux2,
itab_zycbt006,
itab_pf_status,
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
v_mensagem_.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
v_mensagem_,
itab_zycbt006_pre,
v_desativa_flag.
* << Fim da inclusão
REFRESH:
itab_zycbt005_s,
itab_zycbt005_ant,
itab_zycbt005_aux2,
itab_zycbt006,
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
itab_zycbt006_pre,
* << Fim da inclusão
itab_pf_status.
IF sy-tcode = c_transacao_c.
...
...
PERFORM:
consiste_origem_selecionada,
consiste_saldo_menor,
consiste_it_mensagem.
ENDIF.
ENDLOOP.
IF it_mensagem[] IS INITIAL.
SET SCREEN 0.
LEAVE SCREEN.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0102
WHEN 'MARC'.
PERFORM marca_desmarca_tc USING 'X'.
WHEN 'DESM'.
PERFORM marca_desmarca_tc USING ''.
* << Fim da inclusão
ENDCASE.
endmodule.
module consiste_fatura input.
PERFORM gravar_linha_selecionada.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004O01
...
itab_recurso_aux-vlme TO /pws/zycbe006-vlme,
itab_recurso_aux-descorigem TO v_descorigem,
itab_recurso_aux-vl_saldo TO /pws/zycbe226-sld_exterior,
itab_recurso_aux-conta_razao TO /pws/zycbe226-conta_contabil,
itab_recurso_aux-mark TO v_mark.
ELSE.
EXIT FROM STEP-LOOP.
ENDIF.
endmodule.
module set_scrren_tc_recurso_aux output.
* >> Início da exclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
IF sy-tcode EQ c_transacao_a.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
IF sy-tcode EQ c_transacao_a OR
sy-tcode EQ c_transacao_cap.
* << Fim da inclusão
LOOP AT itab_zycbt005.
READ TABLE itab_zycbt006_pre
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
* >> Início da exclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
nrparcf = itab_zycbt005-nrparcf.
IF itab_zycbt006_pre-tpfatura_or EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
nrparcf = itab_zycbt005-nrparcf
tpfatura_or = 'X'.
IF sy-subrc EQ 0.
* << Fim da inclusão
v_mensagem_ = 'X'.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCRREN_TC_RECURSO_AUX
IF sy-subrc NE 0.
CLEAR v_mensagem_.
ENDIF.
* << Fim da inclusão
IF NOT v_mensagem_ IS INITIAL.
LOOP AT tc_faturas-cols INTO wa_cols.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
v_mark(01),
v_conti TYPE i,
v_flag_f(01) TYPE c,
v_contabilizado(1) TYPE c,
v_209(01) TYPE c,
v_030(01) TYPE c,
vnrinvoic TYPE /pws/zycbt017-nrinvoic,
vgsberf TYPE /pws/zycbt017-gsberf,
vnrparcf TYPE /pws/zycbt017-nrparcf,
v_slliq_30 TYPE /pws/zycbt006-vlme,
* >> Início da exclusão:
v_mensagem_(01) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
v_mensagem_(01) TYPE c,
v_tpfatura_or TYPE /pws/zycbt006-tpfatura_or,
v_desativa_flag(1) TYPE c,
v_restante LIKE /pws/zycbt006-vlme.
* << Fim da inclusão
DATA: BEGIN OF s_mensagem,
nrinvoic TYPE /pws/zycbt006-nrinvoic,
gsberf TYPE /pws/zycbt006-gsberf,
nrparcf TYPE /pws/zycbt006-nrparcf,
v_erro(01) TYPE c,
v_codigo(1) TYPE n,
END OF s_mensagem,
it_mensagem LIKE TABLE OF s_mensagem
WITH HEADER LINE.
INCLUDE /pws/zygli100.
...
...
j_1bbranch,
adrc,
t001,
/pws/zycbt074.
FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_ordem,
<fs_zycbt225> TYPE t_s_liqand,
<fs_liqand> TYPE t_s_liqand-vlme,
<fs_vltrans> TYPE t_s_liqand-vlme.
CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB004_C',
c_transacao_a(14) VALUE '/PWS/ZYCB004_A',
* >> Início da inclusão:
c_transacao_cap(16) VALUE '/PWS/ZYCB004_CAP',
* << Fim da inclusão
c_transacao_e(14) VALUE '/PWS/ZYCB004_E'.
DEFINE preenche_erro.
data:
wa_erro like line of itab_erro[].
wa_erro-vbeln = &1.
wa_erro-msg = &2.
insert wa_erro into table itab_erro.
END-OF-DEFINITION.
DEFINE preenche_contabil.
data:
...