Luciano Benito

Qual seria a solução para resolver isso? Não posso correr o risco de perder toda estrutura criada com a versão anterior, se não é compatível deveria ser informado . Att. Luciano Benito

Pessoal, consegui resolver, voltei a versão. Não indico upgrade para a versão 1.50.0.1479, está cheio de Bug.

Boa tarde, creio que você esqueceu de instalar o "FMSoft_uniGUI_Complete_runtime_versão". Att. Luciano Benito

Boa tarde, é possivel fazer isso com o RestClient + TTimer, você pode implementar no Unigui. Dá uma olhada no (REST Demo do Delphi). http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/REST.RESTDemo_Sample Att. Luciano Benito

Ola Nelson, talvez você não tenha percebido ou o problema está aqui, se puder conferir o tamanho do botão se está de acordo com o CSS? Veja abaixo nas imagens a diferença e o que acontece comigo entre as versões. Observação: Não foi alterado nada no código fonte. versão Unigui - 1.00.00.1425 versão Unigui - 1.00.00.1479. Inclusive o UniEvents também está com problema, veja que não aparece as bordas em vermelho. UniEvents>beforeinit>function>beforeInit> (sender, config) { sender.inputCls='UniEditTotalParcialPedido'; } Att. Luciano Benito

Bom dia a todos, estou com um problema após atualização da versão Unigui - 1.00.00.1425 para a versão Unigui - 1.00.00.1479. Atualmente utilizo a versão Professional. Meu problema é o seguinte: Utilizo o UniLabel para criar botão personalizado no css, até a versão Unigui - 1.00.00.1425 estava tudo ok. Abaixo um trecho do código. css .personal_carrinho_azul { width: 130; height: 35; background-color: #003E60; border-style: none none groove none; box-shadow: 0px 1px 3px #003E60; border: 1px solid #003E60; color: white; text-align: center; text-decoration: none; display: inline-block; font-size: 12px; font-family:Source Sans Pro; color:#ffffff; margin: 2px 2px; cursor: pointer; } Object Inspector UniLabelBotaoAzul TUniLabel caption := '<button type="button" class="personal_carrinho_azul">Adicionar iten(s) carrinho</button> '; TextConversion := 'txtHTML'; Att. Luciano Benito

Boa tarde Pessoal, veja se ajuda, var FormatarTelefone: string; if (UniDBEditTelefoneRefComercial.Text <> '') then begin if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 10 then begin FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2) + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,4) +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 7,4); end else begin if Length(SomenteNumero(UniDBEditTelefoneRefComercial.Text)) = 11 then begin FormatarTelefone:= '(' + Copy(UniDBEditTelefoneRefComercial.Text, 1,2) + ')' + Copy(UniDBEditTelefoneRefComercial.Text, 3,5) +'-' + Copy(UniDBEditTelefoneRefComercial.Text, 8,4); end else begin ShowMessage('Este Campo é para telefone Celular com "nono dígito" ou telefone fixo, Ex: 41988888888 ou 4133333333'); UniDBEditTelefoneRefComercial.Clear; UniDBEditTelefoneRefComercial.SetFocus; Abort; end; end; UniDBEditTelefoneRefComercial.Text:= FormatarTelefone; end; Att. Luciano Benito

Boa tarde Flavio, veja se é isso que precisa. UniSession.AddJS('location.href=''https://www.segundoprograma.com.br/segundoprograma.dll'); Att. Luciano Benito

Bom dia rfsilvasp, além do CSS você precisa apontar no JavaScript, veja o link abaixo. https://drive.google.com/open?id=1rz1Va1JxTieBtZ9tTL5Lo2MYmG8v3iEF Você também pode criar um botão HTML com "UniLabel", abaixo um formato simples mas você pode explorar melhor o html. Object Inspector Caption: = <button type="button" class="btn btn-warning btn-lg">Botão Teste</button> TextConversion:= txtHTML Att. Luciano

Ok, não meu caso, o e-mail anexado ao licenciamento e do gerente de TI aqui da empresa, como eu faço neste caso?

Hi, FMSoft_uniGUI_Complete_Professional_1.0.0.1412.

Hi, build 1.0.0.1412.

Boa tarde a todos, como faço para receber o valor digitado em um campo type="text"? Tenho um Ajaxevent = PesquisaProduto onde preciso receber o valor digitado para para implementar um select. Tenho um exemplo abaixo do que preciso, agradeço a quem puder me ajudar. UniHTMLFrame.HTML.Add('<input type="text" id="txtBusca" name="pesquisaproduto" placeholder="O que você está procurando?" />'); UniHTMLFrame.HTML.Add('<button id="btnBusca" onclick="ajaxRequest(MainForm.form , ''PesquisaProduto'',[]);">Buscar</button>'); Att. Luciano Benito

Boa tarde, rfssilvasp, veja se ajuda. Abraços. .CorPadraoBotao{ width:120px; height:30px; background: #FFCC33; /* amarelo */ border: 5px solid #00537C; /* borda branca em volta */ margin: auto; /* centraliza com bordas automáticas nas laterais */ text-align: center; /* centraliza o texto */ padding: 6px 0px 6px 0px; /* espaços top right bottom left */ font-family: Source Sans Pro; /* fonte */ font-size: 16px; /* tamanho da fonte */ color: #4D4D4F; /* cor fonte */ }

Good afternoon, Object Inspector UniDBGrid> Collumns Select Cell Selected Cell Object Inspector Cell> ReadOnly = false Luciano Benito Boa tarde, Inspetor de Objetos UniDBGrid> Collumns Selecione Cell Célula selecionada Inspetor de Objetos Cell> ReadOnly = false Luciano Benito

Hello, to export I use the following function. procedure GerarExcel(Consulta:TPgQuery); Procedure TMainForm.GerarExcel(Consulta:TPgQuery); var coluna, linha: integer; excel: variant; valor: string; ArquivoDownload: string; begin Application.ProcessMessages; DM.qryTemp1.Close; DM.qryTemp1.SQL.Clear; DM.qryTemp1.SQL.Add('select field1 as NameField1, field2 as NameField2'); DM.qryTemp1.SQL.Add('from NameTable'); DM.qryTemp1.SQL.Add('where (Field1 = :p_Field1)'); DM.qryTemp1.ParamByName('p_Field1').AsInteger := NameParameter; DM.qryTemp1.Open; if (not DM.qryTemp1.IsEmpty) then begin try excel := CreateOleObject('Excel.Application'); excel.Workbooks.add(1); except Application.MessageBox('Excel Not installed or corrupted, Tell the support!!!', 'attention', MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_SYSTEMMODAL); Abort; end; Consulta.First; try for linha := 0 to Consulta.RecordCount-1 do begin for coluna := 1 to Consulta.FieldCount do begin valor:= Consulta.Fields[coluna-1].AsString; excel.cells [linha + 2, coluna] := valor; end; Consulta.Next; end; for coluna := 1 to Consulta.FieldCount do begin valor := Consulta.Fields[coluna - 1].DisplayLabel; excel.cells[1,coluna] := valor; end; excel.columns.AutoFit; excel.rows.AutoFit; ArquivoDownload := ExtractFilePath(UniServerModule.LocalCachePath) + 'Metadados_' + 'hs' + FormatDateTime('HHMMSS',Now) + '.xls'; Excel.WorkBooks[1].Sheets[1].SaveAs(ArquivoDownload);///Salvar em Cache UniSession.SendFile(ArquivoDownload);///Fazer o download do arquivo // excel.visible := True;///Abrir o Excel except Application.MessageBox('Failed to Generate Metadata, Tell Technical Support !!!', 'attention', MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_SYSTEMMODAL); Abort; end; end; end; I hope I have collaborated

Boa tarde a todos, estou com dificuldades na propriedade VertScrollBar e BorderStyle do Main Form, alguém pode me ajudar a solucionar este problema? Preciso criar um Main Form com barra de rolagem e sem bordas, isso é possível com o UniGUI? Att. Luciano Benito

Bom dia, isso parece problema de incompatibilidade da versão do UniGui, você precisa instalar a mesma versão do UniGui no servidor, se for o caso precisa também setar a versão no Server Module,veja abaixo. procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject); begin Self.ExtRoot:='ext-4.2.5.1763'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder" Self.UniRoot:='uni-0.99.95.1296'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder" Self.Port:=8077; Self.SessionTimeout:=540000; Self.Title :='Title Name'; end; Att. Luciano Benito

Hello PsBorges, I went through this problem and decided that way. procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject); begin Self.ExtRoot:='ext-4.2.5.1763'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder" Self.UniRoot:='uni-0.99.95.1296'; \\C:\Program Files (x86)\FMSoft\Framework\uniGUI\"Name Folder" Self.Port:=8077; Self.SessionTimeout:=540000; Self.Title :='Title Name'; end;

Nirlan, confesso a você que eu testei pelo nome do DOMINIO e com DLL e funcionou perfeitamente, não testei pelo IP do servidor e com arquivo EXE.

Bom dia Nirlan, Estou utilizando o certificado 'COMODO "na Minha Aplicação HTTPS, Funciona 100%. Utilizo IIS 7 na plataforma Windows Server 2008, inclusive voce pode fazer a solicitação do certificado e utilizar gratuitamente POR 90 dias. Qualquer duvida estou a disposição.