CE PLUS - Nota 000432
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 09/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:39:27
Descrição da Nota: CAMPO REFERÊNCIA/ATRIBUIÇÃO NÃO PREENCHIDO COMPLEMENTO DO BOLETO ISS
Sintoma
Ao criar uma remessa de pagamento com imposto ISS em regime de caixa, na contabilização do
complemento do boleto o programa não leva os dados de Referência / atribuição e texto para o
documento contábil, este informação só não é puxada para o ISS para os demais impostos está
funcionando.
Solução
Inserido tratamento do código de evento para o imposto ISS.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00432 Data: 09/12/2005 Hora: 14:49:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00432
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
----------------------------------------------------------------------------------------------------
CAMPO REFERÊNCIA/ATRIBUIÇÃO NÃO PREENCHIDO COMPLEMENTO DO BOLETO ISS
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA ISS REGIME CAIXA COMPLEMENTO BOLETO REFERÊNCIA ATRIBUIÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
Contexto: FORM get_parameters_cp USING p_tpimp.
* CHAMADO 221566 - 28/03/2005 - INICIO
CLEAR: itab_zyglt321, wa_zycbt011.
REFRESH: itab_zyglt321.
IF /pws/zycbt127-nrseq IS INITIAL.
SELECT SINGLE nrseq FROM /pws/zycbt127
INTO /pws/zycbt127-nrseq
WHERE nrseq = itab_zycbt124_aux-nrseq.
ENDIF.
* CHAMADO 221566 - 28/03/2005 - FIM
* Remessa de Pagamento
IF itab_zycbt124_aux-tpoper = 'P'.
v_trans = 'F-63'.
* Principal
IF p_tpimp = 'PRINCIPAL'.
IF NOT /pws/zycbt127-nrseq IS INITIAL. "Se tem viajante
v_codeven = '004PV'.
ELSE.
v_codeven = '004P'.
ENDIF.
* IRRF
ELSEIF p_tpimp = 'IRRF'.
v_codeven = '004I'.
* CIDE
ELSEIF p_tpimp = 'CIDE'.
v_codeven = '004C'.
* IOF
ELSEIF p_tpimp = 'IOF'.
v_codeven = '004IF'.
* ISS
* >> Início da inclusão
* Chamado 273908 - Início - Fábio Kazuo Hatanaka - 09.12.2005
* Passagem do código do evento correto para o imposto ISS
* >> Fim da inclussão
ELSEIF p_tpimp = 'ISS'.
v_codeven = '004IS'.
* >> Início da exclusão
* PIS
* v_codeven = '004PV'.
* >> Fim da exclusão
* >> Início da inclusão
* Chamado 273908 - Início - Fábio Kazuo Hatanaka - 09.12.2005
* >> Fim da inclusão
ELSEIF p_tpimp = 'PIS'.
v_codeven = '004PI'.
* COFINS
ELSEIF p_tpimp = 'COFINS'.
v_codeven = '004CO'.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = v_codeven.
* Remessa de Recebimento
ELSEIF wa_zycbt124-tpoper = 'R'.
v_trans = 'F-02'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '003R'
AND codmod = 'F'.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'RCF'
AND codeven = '003R'.
ENDIF.
* CHAMADO 221566 - 28/03/2005 - INICIO
** Categoria da Moeda
* SELECT SINGLE kurst
* FROM /pws/zycbt009
* INTO /pws/zycbt009-kurst
* WHERE codpadr = wa_zycbt011-ctmoed.
* v_ctmoeda = /pws/zycbt009-kurst.
* CHAMADO 221566 - 28/03/2005 - FIM
ENDFORM. " get_parameters_cp
ENDFORM. " get_parameters_cp