Conexion.StartTransaction;
try
iErrors := Squema.ApplyUpdates(0);
if iErrors = 0 then
begin
for x := 0 to Squema.Count - 1 do
if Squema.DataSets[x].UpdatesPending then
begin
Squema.DataSets[x].CommitUpdates;
Conexion.Commit; _ResultadoMD := 1;
end;
end
else
begin
_ResultadoMD := 0;
Conexion.Rollback;
end;
except
on e: Exception do
begin
Conexion.Rollback;
end;
end;
retNumeroDoc()