Jump to content

possidonio

uniGUI Subscriber
  • Posts

    24
  • Joined

  • Last visited

Profile Information

  • Gender
    Not Telling

Contact Methods

  • Skype
    possidoniooliveira@hotmail.com

Recent Profile Visitors

731 profile views

possidonio's Achievements

Newbie

Newbie (1/4)

3

Reputation

  1. 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;
  2. Hi, In unimradio this does not work. tks
  3. Parabéns, ótima iniciativa.
  4. Opa, boa tarde. Pode me incluir 86 9 9822 0605 Possidônio Oliveira
  5. 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.
  6. 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.
  7. Quando eu paguei, o endereço que veio no cartão de crédito era da Califórnia.
  8. 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
  9. 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.
  10. Diego, boa tarde. Você está usando uma 'sequence' do banco? Atenciosamente, Possidônio.
  11. Acabei de licenciar a ferramenta. Transação via cartão de crédito. Processo rápido e fácil.
  12. Meu unigui 0.96.0.1068 expirou. As aplicações já desenvolvidas continuam funcionando normalmente, porém não se consegue mais alterá-las.
  13. 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.
  14. Diego, Mesmo após o session timeout, a conexão com o banco de dados ainda ficava ativa? Atenciosamente, Possidônio.
  15. Great job, congratulations. Will use to develop web applications and static web sites.
×
×
  • Create New...