Jump to content
uniGUI Discussion Forums

asapltda

uniGUI Subscriber
  • Content Count

    220
  • Joined

  • Last visited

  • Days Won

    4

asapltda last won the day on August 25 2016

asapltda had the most liked content!

Community Reputation

9 Neutral

About asapltda

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. asapltda

    MultiDetail List with Unigui Mobile?

    As I simulate the requirement: 1. I have the html unit that receives text parameters and returns html 2. I add the html to the UnimList 1 ---------------------------------------------------------- // RETORNA CADENA EN FORMATO HTML unit HTML_COLOR; interface uses SysUtils ; var w_retorno : boolean; function Get_Html(p_string, p_color:string; P_size:integer):string; // function Get_Html(P_title; p_valor, p_color:string; P_size:integer):string; implementation // http://www.w3schools.com/html/html_colornames.asp // RED , GREEN, AQUA, BLACK, BLUE, YELLOW , ORANGE, ORANGERED , MAGENTA..... // w_s1:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NIT').AsString, 'blue', 2) ; // w_s2:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NOMBRE').AsString , 'black', 3) ; // w_s3T:= HTML_COLOR.Get_Html ('Direccion:', 'blue', 1) ; function Get_Html(p_string, p_color:string; P_size:integer):string; const K_negrita = '<b> %s </b>' ; K_FONT1 = '<font size= "%d" color = " %s" >' ; K_FONT2 = '</font>'; // <font size="6"> This is some text!</font> var w_html :string; begin // NEGRITA if uppercase(p_color) = 'NEGRITAS' then begin w_html := K_negrita ; w_html := format(w_html, [ p_STRING]); result:= w_html ; exit; end; // COLORES HTML w_html := K_FONT1 ; w_html := format(w_html, [P_SIZE, p_color ]); result:= w_html + p_string + K_FONT2 ; end; end. --------------------------------------- 2-----add the html to the UnimList----------- // pedidos = DATASET while not PEDIDOS.Eof DO begin W_STR := 'Pedido ' + PEDIDOS.FieldByName('NOPEDIDO').AsString ; // + '<br>'; w_nopedido := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := ' Ped.Cliente:' + PEDIDOS.FieldByName('PEDIDOCLIENTE').AsString + '<br>'; W_PEDIDOCLIENTE := HTML_COLOR.Get_Html ( W_STR, 'red', 4) ; W_STR := 'Despachar A:' + PEDIDOS.FieldByName('CLIENTESHP').AsString ; w_clienteshp := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := PEDIDOS.FieldByName('DCLIENTESHP').AsString ; W_DCLIENTESHP := HTML_COLOR.Get_Html ( W_STR, 'blue', 2) ; UnimList1.Items.Add(W_STR); PEDIDOS.Next; end; PEDIDOS.Close;
  2. asapltda

    MultiDetail List with Unigui Mobile?

    Hello, can you post an example in delphi + unigui Thank you
  3. asapltda

    MultiDetail List with Unigui Mobile?

    +1 What is TPL? Thank you
  4. asapltda

    How to open a select file dialog?

    Send file to Client ------------------------ procedure TFCONSULTAMOVINVENTARIOS.BTN_DownLoadXLSClick(Sender: TObject); var Uid: TGuid; Result: HResult; W_recurso :string; w_FileName :string; FilesFolderPath:string; TempFolderPath :string; ExtFullPath :string; w_Ruta :string; ExcelName :string; begin ExtFullPath := UniServerModule.ExtFullPath ; // CREATE GUID PARA MANEJO DE ARCHIVO DE DATOS Result := CreateGuid(Uid); CreateGuid(Uid); if Result = 1 then w_FileName:= GuidToString(Uid) ; // ARMAR NOMBRE DE ARCHIVO PARA ENVIA AL FOLDER TEMPORAL // W_recurso := RECURSO.Text; w_FileName:= w_FileName + '.xls' ; w_Ruta := UniServerModule.TempFolderPath + w_FileName ; // CONVERTIR ARCHIVO A EXCEL , SALVARLO TEMPORALMENTE Y CREAR LINK DE DESCARGA uNativeXLSExport.DataSetToXLS(INMOV, w_Ruta ); UniSession.SendFile(w_Ruta , 'MovInventory.xls'); LnkDowlaod.Caption:='<a href="'+ w_Ruta +'" target=new>Click here to download: ( '+' MovInventory.xls'+')</a>'; LnkDowlaod.SetFocus; end;
  5. asapltda

    How to set the service port in a ini file?

    Unit CONFIGURACIONPARMS; interface var G_DBSERVER :string; G_DBNAME :string; G_DATABASE :string; G_USUARIODB :string; // USUARIO COMUN TOMADO DE LA CONFIGURACION G_PASSWDB :string; // tomado de la configuracion G_Usuario :String; g_PassW :string; G_ROLE :string; G_Port :Integer ; g_ExtRoot :string; G_CacheFolder :string; G_Title :string; g_LogoCompania :string; g_LogoLogin :string; g_Theme :string; {} P_USUARIO :STRING; O_CONO :string; O_CLIENTE :string; O_CLIENTESHP :string; Procedure SET_INICIAR_VALORES; implementation Procedure SET_INICIAR_VALORES; Var W_Null:Variant; BEGIN //P_RECURSO :=''; End; END. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ARCHIVO DE CONFIGURACION Configuracion.cfg [user] USUARIO=SERVINETWEB PASSW=SERVINETWEB ROLE=USUARIOS [server] SERVER=192.168.1.115 <-- NO SE USA [Database] DBSERVER=192.168.1.115 DBNAME=127.0.0.1:E:\__DISCO C TOSHIBA\SERVINET_XE10_BERLIN\SERVINETDB-2017.FDB [Logos] LOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_COMPANIA=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN_CDLG=C:\SERVINETWEB\LOGO_CDLG.JPG LOGO_COMPANIA_CDLG =C:\SERVINETWEB\LOGO_CDLG3.JPG [Logos Otros] <-- NO SE USA XLOGO_COMPANIA=C:\SERVINETWEB\Logo_Organizacion_hercules_Compania.jpg XLOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\Logo_Organizacion_hercules_Compania_LOGIN.jpg LOGO_COMPANIA_apix=C:\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN=C:\SERVINETWEB\apix_logo.jpg LOGO_COMPANIA_INTERLLANTAS=logoInterllantas.png LOGO_LOGIN_INTERLLANTAS =logoInterllantas.png [Licencias] LICENCIA1=XXXXXXX LICENCIA2=YYYYYY [serverModule] Port=8077 ExtRootX=C:\SERVINET2014 X2\DELPHIWEB\ext-4.2.2.1144\ CacheFolder=\cache ExtRoot=C:\Program Files (x86)\FMSoft\Framework\uniGUI\ext-4.2.5.1763 Title=SERVINETWEB@LOGISTICASOFT [MAINMODULE] BackGroundPicture=Tortas-de-cumpleanos-vectorizadas.jpg Theme=default Theme_blue=blue Theme_gray_gray Theme_neptune=neptune Theme_access=access IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; **** FIN ARCHIVO DE CONFIGURACION ******** EN SERVER MODULE implementation {$R *.dfm} uses UniGUIVars ,inifiles , CONFIGURACIONPARMS; // <-------- incluye unidad procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin LEER_CONFIGURACION; end; procedure TUniServerModule.LEER_CONFIGURACION; var IniFile : TIniFile; w_F :TextFile; W_CONFIGURACION:string ; W_DIR :string; W_String:string; W_ERROR:STRING; begin FormatSettings.shortdateformat := 'yyyy/MM/dd'; //2008/04/16 FormatSettings.ShortTimeFormat := 'HH:MM'; FormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz'; FormatSettings.DecimalSeparator := '.'; FormatSettings.ThousandSeparator := ','; FormatSettings.dateSeparator := '-'; FormatSettings.timeSeparator := ':'; W_DIR := ExtractFilePath(UniFullPath); W_DIR := UniServerModule.StartPath; W_CONFIGURACION := W_DIR + 'Configuracion.cfg' ; // <------------------------leer configuracion externa TRY IniFile := TIniFile.Create( W_CONFIGURACION ); EXCEPT on E : Exception do begin W_ERROR:= E.Message; end; END; // LEER PARAMETROS CONFIGURACIONPARMS.G_DBSERVER := IniFile.ReadString('Database' , 'DBSERVER', ' ') ; CONFIGURACIONPARMS.G_DBNAME := IniFile.ReadString('Database' , 'DBNAME', ' ') ; CONFIGURACIONPARMS.G_DATABASE := CONFIGURACIONPARMS.G_DBNAME; CONFIGURACIONPARMS.g_USUARIODB := IniFile.ReadString('User' , 'USUARIO', ' ') ; CONFIGURACIONPARMS.g_PASSWDB := IniFile.ReadString('User' , 'PASSW', ' ') ; CONFIGURACIONPARMS.g_ROLE := IniFile.ReadString('User' , 'ROLE', ' ') ; CONFIGURACIONPARMS.g_LogoCompania := IniFile.ReadString('LOGOS' , 'LOGO_COMPANIA', ' ') ; CONFIGURACIONPARMS.g_LogoLogin := IniFile.ReadString('LOGOS' , 'LOGO_LOGIN', ' ') ; CONFIGURACIONPARMS.g_port := StrToInt(IniFile.ReadString('ServerModule' , 'Port', ' ')) ; CONFIGURACIONPARMS.G_ExtRoot := IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; CONFIGURACIONPARMS.G_CacheFolder := IniFile.ReadString('ServerModule' , 'CacheFolder', ' ') ; CONFIGURACIONPARMS.G_TITLE := IniFile.ReadString('ServerModule' , 'Title', ' ') ; CONFIGURACIONPARMS.G_Theme := IniFile.ReadString('ServerModule' , 'g_Theme', ' ') ; // SET PARAMETROS UniServerModule.title := G_TITLE; UniServerModule.title := CONFIGURACIONPARMS.G_TITLE ; UniServerModule.Port := G_PORT; end;
  6. asapltda

    Disabling context menu in UniURLFrame

    Hi, can you give an example of how to use this component (UniPDFFrame) ? Thank you
  7. asapltda

    form in frame

    review this link
  8. asapltda

    Create variable in session in unigui

    use mainmodule
  9. Hola Mike, No tengo claro el tema, podria en aras de ayudarnos todos: 1. los datamodulos existen en forma nativa para unigui , si no se recomienda su uso porque existen? no deberia cambiarse? 2. si solo se crean una sola vez por sesion la carga inicial podria ser lenta (que es lento) y consumen mucha memoria (cuanto es mucho) y a partir de cuantos usuarios afectaria el sistema 10,100,1000..nn gracias mike
  10. asapltda

    UniGUI strong points

    Thanks for your Answer, Could there be an official example of how it is done?
  11. asapltda

    Are you more than 40 years old?

    +1 60 YEARS OLD
  12. asapltda

    Multiple Datamodules

    Hello, unigui datamodules are created automatically for each session? or the datamodules must be created manually in the MainModule unit? Tks
  13. Hello, some of you could indicate the advantages of using unigui movile version 6.5 - The applications with the previous version are compatible with version 6.5? - Other advantages or differences that we can have Thank you
  14. asapltda

    Unigui guide - pdf vs Live video conference

    pdf vs Live video conference I prefer the pdf since I can see them many times, besides those who do not speak English we can translate it and understand all the material tks
  15. Hello, for clarification is it the same to have non-visual components created in design or created in execution? tks Hello, for clarification is it the same to have non-visual components created in design or created in execution?
×