Claro que si
Código Delphi
[-] sSentencia:= 'UPDATE articulos SET descripcion = ' + QuotedStr(Datos.sDescripcion) +
', descripcion_corta = ' + QuotedStr(Datos.sDescripcionCorta) +
', etiqueta = ' + QuotedStr(Datos.sEtiqueta) +
', categoria = ' + sClaveCategoria +
', departamento = ' + sClaveDepto +
', clase = ' + sClaveClase +
', impuesto = ' + IntToStr(Datos.iClaveImpuesto) +
', es_juego = ' + QuotedStr(Datos.sEsJuego) +
', costo_automatico = ' + QuotedStr(Datos.sCostoAutomatico) +
', precio_automatico = ' + QuotedStr(Datos.sPrecioAutomatico) +
', se_vende = ' + QuotedStr(Datos.sSeVende) +
', es_gasto = ' + QuotedStr(Datos.sEsGasto) +
', no_inventariable = ' + QuotedStr(Datos.sNoInventariable) +
', agranel = ' + QuotedStr(Datos.sAgraNel) +
', bascula = ' + QuotedStr(Datos.sBascula) +
', tiempo_elaboracion = ' + IntToStr(Datos.iTiempoElaboracion) +
', tiene_numero_serie = ' + QuotedStr(Datos.sTieneNumeroSerie) +
', tiene_lote = ' + QuotedStr(Datos.sTieneLote) +
', tiene_caducidad = ' + QuotedStr(Datos.sTieneCaducidad) +
', generar_boletos = ' + QuotedStr(Datos.sGenerarBoletos) +
', cambiar_precio = ' + QuotedStr(Datos.sCambiarPrecio) +
', estatus = ' + QuotedStr(Datos.sEstatus) +
', notas = ' + QuotedStr(Datos.sNotas) +
', fecha_ult_cambio = ' + QuotedStr(FormatDateTime(FECHA_HORA_DBMS, dteFechaMov)) +
', ultimo_costo = ' + FloatToStr(Datos.rCosto) +
', tienda_en_linea = ' + QuotedStr(Datos.sTiendaEnLinea) +
', peso = ' + FloatToStr(Datos.rPeso) +
', largo = ' + FloatToStr(Datos.rLargo) +
', ancho = ' + FloatToStr(Datos.rAncho) +
', alto = ' + FloatToStr(Datos.rAlto) +
', fecha_importacion = ' + QuotedStr(sFechaImporta) +
' WHERE clave = ' + IntToStr(Datos.iClave);
qryConsulta:= TSQLQuery.Create(nil);
qryConsulta.SQLConnection:= FBaseDato;
qryConsulta.SQL.Clear;
qryConsulta.SQL.Text:= sSentencia;
qryConsulta.ExecSQL;
Como no le he econtrado por donde es el error intenté cambiar la asignación de la sentencia a qryConsulta con los metodos qryConsulta.Add, qryConsulta.Append
Saludos
Bismarck