CE PLUS - Nota 000481
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 16/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:39:12
Descrição da Nota: REMESSA FINANCEIRA COM IRRF DEDUZIDO DA FATURA
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
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00481 Data: 16/12/2005 Hora: 17:11:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00481
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REMESSA FINANCEIRA COM IRRF DEDUZIDO DA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA FINANCEIRA CIDE IRRF DEDUZIDO PRINCIPAL ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
Contexto: FORM verif_alteracoes_relevantes USING p_criacao
p_tpimp
CHANGING p_estorna.
DATA: v_codeven LIKE /pws/zycbt011-codeven.
CLEAR: itab_zycbt141_i_aux2, itab_zycbt141_i2, p_estorna,
itab_zycbt141_p_aux2, itab_zycbt141_p2.
REFRESH: itab_zycbt141_i_aux2, itab_zycbt141_i2,
itab_zycbt141_p_aux2, itab_zycbt141_p2.
...
SORT: itab_zycbt141_i_aux2, itab_zycbt141_i2,
itab_zycbt141_p_aux2, itab_zycbt141_p2
BY tpimp saknr1 kostl prctr aufnr ps_psp_pnr fipos fictr gsber.
* Trata Principal de remessa criada com origem e com IRRF deduzido
IF p_criacao NE 'S' AND p_tpimp = 'PRINCIPAL'.
IF /pws/zycbe124-j_1bbranch NE wa_zycbt124-j_1bbranch.
p_estorna = 'X'.
EXIT.
ENDIF.
IF NOT itab_zycat024-credito_imp IS INITIAL.
v_cred_imp = itab_zycat024-credito_imp.
ELSE.
v_cred_imp = /pws/zyglt009-cont_impostos.
ENDIF.
IF v_cred_imp = '2'.
IF /pws/zycbe124-recrem NE wa_zycbt124-recrem.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
PERFORM verifica_campos_parmetrizaveis USING v_codeven
p_estorna.
...
ELSEIF ( p_tpimp NE 'PRINCIPAL' AND
p_tpimp NE 'IRRF' AND
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
p_criacao EQ 'S'.
IF p_tpimp EQ 'PRINCIPAL'.
IF /pws/zycbe124-dtdocto NE wa_zycbt124-dtdocto OR
/pws/zycbe124-tpoper NE wa_zycbt124-tpoper OR
/pws/zycbe124-codpagto NE wa_zycbt124-codpagto OR
/pws/zycbe124-recrem NE wa_zycbt124-recrem OR
/pws/zycbe124-dtvencto NE wa_zycbt124-dtvencto OR
/pws/zycbe124-frpagto NE wa_zycbt124-frpagto OR
/pws/zycbe124-kursf NE wa_zycbt124-kursf OR
/pws/zycbe124-fiv NE wa_zycbt124-fiv OR
( /pws/zycbe124-ftaxa NE wa_zycbt124-ftaxa AND
/pws/zycbe124-kursf IS INITIAL ).
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-bukrs NE wa_zycbt124-bukrs OR
/pws/zycbe124-waers NE wa_zycbt124-waers OR
/pws/zycbe124-vlme NE wa_zycbt124-vlme OR
/pws/zycbe124-j_1bbranch NE wa_zycbt124-j_1bbranch OR
/pws/zycbe124-gsber NE wa_zycbt124-gsber.
p_estorna = 'X'.
EXIT.
ENDIF.
IF NOT itab_zycat024-credito_imp IS INITIAL.
v_cred_imp = itab_zycat024-credito_imp.
ELSE.
v_cred_imp = /pws/zyglt009-cont_impostos.
ENDIF.
IF v_cred_imp = '2'.
IF /pws/zycbe124-recrem NE wa_zycbt124-recrem.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
PERFORM verifica_campos_parmetrizaveis USING v_codeven
p_estorna.
IF p_estorna = 'X'.
EXIT.
ENDIF.
IF p_tpimp EQ 'PRINCIPAL'.
* >> Início da Inclusão
* Ch. 277524 - 16.12.2005 - Início
if itab_zycat025_aux[] NE itab_zycat025[] OR
itab_zycbt141_p_aux2[] NE itab_zycbt141_p2[].
* << Fim da Inclusão
* >> Início da Deleção
* IF itab_zycbt141_p_aux2[] NE itab_zycbt141_p2[].
* << Fim da Deleção
* >> Início da Inclusão
* Ch. 277524 - 16.12.2005 - Fim
* << Fim da Inclusão
p_estorna = 'X'.
EXIT.
ENDIF.
ELSE.
READ TABLE itab_zycat025 WITH KEY tpimp = p_tpimp.
IF sy-subrc NE 0 OR itab_zycat025 NE itab_zycat025_aux.
p_estorna = 'X'.
EXIT.
ENDIF.
IF itab_zycbt141_i_aux2[] NE itab_zycbt141_i2[].
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " verif_alteracoes_relevantes
ENDFORM. " verif_alteracoes_relevantes
ENDFORM. " verif_alteracoes_relevantes
ENDFORM. " verif_alteracoes_relevantes