possidonio

Olá, Eu uso o ACBrCEP if ACBrCEPMain.BuscarPorCEP(EdtCEP.Text) > 0 then begin EdtRua.Text := TrimLeft(ACBrCEPMain.Enderecos[0].Tipo_Logradouro) + ' ' + ACBrCEPMain.Enderecos[0].Logradouro; EdtComplemento.Text := ACBrCEPMain.Enderecos[0].Complemento; EdtBairro.Text := ACBrCEPMain.Enderecos[0].Bairro; EdtCidade.Text := ACBrCEPMain.Enderecos[0].Municipio; EdtUF.Text := ACBrCEPMain.Enderecos[0].UF; end else begin ShowMessage('CEP não localizado'); end;

Hi, In unimradio this does not work. tks

Parabéns, ótima iniciativa.

Opa, boa tarde. Pode me incluir 86 9 9822 0605 Possidônio Oliveira

Faz tempo mesmo que não vemos nenhuma boa publicação sobre Delphi. Você adquiriu este livro já? Tem alguma opnião? Atenciosamente, Possidônio Oliveira.

Boa tarde. Eu atualizei meu unigui e na nova versão já é possível criar uma projeto com um formulário de login padrão do próprio framework. Abraços.

Quando eu paguei, o endereço que veio no cartão de crédito era da Califórnia.

Creio que é digitar o CEP e preencher os campos relacionados ao endereço, como rua, bairro, cidade e uf. Acredito que você pode usar o evento onkeypress do edit do cep, localizar o cep em uma tabela do banco de dados e trazer os demais campos para os outros edits. Abraço

Boa tarde. Eu fiz da seguinte forma: 1 - Coloquei todos os itens do menu com visible false. 2 - Faço um select no banco de dados para verificar quais os menus que o usuário tem acesso. 3 - Chamo a procedure abaixo, que é recursiva (pois deve-se percorrer os itens e subitens do menu), e recebe como parâmetro um objeto da classe TUniMenuItem. HabilitarMenu(MainMenu.Items); procedure TFrmMain.HabilitarMenu(AMenu: TUniMenuItem); var i: integer; begin for i := 0 to AMenu.Count - 1 do begin if QryAux.Locate('descricao', AMenu.Caption, [loCaseInsensitive]) then begin AMenu.Visible := true; end; HabilitarMenu(AMenu); end; end; Atenciosamente, Possidônio.

Diego, boa tarde. Você está usando uma 'sequence' do banco? Atenciosamente, Possidônio.

Acabei de licenciar a ferramenta. Transação via cartão de crédito. Processo rápido e fácil.

Meu unigui 0.96.0.1068 expirou. As aplicações já desenvolvidas continuam funcionando normalmente, porém não se consegue mais alterá-las.

Hi, good night. When MainFormDisplayMode is mfPage on ServerModule, and FrmMain is fsMDIForm, and FrmGroups is fsMDIChild: procedure TFrmMain.GroupsUsers1Click(Sender: TObject); begin FrmGroups.Show; end; Then: Ajax Error Cannot read property 'getXY' of undefined Best Regards, Possidônio.

Diego, Mesmo após o session timeout, a conexão com o banco de dados ainda ficava ativa? Atenciosamente, Possidônio.

Great job, congratulations. Will use to develop web applications and static web sites.

Pessoal, bom dia. Gostaria de saber se alguém já comprou a ferramenta. O processo foi tranquilo? É enviado algum comprovante da compra, como um e-mail de confirmação do pagamento? Estou pensando em adquirir, porém a empresa que eu trabalho só realiza pagamentos através de boleto bancário, não sei ainda como fazer. Atenciosamente, Possidônio Oliveira.

Monteiro, Ainda não comecei a implementar, mas minha ideia é utilizar a visible do menu para ativar ou desativar de acordo com as permissões. Atenciosamente, Possidônio Oliveira.

Monteiro, Para enviar um e-mail, você pode utilizar os componentes IdSMTP normalmente. Segue exemplo: procedure TMainForm.EnviarEmail; var Email: TIdMessage; begin Email := TIdMessage.Create(nil); Email.Subject := 'Credenciamento'; Email.Body.Add('Ola, ' + EdtNome.Text + ' voce se credenciou'); Email.Body.Add(''); Email.Body.Add('Confira seus dados, e entre em contato conosco em caso de erro.'); Email.Body.Add('CPF: ' + EdtCPF.Text); Email.Body.Add('Telefone: ' + EdtCelular.Text); Email.Body.Add(''); Email.Body.Add('A equipe agradece seu cadastro, em breve, entraremos em contato.'); Email.Body.Add(''); Email.Sender.Address := 'atendimento@xxxx'; Email.From.Address := 'atendimento@xxxx'; Email.ReplyTo.Add.Address := 'atendimento@xxxx'; Email.Encoding := meMIME; Email.Recipients.Clear; Email.Recipients.EMailAddresses := EdtEmail.Text; Email.BccList.EMailAddresses := xxxx@xxxx'; if not IdSMTPMain.Connected then begin try IdSMTPMain.Connect; IdSMTPMain.Send(Email); finally IdSMTPMain.Disconnect(True); end; end; end; Atenciosamente, Possidônio Oliveira.

Jancalos, Vi seu comentário junto ao FM perguntando sobre a empresa FM SOFT e a continuidade do componente. Realmente, é preocupante, pois se investirmos muito tempo no desenvolvimento de um sistema utilizando unigui e o projeto for descontinuado, os prejuízos serão enormes. Acredito que se a Embarcadero incorporasse estes componentes no próprio delphi, traria mais segurança, ou se desenvolvesse algo parecido. Bom, vou aguardar o lançamento da nova versão e o valor da licença. Ainda fico com o pé atrás em relação a continuidade do projeto. Atenciosamente, Possidônio Oliveira.

Olá Sérgio. Você pode colocar um componente TUniLabel e alterar a propriedade TextConversion para txtHTML. Na propriedade Caption, você pode escrever algo como: LabLinkFile.Caption := '<a href="' + UniServerModule.LocalCacheURL + FileName + '" target=new>Clique aqui para salvar: (' + FileName + ')</a>'; O exemplo acima é um link para baixar um arquivo que foi gerado no servidor. Atenciosamente, Possidônio Oliveira.

Olá, Para publicar no IIS, você deverá iniciar um projeto VCL Application / Standalone Server / ISAPI Module. No arquivo do seu projeto (.dpr), a primeira linha estará dessa forma: {$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module' Se você comentar essa linha, ao invés de gerar um .exe, o Delphi gerará um .dll, que é o arquivo que você deverá publicar no IIS. Atenciosamente, Possidônio Oliveira.

Pessoal, Alguém já tem alguma aplicação unigui em ambiente de produção ou em fase de desenvolvimento avançado? Abraço.

Voce precisa instalar também o fmsoft_unigui_extjs_X.XX.X.XXX_setup.exe Após realizar as instalações, deve compilar o uniGUIXXXXGroup de acordo com sua versão do delphi. Para mais detalhes, segue o roteiro de instalação: http://forums.unigui.com/index.php?/topic/2509-installation-instructions/ Abraços.

Sim, eu uso um ec2 micro da amazon. É free por um ano, a instalação é bem simples. Optei por uma instância linux AMI, é quase idêntica ao CentOS. Quanto a performance, tem pouca memória e a latência é alta, já que fica na região da Virginia. Mas para ser de graça, está bom demais. Abraço.