Devart Forums

Code: Select all

unitable1.Active:=true;
unitable1.First;
while not unitable1.eof do
begin
if unitable1id_prov.value=identificador then
       begin
       unitable1.Edit;
       unitable1nombre_prov.Value:=trim(edit1.Text);
       unitable1mail_prov.Value:=trim(edit9.Text);
       unitable1tlf_prov.Value:=trim(edit10.Text);
       unitable1representante.Value:=trim(edit6.Text);
       unitable1mail_repre.Value:=trim(edit7.Text);
       unitable1tlf_REPRE.Value:=trim(edit8.Text);
       if checkbox3.IsChecked=true  then  unitable1cvisa.Value:=true
       else
        unitable1cvisa.value:=false;
       if checkbox4.IsChecked=true  then  unitable1cth.value:=true
       else
       unitable1cth.value:=false;
       unitable1info.AsString:=memo2.Text;
       if COMBOBOX2.ItemIndex=0 then  unitable1canal_usual.value:='EMAIL';
       if COMBOBOX2.ItemIndex=2 then  unitable1canal_usual.value:='WEB';
       if COMBOBOX2.ItemIndex=4 then  unitable1canal_usual.value:='TRADEPLACE';
       if COMBOBOX2.ItemIndex=3 then  unitable1canal_usual.value:='OUTLOOK';
       if COMBOBOX2.ItemIndex=1 then  unitable1canal_usual.value:='TELEFONO';
       if checkbox1.IsChecked then
       begin
       unitable1revisado.Value:=true;
       end
       else
       begin
          unitable1revisado.Value:=false;
       end;
      unitable1.Post;
      showmessage('Registro modificado');
   end;

   unitable1.Next;
end;