Funções diversas
Email_Usuario_Atual
Retorna no e-mail do usuário atualmente "logado" no Hipercusto.
Exemplos de uso:
Label10.Caption:=Email_Usuario_Atual;
Existe_Arquivo( Nome_Arquivo)
Essa função retornará VERDADEIRO se o arquivo informado existir ou FALSO se ele não existir.
Os parâmetros aceitos por essa função são:
Nome_Arquivo: indica o nome do arquivo cuja existência deverá ser verificada.
Exemplo de uso:
IF Existe_Arquivo('C:\TEMP\TESTE.TXT') THEN...
ID_Usuario_Atual
Retorna no e-mail do usuário atualmente "logado" no Hipercusto.
Exemplos de uso:
ID:=ID_Usuario_Atual;
Junta_Pasta_Arquivo( Nome_Pasta, Nome_Arquivo)
Essa função juntará o nome da pasta fornecida com o nome do arquivo, retornando-as em uma única sequência de caracteres. Essa função incluirá, automaticamente, o caractere \ no final do nome da pasta se assim for necessário.
Os parâmetros aceitos por essa função são:
Nome_Pasta: indica o nome da pasta.
Nome_Arquivo: indica o nome do arquivo cuja existência deverá ser acrescido ao final do nome nome da pasta.
Exemplos de uso:
Junta_Pasta_Arquivo('C:\Temp','CONFIG.TXT');
Junta_Pasta_Arquivo(Pasta_Usuario('L'),'DADOS.CFG');
Nome_Usuario_Atual
Retorna no nome do usuário atualmente "logado" no Hipercusto.
Exemplos de uso:
Label10.Caption:=Nome_Usuario_Atual;
Pasta_Aplicacao( MODO )
Essa função retornará o nome da pasta de dados do Hipercusto (também chamada de pasta de dados da aplicação).
Os parâmetros aceitos por essa função são:
MODO: indica como o nome da pasta deverá ser retornado, podendo ser:
- 'U' para retornar o nome da pasta de dados da aplicação em letras maiúsculas
- 'L' para retornar o nome da pasta de dados da aplicação em letras minúsculas
- ' ' para retornar o nome da pasta de dados da mesma maneira que foi informada pelo Windows.
Exemplo de uso:
Pasta_Aplicacao('U');
ShowMessage('A pasta de dados da aplicação é :'+Pasta_Aplicacao('L'));
Pasta_Usuario( MODO )
Essa função retornará o nome da pasta de dados do usuário do Windows.
Os parâmetros aceitos por essa função são:
MODO: indica como o nome da pasta deverá ser retornado, podendo ser:
- 'U' para retornar o nome da pasta de dados do usuário em letras maiúsculas
- 'L' para retornar o nome da pasta de dados do usuário em letras minúsculas
- ' ' para retornar o nome da pasta de dados da mesma maneira que foi informada pelo Windows.
Exemplo de uso:
Pasta_Usuario('U');
ShowMessage('A pasta de dados do usuário é :'+Pasta_Usuario('L'));
Pasta_Temporaria( MODO )
Essa função retornará o nome da pasta temporária do Windows.
Os parâmetros aceitos por essa função são:
MODO: indica como o nome da pasta deverá ser retornado, podendo ser:
- 'U' para retornar o nome da pasta temporária em letras maiúsculas
- 'L' para retornar o nome da pasta temporária em letras minúsculas
- ' ' para retornar o nome da pasta temporária da mesma maneira que foi informada pelo Windows.
Exemplo de uso:
Pasta_Temporaria('U');
ShowMessage('A pasta TEMP do Windows é :'+Pasta_Temporaria('L'));
Recupera_Texto( Nome_Arquivo)
Essa função recupera um texto salvo previamente pela função Salva_Texto():
Os parâmetros aceitos por essa função são:
Nome_Arquivo: indica o nome do arquivo que deverá ser criado.
Exemplos de uso:
ShowMessage(Recupera_Texto('C:\TEMP\TESTE.TXT'));
Report.Parameters['Codigos']:=Recupera_Texto(Junta_Pasta_Arquivo(Pasta_Usuario('L'),'DADOS.CFG'));
Recupera_Valor( Nome_Dado, Local_Salvamento)
Essa função recupera o valor salvo previamente pela função Salva_Valor():
Os parâmetros aceitos por essa função são:
Nome_Dado: indica o nome da informação que deverá ser salvo.
Nome_Valor: representa o valor que deverá ser salvo (com o nome informado pelo campo acima).
Local_Salvamento: esse parâmetro, se informado, indica o nome da tabela que deverá ser criada no banco de dados para "guardar" a informação fornecida. Se não for fornecido o sistema utilizará o nome padrão (GR_HIP0000).
Exemplos de uso:
Report.Parameters['Codigo_Inicial'):=Recupera_Valor('COD_INICIAL','');
Report.Parameters['Codigo_Final'):=Recupera_Valor('COD_FINAL','');
Label1.Caption:=Recupera_Valor('ASSINATURA','TB_ASSINATURAS');
Recupera_Selecao( Parâmetro, Delim_Inicial, Delim_Abertura, Delim_Fechamento, Delim_Encerramento)
Essa função retorna um texto com os parâmetros selecionados pelo usuário (quando o parâmetro é uma lista de itens ou um combo box).
Os parâmetros aceitos por essa função são:
Parâmetro: indica o nome do parâmetro que deverá ser verificado.
Delim_Abertura: é a sequência de texto que deverá ser incluída no início do primeiro parâmetro selecionado pelo usuário.
Delim_Inicial: é a sequência de texto que deverá ser incluída no início de cada parâmetro selecionado, exceto para o primeiro parâmetro.
Delim_Final: é a sequência de texto que deverá ser incluída ao final de cada parâmetro selecionado pelo usuário, exceto para o último parâmetro selecionado.
Delim_Encerramento: é a sequência de texto que deverá ser incluída ao final do último parâmetro selecionado..
Exemplos de uso:
Campos_Selecionados.Caption:=Recupera_Selecao( 'Codigos', '{' , '{' , '}' , '}');
Report.Parameters['Filtro']:=' and '||Codigos||' IN '||Recupera_Selecao( 'Chaves', '(''', '''' , ''',' , ''')');
Salva_Texto( Nome_Arquivo, Dados)
Salva os dados fornecidos em um arquivo em disco com o nome informado.
Os parâmetros aceitos por essa função são:
Nome_Arquivo: indica o nome do arquivo que deverá ser criado.
Dados: representam os dados (sequência de caracteres) que deverão ser salvos no arquivo indicado.
Essa função retornará verdadeiro se o arquivo foi criado corretamente.
Exemplos de uso:
Salva_Texto('C:\TEMP\TESTE.TXT','Teste da Aplicação');
Salva_Texto(Junta_Pasta_Arquivo(Pasta_Usuario('L','DADOS.CFG'),
Salva_Valor( Nome_Dado, Nome_Valor, Local_Salvamento)
Salva o Nome_Dado com o valor indicado pelo parâmetro Nome_Valor. Você também pode informar o local ou nome da tabela com que o dado deverá ser registrado no banco de dados.
Os parâmetros aceitos por essa função são:
Nome_Dado: indica o nome da informação que deverá ser salvo.
Nome_Valor: representa o valor que deverá ser salvo (com o nome informado pelo campo acima).
Local_Salvamento: esse parâmetro, se informado, indica o nome da tabela que deverá ser criada no banco de dados para "guardar" a informação fornecida. Se não for fornecido o sistema utilizará o nome padrão (GR_HIP0000).
Essa função retornará verdadeiro se o parâmetro pode ser salvo no banco de dados do Hipercusto.
Exemplos de uso:
Salva_Valor('COD_INICIAL','00001','');
Salva_Valor('COD_FINAL','020391','');
Salva_Valor('ASSINATURA',Label1.Caption,'TB_ASSINATURAS');