Ver Mensaje Individual
  #4  
Antiguo 10-03-2017
elmago00 elmago00 is offline
Miembro
NULL
 
Registrado: ago 2013
Posts: 86
Reputación: 11
elmago00 Va por buen camino
El sistema esta en una red WAM
7 sucursales...

en algunas ocaciones cuando todos los usuarios estan usando el sistema..
7 en cada modulo.. aproximadamente.
genera el problema de repetir sentencias.. en algunas ocaciones... a eso hay que sumarle
que la consulta demora 5 segundos en ser ejecutada... no usan las normas de IT adecuadas..

un ejemplo de codigo es este..

Código SQL [-]
         Zquery1.Close;
                  Zquery1.SQL.Clear;
                   Zquery1.SQL.Add('INSERT INTO cuentabasica (Fecha,Tipo,No_Cuenta,Beneficiario,Debito,Credito,Descripción,Banco,ndoc)values('+#13+
                   char(39)+FCA+char(39)+','+char(39)+'DEP'+CHAR(39)+','+CHAR(39)+Edit11.Text+CHAR(39)+','+CHAR(39)+Edi  t1.Text+CHAR(39)+','+#13+
                       char(39)+vlor5+char(39)+','+char(39)+'0.00'+CHAR(39)+','+CHAR(39)+Edit4.Text+CHAR(39)+','+char(39)+E  dit2.Text+char(39)+','+#13+
                   char(39)+StringGRid1.Cells[1,1].ToLower+char(39)+')');
                      Zquery1.ExecSQL;
                        Zquery1.Close;

// esta a veces la repite hasta 40 veces



 for  ij := 1 to stringGrid2.RowCount -2 do
                     begin


           ZQuery1.Close;
         ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('insert into cuentasbasic(doc,Fecha,Cta_usuario,Nombre,Debito,Credito,Descripción) values('+#13+
    ':Cheque_No,:Fecha,:id_Cuenta,:Nombre,eb,:Hab,escripción)');




         ZQuery1.ParamByName('Cheque_No').AsString:=stringGrid2.Cells[0,  ij];
        ZQuery1.ParamByName('Fecha').AsString:=stringGrid2.Cells[1,  ij];
        ZQuery1.ParamByName('id_Cuenta').AsString:=stringGrid2.Cells[2,  ij];
        ZQuery1.ParamByName('Nombre').AsString:=stringGrid2.Cells[3,  ij];
        ZQuery1.ParamByName('Deb').AsString:=stringGrid2.Cells[4,  ij];
        ZQuery1.ParamByName('Hab').AsString:=stringGrid2.Cells[5,  ij];
        ZQuery1.ParamByName('Descripción').AsString:=stringGrid2.Cells[6,  ij];






    // ejecutarla
   ZQuery1.ExecSQL;
                    end;


// esta sentencia la repite hasta 120 veces.. siendo que el rowcount es de 10



esto solo es en ocaciones....
cuando el sistema es saturado de información...
Responder Con Cita