7386 - Função GeraLog
Problema: Descrição do Problema: O cliente está utilizando a função GeraLog para retornar a mensagem de erro.
Mas ao invés da mensagem é possível retornar um arquivo com o log. Existe algum forma de tratar esta situação?
Quando ocorre / onde se aplica: Telas SGI.
Solução: Solução: Quando a função GeraLog foi desenvolvida, ela foi feita especificamente para a Ferramenta de Importação/Exportação. Onde no qual é possível apenas nesta Ferramenta pode-se gerar o log em arquivo.
A ferramenta função em outros local do ERP, porém para gerar log em arquivo apenas via Importação/Exportação.
Neste caso, o que sugerimos é substituir a função GeraLog pelas funções de gerar arquivo. Por exemplo: Gravarnl. Veja exemplo abaixo:
definir numero ArqEntrada;
definir numero ArqSaida;
definir alfa Dados;
Definir Alfa XLido;
Definir Alfa Enter;
Definir Alfa Linefeed;
QtdLido =0;
Linhas = 0;
CaracterParaAlfa(13, enter);
CaracterParaAlfa(10, LineFeed);
ArqSaida = Abrir(c://Arquivo1.txt, Gravarnl);
enquanto (QtdLido <= 10)
{
QtdLido=QtdLido+1;
}
Linhas = QtdLido + 10;
enquanto (QtdLido <= Linhas)
{
IntparaAlfa( QtdLido, xlido);
Dados= Teste + Xlido @+ LineFeed +enter@;
Gravarnl(ArqSaida, Dados);
QtdLido=QtdLido+1;
}
Fechar(ArqSaida);
Mas ao invés da mensagem é possível retornar um arquivo com o log. Existe algum forma de tratar esta situação?
Quando ocorre / onde se aplica: Telas SGI.
Solução: Solução: Quando a função GeraLog foi desenvolvida, ela foi feita especificamente para a Ferramenta de Importação/Exportação. Onde no qual é possível apenas nesta Ferramenta pode-se gerar o log em arquivo.
A ferramenta função em outros local do ERP, porém para gerar log em arquivo apenas via Importação/Exportação.
Neste caso, o que sugerimos é substituir a função GeraLog pelas funções de gerar arquivo. Por exemplo: Gravarnl. Veja exemplo abaixo:
definir numero ArqEntrada;
definir numero ArqSaida;
definir alfa Dados;
Definir Alfa XLido;
Definir Alfa Enter;
Definir Alfa Linefeed;
QtdLido =0;
Linhas = 0;
CaracterParaAlfa(13, enter);
CaracterParaAlfa(10, LineFeed);
ArqSaida = Abrir(c://Arquivo1.txt, Gravarnl);
enquanto (QtdLido <= 10)
{
QtdLido=QtdLido+1;
}
Linhas = QtdLido + 10;
enquanto (QtdLido <= Linhas)
{
IntparaAlfa( QtdLido, xlido);
Dados= Teste + Xlido @+ LineFeed +enter@;
Gravarnl(ArqSaida, Dados);
QtdLido=QtdLido+1;
}
Fechar(ArqSaida);