hola amigos anteriormente les habia escrito sobre mi duda, la aplicacion no me esta grabando los decimales, solo la parte entera ej. 15.20 solo graba 15. en el codigo esta resaltado con rojo la liena del problema. los campos estan bien definidos en las tablas. todo lo demas me funciona bien
Código Delphi
[-]
procedure TForm2.BitBtn2Click(Sender: TObject);
Var
i, j, fila : byte;
begin
For j:= 1 to (data.RowCount-1) do
begin
If Strtofloat(Data.Cells[5,j]) < Strtofloat(Data.Cells[6,j]) Then
Begin
Application.MessageBox('No puede Entregar.', 'Error', mb_OK+mb_IconWarning);
Data.Cells[6,j]:= '0';
End;
End;
AdoTable1.TableName:='DESPACHO';
ADOTable1.Open;
AdoTable1.Insert;
AdoTable1.Fields.FieldByName('Numero').AsString := Label8.Caption;
AdoTable1.Fields.FieldByName('Factura').AsString :=Label4.Caption;
AdoTable1.Fields.FieldByName('Fecha').AsDateTime := StrToDate(label7.Caption);
AdoTable1.Fields.FieldByName('Anulado').AsString :='0';
AdoTable1.Post;
AdoTable1.Close;
AdoTable1.TableName:='ITEMDESP';
AdoTable1.Open;
i:=1;
While Data.Cells[data.Row,i]<> '' Do
Begin
Fila:=i;
If Data.Cells[6,Fila]<> '0' Then
Begin
AdoTable1.Insert;
AdoTable1.Fields.FieldByName('Numero').AsString := Label8.Caption;
AdoTable1.Fields.FieldByName('Codart').AsString := Data.Cells[0,Fila];
AdoTable1.Fields.FieldByName('Desart').AsString := Data.Cells[1,Fila];
AdoTable1.Fields.FieldByName('Almacen').AsString := Data.Cells[2,Fila];
AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);
AdoTable1.Fields.FieldByName('Anulado').AsString:='0';
AdoTable1.Fields.FieldByName('Factura').AsString := Label4.Caption;
AdoTable1.Post;
End;
i:=i+1;
End;