Código Delphi [-] DM.CONSULTA.CLOSE; DM.CONSULTA.SQL.Clear; DM.CONSULTA.SQL.Add('UPDATE ORDENES SET ESTADO='+ACTIVO+' WHERE (NRO_ORDEN='+#39+EDIT1.text+#39+')'); DM.CONSULTA.ExecSQL; DM.Transaction.CommitRetaining;
DM.CONSULTA.CLOSE; DM.CONSULTA.SQL.Clear; DM.CONSULTA.SQL.Add('UPDATE ORDENES SET ESTADO='+ACTIVO+' WHERE (NRO_ORDEN='+#39+EDIT1.text+#39+')'); DM.CONSULTA.ExecSQL; DM.Transaction.CommitRetaining;