rencarnacion

rocedure TfrmImportarIncidencias.ProcesarHojaExcel(Res: integer); var Vmes: integer; I: integer; C: integer; R: integer; VColumna01: integer; VColumna02: integer; begin case Res of mrYes: begin try UniMainModule.dbConecta.BeginTrans; UniMainModule.QryRelacionMeses.Open; UniMainModule.QryIncidenciasMensuales.Open; UniMainModule.QryIncidenciasMensualesTemporal.Open; with UniMainModule, QryGeneral, SQL do begin Close; Text := ' DELETE IncidenciasMensualesTemporal'; ExecSQL; end; if CboxMeses.ItemIndex >= 0 then Vmes := CboxMeses.ItemIndex + 1 else Vmes := 1; for I := Vmes to 12 do begin for R := 2 to XLSRead.MaxRow do begin if UniMainModule.QryRelacionMeses.Locate('mes', Vmes, []) then begin VColumna01 := UniMainModule.QryRelacionMeses.FieldByName( 'Columna01').Value; VColumna02 := UniMainModule.QryRelacionMeses.FieldByName( 'Columna02').Value; with UniMainModule.QryIncidenciasMensualesTemporal do begin Insert; FieldByName('Agno').Value := CboxAnos.Text; FieldByName('IDEquipo').Value := XLSRead.CellValue[R, 1]; FieldByName('IDProducto').Value := XLSRead.CellValue[R, 2]; FieldByName('IdRegion').Value := XLSRead.CellValue[R, 4]; FieldByName('Mes').Value := I; FieldByName('PorcentajeAnual').Value := XLSRead.CellValue[R, 5]; FieldByName('UnidadesAnual').Value := XLSRead.CellValue[R, 6]; FieldByName('PrecioFarmacia').Value := XLSRead.CellValue[R, 7]; FieldByName('IncidenciaUnidadEquipo').Value := XLSRead.CellValue[R, 8]; FieldByName('ValorIncidenciaEquipo').Value := XLSRead.CellValue[R, 9]; FieldByName('IncidenciaMensualEquipo').Value := XLSRead.CellValue[R, VColumna01]; FieldByName('PorcentajeRegionEquipo').Value := XLSRead.CellValue[R, VColumna02]; Post; end; end; end; end; UniMainModule.dbConecta.CommitTrans; if VerificaIncidencia then begin ShowMessage('Proceso Compleado con Exito'); UniMainModule.qryBorrarIncidenciasMensuales.ExecSQL; UniMainModule.QryInsertaIncidencias.ExecSQL; end; except on E: Exception do begin ShowMessage('Operacion no pudo ser ejecutada por el Siguiente Mensaje :' + E.Message); UniMainModule.dbConecta.RollbackTrans; end; end; end; end; end; I'm Using Flexcel to Import Data from Excel Sheet to Database, If You need more help About It, Let me Know Ronny Encarnacion

You can use Flexcel or XLSreadWrite. You can get Flexcel in tmssoftware.com and XLSReadWrite in http://www.axolot.com/components/xlsrwii20.htm Both of them you can export data from a DataSet or read an Excel files Ronny Encarnacion

Thanks I think It can work for me Ronny Encarnacion

Hello I'm having problem when I move the form up in the browser then I can't move down again. Is there any way to move to the original position ? thanks Ronny Encarnacion

Is There any way to use dbRadioGroup in Unigui Ronny Encarnacion

Thanks I'll check it !!

Hello, I' m having problem when I try to compile a project made in Delphi 2010 and then I try to compile in Delphi XE2 I got the following error : [DCC Fatal Error] uIdGlobal.pas(531): F1026 File not found: 'Windows.dcu' Please help me Thanks Ronny Encarnacion

Hello I' like to know how I can't fire and event when I click and item on dbLookupComboBox instead to exit. Thanks

Englishi Please !!!

I'm Agree with You, We should do something like this in order to support the good work that is Doing Farshad !!

Hi, I'm having problem with a dbgrid, when I try to edit column I got these error : "Key Column information is insufficient or Incorrect. Too many Rows were affected by Update " I'd like to know what is happening when I try to edit a column in Unidbgrid

Hi Farshad, If download build 981 , may can I make test with the with out buying sencha license. we areusing now Intraweb for our web applications , And we are interesting in to make the change to the final Release of UniGui.

have you tryied, VPSLand.com or GoDaddy.com, they have better price for VPS server than server4you.de

I try to Do like you show in this message but I doesn't work. Is how Farshad Mohajeri say that the application use the Theme CSS . But I guess That in next version of Unigui, we will can do ti Ronny Encarnacion

Definitely in Delphi XE2 the frame can't be used. I had re install Unigui in Delphi XE2 and still not working. I made the same thing in Delphi 2010 and It Work very good. So please tell me What I have to do In order to use the frame in Unigui for Delphi XE2 Thanks Ronny Encarnacion

Thanks !!

Hello, I trying to Use a frame in a project but beside I had created the frame I can't use it in the application form . When I try to insert the farm in a form, I can't select anyone because the list of frame is empty. What Should I do in other to user the frames. Thanks

Hello, I'd like to know how can I change the font to MainMenu Component, Because I was trying to do it, but I Haven found the way to Do it I need help with these isue as soon as possible thanks Ronny Encarnacion

Thanks for your help I will check It as soon as I get the office

Thanks I will rey this way

Hello, Is possible to use Isapi Loader, because every time I make a change I have to reset the IIS and all other application stop. I was trying to use ISAPI loader but it not work with the UniGui DLL. thanks Ronny Encarnacion

I checked out all demo and I couldn't get any demo that I can see how I can use Enter as Tab, could you show me how to get it or if you have any example please send it thanks

Thanks, Farshad Mohajeri

Could you show me how to save the file uploaded in another folder thanks

I'd like to know where is the Upload file Demo Thanks