Ver Mensaje Individual
  #7  
Antiguo 02-12-2010
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 18
microbiano Va por buen camino
gracias

hola gracias amigo por contestar mira este es el codigo que uno la primera vez.

Código Delphi [-]
                     Ffactura.SGFact.Cells[0,cuenta] := wcodigobarras;//agrego codigo de wcodigobarras
                     Ffactura.SGFact.Cells[1,Cuenta]:=(FieldByname('nombre').AsString);//agrego nombre del producto
                     Ffactura.wprecio_venta:=StrToFloat(FieldByname('precioventa').AsVariant);//pongo el precio de venta en la variable de precio
                     Ffactura.SGFact.Cells[2,Cuenta]:=FloatToStr(wcantidad_venta);
                     Ffactura.SGFact.Cells[3,Cuenta]:=(Format('%8.2n',[Ffactura.wprecio_venta]));//pongo el precio del articulo con formato de miles
                     Ffactura.SGFact.Cells[4,Cuenta]:=FloatToStr(wdescuento_considerar);
bien despues de esto tengo que recorrer todos los registros del TStringGrid y es ahi a donde tengo que tomar el valor de la celda
Código Delphi [-]
Ffactura.SGFact.Cells[3,Cuenta]:=(Format('%8.2n',[Ffactura.wprecio_venta]));
, pues bien lo hago de la siguiente manera

Código Delphi [-]
{tomo los registros que existen en el flexgrid de acuerdo al registro que introdujeron}
       wcantidadmodificar:=StrToFloat(SGFact.Cells[2,i]);//tomo el valor de la cantidad que tengo en el flexgrid
       wcodigomodificar:=Ffactura.SGFact.Cells[0,i]; //tomo el codigo de barras
       wdescripcionmodificar:=Ffactura.SGFact.Cells[1,i]; //tomo la descripcion
       wpreciomodificar2:=Format('%g',[SGFact.Cells[3,i]]);
, pero ahi es donde tengo el problema que querer tomar el valor de la celda de precioa, si no le pongo formato alguno no existe ninguna problema pero mi cliente quiere el formato de miles, o hay alguna mejor sugerencia para el detalle de la factura?
Responder Con Cita