CE PLUS - Nota 004862
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 28/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:40:38
Descrição da Nota: DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
Sintoma
Efetuar tratamento com parâmetro da /PWS/ZYGL007 para efetuar ou não a compensação automática de
conta corrente ME
Solução
DA Liquidação - Compensação Automática Conta Corrente ME
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04862 Data: 28/09/2007 Hora: 17:18:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04862
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00015
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00627 - 00001 - 6.0 - 00022 - CAPITALIZAÇÃO DE JUROS
03972 - 00002 - 7.0 - 00001 - LIQUIDAÇÃO - CAMPO ATRIBUIÇÃO F-30
04861 - 00003 - 7.0 - 00003 - DA SAÍDA DE PAGAMENTO - COMPENSAÇÃO AUTOMÁTICA CC ME
----------------------------------------------------------------------------------------------------
DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA LIQUIDAÇÃO COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
CC ME
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/LZYCBGF2TOP
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
...
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
'BKPF-MONAT' v_periodo,
v_xpos_comp 'X',
'BDC_OKCODE' '=SL'.
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BKPF-BRNCH' t_dados-brnch.
ENDIF.
ELSE.
ADD 1 TO v_linhas.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-c_newko IS INITIAL AND t_dados-newbs = '50'.
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
t_dados-c_newko
CHANGING v_string_credito.
PERFORM trata_string_credito TABLES t_dados
t_campo
itab_oculto
USING v_string_credito.
ELSE.
* << Fim da inclusão
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
t_dados-d_newko
CHANGING v_string_debito.
CLEAR itab_oculto.
REFRESH itab_oculto.
PERFORM trata_string_debito TABLES t_dados
t_campo
itab_oculto
USING v_string_debito.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPMF05A' '0122'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_bldat,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_budat,
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
'BKPF-MONAT' v_periodo,
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
v_xpos_comp 'X',
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
v_xpos_comp 'X'.
IF NOT t_dados-c_newko IS INITIAL AND
t_dados-newbs EQ '50'.
PERFORM bdc_field USING:
'RF05A-NEWBS' t_dados-newbs,
'RF05A-NEWKO' t_dados-c_newko.
ELSE.
PERFORM bdc_field USING:
* << Fim da inclusão
'RF05A-NEWBS' t_dados-newbs,
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
'RF05A-NEWKO' t_dados-d_newko,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
'RF05A-NEWKO' t_dados-d_newko.
ENDIF.
PERFORM bdc_field USING:
* << Fim da inclusão
'BDC_OKCODE' '/00'.
...
...
IF t_dados-umskz IS INITIAL OR t_dados-newbs EQ '40'.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
ELSE.
PERFORM bdc_screen USING 'SAPMF05A' '0304'.
ENDIF.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr,
'BSEG-SGTXT' t_dados-d_sgtxt,
'BSEG-ZUONR' t_dados-d_zuonr,
'BDC_OKCODE' '=PA'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT t_dados-c_newko IS INITIAL AND
t_dados-newbs EQ '50'.
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
IF NOT t_dados-d_valut IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = 'C'.
IF sy-subrc <> 0.
IF t_dados-agkoa = 'S'.
PERFORM bdc_field USING 'BSEG-VALUT' v_valut.
ENDIF.
ENDIF.
ENDIF.
IF NOT t_dados-zfbdt IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'BSEG-ZFBDT' chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt.
ENDIF.
ENDIF.
IF NOT t_dados-d_gsber IS INITIAL
AND v_div EQ 'X'.
READ TABLE itab_oculto
WITH KEY campo = 'BSEG-GSBER' chave = 'C'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
IF NOT t_dados-werks IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'COBL-WERKS' chave = 'C'.
IF sy-subrc <> 0.
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.
IF NOT t_dados-d_gsber 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.
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.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ELSE.
* << Fim da inclusão
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
IF NOT t_dados-d_valut IS INITIAL.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT' chave = 'D'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = 'D'.
* << Fim da inclusão
IF sy-subrc <> 0.
IF t_dados-agkoa = 'S'.
PERFORM bdc_field USING 'BSEG-VALUT' v_valut.
ENDIF.
ENDIF.
ENDIF.
IF NOT t_dados-zfbdt IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'BSEG-ZFBDT' chave = 'D'.
IF sy-subrc <> 0.
...
...
IF NOT t_dados-d_kostl IS INITIAL.
READ TABLE itab_oculto
WITH KEY campo = 'COBL-KOSTL' chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-KOSTL' t_dados-d_kostl.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
* << Fim da inclusão
CLEAR v_partidas.
LOOP AT t_partidas WHERE tcode = t_dados-tcode
AND tabela = t_dados-tabela
AND cpochv = t_dados-cpochv.
v_partidas = 'X'.
MOVE-CORRESPONDING t_partidas TO itab_parts.
COLLECT itab_parts.
ENDLOOP.
CLEAR: v_last, v_tabix.
LOOP AT itab_parts WHERE tcode = t_dados-tcode
...
...
SHIFT v_xpos1 LEFT DELETING LEADING '0'.
ENDWHILE.
CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_zuonr.
PERFORM bdc_screen USING 'SAPDF05X' '2000'.
PERFORM bdc_field USING 'BDC_CURSOR' v_xpos_zuonr.
PERFORM bdc_field USING v_xpos_zuonr 'X'.
PERFORM bdc_field USING 'BDC_OKCODE' '=GO'.
PERFORM bdc_screen USING 'SAPDF05X' '0731'.
PERFORM bdc_field USING 'RF05A-SEL01(01)' t_dados-c_zuonr.
IF NOT t_dados-d_zuonr IS INITIAL AND v_liqop EQ 'X'.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
SELECT SINGLE comp_aut_cc FROM /pws/zyglt009
INTO /pws/zyglt009-comp_aut_cc
WHERE bukrs = t_dados-bukrs.
IF sy-subrc NE 0 OR ( sy-subrc = 0 AND
NOT /pws/zyglt009-comp_aut_cc IS INITIAL ).
* << Fim da inclusão
PERFORM bdc_field USING 'RF05A-SEL01(02)' t_dados-d_zuonr.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
ENDIF.
* << Fim da inclusão
v_cont = 2.
ELSE.
v_cont = 1.
ENDIF.
LOOP AT t_partidas.
IF NOT t_partidas-d_zuonr IS INITIAL AND v_liqop EQ 'X'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2TOP
...
lfb1,
knb1,
t001,
tcurx,
usr01,
/pws/zycbt011,
/pws/zycbt007,
/pws/zycbt009,
j_1bam,
/pws/zycet036,
* >> Início da exclusão:
/pws/zycet037.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycet037,
/pws/zyglt009.
* << Fim da inclusão
types: begin of msg_struc,
tcode like bdcmsgcoll-tcode,
dyname like bdcmsgcoll-dyname,
dynumb like bdcmsgcoll-dynumb,
msgtyp like bdcmsgcoll-msgtyp,
msgspra like bdcmsgcoll-msgspra,
msgid like bdcmsgcoll-msgid,
msgnr like bdcmsgcoll-msgnr,
msgv1 like balm-msgv1,
msgv2 like balm-msgv2,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
itab_zycbe033a-wrbtr = itab_zycbt030-v_kwert.
ENDIF.
ELSE.
itab_zycbe033a-wrbtr = itab_zycbt030-v_kwert.
ENDIF.
ENDFORM.
FORM atualiza_zycbt004.
CLEAR v_sy_subrc.
PERFORM busca_envento_taxa.
SELECT SINGLE * FROM /pws/zyglt009
* >> Início da exclusão: FORM ATUALIZA_ZYCBT004
WHERE bukrs EQ itab_zycbt005-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT004
WHERE bukrs EQ /pws/zycbe001-bukrs.
* << Fim da inclusão
CHECK itab_zycbt005-dtcredext IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt004
WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = 'J'
AND nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND dtincl = itab_zycbt006-dtvincul
AND dtpagext = itab_zycbt006-dtpagext
AND nrparc = itab_zycbt006-nrparc
AND ( dtliquid = '00000000' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>
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.
PERFORM desm_conta_corrente.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
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.
ELSE.
PERFORM desm_conta_corrente.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
IF sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )
OR /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
<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.
ENDIF.
ENDIF.
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zycbt084 WITH KEY
nrseq_ordem = itab_zycbt231-nrseq
tdesmemb = 'O'.
IF sy-subrc = 0.
PERFORM clearing_cc.
IF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
ELSEIF sy-subrc NE 0 AND /pws/zyglt009-comp_aut_cc IS INITIAL.
PERFORM atualiza_saldo_ordem.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
EXIT.
ENDIF.
IF /pws/zycbe001-desc_receb = 'X'.
PERFORM liq_desc_rec.
ELSE.
PERFORM desmembra_ace.
ENDIF.
...
...
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
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.
v_vinc_tot = 'X'.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
IF NOT /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
LOOP AT itab_zycbt226i WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = 'ZYCBT006'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt226i-belnr_op2.
itab_partidas-agkon = itab_zycbt226i-conta_contabil.
itab_partidas-agkoa = itab_zycbe033-koart.
itab_partidas-agums = space.
...
...
SEPARATED BY space.
itab_partidas-v_sinal = '-'.
APPEND itab_partidas.
ENDLOOP.
IF sy-subrc = 0
OR itab_zycbt006-vlme NE itab_zycbt005-vlvinc
OR ( NOT itab_zycbt006-belnr_d IS INITIAL AND
itab_zycbt001-tpcontr EQ 'C' ).
CLEAR itab_zycbe033-d_zuonr.
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ELSE.
READ TABLE itab_zycbt226i WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
IF sy-subrc = 0.
itab_zycbe033-newbs = '50'.
itab_zycbe033-c_newko = itab_zycbt226i-conta_contabil.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
ENDIF.
ENDIF.
* << Fim da inclusão
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'.
READ TABLE itab_zycbt226i WITH KEY
nrseq = itab_zycbt084-nrseq_ordem.
IF sy-subrc = 0 AND itab_zycbt226i-belnr_op2 = itab_zycbt084-belnr.
...
...
READ TABLE itab_zycbt084 WITH KEY
nrseq_ordem = itab_zycbt231-nrseq
nrinvoic = itab_zycbt030-nrinvoic
tdesmemb = 'O'.
IF sy-subrc = 0.
PERFORM clearing_cc.
IF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
ELSEIF sy-subrc NE 0 AND /pws/zyglt009-comp_aut_cc IS INITIAL.
PERFORM atualiza_saldo_ordem.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
PERFORM clear_date_batch.
CLEAR: v_belnr.
LOOP AT itab_ace.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT006'.
CONCATENATE itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
INTO itab_zycbt036-cpochv.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
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.
FORM desm_conta_corrente.
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
CHECK NOT /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
PERFORM clear_date_batch.
PERFORM busca_parametros_op.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT006'.
itab_zycbe033-cpochv = /pws/zycbe005-nrseqc.
itab_zycbe033-bukrs = <fs_zycbt226>-bukrs.
itab_zycbe033-budat = v_dtpagto.
itab_zycbe033-bldat = v_dtpagto.
itab_zycbe033-blart = /pws/zycbt011-blart.
itab_zycbe033-waers = <fs_zycbt226>-waers.
...
...
itab_zycbt226i-sld_exterior = <fs_zycbt226>-sld_exterior.
itab_zycbt226i-conta_contabil = <fs_zycbt226>-conta_contabil.
APPEND itab_zycbt226i.
UPDATE /pws/zycbt226 SET belnr_op2 = <fs_zycbt226>-belnr_op2
dtlancto2 = <fs_zycbt226>-dtlancto2
sld_exterior = <fs_zycbt226>-sld_exterior
WHERE nrseq = <fs_zycbt226>-nrseq
AND nrinvoic = <fs_zycbt226>-nrinvoic
AND nrparcf = <fs_zycbt226>-nrparcf
AND gsberf = <fs_zycbt226>-gsberf.
* >> Início da inclusão: FORM ATUALIZA_TABELAS
CHECK NOT /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
CLEAR /pws/zycbt084.
/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.
/pws/zycbt084-gsberf = itab_zycbt006-gsberf.
/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.
/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.
...
...
AND dtpagext = v_dtpagext
AND dtpagto = v_dtpagto.
IF NOT itab_zycbt231[] IS INITIAL.
SELECT * FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt231
WHERE nrseq = itab_zycbt231-nrseq.
ENDIF.
ENDFORM.
FORM clearing_cc.
* >> Início da inclusão: FORM CLEARING_CC
IF NOT /pws/zyglt009-comp_aut_cc IS INITIAL.
* << Fim da inclusão
PERFORM clear_date_batch.
PERFORM busca_parametros_op.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT006'.
itab_zycbe033-cpochv = /pws/zycbe005-nrseqc.
itab_zycbe033-bukrs = <fs_zycbt226>-bukrs.
itab_zycbe033-budat = v_dtpagto.
itab_zycbe033-bldat = v_dtpagto.
itab_zycbe033-blart = /pws/zycbt011-blart.
itab_zycbe033-waers = <fs_zycbt226>-waers.
...
...
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
ENDLOOP.
ENDIF.
ELSE.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
ENDLOOP.
* >> Início da inclusão: FORM CLEARING_CC
ENDIF.
ELSE.
PERFORM atualiza_saldo_ordem.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM preenche_campos.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = <fs_zycbt226>-nrinvoic
nrparcf = <fs_zycbt226>-nrparcf
gsberf = <fs_zycbt226>-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'V_TXTINF'.
...
...
FORM atualiza_deduz_juros.
LOOP AT itab_zycbt005.
itab_zycbt005-deduz_juros = v_deduz.
MODIFY itab_zycbt005 INDEX sy-tabix.
ENDLOOP.
LOOP AT itab_zycbt006.
itab_zycbt006-deduz_juros = v_deduz.
MODIFY itab_zycbt006 INDEX sy-tabix.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM atualiza_saldo_ordem.
<fs_zycbt226>-sld_exterior =
<fs_zycbt226>-sld_exterior + itab_zycbt231-vlme.
UPDATE /pws/zycbt226
SET belnr_op2 = <fs_zycbt226>-belnr_op2
dtlancto2 = <fs_zycbt226>-dtlancto2
sld_exterior = <fs_zycbt226>-sld_exterior
WHERE nrseq = itab_zycbt231-nrseq.
itab_zycbt030-vlslliq = itab_zycbt030-vlslliq +
itab_zycbt231-vlme.
MODIFY itab_zycbt030 TRANSPORTING vlslliq
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
DELETE FROM /pws/zycbt231 WHERE nrseq = itab_zycbt231-nrseq
AND nrseqc = itab_zycbt231-nrseqc
AND dtpagext = itab_zycbt231-dtpagext
AND dtpagto = itab_zycbt231-dtpagto.
DELETE itab_zycbt231.
COMMIT WORK.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004O01
...
ENDLOOP.
ELSE.
LOOP AT TC_FATURAS-COLS INTO WA_COLS.
IF WA_COLS-INDEX = '14'.
WA_COLS-INVISIBLE = 0.
MODIFY TC_FATURAS-COLS FROM WA_COLS.
ENDIF.
ENDLOOP.
ENDIF.
SELECT SINGLE * FROM /PWS/ZYGLT009
* >> Início da exclusão: MODULE SET_SCREEN
WHERE BUKRS EQ ITAB_ZYCBT005-BUKRS.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
WHERE bukrs EQ /pws/zycbe001-bukrs.
* << Fim da inclusão
IF ( ITAB_ZYCBT005-TPCONTR(1) = 'A' or ITAB_ZYCBT005-TPCONTR(1) = 'E' )
AND /PWS/ZYGLT009-CALC_ROT_SEP = 'S'.
LOOP AT TC_FATURAS-COLS INTO WA_COLS.
IF WA_COLS-SCREEN-NAME = '/PWS/ZYCBE006-VLJUR'.
WA_COLS-SCREEN-INVISIBLE = '1'.
WA_COLS-INVISIBLE = '1'.
MODIFY TC_FATURAS-COLS FROM WA_COLS.
ENDIF.
IF WA_COLS-SCREEN-NAME = '/PWS/ZYCBE006-VLJUR_ACC'.
WA_COLS-SCREEN-INVISIBLE = '0'.
...