This code updates the table in win but not in android. It runs without any error notification. Delphi RIO architect. Unidac 7.4.11.
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;
Thank you