AFL Sistemas

Responda “OK” para a confirmação de “Save all edits…” (Salvar todas alterações).

Fala ai pessoALL!

Abaixo uso dois erros comuns em aplicações BDE, principalmente em SOs mais novos como Windows Vista e 2008 Server, para exemplificar a parametrização de memória do BDE.

Read the rest of this entry »

Uma coisa que sempre vejo os programadores quebrando a cabeça é para “limpar” os campos em tela na execução.

Com o código abaixo conseguiremos manipular os valores dos edits no form.

Mãos a massa.

No form que vocês querem efetuar a limpeza dos edits, insira um Button e implemente o seguinte código no click:

procedure TForm1.Button1Click(Sender: TObject);
  procedure LimparEdits(AControl: TComponent);
  var
     vLoop: Integer;
  begin
     for vLoop := 0 to AControl.ComponentCount-1 do // ComponentCount retorna a qtde de componentes que o
     begin                                          // o parent é o AControl, ou seja, somente os componentes que
        { Se for um componente do tipo TEdit, }     // estão ligados a ele
        { então iremos limpar o conteúdo, caso }
        { contrário, iremos rechamar a procedure }
        { pois o AControl pode ser um painel e temos }
        { que limpar inclusive os edits do painel }
        if AControl.Components[vLoop].ClassType = TEdit then
           TEdit(AControl.Components[vLoop]).Clear // Aqui utilizamos o Cast para obter as propriedades e métodos do edit }
        else
           LimparEdits(AControl.Components[vLoop]);

     end;
  end;

begin

  LimparEdits(Self); // O processo irá iniciar limpando os edits que estão diretamente
                     // docados no form
end;

Pessoal, boa noite!
Na dica de hoje iremos aprender como jogar valores para “inputs” dentro de um WebBrowser.

Imagine a seguinte situação (real): seu cliente solicita que seja efetuada a consulta de um determinado CNPJ no SINTEGRA de São Paulo, para um CNPJ conhecido pelo sistema? A principio você criaria uma novo form com o componente WebBrowser acessando a página solicitada:

WebBrowser.Navigate(’http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/sintegra.html’)

Agora, como atribuir o CNPJ e Insc.Estadual nos devidos campos?
Com esse código você fará isso facilmente.
No evento onDocumentComplete do WebBrowser você implemente:

var
	FormItem: Variant;
	Field: Variant;
	FieldName: String;
	I,J: Integer;
begin
	if WebBrowser.OleObject.Document.all.tags(’FORM’).Length = 0 then
		Exit;

	for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
	begin
		FormItem := WebBrowser.OleObject.Document.forms.Item(I);
		try
			for j := 0 to FormItem.Length - 1 do
			begin
				//Identifica o campo e seu nome no formulário
				Field := FormItem.Item(j);
				FieldName := Field.Name;

				if FieldName = ‘cnpj’ then // nome do input para o campo CNPJ
					Field.Value := edtCNPJ.Text;
				if FieldName = ‘ie’ then // nome do input para o campo Inscr.Estadual
					Field.Value := edtIE.Text;
			end
		except
			ShowMessage(’Não foi possível identificar os campos para atribuir os valores de CNPJ e IE’);
		end;
	end;
end

Uma observação, para a atribuição no campo, você precisará identificar o ID do input na página.

Abraços e até a próxima

Um Class Helper é um tipo que – quando associada à outra classe – introduz métodos adicionais e propriedades que podem ser utilizadas em no contexto da classe associada (ou seus descendentes).

Essa nova característica da linguagem e do compilador Delphi (2006, 2007 e 2009) é poder estender novas funcionalidades em classes já existentes, podendo assim adicionar novos métodos e propriedades sem ter que criar uma nova classe herdando.

Um exemplo que já diz tudo

Imagino que vocês são como eu, preferem a prática do que a teoria, portanto, mãos a obra =D
Nesse exemplo iremos extender uma nova funcionalidade para a classe TStringList, onde ela poderá aceitar valores inteiros no método ADD.

Uma forma de utilização seria

Abraços, e até a próxima

Bom diALL!

Você possui aplicações que enviavam normalmente e-mails utilizando o MapiSendMail e agora na plataforma Vista não enviam mais?

Fique calmo meu caro, a solucao é mais simples do que o esperado.

Na plataforma Vista não vem uma chave de registro denominada “Windows Messaging Subsystem”, esta chave define alguns valores para a utilização do envio de e-mail pelo arquivo MAPI32.DLL.

Nesta chave estão as configurações de acesso a DLL citada bem como as configurações de aplicações que gerenciam e-mails que podem ser utilizadas pelo MapiSendMail.

Para facilitar as coisas este link é para o arquivo REG com a criação da chave acima e configurações necessárias:  http://www.aflsistemas.com.br/downloads/WindowsMessagingSubsystem.reg *.

* Para fins didáticos o arquivo já está configurado para utilização do Thunderbird, o conteúdo do arquivo pode ser alterado para “Microsoft Outlook”, caso necessário, através de um editor de texto simples (notepad, p.e.).

Feito isso, seu problema de “Ocorreu erro no procedimento de envio de e-mail”, estará solucionado! Desde que seja realmente só isso… rs…

Abraços e até a próxima…

Beto Lima