Estimados, tengo el codigo que aparece a continuacion, y estoy tratando de insertar los valores que tengo en unos edit a una tabla, pero resulta que cuando el valor a insertar es un integer, me sale un error que no es un integer valido, pero lo extraño es que en realidad si es un integer...... si a alguien le ha pasado esto agradeceria me comentara como lo soluciono....
Código Delphi
[-]
dm.tbl_ordenes_impresion.append;
showmessage('bandera1');
dm.tbl_ordenes_impresion.FieldByName('numorden').AsInteger := strtoint(edit1.text);
showmessage('bandera2');
dm.tbl_ordenes_impresion.FieldByName('fecha').AsString := datetostr(datetimepicker1.date);
showmessage('bandera3');
dm.tbl_ordenes_impresion.FieldByName('rut').AsInteger := strtoint(edit3.Text);
showmessage('bandera4');
dm.tbl_ordenes_impresion.FieldByName('observacion').AsString := edit12.Text;
dm.tbl_ordenes_impresion.FieldByName('desc1').AsFloat := strtofloat(edit16.text);
dm.tbl_ordenes_impresion.FieldByName('desc2').AsFloat := strtofloat(edit19.Text);
dm.tbl_ordenes_impresion.FieldByName('destino1').AsString := edit13.Text;
dm.tbl_ordenes_impresion.FieldByName('destino2').AsString := edit11.Text;
dm.tbl_ordenes_impresion.FieldByName('puestoen').AsString := edit15.Text;
dm.tbl_ordenes_impresion.FieldByName('subtotal').AsFloat := strtofloat(edit21.text);
dm.tbl_ordenes_impresion.FieldByName('netodesc').AsFloat := strtofloat(edit22.Text);
dm.tbl_ordenes_impresion.FieldByName('iva').AsFloat := strtofloat(edit23.Text);
dm.tbl_ordenes_impresion.FieldByName('total').AsFloat := strtofloat(edit24.Text);
dm.tbl_ordenes_impresion.FieldByName('plazoentrega').AsString:= edit14.text;
dm.tbl_ordenes_impresion.FieldByName('valdesc1').AsFloat := strtofloat(edit17.Text);
dm.tbl_ordenes_impresion.FieldByName('valdesc2').AsFloat := strtofloat(edit20.Text);
dm.tbl_ordenes_impresion.FieldByName('totaldesc').AsFloat := strtofloat(edit18.Text);
dm.tbl_ordenes_impresion.FieldByName('nombre').AsString := edit2.Text;
dm.tbl_ordenes_impresion.FieldByName('direccion').AsString := edit4.Text;
dm.tbl_ordenes_impresion.FieldByName('comuna').AsString := edit7.Text;
dm.tbl_ordenes_impresion.FieldByName('ciudad').AsString := edit9.Text;
dm.tbl_ordenes_impresion.FieldByName('fono').AsInteger := strtoint(edit8.text);
dm.tbl_ordenes_impresion.FieldByName('fax').AsInteger := strtoint(edit10.text);
dm.tbl_ordenes_impresion.FieldByName('contacto').AsString := edit5.Text;
dm.tbl_ordenes_impresion.FieldByName('condpago').AsString := edit6.Text;
dm.tbl_ordenes_impresion.Post;
Gracias de antemanos.....
Saludos.