Buscar dato en TJvMemoryData

[Young]

Yo utilizo lo siguiente cuando necesito hacer una búsqueda en los memory.

Código Delphi [-]
JvMemoryData.Locate( 'NombreCampo1;NombreCampo2', VarArrayOf(['Valor a buscar1', 69]), [] );

Los valores para el tercer son:

[loCaseInsensitive] búsqueda no sensible a mayúsculas.

[loPartialKey] búsqueda parcial.

[] este lo utilizo para búsqueda exacta

Se me olvidaba... el método devuelve un boleano, true para encontrado.

Saludos.

[[BlueSteel]]

Ok... gracias...

ya lo hice funcionar.. y la sentencia que utilice fue la siguiente

Código Delphi [-]
// Datos : Form de tipo DataModule
// ItemsContrato : Componente JvMemoryData
// vAsi.Text : Edit, donde se ingresa un valor numerico

If Datos.ItemsContrato.Locate('Ite_Id',StrToInt(vAsi.Text),[]) Then
   // Sentencia 1
Else
  // Sentencia 2
End;

Salu2

[microbiano]

hola amigo BlueSteel, desde hace dias te sigo los paso por que usas el componente TjvMemoryData, oye amigo que posibilidad existe de que me puedas ayudar hacer una busqueda, soy nuevo con este componente.

ya intente con el codigo que pones pero creo que no enlaso algo o no se que pasa no muestra error pero no hace nada.

de antemano muchas gracias.

[[BlueSteel]]

Empezado por microbiano

hola amigo BlueSteel, desde hace dias te sigo los paso por que usas el componente TjvMemoryData, oye amigo que posibilidad existe de que me puedas ayudar hacer una busqueda, soy nuevo con este componente.

ya intente con el codigo que pones pero creo que no enlaso algo o no se que pasa no muestra error pero no hace nada.

de antemano muchas gracias.

Hola Microbiano:

disculpa.. pero hace dias que no ingresaba.... Específicamente que necesitas..

Me voy a cambiar de PC y voy a dejar algunos ejemplos que utilizo con dicho componente...

Salu2

[microbiano]

hola estimado amigo, necesitaba hacer una busqueda dentro de la tabla temporal, pero lo resolvi de la siguiente manera

Código Delphi [-]
If temporal.Locate('codigo',Self.wcodigobarras,[]) Then

, precisamentel un codigo que te pasaron, que te parece si mejor me das una idea de como modificar algun registros, pro que hasta ahora lo hago asi

Código Delphi [-]
procedure TFfactura.modifica_registro;
begin
 with Ffactura.temporal do
  begin
   Edit;
   //FieldByName('codigo').AsString :=Self.wcodigobarras;
   //FieldByname('descripcion').AsString := Self.wdescripcion;
   FieldByName('cantidad').AsFloat:=Self.wcantidad_venta;
   FieldByName('precio').AsCurrency:= Self.wprecio_venta;
   FieldByName('descuento').AsFloat:=Self.wdescuento_considerar;
   FieldByName('total').AsCurrency:= wcantidad_venta * wprecio_venta;
   Post;
  end;
   Self.txtcodigo.Text:='';
  Self.txtcodigo.SetFocus;  
end;

sin embargo no estoy muy seguro de que este bien, debido a que siempre he usado sql para este tipo de operaciones de antemano muchas gracias :-)

en cuanto a que no habias entrado me imagino me imagino vacaciones y a disfrutar la familia jejeje.

[[BlueSteel]]

Ya...

Mira con dicho componente utilizo lo siguiente....

En el Evento FormCreate del Formulario donde estoy utilizando el componente pongo este codigo

Código Delphi [-]
Datos.ItemsContrato.Active := True; 
Datos.ItemsContrato.EmptyTable; 
Datos.ItemsContrato.Refresh; 
// Esto es para asegurarme de que no tenga basura...

Para Insertar un Registro realizo lo siguiente

Código Delphi [-]
Datos.ItemsContrato.Append; 
Datos.ItemsContrato.FieldByName('Ite_Id').AsString := Datos.AQ_Abono['Abo_Id']; 
Datos.ItemsContrato.FieldByname('Ite_Asiento').AsString := vAsi.Text; 
Datos.ItemsContrato.FieldByName('Ite_Sigla').AsString := Datos.AQ_ValorUbicacion['Ubi_Sigla']; 
Datos.ItemsContrato.FieldByName('Ite_Ubicacion').AsString := Datos.AQ_ValorUbicacion['Ubi_Detalle']; 
Datos.ItemsContrato.FieldByName('Ite_Valor').AsCurrency := Datos.AQ_ValorUbicacion['Tem_Valor']; 
Datos.ItemsContrato.Post;

Para buscar un registro que ya he ingresado, realizo esto

Código Delphi [-]
If Datos.ItemsContrato.Locate('Ite_Id',StrToInt(Datos.AQ_Abono['Abo_Id']),[]) Then    
Begin         
      ShowMessage('Ya existe un registro con dicho código----');         
      // Aqui solo limpio e ingreso otro codigo... esto es por que en mi sistema no se puede repetir un codigo (son asientos de un estadio numerados)
      vAsi.Clear;
      vAsi.SetFocus;
      Sw_1:=0;
End;

Para Eliminar un registro, utilizo lo siguiente (se supone que estoy posicionado en el registro a eliminar)

Código Delphi [-]
Try
    If MessageDlg('Seguro de borrar el Asiento '+#13+IntToStr(Datos.ItemsContrato['Ite_Asiento'])+' de '+Datos.ItemsContrato['Ite_Ubicacion'], mtConfirmation, [mbYes, mbNo], 0) = mrYes Then
       Begin
             sSub.AsCurrency := sTot.AsCurrency - Datos.ItemsContrato['Ite_Valor'];
             sTot.AsCurrency := sSub.AsCurrency;
             Datos.ItemsContrato.Delete;
             Sw_2 := Sw_2 - 1;
       End;
Except
       ShowMessage('No existen registros para eliminar');
End;

Solo mencionar lo siguiente....

Cuando en mi programa de factura ingreso un codigo que ya existe en la tabla de memoria, digo que ya existe y que si lo quiere modificar, entonces paso todos los datos del registro a variables, elimino el registro de la tabla temporal, traspaso los datos de las variables a las variables de ingreso de items... y me evito el actualizar un registro y hacer más engorroso el sistema.

Tambien te menciono que el componente lo tengo en otro formulario de tipo DataModule llamado "Datos".

Espero que esto te sirva...

en cuanto a que no habias entrado me imagino vacaciones y a disfrutar la familia jejeje.

ojala ubiesen sido por vacaciones... mira que he tenido mucho trabajo....y de vacaciones ni hablar por estos dias, y quizas puedan ser el proximo año....

Salu2

[novato_erick]

Hola he seguido todos estos ejemplo y he quedado satisfecho con el componente TjvMemoryData sin embargo no he logrado que me sume la cantidad de articulos vendidos y ponerlo en un label. Saben Como hacerlo?


Saludos

novato_erick