Ver Mensaje Individual
  #1  
Antiguo 12-09-2018
Sir16 Sir16 is offline
Registrado
 
Registrado: sep 2018
Posts: 8
Reputación: 0
Sir16 Va por buen camino
Update con checkbox liveBindings

Buenos dias,

estoy usando livebindings para hacer una conexion con los diferentes componentes, he intentando hacer un dataset.post con el elemento checkbox me salta error, alguien puede echarme un cable de cual puede ser el problema?
Código Delphi [-]
procedure btnGuardarFamiliaClick(Sender: TObject);
var agrupacion,faltaValor :boolean; 
begin 
  agrupacion := ckAgrupacionFamilia.Checked; // dbModConfiguracionTPV => tDataModule // dsFamiliasPantallaConfig => tAdoQuery 
  dbModConfiguracionTPV.dsFamiliasPantallaConfig.Edit; 
  if (dbModConfiguracionTPV.dsFamiliasPantallaConfigagrupacion = nil) then 
  begin 
    missatge := missatge +#13+ ' Seleccion de agrupación.'; 
    faltaValor := true; 
  end 
  else if dbModConfiguracionTPV.dsFamiliasPantallaConfigagrupacion.Value <> agrupacion then 
  begin 
    dbModConfiguracionTPV.dsFamiliasPantallaConfigagrupacion.Value := agrupacion; 
  end; 
  if faltaValor then 
  begin 
    application.MessageBox(pwideChar(missatge),'Atención',mb_ok or mb_iconInformation); 
  end 
  else 
  begin 
    dbModConfiguracionTPV.dsFamiliasPantallaConfig.Post; 
  end; 
end;
podria ser que como el campo en sql es un bit, delphi me devuelve el valor -1 al estar en estado de cheked y ahi esta el error? en caso de eso hay algun modo de poder arreglar eso, o que componente me remonendarian usar, ya que he provado tambien el tDBCheckBox pero no me queda muy claro como usarlo ya que en valueChecked le tengo true y tengo el mismo error
gracias de antemano.

Última edición por Casimiro Notevi fecha: 12-09-2018 a las 13:50:33.
Responder Con Cita