Gracias, siguiendo los consejos de Poli y del Ego esto ya quedo arreglado:
Código Delphi
[-]
cCadena := ' UPDATE empleado SET '+
' IDEmpresa = '+ QuotedStr(IntToStr(FMain.oVariables.nEmpresa))+
' , IDSucursal = '+ QuotedStr(IntToStr(FMain.oVariables.nSucursal))+
' , IDDepartamento = '+ QuotedStr(IntToStr(nIDDepartamento))+
' , IDPuesto = '+ QuotedStr(IntToStr(nIDPuesto))+
' , IDRegistro = '+ QuotedStr(cRegistro.Text)+
' , IDNomina = '+ QuotedStr(cNomina.Text)+
' , Apaterno = '+ QuotedStr(cPaterno.Text)+
' , AMaterno = '+ QuotedStr(cMaterno.Text)+
' , Nombre = '+ QuotedStr(cNombre.Text)+
' , NombreCompleto = '+ QuotedStr(TRIM(cPaterno.Text) + ' ' + TRIM(cMaterno.Text)+ ' ' + TRIM(cNombre.Text))+
' , CentroCostos = '+ QuotedStr(cCostos.Text)+
' , Sucursales = '+ QuotedStr(FDatosEmpleado.cSucursalesEvento)+
' , FNacimiento = '+ QuotedStr(DatetoStr(dCumple.Date))+
' , FIngreso = '+ QuotedStr(DatetoStr(dCumple.Date))+
' , Telefono = '+ QuotedStr(cTelefono.Text)+
' , Correoe = '+ QuotedStr(cCorreo.Text)+
' , Dir1 = '+ QuotedStr(cDir1.Text)+
' , Dir2 = '+ QuotedStr(cDir2.Text)+
' , Dir3 = '+ QuotedStr(cDir3.Text)+
' , CURP = '+ QuotedStr(cCURP.Text)+
' , Ciudad = '+ QuotedStr(cCiudad.Text)+
' , Estado = '+ QuotedStr(cEstado.Text)+
' , CP = '+ QuotedStr(cCP.Text)+
' , Activo = '+ QuotedStr(IntToStr(1))+
' , Usuario = '+ QuotedStr('FCastro')+
' , U_Fecha = '+ QuotedStr(DateToStr(now))+
' WHERE IDEmpleado = '+ QuotedStr(IntToStr(Data.qEmpleado.FieldByName('IDEmpleado').AsInteger));
With Data.qEditaEmpleado do
Begin
SQL.Text := cCadena;
ExecSQL;
end;
Ahora, porque lo metí a una cadena de texto? la verdad es que si no lo dejaba así el query no se ejecutaba, enigmas de la vida no?
Mil gracias a todos en el foro por la ayuda. "Agradezco a san poli por los favores y las ayudas recibidas"
Saludos!