Importando registros de arquivo de retorno de folha de pagamento para um servidor na nuvem. - Part 1

Olá, a todos.

Neste post, vamos falar da necessidade de importar dados de uma base qualquer ou apenas um grupo de registros a um servidor remoto através da internet. Em muitas regiões temos acesso bem limitado devido a problemas de infraestrutura e outras mazelas. Mas diante da necessidade de enviar estes dados para a internet possivelmente pra serem consumidos por outro serviço ou coisa do tipo, temos a necessidade de escrever este tipo de programa. Lembrando que esta talvez não seja a melhor forma de fazer este envio de dados, uma vez que não será usado uma api RestFull. Contudo o resultado final será o mesmo, talvez com menos elegância. 
Tá mas porque não usar RestFull? A resposta mais sensata é que pra um projeto pequeno e onde não haja necessidade de uma performance tão espetacular e estas importações será executada talvez menos que uma dezena de vezes por mês...
Bom, deixando de conversa fiada. Vamos ao que interessa.
O projeto parte da necessidade de Importar alguns dados de um arquivo de retorno de folha de pagamento do banco Bradesco. O que será feito é identificar o número da conta, o funcionário e o valor que ele esta recebendo. Para eu saber as posições certas no arquivo de retorno foi utilizado o arquivo de layout do banco, disponibilizado em seu site. A interface do programa ficou conforme a figura abaixo.

Foi utilizado uma meia duzia de componentes visuais que acredito você já deve estar acostumado. Para importar os dados do registro utilizou-se a seguinte estratégia, veja abaixo.
O que é feito ai é o seguinte: 
  1. Primeiro são criadas as variáveis, sendo uma delas um TextFile, responsável por abrirmos o arquivo para que possamos ler seus dados. 
  2. Atente para o AssignFile que liga (cria um ponteiro) entre a variável arq (TextFile) e o arquivo selecionado pelo usuário. 
  3. Temos também uma variável de retorno IOResult e perceba que qualquer valor diferente de 0 (zero) significa que a associação não feita com sucesso. 
  4. Logo mais abaixo entre {$I-} e   {$I+} (diretivas de compilação) você entrará o comando Reset que tem a finalidade de abrir o arquivo para leitura. 
  5. Seguindo é utilizado um laço de repetição para que o arquivo possa ser varrido e os dados de interesse possam ser inseridos em uma tabela virtual criada com o componente TFDMemTable 
  6. Após o final do laço provavelmente se tudo ocorrer bem, teremos a lista de funcionários e seus respectivos pagamentos recebidos em suas contas.
Por hora é só... aguarde a próxima parte.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

AWS para Desenvolvedores - Dominando S3 com Delphi

Imagem
Olá, Neste post vamos falar de Amazon S3 um serviço de armazenamento de dados na nuvem da AWS altamente escalável e confiável. É amplamente utilizado no mundo inclusive em soluções bem conhecidas como DropBox.  Pode ser acessado através do console de gerenciamento, desde que tenha uma conta é claro. http://console.aws.amazon.com No S3 alguns conceitos são importantes na hora de utilizar o serviço, por exemplo lá tudo que é armazenado são objetos, não importa o arquivo que você mandar pra lá, ele sempre sera tratado como objeto. Este objeto pode ter tamanho entre 1 byte e 5 Terabytes. Por lá também não existem pastas, apenas buckets, sendo o número de buckets limitados a 100 e sendo ilimitado o numero de objetos que pode ser armazenado. No Delphi XE 10.2 temos um componente nativo muito interessante que nos permite conectar com os serviços da Amazon de forma muito simplória. O componente destacado na figura acima é o TAmazonConnectionInfo basta apenas adiciona-...
Leia mais

Preenchendo com zeros a esquerda de um valor com Firebird

Olá, estes dias um novo cliente, precisava cadastrar seus produtos e me falou que nem todos tinham código de barras, então eu falei a ele, deixa eu branco que eu gero depois de forma automatizada. Até ai tudo simples, contudo alguns produtos tinham os referidos códigos e orientei que fossem inseridos no programa via leitor. Após a finalização da etapa destes cadastros o cliente queria imprimir etiquetas para seus produtos sem código. Bom, nada de mais, vamos lá. Primeiro tive a brilhante ideia de gerar valores simples baseado no código de chave primaria da tabela de produtos, claro que somente estes valores não seriam muito legais por serem poucos algarismos nos registros iniciais, então pensei em pegar o ano corrente e o código de chave primaria para compor o código de barras.  No entanto ainda era necessário preencher com zeros a esquerda do valor do código de barras pois o leitor ia retornar um algarismos com 13 caracteres devido o padrão utilizado ser EAM13. Então utiliz...
Leia mais

Selecionando apenas o ultimo registro inserido com SQLite

Olá. Não é muito difícil surgir a necessidade de se buscar apenas o ultimo registro em bases de dados. Em todos os casos é muito simples de ser feito. O SQLite a exemplo do MySQL também possui um parâmetro chamado LIMIT que determina quantos registros a query deve retornar. Bem diversas são as formas de ser fazer isso e utilizando o poder da própria engine do banco de dados podemos ter sucesso utilizando a seguinte instrução.: SELECT * FROM SUATABELA ORDER BY SEUCAMPO DESC LIMIT 1 Exemplo: select * from secretarias order by codigo desc limit 1 Simples não?
Leia mais