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