[import & Export File Excel]

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 

[import & Export File Excel]

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 

[how to put a form to original position]

Thanks I think It can work for me 

 

 

Ronny Encarnacion 

[how to put a form to original position]

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 

 

[dbRadioGroup is there any way to use it]

Is There any way to use dbRadioGroup in Unigui 

 

Ronny Encarnacion

 

[Problem Compiling a project]

Thanks I'll check it !! 

[Problem Compiling a project]

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 

 

[How to fire a event on DbLookupCombobox]

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

 

Thanks 

 

 

 

[DecimalSeparator field type in a numeric (float)?]

Englishi Please !!!

[Financial contribution]

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

[Problem with uniDbGrid]

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

 

 

 

 

 

[Exception after update to 0.91 on showmodal]

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.

[server4you.de]

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

than server4you.de

[how modify UniMainMenu font and font size]

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 

[frames in XE2 can be use]

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 

 

 

 

[I can use frame in Unigui .090]

Thanks !!

[I can use frame in Unigui .090]

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 

[Change font to TUniMainMenu]

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 

 

[How to make the key 'Enter' become the 'Tab' in UniGui]

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

[ISAPI Loader]

Thanks I will rey this way

[ISAPI Loader]

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

[How to make the key 'Enter' become the 'Tab' in UniGui]

FormNavigate demo might help you.

Regards

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

[About FileUpload]

Thanks, Farshad Mohajeri

[About FileUpload]

Yes, files are uploaded to the temp folder first. Later you can copy it to another folder. Original file name is preserved and sent to the server.

Please see file upload demo.

 

 

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

thanks

[About FileUpload]

Yes, files are uploaded to the temp folder first. Later you can copy it to another folder. Original file name is preserved and sent to the server.

Please see file upload demo.

 

 

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

Thanks