[novato_erick]

Hola a todos:

Estoy Tratando de realizar un insert en sql el cual tengo un campo llamado 'ESTAD' de tipo Char en mi db de firebird que es enviado con un componente TRadioButton sin embargo no he logrado implementar mande un valor de 1 y valor de 0 a mi DB.

Este es un ejemplo como lo estoy realizando:

Código Delphi [-]
procedure TfrmTransacciones.rbActivoClick(Sender: TObject);
Var
Estado : char;
begin
 if TRadioButton(sender).Name='rbActivo' then
 begin
  Estado := 1;
 end;
 if TRadioButton(sender).Name='rbInactivo' then
 begin
  Estado := 0;
 end;
end;

en mi sentencia sql esta asi:

Código Delphi [-]
procedure TfrmTransacciones.btnAgregarClick(Sender: TObject);
var
trn:tdbxTransaction;
exito:boolean;

begin
 trn := dmConexion.dmConexion.BeginTransaction;
 try
with dmConexion.qClientes do
    begin
     sql.Clear;
     sql.Add('insert into Clientes(CEDULA, NOMBRE, PAIS, DIRECCION, TELEFONO, FAX, ESTADO)');
     sql.Add('values (:pCEDULA,:pNOMBRE,:pPAIS,:pDIRECCION,:pTELEFONO,:pFAX,:pEstado )');
     parambyname ('pCEDULA').asstring := edtCedula.Text;
     parambyname ('pNOMBRE').AsString :=edtNombre.Text;
     parambyname ('pPAIS').AsString := edtPais.Text;
     parambyname ('pDIRECCION').AsString :=edtPais.Text;
     parambyname ('PTELEFONO').AsString := edtTelefono.Text;
     parambyname ('pFAX').AsString := edtFax.Text;
     parambyname ('pESTADO').AsString := Estado;
     execsql;
    begin
      dmConexion.dmConexion.CommitFreeAndNil(trn);
      exito := true;
    end;
    end;
except
  on e:exception do
  begin
    dmConexion.dmConexion.RollbackFreeAndNil(trn);
    showmessage ('Error Encontrado'+ e.message);
  end;
 end;
  if
  exito = true then
  begin
    Showmessage ('Cliente Agregado');
    Close;
  end;
end;

Saludos

novato_erick