CE PLUS - Nota 001958
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 18/08/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:57:53
Descrição da Nota: PAGAMENTO DE COMISSÃO DE AGENTE NO COMPLEMENTO DO BOLETO
Sintoma
No Complemento do Boleto para comissão de agente com IR o programa não está selecionando o
fornecedor correto quando comissões não provisionadas ao alterar o campo Pagto. IRRF.
Solução
Foi selecionado o fornecedor da Receita Federal, campo FORN_REC da tabela /PWS/ZYCET010.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01958 Data: 18/08/2006 Hora: 16:51:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01958
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00127
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PAGAMENTO DE COMISSÃO DE AGENTE NO COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORNECEDOR RECEITA FEDERAL COMISSÃO DE AGENTE IR
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
'NEWKO'
text-018.
IF /pws/zycet037-comis_provisao = '0' OR
/pws/zycet037-comis_provisao IS INITIAL.
READ TABLE itab_zycet010 INDEX 1.
* >> Início da exclusão: FORM EXECUTA_F51_EL_IR
MOVE itab_zycet010-lifnr TO itab_zycbe033-agkon.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL_IR
MOVE itab_zycet010-forn_rec TO itab_zycbe033-agkon.
* << Fim da inclusão
ELSEIF /pws/zycet037-comis_provisao = '1'.
READ TABLE itab_zycet013 INDEX 1.
MOVE itab_zycet013-lifnr TO itab_zycbe033-agkon.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-agkon
...