CE PLUS - Nota 001231
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 20/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:20:15
Descrição da Nota: REMESSA - IMPOSTOS NOVOS
Sintoma
Verificar porque o programa de remessa financeira não aceita o imposto que está registrado na tabela
/pws/zycat024. Isto é, COFINS e COFINS P.
Solução
Nos programas de: Remessa, Processar Boleto Remessa, Complemento do Boleto Remessa, Saída de
Pagamento Remessa, Arquivo Eletrônico Remessa e Relatório de Follow-up Remessas, fazer com que
considere o início do nome do imposto(CIDE,COFINS,IRRF,PIS,IOF,ISS), permitindo assim criar novos
impostos como (CIDE1, COFINS_A, PIS2, IOF_Z1, etc). Lembrando que a Remessa só pode ter um tipo de
imposto de IRRF, por exemplo, não podendo ter IRRF e IRRF2 na mesma.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01231 Data: 20/04/2006 Hora: 11:24:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01231
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00426 - 00001 - 6.0 - 00022 - AJUSTE NO RATEIO DA CONTABILIZAÇÃO
00481 - 00002 - 6.0 - 00022 - REMESSA FINANCEIRA COM IRRF DEDUZIDO DA FATURA
00564 - 00003 - 6.0 - 00022 - AGRUPAMENTO DE REMESSAS COM FORNECEDORES DIFERENTES
00723 - 00004 - 6.0 - 00022 - RECONTABILIZAÇÃO IRRF REMESSA DADOS RELEVANTES
00776 - 00005 - 6.0 - 00022 - REMESSA - ATUALIZAÇÃO DAS TABELAS MESMO QUANDO HOUVER ERROS BATCH
----------------------------------------------------------------------------------------------------
REMESSA - IMPOSTOS NOVOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA IMPOSTOS NOVOS IRRF CIDE PIS COFINS ISS IOF
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCA109 0101
DYNP /PWS/SAPMZYCB115 0201
DYNP /PWS/SAPMZYCB115 0202
DYNP /PWS/SAPMZYCB115 0203
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109I01
REPS /PWS/MZYCA109O01
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110I01
REPS /PWS/MZYCB110O01
REPS /PWS/MZYCB115F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCAR018
REPS /PWS/ZYGLR003
REPS /PWS/ZYGLR025
REPS /PWS/ZYGLR026
REPS /PWS/ZYGLR027
REPT /PWS/SAPMZYCA109
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA109 0101
...
FIELD /pws/zycbe124-frpagto MODULE consiste_frpagto.
FIELD /pws/zycbe124-vlme MODULE consiste_vlme.
MODULE ver_campos. " Verifica conteúdo dos campos da tela
LOOP AT itab_zycat025.
* >> Início da inclusão
FIELD /pws/zycae025-tpimp MODULE consiste_tipo_imposto.
* >> Fim da inclusão
CHAIN.
FIELD: /pws/zycae025-dtlanc,
/pws/zycae025-dtvencto MODULE consiste_dtvencto_imp.
ENDCHAIN.
FIELD /pws/zycae025-advalorem MODULE consiste_ad_valorem.
MODULE consiste_valores.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0201
MODIFICAR TABLE CONTROL: TC_BOLETOS1
NOME CAMPO: DE: /PWS/ZYCBE134-MARK PARA: ITAB_ZYCBT134_G-MARK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0202
MODIFICAR TABLE CONTROL: TC_BOLETOS2
NOME CAMPO: DE: /PWS/ZYCBE134-MARK PARA: ITAB_ZYCBT134-MARK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB115 0203
MODIFICAR TABLE CONTROL: TC_BOLETOS3
NOME CAMPO: DE: /PWS/ZYCBE134-MARK PARA: ITAB_ZYCBT134_PAGOS-MARK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
MOVE-CORRESPONDING itab_zycbt141 TO itab_zycbt141_aux.
APPEND itab_zycbt141_aux.
ENDLOOP.
MODIFY /pws/zycbt141 FROM TABLE itab_zycbt141_aux.
ENDIF.
* >> Início da exclusão: FORM ALTERA_DADOS
ENDIF.
* << Fim da exclusão
IF sy-tcode EQ '/PWS/ZYCB109_C'.
SET PARAMETER ID '/PWS/ZYCBP374' FIELD v_nrseq.
IF sy-binpt IS INITIAL.
LEAVE TO TRANSACTION '/PWS/ZYCB109_E' AND SKIP FIRST SCREEN.
ELSE.
LEAVE PROGRAM.
* >> Início da inclusão: FORM ALTERA_DADOS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM consiste_valores.
IF v_trans NE 'S'.
...
...
INTO (/pws/zycbe134-belnr_ci,v_dtlancir)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_ci NE ' '
AND belnr_ci NE '0000000000'
AND ( tpproc EQ 'I'
* >> Início da exclusão: FORM PREENCHE_CAMPOS
OR tpproc EQ 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'IRRF%' ).
* << Fim da inclusão
SELECT SINGLE belnr_cide dtlanc FROM /pws/zycbt134
INTO (/pws/zycbe134-belnr_cide, v_dtlanccide)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_cide NE ' '
AND belnr_cide NE '0000000000'
AND ( tpproc EQ 'C'
* >> Início da exclusão: FORM PREENCHE_CAMPOS
OR tpproc EQ 'CIDE' ).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'CIDE%' ).
* << Fim da inclusão
ENDIF.
IF /pws/zycbe124-criacao NE 'S' AND /pws/zycbe124-vlmi IS INITIAL.
/pws/zycbe124-vlmi = /pws/zycbe124-vlme * /pws/zycbe124-kursf.
ENDIF.
ENDFORM.
...
...
( /pws/zycbe124-criacao NE 'O' AND
NOT itab_zycat025[] IS INITIAL ).
IF /pws/zycbe124-frpagto = 'C' AND /pws/zycbe124-tpoper = 'P'.
IF ( /pws/zycbe124-criacao EQ 'D' OR
/pws/zycbe124-criacao EQ 'R' ).
* >> Início da exclusão: FORM EFETUA_LANCAMENTO
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X' AND
itab_zycat025-frpagto_imp = 'C'.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
DO 2 TIMES.
...
...
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004P'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004I'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004I'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004C'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004C'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004IF'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004IF'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004IS'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004IS'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004PI'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004PI'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '004CO'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
...
...
itab_zycbe035-vornr = itab_zycbt141-vornr.
itab_zycbe035-ebeln = itab_zycbt141-ebeln.
itab_zycbe035-ebelp = itab_zycbt141-ebelp.
IF p_tpimp = 'PRINCIPAL'.
CLEAR v_vlirrf.
* >> Início da exclusão: FORM PREENCHE_PARTIDA_MULTIPLA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X'.
* >> Início da exclusão: FORM PREENCHE_PARTIDA_MULTIPLA
LOOP AT itab_zycbt141_i WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
LOOP AT itab_zycbt141_i WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_vlirrf = v_vlirrf + ( ( itab_zycbt141-vlremessa *
itab_zycbt141_i-vlremessa ) / /pws/zycbe124-vlme ).
ENDLOOP.
v_vlirrf_aux = v_vlirrf.
itab_zycbe035-wrbtr = itab_zycbt141-vlremessa - v_vlirrf_aux.
...
...
APPEND itab_zycbe035.
ENDLOOP.
IF v_tot GT 0 AND p_tpimp = 'PRINCIPAL'.
DESCRIBE TABLE itab_zycbe035 LINES v_line.
READ TABLE itab_zycbe035 INDEX v_line.
* >> Início da exclusão: FORM PREENCHE_PARTIDA_MULTIPLA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_vlme = /pws/zycbe124-vlme - itab_zycat025-vlimpme.
IF v_tot GT v_vlme.
v_dif = v_tot - v_vlme.
itab_zycbe035-wrbtr = itab_zycbe035-wrbtr - v_dif.
MODIFY itab_zycbe035 INDEX v_line.
...
...
CHECK /pws/zycbe124-criacao EQ 'S' OR
( /pws/zycbe124-criacao NE 'O' AND
NOT itab_zycat025_aux[] IS INITIAL ).
IF ( /pws/zycbe124-criacao EQ 'D' OR
/pws/zycbe124-criacao EQ 'R' ).
* >> Início da exclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025_aux WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025_aux WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025_aux-dedfat = 'X' AND
NOT itab_zycat025_aux-belnr_pr IS INITIAL.
PERFORM verif_alteracoes_relevantes USING /pws/zycbe124-criacao
'PRINCIPAL'
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
* >> Início da exclusão: FORM EFETUA_ESTORNO
MESSAGE i061 WITH 'IRRF -' text-162 text-163.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
MESSAGE i061 WITH itab_zycat025_aux-tpimp '-' text-162 text-163.
* << Fim da inclusão
DO 2 TIMES.
IF sy-index <= 1 AND itab_zycat025_aux-belnr_pr IS INITIAL.
CONTINUE.
ENDIF.
IF sy-index <= 1.
...
...
LOOP AT itab_zycat025_aux WHERE NOT belnr_pr IS initial.
PERFORM verif_alteracoes_relevantes USING /pws/zycbe124-criacao
itab_zycat025_aux-tpimp
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
* >> Início da exclusão: FORM EFETUA_ESTORNO
IF itab_zycat025_aux-tpimp = 'IRRF'.
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
IF itab_zycat025_aux-tpimp(4) = 'IRRF'.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF ( sy-subrc = 0 AND
/pws/zycbe124-belnr = wa_zycbt124-belnr AND
itab_zycat025_aux-dedfat <> itab_zycat025-dedfat ) OR
( sy-subrc = 0 AND
/pws/zycbe124-belnr = wa_zycbt124-belnr AND
...
...
itab_zycat025_aux-belnr_pr
itab_zycat025_aux-dtlanc .
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025_aux WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025_aux WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND
itab_zycat025-dedfat = 'X' AND
/pws/zycbe124-belnr = wa_zycbt124-belnr.
PERFORM preenche_estorna_contabeis USING 'PRINCIPAL'
/pws/zycbe124-belnr
...
...
v_belnr_s = itab_zycbt032-belnr.
ELSE.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
* >> Início da inclusão: FORM CALL_FUNCTION_F63
itab_zycat025_aux3-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
* << Fim da inclusão
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
AND tpimp = p_tpimp.
ENDIF.
SELECT * FROM /pws/zycbt133 INTO TABLE itab_zycbt133
...
...
UPDATE /pws/zycbt124 SET belnr = /pws/zycbe124-belnr
WHERE nrseq = /pws/zycbe124-nrseq.
ELSE.
CLEAR itab_zycat025-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
* << Fim da inclusão
WHERE tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
AND tpimp = p_tpimp.
ENDIF.
...
...
ENDFORM.
FORM fill_date_f_51_princ_ir.
DATA: v_processo(1) TYPE c,
v_zuonr LIKE /pws/zycbe033-c_zuonr.
PERFORM clear_date_batch.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
CHECK erro_bi IS INITIAL AND sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe124-bukrs.
...
...
/pws/zycbe124-belnr_f51p = itab_zycbt032-belnr.
v_belnr_s = itab_zycbt032-belnr.
UPDATE /pws/zycbt124 SET belnr_f51p = /pws/zycbe124-belnr_f51p
WHERE nrseq = /pws/zycbe124-nrseq.
ELSEIF sy-index = 2.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
MESSAGE i061 WITH 'IRRF -' text-164
itab_zycbt032-belnr text-167.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
CONCATENATE itab_zycat025-tpimp '-'
INTO v_msg SEPARATED BY space.
MESSAGE i061 WITH v_msg text-164 itab_zycbt032-belnr text-167.
* << Fim da inclusão
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
WHERE tpimp(4) = 'IRRF'.
itab_zycat025_aux3-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
AND tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
AND tpimp LIKE 'IRRF%'.
* << Fim da inclusão
ENDIF.
erro_bi = ' '.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
...
...
/pws/zycbe124-belnr_f51p = space.
v_belnr_s = /pws/zycbe124-belnr.
UPDATE /pws/zycbt124 SET belnr_f51p = /pws/zycbe124-belnr_f51p
WHERE nrseq = /pws/zycbe124-nrseq.
ELSEIF sy-index = 2.
* >> Início da exclusão: FORM ANULA_DOC
MESSAGE i061 WITH 'IRRF -' text-164 p_belnr text-168.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
CONCATENATE itab_zycat025-tpimp '-'
INTO v_msg SEPARATED BY space.
MESSAGE i061 WITH v_msg text-164 p_belnr text-168.
* << Fim da inclusão
CLEAR: itab_zycat025-belnr_pr, itab_zycat025_aux-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
* >> Início da exclusão: FORM ANULA_DOC
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
MODIFY itab_zycat025_aux TRANSPORTING belnr_pr
* >> Início da exclusão: FORM ANULA_DOC
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
WHERE tpimp(4) = 'IRRF'.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM ANULA_DOC
AND tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
AND tpimp LIKE 'IRRF%'.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
...
...
ENDIF.
MOVE: itab_zycat025-tpimp TO itab_zycbt141_i-tpimp.
itab_zycbt141_i-vlremessa =
itab_zycbt141_p-vlremessa * itab_zycat025-vlimpme /
/pws/zycbe124-vlme.
* >> Início da exclusão: FORM PROPOR_RATEIO_IMPOSTO
IF ( itab_zycbt141_i-tpimp EQ 'PIS' OR
itab_zycbt141_i-tpimp EQ 'COFINS' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM PROPOR_RATEIO_IMPOSTO
IF ( itab_zycbt141_i-tpimp(3) EQ 'PIS' OR
itab_zycbt141_i-tpimp(6) EQ 'COFINS' ) AND
* << Fim da inclusão
itab_zycat025-credito EQ 'X'.
PERFORM busca_conta USING /pws/zycbe124-bukrs
'DSF'
itab_zycbt141_i-tpimp
'RECUPERAR'.
...
...
ENDFORM.
FORM elimina_item_imp.
LOOP AT itab_zycat025 WHERE mark = 'X'.
DELETE itab_zycat025.
DELETE itab_zycbt141_i WHERE tpimp = itab_zycat025-tpimp.
* >> Início da exclusão: FORM ELIMINA_ITEM_IMP
IF itab_zycat025-tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_ITEM_IMP
IF itab_zycat025-tpimp(4) = 'CIDE'.
* << Fim da inclusão
CLEAR v_control_ci.
* >> Início da exclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp(3) = 'ISS'.
* << Fim da inclusão
CLEAR v_control_is.
* >> Início da exclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp(3) = 'PIS'.
* << Fim da inclusão
CLEAR v_control_pi.
* >> Início da exclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_ITEM_IMP
ELSEIF itab_zycat025-tpimp(6) = 'COFINS'.
* << Fim da inclusão
CLEAR v_control_co.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_mc_rateio_imposto_conta.
...
...
SET PARAMETER ID '/PWS/ZYGLP104' FIELD /pws/zycbe124-codpagto.
WHEN 'R'.
SET PARAMETER ID: '/PWS/ZYGLP104' FIELD itab_zycbt141_i-tpimp,
'/PWS/ZYGLP114' FIELD /pws/zycbe124-codpagto.
WHEN 'I'.
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
CASE itab_zycbt141_i-tpimp.
WHEN 'PIS' OR 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
IF itab_zycbt141_i-tpimp(3) = 'PIS' OR
itab_zycbt141_i-tpimp(6) = 'COFINS'.
* << Fim da inclusão
SET PARAMETER ID
'/PWS/ZYGLP104' FIELD itab_zycbt141_i-tpimp.
READ TABLE itab_zycat025 WITH KEY
tpimp = itab_zycbt141_i-tpimp.
IF sy-subrc = 0 AND itab_zycat025-credito = 'X'.
SET PARAMETER ID '/PWS/ZYGLP114' FIELD 'RECUPERAR'.
ELSE.
SET PARAMETER ID '/PWS/ZYGLP114' FIELD ' '.
ENDIF.
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
WHEN 'IRRF' OR 'IOF' OR 'ISS' OR 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
ELSEIF itab_zycbt141_i-tpimp(4) = 'IRRF' OR
itab_zycbt141_i-tpimp(3) = 'IOF' OR
itab_zycbt141_i-tpimp(3) = 'ISS' OR
itab_zycbt141_i-tpimp(4) = 'CIDE'.
* << Fim da inclusão
SET PARAMETER ID:
'/PWS/ZYGLP104' FIELD itab_zycbt141_i-tpimp.
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
ENDIF.
* << Fim da inclusão
ENDCASE.
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
ENDCASE.
* << Fim da exclusão
ENDIF.
...
...
ENDCASE.
ENDLOOP.
itab_zycbe033-newbs = '31'.
IF p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_newko = /pws/zycbe124-recrem.
* >> Início da exclusão: FORM PREENCHE_GERA_CONTABEIS
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X'.
itab_zycbe033-wrbtr = p_vlme -
itab_zycat025-vlimpme.
ENDIF.
p_tpimp = 'PRINCIPAL'.
...
...
UPDATE /pws/zycbt124 SET belnr = /pws/zycbe124-belnr
WHERE nrseq = /pws/zycbe124-nrseq.
ELSE.
CLEAR itab_zycat025-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
* >> Início da inclusão: FORM PREENCHE_ESTORNA_CONTABEIS
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
* << Fim da inclusão
WHERE tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
AND tpimp = p_tpimp.
ENDIF.
...
...
LOOP AT itab_zycbt141_p WHERE tpimp = p_tpimp.
MOVE itab_zycbt141_p TO itab_zycbt141_p2.
APPEND itab_zycbt141_p2.
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_codeven = '004I'.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
v_codeven = '004C'.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
v_codeven = '004IF'.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
v_codeven = '004IS'.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
v_codeven = '004PI'.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
v_codeven = '004CO'.
ENDIF.
LOOP AT itab_zycbt141_i_aux WHERE tpimp = p_tpimp.
MOVE itab_zycbt141_i_aux TO itab_zycbt141_i_aux2.
APPEND itab_zycbt141_i_aux2.
...
...
PERFORM verifica_campos_parmetrizaveis USING v_codeven
p_estorna.
IF p_estorna = 'X'.
EXIT.
ENDIF.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc NE 0 OR itab_zycat025 NE itab_zycat025_aux.
p_estorna = 'X'.
EXIT.
ENDIF.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
LOOP AT itab_zycbt141_i_aux WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
LOOP AT itab_zycbt141_i_aux WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
MOVE itab_zycbt141_i_aux TO itab_zycbt141_i_aux2.
APPEND itab_zycbt141_i_aux2.
ENDLOOP.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
LOOP AT itab_zycbt141_i WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
LOOP AT itab_zycbt141_i WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
MOVE itab_zycbt141_i TO itab_zycbt141_i2.
APPEND itab_zycbt141_i2.
ENDLOOP.
IF itab_zycbt141_i_aux2[] NE itab_zycbt141_i2[].
p_estorna = 'X'.
EXIT.
ENDIF.
ELSEIF ( p_tpimp NE 'PRINCIPAL' AND
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
p_tpimp NE 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
p_tpimp(4) NE 'IRRF' AND
* << Fim da inclusão
p_criacao NE 'S' AND
itab_zycat025_aux-dedfat EQ 'X' ) OR
( p_tpimp NE 'PRINCIPAL' AND
p_criacao NE 'S' AND
itab_zycat025_aux-dedfat EQ ' ' ) OR
...
...
IF p_tpimp EQ 'PRINCIPAL'.
IF itab_zycbt141_p_aux2[] NE itab_zycbt141_p2[].
p_estorna = 'X'.
EXIT.
ENDIF.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025_aux WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025_aux WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
dedfat = 'X'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc NE 0.
p_estorna = 'X'.
ELSEIF sy-subrc = 0 AND
( itab_zycat025_aux-vlimpme NE itab_zycat025-vlimpme OR
itab_zycat025_aux-dedfat NE itab_zycat025-dedfat ).
p_estorna = 'X'.
ENDIF.
ELSE.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
dedfat = 'X'.
IF sy-subrc EQ 0.
p_estorna = 'X'.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpimp.
IF sy-subrc NE 0 OR itab_zycat025 NE itab_zycat025_aux.
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
IF p_tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
IF p_tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
itab_zycat025_aux-advalorem EQ itab_zycat025-advalorem AND
itab_zycat025_aux-basecalc EQ itab_zycat025-basecalc AND
itab_zycat025_aux-vlimpme EQ itab_zycat025-vlimpme AND
itab_zycat025_aux-vlimpmi EQ itab_zycat025-vlimpmi AND
itab_zycat025_aux-reajbase EQ itab_zycat025-reajbase AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109I01
...
IF sy-subrc = 0.
itab_zycat025-dtpagto = /pws/zycbt134-dtlanc.
itab_zycat025-belnr_pg = /pws/zycbt134-belnr_c.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
IF itab_zycat025-tpimp(4) = 'IRRF'.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0200
IF itab_zycat025-tpimp = 'IRRF'.
v_basecalc_irrf = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp = 'CIDE'.
v_basecalc_cide = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp = 'IOF'.
v_basecalc_iof = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp = 'ISS'.
v_basecalc_iss = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp = 'PIS'.
v_basecalc_pis = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp = 'COFINS'.
v_basecalc_cofins = itab_zycat025-basecalc.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
v_basecalc_irrf = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp(4) = 'CIDE'.
v_basecalc_cide = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp(3) = 'IOF'.
v_basecalc_iof = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp(3) = 'ISS'.
v_basecalc_iss = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp(3) = 'PIS'.
v_basecalc_pis = itab_zycat025-basecalc.
ELSEIF itab_zycat025-tpimp(6) = 'COFINS'.
v_basecalc_cofins = itab_zycat025-basecalc.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycat025.
ENDLOOP.
itab_zycat025_aux[] = itab_zycat025[].
itab_zycat025_aux2[] = itab_zycat025[].
...
...
tpimp EQ 'PRINCIPAL'.
SELECT *
FROM /pws/zycbt141
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt141_i
WHERE nrseq EQ v_nrseq AND
* >> Início da exclusão: MODULE USER_COMMAND_0200
( tpimp EQ 'CIDE' OR
tpimp EQ 'COFINS' OR
tpimp EQ 'IOF' OR
tpimp EQ 'IRRF' OR
tpimp EQ 'ISS' OR
tpimp EQ 'PIS' ).
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
( tpimp LIKE 'CIDE%' OR
tpimp LIKE 'COFINS%' OR
tpimp LIKE 'IOF%' OR
tpimp LIKE 'IRRF%' OR
tpimp LIKE 'ISS%' OR
tpimp LIKE 'PIS%' ).
* << Fim da inclusão
SORT itab_zycbt141_i BY tpimp.
itab_zycbt141_p_aux[] = itab_zycbt141_p[].
itab_zycbt141_p_aux3[] = itab_zycbt141_p[].
itab_zycbt141_i_aux[] = itab_zycbt141_i[].
v_aliqpis = /pws/zycbe124-aliqpis.
...
...
ELSE.
/pws/zycae025-dtvencto = /pws/zycbe124-dtvencto.
ENDIF.
ENDIF.
v_dtvencto_ant = /pws/zycbe124-dtvencto.
* >> Início da exclusão: MODULE CONSISTE_VALORES
IF /pws/zycae025-tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
IF /pws/zycae025-tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_irrf IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_irrf.
/pws/zycae025-basecalc = v_basecalc_irrf.
...
...
ENDIF.
v_basecalc_irrf = /pws/zycae025-basecalc.
ENDIF.
/pws/zycae025-vlimpme =
/pws/zycae025-basecalc * ( /pws/zycae025-advalorem / 100 ).
* >> Início da exclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_cide IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_cide.
/pws/zycae025-basecalc = v_basecalc_cide.
MESSAGE i061 WITH /pws/zycae025-tpimp text-173 text-174.
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X' AND
/pws/zycbe124-vlme => itab_zycat025-vlimpme.
v_valorme = /pws/zycbe124-vlme - itab_zycat025-vlimpme.
ELSE.
v_valorme = /pws/zycbe124-vlme.
...
...
ENDIF.
v_basecalc_cide = /pws/zycae025-basecalc.
ENDIF.
/pws/zycae025-vlimpme =
/pws/zycae025-basecalc * ( /pws/zycae025-advalorem / 100 ).
* >> Início da exclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp(3) = 'IOF'.
* << Fim da inclusão
IF /pws/zycae025-reducao GT '100.00000'.
MESSAGE w015 WITH text-177 text-015.
CLEAR /pws/zycae025-reducao.
ENDIF.
IF itab_zycat024-altera_base IS INITIAL AND
...
...
ENDIF.
v_reducao = /pws/zycae025-basecalc *
( /pws/zycae025-reducao / 100 ).
/pws/zycae025-vlimpme = ( /pws/zycae025-basecalc - v_reducao ) *
( /pws/zycae025-advalorem / 100 ).
* >> Início da exclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp(3) = 'ISS'.
* << Fim da inclusão
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_iss IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_iss.
/pws/zycae025-basecalc = v_basecalc_iss.
...
...
/pws/zycae025-basecalc = /pws/zycbe124-vlme.
v_basecalc_iss = /pws/zycae025-basecalc.
ENDIF.
/pws/zycae025-vlimpme =
/pws/zycae025-basecalc * ( /pws/zycae025-advalorem / 100 ).
* >> Início da exclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp(3) = 'PIS'.
* << Fim da inclusão
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_pis IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_pis.
/pws/zycae025-basecalc = v_basecalc_pis.
...
...
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
CLEAR itab_zycat025-advalorem.
v_advalorem = 100.
v_advalorem2 = 100.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem = v_advalorem + itab_zycat025-advalorem.
ELSE.
v_advalorem = v_advalorem + /pws/zycbe124-aliqiss.
ENDIF.
v_advalorem2 = v_advalorem2 - /pws/zycae025-advalorem.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
ENDIF.
/pws/zycae025-basecalc = /pws/zycbe124-vlme *
( v_advalorem / v_advalorem2 ).
v_basecalc_pis = /pws/zycae025-basecalc.
ENDIF.
/pws/zycae025-vlimpme =
/pws/zycae025-basecalc * ( /pws/zycae025-advalorem / 100 ).
* >> Início da exclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
ELSEIF /pws/zycae025-tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF itab_zycat024-altera_base IS INITIAL AND
NOT /pws/zycae025-basecalc IS INITIAL AND
NOT v_basecalc_cofins IS INITIAL AND
/pws/zycae025-basecalc NE v_basecalc_cofins.
/pws/zycae025-basecalc = v_basecalc_cofins.
...
...
ELSEIF itab_zycat024-altera_base IS INITIAL OR
/pws/zycae025-basecalc IS INITIAL.
CLEAR itab_zycat025-advalorem.
v_advalorem = 100.
v_advalorem2 = 100.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem = v_advalorem + itab_zycat025-advalorem.
ELSE.
v_advalorem = v_advalorem + /pws/zycbe124-aliqiss.
ENDIF.
v_advalorem2 = v_advalorem2 - /pws/zycae025-advalorem.
* >> Início da exclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
ENDIF.
/pws/zycae025-basecalc = /pws/zycbe124-vlme *
( v_advalorem / v_advalorem2 ).
...
...
i_zexit_nao_encontrado = 3
OTHERS = 4.
SORT itab_zycat025 BY tpimp.
DELETE ADJACENT DUPLICATES FROM itab_zycat025 COMPARING tpimp.
itab_zycat025_aux2[] = itab_zycat025[].
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF sy-subrc = 0.
v_control_ci = v_control_ci + 1.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc EQ 0 AND
( ( itab_zycat024-altera_base IS INITIAL OR
itab_zycat025-basecalc IS INITIAL ) OR
( v_control_ci EQ 1 AND
sy-tcode EQ '/PWS/ZYCB109_C' ) ).
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_zycat025_aux2-dedfat = 'X' AND
/pws/zycbe124-vlme => itab_zycat025_aux2-vlimpme.
v_valorme = /pws/zycbe124-vlme - itab_zycat025_aux2-vlimpme.
ELSE.
v_valorme = /pws/zycbe124-vlme.
...
...
v_vlme = itab_zycat025-vlimpme.
ENDIF.
itab_zycat025-vlimpmi = ( ( v_kursf / v_defator ) * v_parafator )
* v_vlme.
MODIFY itab_zycat025 TRANSPORTING basecalc vlimpme vlimpmi
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp(4) = 'CIDE'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
IF sy-subrc = 0.
v_control_is = v_control_is + 1.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0.
IF not itab_zyglt100-zexit_ativa IS INITIAL.
...
...
v_vlme = itab_zycat025-vlimpme.
ENDIF.
itab_zycat025-vlimpmi = ( ( v_kursf / v_defator ) * v_parafator )
* v_vlme.
MODIFY itab_zycat025 TRANSPORTING basecalc vlimpme vlimpmi
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp(3) = 'ISS'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_control_pi = v_control_pi + 1.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc EQ 0 AND
...
...
( v_control_pi EQ 1 AND
sy-tcode EQ '/PWS/ZYCB109_C' ) ).
CLEAR itab_zycat025_aux2-advalorem.
v_advalorem = 100.
v_advalorem2 = 100.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem = v_advalorem + itab_zycat025_aux2-advalorem.
ELSE.
v_advalorem = v_advalorem + /pws/zycbe124-aliqiss.
ENDIF.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025_aux2-advalorem.
ENDIF.
itab_zycat025-basecalc = /pws/zycbe124-vlme *
( v_advalorem / v_advalorem2 ).
...
...
v_vlme = itab_zycat025-vlimpme.
ENDIF.
itab_zycat025-vlimpmi = ( ( v_kursf / v_defator ) * v_parafator )
* v_vlme.
MODIFY itab_zycat025 TRANSPORTING basecalc vlimpme vlimpmi
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp(3) = 'PIS'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025 WITH KEY tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_control_co = v_control_co + 1.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc EQ 0 AND
...
...
( v_control_co EQ 1 AND
sy-tcode EQ '/PWS/ZYCB109_C' ) ).
CLEAR itab_zycat025_aux2-advalorem.
v_advalorem = 100.
v_advalorem2 = 100.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem = v_advalorem + itab_zycat025_aux2-advalorem.
ELSE.
v_advalorem = v_advalorem + /pws/zycbe124-aliqiss.
ENDIF.
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
READ TABLE itab_zycat025_aux2 WITH KEY tpimp(3) = 'PIS'.
* << Fim da inclusão
IF sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025_aux2-advalorem.
ENDIF.
itab_zycat025-basecalc = /pws/zycbe124-vlme *
( v_advalorem / v_advalorem2 ).
...
...
v_vlme = itab_zycat025-vlimpme.
ENDIF.
itab_zycat025-vlimpmi = ( ( v_kursf / v_defator ) * v_parafator )
* v_vlme.
MODIFY itab_zycat025 TRANSPORTING basecalc vlimpme vlimpmi
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
WHERE tpimp(6) = 'COFINS'.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE set_mc_rateio_imposto_conta INPUT.
PERFORM set_mc_rateio_imposto_conta.
ENDMODULE.
...
...
MODULE consiste_conta_i INPUT.
CHECK v_status_s NE 0.
READ TABLE itab_zycat024 WITH KEY tpimp = /pws/zycbe141-tpimp.
CHECK sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
READ TABLE itab_zycat025 WITH KEY tpimp = /pws/zycbe141-tpimp.
* >> Início da exclusão: MODULE CONSISTE_CONTA_I
IF ( /pws/zycbe141-tpimp EQ 'PIS' OR
/pws/zycbe141-tpimp EQ 'COFINS' ) AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_CONTA_I
IF ( /pws/zycbe141-tpimp(3) EQ 'PIS' OR
/pws/zycbe141-tpimp(6) EQ 'COFINS' ) AND
* << Fim da inclusão
sy-subrc EQ 0 AND
itab_zycat025-credito EQ 'X'.
PERFORM busca_conta USING /pws/zycbe124-bukrs
'DSF'
/pws/zycbe141-tpimp
...
...
IF NOT /pws/zycae025-aliqgera IS INITIAL AND
/pws/zycae025-advalorem IS INITIAL.
MESSAGE e061 WITH text-172.
ENDIF.
ENDMODULE.
* >> Início da inclusão:
MODULE consiste_tipo_imposto INPUT.
READ TABLE itab_zycat025 WITH KEY tpimp(3) = /pws/zycae025-tpimp(3).
IF sy-subrc = 0 AND NOT /pws/zycae025-tpimp = itab_zycat025-tpimp.
MESSAGE e061 WITH text-178.
ELSE.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = /pws/zycae025-tpimp(4).
IF sy-subrc = 0 AND NOT /pws/zycae025-tpimp = itab_zycat025-tpimp.
MESSAGE e061 WITH text-178.
ELSE.
READ TABLE itab_zycat025 WITH KEY
tpimp(6) = /pws/zycae025-tpimp(6).
IF sy-subrc = 0 AND NOT /pws/zycae025-tpimp = itab_zycat025-tpimp.
MESSAGE e061 WITH text-178.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109O01
...
/pws/zycae025 = itab_zycat025.
mark = itab_zycat025-mark.
tc_cab-lines = tc_cab-lines + 6.
IF v_status_s = '1'.
LOOP AT SCREEN.
* >> Início da exclusão: MODULE CARREGA_TELA
IF itab_zycat025-tpimp = 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TELA
IF itab_zycat025-tpimp(4) = 'IRRF' AND
* << Fim da inclusão
( screen-name = '/PWS/ZYCAE025-REDUCAO' OR
screen-name = '/PWS/ZYCAE025-CREDITO' ).
IF screen-name = '/PWS/ZYCAE025-REDUCAO' and
/pws/zycae025-reducao GT 0.
CLEAR /pws/zycae025-reducao.
ENDIF.
screen-input = '0'.
* >> Início da exclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp = 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp(4) = 'CIDE' AND
* << Fim da inclusão
( screen-name = '/PWS/ZYCAE025-REDUCAO' OR
screen-name = '/PWS/ZYCAE025-CREDITO' OR
screen-name = '/PWS/ZYCAE025-DEDFAT' ).
IF screen-name = '/PWS/ZYCAE025-REDUCAO' and
/pws/zycae025-reducao GT 0.
CLEAR /pws/zycae025-reducao.
ENDIF.
screen-input = '0'.
* >> Início da exclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp = 'IOF' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp(3) = 'IOF' AND
* << Fim da inclusão
( screen-name = '/PWS/ZYCAE025-REAJBASE' OR
screen-name = '/PWS/ZYCAE025-DEDFAT' OR
screen-name = '/PWS/ZYCAE025-CODRF' OR
screen-name = '/PWS/ZYCAE025-CREDITO' ).
screen-input = '0'.
* >> Início da exclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp = 'ISS' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TELA
ELSEIF itab_zycat025-tpimp(3) = 'ISS' AND
* << Fim da inclusão
( screen-name = '/PWS/ZYCAE025-REAJBASE' OR
screen-name = '/PWS/ZYCAE025-DEDFAT' OR
screen-name = '/PWS/ZYCAE025-REDUCAO' OR
screen-name = '/PWS/ZYCAE025-CODRF' OR
screen-name = '/PWS/ZYCAE025-CREDITO' ).
IF screen-name = '/PWS/ZYCAE025-REDUCAO' and
/pws/zycae025-reducao GT 0.
CLEAR /pws/zycae025-reducao.
ENDIF.
screen-input = '0'.
* >> Início da exclusão: MODULE CARREGA_TELA
ELSEIF ( itab_zycat025-tpimp = 'PIS' OR
itab_zycat025-tpimp = 'COFINS' ) AND
( screen-name = '/PWS/ZYCAE025-REAJBASE' OR
screen-name = '/PWS/ZYCAE025-DEDFAT' OR
screen-name = '/PWS/ZYCAE025-REDUCAO' OR
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_TELA
ELSEIF ( itab_zycat025-tpimp(3) = 'PIS' OR
itab_zycat025-tpimp(6) = 'COFINS' ) AND
( screen-name = '/PWS/ZYCAE025-REAJBASE' OR
screen-name = '/PWS/ZYCAE025-DEDFAT' OR
screen-name = '/PWS/ZYCAE025-REDUCAO' OR
* << Fim da inclusão
screen-name = '/PWS/ZYCAE025-CODRF' ).
IF screen-name = '/PWS/ZYCAE025-REDUCAO' and
/pws/zycae025-reducao GT 0.
CLEAR /pws/zycae025-reducao.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
PERFORM limpa_status_liberacao.
ENDIF.
LOOP AT itab_dados_tc WHERE tpimp NE 'PRINCIPAL'.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_dados_tc-tpimp.
IF sy-subrc = 0.
* >> Início da exclusão: FORM CONTABILIZA_CP
IF itab_dados_tc-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
IF itab_dados_tc-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_irrf = 'S'.
* >> Início da exclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp EQ 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp(4) EQ 'CIDE' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_cide = 'S'.
* >> Início da exclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp EQ 'PIS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp(3) EQ 'PIS' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_pis = 'S'.
* >> Início da exclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp EQ 'COFINS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp(6) EQ 'COFINS' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_cofins = 'S'.
* >> Início da exclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp EQ 'ISS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp(3) EQ 'ISS' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_iss = 'S'.
* >> Início da exclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp EQ 'IOF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CP
ELSEIF itab_dados_tc-tpimp(3) EQ 'IOF' AND
* << Fim da inclusão
NOT itab_zycat024-cont_imp IS INITIAL.
v_cont_iof = 'S'.
ENDIF.
ENDIF.
ENDLOOP.
...
...
WHERE
bukrs EQ itab_zycbt124-bukrs AND
nrseq EQ itab_zycbt124-nrseq.
ENDIF.
LOOP AT itab_zycat025.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
CASE itab_zycat025-tpimp.
WHEN 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
IF itab_zycat025-tpimp(4) = 'CIDE'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vlcide.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHEN 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ELSEIF itab_zycat025-tpimp(6) = 'COFINS'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vlcofins.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHEN 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ELSEIF itab_zycat025-tpimp(3) = 'IOF'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vliof.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHEN 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ELSEIF itab_zycat025-tpimp(4) = 'IRRF'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vlir.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHEN 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ELSEIF itab_zycat025-tpimp(3) = 'ISS'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vliss.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHEN 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ELSEIF itab_zycat025-tpimp(3) = 'PIS'.
* << Fim da inclusão
PERFORM verifica_casas_decimais
USING
itab_zycat025-vlimpme
itab_zycbt124-waers
CHANGING
itab_boleto-vlpis.
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
ENDIF.
* << Fim da inclusão
ENDLOOP.
ELSEIF itab_zycbt124-tpoper = 'R'.
CONCATENATE text-056 /pws/zycbt125-descricao INTO v_tipo2
SEPARATED BY space.
ENDIF.
...
...
itab_zycbe035-vornr = itab_zycbt141-vornr.
itab_zycbe035-ebeln = itab_zycbt141-ebeln.
itab_zycbe035-ebelp = itab_zycbt141-ebelp.
IF p_tpimp = 'PRINCIPAL'.
CLEAR v_vlirrf.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt141-nrseq.
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X'.
LOOP AT itab_zycbt124_aux WHERE nrseq = itab_zycbt141-nrseq.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
LOOP AT itab_zycbt141_i WHERE tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
LOOP AT itab_zycbt141_i WHERE tpimp(4) = 'IRRF'
* << Fim da inclusão
AND nrseq = itab_zycbt124_aux-nrseq.
v_vlirrf = v_vlirrf + ( ( itab_zycbt141-vlremessa *
itab_zycbt141_i-vlremessa ) / itab_zycbt124_aux-vlme ).
ENDLOOP.
ENDLOOP.
...
...
itab_dados_tc-vlmi < v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
IF p_tpimp = 'PRINCIPAL'.
/pws/zycbe031-vlmi = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-vlmiir = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-vlmicide = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
/pws/zycbe145-vlmipis = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-vlmicofins = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
/pws/zycbe145-vlmiiss = v_total_mi.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
/pws/zycbe145-vlmiiof = v_total_mi.
ENDIF.
ENDIF.
ENDFORM.
FORM contabiliza_tv.
...
...
/pws/zycbe031-vlmi < v_total_mi.
/pws/zycbe031-vlmi = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF itab_dados_tc-pagtoirrf = 'BCO'.
IF v_cont_irrf_bco = ' ' AND /pws/zycbe031-belnr_pi IS INITIAL.
PERFORM compensa_empresa_cp USING p_tpimp.
ENDIF.
ELSE.
...
...
/pws/zycbe031-vlmiir < v_total_mi.
/pws/zycbe031-vlmiir = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF itab_dados_tc-pagtoirrf = 'BCO'.
IF v_cont_cide_bco = ' ' AND /pws/zycbe031-belnr_cide IS INITIAL.
PERFORM compensa_empresa_cp USING p_tpimp.
ENDIF.
ELSE.
...
...
/pws/zycbe031-vlmicide < v_total_mi.
/pws/zycbe031-vlmicide = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
/pws/zycbe145-belnr_iof = itab_zycat025-belnr_pr.
IF /pws/zycbe145-belnr_iof IS INITIAL AND
NOT itab_zycat024-cont_imp IS INITIAL.
erro_bi = 'X'.
ENDIF.
...
...
/pws/zycbe145-vlmiiof < v_total_mi.
/pws/zycbe145-vlmiiof = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
/pws/zycbe145-belnr_iss = itab_zycat025-belnr_pr.
IF /pws/zycbe145-belnr_iss IS INITIAL AND
NOT itab_zycat024-cont_imp IS INITIAL.
erro_bi = 'X'.
ENDIF.
...
...
/pws/zycbe145-vlmiiss < v_total_mi.
/pws/zycbe145-vlmiiss = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
/pws/zycbe145-belnr_pis = itab_zycat025-belnr_pr.
IF /pws/zycbe145-belnr_pis IS INITIAL AND
NOT itab_zycat024-cont_imp IS INITIAL.
erro_bi = 'X'.
ENDIF.
...
...
/pws/zycbe145-vlmipis < v_total_mi.
/pws/zycbe145-vlmipis = v_total_mi.
itab_dados_tc-vlmi = v_total_mi.
MODIFY itab_dados_tc TRANSPORTING vlmi WHERE tpimp = p_tpimp.
ENDIF.
* >> Início da exclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_REG_COMPET_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-belnr_cofins = itab_zycat025-belnr_pr.
IF /pws/zycbe145-belnr_cofins IS INITIAL AND
NOT itab_zycat024-cont_imp IS INITIAL.
erro_bi = 'X'.
ENDIF.
...
...
ENDLOOP.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF NOT /pws/zycbe031-dtcredir IS INITIAL.
itab_zycbe033-budat = /pws/zycbe031-dtcredir.
ELSE.
itab_zycbe033-budat = /pws/zycbe031-dtcredpr.
ENDIF.
...
...
ENDIF.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
itab_zycbe033-belnr = /pws/zycbe031-belnr_pi.
itab_zycbe033-wrbtr = /pws/zycbe031-vlir.
itab_zycbe033-dmbtr = /pws/zycbe031-vlmiir.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF NOT /pws/zycbe031-dtcide IS INITIAL.
itab_zycbe033-budat = /pws/zycbe031-dtcide.
ELSE.
itab_zycbe033-budat = /pws/zycbe031-dtcredpr.
ENDIF.
...
...
tabela = '/PWS/ZYCBT124'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i218 WITH itab_zycbt032-belnr.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
/pws/zycbe031-statuspi = 'C'.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
itab_zycbt031-belnr_pi = /pws/zycbe031-belnr_pi.
itab_zycbt031-statuspi = 'C'.
...
...
WHERE nrseq = /pws/zycbe031-nrseq.
itab_zycbt031_tc-belnr_pi = /pws/zycbe031-belnr_pi.
MODIFY itab_zycbt031_tc TRANSPORTING belnr_pi
WHERE nrseq = /pws/zycbe031-nrseq.
itab_dados_tc-belnr = /pws/zycbe031-belnr_pi.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
MODIFY itab_dados_tc TRANSPORTING belnr WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
MODIFY itab_dados_tc TRANSPORTING belnr
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
itab_dados_tc_aux-belnr = /pws/zycbe031-belnr_pi.
MODIFY itab_dados_tc_aux TRANSPORTING belnr
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_cont_irrf_bco = 'X'.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-belnr_cide = itab_zycbt032-belnr.
/pws/zycbe031-statuspc = 'C'.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
itab_zycbt031-belnr_cide = /pws/zycbe031-belnr_cide.
itab_zycbt031-statuspc = 'C'.
...
...
WHERE nrseq = /pws/zycbe031-nrseq.
itab_zycbt031_tc-belnr_cide = /pws/zycbe031-belnr_cide.
MODIFY itab_zycbt031_tc TRANSPORTING belnr_cide
WHERE nrseq = /pws/zycbe031-nrseq.
itab_dados_tc-belnr = /pws/zycbe031-belnr_cide.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
MODIFY itab_dados_tc TRANSPORTING belnr WHERE tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
MODIFY itab_dados_tc TRANSPORTING belnr
WHERE tpimp(4) = 'CIDE'.
* << Fim da inclusão
itab_dados_tc_aux-belnr = /pws/zycbe031-belnr_cide.
MODIFY itab_dados_tc_aux TRANSPORTING belnr
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
WHERE tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
WHERE tpimp(4) = 'CIDE'.
* << Fim da inclusão
v_cont_cide_bco = 'X'.
ENDIF.
ELSE.
erro_bi = 'X'.
LOOP AT itab_zycbt032.
...
...
IF sy-subrc = 0.
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe031-taxair.
itab_dados_tc-waers = /pws/zycbe031-waers.
...
...
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
ENDIF.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe031-taxacide.
itab_dados_tc-waers = /pws/zycbe031-waers.
...
...
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
ENDIF.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'IOF'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe145-taxaiof.
itab_dados_tc-waers = /pws/zycbe031-waers.
...
...
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
ENDIF.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe145-taxaiss.
itab_dados_tc-waers = /pws/zycbe031-waers.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
LOOP AT itab_zycbt141 WHERE tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
LOOP AT itab_zycbt141 WHERE tpimp(3) = 'ISS'.
* << Fim da inclusão
itab_dados_tc-vlme = itab_dados_tc-vlme +
itab_zycbt141-vlremessa.
ENDLOOP.
itab_dados_tc-vlmi = /pws/zycbe145-vlmiiss.
itab_dados_tc-bcooper = /pws/zycbe145-bcoopiss.
...
...
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
ENDIF.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe145-taxapis.
itab_dados_tc-waers = /pws/zycbe031-waers.
...
...
itab_dados_tc-belnrpag = itab_zycbt134-belnr_c.
ENDIF.
APPEND itab_dados_tc.
ENDIF.
CLEAR itab_dados_tc.
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
READ TABLE itab_zycat025 WITH KEY tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF sy-subrc = 0.
itab_dados_tc-index = 1.
itab_dados_tc-tpimp = itab_zycat025-tpimp.
itab_dados_tc-kursf = /pws/zycbe145-taxacofins.
itab_dados_tc-waers = /pws/zycbe031-waers.
...
...
LOOP AT itab_dados_tc WHERE tpimp NE 'PRINCIPAL'.
itab_dados_tc-kursf = wa_tcurr-ukurs.
itab_dados_tc-vlmi = itab_dados_tc-vlme *
itab_dados_tc-kursf.
MODIFY itab_dados_tc INDEX sy-tabix.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
IF itab_dados_tc-tpimp EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
IF itab_dados_tc-tpimp(4) EQ 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-taxair = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(4) EQ 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-taxacide = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'IOF'.
* << Fim da inclusão
/pws/zycbe145-taxaiof = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'ISS'.
* << Fim da inclusão
/pws/zycbe145-taxaiss = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'PIS'.
* << Fim da inclusão
/pws/zycbe145-taxapis = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(6) EQ 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-taxacofins = itab_dados_tc-kursf.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_dados_tc WHERE tpimp NE 'PRINCIPAL'.
itab_dados_tc-kursf = /pws/zycbe031-kursf.
itab_dados_tc-vlmi = itab_dados_tc-vlme *
itab_dados_tc-kursf.
MODIFY itab_dados_tc INDEX sy-tabix.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
IF itab_dados_tc-tpimp EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
IF itab_dados_tc-tpimp(4) EQ 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-taxair = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(4) EQ 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-taxacide = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'IOF'.
* << Fim da inclusão
/pws/zycbe145-taxaiof = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'ISS'.
* << Fim da inclusão
/pws/zycbe145-taxaiss = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(3) EQ 'PIS'.
* << Fim da inclusão
/pws/zycbe145-taxapis = itab_dados_tc-kursf.
* >> Início da exclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp EQ 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PROPOE_TAXA
ELSEIF itab_dados_tc-tpimp(6) EQ 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-taxacofins = itab_dados_tc-kursf.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
...
...
IF NOT /pws/zycbt127-nrseq IS INITIAL.
v_codeven = '004PV'.
ELSE.
v_codeven = '004P'.
ENDIF.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_codeven = '004I'.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
v_codeven = '004C'.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
v_codeven = '004IF'.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
v_codeven = '004IS'.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
v_codeven = '004PI'.
* >> Início da exclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
v_codeven = '004CO'.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'F'.
...
...
ENDLOOP.
itab_zycbe033-newbs = '31'.
IF p_recuperar IS INITIAL AND
p_recontabiliza IS INITIAL AND
( ( /pws/zycbe145-cod_fech EQ 'TR' AND
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
p_tpimp NE 'IRRF' AND
p_tpimp NE 'CIDE' ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
p_tpimp(4) NE 'IRRF' AND
p_tpimp(4) NE 'CIDE' ) OR
* << Fim da inclusão
( /pws/zycbe145-cod_fech EQ 'TR' AND
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
( p_tpimp EQ 'IRRF' OR
p_tpimp EQ 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
( p_tpimp(4) EQ 'IRRF' OR
p_tpimp(4) EQ 'CIDE' ) AND
* << Fim da inclusão
itab_dados_tc-pagtoirrf EQ 'BCO' ) ).
itab_zycbe033-agkon = itab_dados_tc-bcooper.
itab_zycbe033-c_newko = itab_dados_tc-bcooper.
itab_zycbe033-newbs1 = '31'.
itab_zycbe033-c_prctr = itab_zycbt124_aux-prctr.
...
...
ELSEIF p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_newko = itab_zycbt124_aux-recrem.
itab_zycbe033-agkon = itab_zycbt124_aux-recrem.
itab_zycbe033-c_prctr = itab_zycbt124_aux-prctr.
ELSE.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
IF ( p_tpimp EQ 'IRRF' OR p_tpimp EQ 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
IF ( p_tpimp(4) EQ 'IRRF' OR p_tpimp(4) EQ 'CIDE' ) AND
* << Fim da inclusão
itab_dados_tc-pagtoirrf EQ 'BCO' AND
p_recontabiliza IS INITIAL AND
p_recuperar IS INITIAL.
itab_zycbe033-c_newko = itab_dados_tc-bcooper.
ELSE.
...
...
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
ENDLOOP.
ENDLOOP.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-belnr_cide = itab_zycbt032-belnr.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
/pws/zycbe145-belnr_iof = itab_zycbt032-belnr.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
/pws/zycbe145-belnr_iss = itab_zycbt032-belnr.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
/pws/zycbe145-belnr_pis = itab_zycbt032-belnr.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-belnr_cofins = itab_zycbt032-belnr.
ENDIF.
ENDIF.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
...
...
WHERE nrseq = itab_zycbt124_aux-nrseq.
ENDLOOP.
CLEAR: /pws/zycbe031-statusp, /pws/zycbe031-belnr_p.
ELSE.
IF NOT p_recuperar IS INITIAL.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
IF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
IF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
CLEAR /pws/zycbe031-belnrpisrecup.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
CLEAR /pws/zycbe031-belnrcofinsrecup.
ENDIF.
ELSE.
LOOP AT itab_zycbt124_aux.
LOOP AT itab_zycat025 WHERE tpimp = p_tpimp
...
...
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
ENDLOOP.
ENDLOOP.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_pi.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_cide.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iof.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iss.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_pis.
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_cofins.
ENDIF.
ENDIF.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
...
...
CLEAR: itab_zycbt124_aux-statusp,
/pws/zycbe031-statusp,
/pws/zycbe031-belnr_p.
UPDATE /pws/zycbt124 SET statusp = itab_zycbt124_aux-statusp
WHERE nrseq = itab_zycbt124_aux-nrseq.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF itab_dados_tc_aux-pagtoirrf EQ 'BCO' AND
NOT itab_dados_tc_aux-belnr IS INITIAL.
IF v_esto_irrf_bco = ' '.
PERFORM anula_compensacao_cp USING p_tpimp
itab_dados_tc_aux-belnr
...
...
ENDIF.
ELSE.
CLEAR: /pws/zycbe031-statuspi,
/pws/zycbe031-belnr_pi.
ENDIF.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF itab_dados_tc_aux-pagtoirrf EQ 'BCO' AND
NOT itab_dados_tc_aux-belnr IS INITIAL.
IF v_esto_cide_bco = ' '.
PERFORM anula_compensacao_cp USING p_tpimp
itab_dados_tc_aux-belnr
...
...
ENDIF.
ELSE.
CLEAR: /pws/zycbe031-statuspc,
/pws/zycbe031-belnr_cide.
ENDIF.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iof.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iss.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_pis.
* >> Início da exclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_REG_COMPET_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_cofins.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
MODIFY /pws/zycbt145 FROM /pws/zycbe145.
ENDFORM.
...
...
LOOP AT itab_zycbt124_aux WHERE buzei > 0
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '.
PERFORM estorna_desmembra_provisao_cp.
ENDLOOP.
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_pi, /pws/zycbe031-statuspi.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
CLEAR: itab_zycbt031-belnr_pi, itab_zycbt031-statuspi.
MODIFY itab_zycbt031 TRANSPORTING belnr_pi statuspi
WHERE nrseq = /pws/zycbe031-nrseq.
CLEAR: itab_zycbt031_tc-belnr_pi.
MODIFY itab_zycbt031_tc TRANSPORTING belnr_pi
WHERE nrseq = /pws/zycbe031-nrseq.
CLEAR: itab_dados_tc-belnr.
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
MODIFY itab_dados_tc TRANSPORTING belnr WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
MODIFY itab_dados_tc TRANSPORTING belnr
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_esto_irrf_bco = 'X'.
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_cide, /pws/zycbe031-statuspc.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
CLEAR: itab_zycbt031-belnr_cide, itab_zycbt031-statuspc.
MODIFY itab_zycbt031 TRANSPORTING belnr_cide statuspc
WHERE nrseq = /pws/zycbe031-nrseq.
CLEAR: itab_zycbt031_tc-belnr_cide.
MODIFY itab_zycbt031_tc TRANSPORTING belnr_cide
WHERE nrseq = /pws/zycbe031-nrseq.
CLEAR: itab_dados_tc-belnr.
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
MODIFY itab_dados_tc TRANSPORTING belnr WHERE tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
MODIFY itab_dados_tc TRANSPORTING belnr
WHERE tpimp(4) = 'CIDE'.
* << Fim da inclusão
v_esto_cide_bco = 'X'.
ENDIF.
ELSE.
IF sy-index <= 1.
CLEAR: itab_zycbt124_aux-belnr_f51p.
...
...
WHERE nrseq = itab_zycbt124_aux-nrseq.
ELSEIF sy-index = 2.
CLEAR: itab_zycat025-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp(4) = 'IRRF'.
* << Fim da inclusão
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp like 'IRRF%'.
* << Fim da inclusão
IF /pws/zycbe145-cod_fech NE 'TR'.
CLEAR: itab_dados_tc-belnr, /pws/zycbe031-belnr_pi.
MODIFY itab_dados_tc TRANSPORTING belnr
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
...
...
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
ENDLOOP.
ENDLOOP.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
IF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
IF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_pi.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
CLEAR: /pws/zycbe031-belnr_cide.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iof.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_iss.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_pis.
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
CLEAR: /pws/zycbe145-belnr_cofins.
ENDIF.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
MODIFY /pws/zycbt145 FROM /pws/zycbe145.
...
...
FORM trata_remessa.
IF wa_zycbt124-tpoper EQ 'P' AND wa_zycbt124-criacao NE 'S'.
LOOP AT itab_zycbt124_aux.
READ TABLE itab_dados_tc WITH KEY tpimp = 'PRINCIPAL'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM TRATA_REMESSA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt124_aux-nrseq.
IF sy-subrc EQ 0 AND
itab_zycat025-dedfat EQ 'X' AND
itab_zycat025-frpagto_imp EQ 'R'.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp.
...
...
ENDLOOP.
IF itab_zycat025-frpagto_imp EQ 'R' OR
/pws/zycbe145-cod_fech EQ 'TR'.
PERFORM trata_est_cont_imp_cp.
ELSE.
* >> Início da exclusão: FORM TRATA_REMESSA
IF ( ( itab_dados_tc-tpimp = 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
IF ( ( itab_dados_tc-tpimp(4) = 'IRRF' AND
* << Fim da inclusão
NOT /pws/zycbe031-belnr_pi IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp = 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp(4) = 'CIDE' AND
* << Fim da inclusão
NOT /pws/zycbe031-belnr_cide IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp = 'IOF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp(3) = 'IOF' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_iof IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp = 'ISS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp(3) = 'ISS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_iss IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp = 'PIS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp(3) = 'PIS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_pis IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp = 'COFINS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
( itab_dados_tc-tpimp(6) = 'COFINS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_cofins IS INITIAL ) ) OR
itab_zycat024-cont_imp IS INITIAL.
READ TABLE itab_dados_tc
WITH KEY tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0.
...
...
ENDFORM.
FORM fill_date_f_51_princ_ir_cp USING p_recontabiliza.
DATA: v_processo(1) TYPE c,
v_zuonr LIKE /pws/zycbe033-c_zuonr.
PERFORM clear_date_batch.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt124_aux-nrseq.
CHECK erro_bi IS INITIAL AND sy-subrc = 0.
IF sy-index <= 1.
PERFORM get_parameters_cp USING 'PRINCIPAL'.
ELSEIF sy-index = 2.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
PERFORM get_parameters_cp USING 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
PERFORM get_parameters_cp USING itab_zycat025-tpimp.
* << Fim da inclusão
ENDIF.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = itab_zycbt124_aux-nrseq.
...
...
itab_zycbe033-newbs = '31'.
IF sy-index <= 1.
itab_zycbe033-c_newko = itab_zycbt124_aux-recrem.
itab_zycbe033-d_newko = itab_zycbt124_aux-recrem.
ELSEIF sy-index = 2.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
READ TABLE itab_dados_tc WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
READ TABLE itab_dados_tc WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0 AND itab_dados_tc-pagtoirrf = 'BCO' AND
p_recontabiliza IS INITIAL.
itab_zycbe033-c_newko = itab_dados_tc-bcooper.
itab_zycbe033-d_newko = itab_dados_tc-bcooper.
ELSEIF sy-subrc EQ 0 AND
...
...
ELSEIF v_cred_imp = '3'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = itab_zycbt124_aux-bukrs
ktosl = 'PVF'
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
codaux1 = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
codaux1 = itab_zycat025-tpimp
* << Fim da inclusão
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
MESSAGE i043 WITH itab_zycbt032-belnr.
IF p_recontabiliza IS INITIAL.
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
itab_dados_tc-belnr = itab_zycbt032-belnr.
MODIFY itab_dados_tc TRANSPORTING belnr
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp(4) = 'IRRF'.
READ TABLE itab_dados_tc WITH KEY tpimp(4) = 'IRRF'.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
READ TABLE itab_dados_tc WITH KEY tpimp = 'IRRF'.
* << Fim da exclusão
IF sy-subrc = 0.
MOVE-CORRESPONDING itab_dados_tc TO itab_dados_tc_aux.
MODIFY itab_dados_tc_aux TRANSPORTING kursf vlmi bcooper
dtlanc pagtoirrf belnr
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp(4) = 'IRRF'.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
IF NOT p_recontabiliza IS INITIAL.
itab_zycat025-dtlanc = itab_dados_tc-dtlanc.
ENDIF.
MODIFY itab_zycat025 TRANSPORTING dtlanc belnr_pr
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
WHERE tpimp(4) = 'IRRF'
* << Fim da inclusão
AND nrseq = itab_zycbt124_aux-nrseq.
UPDATE /pws/zycat025 SET dtlanc = itab_zycat025-dtlanc
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
AND tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
AND tpimp like 'IRRF%'.
* << Fim da inclusão
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
...
ELSEIF sy-index = 2 AND itab_zycbt124_aux-belnr_f51p IS INITIAL.
CONTINUE.
ENDIF.
IF sy-index <= 1.
sy-index = 2.
* >> Início da exclusão: FORM ESTORNA_COM_ORIGEM_CP
PERFORM anula_compensacao_cp USING 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COM_ORIGEM_CP
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
* << Fim da inclusão
itab_zycat025-belnr_pr
itab_zycat025-dtlanc
itab_zycbt124_aux-criacao
' '.
ELSEIF sy-index = 2.
...
...
ENDIF.
CONTINUE.
ENDDO.
ENDFORM.
FORM recontabiliza_imp_cp.
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
IF ( ( itab_zycat025-tpimp EQ 'IRRF' AND
v_esto_irrf_bco EQ ' ' ) OR
( itab_zycat025-tpimp EQ 'CIDE' AND
v_esto_cide_bco EQ ' ' ) ) AND
itab_dados_tc-pagtoirrf EQ 'BCO' AND
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
IF ( ( itab_zycat025-tpimp(4) EQ 'IRRF' AND
v_esto_irrf_bco EQ ' ' ) OR
( itab_zycat025-tpimp(4) EQ 'CIDE' AND
v_esto_cide_bco EQ ' ' ) ) AND
itab_dados_tc-pagtoirrf EQ 'BCO' AND
* << Fim da inclusão
itab_zycat025-frpagto_imp EQ 'C' AND
/pws/zycbe145-cod_fech NE 'TR'.
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
itab_dados_tc-belnr
itab_zycat025-dtlanc
...
...
'X'.
ENDIF.
READ TABLE itab_zycbt124_aux WITH KEY
nrseq = itab_zycat025-nrseq.
IF sy-subrc = 0 AND ( ( itab_zycbt124_aux-criacao EQ 'S' AND
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp EQ 'IRRF' ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp(4) EQ 'IRRF' ) OR
* << Fim da inclusão
( itab_zycbt124_aux-criacao NE 'S' AND
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
itab_zycat025-dedfat EQ ' ' ) OR
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp NE 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp(4) NE 'IRRF' ).
* << Fim da inclusão
PERFORM estorna_docto_cp USING itab_zycat025-tpimp
itab_zycat025-belnr_pr
itab_zycat025-dtlanc
'X'
' '.
PERFORM contabiliza_docto_cp USING itab_zycat025-tpimp
'X'
' '.
ELSEIF sy-subrc EQ 0 AND
itab_zycbt124_aux-criacao NE 'S' AND
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
itab_zycat025-tpimp(4) EQ 'IRRF'.
* << Fim da inclusão
sy-index = 2.
* >> Início da exclusão: FORM RECONTABILIZA_IMP_CP
PERFORM anula_compensacao_cp USING 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_IMP_CP
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
* << Fim da inclusão
itab_zycat025-belnr_pr
itab_zycat025-dtlanc
itab_zycbt124_aux-criacao
' '.
PERFORM fill_date_f_51_princ_ir_cp USING 'X'.
ENDIF.
ENDFORM.
FORM trata_est_cont_imp_cp.
IF NOT itab_dados_tc-belnr IS INITIAL OR
( NOT /pws/zycbe031-belnrpisrecup IS INITIAL AND
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
itab_dados_tc-tpimp EQ 'PIS' ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
itab_dados_tc-tpimp(3) EQ 'PIS' ) OR
* << Fim da inclusão
( NOT /pws/zycbe031-belnrcofinsrecup IS INITIAL AND
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
itab_dados_tc-tpimp EQ 'COFINS' ).
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
itab_dados_tc-tpimp(6) EQ 'COFINS' ).
* << Fim da inclusão
READ TABLE itab_dados_tc_aux WITH KEY tpimp = itab_zycat025-tpimp.
IF sy-subrc EQ 0 AND
( itab_dados_tc-kursf NE itab_dados_tc_aux-kursf OR
itab_dados_tc-vlmi NE itab_dados_tc_aux-vlmi OR
itab_dados_tc-bcooper NE itab_dados_tc_aux-bcooper OR
itab_dados_tc-dtlanc NE itab_dados_tc_aux-dtlanc OR
itab_dados_tc-pagtoirrf NE itab_dados_tc_aux-pagtoirrf ).
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( itab_zycat025-tpimp EQ 'IRRF' OR
itab_zycat025-tpimp EQ 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( itab_zycat025-tpimp(4) EQ 'IRRF' OR
itab_zycat025-tpimp(4) EQ 'CIDE' ) AND
* << Fim da inclusão
itab_dados_tc-kursf EQ itab_dados_tc_aux-kursf AND
itab_dados_tc-vlmi EQ itab_dados_tc_aux-vlmi AND
itab_dados_tc-dtlanc EQ itab_dados_tc_aux-dtlanc AND
itab_dados_tc-pagtoirrf EQ itab_dados_tc_aux-pagtoirrf AND
itab_dados_tc-bcooper NE itab_dados_tc_aux-bcooper AND
itab_dados_tc-pagtoirrf EQ 'EMP'.
EXIT.
ENDIF.
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( ( itab_zycat025-tpimp EQ 'IRRF' AND
v_esto_irrf_bco EQ ' ' ) OR
( itab_zycat025-tpimp EQ 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( ( itab_zycat025-tpimp(4) EQ 'IRRF' AND
v_esto_irrf_bco EQ ' ' ) OR
( itab_zycat025-tpimp(4) EQ 'CIDE' AND
* << Fim da inclusão
v_esto_cide_bco EQ ' ' ) ) AND
itab_dados_tc-pagtoirrf EQ 'BCO' AND
itab_zycat025-frpagto_imp EQ 'C' AND
/pws/zycbe145-cod_fech NE 'TR'.
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
...
...
itab_zycbt124_aux-criacao
'X'.
ENDIF.
IF itab_zycat025-frpagto_imp EQ 'R' AND
itab_zycbt124_aux-criacao NE 'S' AND
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
itab_zycat025-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
itab_zycat025-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
itab_zycat025-dedfat EQ 'X'.
LOOP AT itab_zycat025 WHERE tpimp = itab_dados_tc-tpimp.
sy-index = 2.
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
PERFORM anula_compensacao_cp USING 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
* << Fim da inclusão
itab_zycat025-belnr_pr
itab_zycat025-dtlanc
itab_zycbt124_aux-criacao
' '.
ENDLOOP.
...
...
ENDIF.
ELSEIF NOT itab_zycat024-cont_imp IS INITIAL
AND /pws/zycbe031-frgzu = '2'.
IF itab_zycat025-frpagto_imp EQ 'R' AND
itab_zycbt124_aux-criacao NE 'S' AND
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
itab_zycat025-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
itab_zycat025-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
itab_zycat025-dedfat EQ 'X'.
sy-index = 2.
LOOP AT itab_zycbt124_aux.
PERFORM fill_date_f_51_princ_ir_cp USING ' '.
ENDLOOP.
ELSE.
PERFORM contabiliza_docto_cp USING itab_zycat025-tpimp
' '
' '.
ENDIF.
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( ( itab_zycat025-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
IF ( ( itab_zycat025-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
v_esto_irrf_bco EQ ' ' AND
/pws/zycbe031-belnr_pi IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_EST_CONT_IMP_CP
( itab_zycat025-tpimp EQ 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_EST_CONT_IMP_CP
( itab_zycat025-tpimp(4) EQ 'CIDE' AND
* << Fim da inclusão
v_esto_cide_bco EQ ' ' AND
/pws/zycbe031-belnr_cide IS INITIAL ) ) AND
itab_dados_tc-pagtoirrf EQ 'BCO' AND
itab_zycat025-frpagto_imp EQ 'C'.
PERFORM compensa_empresa_cp USING itab_zycat025-tpimp.
...
...
FORM exclui_cp.
IF wa_zycbt124-tpoper EQ 'P' AND wa_zycbt124-criacao NE 'S'.
LOOP AT itab_zycbt124_aux.
READ TABLE itab_dados_tc WITH KEY tpimp = 'PRINCIPAL'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXCLUI_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt124_aux-nrseq.
IF sy-subrc EQ 0 AND
itab_zycat025-dedfat EQ 'X' AND
itab_zycat025-frpagto_imp EQ 'R'.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp.
...
...
IF sy-subrc EQ 0.
IF itab_zycat025-frpagto_imp EQ 'R' OR
/pws/zycbe145-cod_fech EQ 'TR'.
IF itab_zycat025-frpagto_imp EQ 'R' AND
itab_zycbt124_aux-criacao NE 'S' AND
* >> Início da exclusão: FORM EXCLUI_CP
itab_zycat025-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
itab_zycat025-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
itab_zycat025-dedfat EQ 'X'.
LOOP AT itab_zycat025 WHERE tpimp = itab_dados_tc-tpimp.
sy-index = 2.
* >> Início da exclusão: FORM EXCLUI_CP
PERFORM anula_compensacao_cp USING 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
PERFORM anula_compensacao_cp USING itab_zycat025-tpimp
* << Fim da inclusão
itab_zycat025-belnr_pr
itab_zycat025-dtlanc
itab_zycbt124_aux-criacao
' '.
ENDLOOP.
...
...
itab_dados_tc_aux-dtlanc
' '
' '.
ENDIF.
ELSE.
* >> Início da exclusão: FORM EXCLUI_CP
IF ( itab_dados_tc-tpimp = 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
IF ( itab_dados_tc-tpimp(4) = 'IRRF' AND
* << Fim da inclusão
NOT /pws/zycbe031-belnr_pi IS INITIAL ) OR
* >> Início da exclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp = 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp(4) = 'CIDE' AND
* << Fim da inclusão
NOT /pws/zycbe031-belnr_cide IS INITIAL ) OR
* >> Início da exclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp = 'IOF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp(3) = 'IOF' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_iof IS INITIAL ) OR
* >> Início da exclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp = 'ISS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp(3) = 'ISS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_iss IS INITIAL ) OR
* >> Início da exclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp = 'PIS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp(3) = 'PIS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_pis IS INITIAL ) OR
* >> Início da exclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp = 'COFINS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
( itab_dados_tc-tpimp(6) = 'COFINS' AND
* << Fim da inclusão
NOT /pws/zycbe145-belnr_cofins IS INITIAL ).
READ TABLE itab_dados_tc WITH KEY tpimp
= itab_zycat025-tpimp.
IF sy-subrc = 0.
READ TABLE itab_dados_tc_aux
...
...
ENDIF.
CHECK erro_bi IS INITIAL AND /pws/zycbe031-frgzu = '2'.
IF NOT itab_zycbt031_tc-dtliquida IS INITIAL AND
( itab_dados_tc-tpimp EQ 'PRINCIPAL' AND
/pws/zycbe031-belnr_cl_p IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'IRRF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(4) EQ 'IRRF' AND
* << Fim da inclusão
/pws/zycbe031-belnr_cl_pi IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(4) EQ 'CIDE' AND
* << Fim da inclusão
/pws/zycbe031-belnr_cl_cide IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'IOF' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(3) EQ 'IOF' AND
* << Fim da inclusão
/pws/zycbe145-belnr_cl_iof IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'ISS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(3) EQ 'ISS' AND
* << Fim da inclusão
/pws/zycbe145-belnr_cl_iss IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'PIS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(3) EQ 'PIS' AND
* << Fim da inclusão
/pws/zycbe145-belnr_cl_pis IS INITIAL ) OR
* >> Início da exclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp EQ 'COFINS' AND
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_TRAVA_CP
( itab_dados_tc-tpimp(6) EQ 'COFINS' AND
* << Fim da inclusão
/pws/zycbe145-belnr_cl_cofins IS INITIAL ).
PERFORM seleciona_documentos_cp USING itab_dados_tc-tpimp.
PERFORM executa_f51_cp USING itab_dados_tc-tpimp.
CLEAR v_altera_dtliquid.
ELSEIF itab_zycbt031_tc1-dtliquida NE
...
...
ENDFORM.
FORM anula_estorna_trava_cp USING p_tpimp.
PERFORM clear_date_batch.
IF p_tpimp = 'PRINCIPAL'.
v_belnr = /pws/zycbe031-belnr_cl_p.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
v_belnr = /pws/zycbe031-belnr_cl_pi.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
v_belnr = /pws/zycbe031-belnr_cl_cide.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
v_belnr = /pws/zycbe145-belnr_cl_iof.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
v_belnr = /pws/zycbe145-belnr_cl_iss.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
v_belnr = /pws/zycbe145-belnr_cl_pis.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
v_belnr = /pws/zycbe145-belnr_cl_cofins.
ENDIF.
CHECK NOT v_belnr IS INITIAL AND
erro_bi IS INITIAL.
itab_zycbe033a-mandt = sy-mandt.
...
...
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '
AND criacao NE 'S'.
PERFORM estorna_desmembra_provisao_cp.
ENDLOOP.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe031-belnr_cl_pi text-179.
CLEAR: /pws/zycbe031-belnr_cl_pi, /pws/zycbt031-belnr_cl_pi,
itab_zycbt031-belnr_cl_pi.
MODIFY itab_zycbt031 TRANSPORTING belnr_cl_pi
WHERE nrseq = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe031-belnr_cl_cide text-179.
CLEAR: /pws/zycbe031-belnr_cl_cide, /pws/zycbt031-belnr_cl_cide,
itab_zycbt031-belnr_cl_cide.
MODIFY itab_zycbt031 TRANSPORTING belnr_cl_cide
WHERE nrseq = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe145-belnr_cl_iof text-179.
CLEAR: /pws/zycbe145-belnr_cl_iof, wa_zycbt145-belnr_cl_iof.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe145-belnr_cl_iss text-179.
CLEAR: /pws/zycbe145-belnr_cl_iss, wa_zycbt145-belnr_cl_iss.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe145-belnr_cl_pis text-179.
CLEAR: /pws/zycbe145-belnr_cl_pis, wa_zycbt145-belnr_cl_pis.
* >> Início da exclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_ESTORNA_TRAVA_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
MESSAGE i061 WITH text-098 /pws/zycbe145-belnr_cl_cofins text-179.
CLEAR: /pws/zycbe145-belnr_cl_cofins, wa_zycbt145-belnr_cl_cofins.
ENDIF.
MODIFY /pws/zycbt031 FROM /pws/zycbe031.
MODIFY /pws/zycbt145 FROM /pws/zycbe145.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
/pws/zycbe031-vlmi = itab_dados_tc-vlmi.
/pws/zycbe031-kursf = itab_dados_tc-kursf.
/pws/zycbe031-bcooper = itab_dados_tc-bcooper.
/pws/zycbe031-dtcredpr = itab_dados_tc-dtlanc.
/pws/zycbe145-zlsch = itab_dados_tc-zlsch.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(4) EQ 'IRRF'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe031-taxair.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
/pws/zycbe031-bcoopir = itab_dados_tc-bcooper.
/pws/zycbe031-dtcredir = itab_dados_tc-dtlanc.
/pws/zycbe145-zlschi = itab_dados_tc-zlsch.
/pws/zycbe031-vldedirrf = itab_dados_tc-vlded.
/pws/zycbe031-pagtoirrf = itab_dados_tc-pagtoirrf.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(4) EQ 'CIDE'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe031-taxacide.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
/pws/zycbe031-bcoopcide = itab_dados_tc-bcooper.
/pws/zycbe031-dtcide = itab_dados_tc-dtlanc.
/pws/zycbe145-zlschc = itab_dados_tc-zlsch.
/pws/zycbe031-vldedcide = itab_dados_tc-vlded.
/pws/zycbe031-pagtocide = itab_dados_tc-pagtoirrf.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(3) EQ 'IOF'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe145-taxaiof.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
/pws/zycbe145-vlmiiof = itab_dados_tc-vlmi.
/pws/zycbe145-bcoopiof = itab_dados_tc-bcooper.
/pws/zycbe145-dtiof = itab_dados_tc-dtlanc.
/pws/zycbe145-zlscho = itab_dados_tc-zlsch.
/pws/zycbe145-vldediof = itab_dados_tc-vlded.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(3) EQ 'ISS'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe145-taxaiss.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
/pws/zycbe145-vlmiiss = itab_dados_tc-vlmi.
/pws/zycbe145-bcoopiss = itab_dados_tc-bcooper.
/pws/zycbe145-dtiss = itab_dados_tc-dtlanc.
/pws/zycbe145-zlschs = itab_dados_tc-zlsch.
/pws/zycbe145-vldediss = itab_dados_tc-vlded.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(3) EQ 'PIS'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe145-taxapis.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
/pws/zycbe145-vlmipis = itab_dados_tc-vlmi.
/pws/zycbe145-bcooppis = itab_dados_tc-bcooper.
/pws/zycbe145-dtpis = itab_dados_tc-dtlanc.
/pws/zycbe145-zlschp = itab_dados_tc-zlsch.
/pws/zycbe145-vldedpis = itab_dados_tc-vlded.
* >> Início da exclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp EQ 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
ELSEIF itab_dados_tc-tpimp(6) EQ 'COFINS'.
* << Fim da inclusão
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe145-taxacofins.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
...
...
ENDIF.
ENDMODULE.
MODULE consiste_pagtoirrf INPUT.
IF ( sy-ucomm = 'SAVE' OR w_ok = 'SAVE' OR ok_code = 'SAVE' ) AND
itab_dados_tc_tela-pagtoirrf IS INITIAL.
* >> Início da exclusão: MODULE CONSISTE_PAGTOIRRF
IF itab_dados_tc_tela-tpimp EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_PAGTOIRRF
IF itab_dados_tc_tela-tpimp(4) EQ 'IRRF'.
* << Fim da inclusão
MESSAGE e061 WITH text-239.
* >> Início da exclusão: MODULE CONSISTE_PAGTOIRRF
ELSEIF itab_dados_tc_tela-tpimp EQ 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_PAGTOIRRF
ELSEIF itab_dados_tc_tela-tpimp(4) EQ 'CIDE'.
* << Fim da inclusão
MESSAGE e061 WITH text-247.
ENDIF.
ENDIF.
CHECK NOT itab_dados_tc_tela-pagtoirrf IS INITIAL.
IF itab_dados_tc_tela-pagtoirrf NE 'BCO' AND
...
...
READ TABLE itab_zycbt134 WITH KEY
nrseq = /pws/zycbe031-nrseq
tpproc = itab_dados_tc-tpimp.
IF sy-subrc = 0.
v_date2 = itab_zycbt134-dtlanc.
* >> Início da exclusão: MODULE USER_COMMAND_0101
ELSEIF itab_dados_tc-tpimp = 'PIS' OR
itab_dados_tc-tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
ELSEIF itab_dados_tc-tpimp(3) = 'PIS' OR
itab_dados_tc-tpimp(6) = 'COFINS'.
* << Fim da inclusão
v_date2 = itab_dados_tc-dtlanc.
ENDIF.
ENDIF.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110O01
...
screen-name = 'ITAB_DADOS_TC_TELA-KURSF'.
screen-required = '1'.
ELSEIF itab_dados_tc_tela-tpimp = 'PRINCIPAL' AND
screen-name = 'ITAB_DADOS_TC_TELA-VLDED'.
screen-input = '0'.
* >> Início da exclusão: MODULE INSERE_DADOS_TC
ELSEIF itab_dados_tc_tela-tpimp NE 'IRRF' AND
itab_dados_tc_tela-TPIMP NE 'CIDE' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERE_DADOS_TC
ELSEIF itab_dados_tc_tela-tpimp(4) NE 'IRRF' AND
itab_dados_tc_tela-TPIMP(4) NE 'CIDE' AND
* << Fim da inclusão
screen-name = 'ITAB_DADOS_TC_TELA-PAGTOIRRF'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
( itab_zycbt134-statusp EQ 'C' AND
( itab_zycbt134-tpproc EQ ' ' OR
itab_zycbt134-tpproc EQ 'PRINCIPAL' ) ) OR
( itab_zycbt134-statusp_ir EQ 'C' AND
( itab_zycbt134-tpproc EQ 'I' OR
* >> Início da exclusão: FORM SALVAR_DADOS
itab_zycbt134-tpproc EQ 'IRRF' ) ) ).
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
itab_zycbt134-tpproc(4) EQ 'IRRF' ) ) ).
* << Fim da inclusão
CLEAR itab_zycbt134_aux.
MOVE-CORRESPONDING itab_zycbt134 TO itab_zycbt134_aux.
APPEND itab_zycbt134_aux.
READ TABLE itab_erro_s WITH KEY nrseq = itab_zycbt134-nrseq
tpproc = itab_zycbt134-tpproc.
...
...
( /pws/zyglt009-comp_trans NE 'C' OR
( /pws/zyglt009-comp_trans EQ 'C' AND
NOT itab_zycbt134-belnrcomp IS INITIAL ) ).
CONTINUE.
ELSEIF ( itab_zycbt134-tpproc EQ 'I' OR
* >> Início da exclusão: FORM FILL_DATA_F53
itab_zycbt134-tpproc EQ 'IRRF' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
itab_zycbt134-tpproc(4) EQ 'IRRF' ) AND
* << Fim da inclusão
NOT itab_zycbt134-belnr_ci IS INITIAL AND
NOT itab_zycbt134-statusp_ir IS INITIAL AND
( /pws/zyglt009-comp_trans NE 'C' OR
( /pws/zyglt009-comp_trans EQ 'C' AND
NOT itab_zycbt134-belnrcompir IS INITIAL ) ).
...
...
ENDSELECT.
IF sy-subrc NE 0.
v_statuspg = 'X'.
ELSE.
IF NOT itab_zycbt031-belnr_pi IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc EQ 'IRRF' OR
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc(4) EQ 'IRRF' OR
* << Fim da inclusão
itab_zycbt134-tpproc EQ 'I' ).
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt134
WHERE nrseq EQ itab_zycbt134-nrseq AND
dtboleto EQ itab_zycbt134-dtboleto AND
( tpproc EQ 'I' OR
* >> Início da exclusão: FORM FILL_DATA_F53
tpproc EQ 'IRRF' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
tpproc LIKE 'IRRF%' ) AND
* << Fim da inclusão
belnr_ci NE space AND
belnr_ci NE '0000000000'.
ENDSELECT.
IF sy-subrc NE 0.
v_statuspg = 'X'.
ELSE.
IF NOT itab_zycbt031-belnr_cide IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc EQ 'CIDE' OR
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc(4) EQ 'CIDE' OR
* << Fim da inclusão
itab_zycbt134-tpproc EQ 'C' ).
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt134
WHERE nrseq EQ itab_zycbt134-nrseq AND
dtboleto EQ itab_zycbt134-dtboleto AND
* >> Início da exclusão: FORM FILL_DATA_F53
( tpproc EQ 'C' OR
tpproc EQ 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
( tpproc EQ 'C' OR
tpproc LIKE 'CIDE%' ) AND
* << Fim da inclusão
belnr_cide NE space AND
belnr_cide NE ' ' AND
belnr_cide NE '0000000000'.
ENDSELECT.
IF sy-subrc NE 0.
...
...
ENDSELECT.
IF sy-subrc NE 0.
v_statuspg = 'X'.
ELSE.
IF NOT itab_zycbt031-belnr_pi IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc EQ 'IRRF' OR
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc(4) EQ 'IRRF' OR
* << Fim da inclusão
itab_zycbt134-tpproc EQ 'I' ).
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt134
WHERE nrseq EQ itab_zycbt134-nrseq AND
dtboleto EQ itab_zycbt134-dtboleto AND
( tpproc EQ 'I' OR
* >> Início da exclusão: FORM FILL_DATA_F53
tpproc EQ 'IRRF' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
tpproc LIKE 'IRRF%' ) AND
* << Fim da inclusão
belnr_ci NE space AND
belnr_ci NE ' ' AND
belnr_ci NE '0000000000'.
ENDSELECT.
IF sy-subrc NE 0.
v_statuspg = 'X'.
ELSE.
IF NOT itab_zycbt031-belnr_cide IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc EQ 'CIDE' OR
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
( itab_zycbt134-tpproc(4) EQ 'CIDE' OR
* << Fim da inclusão
itab_zycbt134-tpproc EQ 'C' ).
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt134
WHERE nrseq EQ itab_zycbt134-nrseq AND
dtboleto EQ itab_zycbt134-dtboleto AND
( tpproc EQ 'C' OR
* >> Início da exclusão: FORM FILL_DATA_F53
tpproc EQ 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F53
tpproc LIKE 'CIDE%' ) AND
* << Fim da inclusão
belnr_cide NE space AND
belnr_cide NE ' ' AND
belnr_cide NE '0000000000'.
ENDSELECT.
IF sy-subrc NE 0.
...
...
ENDIF.
ENDLOOP.
IF NOT v_origem IS INITIAL.
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
* >> Início da exclusão: FORM EXECUTA_BATCH
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc NE 0 OR itab_zycat025-dedfat EQ ' '.
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
LOOP AT itab_zycbt124 WHERE buzei > 0
AND belnr_f51 IS initial
...
...
v_faz_f04 = 'X'.
v_belnr = itab_zycbt134-belnr_c.
itab_zycbt134-statusp = 'C'.
ENDIF.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
IF itab_zycbt134-belnrcompir IS INITIAL AND
( NOT itab_zycbt134-belnr_ci IS INITIAL OR
( NOT itab_zycbt134-belnr_c IS INITIAL AND
itab_zycbt134-mdcorresp EQ 'CP' ) ).
v_faz_f04 = 'X'.
...
...
itab_zycbt134-statuspg = 'C'.
ENDIF.
ENDIF.
ENDIF.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
IF itab_zycbt134-belnrcompcide IS INITIAL AND
( NOT itab_zycbt134-belnr_cide IS INITIAL OR
( NOT itab_zycbt134-belnr_c IS INITIAL AND
itab_zycbt134-mdcorresp EQ 'CP' ) ).
v_faz_f04 = 'X'.
...
...
PERFORM transacao_f04.
PERFORM limpa_itabs_contabil.
EXIT.
ENDIF.
IF itab_zycbt134-mdcorresp NE 'CP'.
* >> Início da exclusão: FORM EXECUTA_BATCH
CASE itab_zycbt134-tpproc.
WHEN ' ' OR 'PRINCIPAL'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
* << Fim da inclusão
CHECK itab_zycbt134-belnr_c IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH
WHEN 'I' OR 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'I' OR
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
CHECK itab_zycbt134-belnr_ci IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH
WHEN 'C' OR 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'C' OR
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
CHECK itab_zycbt134-belnr_cide IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ENDIF.
* << Fim da inclusão
ELSE.
CHECK itab_zycbt134-belnr_c IS INITIAL.
ENDIF.
CLEAR v_cpochv.
itab_zycbe033-mandt = sy-mandt.
...
...
IF itab_zycbt134-mdcorresp NE 'CP'.
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
itab_zycbe033-dmbtr = itab_zycbt031-vlmi.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
itab_zycbe033-dmbtr = itab_zycbt031-vlmiir.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
itab_zycbe033-dmbtr = itab_zycbt031-vlmicide.
ENDIF.
ELSE.
itab_zycbe033-dmbtr = itab_zycbt134-vlmi.
ENDIF.
...
...
itab_zycbe033-waers = wa_zycbt007-waersb.
ENDIF.
itab_zycbe033-waersb = wa_zycbt007-waersb.
IF itab_zycbt031-mdcorresp NE 'IU'.
IF itab_zycbt134-mdcorresp NE 'CP'.
* >> Início da exclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
IF NOT itab_zycbt134-taxair IS INITIAL.
itab_zycbe033-kursf = itab_zycbt134-taxair.
ELSE.
itab_zycbe033-kursf = wa_zycbt031-kursf.
ENDIF.
...
...
itab_zycbe033-wrbtr = itab_zycbt134-vlmi.
PERFORM verify_null_field USING itab_zycbe033-wrbtr
'VLMI'
text-280.
ELSE.
* >> Início da exclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbt031-vlmiir
'VLIR'
text-086.
itab_zycbe033-wrbtr = itab_zycbt031-vlmiir.
ELSEIF itab_zycbt134-tpproc = ' ' OR
...
...
PERFORM verify_null_field USING itab_zycbt031-vlme
'VLME'
text-013.
itab_zycbe033-wrbtr = itab_zycbt134-vlme.
ELSE.
* >> Início da exclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbt134-vlir
'VLIR'
text-086.
itab_zycbe033-wrbtr = itab_zycbt134-vlir.
ELSEIF itab_zycbt134-tpproc = ' ' OR
...
...
ELSE.
LOOP AT itab_zycat025 WHERE tpimp = itab_zycbt134-tpproc
AND nrseq = itab_zycbt064-nrchave.
itab_zycat025-belnr_pg = itab_zycbt134-belnr_c.
IF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
itab_zycat025-dtpagto = itab_zycbt031-dtcredir.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
itab_zycat025-dtpagto = itab_zycbt031-dtcide.
* >> Início da exclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
itab_zycat025-dtpagto = /pws/zycbt145-dtiof.
* >> Início da exclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
itab_zycat025-dtpagto = /pws/zycbt145-dtiss.
* >> Início da exclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
itab_zycat025-dtpagto = /pws/zycbt145-dtpis.
* >> Início da exclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
itab_zycat025-dtpagto = /pws/zycbt145-dtcofins.
ENDIF.
UPDATE /pws/zycat025 SET dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
WHERE nrseq = itab_zycat025-nrseq
...
...
ENDIF.
ENDLOOP.
ELSE.
IF NOT itab_zycbt032-belnr IS INITIAL.
IF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
itab_zycbt134-statusp_ir = text-079.
itab_zycbt134-belnr_ci = itab_zycbt032-belnr.
itab_zycbt134-dtlanc = itab_zycbe033-budat.
IF itab_zycbt134-mdcorresp EQ 'ED'.
READ TABLE itab_zycbt031 WITH KEY
...
...
UPDATE /pws/zycbt145 SET
belnr_saida = /pws/zycbt145-belnr_saida
WHERE nrseq = itab_zycbt134-nrseq.
ENDIF.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
itab_zycbt134-statusp_cide = text-079.
itab_zycbt134-belnr_cide = itab_zycbt032-belnr.
itab_zycbt134-dtlanc = itab_zycbe033-budat.
ENDIF.
ENDIF.
...
...
/pws/zycbe031-vlmicide = itab_zycbt134_g-vlmicide.
/pws/zycbe031-taxacide = itab_zycbt134_g-taxacide.
ENDFORM.
FORM altera_itab_zycbt134_g.
v_index = tc_boletos1-current_line.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT134_G
IF /pws/zycbe134-mark EQ 'X'.
itab_zycbt134_g-mark = 'X'.
ELSE.
CLEAR itab_zycbt134_g-mark.
ENDIF.
* << Fim da exclusão
MODIFY itab_zycbt134_g INDEX v_index.
ENDFORM.
FORM propor_bcocred.
CLEAR itab_zycbt134.
itab_zycbt134-bcocred = v_bcocred.
...
...
/pws/zycbe031-taxacide = itab_zycbt134_pagos-taxacide.
v_valor = itab_zycbt134-nrseq.
ENDFORM.
FORM altera_itab_zycbt134_pagos.
v_index1 = tc_boletos3-current_line.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT134_PAGOS
IF /pws/zycbe134-mark EQ 'X'.
itab_zycbt134_pagos-mark = 'X'.
ELSE.
CLEAR itab_zycbt134_pagos-mark.
ENDIF.
* << Fim da exclusão
MODIFY itab_zycbt134_pagos INDEX v_index1.
ENDFORM.
FORM seleciona_dados_origem TABLES it_zycbt134 LIKE itab_zycbt134_g[]
USING p_pagos.
DATA: BEGIN OF itab_aux OCCURS 0,
...
...
SELECT * FROM /pws/zycmt001
INTO TABLE itab_zycmt001
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq EQ itab_zycbt064-nrchave.
CLEAR v_index2.
* >> Início da exclusão: FORM SELECIONA_DADOS_ORIGEM
LOOP AT it_zycbt134 WHERE tpproc = 'IRRF' OR tpproc = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORIGEM
LOOP AT it_zycbt134 WHERE tpproc(4) = 'IRRF' OR tpproc = 'I'.
* << Fim da inclusão
v_index2 = sy-tabix.
CLEAR itab_zycbt031.
READ TABLE itab_zycbt031 WITH KEY
nrseq = it_zycbt134-nrseq
dtboleto = it_zycbt134-dtboleto.
...
...
WHERE bukrs EQ itab_zycbt134_estorno-bukrs.
ENDSELECT.
IF NOT itab_zycbt134_estorno-belnr_cide IS INITIAL OR
NOT itab_zycbt134_estorno-belnr_ci IS INITIAL.
IF ( itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc = 'IRRF' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc(4) = 'IRRF' ) AND
* << Fim da inclusão
( ( NOT itab_zycbt134_estorno-belnr_c IS INITIAL AND
itab_zycbt134_estorno-statusp EQ 'C' ) OR
itab_zycbt134_estorno-belnr_ci IS INITIAL ).
CONTINUE.
ENDIF.
...
...
itab_zycbt134_estorno-belnr_c IS INITIAL AND
NOT itab_zycbt134_estorno-belnr_ci IS INITIAL.
CONTINUE.
ENDIF.
IF ( itab_zycbt134_estorno-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc = 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc(4) = 'CIDE' ) AND
* << Fim da inclusão
itab_zycbt134_estorno-belnr_c IS INITIAL AND
itab_zycbt134_estorno-belnr_ci IS INITIAL AND
NOT itab_zycbt134_estorno-belnr_cide IS INITIAL.
ENDIF.
IF ( itab_zycbt134_estorno-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc = 'CIDE' ) AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_ESTORNO
itab_zycbt134_estorno-tpproc(4) = 'CIDE' ) AND
* << Fim da inclusão
itab_zycbt134_estorno-belnr_c IS INITIAL AND
itab_zycbt134_estorno-belnr_ci IS INITIAL AND
itab_zycbt134_estorno-belnr_cide IS INITIAL.
EXIT.
ENDIF.
...
...
PERFORM verify_null_field USING itab_zycbt134_estorno-belnr_c
'BELNR_C'
text-035.
ELSE.
IF itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'IRRF'.
* << Fim da inclusão
itab_zycbe033-belnr = itab_zycbt134_estorno-belnr_ci.
PERFORM verify_null_field USING itab_zycbt134_estorno-belnr_ci
'BELNR_CI'
text-088.
ELSEIF itab_zycbt134_estorno-tpproc = ' ' OR
...
...
itab_zycbe033-gjahs = v_ano.
PERFORM verify_null_field USING itab_zycbt031-dtcredpr
'DTCREDPR'
text-091.
ELSEIF itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'IRRF'.
* << Fim da inclusão
PERFORM determina_ano USING itab_zycbt031-dtcredir
itab_zycbe033-bukrs
CHANGING v_ano.
IF itab_zycbt031-dtcredir IS INITIAL.
itab_zycbe033-bldat = itab_zycbt031-dtcredpr.
...
...
itab_zycbe033-gjahs = v_ano.
PERFORM verify_null_field USING itab_zycbt031-dtcredpr
'DTCREDPR'
text-091.
ELSEIF itab_zycbt134_estorno-tpproc = 'C' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'CIDE'.
* << Fim da inclusão
PERFORM determina_ano USING itab_zycbt031-dtcide
itab_zycbe033-bukrs
CHANGING v_ano.
itab_zycbe033-bldat = itab_zycbt031-dtcredpr.
itab_zycbe033-budat = itab_zycbt031-dtcredpr.
...
...
itab_zycbe033-gjahs = v_ano.
PERFORM verify_null_field USING v_dtcredpr
'DTCREDPR'
text-091.
ELSEIF itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'IRRF'.
* << Fim da inclusão
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
itab_zycbe033-bldat = v_dtcredir.
itab_zycbe033-budat = v_dtcredir.
itab_zycbe033-gjahs = v_ano.
PERFORM verify_null_field USING v_dtcredir
'DTCREDIR'
text-092.
ELSEIF itab_zycbt134_estorno-tpproc = 'C' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'CIDE'.
* << Fim da inclusão
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
itab_zycbe033-bldat = v_dtcide.
itab_zycbe033-budat = v_dtcide.
...
...
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
IF itab_zycbt134_estorno-mdcorresp NE 'CP'.
IF itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'IRRF'.
* << Fim da inclusão
CONCATENATE itab_zycbt032-tpmsg itab_zycbt134_estorno-nrseq
v_imp itab_zycbt032-msg
INTO v_msg SEPARATED BY space.
itab_acerto-msg = v_msg.
APPEND itab_acerto.
...
...
CLEAR: itab_zycbt134_estorno-statusp,
itab_zycbt134_estorno-belnr_c,
itab_zycbt134_pagos-statusp,
itab_zycbt134_pagos-belnr_c.
ELSEIF itab_zycbt134_estorno-tpproc = 'C' OR
* >> Início da exclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
itab_zycbt134_estorno-tpproc(4) = 'CIDE'.
* << Fim da inclusão
CONCATENATE itab_zycbt032-tpmsg itab_zycbt134_estorno-nrseq
v_imp itab_zycbt032-msg
INTO v_msg SEPARATED BY space.
itab_acerto-msg = v_msg.
APPEND itab_acerto.
...
...
AND tpoper EQ 'P'
AND frpagto EQ 'C'
AND buzei GT 0
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '.
* >> Início da exclusão: FORM FILL_DATA_FBRA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_FBRA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt124-nrseq.
IF sy-subrc NE 0 OR
( sy-subrc EQ 0 AND itab_zycat025-dedfat NE 'X' ).
PERFORM estorna_desmembra_provisao_cp.
ENDIF.
...
...
itab_zycbt134_sel-vlprov = v_vlprov.
itab_zycbt134_sel-vldif = itab_zycbt134_sel-vlme - v_vlprov.
ENDIF.
CLEAR v_vlprovir.
IF itab_zycbt134_sel-tpproc = 'I' OR
* >> Início da exclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc(4) = 'IRRF'.
* << Fim da inclusão
LOOP AT itab_zycbt154 WHERE
nrcorresp EQ itab_zycbt134_sel-nrcorresp AND
codmod EQ v_mdcorresp AND
codmodul EQ 'IR' AND
codmodul+1(1) NE 'D' AND
...
...
tpcontr EQ itab_zycbt031-tpcontr AND
codint EQ itab_zycbt031-tipo(3).
v_vlprov = v_vlprov + itab_zycbt154-vlme.
ENDLOOP.
ELSEIF itab_zycbt074-tipo_comis EQ 'P' AND
* >> Início da exclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc EQ 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc(4) EQ 'IRRF'.
* << Fim da inclusão
CLEAR v_vlprovir.
LOOP AT itab_zycbt154
WHERE nrcorresp EQ itab_zycbt134_sel-nrcorresp AND
codmod EQ v_mdcorresp AND
codmodul EQ 'CI' AND
...
...
PERFORM fill_data_f30.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycbt134_sel-tpproc = 'I' OR
* >> Início da exclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PROVISIONADOS
itab_zycbt134_sel-tpproc(4) = 'IRRF'.
* << Fim da inclusão
IF NOT itab_zycbt134_sel-vldifir IS INITIAL AND
( itab_zycbt134_sel-mdcorresp = 'IF' OR
itab_zycbt134_sel-mdcorresp = 'CE'
* >> Início da exclusão: FORM SELECIONA_PROVISIONADOS
OR itab_zycbt074-tipo_comis EQ 'P'
).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PROVISIONADOS
OR itab_zycbt074-tipo_comis EQ 'P' ).
* << Fim da inclusão
IF itab_zycbt064-tpparc = 'J'
OR ( itab_zycbt064-tpparc EQ 'C' AND
itab_zycbt074-tipo_comis EQ 'P' ).
v_mod = 'IR'.
PERFORM fill_data_f02.
...
...
tpproc = 'I'.
IF sy-subrc NE 0.
READ TABLE itab_zycbt134_estorno WITH KEY
nrcorresp = itab_zycbt154-nrcorresp
nrseq = itab_zycbt031_aux-nrseq
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
tpproc(4) = 'IRRF'.
* << Fim da inclusão
ENDIF.
ELSEIF itab_zycbt154-codmodul(1) = 'J' OR
itab_zycbt154-codmodul(1) = 'C'.
READ TABLE itab_zycbt134_estorno WITH KEY
nrcorresp = itab_zycbt154-nrcorresp
...
...
itab_zycbt134_estorno2-dtlanc = itab_zycbt031_aux-dtcredpr.
APPEND itab_zycbt134_estorno2.
ENDIF.
ELSEIF ( itab_zycbt154-codmodul(1) = 'I' AND
( itab_zycbt134_estorno-tpproc = 'I' OR
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
itab_zycbt134_estorno-tpproc = 'IRRF' ) )
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
itab_zycbt134_estorno-tpproc(4) = 'IRRF' ) )
* << Fim da inclusão
OR ( itab_zycbt154-codmodul EQ 'CF' AND
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
itab_zycbt134_estorno-tpproc EQ 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS_CLEARING
itab_zycbt134_estorno-tpproc(4) EQ 'IRRF' ).
* << Fim da inclusão
itab_zycbt134_estorno2-belnr_ci = itab_zycbt154-belnr_cl.
CLEAR itab_zycbt134_estorno2-belnr_c.
itab_zycbt134_estorno2-dtlanc = itab_zycbt031_aux-dtcredpr.
APPEND itab_zycbt134_estorno2.
IF NOT itab_zycbt154-belnr_pr IS INITIAL.
...
...
FORM limpa_status.
IF itab_zycbt134-tpproc = ' ' OR itab_zycbt134-tpproc = 'PRINCIPAL'.
CLEAR itab_zycbt134-statusp.
MODIFY itab_zycbt134 TRANSPORTING statusp
WHERE nrseq = itab_zycbt134-nrseq .
* >> Início da inclusão: FORM LIMPA_STATUS
ELSEIF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
* >> Início da exclusão: FORM LIMPA_STATUS
ELSEIF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
CLEAR itab_zycbt134-statusp_ir.
MODIFY itab_zycbt134 TRANSPORTING statusp_ir
WHERE nrseq = itab_zycbt134-nrseq .
* >> Início da exclusão: FORM LIMPA_STATUS
ELSEIF itab_zycbt134-tpproc = 'C' OR itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_STATUS
ELSEIF itab_zycbt134-tpproc = 'C' OR itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
CLEAR itab_zycbt134-statusp_cide.
MODIFY itab_zycbt134 TRANSPORTING statusp_cide
WHERE nrseq = itab_zycbt134-nrseq .
ENDIF.
ENDFORM.
...
...
WHERE nrseq = it_zycbt134-nrseq AND
tpproc = it_zycbt134-tpproc.
ELSE.
MODIFY it_zycbt134.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
it_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
it_zycbt134-tpproc = itab_zycat025-tpimp.
* << Fim da inclusão
it_zycbt134-kursf = itab_zycbt031-taxair.
it_zycbt134-waers = itab_zycbt031-waers.
it_zycbt134-vlme = itab_zycbt031-vlir.
it_zycbt134-vlmi = itab_zycbt031-vlmiir.
it_zycbt134-dtlanc = itab_zycbt031-dtcredir.
...
...
ELSE.
APPEND it_zycbt134.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'CIDE'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'CIDE'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
it_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
it_zycbt134-tpproc = itab_zycat025-tpimp.
* << Fim da inclusão
it_zycbt134-kursf = itab_zycbt031-taxacide.
it_zycbt134-waers = itab_zycbt031-waers.
it_zycbt134-vlme = itab_zycbt031-vlcide.
it_zycbt134-vlmi = itab_zycbt031-vlmicide.
it_zycbt134-dtlanc = itab_zycbt031-dtcide.
...
...
ELSE.
APPEND it_zycbt134.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'IOF'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'IOF'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
...
...
it_zycbt134-kursf = /pws/zycbt145-taxaiof.
it_zycbt134-waers = itab_zycbt031-waers.
CLEAR it_zycbt134-vlme.
LOOP AT itab_zycbt064 WHERE nrboleto = it_zycbt134-nrseq.
READ TABLE itab_zycat025 WITH KEY
* >> Início da exclusão: FORM CARREGA_DADOS_CP
tpimp = 'IOF'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
tpimp(3) = 'IOF'
* << Fim da inclusão
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
it_zycbt134-vlme = it_zycbt134-vlme + itab_zycat025-vlimpme.
ENDIF.
ENDLOOP.
...
...
ELSE.
APPEND it_zycbt134.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'ISS'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
...
...
it_zycbt134-kursf = /pws/zycbt145-taxaiss.
it_zycbt134-waers = itab_zycbt031-waers.
CLEAR it_zycbt134-vlme.
LOOP AT itab_zycbt064 WHERE nrboleto = it_zycbt134-nrseq.
READ TABLE itab_zycat025 WITH KEY
* >> Início da exclusão: FORM CARREGA_DADOS_CP
tpimp = 'ISS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
tpimp(3) = 'ISS'
* << Fim da inclusão
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
it_zycbt134-vlme = it_zycbt134-vlme + itab_zycat025-vlimpme.
ENDIF.
ENDLOOP.
...
...
ELSE.
APPEND it_zycbt134.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'PIS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
it_zycbt134-tpproc = itab_zycat025-tpimp.
it_zycbt134-kursf = /pws/zycbt145-taxapis.
it_zycbt134-waers = itab_zycbt031-waers.
CLEAR it_zycbt134-vlme.
LOOP AT itab_zycbt064 WHERE nrboleto = it_zycbt134-nrseq.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'PIS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(3) = 'PIS'
* << Fim da inclusão
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
it_zycbt134-vlme = it_zycbt134-vlme + itab_zycat025-vlimpme.
ENDIF.
ENDLOOP.
...
...
ELSE.
APPEND it_zycbt134.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp = 'COFINS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
READ TABLE itab_zycat025 WITH KEY tpimp(6) = 'COFINS'
* << Fim da inclusão
nrseq = itab_zycbt031-nrcorresp.
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp
bukrs = itab_zycbt031-bukrs.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
...
...
it_zycbt134-kursf = /pws/zycbt145-taxacofins.
it_zycbt134-waers = itab_zycbt031-waers.
CLEAR it_zycbt134-vlme.
LOOP AT itab_zycbt064 WHERE nrboleto = it_zycbt134-nrseq.
READ TABLE itab_zycat025 WITH KEY
* >> Início da exclusão: FORM CARREGA_DADOS_CP
tpimp = 'COFINS'
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_CP
tpimp(6) = 'COFINS'
* << Fim da inclusão
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
it_zycbt134-vlme = it_zycbt134-vlme + itab_zycat025-vlimpme.
ENDIF.
ENDLOOP.
...
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM altera_itab_zycbt134.
v_index = tc_boletos2-current_line.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT134
IF /pws/zycbe134-mark EQ 'X'.
itab_zycbt134-mark = 'X'.
ELSE.
CLEAR itab_zycbt134-mark.
ENDIF.
* << Fim da exclusão
IF itab_zycbt134-belnr_c IS INITIAL AND
itab_zycbt134-belnr_ci IS INITIAL AND
itab_zycbt134-belnr_cide IS INITIAL.
itab_zycbt134-bcocred = /pws/zycbe134-bcocred.
ELSE.
...
...
ENDSELECT.
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
v_zlsch = /pws/zycbt145-zlsch.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschi.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschc.
* >> Início da exclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschp.
* >> Início da exclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschf.
* >> Início da exclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschs.
* >> Início da exclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlscho.
ENDIF.
IF sy-subrc = 0.
CLEAR t001-land1.
SELECT land1
...
...
ENDIF.
IF itab_zycbt134_g-vlmiir > 0.
v_tot_irrf_brl = v_tot_irrf_brl + itab_zycbt134_g-vlmiir.
ELSEIF itab_zycbt134_g-vlmi > 0 AND
( itab_zycbt134_g-tpproc = 'I' OR
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(4) = 'IRRF' ).
* << Fim da inclusão
v_tot_irrf_brl = v_tot_irrf_brl + itab_zycbt134_g-vlmi.
ENDIF.
IF itab_zycbt134_g-vlmicide > 0.
v_tot_cide_brl = v_tot_cide_brl + itab_zycbt134_g-vlmicide.
ELSEIF itab_zycbt134_g-vlmi > 0 AND
( itab_zycbt134_g-tpproc = 'C' OR
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'CIDE' ).
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(4) = 'CIDE' ).
* << Fim da inclusão
v_tot_cide_brl = v_tot_cide_brl + itab_zycbt134_g-vlmi.
ENDIF.
IF itab_zycbt134_g-vlmi > 0 AND
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_tot_iof_brl = v_tot_iof_brl + itab_zycbt134_g-vlmi.
ENDIF.
IF itab_zycbt134_g-vlmi > 0 AND
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_tot_iss_brl = v_tot_iss_brl + itab_zycbt134_g-vlmi.
ENDIF.
IF itab_zycbt134_g-vlmi > 0 AND
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_tot_pis_brl = v_tot_pis_brl + itab_zycbt134_g-vlmi.
ENDIF.
IF itab_zycbt134_g-vlmi > 0 AND
* >> Início da exclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PAGAMENTO
itab_zycbt134_g-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_tot_cofins_brl = v_tot_cofins_brl + itab_zycbt134_g-vlmi.
ENDIF.
ENDLOOP.
SET PARAMETER ID 'BUK' FIELD /pws/zycbt134-bukrs.
IF sy-subrc NE 0.
...
...
ENDIF.
IF itab_zycbt134-vlmiir > 0.
v_tot_irrf_brl = v_tot_irrf_brl + itab_zycbt134-vlmiir.
ELSEIF itab_zycbt134-vlmi > 0 AND
( itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(4) = 'IRRF' ).
* << Fim da inclusão
v_tot_irrf_brl = v_tot_irrf_brl + itab_zycbt134-vlmi.
ENDIF.
IF itab_zycbt134-vlmicide > 0.
v_tot_cide_brl = v_tot_cide_brl + itab_zycbt134-vlmicide.
ELSEIF itab_zycbt134-vlmi > 0 AND
( itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'CIDE' ).
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(4) = 'CIDE' ).
* << Fim da inclusão
v_tot_cide_brl = v_tot_cide_brl + itab_zycbt134-vlmi.
ENDIF.
IF itab_zycbt134-vlmi > 0 AND
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_tot_iof_brl = v_tot_iof_brl + itab_zycbt134-vlmi.
ENDIF.
IF itab_zycbt134-vlmi > 0 AND
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_tot_iss_brl = v_tot_iss_brl + itab_zycbt134-vlmi.
ENDIF.
IF itab_zycbt134-vlmi > 0 AND
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_tot_pis_brl = v_tot_pis_brl + itab_zycbt134-vlmi.
ENDIF.
IF itab_zycbt134-vlmi > 0 AND
* >> Início da exclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_LINHA
itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_tot_cofins_brl = v_tot_cofins_brl + itab_zycbt134-vlmi.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...
...
ELSE.
IF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
v_zlsch = /pws/zycbt145-zlsch.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschi.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschc.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschp.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschf.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschs.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlscho.
ENDIF.
SELECT ukont
UP TO 1 ROWS
FROM t042i
...
...
IF sy-index = 2.
itab_zycbt134-statusp_ir = text-079.
itab_zycbt134-belnr_ci = itab_zycbt032-belnr.
itab_zycbt134-dtlanc = itab_zycbe033-budat.
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
LOOP AT itab_zycat025 WHERE tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
LOOP AT itab_zycat025 WHERE tpimp(4) = 'IRRF'
* << Fim da inclusão
AND nrseq = itab_zycbt064-nrchave.
itab_zycat025-belnr_pg = itab_zycbt134-belnr_ci.
itab_zycat025-dtpagto = itab_zycbt031-dtcredir.
UPDATE /pws/zycat025 SET
dtpagto = itab_zycat025-dtpagto
...
...
ELSEIF sy-index = 3.
itab_zycbt134-statusp_cide = text-079.
itab_zycbt134-belnr_cide = itab_zycbt032-belnr.
itab_zycbt134-dtlanc = itab_zycbe033-budat.
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
LOOP AT itab_zycat025 WHERE tpimp = 'CIDE'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
LOOP AT itab_zycat025 WHERE tpimp(4) = 'CIDE'
* << Fim da inclusão
AND nrseq = itab_zycbt064-nrchave.
itab_zycat025-belnr_pg = itab_zycbt134-belnr_cide.
itab_zycat025-dtpagto = itab_zycbt031-dtcide.
UPDATE /pws/zycat025 SET dtpagto = itab_zycat025-dtpagto
belnr_pg = itab_zycat025-belnr_pg
...
...
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
LOOP AT itab_zycbt124 WHERE buzei > 0
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '
AND nrseq EQ itab_zycbt064-nrchave.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc NE 0 OR
( sy-subrc EQ 0 AND itab_zycat025-dedfat EQ ' ' ).
PERFORM estorna_desmembra_provisao_cp.
ENDIF.
...
...
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
LOOP AT itab_zycbt124 WHERE buzei > 0
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '
AND nrseq EQ itab_zycbt064-nrchave.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc NE 0 OR
( sy-subrc EQ 0 AND itab_zycat025-dedfat EQ ' ' ).
PERFORM estorna_desmembra_provisao_cp.
ENDIF.
...
...
LOOP AT itab_zycbt064 WHERE nrboleto = itab_zycbt134-nrseq.
LOOP AT itab_zycbt124 WHERE buzei > 0
AND belnr_f51 NE '0000000000'
AND belnr_f51 NE ' '
AND nrseq EQ itab_zycbt064-nrchave.
* >> Início da exclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
* << Fim da inclusão
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc NE 0 OR
( sy-subrc EQ 0 AND itab_zycat025-dedfat EQ ' ' ).
PERFORM estorna_desmembra_provisao_cp.
ENDIF.
...
...
ENDIF.
PERFORM clear_date_batch.
ENDFORM.
FORM dados_arquivo_eletronico.
MOVE-CORRESPONDING itab_zycbt134 TO itab_zycbt134_arq.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
CASE itab_zycbt134_arq-tpproc.
WHEN ' ' OR 'PRINCIPAL'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
IF itab_zycbt134_arq-tpproc = ' ' OR
itab_zycbt134_arq-tpproc = 'PRINCIPAL'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlsch TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'I' OR 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc = 'I' OR
itab_zycbt134_arq-tpproc(4) = 'IRRF'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlschi TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'C' OR 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc = 'C' OR
itab_zycbt134_arq-tpproc(4) = 'CIDE'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlschc TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc(3) = 'PIS'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlschp TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc(6) = 'COFINS'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlschf TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc(3) = 'ISS'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlschs TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
WHEN 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ELSEIF itab_zycbt134_arq-tpproc(3) = 'IOF'.
* << Fim da inclusão
MOVE /pws/zycbt145-zlscho TO itab_zycbt134_arq-zlsch.
* >> Início da exclusão: FORM DADOS_ARQUIVO_ELETRONICO
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_ARQUIVO_ELETRONICO
ENDIF.
* << Fim da inclusão
APPEND itab_zycbt134_arq.
MOVE itab_zycbt031 TO itab_zycbt031_arq.
APPEND itab_zycbt031_arq.
ENDFORM.
FORM gera_arquivo_eletronico.
...
...
APPEND itab_zycbt036.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'IRRF' OR p_tpproc = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(4) = 'IRRF' OR p_tpproc = 'I'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF itab_zycbt031-pagtoirrf EQ 'BCO' OR
/pws/zycbt145-cod_fech EQ 'TR' OR
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'CIDE' OR p_tpproc = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(4) = 'CIDE' OR p_tpproc = 'C'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF itab_zycbt031-pagtocide EQ 'BCO' OR
/pws/zycbt145-cod_fech EQ 'TR' OR
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(3) = 'IOF'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF /pws/zycbt145-cod_fech EQ 'TR' OR
itab_zycat025-frpagto_imp EQ 'R'.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(3) = 'ISS'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF /pws/zycbt145-cod_fech EQ 'TR' OR
itab_zycat025-frpagto_imp EQ 'R'.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(3) = 'PIS'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF /pws/zycbt145-cod_fech EQ 'TR' OR
itab_zycat025-frpagto_imp EQ 'R'.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTO_CP
IF p_tpproc(6) = 'COFINS'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpproc
nrseq = itab_zycbt064-nrchave.
IF sy-subrc = 0.
IF /pws/zycbt145-cod_fech EQ 'TR' OR
itab_zycat025-frpagto_imp EQ 'R'.
...
...
READ TABLE itab_zycmt001 WITH KEY nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc EQ 0.
v_dtcredpr = itab_zycmt001-dtincl.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DOCTOS
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTOS
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
IF itab_zycbt134-mdcorresp EQ 'CP'.
PERFORM seleciona_docto_cp USING itab_zycbt134-tpproc.
ELSEIF itab_zycbt134-mdcorresp = 'EL'.
READ TABLE itab_zycbt031 WITH KEY nrseq = itab_zycbt134-nrseq
dtboleto = itab_zycbt134-dtboleto.
...
...
ELSE.
itab_zycbe033-belnr = itab_zycbt134-belnr_p.
itab_zycbe033-dtdocto = v_dtcredpr_aux.
ENDIF.
v_bcoc = itab_zycbt134-bcocred.
* >> Início da exclusão: FORM SELECIONA_DOCTOS
ELSEIF itab_zycbt134-tpproc = 'CIDE' OR
itab_zycbt134-tpproc = 'C' OR
itab_zycbt134-tpproc = 'IOF' OR
itab_zycbt134-tpproc = 'ISS' OR
itab_zycbt134-tpproc = 'PIS' OR
itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DOCTOS
ELSEIF itab_zycbt134-tpproc(4) = 'CIDE' OR
itab_zycbt134-tpproc = 'C' OR
itab_zycbt134-tpproc(3) = 'IOF' OR
itab_zycbt134-tpproc(3) = 'ISS' OR
itab_zycbt134-tpproc(3) = 'PIS' OR
itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
IF itab_zycbt134-mdcorresp = 'CP'.
PERFORM seleciona_docto_cp USING itab_zycbt134-tpproc.
ENDIF.
ENDIF.
ENDFORM.
...
...
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
ELSE.
IF itab_zycbt134-tpproc = ' ' OR itab_zycbt134-tpproc = 'PRINCIPAL'.
v_zlsch = /pws/zycbt145-zlsch.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'I' OR
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschi.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'C' OR itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'C' OR
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschc.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlscho.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschs.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschp.
* >> Início da exclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_SAIDA
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_zlsch = /pws/zycbt145-zlschf.
ENDIF.
SELECT ukont
UP TO 1 ROWS
FROM t042i
...
...
itab_zycbe033-budat = itab_zycbt031-dtcredpr.
PERFORM verify_null_field USING itab_zycbt031-dtcredpr
'DTCREDPR'
text-091.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = v_bukrs_aux
v_date = itab_zycbt031-dtcredir
IMPORTING
...
...
itab_zycbe033-budat = itab_zycbt031-dtcredir.
PERFORM verify_null_field USING itab_zycbt031-dtcredir
'DTCREDIR'
text-092.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
itab_zycbe033-budat = itab_zycbt031-dtcide.
PERFORM verify_null_field USING itab_zycbt031-dtcide
'DTCIDE'
text-248.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtiof.
PERFORM verify_null_field USING /pws/zycbt145-dtiof
'DTIOF'
text-276.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtiss.
PERFORM verify_null_field USING /pws/zycbt145-dtiss
'DTISS'
text-277.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtpis.
PERFORM verify_null_field USING /pws/zycbt145-dtpis
'DTPIS'
text-278.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtcofins.
PERFORM verify_null_field USING /pws/zycbt145-dtcofins
'DTCOFINS'
text-279.
ENDIF.
...
...
itab_zycbe033-budat = v_dtcredpr.
PERFORM verify_null_field USING v_dtcredpr
'DTCREDPR'
text-091.
ELSEIF itab_zycbt134-tpproc = 'I' OR
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = v_bukrs_aux
v_date = v_dtcredir
IMPORTING
...
...
itab_zycbe033-budat = v_dtcredir.
PERFORM verify_null_field USING v_dtcredir
'DTCREDIR'
text-092.
ELSEIF itab_zycbt134-tpproc = 'C' OR
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
itab_zycbe033-budat = itab_zycbt031-dtcide.
PERFORM verify_null_field USING itab_zycbt031-dtcide
'DTCIDE'
text-248.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'IOF'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtiof.
PERFORM verify_null_field USING /pws/zycbt145-dtiof
'DTIOF'
text-276.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'ISS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtiss.
PERFORM verify_null_field USING /pws/zycbt145-dtiss
'DTISS'
text-277.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(3) = 'PIS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtpis.
PERFORM verify_null_field USING /pws/zycbt145-dtpis
'DTPIS'
text-278.
* >> Início da exclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONSISTE_DTLANC
ELSEIF itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
itab_zycbe033-budat = /pws/zycbt145-dtcofins.
PERFORM verify_null_field USING /pws/zycbt145-dtcofins
'DTCOFINS'
text-279.
ENDIF.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_conta_compensar.
IF /pws/zycbt145-cod_fech NE 'TR'.
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
CASE itab_zycbt134-tpproc.
WHEN 'I' OR 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
IF itab_zycbt134-tpproc = 'I' OR
itab_zycbt134-tpproc(4) = 'IRRF'.
* << Fim da inclusão
READ TABLE itab_zycat025 WITH KEY tpimp = itab_zycbt134-tpproc
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc EQ 0 AND
itab_zycbt134-mdcorresp EQ 'CP' AND
itab_zycbe033-agkon IS INITIAL AND
...
...
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
WHEN ' ' OR 'PRINCIPAL'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
ELSEIF itab_zycbt134-tpproc = ' ' OR
itab_zycbt134-tpproc = 'PRINCIPAL'.
* << Fim da inclusão
IF itab_zycbt134-mdcorresp = 'EL'.
READ TABLE itab_bsik WITH KEY gjahr = itab_zycbt036-dtdocto(4)
belnr = itab_zycbt134-belnr_p
lifnr = itab_zycbt134-bcocred.
ELSE.
...
...
WHERE nrseq = itab_zycbt134-nrseq.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
WHEN 'CIDE' OR 'IOF' OR 'ISS' OR 'PIS' OR 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
ELSEIF itab_zycbt134-tpproc(4) = 'CIDE' OR
itab_zycbt134-tpproc(3) = 'IOF' OR
itab_zycbt134-tpproc(3) = 'ISS' OR
itab_zycbt134-tpproc(3) = 'PIS' OR
itab_zycbt134-tpproc(6) = 'COFINS'.
* << Fim da inclusão
IF itab_zycbt134-mdcorresp EQ 'CP'.
READ TABLE itab_zycat025 WITH KEY tpimp = itab_zycbt134-tpproc
nrseq = itab_zycbt134-nrcorresp.
IF sy-subrc EQ 0 AND
itab_zycbe033-agkon IS INITIAL AND
...
...
IF sy-subrc = 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-agkon = itab_zyglt316-konth.
ENDIF.
itab_zycbe033-agkoa = 'S'.
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
ENDCASE.
* << Fim da exclusão
ELSE.
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc = 'IRRF' OR
itab_zycbt134-tpproc = 'C' OR itab_zycbt134-tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
IF itab_zycbt134-tpproc = 'I' OR itab_zycbt134-tpproc(4) = 'IRRF' OR
itab_zycbt134-tpproc = 'C' OR itab_zycbt134-tpproc(4) = 'CIDE'.
* << Fim da inclusão
IF itab_zycbt031-pagtoirrf = 'BCO'.
IF NOT itab_zycbt031-bcoopir IS INITIAL AND
( itab_zycbt134-tpproc EQ 'I' OR
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc EQ 'IRRF' ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc(4) EQ 'IRRF' ).
* << Fim da inclusão
itab_zycbe033-agkon = itab_zycbt031-bcoopir.
ELSEIF NOT itab_zycbt031-bcoopcide IS INITIAL AND
( itab_zycbt134-tpproc EQ 'C' OR
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc EQ 'CIDE' ).
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc(4) EQ 'CIDE' ).
* << Fim da inclusão
itab_zycbe033-agkon = itab_zycbt031-bcoopcide.
ELSEIF NOT itab_zycbt031-bcooper IS INITIAL.
itab_zycbe033-agkon = itab_zycbt031-bcooper.
ENDIF.
ELSEIF itab_zycbt031-pagtoirrf = 'EMP'.
...
...
IF sy-subrc EQ 0.
itab_zycbe033-agkon = itab_bsik-lifnr.
ENDIF.
ENDIF.
ELSEIF itab_zycbt134-tpproc EQ 'C' OR
* >> Início da exclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc EQ 'IOF' OR
itab_zycbt134-tpproc EQ 'ISS' OR
itab_zycbt134-tpproc EQ 'PIS' OR
itab_zycbt134-tpproc EQ 'COFINS' OR
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_CONTA_COMPENSAR
itab_zycbt134-tpproc(3) EQ 'IOF' OR
itab_zycbt134-tpproc(3) EQ 'ISS' OR
itab_zycbt134-tpproc(3) EQ 'PIS' OR
itab_zycbt134-tpproc(6) EQ 'COFINS' OR
* << Fim da inclusão
itab_zycbt134-tpproc IS INITIAL OR
itab_zycbt134-tpproc EQ 'PRINCIPAL'.
itab_zycbe033-agkon = itab_zycbt134-bcooper.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
ENDIF.
READ TABLE itab_zycbt134 WITH KEY nrseq = itab_zycbt064-nrboleto
tpproc = 'I'.
IF sy-subrc NE 0.
READ TABLE itab_zycbt134 WITH KEY nrseq = itab_zycbt064-nrboleto
* >> Início da exclusão: FORM CARREGA_DADOS_GLOBAIS
tpproc = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS
tpproc(4) = 'IRRF'.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
itab_zycbt031_tc-belnr_ci = itab_zycbt134-belnr_ci.
ENDIF.
READ TABLE itab_zycbt134 WITH KEY nrseq = itab_zycbt064-nrboleto
tpproc = 'C'.
IF sy-subrc NE 0.
READ TABLE itab_zycbt134 WITH KEY nrseq = itab_zycbt064-nrboleto
* >> Início da exclusão: FORM CARREGA_DADOS_GLOBAIS
tpproc = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS
tpproc(4) = 'CIDE'.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
itab_zycbt031_tc-v_belnr_cide = itab_zycbt134-belnr_cide.
ENDIF.
READ TABLE itab_zycbt048 WITH KEY nrseq = itab_zycbt064-nrboleto
...
...
IF p_tpimp = 'PRINCIPAL'.
/pws/zycbe031-belnr_cl_p = itab_zycbt032-belnr.
itab_zycbt031-belnr_cl_p = itab_zycbt032-belnr.
MODIFY itab_zycbt031 TRANSPORTING belnr_cl_p
WHERE nrseq = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(4) = 'IRRF'.
* << Fim da inclusão
/pws/zycbe031-belnr_cl_pi = itab_zycbt032-belnr.
itab_zycbt031-belnr_cl_pi = itab_zycbt032-belnr.
MODIFY itab_zycbt031 TRANSPORTING belnr_cl_pi
WHERE nrseq = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(4) = 'CIDE'.
* << Fim da inclusão
/pws/zycbe031-belnr_cl_cide = itab_zycbt032-belnr.
itab_zycbt031-belnr_cl_cide = itab_zycbt032-belnr.
MODIFY itab_zycbt031 TRANSPORTING belnr_cl_cide
WHERE nrseq = /pws/zycbe031-nrseq.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(3) = 'IOF'.
* << Fim da inclusão
/pws/zycbe145-belnr_cl_iof = itab_zycbt032-belnr.
wa_zycbt145-belnr_cl_iof = itab_zycbt032-belnr.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(3) = 'ISS'.
* << Fim da inclusão
/pws/zycbe145-belnr_cl_iss = itab_zycbt032-belnr.
wa_zycbt145-belnr_cl_iss = itab_zycbt032-belnr.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(3) = 'PIS'.
* << Fim da inclusão
/pws/zycbe145-belnr_cl_pis = itab_zycbt032-belnr.
wa_zycbt145-belnr_cl_pis = itab_zycbt032-belnr.
* >> Início da exclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
ELSEIF p_tpimp(6) = 'COFINS'.
* << Fim da inclusão
/pws/zycbe145-belnr_cl_cofins = itab_zycbt032-belnr.
wa_zycbt145-belnr_cl_cofins = itab_zycbt032-belnr.
ENDIF.
ELSE.
LOOP AT itab_zycbt032 WHERE cpochv = /pws/zycbe031-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCAR018
...
MOVE: itab_zycbt115-rof TO itab_final-rof,
itab_zycbt115-dtrof TO itab_final-dtrof.
PERFORM busca_valor_mi.
READ TABLE itab_zycat025 WITH KEY
nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(4) = 'IRRF'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vlir.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_ir.
ELSE.
...
...
MOVE itab_zycat025-codrf TO itab_final-codrf_ir.
MOVE itab_zycat025-dtvencto TO itab_final-vencto_ir.
ENDIF.
READ TABLE itab_zycat025 WITH KEY
nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(4) = 'CIDE'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vlcide.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_cide.
ELSE.
...
...
ENDIF.
MOVE itab_zycat025-codrf TO itab_final-codrf_cide.
MOVE itab_zycat025-dtvencto TO itab_final-vencto_cide.
ENDIF.
READ TABLE itab_zycat025 WITH KEY nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(3) = 'IOF'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vliof.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_iof.
ELSE.
...
...
MOVE itab_zycat025-codrf TO itab_final-codrf_iof.
MOVE itab_zycat025-dtvencto TO itab_final-vencto_iof.
ENDIF.
READ TABLE itab_zycat025 WITH KEY
nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(3) = 'ISS'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vliss.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_iss.
ELSE.
...
...
MOVE itab_zycat025-codrf TO itab_final-codrf_iss.
MOVE itab_zycat025-dtvencto TO itab_final-vencto_iss.
ENDIF.
READ TABLE itab_zycat025 WITH KEY
nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(3) = 'PIS'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vlpis.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_pis.
ELSE.
...
...
MOVE itab_zycat025-codrf TO itab_final-codrf_pis.
MOVE itab_zycat025-dtvencto TO itab_final-vencto_pis.
ENDIF.
READ TABLE itab_zycat025 WITH KEY
nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM PROCESSA_DADOS
tpimp = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_DADOS
tpimp(6) = 'COFINS'.
* << Fim da inclusão
IF sy-subrc = 0.
MOVE itab_zycat025-vlimpme TO itab_final-vlcofins.
IF NOT itab_zycat025-advalorem IS INITIAL.
MOVE itab_zycat025-advalorem TO itab_final-percent_cofins.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR003
...
SEPARATED BY space.
ENDIF.
ENDIF.
CLEAR: v_me, v_usd.
READ TABLE itab_zycat025 WITH KEY nrseq = itab_zycbt124-nrseq
* >> Início da exclusão: FORM SELECIONA_REMESSA
tpimp = 'IRRF'
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_REMESSA
tpimp(4) = 'IRRF'
* << Fim da inclusão
dedfat = 'X'.
IF sy-subrc = 0.
itab_selreg-vlme = v_me = itab_zycbt124-vlme -
itab_zycat025-vlimpme.
ELSE.
...
...
itab_zycbt124-txtinf TO itab_selreg-txtinf,
'N' TO itab_selreg-frof,
'CP' TO itab_selreg-fmd,
itab_zycbt124-codpagto TO itab_selreg-tpaut,
itab_zycbt124-frpagto TO itab_selreg-frpagto.
* >> Início da exclusão: FORM SELECIONA_REMESSA
PERFORM verifica_impostos:
USING 'ISS' CHANGING itab_selreg-vliss,
USING 'IRRF' CHANGING itab_selreg-vlir,
USING 'CIDE' CHANGING itab_selreg-vlcide,
USING 'PIS' CHANGING itab_selreg-vlpis,
USING 'COFINS' CHANGING itab_selreg-vlcofins,
USING 'IOF' CHANGING itab_selreg-vliof.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_REMESSA
LOOP AT itab_zycat025 WHERE nrseq = itab_zycbt124-nrseq.
IF itab_zycat025-tpimp(3) = 'ISS'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vliss.
ELSEIF itab_zycat025-tpimp(4) = 'IRRF'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vlir.
ELSEIF itab_zycat025-tpimp(4) = 'CIDE'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vlcide.
ELSEIF itab_zycat025-tpimp(3) = 'PIS'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vlpis.
ELSEIF itab_zycat025-tpimp(6) = 'COFINS'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vlcofins.
ELSEIF itab_zycat025-tpimp(3) = 'IOF'.
PERFORM verifica_impostos
USING itab_zycat025-tpimp CHANGING itab_selreg-vliof.
ENDIF.
ENDLOOP.
* << Fim da inclusão
READ TABLE itab_zycbt142 WITH KEY nrseq = itab_zycbt124-nrseq.
IF sy-subrc = 0.
MOVE: itab_zycbt142-bcointerm TO itab_selreg-bcointerm,
itab_zycbt142-contcor TO itab_selreg-contcor.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR025
...
SELECT SINGLE * FROM /pws/zycbt145
WHERE nrseq = itab_zycbt134_arq2-nrseq.
IF itab_zycbt134_arq2-tpproc EQ 'PRINCIPAL' OR
itab_zycbt134_arq2-tpproc EQ ' '.
MOVE itab_zycbt134_arq2-t031_vlmi TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'IRRF' OR
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(4) EQ 'IRRF' OR
* << Fim da inclusão
itab_zycbt134_arq2-tpproc EQ 'I'.
MOVE itab_zycbt134_arq2-t031_vlmiir TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'CIDE' OR
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(4) EQ 'CIDE' OR
* << Fim da inclusão
itab_zycbt134_arq2-tpproc EQ 'C'.
MOVE itab_zycbt134_arq2-t031_vlmicide TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(3) EQ 'PIS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmipis TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(6) EQ 'COFINS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmicofins TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(3) EQ 'IOF'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmiiof TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc EQ 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc(3) EQ 'ISS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmiiss TO itab_detalhe_a-vlrpagto.
ENDIF.
ELSE.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
CASE itab_zycbt134_arq2-tpproc.
WHEN ' ' OR 'PRINCIPAL'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
IF itab_zycbt134_arq2-tpproc = ' ' OR
itab_zycbt134_arq2-tpproc = 'PRINCIPAL'.
* << Fim da inclusão
MOVE: itab_zycbt134_arq2-belnr_c TO itab_detalhe_a-nudocatremp,
itab_zycbt134_arq2-t031_vlmi TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
WHEN 'I' OR 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc = 'I' OR
itab_zycbt134_arq2-tpproc(4) = 'IRRF'.
* << Fim da inclusão
MOVE: itab_zycbt134_arq2-belnr_ci TO itab_detalhe_a-nudocatremp,
itab_zycbt134_arq2-t031_vlmiir TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
WHEN 'C' OR 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSEIF itab_zycbt134_arq2-tpproc = 'C' OR
itab_zycbt134_arq2-tpproc(4) = 'CIDE'.
* << Fim da inclusão
MOVE: itab_zycbt134_arq2-belnr_cide TO itab_detalhe_a-nudocatremp,
itab_zycbt134_arq2-t031_vlmicide TO itab_detalhe_a-vlrpagto.
* >> Início da exclusão: FORM GRAVA_DETALHE_A
WHEN OTHERS.
ENDCASE.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_A
ELSE.
ENDIF.
* << Fim da inclusão
ENDIF.
TRANSLATE itab_detalhe_a-vlrpagto USING '. '.
CONDENSE itab_detalhe_a-vlrpagto NO-GAPS.
SHIFT itab_detalhe_a-vlrpagto RIGHT DELETING TRAILING space.
TRANSLATE itab_detalhe_a-vlrpagto USING ' 0'.
...
...
CONCATENATE itab_zycbt134_arq2-dtlanc+06(02)
itab_zycbt134_arq2-dtlanc+04(02)
itab_zycbt134_arq2-dtlanc+0(04) INTO itab_detalhe_b-dtvcmtonomi.
SELECT SINGLE * FROM /pws/zycbt145
WHERE nrseq = itab_zycbt134_arq2-nrseq.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
CASE itab_zycbt134_arq2-tpproc.
WHEN ' ' OR 'PRINCIPAL'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
IF itab_zycbt134_arq2-tpproc = ' ' OR
itab_zycbt134_arq2-tpproc = 'PRINCIPAL'.
* << Fim da inclusão
MOVE itab_zycbt134_arq2-t031_vlmi TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'I' OR 'IRRF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc = 'I' OR
itab_zycbt134_arq2-tpproc(4) = 'IRRF'.
* << Fim da inclusão
MOVE itab_zycbt134_arq2-t031_vlmiir
TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'C' OR 'CIDE'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc = 'C' OR
itab_zycbt134_arq2-tpproc(4) = 'CIDE'.
* << Fim da inclusão
MOVE itab_zycbt134_arq2-t031_vlmicide
TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'PIS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmipis TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc(6) = 'COFINS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmicofins TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'ISS'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmiiss TO itab_detalhe_b-vlrdoctonom.
* >> Início da exclusão: FORM GRAVA_DETALHE_B
WHEN 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'IOF'.
* << Fim da inclusão
MOVE /pws/zycbt145-vlmiiof TO itab_detalhe_b-vlrdoctonom.
* >> Início da inclusão: FORM GRAVA_DETALHE_B
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM GRAVA_DETALHE_B
ENDCASE.
* << Fim da exclusão
TRANSLATE itab_detalhe_b-vlrdoctonom USING '. '.
CONDENSE itab_detalhe_b-vlrdoctonom NO-GAPS.
SHIFT itab_detalhe_b-vlrdoctonom RIGHT DELETING TRAILING space.
TRANSLATE itab_detalhe_b-vlrdoctonom USING ' 0'.
IF p_arq(1) EQ '/' OR p_arq(1) EQ '\'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR026
...
WHERE nrseq = itab_zycbt134_arq2-nrseq.
itab_det_segto_a_341-seu_numero = itab_zycbt134_arq2-belnr_c.
IF itab_zycbt134_arq2-tpproc = 'PRINCIPAL' OR
itab_zycbt134_arq2-tpproc = ' '.
v_pagto = itab_zycbt031_arq-vlmi.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'IRRF' OR
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(4) = 'IRRF' OR
* << Fim da inclusão
itab_zycbt134_arq2-tpproc = 'I'.
v_pagto = itab_zycbt031_arq-vlmiir.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'CIDE' OR
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(4) = 'CIDE' OR
* << Fim da inclusão
itab_zycbt134_arq2-tpproc = 'C'.
v_pagto = itab_zycbt031_arq-vlmicide.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'PIS'.
* << Fim da inclusão
v_pagto = /pws/zycbt145-vlmipis.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(6) = 'COFINS'.
* << Fim da inclusão
v_pagto = /pws/zycbt145-vlmicofins.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'IOF'.
* << Fim da inclusão
v_pagto = /pws/zycbt145-vlmiiof.
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc = 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
ELSEIF itab_zycbt134_arq2-tpproc(3) = 'ISS'.
* << Fim da inclusão
v_pagto = /pws/zycbt145-vlmiiss.
ENDIF.
ELSE.
IF itab_zycbt134_arq2-tpproc EQ c_space OR
itab_zycbt134_arq2-tpproc EQ c_principal.
itab_det_segto_a_341-seu_numero = itab_zycbt134_arq2-belnr_c.
v_pagto = itab_zycbt031_arq-vlmi.
ELSEIF itab_zycbt134_arq2-tpproc EQ c_i OR
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
itab_zycbt134_arq2-tpproc EQ c_irrf.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
itab_zycbt134_arq2-tpproc(4) EQ c_irrf.
* << Fim da inclusão
itab_det_segto_a_341-seu_numero = itab_zycbt134_arq2-belnr_ci.
v_pagto = itab_zycbt031_arq-vlmiir.
ELSEIF itab_zycbt134_arq2-tpproc EQ c_c OR
* >> Início da exclusão: FORM MONTA_DETALHE_SEGTO_A
itab_zycbt134_arq2-tpproc EQ c_cide.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DETALHE_SEGTO_A
itab_zycbt134_arq2-tpproc(4) EQ c_cide.
* << Fim da inclusão
itab_det_segto_a_341-seu_numero = itab_zycbt134_arq2-belnr_cide.
v_pagto = itab_zycbt031_arq-vlmicide.
ENDIF.
ENDIF.
SHIFT itab_det_segto_a_341-seu_numero LEFT DELETING LEADING space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR027
...
SELECT SINGLE * FROM /pws/zycbt145
WHERE nrseq = itab_zycbt134_arq-nrseq.
IF itab_zycbt134_arq-tpproc EQ 'PRINCIPAL' OR
itab_zycbt134_arq-tpproc EQ ' '.
v_docto = itab_zycbt031_arq-vlmi.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'IRRF' OR
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(4) EQ 'IRRF' OR
* << Fim da inclusão
itab_zycbt134_arq-tpproc EQ 'I'.
v_docto = itab_zycbt031_arq-vlmiir.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'CIDE' OR
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(4) EQ 'CIDE' OR
* << Fim da inclusão
itab_zycbt134_arq-tpproc EQ 'C'.
v_docto = itab_zycbt031_arq-vlmicide.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'PIS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(3) EQ 'PIS'.
* << Fim da inclusão
v_docto = /pws/zycbt145-vlmipis.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'COFINS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(6) EQ 'COFINS'.
* << Fim da inclusão
v_docto = /pws/zycbt145-vlmicofins.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'IOF'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(3) EQ 'IOF'.
* << Fim da inclusão
v_docto = /pws/zycbt145-vlmiiof.
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc EQ 'ISS'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
ELSEIF itab_zycbt134_arq-tpproc(3) EQ 'ISS'.
* << Fim da inclusão
v_docto = /pws/zycbt145-vlmiiss.
ENDIF.
v_pagto = v_docto.
ELSE.
IF itab_zycbt134_arq-tpproc EQ c_space OR
...
...
itab_trans_arq-seu_numero = itab_zycbt134_arq-belnr_c.
itab_trans_arq-num_nf_fat_dup = itab_zycbt134_arq-belnr_c.
v_docto = itab_zycbt031_arq-vlmi.
v_pagto = itab_zycbt031_arq-vlmi.
ELSEIF itab_zycbt134_arq-tpproc EQ c_i OR
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
itab_zycbt134_arq-tpproc EQ c_irrf.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
itab_zycbt134_arq-tpproc(4) EQ c_irrf.
* << Fim da inclusão
itab_trans_arq-numero_pagto = itab_zycbt134_arq-belnr_ci.
itab_trans_arq-seu_numero = itab_zycbt134_arq-belnr_ci.
itab_trans_arq-num_nf_fat_dup = itab_zycbt134_arq-belnr_ci.
v_docto = itab_zycbt031_arq-vlmiir.
v_pagto = itab_zycbt031_arq-vlmiir.
ELSEIF itab_zycbt134_arq-tpproc EQ c_c OR
* >> Início da exclusão: FORM MONTA_TRANS_ARQ
itab_zycbt134_arq-tpproc EQ c_cide.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_TRANS_ARQ
itab_zycbt134_arq-tpproc(4) EQ c_cide.
* << Fim da inclusão
itab_trans_arq-numero_pagto = itab_zycbt134_arq-belnr_cide.
itab_trans_arq-seu_numero = itab_zycbt134_arq-belnr_cide.
itab_trans_arq-num_nf_fat_dup = itab_zycbt134_arq-belnr_cide.
v_docto = itab_zycbt031_arq-vlmicide.
v_pagto = itab_zycbt031_arq-vlmicide.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA109
Incluído símbolo de texto:
Idioma: PT
Símbolo: 178
Texto: (40 caracteres)
"Tipo de Imposto já existente na remessa."
Comprimento máximo: 40